Kick et KickBans rapides

[foufou]

tclcopier

bind pub - !script script
proc script {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "PRIVMSG $nick Tu doit être Halfop pour utiliser cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}
      putquick "KICK $chan $vnick $nick : Votre script est trop voyant, vous devez être plus discret !   ( Http://Site.com"
      return
   } else {
      puthelp "NOTICE $nick Syntaxe !! !script pseudo"
      return
   }
}
 
bind pub - !sexe sexe
proc sexe {nick uhost handle chan args} {
   if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "PRIVMSG $nick Tu doit être Halfop pour utiliser cette commande"; return 0}
   if {[lindex $args 0]!=""} {
      set vnick [lindex $args 0]
      if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}
      putquick "KICK $chan $vnick $nick : Pas de sexe sur ce salon, il y en a d'autres pour ça !   ( Http://Site.com"
      return
   } else {
      puthelp "NOTICE $nick Syntaxe !! !sexe pseudo"
      return
   }
}

Tu crois pas qu'il y a un soucis quelque part là ?

tclcopier

if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}

Tu peux me dire pourquoi mettre deux fois $nick au lieu de:

tclcopier

if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $vnick n'est pas sur $chan"; return 0}

????

Faudrai peut etre éviter de faire (peut être des C/c) et essayer de comprendre le TCL avant de poster :)

Cordialement