Poster une réponse  Créer un sujet 
[Demande] Script 'piège' (Kick à la demande avec compteur de victime)
Auteur Message
Utas
Junior Member
**


Messages : 6
Groupe : Registered
Inscription : Jan 2010
Statut : Hors ligne
Message : #1
[Demande] Script 'piège' (Kick à la demande avec compteur de victime)

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.

24/04/2010 01:17
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
Héros
Junior Member
**


Messages : 3
Groupe : Registered
Inscription : Sep 2009
Statut : Absent
Message : #2
RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime)

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

24/04/2010 03:58
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
Utas
Junior Member
**


Messages : 6
Groupe : Registered
Inscription : Jan 2010
Statut : Hors ligne
Message : #3
RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime)

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

24/04/2010 13:24
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
CrazyCat
Administrator
*******


Messages : 1,396
Groupe : Administrators
Inscription : Apr 2004
Statut : Hors ligne
Message : #4
RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime)

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
}


Trucs et astuces en programmation - Je suis actuellement
26/04/2010 08:35
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
loulou7593
Member
***


Messages : 198
Groupe : Registered
Inscription : Apr 2008
Statut : Hors ligne
Message : #5
RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime)

CrazyCat a écrit :
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

20/12/2011 22:35
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
CrazyCat
Administrator
*******


Messages : 1,396
Groupe : Administrators
Inscription : Apr 2004
Statut : Hors ligne
Message : #6
RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime)

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
}


Trucs et astuces en programmation - Je suis actuellement
21/12/2011 10:08
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
loulou7593
Member
***


Messages : 198
Groupe : Registered
Inscription : Apr 2008
Statut : Hors ligne
Message : #7
RE: [Demande] Script 'piège' (Kick à la demande avec compteur de victime)

CrazyCat a écrit :
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

21/12/2011 10:24
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
Poster une réponse  Créer un sujet 

Discussions probablement similaires...
Discussion: Auteur Réponses: Affichages: Dernier message
  Enregistrer dans un fichier une demande ZoZo 3 111 11/05/2012 16:52
Dernier message: alias_angelius
  Compteur de mots heretoc 9 288 18/10/2011 21:51
Dernier message: djkenny
  Demande d'information heretoc 8 238 07/06/2011 14:43
Dernier message: djkenny
  [Resolu demande] Google TCL alanfollow 2 419 23/01/2011 20:34
Dernier message: ealexp
  tcl demande de bot chris620s 19 532 01/12/2010 19:51
Dernier message: chris620s
  Demande d'explication heretoc 5 439 29/01/2010 13:53
Dernier message: CrazyCat
  Mon bot me fais une demande de dcc chat loulou7593 7 448 08/12/2009 13:19
Dernier message: snoopy
  Effectuer une demande de ctcp chat via l'egg snoopy 4 583 19/04/2009 19:46
Dernier message: snoopy
  demande aide script tcl Cyril 3 683 07/03/2009 14:31
Dernier message: Cyril
  Message de kick Ban avec durée de temps Julien23 1 501 04/03/2009 13:35
Dernier message: CrazyCat

Voir une version imprimable
Envoyer ce sujet à un ami
S'abonner au sujet | Ajouter le sujet aux favoris

Aller à :