Remotes for Bot Owner:
on *:text:!pcwon *:#pc: {
if ($nick !isreg $chan) {
set %pcwrepeat on
/timerpcw 0 $2 /.ctcp Hobbit sayworld
}
}
on *:text:!slowdown *:#pc: {
if ($nick !isreg $chan) {
/timerpcw 0 $2 /.ctcp Hobbit sayworld
}
}
on *:text:!pcwon:#pc: {
if ($nick !isreg $chan) {
set %pcwrepeat on
}
}
on *:text:!pcwrepeatoff:#pc: {
if (%pcwrepeat == off) { halt }
if ($nick !isreg $chan) {
set %pcwrepeat off
/timerpcw off
}
}
on *:text:!pcwoff:#pc: {
if ($nick !isreg $chan) {
/timerpcw off
set %pcwrepeat off
}
}
on *:text:!pcwrepeaton *:#pc: {
if (%pcwrepeat == off) { halt }
if ($nick !isreg $chan) {
set %pcwrepeat on
/timerpcw 0 $2 /.ctcp Hobbit sayworld
}
}
on *:text:!timersuggeston:#pc: {
if ($nick !isreg $chan) {
/timersuggest 0 60 /msg #pc 2If the current Pest Control Worlds are 5BAD2, please 5suggest new ones2 by typing 5!suggest level world 2. This will 5message the staff channel2 and 5record you suggestion2. After 5five suggestions2, the world will 5automatically be changed2.
}
}
on *:text:!timersuggestoff:#pc: {
if ($nick !isreg $chan) {
/timersuggest off
}
}
on *:text:!cwon *:#castlewars: {
if ($nick !isreg $chan) {
set %cwwrepeat on
/timercw 0 $2 /.ctcp Hobbit saycworld
}
}
on *:text:!cwrepeatoff:#castlewars: {
if (%cwwrepeat == off) { halt }
if ($nick !isreg $chan) {
set %cwwrepeat off
.timercw off
}
}
on *:text:!cwoff:#castlewars: {
if ($nick !isreg $chan) {
.timercw off
set %cwwrepeat off
}
}
on *:text:!cwrepeaton *:#castlewars: {
if (%cwwrepeat == off) { halt }
if ($nick !isreg $chan) {
set %cwwrepeat on
/.timercw 0 $2 /.ctcp Hobbit saycworld
}
}
Remotes for Hobbit:
alias eI {
/mode $chan +eIeI $address($me,2) $address($me,2) $me $me
}
alias -eI {
/mode $chan -eIeI $address($me,2) $address($me,2) $me $me
}
alias pm {
set %pm $1 | /amsg 2Private-Messagess have been turned 5[ $1 ]2 $+ !
}
on *:TEXT:*:?:{
if (%pm == OFF) {
.msg $nick 2I am a bot. If you have a problem, please message my owner, 5Paul2.
close -m $nick
}
}
raw 439:*: {
haltdef
quit Restarting.
server $serverip
}
on *:text:!pcwoff:#pc: {
if ($nick !isreg $chan) {
set %pcwscript off
msg $chan 2PCW Commands are now 5[ OFF ]2
}
}
on *:text:!pcwon *:#pc: {
if ($nick !isreg $chan) {
set %pcwscript on
msg $chan 2PCW Commands are now 5[ ON ]2. Type 5 !pcwcommands 2 to see my pest control commands.
}
}
on *:text:!pcwon:#pc: {
if ($nick !isreg $chan) {
set %pcwscript on
msg $chan 2PCW Commands are now 5[ ON ]2. Type 5 !pcwcommands 2 to see my pest control commands.
}
}
ctcp *:sayworld:*: {
if (%pcwscript == off) { halt }
if ($nick !isreg $chan) {
msg #pc 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
}
}
on *:text:!suggest *:#pc:{
if ($3 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
if (%pcwscript == on) {
if ($2 == 40+) {
if (%40 == $3) { notice $nick That is already the 40+ world! | halt }
if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
/writeini 40pcwsuggested.ini $3 suggested $calc($readini(40pcwsuggested.ini, $3, suggested) +1)
/writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 40+ ]2.
if ($readini(40pcwsuggested.ini, $3, suggested) >= 5) {
/remove 40pcwnicksuggested.ini
/remove 40pcwsuggested.ini
set %40 $3
set %40nick Suggestions
set %40time $ctime
msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ %40nick ]2 $+ }
}
if ($2 == 70+) {
if (%70 == $3) { notice $nick That is already the 70+ world! | halt }
if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
/writeini 70pcwsuggested.ini $3 suggested $calc($readini(70pcwsuggested.ini, $3, suggested) +1)
/writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 70+ ]2.
if ($readini(70pcwsuggested.ini, $3, suggested) >= 5) {
/remove 70pcwnicksuggested.ini
/remove 70pcwsuggested.ini
set %70 $3
set %70nick Suggestions
set %70time $ctime
msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ %70nick ]2 $+ }
}
if ($2 == 100+) {
if (%100 == $3) { notice $nick That is already the 100+ world! | halt }
if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
/writeini 100pcwsuggested.ini $3 suggested $calc($readini(100pcwsuggested.ini, $3, suggested) +1)
/writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 100+ ]2.
if ($readini(100pcwsuggested.ini, $3, suggested) >= 5) {
/remove 100pcwnicksuggested.ini
/remove 100pcwsuggested.ini
set %100 $3
set %100nick Suggestions
set %100time $ctime
msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ %100nick ]2 $+ }
}
}
if (%pcwscript == off) {
if ($2 == 40+) {
if (%40 == $3) { notice $nick That is already the 40+ world! | halt }
if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
/writeini 40pcwsuggested.ini $3 suggested $calc($readini(40pcwsuggested.ini, $3, suggested) +1)
/writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 40+ ]2.
if ($readini(40pcwsuggested.ini, $3, suggested) >= 5) {
/remove 40pcwnicksuggested.ini
/remove 40pcwsuggested.ini
set %40 $3
set %40nick Suggestions
set %40time $ctime
}
}
if ($2 == 70+) {
if (%70 == $3) { notice $nick That is already the 70+ world! | halt }
if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
/writeini 70pcwsuggested.ini $3 suggested $calc($readini(70pcwsuggested.ini, $3, suggested) +1)
/writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 70+ ]2.
if ($readini(70pcwsuggested.ini, $3, suggested) >= 5) {
/remove 70pcwnicksuggested.ini
/remove 70pcwsuggested.ini
set %70 $3
set %70nick Suggestions
set %70time $ctime
}
}
if ($2 == 100+) {
if (%100 == $3) { notice $nick That is already the 100+ world! | halt }
if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
/writeini 100pcwsuggested.ini $3 suggested $calc($readini(100pcwsuggested.ini, $3, suggested) +1)
/writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $3 ]2 for levels 5[ 100+ ]2.
if ($readini(100pcwsuggested.ini, $3, suggested) >= 5) {
/remove 100pcwnicksuggested.ini
/remove 100pcwsuggested.ini
set %100 $3
set %100nick Suggestions
set %100time $ctime
}
}
}
}
on *:TEXT:!suggest40+ *:#pc:{
if (%pcwscript == on) {
if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
if (%40 == $2) { notice $nick That is already the 40+ world! | halt }
if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
/writeini 40pcwsuggested.ini $2 suggested $calc($readini(40pcwsuggested.ini, $2, suggested) +1)
/writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 40+ ]2.
if ($readini(40pcwsuggested.ini, $2, suggested) >= 5) {
/remove 40pcwnicksuggested.ini
/remove 40pcwsuggested.ini
set %40 $2
set %40nick Suggestions
set %40time $ctime
msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ %40nick ]2 $+ }
}
if (%pcwscript == off) {
if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
if (%40 == $2) { notice $nick That is already the 40+ world! | halt }
if ($readini(40pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 40+ world! | halt }
/writeini 40pcwsuggested.ini $2 suggested $calc($readini(40pcwsuggested.ini, $2, suggested) +1)
/writeini 40pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 40+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 40+ ]2.
if ($readini(40pcwsuggested.ini, $2, suggested) >= 5) {
/remove 40pcwnicksuggested.ini
/remove 40pcwsuggested.ini
set %40 $2
set %40nick Suggestions
set %40time $ctime
}
}
}
on *:TEXT:!suggest70+ *:#pc:{
if (%pcwscript == on) {
if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
if (%70 == $2) { notice $nick That is already the 70+ world! | halt }
if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
/writeini 70pcwsuggested.ini $2 suggested $calc($readini(70pcwsuggested.ini, $2, suggested) +1)
/writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 70+ ]2.
if ($readini(70pcwsuggested.ini, $2, suggested) >= 5) {
/remove 70pcwnicksuggested.ini
/remove 70pcwsuggested.ini
set %70 $2
set %70nick Suggestions
set %70time $ctime
msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ %70nick ]2 $+ }
}
if (%pcwscript == off) {
if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
if (%70 == $2) { notice $nick That is already the 70+ world! | halt }
if ($readini(70pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 70+ world! | halt }
/writeini 70pcwsuggested.ini $2 suggested $calc($readini(70pcwsuggested.ini, $2, suggested) +1)
/writeini 70pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 70+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 70+ ]2.
if ($readini(70pcwsuggested.ini, $2, suggested) >= 5) {
/remove 70pcwnicksuggested.ini
/remove 70pcwsuggested.ini
set %70 $2
set %70nick Suggestions
set %70time $ctime
}
}
}
on *:text:!suggest100+ *:#pc:{
if (%pcwscript == on) {
if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
if (%100 == $2) { notice $nick That is already the 100 world! | halt }
if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
/writeini 100pcwsuggested.ini $2 suggested $calc($readini(100pcwsuggested.ini, $2, suggested) +1)
/writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 100+ ]2.
if ($readini(100pcwsuggested.ini, $2, suggested) >= 5) {
/remove 100pcwnicksuggested.ini
/remove 100pcwsuggested.ini
set %100 $2
set %100nick Suggestions
set %100time $ctime
msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ %100nick ]2 $+ }
}
if (%pcwscript == off) {
if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. | halt }
if (%100 == $2) { notice $nick That is already the 100 world! | halt }
if ($readini(100pcwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a 100+ world! | halt }
/writeini 100pcwsuggested.ini $2 suggested $calc($readini(100pcwsuggested.ini, $2, suggested) +1)
/writeini 100pcwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting a 100+ world!
/msg #pcstaff 5[ $nick ]2 has suggested world 5[ $2 ]2 for levels 5[ 100+ ]2.
if ($readini(100pcwsuggested.ini, $2, suggested) >= 5) {
/remove 100pcwnicksuggested.ini
/remove 100pcwsuggested.ini
set %100 $2
set %100nick Suggestions
set %100time $ctime
}
}
}
on *:text:!change *:#pc: {
if (%pcwscript == on) && ($nick !isreg $chan) && ($3 isnum 2-144) {
if ($2 == 40+) {
set %40 $3
set %40nick $nick
msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ $nick ]2
set %40time $ctime
remove 40pcwsuggested.ini
remove 40pcwnicksuggested.ini
}
if ($2 == 70+) {
set %70 $3
set %70nick $nick
msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ $nick ]2
set %70time $ctime
remove 70pcwsuggested.ini
remove 70pcwnicksuggested.ini
}
if ($2 == 100+) {
set %100 $3
set %100nick $nick
msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ $nick ]2
set %100time $ctime
remove 100pcwsuggested.ini
remove 100pcwnicksuggested.in
}
}
if (%pcwscript == off) && ($nick !isreg $chan) && ($3 isnum 2-144) {
if ($2 == 40+) {
set %40 $3
set %40nick $nick
set %40time $ctime
remove 40pcwsuggested.ini
remove 40pcwnicksuggested.ini
}
if ($2 == 70+) {
set %70 $3
set %70nick $nick
set %70time $ctime
remove 70pcwsuggested.ini
remove 70pcwnicksuggested.ini
}
if ($2 == 100+) {
set %100 $3
set %100nick $nick
set %100time $ctime
remove 100pcwsuggested.ini
remove 100pcwnicksuggested.ini
}
}
}
on *:text:!change40+ *:#pc: {
if (%pcwscript == on) && ($nick !isreg $chan) && ($2 isnum 2-144) {
set %40 $2
set %40nick $nick
msg $chan 2The 40+ Pest Control World has been 5[ UPDATED ]2 to 5[ %40 ]2 by 5[ $nick ]2
set %40time $ctime
remove 40pcwsuggested.ini
remove 40pcwnicksuggested.ini
}
if (%pcwscript == off) && ($nick !isreg $chan) && ($2 isnum 2-144) {
set %40 $2
set %40nick $nick
set %40time $ctime
remove 40pcwsuggested.ini
remove 40pcwnicksuggested.ini
}
}
on *:text:!change70+ *:#pc: {
if (%pcwscript == on) && ($nick !isreg $chan) && ($2 isnum 2-144) {
set %70 $2
set %70nick $nick
msg $chan 2The 70+ Pest Control World has been 5[ UPDATED ]2 to 5[ %70 ]2 by 5[ $nick ]2
set %70time $ctime
remove 70pcwsuggested.ini
remove 70pcwnicksuggested.ini
}
if (%pcwscript == off) && ($nick !isreg $chan) && ($2 isnum 2-144) {
set %70 $2
set %70nick $nick
set %70time $ctime
remove 70pcwsuggested.ini
remove 70p2cwnicksuggested.ini
}
}
on *:text:!change100+ *:#pc: {
if (%pcwscript == on) && ($nick !isreg $chan) && ($2 isnum 2-144) {
set %100 $2
set %100nick $nick
msg $chan 2The 100+ Pest Control World has been 5[ UPDATED ]2 to 5[ %100 ]2 by 5[ $nick ]2
set %100time $ctime
remove 100pcwsuggested.ini
remove 100pcwnicksuggested.ini
}
if (%pcwscript == off) && ($nick !isreg $chan) && ($2 isnum 2-144) {
set %100 $2
set %100nick $nick
set %100time $ctime
remove 100pcwsuggested.ini
remove 100pcwnicksuggested.ini
}
}
on *:TEXT:!pcw:#pc: {
if (%pcwscript == off) { halt } {
inc %pcwcount 1
/notice $nick 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
}
}
on *:TEXT:!world:#pc: {
if (%pcwscript == off) { halt } {
inc %pcwcount 1
/notice $nick 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
}
}
on *:TEXT:!pcw40+:#pc: {
if (%pcwscript == off) { halt } {
inc %pcwcount 1
/notice $nick 2The current 40+ Pest Control World is 5[ %40 ]2 set 5[ $duration($calc($ctime - $($+(%,40time),2))) ]2 ago by 5[ %40nick ].2 Command used 5[ %pcwcount ]2 times.
}
}
on *:TEXT:!pcw70+:#pc: {
if (%pcwscript == off) { halt } {
inc %pcwcount 1
/notice $nick 2The current 70+ Pest Control World is 5[ %70 ]2 set 5[ $duration($calc($ctime - $($+(%,70time),2))) ]2 ago by 5[ %70nick ].2 Command used 5[ %pcwcount ]2 times.
}
}
on *:TEXT:!pcw100+:#pc: {
if (%pcwscript == off) { halt } {
inc %pcwcount 1
/notice $nick 2The current 100+ Pest Control World is 5[ %100 ]2 set 5[ $duration($calc($ctime - $($+(%,100time),2))) ]2 ago by 5[ %100nick ].2 Command used 5[ %pcwcount ]2 times.
}
}
on *:TEXT:@pcw:#pc: {
if (%pcwscript == off) { halt } {
inc %pcwcount 1
/msg $chan 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
}
}
on *:TEXT:@world:#pc: {
if (%pcwscript == off) { halt } {
inc %pcwcount 1
/msg $chan 2Official world is 5[ 88 ]2. 40+ world is 5[ %40 ]2. 70+ world is 5[ %70 ]2. 100+ world is 5[ %100 ].
}
}
on *:TEXT:@pcw40+:#pc: {
if (%pcwscript == off) { halt } {
inc %pcwcount 1
/msg $chan 2The current 40+ Pest Control World is 5[ %40 ]2 set 5[ $duration($calc($ctime - $($+(%,40time),2))) ]2 ago by 5[ %40nick ].2 Command used 5[ %pcwcount ]2 times.
}
}
on *:TEXT:@pcw70+:#pc: {
if (%pcwscript == off) { halt } {
inc %pcwcount 1
/msg $chan 2The current 70+ Pest Control World is 5[ %70 ]2 set 5[ $duration($calc($ctime - $($+(%,70time),2))) ]2 ago by 5[ %70nick ].2 Command used 5[ %pcwcount ]2 times.
}
}
on *:TEXT:@pcw100+:#pc: {
if (%pcwscript == off) { halt } {
inc %pcwcount 1
/msg $chan 2The current 100+ Pest Control World is 5[ %100 ]2 set 5[ $duration($calc($ctime - $($+(%,100time),2))) ]2 ago by 5[ %100nick ].2 Command used 5[ %pcwcount ]2 times.
}
}
on *:text:!pcwrepeaton *:#pc: {
if (%pcwscript == off) { halt }
if ($nick !isreg $chan) {
/msg $chan 2The World Repeat is now 5[ ON ].2 The world will repeat every 5[ $2 ]2 seconds.
}
}
on *:text:!pcwrepeatoff:#pc: {
if (%pcwscript == off) { halt }
if ($nick !isreg $chan) {
/msg $chan 2The World Repeat is now 5[ OFF ]2
}
}
on *:text:!pcwcommands:#: {
if ($nick !isreg $chan) {
msg $nick To turn the Pest Control World script and World Repeat on at the same time = !pcwon number of seconds to delay between repeats
msg $nick To turn only the Pest Control World script on= !pcwon
msg $nick To turn only the World Repeat on = !pcwrepeaton number of seconds to delay between repeats
msg $nick To see all the current Pest Control Worlds = !pcw
msg $nick To see individual Pest Control Worlds = !pcw40+/70+/100+
msg $nick To suggest a Pest Control World (5 suggests required to change the world) = !suggest40+/70+/100+ world
msg $nick To turn the World Repeat off = !pcwrepeatoff
msg $nick To turn the Pest Control World script off = !pcwoff
}
}
on $*:TEXT:!suggest *:#castlewars:{
if (%cwwscript == off) { halt }
if ($2 !isnum 2-144) { notice $nick That is not a legitimate world. Make sure you are typing !suggest world | halt }
if (%cww == $3) { notice $nick That is already the current Castle Wars World! | halt }
if (%cwwscript == off) { HALT }
if ($readini(cwnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a world! | halt }
/writeini cwsuggested.ini $2 suggested $calc($readini(cwsuggested.ini, $2, suggested) +1)
/writeini cwnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting!
if ($readini(cwsuggested.ini, $2, suggested) >= 5) {
/remove cwsuggested.ini
/remove cwnicksuggested.ini
set %cww $2
msg $chan 2The Castle Wars World has been 5[ UPDATED ]2 to 5[ %cww ]2 team 5[ Guthix ] by 5[ Suggestions ]2 $+ }
}
on $*:TEXT:!suggestteam *:#castlewars:{
if (%cwwscript == off) { halt }
if ($2 != Guthix && $2 != Saradomin && $2 != Zamorak) { notice $nick That is not a legitamite team. Make sure you are typing !tsuggest team | halt }
if (%cwteam == $3) { notice $nick That is already the current Castle Wars Team! | halt }
if ($readini(teamnicksuggested.ini, suggestppl, $address($nick,2))) { notice $nick You have already suggested a team! | halt }
/writeini teamsuggested.ini $2 suggested $calc($readini(teamsuggested.ini, $2, suggested) +1)
/writeini teamnicksuggested.ini SuggestPpl $address($nick,2) 1 | notice $nick Thank you for suggesting!
if ($readini(teamsuggested.ini, $2, suggested) >= 5) {
/remove teamsuggested.ini
/remove teamnicksuggested.ini
set %cwteam $2
msg $chan 2The current Castle Wars Team has been 5[ UPDATED ]2 to 5[ %cwteam ]2 $+ }
}
on *:text:!setteam *:#castlewars: {
if (%cwwscript == off) { HALT }
if ($nick !isreg $chan) && (($2 == Guthix) || ($2 == Saradomin) || ($2 == Zamorak)) {
set %cwteam $2
/msg $chan 2The current Castle Wars Team has been 5[ UPDATED ]2 to 5[ %cwteam ]2
}
}
on *:text:!cwoff:#castlewars: {
if ($nick !isreg $chan) {
set %cwwscript off
msg $chan 2CW Commands are now 5[ OFF ]2
}
}
on *:text:!cwon *:#castlewars: {
if ($nick !isreg $chan) {
set %cwwscript on
msg $chan 2CW Commands are now 5[ ON ]2. Type 5 !cwcommands 2 to see my castle wars commands.
}
}
on *:text:!cwon:#castlewars: {
if ($nick !isreg $chan) {
set %cwwscript on
msg $chan 2CW Commands are now 5[ ON ]2. Type 5 !cwcommands 2 to see my castle wars commands.
}
}
ctcp *:saycworld:*: {
if (%cwwscript == off) { halt }
if ($nick !isreg $chan) {
//msg #castlewars 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2. Minutes until next game: 5[ %cwmin ]2.
}
}
on *:text:!change *:#castlewars: {
if (%cwwscript == off) { halt }
if ($nick !isreg $chan) && ($2 isnum 2-144) {
set %cww $2
set %cwnick $nick
set %cwtime $ctime
set %cwmin N/A
remove cwnicksuggested.ini
remove cwsuggested.ini
remove teamsuggested.ini
remove teamnicksuggested.ini
timercwmin1 off
timercwmin2 off
timercwmin3 off
if ($3 == $null) {
set %cwteam Guthix
}
if (($3 == Guthix) || ($3 == Saradomin) || ($3 == Zamorak)) {
set %cwteam $3
}
if ($4 == $null) {
msg $chan 2The Castle Wars World has been 5[ UPDATED ]2 to 5[ %cww ]2 team 5[ %cwteam ]2 by 5[ %cwnick ]
}
if ($4 isnum 1-25) {
set %cwmin $4
msg $chan 2The Castle Wars World has been 5[ UPDATED ]2 to 5[ %cww ]2 team 5[ %cwteam ]2 by 5[ %cwnick ]2. There are 5[ %cwmin ]2 minutes until the next game.
castlewarsstart
}
}
}
on *:TEXT:!cw:#castlewars: {
if (%cwwscript == off) { halt } {
inc %cwcount 1
/notice $nick 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
}
}
on *:TEXT:!cww:#castlewars: {
if (%cwwscript == off) { halt } {
inc %cwcount 1
/notice $nick 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
}
}
on *:TEXT:!world:#castlewars: {
if (%cwwscript == off) { halt } {
inc %cwcount 1
/notice $nick 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
}
}
on *:TEXT:@cw:#castlewars: {
if (%cwwscript == off) { halt }
if ($nick !isreg $chan) {
inc %cwcount 1
/msg $chan 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set 5[ $duration($calc($ctime - $($+(%,cwtime),2))) ]2 ago by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
}
}
on *:TEXT:@cww:#castlewars: {
if (%cwwscript == off) { halt }
if ($nick !isreg $chan) {
inc %cwcount 1
/msg $chan 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set 5[ $duration($calc($ctime - $($+(%,cwtime),2))) ]2 ago by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
}
}
on *:TEXT:@world:#castlewars: {
if (%cwwscript == off) { halt }
if ($nick !isreg $chan) {
inc %cwcount 1
/msg $chan 2The current Castle Wars World is 5[ %cww ]2 team 5[ %cwteam ]2 set 5[ $duration($calc($ctime - $($+(%,cwtime),2))) ]2 ago by 5[ %cwnick ].2 Minutes until next game: 5[ %cwmin ]2.
}
}
on *:text:!cwrepeaton *:#castlewars: {
if (%cwwscript == off) { halt }
if ($nick !isreg $chan) {
/msg $chan 2The World Repeat is now 5[ ON ].2 It will repeat every 5[ $2 ]2 seconds.
}
}
on *:text:!cwrepeatoff:#castlewars: {
if (%cwwscript == off) { halt }
if ($nick !isreg $chan) {
/msg $chan 2The World Repeat is now 5[ OFF ]2
}
}
on *:text:!settime *:#castlewars: {
if (%cwwscript == off) { halt }
if ($nick !isreg $chan) && ($2 isnum 1-25) {
./set %cwmin $2
./msg $chan 2The timer has been set. There are 5[ %cwmin ]2 minutes until the next game.
castlewarsstart
}
}
alias CastleWarsStart {
./timercwmin1 %cwmin 60 dec %cwmin
./timercwmin2 1 $calc(%cwmin * 60) set %cwmin 25
./timercwmin3 1 $calc(%cwmin * 60) CastleWarsStart
}
on *:text:!cwcommands:#: {
if ($nick !isreg $chan) {
msg $nick To turn the Castle Wars World script on = !cwon
msg $nick To turn the Castle Wars World script and World Repeat on at the same time = !cwon number of seconds to delay between repeats
msg $nick To see the current Castle Wars World = !cw or !world or !cww
msg $nick To change the current Castle Wars World and Team and set Minutes until next game = !change world team minutes until next game
msg $nick To change the current Castle Wars World and Team = !change world team
msg $nick To change the current Castle Wars World = !change world
msg $nick To suggest a Castle Wars World (5 suggests required to change the world) = !suggest world
msg $nick To change the current Castle Wars Team = !team team
msg $nick To suggest a Castle Wars Team (5 suggests required to change the team) = !suggestteam team
msg $nick To set Minutes until next game: !settime minutes until next game
msg $nick To turn the World Repeat off = !cwrepeatoff
msg $nick To turn the World Repeat on = !cwrepeaton number of seconds to delay between repeats
msg $nick To turn the Castle Wars World script off = !cwoff
}
}