Mine

on *:TEXT:!pest-off*:#:{ if ($nick isop $chan || $nick ishop $chan || $nick == Lastrites) {
    msg $chan 10The PCW script has been turned 7OFF.
set %pestscript OFF } } 

on *:TEXT:!pest-on*:#:{ if ($nick isop $chan || $nick ishop $chan || $nick == Lastrites) {
    msg $chan 1 10The PCW script has been turned 7ON.
set %pestscript ON } }

ON *:TEXT:!setworld *:#:{ if (%pestscript == OFF) { HALT }
  if ($3 == $null) { 
    if (%pestscript == ON) && ($2 isnum 1-138) && ($nick isop $chan) || ($nick ishop $chan) {
      if ($3 == $null) { 
        set %world [ $+ [ $chan ] ] $2
        set %scouted [ $+ [ $chan ] ] $nick
        set %pcw.time [ $+ [ $chan ] ] $ctime
        msg $chan 4 14,8C8,1A14,8U8,1T14,8I8,1O14,8N0,4 The World has changed type !world to view it! 14,8C8,1A14,8U8,1T14,8I8,1O14,8N 
        halt
      }
    }
  }
  else { 
    set %world [ $+ [ $chan ] ] $2
    set %scouted [ $+ [ $chan ] ] $3
    set %pcw.time [ $+ [ $chan ] ] $ctime 
    msg $chan 4 14,8C8,1A14,8U8,1T14,8I8,1O14,8N0,4 The World has changed type !world to view it! 14,8C8,1A14,8U8,1T14,8I8,1O14,8N 
    halt
  }
}
on $*:text:/!(world|pcw)/Si:#: { if (%pestscript == OFF) { HALT }
  elseif (%pestscript == ON) { notice $nick 8PC7,8PC4,7PC5,4PC1,5PC4,1 World: %world [ $+ [ $chan ] ] . Scouted by: %scouted [ $+ [ $chan ] ] . last set: $duration($calc( $ctime - %pcw.time [ $+ [ $chan ] ] )) ago. 1,5PC5,4PC4,7PC7,8PC8PC
  }
} 
on *:TEXT:!suggest*:#:{  
  if (%pestscript == ON) { 
    notice $chan 5,1\1,5\4,5\5,4\0,4\4,0\0,0-0,15\14,15\15,14\1,14\14,1\7,1 $nick has suggested world $2 Reason: $3- 14,1/1,14/15,14/14,15/0,15/0,0-4,0/0,4/5,4/4,5/1,5/5,1/
  } 
}
on *:text:!reset*:#:{ if (%pestscript == ON) && ($nick isop $chan) {
    unset %world [ $+ [ $chan ] ]
    unset %scouted [ $+ [ $chan ] ]
    unset %pcw.time [ $+ [ $chan ] ]
    notice $nick 14You have 4restarted14 the World 4command.
  }
}