26/09/2014, 08:49
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.
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.
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.