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 "#18-30ans"

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





#### temps minimum entre deux phrases #####

set ::temps "15"

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






#### temps aléatoire max à ajouter au temps minimum ####

set ::add_temps "5"

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




#### Phrases à faire répéter #####


set ::phrases {

  "Ne jamais monter sa tente quand son oncle n'est pas loin"
    "Si t'es sincere, dessere les !"
    "La virginité ...c'est comme une mouche sur le dos d'une vache, Un coup de queue ...et oupps!!!"
    "Mieux vaut habiter une maison en L, qu'un chateau hanté!"
    "COucou ça vaaaaaaaaa????"
    "Je préfère de belles souris que Déborah"
    "Si tu as la colique, evite de tousser"
    "Quand l'orage gronde, le tempête"
    "Des tresses à chien sont aussi ridicules que des Natacha"
    "La boisson a été faite pour que même les laids baisent"
    "C'est quand on a vu ta tête que l'on a inventé la cagoule !"
    "tu peux PAS test!"
    "Si une femme est paniquée, ca ne veut pas dire qu'elle cherche un homme"
    "Mieux vaut rater un baiser, que baiser un raté"
    "Le vin d'ici est meilleur que l'au delà"
    "Un pinailleur n'est pas forcement un mari infidèle."
    "Si tu n'as qu'une parole, ne la donne à personne"
    "Le sexe masculin est ce qu'il y a de plus léger au monde ; une simple pensée le soulève !"
    "Quand les dents se déchaussent on a mauvaise haleine"
    "C'est parsque la vitesse de la lumière est supérieure à celle du son que certains hommes paraissent brillants avant d'avoir l'air con"
    "Je suis pour l'égalité des sexes. Je prendrai moi-même les mesures"
    "Si la violence ne règle rien c'est que tu ne frappe pas assez fort"
    "Il ne faut pas boire au volant, il vaut mieux boire à la bouteille"
    "les etudiants c'est comme le linge : quand il fait beau , ça seche"
    "Noël au balcon, enrhumé comme un con."
    "Si l'argent n'achète pas l'amour, ça facilite nettement les négociations"
    "les profs c'est comme les éviers, plus c'est vieux plus c'est bouché"
    "vaut mieux être bourré que con,ça dure moins longtemps."
    "Tousse pour un, rhume pour tous !"
    "Qui ne pète ni ne rote est voué à l'explosion."
    "L'éternité, c'est long, surtout vers la fin"
    "Il vaut mieux une grande propre qu'une petite salle"
    "Evitez la langue de bois, ça laisse des échardes"
    "Quéquette en Décembre, layette en Septembre"
    "Qui boit sans soif vomira sans effort."
    "Quand c'est la débandade chez les hommes, les femmes sont paniquées"

}

############################################
####### Fin de la config ###################

set ::active ""
}





bind pub - !active onn
proc onn { nick uhost hand chan arg } {
if {$::active == 1} {
putserv "PRIVMSG $::salon :Le jeu est déjà activé, veuillez d'abord le désactivé avant de le relancer !"
return
}
putserv "PRIVMSG $::salon :Le jeu est activé !"
active
}




bind pub - !inactive off
proc off { nick uhost hand chan arg } {
if {$::active == 0} {
putserv "PRIVMSG $::salon :Le jeu est déjà déactivé !"
return
}
putserv "PRIVMSG $::salon :Le jeu est 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 :KiKiDiiiiiit : \"$::phrase\" !?"
set ::act 1
timer [expr $::temps + [rand $::add_temps]] { active }
}


bind PUBM - * detect
proc detect { nick uhost hand chan text } {
if [info exists ::phrase]&&[info exists ::active]&&[info exists ::act] {
if { $::active eq 1 } {
if [string match -nocase *$::phrase* [regul $text]] {
if { [rand 10] <= 5 } {
set ::kickerz $nick
putserv "PRIVMSG $::salon :Bravo, $nick ! Tu as gagné le droit de kicker quelqu'un ! tape !kicker pseudo !"
unset ::act
return
}
set ::voicerz $nick
putserv "PRIVMSG $::salon :Bravo, $nick ! Tu as gagné le droit de voicer/devoicer quelqu'un ! tape !voicer ou !devoicer pseudo !"
unset ::act
}
}
}
}





bind pub - !kicker kickerz
proc kickerz { nick uhost hand chan arg } {
if {[string tolower $chan] eq [string tolower $::salon]} {
if {$nick eq $::kickerz} {
putquick "kick $chan [lindex $arg 0] :Tu as été kické par $nick, le plus rapide du recopiage !"
set ::kickerz ""
}
}
}


bind pub - !voicer voicerz
proc voicerz { nick uhost hand chan arg } {
if {[string tolower $chan] eq [string tolower $::salon]} {
if {$nick eq $::voicerz} {
putquick "mode $chan +v [lindex $arg 0]"
putquick "NOTICE [lindex $arg 0] :Tu as été voicé par $nick, le plus rapide du recopiage !"
set ::voicerz ""
}
}
}

bind pub - !devoicer devoicerz
proc devoicerz { nick uhost hand chan arg } {
if {[string tolower $chan] eq [string tolower $::salon]} {
if {$nick eq $::voicerz} {
putquick "mode $chan -v [lindex $arg 0]"
putquick "NOTICE [lindex $arg 0] :Tu as été dévoicé par $nick, le plus rapide du recopiage !"
set ::voicerz ""
}
}
}