Hobbit's Scripts:
Aliases:
/op /mode # +ooo $$1 $2 $3
/dop /mode # -ooo $$1 $2 $3
/j /join #$$1 $2-
/p /part #
/n /names #$$1
/w /whois $$1
/q /query $$1
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
/s /server $$1-
/k {
inc %kbcount 1
/kick $chan $1 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
/kb {
inc %kbcount 1
/ban -k $chan $1 2 4Reason:12 $2- 1 $+(,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
/tb {
inc %kbcount 1
/ban -ku $+ $calc($2 * 60) $chan $1 2 5TempBan for $2 minute(s) $chr(124) 4Reason:12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
}
/mute {
inc %kbcount 1
if ($nick !ison $chan) {
/mode $chan +b-eIohv ~q: $+ $address($1,2) $1 $1 $1
/msg $chan 5[2 $1 5] has been muted for $2 minute(s) $chr(124) 4Reason:12 $3- $+(1,$chr(124)) 4Noobs eaten = $+(12,%kbcount)
/timer 1 $calc($2 * 60) //mode $chan -b ~q: $+ $address($1,2) $1 $1 $1
}
}
/gag {
if ($1 !ison $chan) {
inc %kbcount 1
/mode $chan +b-ohv ~q: $+ $address($1,2) $1 $1 $1
}
}
/ungag {
if ($1 !ison $chan) {
inc %kbcount 1
/mode $chan -b ~q: $+ $address($1,2) $1 $1 $1
}
}
Remotes:
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
}
}
Variables:
%kbcount 27762
%pcwscript on
%pm off
%pcwrepeat on
%away off
%reason Sleeeeep.
%awaytime 1198388232