Eval+regsub

Saje Je Nak Post..bikin kenangan..lagipon aku bukan selalu Dapat kick banyak..
aku suka bila tgk org kick banyak...tapi apakan daya...terpaksa mengaku diri siapa..hehehe..tu regsub aku ...nak tgk klik la pic tu..lol

Regular Expression On Rekick

Hai all..jumpa lagi..
arini aku nak post semua jenis remote revenge aku yang aku ada...
takder la banyak sangat...empat je...ahehehe

=============================================================
$gettok+$regex

#BunTai on

on *+*:kick:#: {
if $gettok($regex($knick,$me),1,46 ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
raw -q join %c | $iif(%n ison %c,.timer -m 5 30 $eval(.scon -a kick %c %n) $logo,return)
.timer -m 11 100 !quote -q kick %c %n $logo
}
}
on *:join:%c:{
if $gettok($regex($nick,$me),1,46 ) {
{ .timer -m 11 100 !quote -q kick %c %n $logo }
}
if (%n ison %c) {
{ .timer -m 11 150 !quote -q kick %c %n $logo }
}
}
on ^20:join:%c: {
if (%n ison %c) {
{ $eval(raw -q kick %c %n) $logo }
}
}
on *:op:%c:{
if $gettok($regex($opnick,$me),1,46 ) {
{ .timer -m 11 100 !quote -q kick %c %n $logo }
}
}
On @1:RAWMODE:*:$iif(%n ison %c,.timer -m 11 100 $eval(!kick) %c %n $logo,return)

#BunTai end


=============================================================
$eval+$regsub

#BunTai on

on *+*:kick:#: {
if $eval($regsub($knick,$me,,%var) ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
raw -q join %c | $iif(%n ison %c,.timer -m 5 30 $eval(.scon -a kick %c %n) $logo,return)
.timer -mc 15 100 .raw -q kick %c %n $logo

}
}
on *:join:%c:{
if $eval($regsub($nick,$me,,%var) ) {
{ .timer -mc 15 100 .raw -q kick %c %n $logo }
}
if (%n ison %c) {
{ .timer -mc 15 150 .raw -q kick %c %n $logo }
}
}
on ^20:join:%c: {
if (%n ison %c) {
{ $eval(.raw -q kick %c %n) $logo }
}
}
on *:op:%c:{
if $eval($regsub($opnick,$me,,%var) ) {
{ .timer -mc 15 100 .raw -q kick %c %n $logo }
}
}
On @1:RAWMODE:*:$iif(%n ison %c,.timer -m 11 100 $eval(!kick) %c %n $logo,return)

#BunTai end


=============================================================
$regsub

#BunTai on

on *+*:kick:#: {
if ($regsub($knick,$me,,%var) ) {
.join %c
.set %n $nick | .set %c $chan | .auser 20 $nick
.timer -mc 7 500 $eval(raw) kick %c %n $logo 7Death Mode | $eval(.raw -q kick %c %n) $logo 5Fast Mode

}
}
on *:join:%c:{
if ($regsub($nick,$me,,%var) ) {
{ .timer -mc 9 300 $eval(raw) kick %c %n $logo 8Slow Mode }
}
if (%n ison %c) {
{ .timer -mc 5 450 $eval(raw) kick %c %n $logo 12Normal Mode }
}
}
on ^20:join:%c: {
if (%n ison %c) {
{ $eval(.raw -q kick %c %n) $logo 4Hard Mode }
}
}
on *:op:%c:{
if ($regsub($opnick,$me,,%var) ) {
{ .timer -mc 5 400 $eval(raw) kick %c %n $logo 14Speed Mode }
}
}
On @1:RAWMODE:*:$iif(%n ison %c,.timer -m 11 100 $eval(!kick) %c %n $logo 4BLow Mode,return)

=============================================================
$eval+$regex

#BunTai on

on *+*:kick:#: {
if $eval($regex($knick,$me) ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
$eval(.raw -q join %c) | $iif(%n ison %c,.timer -m 5 30 $eval(.scon -a kick %c %n) $logo1,return)
.timer -m 5 70 .scon -a kick %c %n $logo
}
}
on *:join:%c:{
if $eval($regex($nick,$me) ) {
{ .timer -m 5 50 .scon -a kick %c %n $logo }
}
if (%n ison %c) {
{ .timer -m 5 50 .scon -a kick %c %n $logo }
}
}
on ^20:join:%c: {
if (%n ison %c) {
{ $eval(.scon -a kick %c %n) $logo }
}
}
on *:op:%c:{
if $eval($regex($opnick,$me) ) {
{ .timer -m 11 200 .scon -a kick %c %n $logo }
}
}
On @1:RAWMODE:*:$iif(%n ison %c,.timer -m 11 100 $eval(!kick) %c %n $logo,return)

#BunTai end
=============================================================

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
}