on *:TEXT:!setworld *:#:{
  if (($2 isnum) && ($nick isop $chan)) {
    set %world $$2
    msg $chan 4 $nick 2 has changed the pestcontrolworld, typ !world to see it! .
  }
}
on $*:TEXT:/^[!@.]World/Si:#:{
  if ($nick isreg $chan) { HALT }
  else { notice $nick the pestcontrolworld is: %world }
}