Someone

on $*:TEXT:/^!set(pcw|world|pest)/Si:#: {
  if ($2 isnum 1-140) {
    set $+(%,pcw.,$chan) $2
    set $+(%,settime.,$chan) $ctime
    set $+(%,nick.,$chan) $nick
    msg $chan 10The Pest Control world has been updated. Please type 4!pcw 10or 4!world 10to view it.
  }
}

on $*:TEXT:/^!(pcw|world|pest)/Si:#: {
  if (%pcw == $null) { notice $nick A Pest Control world has not been set! Contact an operator to have one set. }
  else {
    notice $nick The pest control world is for $chan is $($+(%,pcw.,$chan),2) set by $($+(%,nick.,$chan),2) $duration($calc($ctime - $($+(%,settime.,$chan),2))) ago.
  }
}