@create #169 named Treasure Chest Feature Object:Treasure Chest Feature Object,treasure chest,chest,FO
@prop #6565."exempt" {} rc
;;#6565.("exempt") = {#23065, #50841, #12650}
"#6565.("usage") => E_PERM (Permission denied)
;;#6565.("users") = {#1370, #1449, #22630, #23279, #23570, #24929, #29209, #31040, #35076, #37636, #41057, #41178, #42871, #43860, #45216, #46102, #30246, #46738, #47241, #49551, #49916, #49943, #50020, #50163, #50173, #50222, #50224, #50231, #50247, #50287, #50413, #50503, #50666, #52451, #53311, #53595, #54879, #54909, #55127, #56054, #56266, #57140, #57421, #57799, #57936, #58091, #58786, #58793, #58806, #59132, #59324, #59447, #59622, #59630, #59667, #60189, #60603, #60826, #61219, #61992, #62646, #62668, #63625, #64729, #66130, #66257, #68077, #69976, #71111, #74428, #78041, #78047, #70967, #50505, #67439, #59560, #67062, #85166, #63546, #81861, #85077, #81934, #85431, #65189, #73451, #64046, #85061, #84984, #86836, #69513, #87929, #88148, #57838, #87750, #88231, #88511, #87361, #50290, #87416, #88296, #78610, #88038, #89123, #53702, #86441, #90685, #90731, #80578, #59436, #91352, #90132, #88346, #87354, #94616, #94456, #80422, #94368, #89337, #58420, #91345, #50636, #92475, #89391, #97851, #96662, #61233, #98048, #98232, #58026, #91798, #96953, #86232, #97792, #98764, #47818, #89480, #99064, #97613, #98263, #99949, #101185, #100289, #86080, #87010, #96925, #101547, #91224, #87516, #94965, #99063, #103703, #89153, #103168, #91177, #63635, #97340, #87188, #82267, #91812, #104467, #103032, #104762, #87196, #98152, #101651, #96788, #101504, #100314, #105788, #106037, #105066, #103966, #106308, #90441, #104202, #104207, #103685, #105290, #35391, #93228, #106541, #103920, #105159, #105770, #71781, #84169, #103390, #93100, #104137, #92973, #103911, #103158, #100806, #90323, #107682, #106260, #100164, #100337, #100521, #103615, #108850, #107629, #103523, #106938, #108108, #109107, #97170, #108431, #102021, #79220, #100936, #109048, #108140, #107509, #109600, #108816, #106488, #109120, #90331, #110199, #108214, #87545, #110660, #106587, #101687, #107730, #97084, #107609, #96899, #106487, #110129, #108294, #85862, #110779, #106115, #111967, #102292, #94951, #112066, #112052, #88076, #91774, #111949, #107413, #110565, #62713, #100674, #112743, #110000, #112673, #112968, #112903, #106854, #112823, #110280, #113081, #100173, #72264, #109030, #49807, #112997, #113549, #101594, #108147, #59254, #105276, #113686, #113862, #87951, #108893, #113391, #113935, #88456, #113937, #110215, #109506, #109226, #113727, #38441, #113967, #106189, #114382, #112369, #102591, #103689, #113310, #110586, #114702, #114732, #99401, #113418, #112478, #113841, #113800, #110805, #105473, #115124, #113235, #106273, #98705, #114874, #91113, #114928, #115397, #112190, #112837, #113956, #113955, #114546, #107610, #115630, #115502, #108590, #64985, #116031, #114859, #107807, #116385, #87593, #116358, #116339, #57658, #107998, #107189, #114652, #116729, #116640, #115595, #116473, #88395, #115937, #116886, #115200, #117004, #105941, #116305, #109546, #112649, #117381, #112886, #117470, #117139, #117649, #116376, #109271, #77500, #2693, #98580, #116883, #96778, #118143, #117486, #114233, #57402, #118459, #118526, #118248, #109395, #118720, #115432, #117766, #94530, #118672, #118864, #118890, #117345, #118740, #117038, #118973, #114413, #119269, #72941, #119177, #86275, #86050, #118018, #119424, #118153, #119429, #119469, #112473, #116082, #110787, #115366, #112971, #118985, #116369, #115390, #107576, #87760, #119257, #111890, #110002, #119701, #119884, #111987, #119940, #107618, #119956, #119492, #118360, #115834, #120144, #119958, #120227, #118730, #118861, #120260, #114206, #118487, #119899, #120420, #119554, #120546, #109288, #105326, #120749, #119906, #114670, #121095, #114174, #121149, #121083, #121241, #121456, #121464, #113754, #120791, #120804, #121358, #121648, #121651, #87625, #121188, #121865, #109911, #121895, #121640, #106468, #121816, #121976, #121965, #121852, #115805, #102427, #121386, #48961, #122104, #122359, #119265, #122354, #122410, #114072, #110582, #122428, #122423, #118977, #42395, #119530, #122453, #122460, #122491, #122601, #122644}
;;#6565.("users_last_updated") = 770718276
;;#6565.("help_msg") = {"@gold @silver @copper", "     Returns a list of all RPG monsters that are active and carrying", "     gold, silver, or copper.", " ", "@mn @magic*numbers ", "     Returns a list on all numbers 4 digits or less that can be", "     requested from the Recycling Center (#4455) and the", "     Magic Number Repository (#5000), both owned by yduJ.", " ", "@short <name or alias | here or no args | me>", "     Returns the shortest names for all objects for the args given.", "", "@monster*s monster*s  <all | GM | list of GMs>", "     The arg \\\"all\\\" shows all RPG monsters, which is a long list.", "     If more than one GM is named, separate them by a space."}
;;#6565.("feature_verbs") = {}
;;#6565.("guest_ok") = 1
"#6565.("key") => E_PERM (Permission denied)
;;#6565.("aliases") = {"Treasure Chest Feature Object", "treasure chest", "chest", "FO"}
;;#6565.("description") = "@silver/@gold @magic*numbers/@mn @short"
;;#6565.("object_size") = {12818, 1141286651}

