Friday, October 5, 2007

$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

0 comments: