on *:TEXT:!change*:#: { 
  if ($nick !isreg $chan) && ($2 isnum 2-140) { 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT }    
    set %pcw.nick. $+ $chan $nick 
    inc %changed $+ $nick 1
    set %pest.world. $+ $chan $2 
    set %pcw.time. $+ $chan $ctime 
    msg $chan 10»15]|[12Pc World For4 $chan 12Has Been Updated15]|[12Changed By4 $nick 12To4 $2 $+ 15]|[10«
  } 
  else { 
    notice $nick 10»15]|[12Access denied.15]|[10«
  } 
} 
oon $*:text:/^[!@]pc/Si:#:{
$iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick)
  inc %pestcontrol.
  if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
  if (%pcw. [ $+ [ $chan ] ] == on) { 
    notice $nick 10»15]|[15World:4 %pcw.world. [ $+ [ $chan ] ] $+ 15]|[12By:4 %pcw.nick. [ $+ [ $chan ] ] $+ 15]|[4 $+ $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) ago15]|[12Count:4 %pestcontrol. $+ 15]|[10«
  } 
} 
on $*:text:/^[!@]world/Si:#:{
$iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick)
  inc %pestcontrol.
  if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
  if (%pcw. [ $+ [ $chan ] ] == on) { 
    notice $nick 10»15]|[15World:4 %pcw.world. [ $+ [ $chan ] ] $+ 15]|[12By:4 %pcw.nick. [ $+ [ $chan ] ] $+ 15]|[4 $+ $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) ago15]|[12Count:4 %pestcontrol. $+ 15]|[10«
  } 
} 
on *:text:!pestcontrol on*:#:{ 
  if ($nick !isreg $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 !isreg $chan) { 
    set %pcw. $+ $chan off 
    msg $chan 10»15]|[12The pestcontrol commands for4 $chan 12are now OFF 15]|[10«
  } 
}