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:#:{
  notice $nick World is: %world
}