anticlone
#3
TCL
set bcloneChan "#salon"
set bcloneOpChan "#backroom"
 
bind join - * SurveyClonejoin
 
proc SurveyClonejoin {nick uhost hand channel} {
   global RCLO bcloneChan
      if { (![string match *guest* $uhost]) } {
            return 0
      }
      if { $bcloneChan != $channel } {
            return 0
    }
        set RCLO($nick) "[expr [clock seconds] + 1] 1 $uhost"        
}
 
bind pubm - * proclone
bind notc -|- * proclone
 
proc proclone {nick host hand channel args} {
   global RCLO bcloneChan
      if { $bcloneChan != $channel } {
            return 0
    }
   set detect1 "oui"
   set detect [open scripts/Moderateur/detecteur_on_off.txt r]
   set DET "[string tolower [gets $detect]]"
   close $detect
   if {[lsearch -exact "x $DET" "$detect1"] == -1} { return 0 }
 
   if {[info exists RCLO($nick)]} {
            if {[string length $args] > 60} {
                 putserv "MODE $channel +bim $host"
           #putserv "PRIVMSG bcloneOpChan : $nick $host clone/flood-attack test tcl"
           putserv "KICK $channel $nick : Exp/flood(banni join/flood/message/notice)"
                 utimer 10 { putserv "MODE $bcloneChan -m" }
                 utimer 60 { putserv "MODE $bcloneChan -i" }
           unset RCLO($nick)
                 }
      }
}
 
proc UnsetClone {} {
   global RCLO
   foreach nick [array names RCLO] {
      if {[lindex $RCLO($nick) 0] < [clock seconds]} {unset RCLO($nick)}
   }
   utimer 1 UnsetClone
}
foreach t [utimers] {
   if {[lindex $t 1] == "UnsetClone"} {killutimer [lindex $t 2]}
}
UnsetClone


Gilles
Répondre Avertir


Messages dans ce sujet
anticlone - par bewess - 07/09/2008, 12:16
RE: anticlone - par MenzAgitat - 07/09/2008, 19:56
RE: anticlone - par bewess - 07/09/2008, 20:13
RE: anticlone - par bewess - 20/09/2008, 00:15
RE: anticlone - par BdS - 20/09/2008, 11:56
RE: anticlone - par bewess - 20/09/2008, 12:39
RE: anticlone - par bewess - 28/09/2008, 06:48

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté