on $*:TEXT:!boton*:#: {
  if ($nick isreg $chan) && ( $me == PC-Serv ) { /notice $nick ERROR: Access Denied }
  elseif ( $me == PC-Serv ) {
    set %name Sporkon
    msg $chan 14**[[7STATUS14]] 3Online
  }
}
on $*:TEXT:!botoff*:#: {
  if ($nick isreg $chan) && ( $me == PC-Serv ) { /notice $nick ERROR: Access Denied }
  elseif ( $me == PC-Serv ) { 
    set %name Sporkoff
    msg $chan 14**[[7STATUS14]] 5Offline
  }
}
on *:TEXT:!change*:#:{
  if ( $me == %name ) {
    if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) || ($nick == $me) {
      set %pcw.nick. [ $+ [ $chan ] ] $nick
      set $+(%,world,$chan) $2 
      inc $+(%,wchange,$chan) 
      set $+(%,pcw.time,$chan) $ctime
      timers off
      timer 0 10 /msg $chan 7[ › ] The current Pest Control World is:2»7 $($+(%,world,$chan),2) 2« 
      msg $chan 14**[[7UPDATE14]]1 current World Changed to 14[7 $2 14]  1by 14[7 $nick 14]**
      unset $+(%,x.,$2)
    }
  }
}
on $*:TEXT:/^[!](pcw|world)/Si:#:{
  if ( $me == %name ) {
    if $nick IsOp $Chan || $nick IsHop $Chan || $nick isvoice $chan || $nick isreg $chan  {
      inc %times
    notice $nick The current Pest Control World is:3 $($+(%,world,$chan),2) 5set by3 %pcw.nick. [ $+ [ $chan ] ] 5 $duration($calc($ctime - $($+(%,pcw.time,$chan),2))) ago. Command used3 %times 5 times. }
  }
}