Body Banjir Remote AKu

Ni Body Remote Yang Aku Buat..
Aku Tanya Jcv Banyak..
Tanya ni3 Sekali je..
Pastu dia dah tak nampak batang idung
keje kat pasir gudang sibuk gaknye..
kalau nak pakai..
Silakan..Tapi jangan ada nama aku sikit pon..
aku tanak org panggil aku master la..
sifu la..
mampos je rupa..
alias kick buat sendiri
aku banjir dah tak gian sangat..
rekick beb..rekick..

@Regex

ctcp !@*:*:#: { $kik(ctcp@Regex ) }
on !@*:ctcpreply:*: { $kik(ctcpreply@Regex ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias detect {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
if ($regex($lower($strip($1-)),/(sex|pepek|zakar|asshol|kimak|dick|pelir|burit|shit|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|butuh|babi|konek|suck|fuck)/g) && (terbabit !isin $chan ) && (mashitah !isin $chan ) && (dickson !isin $chan ) && (zakaria !isin $chan ) && (sosial !isin $chan )) { $kik(swear@Regex ) }
if ($regex($1-,/[[:cntrl:]]/g) > 49) { $kik( codes@Regex ) }
if ($regex($strip($1-),/[[:upper:]]/g) > 49) { $kik( capslock@Regex ) }
if ($regex($strip($1-),/[[:digit:]]/g) > 49) { $kik( numerics@Regex ) }
if ($regex($strip($1-),/[[:punct:]]/g) > 49) { $kik( Symbol@Regex ) }
if ($regex($removecs($1-, $+ $chr(160) $+ ),/[€-Ÿ|¡-ÿ]/g) > 49) { $kik( ascii@Regex ) }
if ($regex($strip($1-),/[[:lower:]]/g) > 199) { $kik( character@Regexs ) }
if ($regex($strip($1-),/[ ]/g) > 49) { $kik( blanks ) }
if ($regex($lower($strip($1-)),/(http|tp:|#)/g) && ($chan !== $strip($1-))) { $kik(spam@Regex ) }
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kik(repeating@Regex ) }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kik(repeat@Regex ) }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kik( row@Regex ) }
haltdef
:end

}


@Eval+Regsub

ctcp !@*:*:#: { $kik(ctcp@Eval+Regsub ) }
on !@*:ctcpreply:*: { $kik(ctcpreply@Eval+Regsub ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias detect {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
if ($eval($regsub($strip($1-),/(fuck|pepek|babi|puki|cibai|lancau|suck|dick|kimak|kote|butuh|shit|zakar)/g,,%Bun)) > 0) { $kik(Swear@Eval+Regsub ) }
if ($eval($regsub($1-,/[[:cntrl:]]/g,,%Bun)) > 49) { $kik( codes@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/[[:upper:]]/g,,%Bun)) > 49) { $kik( capslock@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/[[:digit:]]/g,,%Bun)) > 49) { $kik( numerics@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/[[:punct:]]/g,,%Bun)) > 49) { $kik( Symbol@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/[€-Ÿ|¡-ÿ]/g,,%Bun)) > 49) { $kik( ascii@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/[[:lower:]]/g,,%Bun)) > 199) { $kik( Long@Eval+Regsub ) }
if ($eval($regsub($1-,/[ $chr(160) ]/g,,%Bun)) > 49) { $kik( blanks@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/(http|tp:|#)/g,,%Bun)) > 0) { $kik(Spam@Eval+Regsub ) }
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kik(repeating@Eval+Regsub ) }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kik(repeat@Eval+Regsub) }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kik( row@Eval+Regsub ) }
haltdef
:end
}


@Variables

