Communauté sur les Eggdrops - Community about Eggdrops
Message automatique - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (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)
+--- Thread: Message automatique (/showthread.php?tid=1311)



Message automatique - heretoc - 03/02/2013

Bonjour,
J'ai un code "fonctionnel" sur un eggdrop qui lance un message toute les X minutes sur le salon prédéfini, hors mon soucis est que si je le passe sur un Windrop cela bug totalement et la phrase qui devrait être dite une fois est flood.
Je ne comprend pas trop pourquoi sous un eggdrop cela marche et pas sur un windrop si quelqu'un peu m'expliquer cela serais adorable ^^

Voici le code

tcl
#Salon ou le message va etre transmis
set salon_robot "#accueil"
# Message dit automatiquement toutes les X minutes : 120 (2h00)
set timerauto 120
# Liste des messages dit automatiquement 
set textauto {
"Hey coucou bienvenue par ici"
}
 
if {[string compare [string index $::timerauto 0] "!"] == 0} { set timer [string range $::timerauto 1 end] } { set timer [expr $::timerauto * 60] }
if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }
proc go {} {
set phrase [lindex $::textauto [rand [llength $::textauto]]]
foreach chan $::salon_robot {
foreach line $::textauto { 
putserv "PRIVMSG $chan : $phrase"
}
}
if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $::timer go }
}


A partir d'un eggdrop cela donne :

Code:
Hey coucou bienvenue par ici
A partir d'un windrop cela donne :

Code:
Hey coucou bienvenue par ici
Hey coucou bienvenue par ici
Hey coucou bienvenue par ici
Hey coucou bienvenue par ici
Merci d'avance de l'aide


RE: Message automatique - aliasangelius - 06/03/2013

Salut Poto,

Tiens au cas ou sa peut t'intêresser un code a l'arrache..


tcl
#########
# Animation #
#########
 
proc regul {arg} {
set arg [stripcodes abcugr $arg]
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
set arg [stripcodes abcugr $arg]
return $arg
}
 
bind EVNT - init-server proc:initjeu
proc proc:initjeu { type } {
 
#### salon sur lequel se déroule le jeu #####
 
set ::salon "#accueil"
 
#############################################
 
#### temps minimum entre deux phrases #####
 
set ::temps "15"
 
########################
 
#### temps aléatoire max à ajouter au temps minimum ####
 
set ::add_temps "30"
 
############################################
 
#### Phrases à faire répéter #####
 
 
set ::phrases {
 
    "Hey coucou bienvenue par ici"
 
}
 
############################################
####### Fin de la config ###################
 
set ::active 0
}
 
bind pub o|o !active onn
proc onn { nick uhost hand chan arg } {
if [info exists ::active]&&($::active==1) {
putserv "PRIVMSG $::salon :Phrases déjà activé."
return
}
putserv "PRIVMSG $::salon :Phrases activé !"
active
}
 
bind pub o|o !inactive off
proc off { nick uhost hand chan arg } {
if ![info exists ::active]||($::active==0) {
putserv "PRIVMSG $::salon :Phrases est déjà déactivé !"
return
}
putserv "PRIVMSG $::salon :Phrases désactivé !"
set ::active 0
foreach t [timers] {
if {[lindex $t 1] == " active "} {
killtimer [lindex $t 2]
}}}
 
proc active {} {
set ::active 1
set ::phrase [lindex $::phrases [rand [llength $::phrases]]]
set ::kickerz ""
set ::voicerz ""
putserv "PRIVMSG $::salon :\037\0036$::phrase\037\0036 !?"
set ::act 1
timer [expr $::temps + [rand $::add_temps]] { active }
}




RE: Message automatique - heretoc - 08/03/2013

Merci de ce code, mais j'aimerais bien finir ce que j'ai nettoyer
Je ne comprend toujours pas pour le Windrop .. j'ai aucune erreur en pl, même en ajoutant des putlogs


RE: Message automatique - aliasangelius - 08/03/2013

L'erreur viendrais pas du fait que tu ne kill pas ton timer par hasard ?
Sinon comme je t'es dit hier il faudrais voir niveau d'un return
Avec un return dans ce genre là :


tcl
#Salon ou le message va etre transmis
set salon_robot "#accueil"
# Message dit automatiquement toutes les X minutes : 120 (2h00)
set timerauto 120
# Liste des messages dit automatiquement 
set textauto {
    "Hey coucou bienvenue par ici"
}
 
proc go {} {
    set phrase [lindex $::textauto [rand [llength $::textauto]]]
    foreach chan $::salon_robot {
        foreach line $::textauto {
            putserv "PRIVMSG $chan : $phrase"
            return 0
        }
    }
    if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $::timer go }
        if {[string compare [string index $::timerauto 0] "!"] == 0} { set timer [string range $::timerauto 1 end] } { set timer [expr $::timerauto * 60] }
}


Moi je le ferait comme ça ton code poto ensuite je suis pas sûr c'est à tester :)