[Résolu] Aide sur une commande

[Alucard`68]

bon étant pas super calé en tcl je doit avouer que je comprend pas ton code a 95%
Donc du coup je suis completement perdu mais je vais quand même tenter quelque chose
Je suppose que les parties dont j'ai besoin sont les suivantes :

tclcopier

if ![string match -nocase $chan] {
		 putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Add-Chan\0036\] \0031par : \0034$hand"
		 putserv "notice $nick :$chan Rajouter au Addchan !"
		 channel add $chan
         savechannels
    return
    }
et
    if ![string match -nocase $chan] {
		 putserv "privmsg $::GB::log :\00314Commande \0036\[\0033Del-Chan\0036\] \0031par : \0034$hand"
		 putserv "notice $nick :$chan Retiré des Addchan !"
		 channel remove $chan
         savechannels
    return
    }