Communauté sur les Eggdrops - Community about Eggdrops
[Demande] Script 'piège' (Kick à la demande avec compteur de victime) - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (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)
+--- Thread: [Demande] Script 'piège' (Kick à la demande avec compteur de victime) (/showthread.php?tid=661)



[Demande] Script 'piège' (Kick à la demande avec compteur de victime) - Utas - 24/04/2010

Salutations,

N'étant pas très douée dans le codage de scripts TCL je m'en remet à vous pour savoir si tout d'abord c'est réalisable et si ensuite une âme charitable veuillent bien m'aider. J'ai effectuée plusieurs recherches via Google, mais sans succès malheureusement.

Ce que je souhaite est très simple, créer une commande anodine du genre "!Cerise" qui aurait pour fonction de kick l'utilisateur avec comme commentaire de kick le nombre de victimes.

Exemple :
<XXX>!Cerise
XXX a été kick par BOT (Victime N°##)


Voilà, merci d'avance.


RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime) - Héros - 24/04/2010

Un random sur une personne ? ou c'est la personne qui a lancé XXX se retrouve kické ?


RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime) - Utas - 24/04/2010

La personne qui lance la commande 'piege' en l'occurence !Cerise dans l'exemple.


RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime) - CrazyCat - 26/04/2010

Donc, un truc du genre:

tcl
set nbk 0
bind pub - "!Cerise" piege:kick
proc piege:kick { nick uhost handle chan args } {
   incr $::nbk
   set reason "Victime N°$nbk"
   putkick $chan $nick $reason
   return 1
}




RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime) - loulou7593 - 20/12/2011

CrazyCat Wrote:Donc, un truc du genre:

tcl
set nbk 0
bind pub - "!Cerise" piege:kick
proc piege:kick { nick uhost handle chan args } {
   incr $::nbk
   set reason "Victime N°$nbk"
   putkick $chan $nick $reason
   return 1
}

Je ne sais pas si la personne a reussis ou trouvé ce qu'elle voulais, mais j'ai testé ce code et de mon coté ca me donne cette erreur en PL


Code:
[22:33:18] Tcl error [piege:kick]: can't read "nbk": no such variable



RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime) - CrazyCat - 21/12/2011

Oui, il y a deux petits bugs :

tcl
set nbk 0
bind pub - "!Cerise" piege:kick
proc piege:kick { nick uhost handle chan args } {
   incr ::nbk
   set reason "Victime N°$::nbk"
   putkick $chan $nick $reason
   return 1
}




RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime) - loulou7593 - 21/12/2011

CrazyCat Wrote:Oui, il y a deux petits bugs :

tcl
set nbk 0
bind pub - "!Cerise" piege:kick
proc piege:kick { nick uhost handle chan args } {
   incr ::nbk
   set reason "Victime N°$::nbk"
   putkick $chan $nick $reason
   return 1
}

Testé et fonctionnel.

SUJET RESOLU