Message automatique

[aliasangelius]

Salut Poto,

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

tclcopier

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