6be
@verb #8500:"to" this none this rxdo #6397
@program #8500:"to" this none this
if (!$perm_utils:can_hack())
  return 0
endif
player:tell("[", this.name, "]: Title Options")
player:tell("[1] Security System Off Message         [Currently: ", this:msg_off(), "]")
player:tell("[2] Minimal Security Allowed Message    [Currently: ", this.min_allowed, "]")
player:tell("[3] Minimal Security Banned Message     [Currently: ", this.min_banned, "]")
player:tell("[4] Password Protected Message          [Currently: ", this:msg_password(), "]")
player:tell("[5] Invitation Only Message             [Currently: ", this:msg_invit(), "]")
player:tell("[6] Maximum Security Message            [Currently: ", this:msg_max(), "]")
player:tell("[7] Password Query Message              [Currently: ", this.password_ask, "]")
player:tell("[9] Back to Main Menu")
player:tell("[0] Exit")
pr = $cmd_utils:read("in your selection")
orc = {"off_msg", "min_allowed", "min_banned", "password_msg", "invit_msg", "max_msg", "password_ask"}
orc2 = {"Security System Off", "Minimal Security Allowed", "Minimal Security Banned", "Password Protected", "Invitation Only", "Maximum Security", "Password Query"}
if (pr in {"1", "2", "3", "4", "5", "6", "7"})
  if (player != this.owner)
    return player:tell("Only the owner may set the titles.")
  endif
  op = toint(pr)
  player:Tell("Setting the \"", orc2[op], "\" message.")
  player:tell("It is currently \"", this.(orc[op]), "\". Please type in the new message.")
  wam = $cmd_utils:read()
  this.(orc[op]) = wam
  player:tell("The \"", orc2[op], "\" message has been set to: ", this.(orc[op]), ".")
endif
"Last modified by Dax (#789) on Tue May  3 14:09:37 2005 MDT."
.

0