Miscellany

on *:TEXT:!pest-off*:#:{ if ($nick isop $chan) {
    msg $chan 4,1The PCW script has been turned off.
set %pestscript OFF } } 

on *:TEXT:!pest-on*:#:{ if ($nick isop $chan) {
    msg $chan 4,1The PCW script has been turned on.
set %pestscript ON } }

on *:TEXT:!setworld*:#:{ if (%pestscript == OFF) { HALT }
  if (%pestscript == ON) && ($2 isnum 1-138) && ($nick isop $chan) || ($nick ishop $chan) {
    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
  }
  else { 
    notice $nick 12,4Make sure this world is a members world or you have the right access level.
  }
}
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 ($nick isop $chan || $nick ishop $chan) {
    set %reason [ $+ [ $chan ] ] $3
    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 %suggest [ $+ [ $chan ] ] 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 ($nick isop $chan) {
    unset %world [ $+ [ $chan ] ]
    unset %scouted [ $+ [ $chan ] ]
    unset %pcw.time [ $+ [ $chan ] ]
    notice $nick 8,4You have restarted the World command.
  }
}