Monday 14 November 2011

koleksi revenge psyloinc

#FAST.REVENGE off
On *:kick:#: { if ($istok($knick,$me,C) == $true) { taring | %kick | auser 10 %nick } | else { if ($istok($knick,%nick,C) == $true) { %kick2 } } halt }
On +!^!+10:join:#: { if ($istok($nick,%nick,C) == $true) || (%nick ison %chan) || (%nick !isop %chan) || (%nick isreg %chan) { %join | halt } }
#FAST.REVENGE end
alias taring {
  %nick = $nick
  %chan = #
  %kick = .timer -m 0 150 $eval(raw -q) $eval(kick) $eval(%chan) $eval(%nick) 8+
  %kick2 = $eval( .raw -q) $eval(kick) $eval(%chan) $eval(%nick) 3-
  %join = $eval(.raw -q-q) $eval(kick) $eval(%chan) $eval(%nick) 7*
}

-----------------------------------------
 #ahmadagettok off on *:join:*:ahmada_gettok kick # $nick misaion *:op:*:ahmada_gettok kick # $opnick tercabut lak misai
on *:kick:*:ahmada_gettok1 kick # $nick $knick misai bengang
alias ahmada_gettok $iif($gettok($3,1,4) iswm %nick, .timer -mc 2 200 $gettok($1-,1,10) ))
 alias ahmada_gettok1 {
     if $gettok($4,1,4) iswm $me {  %nick = $gettok($3,1,3) | %chan = $gettok($2,1,4) }
    if $gettok($4,1,4) == $me { .timer -mc 2 490 $gettok($1-,1,4) }
   if $gettok($3,1,4) == %nick { .timer -mc 2 580 $gettok($1-,1,4) } }
#ahmadagettok end alias logo return $me

-----------------------------------
#revenge3 off
on *:kick:#:$malaccacrewzkick
on *:join:#:$malaccacrewzjoin
on *:connect:{ .timer -mc 0 150 kick %chan %nick ² 13º 6º 4² 9 13 15 7,1( 4þ 14§ÿ 15£ô 4K 14îç 15KêR§ 7) gô gô gô ² 13º 6º 4² 9 13 }
on *:disconnect:{ .server }
alias malaccacrewzkick { if ($nick = $me) { $rekik } | if $knick = $me { .set %nick $nick | .set %chan $chan | $rekik } | elseif (%nick ison %chan) { $kik } }
alias malaccacrewzjoin { if ($nick = %nick) || ($nick = $me) { $kik } }
alias kik { .timer -mc 3 150 kick %chan %nick ² 13º 6º 4² 9 13 15 7,1( 4þ 14§ÿ 15£ô 4K 14îç 15KêR§ 7) gô gô gô ² 13º 6º 4² 9 13 }
alias rekik { . kick %chan %nick ² 13º 6º 4² 9 13 15 7,1( 4þ 14§ÿ 15£ô 4K 14îç 15KêR§ 7) gô gô gô ² 13º 6º 4² 9 13 }
#revenge3 end
--------------------------------------------------
#orange off
on !3:join:*:kicked | halt
on *:kick:#: {
  if ($nick == $me) { .kicknick | halt }
  if ($knick == $me) && ($nick != $me) && ($nick != Chanserv) { .add | .R }
}
alias R { timer -hmc 7 120 .raw -q -q kick $chan $nick $verz  }
alias kicked { raw -q -q  kick # $nick $verz }
alias add { auser 3 $nick }
alias kicknick { timer -hmc 6 280 raw -q -q kick $chan $knick $verz }
#orange end
alias verz return  7--O r a n g e ®--
-------------------------------------
#psylo off
on *:join:*:kick # $nick | $akik

on *:kick:*: {
  if ($knick == $me) {
    %nick = $nick
    %chan = $chan
    .timer -mc 3 3 .kick $chan $nick $logo detex

  }
}

alias kick if ( $2 == %nick ) { .raw -q-q kick $1- 9psylocrewz } | if $3 == $me { .timer -mc 5 220 raw -q kick $1 %nick 5psylocrewz }
alias akik  if $knick == $me { %nick = $nick | .raw -q kick %chan %nick psylocrewz akik }
on *:disconnect:{ .server  }
on *:connect:.timer -mc 0 150 kick %chan %nick 4psylocrewz
#psylo end

-----------------------------
menu menubar,channel,status {
  « »  psYLoReVeNGe KïçKê® « »®
  .on:/.enable #revenge4 |  say KïçKê® ON 

  .off:/.disable #revenge4 | say  KïçKê® OFF 

  .clear:/.disable #revenge4 | say KïçKê® CLEAR | /nick $me $+ ``
}
#revenge4 off
on *:kick:#:{
  if ($knick == $me) {
    .set %nick $nick    
    .set %chan $chan
    .quote -q-q join %chan
    .timer -mc 2 240 .quote -q-q kick %chan %nick  $old  [on kick] %total 
    .inc %total 
  }
}
on *:op:%chan:{
  if ($opnick == $me) {
    .quote -q-q kick %chan %nick $old [onop] %total
    .inc %total | halt
  }
}
on *:join:%chan:{
  if ($nick == %nick) { .timer -mc 2 250 .quote -q-q kick %chan %nick  $old [onjoin] %total
    .inc %total | halt
  }
}
on *:connect:{
  .timer -mc 2 450 .quote -q-q kick %chan %nick $old [onconect] %total
  .inc %total
}
on *:disconnect:{
  .server $server irc.linkline.com 7000
}
alias old { .return 3| 9[ 7 $me  7,1( 13 Sparing 4 Test 11Menggunakan mode rev [ 6psYLo 6ReVeNGe[ 9old edition]] ) 4 %nick 9] 3|   }

#revenge4 end