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
}

$regex yang Comel Pakai

NI yang nick Comel aku pakai...
kuat kan??
biasa la...
:P
pakai jer..
jangan tanya apa jenis timer tu..

#Bun on
On +!^!+20:join:#:{ !.quote -q kick %c %n $logo1 | kick # $nick $logo | .timer -m 2 $and(40,140) !.quote -q kick # $nick $logo | haltdef }
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.set %n $nick | .set %c $chan | .auser 20 $nick

.timer -m 3 $and(100,120) $eval(raw) kick %c %n $logo | !.quote -q kick %c %n $logo1 | haltdef

}
}

on *1:rawmode:#:{ !.quote -q kick %c %n $logo1 | .timer -mc 5 $and(90,100) $eval(!kick) %c %n $logo | haltdef
}
On *+*:op:#:{ if ($regex($opnick,$me) == 1 ) && %n ison %c { .timer -mc 5 $and(80,90) !.quote -q %c %n $logo | !.quote -qmcH $eval(kick) %c %n $logo1 | haltdef }
}

on *+*:join:#:{ if $strip($regex($nick,%n) == 0 , $true) { .timer -mc 5 $and(100,110) !.quote -q kick %c %n $logo | !.quote -q kick %c %n $logo1 | haltdef }

}
#Bun off
alias logo1 return 4,4y
alias logo return 0,0A

Regex revenge Upgrade

aku dah upgrade revenge ni...
nampak bersih sket...
tapi tu la...
timer plak tak ngam..
set la sendiri eee

#BunTai on
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
.timer -m 1 200 join %c
.timer -m 3 150 $eval(raw) kick %c %n $logo | .quote -q kick %c %n $logo

}
}
if $eval($regex($knick,%n)) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}

on *:join:%c:{
if $strip($regex($nick,$me) == 0 , $true) {
{ .timer -m 3 100 $eval(.raw -q kick %c %n) $logo }
}
if (%n ison %c) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
}
on ^20:join:%c: {
if (%n ison %c) {
{ $eval(.raw -q kick %c %n) 3 }
}
}
on *:op:%c:{
if $eval($regex($opnick,$me)) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
}

On *:notify:{
if $eval($regex($nick,$me)) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
}

#BunTai end

Tv9 regex Remote

Yang ni pon Regex..
Tapi serabai la..
len macam ..
boleh pakai..
laju..
pawa...
tapi...entah la..
copy je la...
banyak tanya plak..

#Terabor on
On +!^!+20:join:#:{ !.quote -q kick %c %n $logo1 | kick # $nick $logo | .timer -m 2 $and(40,140) !.quote -q kick # $nick $logo | haltdef }
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
.timer -m 4 200 join %c
.timer -m 3 $and(50,150) $eval(raw) kick %c %n $logo | !.quote -q kick %c %n $logo1 | haltdef

}
}

on *1:rawmode:#:{ !.quote -q kick %c %n $logo1 | .timer -mc 5 $and(90,100) $eval(!kick) %c %n $logo | haltdef
}
On *+*:op:#:{ if ($regex($opnick,$me) == 1 ) && %n ison %c { .timer -mc 5 $rand(10,50) !.quote -q %c %n $logo | !.quote -qmcH $eval(kick) %c %n $logo1 | haltdef }
}

on *+*:join:#:{ if $strip($regex($nick,%n) == 0 , $true) { .timer -mc 5 $rand(40,110) !.quote -q kick %c %n $logo | .timer -mc 5 $rand(140,160) !.quote -q kick %c %n $logo1 | haltdef }

}
#Terabor off
alias logo return 15º•·×3,1-9,3-8,9-0,810Dekat DiHati8,9-9,3-3,1-15×·•º
alias logo1 return 15º•·×3,1-9,3-8,9-0,810T V 98,9-9,3-3,1-15×·•º

My 1st Regex

Ni la Regex aku yang memula sekali..
punyer la susah nak setting memula..
tapi ok la jugak..
boleh pakai punyer..
takder error beb...

on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.pelawan
.timer -m 4 200 join %c
.timer -m 3 $r(30,130) $eval(raw) kick %c %n Kick?
.raw -q kick %c %n Kick Lagi???
.haltdef
}
}

