463
@verb #9483:"@ansi-o*ption" any any any rxdo #9483
@program #9483:"@ansi-o*ption" any any any
"Copied from //eelix (#9429):@ansi-option Nov 13 15:09:30 1997"
"Copied from Cecil... (#7407):@ansi-o Nov 13 15:05:40 1997"
if (caller != this)
  return player:tell(E_PERM)
endif
if (!this:has_property("ansi_options"))
  add_property(this, "ansi_options", {"all"}, {this, "r"})
  player:tell("\".ansi_options\" property was added!")
endif
if (!argstr)
  player:tell("Your ANSI options are:  => ", toliteral(this.ansi_options))
elseif (argstr[1] == "+")
  if ($ansi_utils:ansi_option(argstr[2..$]))
    this.ansi_options = {@this.ansi_options, argstr[2..$]}
    player:tell("Option Added.")
    player:tell("Your ANSI options are:  => ", toliteral(this.ansi_options))
  else
    player:tell("You can't turn that option on!")
  endif
elseif (argstr[1] in {"!", "-"})
  if (e = argstr[2..$] in this.ansi_options)
    player:tell("Option set to off.")
    this.ansi_options = listdelete(this.ansi_options, e)
  else
    player:tell("You didn't have that option set in the first place.")
  endif
endif
.

0