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