on *+*:join:#:{ if $strip($regex($nick,%n) == 0 , $false) {
.timer -m 2 $r(40,45) .quote -q kick %c %n JOin??
.quote -q kick %c %n Xble kick?? | haltdef }

}
on *1:rawmode:#:{
.quote -q kick %c %n Raw?
.timer -mc 5 $and(90,100) $eval(!kick) %c %n Raw ke?
}
On *+*:op:#:{ if $strip($regex($opnick,$me) == 0 , $false) {
.timer -mc 3 $r(10,30) .kick %c %n Op??
.timer -mc 4 $r(100,150) $eval(raw) %c %n Op Ke?? | haltdef }
}

alias -l pelawan {
.set %n $nick
.set %c $chan
}

$istok revenge

Ha...
Yang ni aku Punyer..
sempoi je...
power la jugak..
tapi tak berapa nak pawa sangat..
sebab token..
token ni lem***
ahahaha

on *:kick:#: if ($istok($knick,$me,C) == $true) { %n = $nick | %c = $chan | .auser 20 $nick | .timer $c .kick %c %n $d | .timer $a .kick %c %n $d | .timer $b join %c } | if ($istok($nick,$me,C) == $true) { .inc %kira 1 | .timer $a .kick %c %n $d | halt }
On +!^!+20:join:#: { .timer $c .kick %c %n $d | .raw -qmcH kick %c %n $d }
On *:join:#: if ($istok($nick,%me,C) == $true) { .timer $c .kick %c %n $d | .raw -qmcH kick %c %n $d }
On *:connect: { .timer $b join %c | .timer $a .kick %c %n $d }

alias c return -qmc 5 100
alias b return -qmc 1 180
alias a return -qmc 3 200
alias d return 11• 0#Project4D3@7Dalnet 11•

Ni Slayer punyer kot

Yang Ni ada Dalam Email AKu...
JoJie send..
Masa Tu Aku Kat Qatar..
AKu Tak Tau la..
CUba La dulu ek..

on $*:kick:#:{
while ($findtok($knick,$me,0,32)) {
$eval(setup)
$gettok($NYEPAK1($hget(slayer,test)),1-,32)
halt
}
while ($findtok($nick,$me,0,32)) {
$gettok($NYEPAK1($hget(slayer,test)),1-,32)
.signal -n $eval(slayer3)
halt
}
}
on ^*:join:%c:{
while ($findtok($nick,%n,0,32)) {
$gettok($NYEPAK3($hget(slayer,test)),1-,32)
halt
}
while ($findtok($nick,$me,0,32)) {
$gettok($NYEPAK3($hget(slayer,test)),1-,32)
halt
}
}
on ^*10:op:#:{
while ($findtok($opnick,$me,0,32)) || ($2 ison #) {
$gettok($NYEPAK3($hget(slayer,test)),1-,32)
halt
}
}
on @1:RAWMODE:*:$iif(%n ison %c,.scon -a !kick %c %n $reaseny.,return)
on *:disconnect:
if ($cid == $scon(2)) {
.server rekicks.kicks-ass.org:7000
halt
}
on *:connect:{
.nick pakpandir
;.timer -mc 1 225 .join %c
.timeree -mc 3 225 .join %c
$gettok($NYEPAK4($hget(slayer,test)),1-,32)
.halt
}
on *+*:signal:slayer1: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
on *+*:signal:slayer2: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
on *+*:signal:slayer3: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
on *+*:signal:slayer4: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
alias -l NYEPAK1 { .timeraa -mc 0 025 .signal -n $eval(slayer1) | halt }
;alias -l NYEPAK2 { .timerbb -mc 3 025 .signal -n $eval(slayer2) | halt }
alias -l NYEPAK3 { .signal -n $eval(slayer3) | halt }
alias -l NYEPAK4 { .timercc -mc 2 065 .signal -n $eval(slayer4) | halt }
alias reasenw { .return $rand(1,10) }
alias reaseny { .return $rand(a,g) }
alias reasenx { .return $rand(m,q) }