+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : [Résolu] aide script assign (/showthread.php?tid=1456)
aide script assign - bouba89 - 02/11/2013
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
RE: aide script assign - CrazyCat - 04/11/2013
Tu as inversé deux lignes, tu fais d'abord un channel remove $chan, avec $chan qui est le canal où la commande a été tapée, et ensuite tu affectes à $chan l'argument de la commande.
Tu devrais utiliser des variables distinctes pour mieux voir l'erreur:
tcl
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
# on crée $cleave qui est le canal à quitter
set cleave [join [lrange [split $text] 0 0]]
foreach pseudo $owner {
if {[validchan $cleave]}
channel remove $cleave
putquick "NOTICE $owner :Je suis bien partie de $cleave"
}
}
bind pub - !assign assign
proc assign {nick host hand chan text} {
global botnick assign owner
# on crée $cjoin qui est le canal à rejoindre
set cleave [join [lrange [split $text] 0 0]]
foreach pseudo $owner {
channel add $cleave
putquick "NOTICE $owner : $botnick a bien été atribué au salon $cleave"
}
}
Et il y a une autre erreur de logique dans ton script: tu boucles sur les owners pour les prévenir, ok, mais tu fais le channel add/remove dans cette boucle. Donc tu le fais autant de fois qu'il y a un owner ?
Voici ce que je ferai plutôt:
tcl
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
# on crée $cleave qui est le canal à quitter
set cleave [join [lrange [split $text] 0 0]]
if {[validchan $cleave]} {
# le canal cible est valide, on le retire
channel remove $cleave
foreach pseudo $owner {
putquick "NOTICE $pseudo:Je suis bien partie de $cleave"
}
} else {
putserv "NOTICE $nick :Je ne connais pas le canal $cleave"
}
}
bind pub - !assign assign
proc assign {nick host hand chan text} {
global botnick assign owner
# on crée $cjoin qui est le canal à rejoindre
set cleave [join [lrange [split $text] 0 0]]
channel add $cleave
foreach pseudo $owner {
putquick "NOTICE $pseudo: $botnick a bien été atribué au salon $cleave"
}
}
RE: aide script assign - bouba89 - 06/11/2013
merci de ta reponse CraZyCat je vai regarder de plus pres tout ce que tu m'as dit :)
RE: aide script assign - bouba89 - 11/11/2013
CrazyCat pourrait mettre en resolu le sujet s'il te plait
merci de ton aide :)