41a
@verb #8500:"securitytwo" this none this rxdo #6397
@program #8500:"securitytwo" this none this
if (player != this.owner)
  return player:tell("You do not own ", this.name, ".")
endif
player:tell("[", this.name, "]: Security Level Menu")
player:tell("[1] No Security          [Security System Off]")
player:tell("[2] Minimal Security     [Certain People May Not Enter]")
player:tell("[3] Password Security    [Password Required to Enter]")
player:tell("[4] Invitation Only      [Must be invited by owner]")
player:tell("[5] Maximum Security     [Only owner may enter]")
player:tell("[9] Return to Security Menu")
player:tell("[0] Exit")
pr = $cmd_utils:read("in your selection")
if (pr in {"1", "2", "3", "4", "5"})
  this.security = toint(pr)
  player:tell("Security is now at Level ", this.security, ".")
elseif (pr == "9")
  this:security()
elseif (pr == "0")
  player:tell("Finished.")
else
  player:tell("Invalid selection.")
  this:securitytwo()
endif
"Last modified by Dax (#789) on Tue May  3 14:09:37 2005 MDT."
.

0