;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Pest Control Script by SyntaxError   ;
; copyright 2007                       ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on $*:text:/^[@!.](setpc?|change)/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || (*!*Synt@x.Error.Invalid.Parameters iswm $address($nick,1)) {
    if ($2 isnum 2-140) {
      set $+(%,pcw.,$chan) on
      set $+(%,pcw.,$chan,.world) $2
      set $+(%,pcw.,$chan,.nick) $nick
      set $+(%,pcw.,$chan,.time) $ctime
      msg $chan 14New Pest Control world set. 6 New world is7 $eval($+(%,pcw.,$chan,.world),2) 6set by4 $eval($+(%,pcw.,$chan,.nick),2) $+ .
    }
    else { 
      notice $nick The world must be between 2 and 140. 
    }
  }
  else { 
    notice $nick you must be 7HalfOp/4Op to use this command. 
  }
}
on $*:text:/^[@!.](pcw|world)/Si:#:{ 
  if ($eval($+(%,pcw.ignore,$nick),2)) {
    halt 
  }
  elseif (!$eval($+(%,pcw.,$chan),2)) {
    set -u10 $+(%,pcw.ignore.,$nick) on
    notice $nick There is no Pest Control world set for $chan $+ . 
  }
  elseif ($eval($+(%,pcw.,$chan),2) == off) {
    set -u10 $+(%,pcw.ignore,$nick) on
    notice $Nick Pest Control is off for $chan $+ .
  }
  else {
    set -u10 $+(%,pcw.ignore,$nick) on
    notice $nick The 14Pest Control World for10 $chan is7 $eval($+(%,pcw.,$chan,.world),2) $+ ; was set2,0 $duration($calc($ctime - $eval($+(%,pcw.,$chan,.time),2))) ago by4 $eval($+(%,pcw.,$chan,.nick),2) $+ .
  }
}
on $*:text:/^[@!.]pc off/Si:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) {
    msg $chan 14Pest Control is now off. 
    set $+(%,pcw.,$chan) off
    notice $nick Pest Control is off. Set a new world to turn it back on. 
  }
  else {
    notice $nick you must be 7HalfOp/4Op to use this command.
  }
}
;;;;;;;;;;;;;
;    EOF    ;
;;;;;;;;;;;;;