4a8
@verb #8500:"security" this none this rxdo #6397
@program #8500:"security" this none this
if (player != this.owner)
  return player:tell("You do not own this room.")
endif
ack = {"1: No Security", "2: Minimal Security", "3: Password Security", "4: Invitation Only", "5: Maximum Security"}
if (this.security == 0)
  lev = ack[1]
else
  lev = ack[this.security]
endif
player:tell("[", this.name, "]: Security Menu")
player:tell("[1] Set Security Level       [Currently Level ", lev, ".")
player:tell("[2] Set Password             [Currently: ", this.password, "]")
player:tell("[9] Back to Main Menu")
player:tell("[0] Exit")
pr = $cmd_utils:read("in your selection")
if (pr == "1")
  this:securitytwo()
elseif (pr == "2")
  player:tell("Password is currently \"", this.password, "\".")
  pword = $cmd_utils:read("in your new password")
  if (pword == "")
    player:tell("Not changed.")
  else
    this.password = pword
    player:tell("Password set to: ", this.password)
  endif
  this:security()
elseif (pr == "9")
  this:computer()
elseif (pr == "0")
  return player:tell("Finished.")
else
  player:tell("Invalid selection.")
  this:security()
endif
.

0