[Résolu] aide script assign

[bouba89]

bonsoir a tous

je viens demandé un peu d'aide car j'ai realisé un petit bout de code en tcl mai ce dernier ne fonctionne pas tout a fait comme je le voudrais

quand je tape !unassign #salon sur le salon #test pour quitter un salon ou le bot est aussi connecter ben celui ci part du salon ou je tape la commande au lieu de part sur le salon que j'ai specifier.

voici le code :

Code :

set nom_robot "***"
set salon_robot "#test"
set password_robot "*****"
set owner "monpseudo"


#########################
## Liste des commandes ##
#########################

#Ajout/suppression d'un salon pour le robot
bind pub - !unassign unassign
proc unassign {nick host hand chan text} {
    global botnick unassign owner
        foreach pseudo $owner {
if {[validchan $chan]}
        channel remove $chan
        set chan [join [lrange [split $text] 0 0]]
        putquick "NOTICE $owner :Je suis bien partie de $chan"
        }
}

bind pub - !assign assign
proc assign {nick host hand chan text} {
    global botnick assign owner
    foreach pseudo $owner {
        set chan [join [lrange [split $text] 0 0]]
        channel add $chan
        putquick "NOTICE $owner : $botnick a bien été atribué au salon $chan "
        }
}

Cordialement