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


[Demande] aide pour une modification pour whois
#16
J'ai fait un code à http://tools.eggdrop.fr/pasteme/view/f43cf44b

Ca tient en 2 procédures:
- whoisAll est appelée toutes les 5 minutes, elle fait un /whois sur toutes les personnes dans l'userlist de l'eggdrop qui ne sont pas sur le canal,
- whoisInvite réagit au raw 311 (RPL_WHOISUSER)

Deux gros soucis dans ce script simpliste (je ne donne que la mécanique là):
- risque de flood, que ce soit dans les /whois ou dans les réponses serveur,
- aucun contrôle dans la procédure d'invit
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#17
loulou7593 Wrote:Voila en fait ce serais pas mal ca quand la personne se connecte au server que ca lui envoi une invite.
/NOTIFY (commande serveur) peut t'aider.

Mon Eggdrop l'utilise pour réinviter sur un chan les utilisateurs qui partent en ping timeout ou en connection reset by peer aussitôt qu'ils se reconnectent au serveur.
Toute l'actualité de mes scripts ici     (dernière mise à jour le 22/04/2020)

Tout programme comporte au moins un bug et pourrait être raccourci d'au moins une instruction, de quoi l'on peut déduire que tout programme peut être réduit à une seule instruction qui ne fonctionne pas.
#18
Merci pour les réponses, je vais regarder ca.
#19
Merci @ CrazyCat pour le code j'ai testé vite fait,
j'ai juste vu que ca me donnais une erreur en PL
Code:
Tcl error [whoisAll]: can't read "nick": no such variable
.
#20
Il ne faut quand même pas abuser, l'erreur est flagrante quand on a le message et le code: j'ai mis $nick au lieu de $cuser.

Le code corrigé est là pour ceux qui n'auraient pas suivi, mais merci de faire un peu des efforts.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#21
En effet, cela m'apprendra à copier/coller un code sans regarder.
#22
Voila j'ai regardé un peu et j'ai apporté une modif car ca envoyais bien la proc d'invitation mais avec ce format
Code:
Invite envoyée pour \{RadioBot\ Ptitebulle\ LaBulle\ blueirc-36 D8999.abo.wanadoo.fr\ *\ \}\ LaBulle
donc ca n'envoyais pas à la personne.

Voici le tcl.


tcl
# Canal où on doit inviter
    set back "#chan"
 
    # Utilisation d'un bind cron pour faire le /whois
    # toutes les 5 minutes
    bind cron - "*/5 * * * *" whoisAll
    proc whoisAll { mm hh dd mo xx } {
            foreach cuser [userlist] {
               if {![onchan $cuser $::back] } {
                  putserv "WHOIS $cuser"
               }
            }
    }
 
    # Utilisation du raw 311
    bind raw - 311 whoisInvite
    proc whoisInvite {from keyword text} {
	        set nickname [lindex [split $text] 1]
            if {![onchan $nickname $::back] } {
                    putserv "INVITE $nickname $::back"
            }
    }


Et Merci à CrazyCat pour son aide.


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] besoin d'aide pour finaliser berni13 6 1,660 18/11/2020, 00:18
Last Post: berni13
Big Grin demande d'aide pour codage KeeViiNou 4 4,672 04/07/2016, 07:55
Last Post: CrazyCat
  Modifier le script du trivia pour défiler les questions dans l'ordre Mimisth 2 3,549 05/12/2015, 19:45
Last Post: MisterS
  [Demande] Demande tcl pour faire parler eggdrop Yakka 9 8,541 26/09/2014, 14:10
Last Post: CrazyCat
  aide pour un script svp s2drk 3 5,086 11/08/2014, 23:23
Last Post: CrazyCat
  [Résolu] HELP System de link pour les jeux BaGrift 6 5,652 07/08/2014, 15:03
Last Post: BaGrift
  [Demande] Besoin d'aide pour youtubeURL.tcl hades_48 4 5,173 01/07/2014, 15:41
Last Post: hades_48
  [Demande] attendre que l'egg soit posé pour activer un tcl precis cestlemien 6 5,865 11/06/2014, 13:24
Last Post: CrazyCat
  [Résolu] Logs2html pour 1.6.21 sianur 4 4,492 02/06/2014, 13:37
Last Post: sianur
  [Script] liste pseudo pour host Furaxx37 0 3,070 24/04/2014, 11:06
Last Post: Furaxx37

Forum Jump:


Users browsing this thread: 1 Guest(s)