faire une Infoline

[CrazyCat]

Tout d'abord, merci de lire ce post sur les codes de mise en forme, j'ai nettoyé ton code mais la prochaine fois je delete.

Ensuite, tu ne devrais pas redéfinir $nick.

Et ta solution serait surement:

tclcopier

proc pub:info1 {nick uhost handle chan text} {
   set victim [lindex $text 0]
   set infoline [lindex [split $text] 1 end]
   set vhand [finduser "$victim*!*@*"]
   if { $vhand eq "*" } {
      adduser $victim $victim*!*@*
      set vhand [nick2hand $victim]
   }
   setchaninfo $vhand $chan $infoline
}