psyloinc revenge 2008 ( alias kick )

#psyloinc on
on *:kick:#:$psylokick
on *:join:#:$testingjoin
on *:%nick:#:$detect
on *:op:*:signal kick $chan $opnick
on *+*:connect: { .kik | .timer -hmc 3 100 join %chan | .detect | .identd on Ninjawar $+ $r(10,99) }
On *:disconnect:{ .server }
alias psylokick { if ($nick = $me) { $rekik } | if $knick = $me { .set %nick $nick | .set %chan $chan | $rekik | auser 10 %nick } | elseif (%nick ison %chan) { $kik | .Revenge  } }
alias testingjoin { if ($nick = %nick) || ($nick = $me) { $kik } }
alias kik { .timer -mc 20 1 $mid(.raw,1,6) -cpq $puttok(kick %chan %nick,$me,3,1) $team | .revenge | .war }
alias rekik { $mid(.raw,1,6) - $+ $str(q,$r(1,3)) kick %chan %nick $team }
alias team { .return   4þ 13§ 4ÿ 13£ 4ô 13K 4î 13ç 4K 13ê 4R 13§ }
alias Revenge { .timer -m 0 100 $eval(war) }
alias war { .raw -q kick %chan %nick $team }
alias detect { $eval(war) | $eval(war) | timer -hmc 20 100 $eval(war) | halt }
on +10:join:#:$mid(.raw,1,6) -cpq $puttok(kick # $nick,$me,3,1) $logo 4ø | halt
on *:signal:*:if $2 == %nick && $signal == kick { $signal $1- $isalias($ver) } | if $signal == set && $2 == $me { %nick = $3 | %chan = $1 | auser 10 $nick | .raw -q kick $1 $hget($3) $ver,1) }
#psyloinc end