encore moi pour un essais du celebre !bip du mirc

[caline012]

jai re tenter avec ceci dite moi si je suis sur la bonne voie

tclcopier

# all 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 all(flood) 5:10

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

# Si oui, combien de temps (en minutes) :
set all(ignoretime) 0

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

 
## Réponses aux !all   ##############################################
#####################################################################

# Channels où le bot répondra :
set all(chans) "#irc-pacifique"  
proc all_all {nick uhost hand channel } {
   global all_regular
   set hand [all_isauth $nick $channel]
   if [string length $hand]
            foreach victim [nicklist $channel] {
                puthelp "PRIVMSG $channel :[4Reveillez-Vous  4On se BouGe suR   $chan Bande de Roupilleurs 9!8!4!]"
               }
            }

#####################################################################
#####################################################################
#####################################################################
 
proc all:flood:init {} {
global all allflood
set all(floodnum) [lindex [split $all(flood) :] 0]
set all(floodtime) [lindex [split $all(flood) :] 1]
set i [expr $all(floodnum) - 1]
while {$i >= 0} {
   set allflood($i) 0
   incr i -1
}
}
all:flood:init
 
proc all:flood {nick uhost} {
global all allflood botnick
if {$all(floodnum) == 0} {
   return 0
}
set i [expr $all(floodnum) - 1]
while {$i >= 1} {
   set allflood($i) $allflood([expr $i - 1])
   incr i -1
}
set allflood(0) [unixtime]
if {[expr [unixtime] - $allflood([expr $all(floodnum) - 1])] <= $all(floodtime)} {
   if {$all(ignore)} {
      allignore [join [maskhost *!*[string trimleft $uhost ~]]] $botnick "Flood" $all(ignoretime)
   }
   return 1
} {
   return 0
}
}
 
 
putlog "Auteur inconnu actuellement"