Something

on *:TEXT:!setpcw*:#Pured: {
  if ($2 isnum 1-140) {
    set $($+(%,pcw,$chan),2)
    set $+(%,settime,$chan) $ctime
    set $+(%,name,$nick,$chan)
    msg $chan A New Pest Control World has been set by $nick $+ ! type !pcw to view it.
  }
}
on *:TEXT:!pcw*:#Pured: {
  if (%pcw == %null) { notice $nick There is currently no Pest-Control World Set - Please pm an op/hop to have one set. }
  else {
    notice $nick The Current Pest Control World for $chan is $($+(%,pcw,$chan)) set by $($+(%,$nick,$chan),2)
    $duration($calc($ctime - $(%settime $chan) ago.
  }
}