@verb #6565:"@short" any none none rxd
@program #6565:@short
"   syntax:  @short <player name or alias>";
"            @short <me>    for all items in player's contents";
"            @short <here>  for all objects in player's location";
"            @short         same as <here>";
this:update_usage(verb, player);
if (((argstr == "") || (argstr == "here")) || (argstr == "me"))
  if (argstr == "me")
    where = player.contents;
    player:tell("List of the shortest names for all objects that you are carrying:");
  else
    where = player.location.contents;
    player:tell("List of the shortest names for all players and objects in ", player.location.name, ":");
  endif
  namelist = {};
  sortlist = {};
  for item in (where)
    namelist = listappend(namelist, (item.name + " ==> ") + #6565:short_alias(item));
  endfor
  if ((where == player.contents) && (namelist == {}))
    player:tell("");
    player:tell($string_utils:space(20) + "You are not carrying anything.");
    return;
  endif
  sortlist = $list_utils:sort(namelist);
  player:tell_lines($string_utils:columnize(sortlist, 1));
  return;
endif
target = $string_utils:match_player(dobjstr);
if ((target == $nothing) || (target == $failed_match))
  player:tell(argstr, " has not been identified as a player.");
  return;
endif
if (target == $ambiguous_match)
  player:tell("There is more than one player with a name closely matching ", argstr, ". Please be more specific.");
  return;
endif
player:tell("The shortest alias of ", target.name, " is ", #6565:short_alias(target), ".");
.

@verb #6565:"short_alias" this none this
@program #6565:short_alias
"short_alias(obj)   returns the shortest alias of obj <objnum>.";
"the object's name takes precedence over an equally short alias.";
if (!valid(target = args[1]))
  return E_INVARG;
endif
retval = target.name;
if ((typeof(target.aliases) == LIST) && (target.aliases != {}))
  n = length(retval);
  for x in (target.aliases)
    if ((k = length(x)) < n)
      n = k;
      retval = x;
    endif
  endfor
endif
return retval;
.

@verb #6565:"@silver @gold @copper" none none none rxd
@program #6565:@silver
"List of all RPG monsters that are active and carrying gold, silver or copper.";
this:update_usage(verb, player);
if (verb == "@gold")
  coin = #32571;
  coinstr = "gold";
elseif (verb == "@silver")
  coin = #52944;
  coinstr = "silver";
elseif (verb == "@copper")
  coin = #42076;
  coinstr = "copper";
endif
found = 0;
moneylist = $object_utils:descendants(coin);
player:tell("List of RPG monsters that are active and carrying ", coinstr, ":");
player:tell("");
for money in (moneylist)
  $command_utils:suspend_if_needed(0);
  if (valid(money.location) && valid(money.location.location))
    who = money.location;
    where = who.location;
    if (((($object_utils:isa(who, $local.rpg.monster) && who.alive) && valid($local.rpg:get_doll(who))) && (!(who in this.exempt))) && (where != $local.rpg.cemetery))
      found = 1;
      x = (" (" + tostr(who)) + ")";
      y = (" (" + tostr(where)) + ")";
      player:tell(who.name, x, " at ", where.name, y, " carries ", money.name, ".");
    endif
  endif
endfor
if (!found)
  player:tell($string_utils:right("Sorry, none found.", 60));
else
  player:tell($string_utils:space(13, "-"));
endif
.

@verb #6565:"@mn @magic*numbers" none none none rxd
@program #6565:@mn
"Returns numbers 4 digits or less found in the Recycling Center (#4455)";
"and the Magic Number Repository (#5000), both owned by yduJ.";
alist = mlist = {};
su = $string_utils;
p1 = $recycler.contents;
p2 = #5000.contents;
where = {@p1, @p2};
for n in (where)
  if (n < #10000)
    mlist = {@mlist, n};
  endif
  if ($command_utils:running_out_of_time())
    suspend(1);
  endif
endfor
mlist = $list_utils:sort_suspended(1, mlist);
player:tell(su:space(74, "-"));
player:tell("Magic Numbers - four digits or less:");
player:tell();
if (mlist == {})
  player:tell("None available yet, sorry.");
else
  for m in (mlist)
    if (m in p2)
      alist = {@alist, tostr(m, "*")};
    else
      alist = {@alist, tostr(m)};
    endif
    $command_utils:suspend_if_needed(5);
  endfor
  player:tell_lines(su:columnize_suspended(1, alist, 5));
  player:tell();
  player:tell("'request <number> from #4455'   (numbers marked with an * are in #5000)");
endif
player:tell(su:space(29, "-"), " finished ", su:space(35, "-"));
.

@verb #6565:"gather_monsters" this none this
@program #6565:gather_monsters
m_list = s_list = {};
monsters = $local.rpg.vacuum.monsters;
for m in (monsters)
  if ($local.rpg:get_doll(m) != #-1)
    m_name = tostr(#7123:name_or_alias(m, 16), " (", m, ")");
    m_list = {@m_list, {m, m_name}};
  endif
  $command_utils:suspend_if_needed(0);
endfor
s_list = $list_utils:sort_alist_suspended(0, m_list, 2);
return s_list;
.

@verb #6565:"monster*s @monster*s" any any any rxd
@program #6565:monsters
"Syntax: monsters <all | GM | list of GMs>";
this:update_usage(verb, player);
su = $string_utils;
if (!args)
  player:tell_lines($code_utils:verb_documentation());
  return;
elseif (argstr == "all")
  monsters = this:gather_monsters();
else
  gms = listdelete($command_utils:player_match_result($string_utils:match_player(args), args), 1);
  if (!gms)
    return;
  endif
  m_list = {};
  all_monsters = $local.rpg.vacuum.monsters;
  for m in (all_monsters)
    if (($local.rpg:get_doll(m) != #-1) && (m.owner in gms))
      m_name = tostr(#7123:name_or_alias(m, 16), " (", m, ")");
      m_list = {@m_list, {m, m_name}};
    endif
    $command_utils:suspend_if_needed(0);
  endfor
  if (!m_list)
    return player:tell("No RPG monsters found owned by the player(s) named.");
  endif
  monsters = $list_utils:sort_alist_suspended(0, m_list, 2);
endif
suspend(0);
player:tell(" Monster's Name", su:space(12), "Owner", su:space(10), "Location", su:space(22), "Entry");
player:tell("----------------", su:space(10), "-------", su:space(8), "----------", su:space(21), "-----");
for i in [1..length(monsters)]
  monster = monsters[i][1];
  name = monsters[i][2];
  owner = #7123:name_or_alias(monster.owner, 12);
  if (!valid(monster.location))
    loc = "** nowhere ** (#-1)";
    teleport = "----";
  else
    where = monster.location;
    if ($object_utils:isa(where, $room))
      teleport = where:acceptable(player) ? "open" | "locked";
    else
      teleport = "----";
    endif
    loc = tostr(#7123:name_or_alias(where, 22), " (", where, ")");
  endif
  player:tell(su:left(name, 26), su:left(owner, 14), su:left(loc, 32), teleport);
  $command_utils:suspend_if_needed(0);
endfor
if ((L = length(monsters)) == 1)
  player:tell(su:space(16, "-"));
  player:tell(" ", tostr(L), " total");
else
  player:tell(su:space(29, "-"), " ", tostr(L), " monsters total ", su:space(29, "-"));
endif
.

"***finished***