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.
}
}
ctcp *:sayworld:*: {
if (%pcwscript == off) { halt }
if ($nick !isreg $chan) {
msg #pc 240+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
}
}