Someone

ON *:TEXT:`pcw:#:{ if ($nick isreg $chan) { halt } 
  if (%pcw [ $+ [ $chan ] ] == $null) { 
    notice $nick There is no set World. 
  } 
  else { 
    notice $nick The current PestControl world is: %pcw [ $+ [ $chan ] ] Set by: %nick3 [ $+ [ $chan ] ]  -  $+ $duration($calc( $ctime - %pcwtime [ $+ [ $chan ] ] )) ago. 
    unset %away $+ $nick ago. 
  } 
} 
ON *:TEXT:!setworld*:#:{ 
  if ($2 == $null) { notice $nick ERROR: !setworld <world 2-138> 
    halt 
  } 
  if ($nick isop $chan || $nick ishop $chan && $2 isnum 2-138) { 
    set %pcw $+ $chan $2 
    set %nick3 $+ $chan $nick 
    set %pcwtime $+ $chan $ctime 
    halt 
  } 
  if ($2 == 1) { 
    notice $nick ERROR: 1 is a f2p server 
    halt 
  } 
  if ($2 isletter A-Z) || ($2 isletter a-z) { 
    notice $nick ERROR: I did not know $2 was a number... 
    halt 
  } 
  else { 
    notice $nick ERROR: Are you halfop? No your not. 
  } 
}