Mine

on *:text:!setloot*:#: {
  if ($nick isop $chan || $nick ishop $chan) && (%Loot. [ $+ [ $chan ] ] == on) && ($2 isnum 1-140) ($address($nick,2) == $address($me,2))
 {
    set %Lw. [ $+ [ $chan ] ] $2
    msg $chan The loot world has been changed to $2 by $nick
  }
}
on *:text:!looton*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %Loot. [ $+ [ $chan ] ] on
    msg $chan The loot command has been enabled by $nick
  }
}
on *:text:!lootoff*:#: {
  If ($nick isop $chan) || ($nick ishop $chan) ($address($nick,2) == $address($me,2)) {
    unset %Loot. [ $+ [ $chan ] ]
    msg $chan The loot command has been disabled by $nick
  }
}
on $*:text:/^[!@.](loot)(w)?(orld)?/Si:#: {
  var %display = $iif($left($1,1) == @, msg $chan, notice $nick)
  if (%Loot. [ $+ [ $chan ] ] == on) {
    %display The loot world is %Lw. [ $+ [ $chan  ] ]
  }
  else %display This command has been disabled.
}