# 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
}