Communauté Eggdrop
Compteur join - Version imprimable

+- Communauté Eggdrop (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)
+--- Sujet : Compteur join (/showthread.php?tid=1561)

Compteur join - Yakka - 21/09/2014

Bonjour,

Je suis à la recherche d'un TCL qui compte les entrées sur un salon
J'ai bien trouvé un script mais il ne compte que les pseudo différent
et je voudrais qu'il compte toutes les entrées.

Avec un affichage en notice pour l'utilisateur qui entre sur le salon
et avec une commande !compteur a taper en salon

merci

RE: Compteur join - CrazyCat - 21/09/2014

Je pense que si tu avais un peu cherché sur le forum et le wiki, tu aurais trouvé comment faire ça.

Je viens de le mettre sur http://tools.eggdrop.fr/pasteme/view/d182ebd6 :
tcl
set jc "#toto"
set jcpt 0
 
bind join - * joinc
 
proc joinc {nick uhost handle chan} {
   if {[string tolower $chan] != [string tolower $::jc]} { return 0 }
   if {[string tolower $nick] == [string tolower $::botnick] } { return 0 }
   incr ::jcpt
   putserv "NOTICE $nick :Tu es le N°$::jcpt"
   return 1
}
 
bind pub - "!compteur" joindisp
proc joindisp {nick uhost handle chan args} {
   if {[string tolower $chan] != [string tolower $::jc]} { return 0 }
   putserv "PRIVMSG $chan :Il y a eu $::jcpt entrées sur $chan"
   return 1
}




RE: Compteur join - Yakka - 21/09/2014

(21/09/2014, 11:10)CrazyCat a écrit : Je pense que si tu avais un peu cherché sur le forum et le wiki, tu aurais trouvé comment faire ça.

Je viens de le mettre sur http://tools.eggdrop.fr/pasteme/view/d182ebd6 :
tcl
set jc "#toto"
set jcpt 0
 
bind join - * joinc
 
proc joinc {nick uhost handle chan} {
   if {[string tolower $chan] != [string tolower $::jc]} { return 0 }
   if {[string tolower $nick] == [string tolower $::botnick] } { return 0 }
   incr ::jcpt
   putserv "NOTICE $nick :Tu es le N°$::jcpt"
   return 1
}
 
bind pub - "!compteur" joindisp
proc joindisp {nick uhost handle chan args} {
   if {[string tolower $chan] != [string tolower $::jc]} { return 0 }
   putserv "PRIVMSG $chan :Il y a eu $::jcpt entrées sur $chan"
   return 1
}


Bonjour,
J'ai chercher dans le forum mais avec le mot clé "compteur" et non "counter"
Désolé

Merci pour ta réponse.

RE: Compteur join - Yakka - 21/09/2014

(21/09/2014, 11:25)Yakka a écrit :
(21/09/2014, 11:10)CrazyCat a écrit : Je pense que si tu avais un peu cherché sur le forum et le wiki, tu aurais trouvé comment faire ça.

Je viens de le mettre sur http://tools.eggdrop.fr/pasteme/view/d182ebd6 :
tcl
set jc "#toto"
set jcpt 0
 
bind join - * joinc
 
proc joinc {nick uhost handle chan} {
   if {[string tolower $chan] != [string tolower $::jc]} { return 0 }
   if {[string tolower $nick] == [string tolower $::botnick] } { return 0 }
   incr ::jcpt
   putserv "NOTICE $nick :Tu es le N°$::jcpt"
   return 1
}
 
bind pub - "!compteur" joindisp
proc joindisp {nick uhost handle chan args} {
   if {[string tolower $chan] != [string tolower $::jc]} { return 0 }
   putserv "PRIVMSG $chan :Il y a eu $::jcpt entrées sur $chan"
   return 1
}


Bonjour,
J'ai chercher dans le forum mais avec le mot clé "compteur" et non "counter"
Désolé

Merci pour ta réponse.

Sauf que quand je fais un rehash le compteur se remet à zéro
donc je pense avec une inscription dans une base de donnée serait le mieux
Merci

RE: Compteur join - CrazyCat - 21/09/2014

Voici une petite modification qui n'utilise non pas une base de données mais les informations internes du canal : http://tools.eggdrop.fr/pasteme/view/41cc5118

RE: Compteur join - Yakka - 21/09/2014

Si je veux remettre le compteur a zero je dois faire comment ?

Merci a toi

RE: Compteur join - CrazyCat - 21/09/2014

Code :
.tcl chanset #toncanal jcpt 0


RE: Compteur join - Yakka - 21/09/2014

une dernière chose si je veux que ça fonctionne sur plusieurs salon

set jc "#toto #toto2"
set jc "#toto, #toto2"

ne fonctionne pas

Merci

RE: Compteur join - CrazyCat - 21/09/2014

Normal, tu as demandé "sur un canal".
Mets en commentaire les lignes suivantes pour que le script fonctionne sur tous les canaux.
tcl
if {[string tolower $chan] != [string tolower $::jc]} { return 0 }




RE: Compteur join - Yakka - 21/09/2014

Merci