on *:text:!changeworld*:#: { if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) {
  set %world $2 | msg #forces-khan The world has been changed, type !world to view it } 
}
on *:text:!changeworld*:?: { if ($nick == YOUR NICK) {
  set %world $2 | msg #forces-khan The world has been changed, type !world to view it } 
}
on *:text:!world on:*: { if ($nick isop $chan) || ($nick ishop $chan) { set %world. [ $+ [ $chan ] ] on } }
on *:text:!world off:*: { if ($nick isop $chan) || ($nick ishop $chan) { unset %world. [ $+ [ $chan ] ] } }
on *:load: if (!%world.#forces-khan) { set %world.#forces-khan on }

on $*:text:/^[!@.](w)?(orld)?/Si:#forces-khan: { 
  if ($nick isvoice $chan) && (%world) && (!$2) && (%world. [ $+ [ $chan ] ]) {
    notice $nick Current World: %world
  }
}