on *:TEXT:!change*:#: { 
  if ($nick isop $chan || $nick ishop $chan) || ($nick isvoice $chan) || ($nick == The_Don) || ($nick == Audrey) && ($2 isnum 2-140) { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }    
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    inc %changed $+ $nick 
    set %pest.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime 
    msg $chan 10»15]|[12Pc World For4 $chan 12Has Been Updated15]|[12 Changed By4 $nick 12To4 %pest.world. 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:!pestcontrol on*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || ($nick == The_Don) || ($nick == Audrey) { 
    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) || ($nick == The_Don) || ($nick == Audrey) { 
    set %pcw. $+ $chan off 
    msg $chan 10»15]|[12The pestcontrol commands for4 $chan 12are now OFF 15]|[10«
  } 
}