Zildjan Punyer Puttok

Kredit Utk ko Abg imran
sebab remote ko ni..
remote kedua aku pakai masa memula main rekick..

#puttok on
On *:KICK:*:if $puttok($knick,n,2,56) == $me { .auser 20 $nick | .timer -m 1 350 join $chan | $hash(.hadd -m • R3 $1-) | set %n $nick | set %chan $chan | $gettok($read.rev1($hget(•,R3)),1-,32) | halt } | if $puttok($nick,i,2,46) == $me { $gettok($read.rev2($hget(•,R3)),1-,32) | halt }
alias -l read.rev1 { .signal -n a # %n | halt }
alias -l read.rev2 { .signal -n b # $knick | halt }
On *:SIGNAL:a:.timer -m 5 90 $puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On *:SIGNAL:b:.timer -m 5 100 $puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On 10:JOIN:*:if $puttok(%n,i,2,46) ison $puttok(%chan,h,2,46) { $gettok($read.rev3($hget(•,R3)),1-,32) | halt }
alias -l read.rev3 { .signal -n c # %n | halt }
On *:SIGNAL:c:$puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On 10:OP:*:if $puttok(%n,i,2,46) isop $puttok(%chan,h,2,46) { $gettok($read.rev4($hget(•,R3)),1-,32) | halt }
alias -l read.rev4 { .signal -n d # %n | halt }
On *:SIGNAL:d:$puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On @1:RAWMODE:*:$iif(%n ison %chan,.scon -a !kick %chan %n $logo,return)

#puttok end