Script Game War on Allnetwork server
At the request of a lot of my friends. eventually release the script this Armageddon-V1. I hope to bring fun and useful
want to try to play this game war
entry to the server irc.plasa.com join channel #war

;======================================
;           [ÅRMÃGËÐÐÖÑ]
;         [ÅRMÃGËÐÐÖÑ-Team]                   
;          Author : suxes
;Thanks To My Master Aditya aka [|Red-X|] 
;          Copyright © 2009 
;         All Rights Reserved
;    Single War Allnetwork Version
;         a War script addon 
;======================================
on *:connect:{ join %chan | %next = 1 | .timerenable 1 8 enable #arma }
on *:start: { resetall | fkeys }
alias resetall {  
  .fullname $me
  .identd on c
  .unset %*
  .%next = 1
  .%server = irc.plasa.com 
  .%chan = #war
}
alias listenemy { %enemy = $addtok(%enemy,$1,32) }
alias remlistenemy { %enemy = $remtok(%enemy,$1,1,32) }
alias arma return 0,415»0¤12†15[11ÅRMÃGËÐDÖÑ15]12†0¤15« 
alias logo return 4,10[4ÅRMÃG0ËÐÐÖÑ14-0X4]0
on *:kick:%chan: {
  if ($knick == $me) && ($nick != $me) { 
    unset %op
    .listenemy $nick
    inc %kickout
    if (%kickout >= 4) { enable #arma }
    if (%kickout >= 7) { 
      %next = 0
      disable #arma
      unset %kickout
      .timerdc -m 1 100 server %server
    }
    if (%next == 1) { 
      join %chan
      halt
    }
  }
  if ($knick != $me) && ($nick == $me) { 
    inc %mekick 
  }
}
#arma on
on *:op:%chan: {
  if ($opnick == $me) && (!%op) {
    var %n = $numtok(%enemylist,32)
    %op = 1
    if (!%n) goto end 
    while (%n) {
      %ntemp = $gettok(%enemylist,%n,32)
      kick # %ntemp $logo
      dec %n
    }
    unset %enemylist 
  }
  :end
}
on *:join:%chan: {
  if ($findtok(%enemy,$nick,32)) {
    if ($me isop %chan ) { raw -q kick %chan $nick $arma }
  }
}
on *:deop:%chan: {
  if ($opnick == $me) { ChanServ op $chan $me }
}
#arma end

raw 353:*: {
  if ($3 == %chan) {
    set %nicks $remove($5-,@,+)
    var %m = $numtok(%enemy,32)
    while (%m) {
      if ($istok(%nicks,$gettok(%enemy,%m,32),32)) { %enemylist = $addtok(%enemylist,$gettok(%enemy,%m,32),32) } 
      dec %m
    }
  }
}
raw 482:*: { haltdef }
raw 442:*: { haltdef }
raw 404:*: { haltdef }
raw 403:*: { haltdef }
raw 441:*: { halt }
raw 471:*: { rawjoin $2 +l }
raw 473:*: { rawjoin $2 +i }
raw 474:*: { rawjoin $2 +b }
raw 475:*: { rawjoin $2 +k }
raw 477:*: { rawjoin $2 +R }

menu nicklist {
  -
  .addenemy:listenemy $$1 | kick # $$1 | echo -a 4,1Info: $1 already been added into the list enemy
  ..delenemy:remlistenemy $$1
  -
}

menu channel {
  -
  Clear List { unset %enemy %enemylist | .rlevel x | msg %chan 4Clear All | echo -act info * listenemy clear }
  -
}
menu channel,menubar {
  &connect { server irc.cbn.net.id }
  &Ping me { if ($server) { scid -a ctcp $!me ping } }
  &war channel { f9 }
  &mode war { f8 }
  &Join Channelwar { f10 }
  &quit { f11 }
}

alias fkeys {
  echo -a $arma there is no peace without War
  echo -a 4,1+0,1List HotKey 4,1+
  echo -a 4,1F2- 0,1Clear nick enemy 
  echo -a 4,1F3- 0,1Mode War
  echo -a 4,1F4- 0,1Clear active window
  echo -a 4,1F5- 0,1Change nick bot war
  echo -a 4,1F7- 0,1set Nick changer
  echo -a 4,1F8- 0,1Set Mode Perang On atau Off
  echo -a 4,1F9- 0,1Set Channel war
  echo -a 4,1F10- 0,1Join Channel War
  echo -a 4,1F11- 0,1quit
  echo -a 4,1F12- 0,1Information for nickenemy/ip enemy
  echo -a 4,1+0,1End4,1+
}
alias r.nick  {
  var %v a.e.i.o.u, %c b.c.d.f.g.h.j.k.l.m.n.p.q.r.s.t.v.w.x.y.z, %x 3, %r
  while (%x) {
    %r = $+(%r,$gettok(%c,$r(1,21),46),$gettok(%v,$r(1,5),46))
    dec %x
  }
  return $+(Dodolz,$r(1,9),$r(1,9),$r(1,9))
}

on *:nick: { 
  if ($istok(%enemy,$nick,44)) { %enemy = $reptok(%enemy,$nick,$newnick,1,32) }
}

ctcp *:ping:*: {
  .timerpingreply $+ $nick 1 $r(8,19) .ctcpreply $nick $1-
  if ($nick != $me) { haltdef }
}

alias f4 { clear }

alias f5 {
  var %x $scon(0)
  while (%x) {
    scon %x nick $r.nick
    dec %x
  }
  echo -act info * Your bots has changed nick.
}

alias f7 { 
  %cnck = $iif(%cnck,$false,$true)
  echo -act info * Change Nick: $iif(%cnck,On,Off) 
}

alias f8 {
  $+(.,$iif($group(#arma) == on,dis,en),able #arma)
  echo -act notify * WarMode is: $group(#arma)
}

alias f9 {
  if (#$?="Enter Channel war? example: #war") { %chan = $v1
  echo -act info * channel war: %chan }
  else { echo -act info * No channel specified. }
}

alias f10 { join %chan } 
alis f11 { quit }

alias f12 {
  clear @information
  window -ae @information
  echo -ct info @information * ip enemy: level x
  echo -ct info @information * nick enemy: %enemy
}

:end of Armageddon script