+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : bind dans une $var ? (/showthread.php?tid=1126)
bind dans une $var ? - m4st3r - 16/01/2012
Bonjour, j'ai une question qui peut sembler bete mais y'a t'il moyen de savoir quel bind a ete utiliser et de le set dans une $var ?
J'ai besoin de setter le bind utiliser dans une var pour l'envoyer dans une autre fonction >
quelque chose qui ressemblerais a ceci:
tcl
bind pub - !test pub:test
proc pub:test {nick uhost hand chan arg} {
set bind <c'est ici je je bloque !>
putlog "$nick a utiliser $bind
}
Je sais je pourrais simplement faire set bind "!test" mais je veux savoir s'il est possible de le faire autrement
Merci !
RE: bind dans une $var ? - CrazyCat - 16/01/2012
J'ai bien peur que tu ne puisses pas, d'autant plus que ta procédure dépend du bind.
RE: bind dans une $var ? - djkenny - 16/01/2012
salut,
regardes du coté de la commande "lastbind"
édit: c'est pas la commande "lastbind" mais la variable globale "$lastbind"
RE: bind dans une $var ? - CrazyCat - 16/01/2012
Bonne réponse de djkenny:
eggheads a écrit :10. Global variables
lastbind
Value: the last command binding which was triggered. This allows you to identify which command triggered a Tcl proc.
Module: core
RE: bind dans une $var ? - m4st3r - 16/01/2012
Ah genial, merci beaucoup !
Je vais jeter un oeil et je vous reviens la dessus
RE: bind dans une $var ? - m4st3r - 16/01/2012
He bien merci beaucoup djkenny!
Ca fonctionne nikel.
tcl
bind pub - !test pub:test
proc pub:test {nick uhost hand chan arg} {
putserv "PRIVMSG $chan :Last used bind was $::lastbind by $nick with args $arg"
}
Ce qui me retourne
Citation :[10:44:25] <MyS3lf> !test PATATE
[10:44:25] <Bot> Last used bind was !test by MyS3lf with args PATATE