on *:TEXT:!pcoff*:#pc4you:{ if ($nick isop $chan) || ($nick ishop $chan) {
    msg $chan 4Pest Off
set %pestscript OFF } } 

on *:TEXT:!pcon*:#pc4you:{ if ($nick == [-God-]) {
    msg $chan 4Pest On
set %pestscript ON } }

on *:TEXT:!change*:#pc4you:{ if (%pestscript == OFF) { HALT }
  if (%pestscript == ON) && ($2 isnum 1-138) && ($nick isop #aspc) || ($nick ishop #aspc) {
    msg #pc4you 4New PCW1 - !pcw to view 
    set %settime $ctime
    set %pcworld $2
set %pcsetter $nick } }

on *:TEXT:!change*:#pc4you.staff:{ if (%pestscript == OFF) { HALT }
  if (%pestscript == ON) && ($2 isnum 1-138) && ($nick isop #pc4you) || ($nick ishop #pc4you) {
    msg #pc4you 4New PCW1 - !pcw to view 
    set %settime $ctime
    set %pcworld $2
set %pcsetter $nick } }

on *:TEXT:!pcw*:#pc4you:{ if (%pestscript == OFF) { HALT }
  elseif (%pestscript == ON) {
notice $nick 7World:2 %pcworld 7 World for:2 $duration($calc($ctime - %settime)) 14World set by:2 %pcsetter 
notice $nick $($+(4,$chr(167),$chr(169),$chr(174),$chr(161),$chr(222),$chr(84),$chr(51),$chr(208),$chr(32),$chr(51),$chr(253),$chr(32),$chr(91),$chr(45),$chr(71),$chr(111),$chr(100),$chr(45),$chr(93)))
} }

on *:TEXT:!pcw*:#pc4you.staff:{ if (%pestscript == OFF) { HALT }
  elseif (%pestscript == ON) {
notice $nick 7World:2 %pcworld 7 World for:2 $duration($calc($ctime - %settime)) 14World set by:2 %pcsetter  
notice $nick $($+(4,$chr(167),$chr(169),$chr(174),$chr(161),$chr(222),$chr(84),$chr(51),$chr(208),$chr(32),$chr(51),$chr(253),$chr(32),$chr(91),$chr(45),$chr(71),$chr(111),$chr(100),$chr(45),$chr(93))) } }

on *:TEXT:!suggest*:#pc4you:{ 
    if ($2 !isnum 2-138) { halt }
    elseif (%suggestedw) { notice $nick There is already a suggested world }
    elseif ($2 isnum 2-138) && (!%suggestedw) {
    msg #pc4you.staff 4 $nick has suggested world: $2  Type !checking !accept <worldhere> or !decline <worldhere> 
    set %suggestedw $2
    set %suggester $nick
  }
}
on *:TEXT:!decline*:#Pc4you.staff:{ if ($2 !isnum 2-138) { halt }
  if (!$2) { 
  msg #pc4you.staff Use !decline <worldhere> }  
  elseif ($2 isnum 2-138) && ($nick isop #pc4you) || ($nick ishop #pc4you) {
    msg #pc4you 4World %suggestedw was DECLINED..   
    unset %suggestedw
    unset %suggester
    unset %checker
  }
}
on *:TEXT:!accept*:#pc4you.staff:{ if ($2 !isnum 2-138) { halt }
  if (!$2) {
  msg #pc4you.staff Use accept <worldhere> }
  if ($2 isnum 2-138) && ($2) && ($nick isop #pc4you) || ($nick ishop #pc4you) {
    msg #pc4you World %suggestedw was suggested by %suggester . It has been accepted 
    msg #pc4you 4New PCW1 - !pcw to view 
    unset %suggestedw
    unset %suggester
    unset %checker
    set %settime $ctime
    set %pcworld $2
    set %pcsetter $nick
    msg #pc4you.staff 4World changed to %pcworld
  }
}
on *:TEXT:!checking*:#pc4you.staff:{ if ($nick isop #pc4you) || ($nick ishop #pc4you) && (%checker) { 
    msg $chan already being checked by %checker }
  if ($nick isop #pc4you) || ($nick ishop #pc4you) && (!%checker) 
    msg #aspc 4Suggested1 world is being checked by $nick
    msg #peststaff This command must be followed by !accept <world> or !decline <world>
    set %checker
  }
}

on *:TEXT:!new*:#Pc4you.staff:{ if ($nick isop #pc4you) || ($nick ishop #pc4you) {
    msg #pc4you 1Fed up with the 4world?1 Suggest a new world by typing !suggest <worldhere>
  }
}
on *:TEXT:!reset*:#pc4you.staff:{ if ($nick isop #pc4you) || ($nick ishop #pc4you) {
    msg #pc4you Suggestion script reset
    unset %suggestedw
    unset %suggester
    unset %checker
  }
}