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
This is not that kind of war script, this is just a kick game. A game which you have to stay as long as possible in a channel with +oO flags (automatic op). No ban allowed there and some of the player do not like to use deop. Just kick and only kick.
@suxes: good script but you have to change your script message in English.