Code:

# Spy v1.1# *Description:#  Mouchard qui rapporte tout ce qui se passe sur un channel, notices, querys#  et party-line (attention aux Excess Flood possibles).# *Commandes:#  -pub: !spy <on/off>####################################################################### Configuration du Script ################################################################################################################ Channels à espionnes :set spy(record) "#aide-moi.net"# Channels où moucharder :set spy(chans) "#pitchat"# Activer le mode Spy (0=non, 1=oui) :set spy(active) 1# Préfixe des commandes du Bot :set spy(command) "!"# Anti flood sur les commandes du Bot x:y (x=nombre de fois, y=secondes) :set spy(flood) 5:10# Ignorer l'utilisateur après son flood (0=non, 1=oui) :set spy(ignore) 1# Si oui, combien de temps (en minutes) :set spy(ignoretime) 1# Laisser faire les utilisateurs ayant certains flags :set spy(ignflags) "fmnov|fmnov"###############################################################################################################################################################################################################proc spy:flood:init {} {global spy spyfloodset spy(floodnum) [lindex [split $spy(flood) :] 0]set spy(floodtime) [lindex [split $spy(flood) :] 1]set i [expr $spy(floodnum) - 1]while {$i >= 0} {   set spyflood($i) 0   incr i -1}}spy:flood:initproc spy:flood {nick uhost} {global spy spyflood botnickif {$spy(floodnum) == 0} {   return 0}set i [expr $spy(floodnum) - 1]while {$i >= 1} {   set spyflood($i) $spyflood([expr $i - 1])   incr i -1}set spyflood(0) [unixtime]if {[expr [unixtime] - $spyflood([expr $spy(floodnum) - 1])] <= $spy(floodtime)} {   if {$spy(ignore)} {      newignore [join [maskhost *!*[string trimleft $uhost ~]]] $botnick "Flood" $spy(ignoretime)   }   return 1} {   return 0}}bind pub mno|mno $spy(command)spy spy:commandproc spy:command {nick uhost hand channel arg} {global spyif ![matchattr $nick $spy(ignflags) $channel] {   if {[spy:flood $nick $uhost]} {      return 0   }}set mode [lindex $arg 0]if ![string length $mode] {   puthelp "NOTICE $nick :Usage: !spy <on\/off>"   return 0} elseif {$mode == "on"} {   if {([lsearch -exact [string tolower $spy(record)] [string tolower $channel]] != -1) || ($spy(record) == "*")} {      puthelp "NOTICE $nick :Mode Spy déjà activé sur $channel."      return 0   } else {      append spy(record) " $channel"      puthelp "NOTICE $nick :Mode Spy activé sur $channel."      bind join -|- * spy:join      bind part -|- * spy:part      bind ctcp -|- ACTION spy:ctcp      bind mode -|- * spy:modefixed      bind topc -|- * spy:topc      bind sign -|- * spy:sign      bind kick -|- * spy:kick      bind nick -|- * spy:nick      bind pubm -|- * spy:pub      bind msgm -|- * spy:msg      bind notc -|- * spy:notice      return 1   }} elseif {$mode == "off"} {   if {([lsearch -exact [string tolower $spy(record)] [string tolower $channel]] == -1) && ($spy(record) != "*")} {      puthelp "NOTICE $nick :Mode Spy déjà désactivé sur $channel."      return 0   } else {      regsub -- $channel $spy(record) "" spy(record)      puthelp "NOTICE $nick :Mode Spy désactivé sur $channel."      return 1   }} else {   puthelp "NOTICE $nick :Usage: !spy <on\/off>"   return 0}}if $spy(active) {   bind join -|- * spy:join   bind part -|- * spy:part   bind ctcp -|- ACTION spy:ctcp   bind mode -|- * spy:modefixed   bind topc -|- * spy:topc   bind sign -|- * spy:sign   bind kick -|- * spy:kick   bind nick -|- * spy:nick   bind pubm -|- * spy:pub   bind msgm -|- * spy:msg   bind notc -|- * spy:notice}proc spy:join {nick uhost hand channel} {global spyif {([lsearch -exact [string tolower $spy(record)] [string tolower $channel]] != -1) || ($spy(record) == "*")} {   foreach chan $spy(chans) {      puthelp "PRIVMSG $chan :\[12$channel\] 9$nick ($uhost) has joined $channel"   }   return 1}}proc spy:part {nick uhost hand channel} {global spyif {([lsearch -exact [string tolower $spy(record)] [string tolower $channel]] != -1) || ($spy(record) == "*")} {   foreach chan $spy(chans) {      puthelp "PRIVMSG $chan :\[12$channel\] 9$nick ($uhost) has left $channel"   }   return 1}}proc spy:ctcp {nick uhost hand dest keyword arg} {global spyif {([lsearch -exact [string tolower $spy(record)] [string tolower $dest]] != -1) || ($spy(record) == "*")} {   foreach chan $spy(chans) {      puthelp "PRIVMSG $chan :\[12$dest\] 13* $nick $arg"   }   return 1}}proc spy:modefixed {nick uhost hand channel mode {victim ""}} {global spyif {$victim != ""} { append mode " $victim" }spy:mode $nick $uhost $hand $channel $mode}proc spy:mode {nick uhost hand channel mode} {global spy serverif {([lsearch -exact [string tolower $spy(record)] [string tolower $channel]] != -1) || ($spy(record) == "*")} {   foreach chan $spy(chans) {      if {$nick == ""} {         puthelp "PRIVMSG $chan :\[12$channel\] 9*** [lindex [split $server :] 0] sets mode: $mode"      } else {         puthelp "PRIVMSG $chan :\[12$channel\] 9*** $nick sets mode: $mode"      }   }   return 1}}proc spy:topc {nick uhost hand channel topic} {global spy serverif {([lsearch -exact [string tolower $spy(record)] [string tolower $channel]] != -1) || ($spy(record) == "*")} {   foreach chan $spy(chans) {      if {$nick == ""} {         puthelp "PRIVMSG $chan :\[12$channel\] 9*** [lindex [split $server :] 0] changes topic to '$topic'"      } else {         puthelp "PRIVMSG $chan :\[12$channel\] 9$nick changes topic to '$topic'"      }   }   return 1}}proc spy:sign {nick uhost hand channel reason} {global spyif {([lsearch -exact [string tolower $spy(record)] [string tolower $channel]] != -1) || ($spy(record) == "*")} {   foreach chan $spy(chans) {      puthelp "PRIVMSG $chan :\[12$channel\] 9$nick ($uhost) has quit IRC ($reason)"   }   return 1}}proc spy:kick {nick uhost hand channel knick reason} {global spyforeach chan $spy(chans) {   puthelp "PRIVMSG $chan :\[12$channel\] 9$knick was kicked by $nick ($reason)"}return 1}proc spy:nick {nick uhost hand channel newnick} {global spyif {([lsearch -exact [string tolower $spy(record)] [string tolower $channel]] != -1) || ($spy(record) == "*")} {   foreach chan $spy(chans) {      puthelp "PRIVMSG $chan :\[12$channel\] 9$nick is now known as $newnick"   }   return 1}}proc spy:pub {nick uhost hand channel rest} {global spyif {([lsearch -exact [string tolower $spy(record)] [string tolower $channel]] != -1) || ($spy(record) == "*")} {   foreach chan $spy(chans) {      puthelp "PRIVMSG $chan :\[12$channel\] <$nick> $rest"   }   return 1}}proc spy:msg {nick uhost hand rest} {global spyforeach chan $spy(chans) {   puthelp "PRIVMSG $chan :\[4Private\] <$nick> $rest"}return 1}proc spy:notice {nick uhost hand rest} {global spyforeach chan $spy(chans) {   puthelp "PRIVMSG $chan :\[7Notice\] <$nick> $rest"}return 1}bind chat -|- * spy:chatproc spy:chat {hand idx arg} {global spyforeach chan $spy(chans) {   puthelp "PRIVMSG $chan :\[8Party-Line\] <$hand> $arg"}return 1}bind dcc -|- * spy:dccproc spy:dcc {hand idx arg} {global spyforeach chan $spy(chans) {   puthelp "PRIVMSG $chan :\[8DCC\] <$hand> $arg"}return 1}putlog "Spy v1.1 by Neon loaded!"