Something

on *:TEXT:!change*:#: { 
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) && ($2 isnum 2-140) { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }    
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime 
    msg $chan 10»15]|[12Pc world for4 $chan 15]|[12 changed by4 $nick 15]|[12 In4 $chan 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[12Access denied. 15]|[10«
  } 
} 
on *:TEXT:!pcw:#:{ 
  inc %pestcontrol.
  if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
  if (%pcw. [ $+ [ $chan ] ] == on) { 
    notice $nick 10»15]|[12 World:4 %pcw.world. [ $+ [ $chan ] ] $+ 15]|[12 By:4 %pcw.nick. [ $+ [ $chan ] ] 15]|[4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) 15]|[12 Count:4 %pestcontrol. 15]|[10«
  } 
} 
on *:TEXT:!world:#:{ 
  inc %pestcontrol.
  if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
  if (%pcw. [ $+ [ $chan ] ] == on) { 
    notice $nick 10»15]|[12 World:4 %pcw.world. [ $+ [ $chan ] ] $+ 15]|[12 By:4 %pcw.nick. [ $+ [ $chan ] ] 15]|[4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) 15]|[12 Count:4 %pestcontrol. 15]|[10«
  } 
}
on *:TEXT:@pcw:#:{ 
  inc %pestcontrol.
  if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
  if (%pcw. [ $+ [ $chan ] ] == on) { 
    msg $chan 10»15]|[12 World:4 %pcw.world. [ $+ [ $chan ] ] $+ 15]|[12 By:4 %pcw.nick. [ $+ [ $chan ] ] 15]|[4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) 15]|[12 Count:4 %pestcontrol. 15]|[10«
  } 
}
on *:TEXT:@world:#:{ 
  inc %pestcontrol.
  if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
  if (%pcw. [ $+ [ $chan ] ] == on) { 
    msg $chan 10»15]|[12 World:4 %pcw.world. [ $+ [ $chan ] ] $+ 15]|[12 By:4 %pcw.nick. [ $+ [ $chan ] ] 15]|[4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) 15]|[12 Count:4 %pestcontrol. 15]|[10«
  } 
}  
on *:text:!pestcontrol on*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) { 
    set %pcw. $+ $chan on 
    msg $chan 10»15]|[12The pestcontrol commands for4 $chan 12are now ON 15]|[10«
  } 
} 
on *:text:!pestcontrol off*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) { 
    set %pcw. $+ $chan off 
    msg $chan 10»15]|[12The pestcontrol commands for4 $chan 12are now OFF 15]|[10«
  } 
}
on *:TEXT:@pcw:#pest-hq: { if ($nick !isreg $chan) { commands } }