DK's Misc RPG Utils #54585

Parent #18181Owner —Flags Source rpg_march_2006/Features/DK's Misc RPG Utils.txt

Aliases: DK's Misc RPG Utils

9 verbs · 12 properties · 0 children

Verbs

VerbSpecFlagsDefinerLines
slipany none nonerxd#5458524
bupany none nonerxd#5458523
stormsany any anyrxd#5458518
dmnone none nonerxd#5458531
waifany none anyrxd#5458526
bup_oldany none nonerxd#5458519
balnone none nonerxd#545855
ldanone none nonerxd#5458516
@imany none nonerxd#5458510

Properties

PropertyDefinerFlagsOwnerValue
usage#54585—not readable (E_PERM)
notify_add#54585—1
notify_remove#54585—1
users#54585—
value (3178 chars){#78041, #91224, #97613, #92475, #102292, #59447, #88395, #80578, #87516, #94456, #98232, #98263, #103920, #85077, #93228, #94965, #90731, #96925, #87010, #91345, #104762, #89208, #101651, #91812, #57475, #92386, #81133, #105066, #58806, #56054, #103966, #106308, #101504, #90441, #104202, #106469, #106488, #63625, #100314, #105159, #58091, #38441, #103158, #100806, #90323, #108054, #71111, #103911, #85431, #60189, #108850, #103615, #107629, #103523, #99827, #106938, #109408, #108431, #108147, #109723, #109263, #108214, #110215, #86275, #105941, #107509, #110660, #63546, #107730, #71781, #97084, #89391, #108294, #69513, #99949, #2693, #77500, #84567, #112066, #110044, #110280, #66257, #88076, #62713, #110565, #91098, #112369, #112743, #107682, #112968, #38341, #112823, #110199, #72264, #113549, #113588, #98325, #59254, #113803, #113862, #106541, #113686, #113391, #109107, #81934, #113937, #87951, #113956, #113841, #89395, #88456, #106189, #106273, #103703, #114702, #113418, #114808, #114019, #112478, #103689, #110805, #105473, #115124, #114874, #98705, #114652, #91113, #114928, #115342, #115397, #112190, #107985, #97170, #114241, #115581, #107610, #109506, #107413, #100337, #110077, #107807, #87340, #64729, #115432, #80422, #106487, #114859, #116082, #116031, #116200, #112837, #116339, #116385, #37972, #64985, #87593, #116358, #57658, #116369, #107998, #91798, #115359, #107189, #110586, #116694, #116729, #116473, #113285, #114518, #89480, #115937, #115200, #115922, #114382, #117048, #117236, #117139, #117275, #117283, #112527, #109546, #117381, #112886, #117470, #116305, #117004, #112651, #117552, #116569, #117649, #109271, #43860, #98580, #116883, #117837, #114430, #100173, #97612, #63635, #106587, #118143, #117486, #50367, #114206, #92476, #118332, #110527, #90723, #115936, #106934, #116875, #101594, #118526, #118248, #108263, #114233, #35076, #117766, #118487, #118672, #118864, #118890, #107704, #118654, #117345, #118973, #112649, #102967, #118740, #118948, #117038, #114413, #59424, #96778, #119177, #118916, #86050, #116907, #103685, #118018, #119424, #118153, #119429, #115857, #109615, #119469, #116376, #112473, #86197, #119530, #115729, #96788, #110787, #115366, #116485, #112971, #118985, #115390, #87760, #119257, #119884, #19845, #111987, #119940, #86471, #107618, #119701, #119492, #114174, #118360, #115834, #112631, #119594, #120144, #120227, #102396, #118730, #118861, #120260, #120239, #97558, #119958, #120283, #119957, #119899, #117100, #120420, #118824, #120376, #119554, #120546, #109288, #105326, #120070, #120749, #119906, #105408, #57402, #120791, #111890, #114670, #121077, #120997, #121070, #121149, #114701, #121188, #121241, #102427, #121383, #121164, #121332, #114539, #121456, #113754, #121464, #116601, #121095, #120804, #121358, #121648, #121651, #87625, #118474, #121758, #121865, #109911, #121895, #106468, #121816, #121976, #121918, #121965, #121852, #115805, #118352, #122047, #121386, #114072, #121143, #120045, #122104, #122359, #119265, #122354, #122379, #106854, #122410, #110582, #122428, #122423, #122453, #122491, #100752, #121946, #122525, #122600, #122601, #50290, #122460, #110777, #122614, #122644}
users_last_updated#54585—1136238712
help_msg#54585—{" These are various verbs that I had on my character, but decided", "that perhaps someone else might find them interesting as well...", "", " {Last edit : 11/16/97}"}
feature_verbs#54585—{"waif", "bup", "storms", "slip", "dm", "bal", "lda"}
guest_ok#54585—1
key#54585—not readable (E_PERM)
aliases#54585—{"DK's Misc RPG Utils"}
description#54585—{" Various RPG verbs that I find useful."}
object_size#54585—{16772, 1141286755}

Ancestry

Ancestors (nearest first): none

Children: none

Call graph

calls n54585_4 #54585:waif n46_13 #46:is_monster n54585_4->n46_13

Source

slip

Spec any none noneFlags rxdDefiner #54585

Referenced by

none

Source

1" SLIP   - Displays the last update / next update time of your parchment.";
2"Also shows how many hours until your parchment expires.";
3this:update_usage(verb, player);
4player:tell("That information has been classified by the Bovine Illuminati.");
5return;
6if ((!dobjstr) || (!dobj))
7  if ($command_utils:object_match_failed(slip = $string_utils:match("slip", $object_utils:all_contents(player), "aliases"), "slip"))
8    return player:tell("You don't seem to have a slip, please purchase one from Cog.");
9  endif
10endif
11sec = time() - slip.last_update_time;
12expire = ((slip.decay_time - (time() - slip.init_time)) / 60) / 60;
13player:tell("Last parchment update : ", sec / 60, " minutes ago.");
14if (sec > slip.update_interval)
15  player:tell("Reading your parchment will now update your stats.");
16else
17  player:tell("Next parchment update : ", 180 - (sec / 60), " minutes.");
18endif
19player:tell();
20if ((time() - slip.init_time) < slip.decay_time)
21  player:tell("Parchment will expire in ", expire, " hours.");
22else
23  player:tell("Your parchment has expired. Time to buy a new one...");
24endif

bup

Spec any none noneFlags rxdDefiner #54585

Referenced by

none

Source

1" BUP    -  Battle update. Fighting three monsters at a time and finding";
2"yourself doing MS <monster> quite often? Well hey, let this handy verb";
3" save you the hassle! Just type BUP and it will list your present";
4"opponents and their health, along with your present health status.";
5this:update_usage(verb, player);
6agg_num = 0;
7if ((aggressors = #27326:combatants(player)) != {})
8  player:tell();
9  (rpg = $local.rpg):look_health(player);
10  for si in (aggressors)
11    agg_num = agg_num + 1;
12    player:tell();
13    player:tell("Combatant #", agg_num, " : ", si.name);
14    if ($object_utils:has_verb(si, "look_health"))
15      si:look_health();
16    else
17      rpg:look_health(si);
18    endif
19  endfor
20  player:tell("-- bup fini --");
21else
22  player:tell("You have no opponents at the present time.");
23endif

storms

Spec any any anyFlags rxdDefiner #54585

Referenced by

none

Source

1" STORMS - Lists all storms presently up system-wide. Displays the";
2"casters name, location, and, numerically, the strength and maximum";
3"number of strokes the storm is capable of.";
4this:update_usage(verb, player);
5player:tell();
6player:tell("That information has been classified by the Bovine Illuminati.");
7return;
8if (this.mn[3].storms != {})
9  player:tell_lines($string_utils:columnize({"Name", "Location", "Quality", "Strikes"}, 4));
10  player:tell_lines($string_utils:columnize({"----", "--------", "-------", "-------"}, 4));
11  for si in (this.mn[3].storms)
12    loc = si[2].location;
13    player:tell_lines($string_utils:columnize({si[2].name, loc.name, si[4], si[3]}, 4));
14  endfor
15  player:tell("- - -");
16else
17  player:tell("There are currently no storms active.");
18endif

dm

Spec none none noneFlags rxdDefiner #54585

Referenced by

none

Source

1" DM     - Dead monsters. Lists all monsters that are presently dead and";
2"who killed them, if known. Also lists time in minutes until monster is";
3"resurrected.";
4this:update_usage(verb, player);
5if (this.mn[4].contents != {})
6  rq = #1140.resurrection_queue;
7  player:tell_lines($string_utils:columnize({"Monster", "Killed by", "Resurrect Time"}, 3));
8  player:tell_lines($string_utils:columnize({"-------", "---------", "--------------"}, 3));
9  for si in (this.mn[4].contents)
10    if (valid($local.rpg:get_doll(si)) && (!$object_utils:isa(si, #517)))
11      if ($object_utils:isa(si, #56354) || $object_utils:isa(si, #8666))
12        killer = "Unknown";
13      elseif ($object_utils:has_property(si, "last_attacker"))
14        attacker = si.last_attacker;
15        killer = attacker.name;
16      else
17        killer = "Unknown";
18      endif
19      if ($list_utils:assoc(si, rq) == {})
20        sec = "---";
21      else
22        rt = $list_utils:assoc(si, rq)[2];
23        sec = (si.gestate - (time() - rt)) / 60;
24      endif
25      player:tell_lines($string_utils:columnize({si.name, killer, sec}, 3));
26      $command_utils:suspend_if_needed(0);
27    endif
28  endfor
29else
30  player:tell("No monsters are dead monsters...");
31endif

waif

Spec any none anyFlags rxdDefiner #54585

Referenced by

none

Source

1" WAIF <item> - That battleaxe of yours just about to disintegrate";
2"and you don't remember which monster you killed to get it? Have no";
3"fear... Just type 'waif battleaxe' and you'll see. <item> is any";
4"rpg item in your inventory - that includes armor, weapons, and special";
5"items. You can specify the name of the object or the object number.";
6this:update_usage(verb, player);
7item = dobj;
8if ($command_utils:object_match_failed(item, argstr))
9  return;
10endif
11item_parent = parent(item);
12item_tree = children(item_parent);
13player:tell();
14player:tell("Report of monsters carrying similar items: ");
15player:tell();
16player:tell_lines($string_utils:columnize({"Monster Name", "Monster Number", "Monster Location", "Location Number"}, 4));
17player:tell_lines($string_utils:columnize({"------------", "--------------", "----------------", "---------------"}, 4));
18for item_number in (item_tree)
19  $command_utils:suspend_if_needed(5);
20  if (((valid(item_number.location) && valid(item_number.location.location)) && #46:is_monster(item_number.location)) && (!$object_utils:isa(item_number, #8185)))
21    item_holder = item_number.location;
22    item_location = item_holder.location;
23    player:tell_lines($string_utils:columnize({item_holder.name, item_holder, item_location.name, item_location}, 4));
24  endif
25endfor
26player:tell("--waif finished--");

bup_old

Spec any none noneFlags rxdDefiner #54585

Referenced by

none

Source

1" BUP    -  Battle update. Fighting three monsters at a time and finding";
2"yourself doing MS <monster> quite often? Well hey, let this handy verb";
3"save you the hassle! Just type BUP and it will list your present";
4"opponents and their health, along with your present health status.";
5this:update_usage(verb, player);
6agg_num = 0;
7if (this.mn[2]:combatants(player) != {})
8  player:tell();
9  this.mn[1]:look_health(player);
10  for si in (this.mn[2]:combatants(player))
11    agg_num = agg_num + 1;
12    player:tell();
13    player:tell("Combatant #", agg_num, " : ", si.name);
14    this.mn[1]:look_health(si);
15  endfor
16  player:tell("-- bup fini --");
17else
18  player:tell("You have no opponents at the present time.");
19endif

bal

Spec none none noneFlags rxdDefiner #54585

Referenced by

none

Source

1" BAL - Lists current balance stored with Cog. Shows copper, silver and gold.";
2this:update_usage(verb, player);
3balance = #5104:get_balance(player);
4player:tell("Current balance stored in Cog, with currency conversion:");
5player:tell(" ", "Copper:", balance, "    Silver:", balance / 10, "    Gold:", balance / 100);

lda

Spec none none noneFlags rxdDefiner #54585

Referenced by

none

Source

1" LDA - Last Doll Activity.  Crude and unscientific method to determine when";
2"the last activity occured on your RPG doll. Helpful to know when you have";
3"been away from the RPG and are concerned about your doll being reaped.";
4this:update_usage(verb, player);
5doll = this.mn[1]:get_doll(player);
6if (!valid(doll))
7  return player:tell("Sorry, you're beyond saving...");
8endif
9minutes_elapsed = (time() - doll.last_action) / 60;
10hours_elapsed = minutes_elapsed / 60;
11days_elapsed = hours_elapsed / 24;
12reap_time = 90 - days_elapsed;
13player:tell();
14player:tell("Time elapsed since last activity : ", days_elapsed, " days. ", "(", hours_elapsed, " hours / ", minutes_elapsed, " minutes)");
15player:tell("Estimated days to reaping : ", reap_time);
16player:tell();

@im

Spec any none noneFlags rxdDefiner #54585

Referenced by

none

Source

1this:update_usage(verb, player);
2item = dobj;
3if ($command_utils:object_match_failed(item, argstr))
4  return;
5endif
6item_made = item.manufactured;
7item_age = (((time() - item_made) / 60) / 60) / 24;
8player:tell();
9player:tell("Your ", item.name, " was made approximately ", item_age, " days ago.");
10player:tell();