on *:text:!Changeworld *:*: { 
  if ($nick isop #indy4life || $nick ishop #indy4life) && (%World. [ $+ [ $chan ] ] == on) && ($2 isnum 1-140) { 
    set %World. [ $+ [ $chan ] ] $2 
    msg $chan The ¤ pk ¤ world has been changed by $nick 
  } 
} 
on *:text:!worldon*:#indy4life: { 
  if ($nick isop #indy4life) || ($nick ishop #indy4life) { 
    set %World. [ $+ [ $chan ] ] on 
    msg $chan The ¤ pc ¤ command has been enabled by $nick 
  } 
} 
on *:text:!worldoff*:#indy4life: { 
  If ($nick isop #indy4life) || ($nick ishop #indy4life) { 
    unset %World. [ $+ [ $chan ] ] 
    msg $chan The ¤ pc ¤ command has been disabled by $nick 
  } 
} 
on $*:text:/^[!@.](w)?(orld)?/Si:#indy4life: { 
  var %display = $iif($left($1,1) == @, msg $chan, notice $nick) 
  if (%World. [ $+ [ $chan ] ] == on) { 
    %display The ¤ pc ¤ world is %World. [ $+ [ $chan  ] ] 
  } 
  else %display This command has been disabled. 
}