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
  }
}