on @^*:text:*:#: .set -u10 %ft téxt | prot $1- on @^*:action:*:#: .set -u10 %ft actíón | prot $1- on @^*:notice:*:#: .set -u10 %ft nótícé | prot $1- alias prot { if $nick isreg $chan { .set %dur $ticks haltdef $iif($regex($strip($1-),/(fuck|bitch|suck|kote|shit)/g),kicks $chan $nick 10bád wórd) $iif($regex($1-,/[[:cntrl:]]/g) > 49,kicks $chan $nick 10control códés) $iif($regex($strip($1-),/[[:punct:]]/g) > 49,kicks $chan $nick 10sybansóls) $iif($regex($removecs($strip($1-),$chr(160)),/[€-ÿ]/g) > 49,kicks $chan $nick 10ascíí) $iif($regex($strip($1-),/[[:digit:]]/g) > 49,kicks $chan $nick 10númérícs) $iif($regex($strip($1-),/[[:upper:]]/g) > 49,kicks $chan $nick 10cáps lóck) $iif($regex($strip($1-),/(http:|www.|#|join|ftp:|/j)/g),kicks $chan $nick 10advértíse) $iif($regex($strip($1-),/[[:alpha:]]/g) > 199,kicks $chan $nick 10lóngs) $iif($regex($strip($1-),/[ $chr(160) ]/g) > 49,kicks $chan $nick 10blánks) .inc -u3 %repeat [ $+ [ $nick ] $+ [ $chan ] $+ [ $hash($remove($strip($1-),$chr(160),$chr(32)),32) ] ] $iif(%repeat [ $+ [ $nick ] $+ [ $chan ] $+ [ $hash($remove($strip($1-),$chr(160),$chr(32)),32) ] ] > 2,kicks $chan $nick 10répéáts) .inc -u5 %lines [ $+ [ $nick ] $+ [ $chan ] ] $iif(%lines [ $+ [ $nick ] $+ [ $chan ] ] > 4,kicks $chan $nick 10línés) halt } } alias kicks { .inc -u10 %num .inc -u10 %knum if (%knum isnum 0-21) { !quote -q kick $1 $2 10-[ %ft ]-[ $3- ]-[ %num ]-[ $calc(($ticks - %dur) / 1000) sec(s) ]-[ 10vístá™ ]-[ ßétá vérsíón ]-[ http://amscripts.blogspot.com ]- .mode $1 +Rb $address($2,4) } } |
Semoga snippet ini berkesan untuk anda dalam melindungi channel dari serangan banjir (flood). Selamat mencuba.
No comments:
Post a Comment