# 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) 5: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) 0

# Editer les messages d'accueil de chaque channel :
set accueil(#Princesse) {
   "Bienvenue sur #Princesse, le Chan de Princesse"
}


## Notices de départ ################################################
#####################################################################

# Envoyer un message lors d'un départ (0=non, 1=oui) :
#set fun(part) 0

# Editer les messages de départ de chaque channel :
#set part(#channel) {
#   "Merci de ta visite sur #channel!"
#}



## Réponses aux salutations #########################################
#####################################################################

# Channels où le bot répondra :
set bonjour(chans) "#princesse #ed2k-divx-france #windrops"

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

# Réponses à l'utilisateur :
set bonjour(msgs) {
   "Hello"
   "Kikoo"
   "Bonjour"
   "Slt"
   "'Lut"
   "Ahhh voila"
   "Hi"
   "PlO_oF"
   "Yeah, Le Come Back du"
   "Salut"
   "Hmm on se Connait ?"
   "Oh non pas"
   "Hé merde, planquez-vous y a"
   "Coucou"
   "Hallo"
   "Bonchour"
   "Hopla"
   "Ca faisait longtemps"
   "Yo"
   "Tiens v'là"
   "lo"
   "yo"
   "yep"
   "jour"
   "Pas envie de dire salut Aujourd'hui !"
   "bjour"
   "lu"
   "alllo"
   "Aaaaaluuuu"
   "kiiikkoooo"
   "kikoo"
   "salllllut"
   "Chalut !"
   "Hey ! Mais t'étais où"
   "Te voilà enfin ! lu"
   "J'avais justement envie de te voir"
   "Tiens, justement, je te cherchais ... lu"
   "Lu... tu viens à l'apéro dimanche ?"
   "PloP !"
}

## Réponses aux Bonapp ##############################################
#####################################################################

# Channels où le bot répondra :
set bonapp(chans) "#princesse #ed2k-divx-france #windrops"

# Editer les mots auxquels le bot doit répondre :
bind pub -|- bapp fun:pub:bonapp
bind pub -|- nappe fun:pub:bonapp
bind pub -|- bap fun:pub:bonapp
bind pub -|- bonap fun:pub:bonapp
bind pub -|- bonapp fun:pub:bonapp

# Réponses à l'utilisateur :
set bonapp(msgs) {
   "Bon Appétit"
   "Dring Dring !! Miam Time Pour"
   "Merci a toi Aussi :)"
   "Te bourre pas le Bide !"
   "Merci bon App' a Toi :p"
   "Merci de même :p"
   "Ahh c'est l'Heure de Manger :D"
   "Miam G Faim moi aussi !"
   "Jme ferai bien un MacBeurKy"
   "Et un Doner Kebab ! Un ! Pour"
   "On mange toujours ensemble"
   "On va manger où ?"
   "T'as raison allons bouffer au Bistrot du coin ;)"
   "Tu m'invites à bouffer ?"
   "Tu Manges quoi ?"
   "Tu manges où ?"
   "T'arretes pas de bouffer toi !"
   "YeaH SOS PiZZa !!"
   "Ah ! On y va ? J'ai réservé le resto au nom de"
   "On se commande un Truc ?"
   "yep, bonapp"
   "On se Tape un Apéro d'Abord ?"
}

## Réponses aux salutations de Départ ###############################
#####################################################################

# Channels où le bot répondra :
set aurevoir(chans) "#princesse #ed2k-divx-france #windrops"

# Editer les mots auxquels le bot doit répondre :
bind pub -|- ciao fun:pub:aurevoir
bind pub -|- bye fun:pub:aurevoir
bind pub -|- goobye fun:pub:aurevoir
bind pub -|- gn fun:pub:aurevoir
bind pub -|- gnite fun:pub:aurevoir
bind pub -|- gn8 fun:pub:aurevoir
bind pub -|- bn8 fun:pub:aurevoir
bind pub -|- bn fun:pub:aurevoir
bind pub -|- a+ fun:pub:aurevoir
bind pub -|- a++ fun:pub:aurevoir
bind pub -|- a+++ fun:pub:aurevoir
bind pub -|- +++ fun:pub:aurevoir
bind pub -|- ++ fun:pub:aurevoir
bind pub -|- + fun:pub:aurevoir

# Réponses à l'utilisateur :
set aurevoir(msgs) {
   "Salut"
   "A plus"
   "Ciao"
   "GoodBye"
   "A Demain"
   "A ++"
   "++"
   "Bye Bye"
   "Bye"
   "Moi aussi je vais y aller"
   "Tu peux me déposer qq part ?"
   "Tchao"
   "Cya"
   "Seen you sOoN"
   "A PloucH"
   "Tu pars déjà ? Bon bah a +"
   "C'est ça casse toi !"
   "A Bientôt"
}

## Réponses au nick du bot ##########################################
#####################################################################

bind pubm -|- *Prince* fun:pub:bot



# Channels où le bot répondra :
set bot(chans) "#ed2k-divx-france #windrops"

set bot(msgs) {
   "Je peux t'aider ? Alors tape !liste ou &list"
   "J'ai peur d'être indisponible en ce moment même :)"
   "Oui, c'est bien moi :)"
   "Faudrais que je mettes le chauffage en marche!"
   "Tu es pour ou contre les blondes au volant ?!"
   "Oui oui j'arrive !!!"
   "Qu'est ce que tu me veux toi ?"
   "T'es amoureux de moi ou je rêve ?"
   "Mais qui cela pourrait-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 je suis toute chaude !"
   "Je suis la, lalala :)"
   "Des fois je me dit que ... Non laissez tomber !"
   "Non mais qu'est-ce que j'ai encore fait ?"
   "C'est moi !"
   "Tu veux que jte kick toi ?"
   "Mouais ... la je suis assez d'accord avec toi !"
   "T'as pas 2 feuilles stp ?"
   "Roule un pet' et fait tourner au lieu de raconter des conneries"
   "Arf, moui, si on veut ..."
   "Euh ..., c'est a moi que tu parles la ?!?"
   "C'est cela oui ....."
   "Comment tu me parles toi ! OH !"
   "mais encore ?"
   "gnian gnian gnian"
   "oui?"
   "nan!"
   "Je suis AWAY !!!!!!"
   "viiii ?"
   "j'ai rien compris"
   "Mais c clair"
   "et toi ?"
   "Yep !"
   "Je me demande ce qu'on me veux encore ! Arf... lol"
   "Sacré toi, tu peux plus te passer de moi, hein ? :)"
   "Oui, et la marmotte elle met le chocolat ds 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 !"
   "Retourne jouer a CS spice de PGM !"
   "Grrrrrrr je suis grrrr !"
   "TG !"
   "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 dérange ?"
   "il faut jamais dire jamais ..."
   "bon moi si c comme ca je trace ..."
   "mouahahahahaha ...."
   "hihihihi"
   "huhuhu"
   "koi encore !!!!!"
   "hum"
   "8o)"
   "kkwaaaaaaa ??"
   "vi ?"
   "viens en pv stp :))"
   "tu aimes les hommes ou les femmes?"
   "tu m'a l'air d'être un gros curieux toi"
   "tu m'a l'air d'être bien con toi"
   "arrete de faire le malin ..."
   "si tu m'embetes, ma Princesse va venir te botter les fesses!"
   "et alors ? C'est parce que je suis de sexe masculin que je suis pas un bon bot?"
   "grmf ?"
   "Was?"
   "ahhhhhhhhhhhh ...."
   "héhéhéhé"
   "...."
   ";)"
   ":)"
   "Hummmmm ...."
   "Hein ?????"
   "Ici, Ze Prince, je t'écoutes NaboT!"
   "It's ME"
   "commmment ?"
   "tu disais ?"
   "Encore un Relou en vue ..."
   "Huston We Have a Problem !"
   "j'ai oublié mon calecon moi ce matin ..."
   "Un jour ma princesse viendra ... mais c'est pas toi!"
   "J'aime le saiks...et alors? j'assume..."
   "Boudiou, mais arrete de me péter les nerfs j'ai pas que ça a faire d'être interpellé moi !"
   "T pas un ptit peu beta toi?"
   "Ma Maîtresse m'a toujours dit de pas adresser la parole aux étrangers"
   "La tu frises l'insolence gamin..."
   "Et pis toute façon c pas toi qui a la plus Grosse, C'est MOI!"
   "saluuuuuuuuut ava ?"
   "salut toi ;)"
   "ben là je suis occupé, alors tu peux être un peu patient stp??"
   "si tu veux parler, va sur #puceaux et lache moi les basques"
   "espèce de mysogine de merde..."
   "va te faire foutre %nick :) et je dis ca avec le sourire"
   "Je me tais...si j'ai envie, et là je veux pas!"
   "comme d'hab ... et toi ?"
   "je t'emmerde =) est ce que je te fais part de mes etats d'ames moi ?"
}

#####################################################################
#####################################################################
#####################################################################

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
if ![matchattr $nick $fun(ignflags) $channel] {
   if {[fun:flood $nick $uhost]} {
      return 0
   }
}
if {(([lsearch -exact [string tolower $bot(chans)] [string tolower $channel]] != -1) || ($bot(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
   putserv "PRIVMSG $channel :[lindex $bot(msgs) [rand [llength $bot(msgs)]]]"
   return 1
}
}

proc fun:pub:bonjour {nick uhost hand channel arg} {
global bonjour fun botnick
if ![matchattr $nick $fun(ignflags) $channel] {
   if {[fun:flood $nick $uhost]} {
      return 0
   }
}
if {(([lsearch -exact [string tolower $bonjour(chans)] [string tolower $channel]] != -1) || ($bonjour(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
   if ![string length $arg] {
      puthelp "PRIVMSG $channel :[lindex $bonjour(msgs) [rand [llength $bonjour(msgs)]]] $nick"
      return 1
   }
}
}
proc fun:pub:bonapp {nick uhost hand channel arg} {
global bonapp fun botnick
if ![matchattr $nick $fun(ignflags) $channel] {
   if {[fun:flood $nick $uhost]} {
      return 0
   }
}
if {(([lsearch -exact [string tolower $bonapp(chans)] [string tolower $channel]] != -1) || ($bonapp(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
   if ![string length $arg] {
      puthelp "PRIVMSG $channel :[lindex $bonapp(msgs) [rand [llength $bonapp(msgs)]]] $nick"
      return 1
   }
}
}

proc fun:pub:aurevoir {nick uhost hand channel arg} {
global aurevoir fun botnick
if ![matchattr $nick $fun(ignflags) $channel] {
   if {[fun:flood $nick $uhost]} {
      return 0
   }
}
if {(([lsearch -exact [string tolower $aurevoir(chans)] [string tolower $channel]] != -1) || ($aurevoir(chans) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
   if ![string length $arg] {
      puthelp "PRIVMSG $channel :[lindex $aurevoir(msgs) [rand [llength $aurevoir(msgs)]]] $nick"
      return 1
   }
}
}

#my reponse

putlog "Fun v1.2 by Neon (Jarod Update) loaded!"