Protect Flood Remote



on ^*:NOTICE:*:#: { if (($me isop #) && ($nick isreg #)) Ec $1- }
on ^*:TEXT:*:#: { if (($me isop #) && ($nick isreg #)) Ec $1- }
on ^*:ACTION:*:#: { if (($me isop #) && ($nick isreg #)) Ec $1- }
on @*:ctcpreply:*: { if ($nick isreg #) { .signal -n s $chan $nick 10 C tcpreply s } }
ctcp @*:*:*: { if ($nick isreg #) { .signal -n s $chan $nick 10 C tcp s } }


alias Ec {
if ($nick !isreg #) { return }
var %rpts = $+(%,repeat.,$hash($strip($3-,burc),32),.,$2,.,$1) | .inc -u2 $eval(%rpts,1)
var %rptsx = $+(%,repeatx.,$hash($remove($strip($3-),$chr(160),$chr(32)),32),.,$2,.,$1) | .inc -u2 $eval(%rptsx,1)
var %roww = $+(%,rowwx.,$2,.,$1) | .inc -u2 $eval(%roww,1)
if ($regex($1-,/[[:cntrl:]]/g) > 49) { .signal -n s $chan $nick 10 C odes }
if ($regex($strip($1-),/[[:punct:]]/g) > 49) { .signal -n s $chan $nick 10 A phostrophe }
if ($regex($strip($1-),/[[:upper:]]/g) > 49) { .signal -n s $chan $nick 10 C aps }
if ($regex($strip($1-),/[[:digit:]]/g) > 49) { .signal -n s $chan $nick 10 D igits }
if ($regex($strip($1-),/[[:alnum:]]/g) > 199) { .signal -n s $chan $nick 10 L ong/ L enght }
if ($regex($strip($1-),/[ $chr(160) ]/g) > 49) { .signal -n s $chan $nick 10 B lanks }
if ($regex($strip($1-),/[€-Ÿ|?ÿ]/g) > 49) { .signal -n s $chan $nick 10 A scii }
if ($regex($strip($1-),/(http://www.|/#|http:|ftp:|server)/g)) { .signal -n s $chan $nick 10 A dvertising }
if ($regex($strip($1-),/(burit|dick|zakar|cipap|suck|fuck)/g)) { .signal -n s $chan $nick 10 S wearing }
.hinc -u2m text [ $+ [ # ] ] $nick 1 | if ($hget(text [ $+ [ # ] ],$nick) > 4) { .signal -n s $chan $nick 10 R ow s 4/ 10 L ine s }
.hinc -u2m newtext [ $+ [ $chan ] ] $address($nick,3) 1 | if ($hget(newtext [ $+ [ $chan ] ],$address($nick,3)) > 4) { .signal -n s $chan $nick New - 10 R ow s 4/ 10 L ine s }
.hinc -u2m repeat [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
if ($hget(repeat [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { .signal -n s $chan $nick 10 R epeatin g }
.hinc -u2m newrepeat [ $+ [ $chan ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
if ($hget(newrepeat [ $+ [ $chan ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { .signal -n s $chan $nick New - 10 R epeatin g
halt }
}


on *:signal:s: {
.hinc -u2m shoot FeroZ 1
if ($hget(shoot,FeroZ) isnum 31-51) { !.quote -mc kick $1 $2 $3-  $round($calc($hget(shoot,FeroZ) * 4.7619),1) $+ % ) | return }
.hadd -u3m banx $2 $+ *!*@*.e.C*
.timerbanx-x -mq 1 5000 .mode $1 + $+ $str(b,$hget(banx,*).item) $hget(banx,1).item $hget(banx,2).item $hget(banx,3).item $hget(banx,4).item $hget(banx,5).item $hget(banx,6).item $hget(banx,7).item $hget(banx,8).item $hget(banx,9).item $hget(banx,10).item $hget(banx,11).item $hget(banx,12).item
}


Remote da Usia 7 or 8 thn.. tp still jlan..
kalu nak laju tkar signal tuh.. bergantung la..

No comments

Powered by Blogger.