on $*:text:/!(setpcw|setworld|change)/Si:#: { if (%pestscript == OFF) { HALT }
  if ($3 == $null) { 
    if (%pestscript [ $+ [ $chan ] ] == ON) && ($2 isnum 2-138) && ($nick isop $chan) || ($nick ishop $chan || $nick == Lastrites) {
      if ($3 == $null) { 
        set %world [ $+ [ $chan ] ] $2
        set %scouted [ $+ [ $chan ] ] $nick
        set %pcw.time [ $+ [ $chan ] ] $ctime
        inc %scout.count [ $+ [ $chan ] ] [ $+ [ $nick ] ] 
        msg $chan 3][][ 5The World has changed type !world or !pcw to view it! 3][][ 
        halt
      }
    }
  }
  else { 
    if (%pestscript [ $+ [ $chan ] ] == OFF) { HALT } 
    if (%pestscript [ $+ [ $chan ] ] == ON) && ($2 isnum 2-138) && ($nick isop $chan) || ($nick ishop $chan || $nick == Lastrites) {
      set %world [ $+ [ $chan ] ] $2
      set %scouted [ $+ [ $chan ] ] $3
      set %pcw.time [ $+ [ $chan ] ] $ctime 
      inc %scout.count [ $+ [ $chan ] ] [ $+ [ $3 ] ] 
      msg $chan 3][][ 5The World has changed type !world or !pcw to view it! 3][][ 
      halt
    }
  }
}
on $*:text:/!(world|pcw|pc)/Si:#: { if (%pestscript [ $+ [ $chan ] ] == OFF) { notice $nick 3][][The PCW command has been turned off for $chan to turn on type !pc-on  3][][ } { HALT }
  elseif (%pestscript [ $+ [ $chan ] ] == ON ) {
    if (%world [ $+ [ $chan ] ] == $null || %scouted [ $+ [ $chan ] ] == $null || %pcw.time [ $+ [ $chan ] ] == $null) { /notice $nick 3][][ 5There is currently no world set. 3][ 5To set one type !setpcw world scouter (Op/half only) 3][][ } { Halt }
    /notice $nick 3][][ 5World:3 ][ %world [ $+ [ $chan ] ] ][ 5Scouted by:3 ][ %scouted [ $+ [ $chan ] ] ][ 5last set: $duration($calc( $ctime - %pcw.time [ $+ [ $chan ] ] )) 5ago. 3][][
    inc %cmut [ $+ [ $chan ] ]
    if (%cmut [ $+ [ $chan ] ] == 30) { unset %cmut  |  /quit Limit Exceed. Restarting |  /timer 1 0 /server  } 
  }
}

on $*:text:/@(world|pcw|pc)/Si:#: { if (%pestscript [ $+ [ $chan ] ] == OFF) { HALT }
  elseif (%pestscript [ $+ [ $chan ] ] == ON ) && ($nick isop $chan || $nick ishop $chan) {
    if (%world [ $+ [ $chan ] ] == $null || %scouted [ $+ [ $chan ] ] == $null || %pcw.time [ $+ [ $chan ] ] == $null) { msg $chan 3][][ 5There is currently no world set. 3][ 5To set one type !setpcw world scouter (Op/half only) 3][][ } { Halt }
    msg $chan 3][][ 5World:3 ][ %world [ $+ [ $chan ] ] ][ 5Scouted by:3 ][ %scouted [ $+ [ $chan ] ] ][ 5last set: $duration($calc( $ctime - %pcw.time [ $+ [ $chan ] ] )) 5ago. 3][][
  }
}