on *:TEXT:!ivoiceoff*:#:{ if ($nick == zWill88) {
    msg $chan 4Pest Off
set %pestscript OFF } } 

on *:TEXT:!ivoiceon*:#:{ if ($nick == zWill88) {
    msg $chan 4Pest On
set %pestscript ON } }

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

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

on *:TEXT:!pcw*:#aspc:{ 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 4scripted by [-God-] } }

on *:TEXT:!pcw*:#Peststaff:{ 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  } }

on *:TEXT:!suggest*:#aspc:{ if ($2 !isnum 2-138) { halt }
  elseif (%suggestedw) { notice $nick There is already a suggested world }
  elseif ($2 isnum 2-138) && (!%suggestedw) {
    msg #Peststaff 4 $nick has suggested world: $2  Type !checking !accept <worldhere> or !decline <worldhere> 
    notice [-God-] $nick suggested world: $2 
    notice zWill88 $nick suggested world: $2
    set %suggestedw $2
    set %suggester $nick
  }
}
on *:TEXT:!decline*:#Peststaff:{ if ($2 !isnum 2-138) { halt }
  elseif (!$2) { 
  msg #Peststaff Use !decline <worldhere> }  
  elseif ($2 isnum 2-138) && ($nick isop #aspc) || ($nick ishop #aspc) {
    msg #aspc 4World %suggestedw was DECLINED..   
    unset %suggestedw
    unset %suggester
  }
}
on *:TEXT:!accept*:#Peststaff:{ if ($2 !isnum 2-138) { halt }
  if (!$2) {
  msg #Peststaff Use accept <worldhere> }
  if ($2 isnum 2-138) && ($nick isop #aspc) || ($nick ishop #aspc) {
    msg #aspc World %suggestedw was suggested by %suggester . It has been accepted 
    msg #aspc 4New PCW1 - !pcw to view 
    unset %suggestedw
    unset %suggester
    set %settime $ctime
    set %pcworld $2
    set %pcsetter $nick
    msg #peststaff 4World changed to %pcworld
  }
}
on *:TEXT:!checking*:#peststaff:{ if ($nick isop #aspc) || ($nick ishop #aspc) {
    msg #aspc 4Suggested1 world is being checked
  }
}
on *:TEXT:!setworld*:#Peststaff:{ if (%pestscript == OFF) { HALT }
  elseif (%pestscript == ON) && ($nick isop #aspc) || ($nick ishop #aspc) { 
  notice $nick use !change please }
}
on *:TEXT:!new*:#Peststaff:{ if ($nick isop #aspc) || ($nick ishop #aspc) {
    msg #aspc 1Fed up with the 4world?1 Suggest a new world by typing !suggest <worldhere>
  }
}