roulette

# homme v1
# caline
# par caline
# 15/11/2007

#####################################################################
## Configuration du Script ##########################################
#####################################################################

# Anti flood sur les commandes du Bot x:y (x=nombre de fois, y=secondes) :
set homme(flood) 5:10

# Ignorer l'utilisateur après son flood (0=non, 1=oui) :
set homme(ignore) 1

# Si oui, combien de temps (en minutes) :
set homme(ignoretime) 5

# Laisser faire les utilisateurs ayant certains flags :
set homme(ignflags) "fmnov|fmnov"


## Réponses aux !homme   ##############################################
#####################################################################

# Channels où le bot répondra :
set homme(chans) "#!HamRadioChat!"

# Editer les mots auxquels le bot doit répondre :
bind pub - !ouste homme:pub

# Réponses à l'utilisateur :
set homme(msgs) {
   "0"
   "0"
   "1"
   "0"
   "0"
   "0"
}
proc homme:pub {nick uhost hand channel arg} {
global homme homme botnick

   if {[homme:flood $nick $uhost]} {
      return 0
   }

if {(([lsearch -exact [string tolower $homme(chans)] [string tolower $channel]] != -1) || ($homme(chans) == "*")) && ($nick != $botnick)} {

set aze "[lindex $homme(msgs) [rand [llength $homme(msgs)]]]"

if {($aze == 0)} {
putserv "kill $botnick : $arg (by $nick )"
set aze "2"
}
if {($aze == 1)} {
putserv "PRIVMSG $channel : vas y chante : I Believe I Can Fly  "
putserv "kill $nick : $nick must believe because he can fly  "
set aze "2"
}

      return 1


}
}
      #puthelp "PRIVMSG $channel :[lindex $homme(msgs) [rand [llength $homme(msgs)]]] $nick"
#####################################################################
#####################################################################
#####################################################################

proc homme:flood:init {} {
global homme hommeflood
set homme(floodnum) [lindex [split $homme(flood) :] 0]
set homme(floodtime) [lindex [split $homme(flood) :] 1]
set i [expr $homme(floodnum) - 1]
while {$i >= 0} {
   set hommeflood($i) 0
   incr i -1
}
}
homme:flood:init

proc homme:flood {nick uhost} {
global homme hommeflood botnick
if {$homme(floodnum) == 0} {
   return 0
}
set i [expr $homme(floodnum) - 1]
while {$i >= 1} {
   set hommeflood($i) $hommeflood([expr $i - 1])
   incr i -1
}
set hommeflood(0) [unixtime]
if {[expr [unixtime] - $hommeflood([expr $homme(floodnum) - 1])] <= $homme(floodtime)} {
   if {$homme(ignore)} {
      hommeignore [join [maskhost *!*[string trimleft $uhost ~]]] $botnick "Flood" $homme(ignoretime)
   }
   return 1
} {
   return 0
}
}


putlog "roulette par caline 15/11/2007!"