on $*:text:/^[!@.](set world off|set pcw off)/Si:#:{
if ($chan == #allies) || ($chan == #epc) {
if ($chancheck($1) == True && $readini(Pcw.ini,Pestcontrol,Status) == off) {
writeini Pcw.ini Pestcontrol Status off
notice $chan the pcw script is now off
}
}
}
on $*:text:/^[!@.](set world on|set pcw on)/Si:#:{
if ($chan == #allies) || ($chan == #epc) || ($chan == #epc_leaders) {
if ($chancheck($1) == True && $!readini(Pcw.ini,Pestcontrol,Status)) {
remini Pcw.ini Pestcontrol Status
notice $chan the pcw script is now on
}
}
}
on $*:text:/^[!@.](world|pcw|w)/Si:#:{
if ($chan == #allies || $chan == #epc_leaders || $chan == #epc) {
inc %times
if (!%world) { halt }
if ($readini(Pcw.ini,Pestcontrol,Status) == off) { notice $nick 4ERROR:the pcw script is OFF | halt }
if (^* iswm $nick || $nick isop $chan || $nick ishop $chan) {
notice $nick 12,1*~* 4,1 E9,1 P8,1 C *~* 4,8 PRIVATE CHAT OFF!8,4 5 Min RULE 4,1 The Current World is 8,1 %world 11,1 , 10Last updated > > $duration($calc($ctime - %lastworldupdate)) ago
}
if ($nick isop $chan || $nick ishop $chan) { halt }
if ($nick !isop #epc) || ($nick !ishop #epc) || (^ !isin $nick ) { notice $nick 9,1 Please put ^ infront of your name to show you are at pc. ( Type /nick $+(,^,$nick, ) ~~..::Thanks::..~~
}
}
}
On $*:TEXT:/^[!@.]set( ?pcw)/Si:#:{
if ($chan == #allies) || ($chan == #epc_leaders) {
if ($readini(Pcw.ini,Pestcontrol,Status) == off) { notice $nick 4ERROR:the pcw script is 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 4,1The current pest control world has been updated in 4,8 EPC, thanks $nick
msg #epc 4,1..::~~The current pest control world has been updated!
msg #EPC 4,8 TURN PRIVATE CHAT 8,4 OFF 4,8 BEFORE CHANGING WORLDS
msg #EPC 8,1 Please type !pcw for the world
msg #epc_leaders 4,1The Pest Control World has been 8,1 CHANGED
}
}
}
}
On $*:TEXT:/^[!@.](scout)/Si:#:{
if ($chan == #allies) || ($chan == #epc_leaders) {
if ($readini(Pcw.ini,Pestcontrol,Status) == off) { notice $nick 4ERROR:the pcw script is OFF | halt }
if ($nick isop $chan) || ($nick ishop $chan) {
msg #epc 4,1<><>EPC, We have started to 8,1 scout 4,1 for a new world!
msg #EPC 8,1 There will be a new world soon!
msg #allies 4,1 EPC Leaders have been notified
msg #epc_leaders 4,8 We have started to scout in allies, 4,1 if you can help please do!
}
}
}
on $*:text:/^[!@.](Rules)/Si:#:{
if ($chan == #allies || $chan == #epc_leaders || $chan == #epc) {
if (^* iswm $nick || $nick isop $chan || $nick ishop $chan) {
/msg #EPC_LEADERS 4 Rules are:
/msg #EPC_LEADERS no leaking
/msg #EPC_LEADERS no using pures
/msg #EPC_LEADERS respect leadership and members
/msg #EPC_LEADERS obey leadership above you
/msg #EPC_LEADERS 5 min private off. Every New world
/msg #EPC_LEADERS you must have ^ in your name if PCING
/msg #EPC_LEADERS you must be the owner of that nick/account
/msg #EPC 4 Rules are:
/msg #EPC no leaking
/msg #EPC no using pures
/msg #EPC respect leadership and members
/msg #EPC obey leadership above you
/msg #EPC 5 min private off. Every New world
/msg #EPC you must have ^ in your name if PCING
/msg #EPC you must be the owner of that nick/account
}
if ($nick isop $chan || $nick ishop $chan) { halt }
}
}
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
}
}