on *:TEXT:!setworld *:#:{
  if ($2 isnum) {
    set %world $$2
  }
}
on $*:TEXT:/^[!@.]World/Si:#:{
  notice $nick World is: %world
}