This is a simple battle game where you fight each other by kicks.
How to Use:
Load into Bots Remotes.
Join Channel
1st User types !Warreg
more users join using same command
Try to keep op and in the chan for as long as possible.
Bot will keep a champion.
In Variables add This:
%l 11,1{12-11
%r 12,1-11}
Before anyone says i didn't make this i am rayth.
;;;;;;;;;;;;;;;;;;;;;;;;;;
; WAR BOT SCRIPT ;
; CREATED BY RAYTH ;
;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:JOIN:#ChanWars:{
if ($nick == $me) { mode #ChanWars +e $me | halt }
if (!$istok(%WarNicks,$nick,32)) {
notice $nick %l Welcome to #ChanWars %r
notice $nick %l The Aim of This is for you to takeover the channel of all ops for as long as possible. %r
notice $nick %l Rules: %r
notice $nick %l You can use scripts to aid you. %r
notice $nick %l You MUST NOT set Bans (this will make u get ak icked for 1hour) %r
notice $nick %l No +e or +I Modes Allowed (will get you akicked if you are in the game) %r
notice $nick %l To Join in type !WarReg %r
}
if ($istok(%WarNicks,$nick,32)) { notice $nick %l You are Currently In the War. %r | mode $chan +o $nick }
}
on *:TEXT:!WarReg:#ChanWars:{
if ($nick == XeroCreative) { halt }
notice $nick You are now Registering for the Channel Wars.
notice $nick You will be added to the Battle in 1 Minute.
timeradd $+ $nick 1 60 AddWar $nick
}
alias AddWar {
set %WarNicks $addtok(%WarNicks,$1,32)
mode #ChanWars +o $1
msg #ChanWars %l $1 Has Just Entered the War. %r
notice $1 %l You have been Added to the War. Please remember the Rules. If you wish to Leave type !LeaveWar %r
if (%WarNicks == $null) { set %Champion $1 }
}
on *:TEXT:!Rules:#ChanWars:{
notice $nick %l The Aim of This is for you to takeover the channel of all ops for as long as possible. %r
notice $nick %l Rules: %r
notice $nick %l You can use scripts to aid you. %r
notice $nick %l You MUST NOT set Bans (this will make u get ak icked for 1hour) %r
notice $nick %l No +e or +I Modes Allowed %r
notice $nick %l To Join in type !WarReg %r
}
on *:TEXT:!leaveWar:#:{
if ($nick == XeroCreative) { halt }
notice $nick %l You have left the War. %r
msg #ChanWars %l $nick Has left the War. %r
delwar $nick
}
alias delwar {
if ($1 == %Champion) { unset %Chapion | msg #ChanWars %l Champion has Left. next person to kick gets Champion. %r }
set %WarNicks $remtok(%WarNicks,$1,32)
mode #ChanWars -o $1
}
on *:RAWMODE:#ChanWars:{
if ($nick == $me) { halt }
if ($nick == XeroCreative) { halt }
if ($nick == Chanserv) { halt }
if (+ isin $1) && (o isin $1) { mode #ChanWars -oooooooooooo $2- }
if (- isin $1) && (o isin $1) { mode #ChanWars +oooooooooooo $2- }
if (e isin $1) { mode #ChanWars -eeeeeeeeeeee $2- }
if (I isin $1) { mode #ChanWars -IIIIIIIIIIII $2- }
if (b isin $1) { mode #ChanWars -bbbbbbbbbbbb $2- | delwar $nick | cs akick #ChanWars add $address($nick,2) No Setting Bans. 1Hour Akick | timerDelAkick $+ $nick 1 3600 cs akick #ChanWars del $address($nick,2) }
}
on *:KICK:#ChanWars:{
if ($nick == $me) || ($nick == XeroCreative) || ($nick == Chanserv) { halt }
if ($knick !isop #ChanWars) {
delwar $nick
cs akick #ChanWars add $address($nick,2) No Kicking Non-Warrers. 1Hour Akick
timerDelAkick $+ $nick 1 3600 cs akick #ChanWars del $address($nick,2)
}
else {
if ($nick == %Champion) { msg #ChanWars %l And the Champion Strikes Again! %r }
if ($knick == %Champion) { msg #ChanWars %l The Champion got Beaten! %r | notice $nick %l You are now the champion. %r | set %champion $nick
}
on *:NICK:{
if ($nick ison #ChanWars) && ($istok(%WarNicks,$nick,32)) {
$remtok(%WarNicks,$nick,32)
$addtok(%WarNicks,$newnick,32)
if ($nick == %Champion) { set %Champion $newnick }
notice $newnick Your war nick has been updated.
}
}