ctcp !@*:*:#: { $kik(ctcp@Variables ) }
on !@*:ctcpreply:*: { $kik(ctcpreply@Variables ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias detect {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
var %cntrl = $eval($regex($1-,/[[:cntrl:]]/g)) | if (%cntrl > 49) { $kik( codes@Variables ) }
var %upper = $eval($regex($strip($1-),/[[:upper:]]/g)) | if (%upper > 49) { $kik( capslock@Variables ) }
var %digit = $eval($regex($strip($1-),/[[:digit:]]/g)) | if (%digit > 49) { $kik( numerics@Variables ) }
var %punct = $eval($regex($strip($1-),/[[:punct:]]/g)) | if (%punct > 49) { $kik( Symbol@Variables ) }
var %ascii = $eval($regex($strip($1-),/[€-Ÿ|¡-ÿ]/g)) | if (%ascii > 49) { $kik( ascii@Variables ) }
var %lower = $eval($regex($1-,/[[:lower:]]/g)) | if (%lower > 199) { $kik( Long@Variables ) }
var %blank = $eval($regex($strip($1-),/[ $chr(160) ]/g)) | if (%blank > 49) { $kik( blanks ) }
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kik(repeating@Variables ) }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kik(repeat@Variables) }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kik( row@Variables ) }
var %adv = $eval($regex($1-,/(http|tp:|#)/g)) | if (%adv > 0) { $kik(Spam@Variables ) }
var %swr = $eval($regex($lower($strip($1-)),/(sex|pepek|pussy|asshol|kimak|kelentit|pelir|burit|shit|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|dick|butuh|babi|konek|suck|fuck)/g)) | if (%swr > 0) { $kik(Swear@Variables ) }
haltdef
:end
}


@Hashtable

ctcp !@*:*:#: { $kik(ctcp@Hashtable ) }
on !@*:ctcpreply:*: { $kik(ctcpreply@Hashtable ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias detect {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
hadd -u2m a $nick $eval($regex($strip($1-),/(sex|pepek|pussy|asshol|kimak|kelentit|pelir|burit|shit|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|butuh|babi|konek|suck|fuck)/g)) | if ($hget(a,$nick) > 0) { $kik(Swear@Hashtable ) | halt }
hadd -u2m b $nick $eval($regex($1-,/[[:cntrl:]]/g)) | if ($hget(b,$nick) > 49) { $kik( codes@Hashtable ) | halt }
hadd -u2m c $nick $eval($regex($strip($1-),/[[:upper:]]/g)) | if ($hget(c,$nick) > 49) { $kik( capslock@Hashtable ) | halt }
hadd -u2m d $nick $eval($regex($strip($1-),/[[:digit:]]/g)) | if ($hget(d,$nick) > 49) { $kik( numerics@Hashtable ) | halt }
hadd -u2m e $nick $eval($regex($strip($1-),/[[:punct:]]/g)) | if ($hget(e,$nick) > 49) { $kik( Symbol@Hashtable ) | halt }
hadd -u2m f $nick $eval($regex($strip($1-),/[ $chr(160) ]/g)) | if ($hget(f,$nick) > 49) { $kik( blanks@Hashtable ) | halt }
hadd -u2m g $nick $eval($regex($strip($1-),/[€-Ÿ|¡-ÿ]/g)) | if ($hget(g,$nick) > 49) { $kik( ascii@Hashtable ) | halt }
hadd -u2m h $nick $eval($regex($1-,/[[:lower:]]/g)) | if ($hget(h,$nick) > 199) { $kik( Long@Hashtable ) | halt }
hadd -u2m i $nick $eval($regex($lower($strip($1-)),/(http|tp:|#)/g)) | if ($hget(i,$nick) > 0) { $kik(Spam@Hashtable ) | halt }
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kik(repeating@Hashtable ) | halt }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kik(repeat@Hashtable) | halt }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kik( row@Hashtable ) | halt }
haltdef
:end
}


@IifRegex

ctcp !@*:*:#: { $kik(ctcp@IifRegex ) }
on !@*:ctcpreply:*: { $kik(ctcpreply@IifRegex ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias -l detect {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
$iif($regex($1-,/(babi|puki|cibai|lancau|suck|sial|kimak|kote|butuh)/g) > 0,$kik(Swear@IifRegex ))
$iif($regex($1-,/[[:cntrl:]]/g) > 49,$kik( codes@IifRegex ))
$iif($regex($strip($1-),/[[:digit:]]/g) > 49,$kik( numerics@IifRegex ))
$iif($regex($strip($1-),/[[:upper:]]/g) > 49,$kik( capslock@IifRegex ))
$iif($regex($strip($1-),/[[:punct:]]/g) > 49,$kik( Symbol@IifRegex ))
$iif($regex($strip($1-),/[€-Ÿ|¡-ÿ]/g) > 49,$kik( ascii@IifRegex ))
$iif($regex($strip($1-),/[ $chr(160) ]/g) > 49,$kik( blanks@IifRegex ))
$iif($regex($strip($1-),/[[:lower:]]/g) > 199,$kik( Long@IifRegex ))
$iif($regex($strip($1-),/(http|tp:|#)/g) > 0,$kik(Spam ))
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kik(repeating@IifRegex ) }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kik(repeat@IifRegex) }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kik( row@IifRegex ) }
haltdef
:end
}