Dead_Can_MOO (#2082)

(an instance of Generic PC with Integrated Contents made by Dead_Can_MOO)

     A tall, gaunt person with long black hair who is wearing a long, black coat. You can't really discern what gender it is.

Dead_Can_MOO is carrying chamber.

Go to location of this object, Trans-Yuggothian Expressway.


Dead_Can_MOO owns Dead_Can_MOO Trans-Yuggothian Expressway chamber Caged Hugo test


VERB SOURCE CODE:

do_tree: 
root = args[1];
indent = args[2];
search_text = args[3];
kids = children(root);
if ((length(search_text) > 0) ? index(kid.title, search_text) | 1)
    num_str = ($string_utils:space(indent) + tostr(root)) + ": ";
    name_str = ((root.name + " (") + tostr(length(kids))) + ")";
    name_lines = player:linesplit(name_str, 75 - length(num_str));
    player:tell(num_str, name_lines[1]);
    for line in (name_lines[2..length(name_lines)])
        player:tell($string_utils:space(num_str), line);
    endfor
endif
indent = indent + "  ";
for kid in (kids)
    $command_utils:suspend_if_needed(1);
    if (kid.f || children(kid))
        this:do_tree(kid, indent, search_text);
    endif
endfor
.

@tree: 
"Usage:  @tree  [search_string]";
"";
"Shows an object hierarchy beginning with the given object.  All fertile ";
"children and children with children are included in the tree.  The output";
root = player:my_match_object(dobjstr);
search_text = $string_utils:from_list(args[2..length(args)]);
if (valid(root))
    player:tell("Fertile kids of ", root.name, ":  (this may take a while)");
    this:do_tree(root, "", search_text);
    player:tell("----end of @tree listing for ", root.name, ".");
endif
.




sa em emm:

"sa is say";
"em is emote";
"emm is emote with no space";
if (verb == "emm")
    if (args)
        args[1] = ":" + args[1];
    else
        args = {":"};
    endif
    argstr = ":" + argstr;
    verb = "em";
endif
player.location:({"say", "emote"}[verb in {"sa", "em"}])(@args);
.







PROPERTY DATA: