Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


[Demande] Script 'piège' (Kick à la demande avec compteur de victime)
#1
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.
#2
Un random sur une personne ? ou c'est la personne qui a lancé XXX se retrouve kické ?
#3
La personne qui lance la commande 'piege' en l'occurence !Cerise dans l'exemple.
#4
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
}

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#5
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
#6
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
}

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#7
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


Possibly Related Threads…
Thread Author Replies Views Last Post
  probleme avec le script Pooshy.tcl LTEF 18 334 22/06/2022, 12:49
Last Post: CrazyCat
  Demande script Planning deejay-wilo 18 5,482 07/12/2021, 14:31
Last Post: CrazyCat
  [Demande] API JSON compteur utilisateurs bodtx 11 3,773 30/05/2019, 19:14
Last Post: bodtx
  [Résolu] Problème avec le script autolog T3nS 2 3,226 06/12/2017, 16:08
Last Post: T3nS
  [Bug] Problème avec le script zurl.tcl T3nS 0 3,059 03/08/2017, 19:40
Last Post: T3nS
  Demande de tcl detection de flood Epsilon 5 3,903 05/07/2017, 13:43
Last Post: MenzAgitat
Big Grin demande d'aide pour codage KeeViiNou 4 4,588 04/07/2016, 07:55
Last Post: CrazyCat
  [Demande] Demande de tcl vor4x 3 4,064 13/02/2015, 02:30
Last Post: ZarTek
  [Script] Demande d'avis sur l'Anti pub V 2.1 AyRh0nS 5 4,529 27/10/2014, 18:50
Last Post: MenzAgitat
  [Demande] Demande tcl pour faire parler eggdrop Yakka 9 8,450 26/09/2014, 14:10
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)