2f5
@verb #8500:"computer" none none none rxd #6397
@program #8500:"computer" none none none
if (player != this.owner)
  return player:tell("You don't own this room.")
endif
player:tell("[", this.name, "]: Menu")
player:tell("[1] Security Options")
player:tell("[2] Title Options")
player:tell("[3] Miscellaneous Options")
player:tell("[9] Exit")
try
  pr = $cmd_utils:read("your choice")
except (E_INVARG)
  "Loser disconnected. -manta"
endtry
if (pr == "1")
  this:security()
elseif (pr == "2")
  this:to()
elseif (pr == "3")
  this:misc()
elseif (pr == "9")
  return player:tell("Finished.")
else
  player:tell("Invalid selection.")
  this:computer()
endif
"Last modified by Incarnate (#2369) on Sun Oct 11 12:11:38 1998 EDT."
.

0