Bannir un host en TCL

[CrazyCat]

OK, c'est relativement simple à faire:

tclcopier

bind pub - !krepet krepet
proc krepet {nick uhost handle chan args} {
   if {![isop $nick $channel] && ![ishalfop $nick $channel]} { putquick "PRIVMSG $chan :Tu n'as pas accès à cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $chan :$vnick n'est pas sur $chan"; return 0}
      set vhost [getchanhost $vnick $chan]
      putquick "MODE $channel +b *!*@$vhost"
      putquick "KICK $channel $vnick 12/4!12\\ 12$nick: 4Tu es banni du salon. Cessez de vous répeter on est pas sourd !"
      return
   } else {
      puthelp "PRIVMSG $chan :Il faut une victime"
      return
   }
}

Bon, ce code n'a pas été testé, mais la chose importante est: set vhost [getchanhost $vnick $chan]

Et je me permet de te signaler que ton codage des couleurs n'est pas bon, tu devrais jeter un oeil à http://www.eggdrop.fr/Couleurs_et_mise_en_forme