on *:TEXT:!set pcw off:#:{
if ($chan == #allies) || ($chan == #epc) {
if ($chancheck($1) == True) {
set %pcwoff off
notice $chan the pcw script is now off
}
}
}
on *:TEXT:!set pcw on:#:{
if ($chan == #allies) || ($chan == #epc) || ($chan == #epc_leaders) {
if ($chancheck($1) == True) {
set %pcwoff
notice $chan the pcw script is now on
}
}
}
on *:TEXT:!world:#:{
if ($chan == #allies) || ($chan == #epc_leaders) || ($chan == #epc) {
inc %times
if (%pcwoff == off) { notice $nick 4ERROR:the pcw script is OFF | halt }
if (^* iswm $nick || $nick isop $chan || $nick ishop $chan) {
notice $nick 12,1*~* EPC *~* 4,1 The Current World is 11,1 %world 10,1 The !World command Has Been Used 4,1 %times Times, 10Last updated > > $duration($calc($ctime - %lastworldupdate)) ago 12,1*~* EPC *~*
if ($nick !isop #epc) || ($nick !ishop #epc) || (*^* !iswm $nick ) { notice $nick 9,1 Please put ^ infront of your name, then type !world for the current pc world ( Type /nick $+(,^,$nick, ) ~~..::Thanks::..~~
}
}
}
}
on *:TEXT:!setworld *:#:{
if ($chan == #allies) || ($chan == #epc_leaders) {
if (%pcwoff == off) { halt }
if ($nick isop $chan) || ($nick ishop $chan) {
if (($2 >= 1) && ($2 <= 148)) || ($2- isalpha a-z) {
set %world $2-
set %worldnick $nick
set %lastworlddateset $date
set %lastworldupdate $ctime
msg #allies 9,1The current pest control world has been updated, thanks $nick
msg #epc 10..::~~The current pest control world has been updated 11 Please type !world for the world 10( You must have ^ infront of your name 2 to access 11my worlds ~thanks~)~~::..
msg #epc_leaders 4,8The Pest Control World has been changed
}
}
}
}
alias chancheck {
if ($1 isop #allies || $1 ishop #allies || $1 isop #epc || $1 ishop #epc || $1 isop #epc_leaders || $1 ishop #epc_leaders) {
return True
}
}