Something

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:/^[!@.](w)?(orld)?/Si:#forces-khan: { 
  if (%World. [ $+ [ $chan ] ] == on) {
    if ($nick isvoice $chan) && (%world) && (!$2) {
      notice $nick Current World: %world 
    } 
    elseif ($nick isvoice $chan) && (!%world) && (!$2) {
      notice $nick Current World: No world set.
    } 
  }
  elseif ($2 == on) && ($nick isop $chan) || ($nick ishop $chan) { set %World. [ $+ [ $chan ] ] on }
  elseif ($2 == off) && ($nick isop $chan) || ($nick ishop $chan) { set %World. [ $+ [ $chan ] ] off }
}

on *:load: if (!%world.on) { set %world.#forces-khan on }