on *:text:!defineworld ?*:#estrs: {
  if ($nick isop #) {
    set %world $2-
    notice $nick % $+ world set to: $2-
  }
}
on *:text:!world:#estrs: {
  if ($nick !isreg #) notice $nick The current world is: $iif(%world,$v1,N/A)
}