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


revenir sur sujet fermé (compteur de kick)
#1
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
}

Ce script remet le compteur a zero a chaque restart.

et je voudrais savoir que modifié pour que ce compteur soit intégrer dans l'eggdrop lui meme, c'est a dire a chaque fois quil kick acrémenter le compteur de +1

merci
#2
J'ai donné la solution sur Compteur join, pour un fonctionnement / comptage par canal.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#3
je parle pas de salon mais de remise a zero du compteur apres un restart
#4
Oui, et dans le thread pré-cité, il y a tout pour faire un comptage qui n'est pas remis à zéro, mais par canal, donc pas global.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#5
oui facile quand on connais la programmation
sans explication je vois pas comment je pourrais comprendre quelque chose que je ne comprends pas...
se mettre à la place des utilisateur lambda serait pas mal non plus
#6
Mais tu ne sembles pas faire le moindre effort non plus.
Je vais te détailler le script précédent ligne par ligne, à toi d'utiliser les éléments que je vais te donner.


tcl
# on crée le réglage "jcpt" (un entier) dans les propriétés des canaux
setudef int jcpt
 
# Déclencheur sur un join, qui appelle la procédure joinc
bind join - * joinc
 
# déclaration de la procédure joinc, avec tout les paramètres obligatoires
# voir http://wiki.eggdrop.fr/Binds#JOIN
proc joinc {nick uhost handle chan} {
    # Si la personne qui entre est l'eggdrop, on ne compte pas, on sort de la procédure
    if {[string tolower $nick] == [string tolower $::botnick] } { return 0 }
    # On met dans $cpt la valeur qui est dans le réglage jcpt du canal
    # (si elle n'existe pas, elle donne 0, c'est parfait)
    set cpt [channel get $chan jcpt]
    # on incrémente $cpt de 1
    incr cpt
    # on enregistre jcpt en lui donnant la valeur de $cpt
    channel set $chan jcpt $cpt
    # on annonce en notice la valeur de jcpt
    putserv "NOTICE $nick :Tu es le N°[channel get $chan jcpt]"
    # on sort de la procédure
    return 1
}
 
# Déclencheur sur !compteur tapé en canal qui appelle joindisp
bind pub - "!compteur" joindisp
 
# déclaration de la procédure joindisp, avec tout les paramètres obligatoires
# voir http://wiki.eggdrop.fr/Binds#PUB
proc joindisp {nick uhost handle chan args} {
    # On annonce en canal la valeur de jcpt pour le canal
    putserv "PRIVMSG $chan :Il y a eu [channel get $chan jcpt] entrées sur $chan"
    # on sort de la procédure
    return 1
}


Voila, je ne peux pas détailler plus, donc à toi d'adapter ça pour le comptage de kicks.

Tu peux aussi t'appuyer sur http://wiki.eggdrop.fr/Tcl-commands pour comprendre les setudef, channel set et channel get.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] API JSON compteur utilisateurs bodtx 11 3,830 30/05/2019, 19:14
Last Post: bodtx
  [Bug] Soucis avec un tcl Dark.tcl de Kyrien d'après la création de GeoZzZ [Sujet Reformulé] KeeViiNou 2 3,328 24/02/2017, 10:59
Last Post: KeeViiNou
  Compteur join Yakka 9 5,780 21/09/2014, 15:51
Last Post: Yakka
  [Demande] Script 'piège' (Kick à la demande avec compteur de victime) Utas 6 7,061 21/12/2011, 11:24
Last Post: loulou7593
  Compteur de mots heretoc 9 8,495 18/10/2011, 22:51
Last Post: djkenny
  Forum+Nouveau Sujet+Bot+Salon Behemoth 3 3,421 07/02/2010, 01:09
Last Post: Merwin

Forum Jump:


Users browsing this thread: 1 Guest(s)