Useful Utilities for Programmers #113

@vloc @findverb @vfind

Spec any any anyFlags rxdOwner #29Definer #113

Referenced by

none

Source

"@vloc <verbname> [on <player>]";
"Scans for all occurances of the specified verb on the specified player";
"If no player is specified, the caller is assumed.";
if (dobj == $nothing)
player:tell("Usage: `@vloc <verbname>'");
return;
endif
if (iobj == $nothing)
who = player;
else
who = $string_utils:match_player(iobjstr);
if ((who == $failed_match) || (who == $ambiguous_match))
player:tell("`", iobjstr, "' is not a valid or unique player.");
return;
endif
endif
vname = $string_utils:trim(dobjstr);
pfobjs = {@$ou:ancestors(who), @$rpg.features_for_everyone, @$rpg.features_for_programmers, @who.features};
if (is_a(who.location, $room))
pfobjs = {@$ou:ancestors(who.location), who.location, @pfobjs};
endif
pfobjs = listinsert(pfobjs, who);
final = {};
for pcheck in (pfobjs)
$command_utils:suspend_if_needed(1);
vcheck = $code_utils:find_verb_named(pcheck, vname);
if (vcheck != 0)
msg = tostr($string_utils:nn(pcheck));
final = {@final, msg};
endif
endfor
if (length(final) < 1)
final = {"[No matches found]"};
endif
header = tostr($string_utils:center(tostr((("@vloc run for `" + vname) + "'") + $string_utils:nn(who)), 65, "-"));
final = listinsert(final, header);
footer = tostr($string_utils:center(tostr(("End of @vloc run: " + tostr(length(pfobjs))) + " Objects Checked"), 65, "-"));
final = {@final, footer};
player:tell_lines(final);

_megasubsub

Spec this none thisFlags rxdOwner #361Definer #113

Referenced by

• #113:_megasubsub line 8: this:_megasubsub
• #113:@megasub*stitute line 29: this:_megasubsub

Source

{find, repl, original} = args;
didsub = 0;
type = typeof(original);
if (type == LIST)
result = original;
for i in [1..length(original)]
yield;
{didsubsub, sub_result} = this:_megasubsub(find, repl, original[i]);
if (didsubsub)
didsub = 1;
result[i] = sub_result;
endif
endfor
if (didsub)
return {1, result};
endif
elseif (type == STR)
result = $su:subst(original, {{find, repl}});
return {result != original, result};
endif
return {0, 0};

@megasub*stitute

Spec any any anyFlags rxdOwner #361Definer #113

Referenced by

none

Source

args = $su:explode(argstr, "/");
if (length(args) != 3)
player:tell("Usage: @megasub one thing/another thing/#12345");
return;
endif
target = toobj(args[3]);
if (tostr(target) != args[3])
player:tell("'", args[3], "' is not an object.");
return;
endif
if (!valid(target))
player:tell(target, " is invalid.");
return;
endif
if ((target.owner != player) && (!player.wizard))
player:tell("No write permission on ", target, " (must be owner or a wizard.)");
return;
endif
find = args[1];
repl = args[2];
to_change = {};
for p in ($ou:all_properties(target))
yield;
original = target.(p);
if (typeof(original) == HASH)
player:tell("@megasub: skipping .", p, " - it's a hash");
continue;
endif
{didsub, result} = this:_megasubsub(find, repl, original);
if (didsub)
player:tell("@megasub: .", p);
player:tell("  old: ", toliteral(original));
player:tell("  new: ", toliteral(result));
to_change = {@to_change, {p, result}};
endif
endfor
if (!$cu:yes_or_no("@megasub: Commit changes?"))
player:tell("Aborted.");
return;
endif
for change in (to_change)
{p, newvalue} = change;
target.(p) = newvalue;
yield;
endfor
player:tell("Complete.");

@leaves

Spec any any anyFlags rxdOwner #361Definer #113

Referenced by

none

Source

dobj = $su:match_object(dobjstr, player.location);
if (!valid(dobj))
player:tell("@leaves what?");
return;
endif
"if (dobj in {#1, $thing, $actor, $creature, $living, $body, $decal, $exit, $room})";
"  player:tell(\"I don't think you actually meant to do that. So no.\");";
"  return;";
"endif";
player:tell($ansi.bold_on + "Showing all leaves of ", $su:nn(dobj), "..." + $ansi.reset);
for x in ($ou:leaves_suspended(dobj))
player:tell($su:left($su:nn(x), -35), $ansi.reset, " ", $su:left(tostr(x), -10), $ansi.reset, " ", $ansi.yellow, $su:left($su:nn(x.location), -30), $ansi.reset);
$cu:sin(3);
endfor
player:tell("Done.");

@

Spec any none noneFlags rxdOwner #361Definer #113

Referenced by

none

Source

if (!dobjstr)
dobj = player;
elseif (valid(o = $su:literal_object(dobjstr)))
dobj = o;
elseif (valid(o = $su:match_player(dobjstr)))
dobj = o;
else
return player:tell("Couldn't match `", dobjstr, "'.");
endif
location = dobj.location;
if (!valid(location))
return player:tell(dobj:dname(), " is in an invalid location.");
else
location:look_self();
(((!is_a(location, $room)) || (location != player.location)) && has_callable_verb(location, "list_exits")) && location:list_exits(player, 1);
endif

@nnlist

Spec any none noneFlags rxdOwner #361Definer #113

Referenced by

none

Source

prop = $code_utils:parse_propref(dobjstr);
if (!prop)
return player:tell("That's not a property, or if it is, you typed it wrong, or something.");
elseif (({name, vname} = prop) && (!$command_utils:object_match_failed(dobj = player:my_match_object(name), name)))
try
(caller_perms() == $code_utils:verb_perms()) ? property_info(dobj, vname) | $no_one:eval(tostr("property_info(", dobj, ",\"", vname, "\");"));
except (E_PERM)
return player:tell("This property is not readable.");
except (E_PROPNF)
return player:tell($string_utils:nn(dobj), " doesn't seem to have a property named `", vname, "'.");
endtry
(typeof(stuff = dobj.(vname)) in {OBJ, LIST}) ? player:tell($string_utils:nn(stuff)) | player:tell("This property is not suitable for use with this verb. (Needs to be a list of objects)");
endif