Bannir un host en TCL

[CrazyCat]

et comment faire pour faire bannir le host
Exemple : *!*@NetAdmin.chat-toon.com
Comme sa car sa ne le fait pas et j'aimerais bien merci :)

Est-ce que tu lis les réponses précédentes?

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]

Re indice:

tclcopier

set vhost [getchanhost $vnick $chan]
putquick "MODE $channel +b *!*@$vhost"