# Fun v1.1
# Neon's Web (http://www.eggdrop.online.fr)
# by Neon (chris.neon@bigfoot.com)
#####################################################################
## Configuration du Script ##########################################
#####################################################################
# Anti flood sur les commandes du Bot x:y (x=nombre de fois, y=secondes) :
set fun(flood) 50:10
# Ignorer l'utilisateur après son flood (0=non, 1=oui) :
set fun(ignore) 1
# Si oui, combien de temps (en minutes) :
set fun(ignoretime) 1
# Laisser faire les utilisateurs ayant certains flags :
set fun(ignflags) "fmnov|fmnov"
## Notices d'accueil ################################################
#####################################################################
# Envoyer un message d'accueil (0=non, 1=oui) :
set fun(accueil) 1
#ici on met entre les parenthèse les pseudos des membres auxquels le bot ne doit par repondre lorsqu'ils disent bonjour ou autre salutations.
set pseudo(alex1) ""
set pseudo(alex20) ""
set pseudo(pappy) ""
set salon(#latelierwebphoto) ""
# Editer les mots auxquels le bot doit répondre :
bind pub -|- hello fun:pub:bonjour
bind pub -|- salut fun:pub:bonjour
bind pub -|- slt fun:pub:bonjour
bind pub -|- coucou fun:pub:bonjour
bind pub -|- bonjour fun:pub:bonjour
bind pub -|- re fun:pub:bonjour
bind pub -|- oyo fun:pub:bonjour
bind pub -|- bjour fun:pub:bonjour
bind pub -|- lut fun:pub:bonjour
bind pub -|- kikoo fun:pub:bonjour
bind pub -|- allo fun:pub:bonjour
bind pub -|- lo fun:pub:bonjour
bind pub -|- yepyep fun:pub:bonjour
bind pub -|- yo fun:pub:bonjour
bind pub -|- ave fun:pub:bonjour
bind pub -|- plouf fun:pub:bonjour
bind pub -|- salutations fun:pub:bonjour
bind pub -|- bye fun:pub:bonjour
bind pub -|- plop fun:pub:bonjour
bind pub -|- bonsoir fun:pub:bonjour
# Réponses à l'utilisateur :
set bonjour(msgs) {
"Bonjour"
"Slt"
"Lut"
"Ahhh voila"
"Hi"
"Salut"
"Coucou"
"Yo"
"Tiens v'la"
"lo"
"yo"
"yep"
"jour"
"bjour"
"lu"
"alllo"
"Aaaaaluuuu"
"salllllut"
"Chalu......tier!"
"Te voila enfin! lu!"
"J'avais envie de te voir toi!"
"Tiens, justement, je te cherchai...lu"
"Lu... tu viens à l'apéro dimanche?"
"Gluk!"
}
## Réponses au nick du bot ##########################################
#####################################################################
bind pubm -|- *Symphonie* fun:pub:bot
bind pubm -|- *Symphony* fun:pub:bot
bind pubm -|- *Snap_shot* fun:pub:bot
set bot(msgs) {
"Je peux vous aider ?!"
"J'ai peur d'etre indisponible en ce moment meme :)"
"Oui, c'est bien moi :)"
"Faudrais que je mettes le chauffage en marche!"
"Tu es pour ou contre l'Euro à table?!"
"Oui oui j'arrive !!!"
"Mais qui cela pourrai t il bien être?"
"Et oui je suis la, comme toujours!"
"Ben la je suis de bonne humeur!"
"Toujours la moa :)"
"Plait il ?!?"
"J'en connais qui abusent!"
"Je sais pas vous, mais moi j'ai chaud !"
"Je suis la, alala :)"
"Des fois je me dis que... Non laissez tomber !"
"Non mais qu'est-ce que j'ai encore fait ?"
"C'est moi!"
"Mouais... la je suis assez d'accord quand meme !"
"Arf, moui, si on veut...."
"Euh..., c'est a moi que tu parles la ?!?"
"C'est cela oui ....."
"mais encore ?"
" gnian gnian gnian"
"oui?"
"nan!"
"Je suis AWAY !!!!!!"
"hein ?"
"j'ai rien compris"
"c clair"
"et toi ?"
"Yep!"
"Je me demande ce qu'on me veut encore ! Arf... lol"
"Sacré toi, tu peux plus te passer de moi, hein ? :)"
"Oui, et la marmotte elle met le chocolat dans le papier d'alu!"
"Ben... Appui sur alt+F4 pour résoudre ton problème"
"On parle de moi là non ?!"
"Tsss j'veux dormir moi !"
"Shuttttttt ! Mon petit tout s'est endormi..."
"Attends un peu, je peux pas taper et boire une Kro en même temps"
"Je finis mon jogging et j'arrive"
"De toutes les manières, la patience devrait être innée..."
"mouarf ...."
"tsssssssss ....."
"n'importenawak"
"mais encore ... ?"
"y'en a que ca derange ?"
"il faut jamais dire jamais..."
"bon moi si c comme ca je repars..."
"mouahahahahaha ...."
"hihihihi"
"huhuhu"
"koi encore !!!!!"
"hum"
"=o)"
"kkwaaaaaaa ??"
"vi ?"
"viens en pv stp :))"
"tu m'as l'air d'etre un gros curieux toi"
"arrete de faire le malin..."
"si tu m'embetes, mes potes IRCoP vont venir te botter les fesses!"
"et alors? C'est parce que je suis de sexe feminin que je suis pas un bon bot?"
"grmf ?"
"Was?"
"ahhhhhhhhhhhh ...."
"hehehehe"
"...."
";)"
"=]"
"HUuum ...."
"hein ?????"
"Ici, Max, je t'ecoute Junior!"
"commmment ?"
"tu disais ?"
"Un jour mon prince viendra...mais c'est pas toi!"
"Je suis une sainte...et alors? j'assume..."
"Ma maman m'a toujours dit de pas adresser la parole aux etrangers"
"Mais pourtant il faut vivre ou survivre"
"Non non, c'est trop tard"
"plouf"
}
#####################################################################
#####################################################################
#####################################################################
proc fun:flood:init {} {
global fun funflood
set fun(floodnum) [lindex [split $fun(flood) :] 0]
set fun(floodtime) [lindex [split $fun(flood) :] 1]
set i [expr $fun(floodnum) - 1]
while {$i >= 0} {
set funflood($i) 0
incr i -1
}
}
fun:flood:init
proc fun:flood {nick uhost} {
global fun funflood botnick
if {$fun(floodnum) == 0} {
return 0
}
set i [expr $fun(floodnum) - 1]
while {$i >= 1} {
set funflood($i) $funflood([expr $i - 1])
incr i -1
}
set funflood(0) [unixtime]
if {[expr [unixtime] - $funflood([expr $fun(floodnum) - 1])] <= $fun(floodtime)} {
if {$fun(ignore)} {
newignore [join [maskhost *!*[string trimleft $uhost ~]]] $botnick "Flood" $fun(ignoretime)
}
return 1
} {
return 0
}
}
proc fun:pub:bot {nick uhost hand channel arg} {
global fun bot botnick owner
if ![matchattr $nick $fun(ignflags) $channel] {
if {[fun:flood $nick $uhost]} {
return 0
}
}
if ![string length $arg] {
putserv "PRIVMSG $channel :Merci $nick, c'est gentil! :)"
return 1
} elseif {[string tolower $nick] == [string tolower $owner]} {
putserv "PRIVMSG $channel :oui Maître! :)"
return 1
} else {
putserv "PRIVMSG $channel :[lindex $bot(msgs) [rand [llength $bot(msgs)]]]"
return 1
}
}
bind join -|- * fun:join
proc fun:join {nick uhost hand channel} {
global fun accueil botnick
if $channel != #latelierwebphoto {
if {$fun(accueil)&&($nick != $botnick)} {
puthelp "NOTICE $nick :Bienvenue sur $channel. Pour avoir la liste des poppies, tapez !liste sur le salon "
return 1
}}}
proc fun:pub:bonjour {nick uhost hand channel arg} {
global bonjour fun botnick owner pseudo
if ![matchattr $nick $fun(ignflags) $channel] {
if {[fun:flood $nick $uhost]} {
return 0
}
}
if ![info exists pseudo($nick)] {
if {(![matchattr $hand b]) && ($nick != $botnick)} {
if ![string length $arg] {
puthelp "PRIVMSG $channel :[lindex $bonjour(msgs) [rand [llength $bonjour(msgs)]]] $nick"
return 1
}
}
}}