Job TCL V1

# Fin v1
# caline
# par caline
# 14/11/2007
#####################################################################
## Configuration du Script ##########################################
#####################################################################
# Anti flood sur les commandes du Bot x:y (x=nombre de fois, y=secondes) :
set job(flood) 5:10
# Ignorer l'utilisateur après son flood (0=non, 1=oui) :
set job(ignore) 0
# Si oui, combien de temps (en minutes) :
set job(ignoretime) 0
# Laisser faire les utilisateurs ayant certains flags :
set job(ignflags) "fmnov|fmnov"

## Réponses aux !job ##############################################
#####################################################################
# Channels où le bot répondra :
set job(chans) "#accueil"
# Editer les mots auxquels le bot doit répondre :
bind pub - !job job:pub
# Réponses à l'utilisateur :
set job(msgs) {
"10Ton job sera:14Inspecteur des finances."
"10Plustard tu sera un grand Root d'un tchat irc 14avec plus de 1000 users."
"10Ton job sera :10catcheur proffessionnel."
"10Tu seras un grand dans 14le monde de la mode."
"10Tu seras tres riche 14car tu auras decouvert comment guérrir le cancer."
"10Ton job sera 14Président de la république."
"10Tu seras plus tard un(e) 14pompier proffessionnel."
"10La chance te souri tu decouvriras 14un puit de petrole."
"10Ton job sera 14chomeur proffessionnel."
"10Ton travail a toi consistera sera 14interprete de langue."
"10Ton job sera 14laveur de chiottes."
"10Tu seras un tres 14grand acteur."
"10Ton travail plus tard sera 14journaliste dans les pays du tiers monde."
"10Ton job a toi sera 14arnaqueur."
"10Ton job a toi sera de rester chez toi, 14d'autres travailleront pour toi"
"10Ton travail sera 14une grosse tete dans le monde de la drogue."
"10Ton travail sera 14comique."
"10Tu seras 14croc mort."
"10Ton job sera ce que tu décides de faire, tous te réussiras."
"10Tu seras 14un con toute ta vie."
"10Ton job sera 14Policier."
"10Tu seras 14un grand gangster."
"10Ton travail sera 14pilote d'avion de chasse a mouche."
"10Tu seras une 14tarlouze plustard"
"10Ton job sera 14Chauffeur poid lourd"
"10Tu seras un grand acteur dans la pornographie"
}
proc job:pub {nick uhost hand channel arg} {
global job job botnick
if ![matchattr $nick $job(ignflags) $channel] {
if {[job:flood $nick $uhost]} {
return 0
}
}
if {(([lsearch -exact [string tolower $job(chans)] [string tolower $channel]] != -1) || ($job(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
if ![string length $arg] {
puthelp "PRIVMSG $channel :[lindex $job(msgs) [rand [llength $job(msgs)]]] $nick"
return 1
}
}
}
#####################################################################
#####################################################################
#####################################################################
proc job:flood:init {} {
global job jobflood
set job(floodnum) [lindex [split $job(flood) :] 0]
set job(floodtime) [lindex [split $job(flood) :] 1]
set i [expr $job(floodnum) - 1]
while {$i >= 0} {
set jobflood($i) 0
incr i -1
}
}
job:flood:init
proc job:flood {nick uhost} {
global job jobflood botnick
if {$job(floodnum) == 0} {
return 0
}
set i [expr $job(floodnum) - 1]
while {$i >= 1} {
set jobflood($i) $jobflood([expr $i - 1])
incr i -1
}
set jobflood(0) [unixtime]
if {[expr [unixtime] - $jobflood([expr $job(floodnum) - 1])] <= $job(floodtime)} {
if {$job(ignore)} {
newignore [join [maskhost *!*[string trimleft $uhost ~]]] $botnick "Flood" $job(ignoretime)
}
return 1
} {
return 0
}
}

putlog "modfié par Aide-tcl 03/12/2007!"