NI revenge $Remtok aku

Kredit Utk aku sendiri...
sebab aku yang buat nie..
nak dekat sama ngan imran punyer..
tapi aku grab token...
tak put token..
:)
thnx imran..

#remtok on
On *:KICK:*:if $remtok($knick,n,2,46) == $me { .auser 20 $nick | .timer -m 1 350 join $chan | $hash(.hadd -m Bun tai $1-) | set %n $nick | set %chan $chan | $remtok($kik1($hget(Bun,tai)),1-,32) | halt } | if $remtok($nick,i,2,46) == $me { $remtok($kik2($hget(Bun,tai)),1-,32) | halt }
alias -l kik1 { .signal -n a # %n | halt }
alias -l kik2 { .signal -n b # $knick | halt }
On *:signal:a:.timer -m 5 90 $remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On *:signal:b:.timer -m 5 100 $remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On 10:JOIN:*:if $remtok(%n,i,2,46) ison $remtok(%chan,h,2,46) { $remtok($kik3($hget(Bun,tai)),1-,32) | halt }
alias -l kik3 { .signal -n c # %n | halt }
On *:signal:c:$remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On 10:OP:*:if $remtok(%n,i,2,46) isop $remtok(%chan,h,2,46) { $remtok($kik4($hget(Bun,tai)),1-,32) | halt }
alias -l kik4 { .signal -n d # %n | halt }
On *:signal:d:$remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On @1:RAWMODE:*:$iif(%n ison %chan,.scon -a !kick %chan %n $logo,return)

#remtok end