Dred

Dred (#100)

(an instance of Useful Utilitarian PC made by Dred)

You search the shadows in the place where you think he might be. Then, you find a vague shape which must be him. He senses your gaze, and steps out of the darkness. You see a medium sized man with long black hair which sways gently in the breeze. You can't see much more of him as he is covered with a black cloak, swirling about him in a dramatic manner, and a black fedora pulled low. But you do see his eyes: you must turn away from that gaze, which seems to pierce you right to your innermost soul.

Dred is carrying Generic Stone Building Room.

Go to location of this object, Den.

Dred owns Useful Utilitarian PC Dred Stage Talk FO Builder Options Player Information Feature Programmer Options Generic Ambient Noise Room Cluttered Closet Basic Local PC Mail Name DB Generic Boomerang Thing Generic Consumable I Generic Drink Object Drink Effects Database Size-Prospectus FO Lag Feature Useful Utilitarian Help Database Steps north south Dark Foyer north south Consumable Storage Room Generic Drug Object Drug Effects Database Generic Room with Seats Pasting Feature Hall north south Hall north south east west Landing up down east Narrow Hallway south north Bedroom west east Narrow Hallway south north Hallway Intersection south north west Darkness east west Hallway Bend east west Library east west Den east west Narrow Hallway north south Hallway north south east Base of Ladder north south east Attic up down separation combination Drunks Database Generic Stone Building Room test dispenser Refusals Player Class Generics Registry FO Registry Db big glass of Self

VERB SOURCE CODE:

sh:

if (player == this)
    if ($object_utils:has_property(this.sh, dobjstr))
        player:tell_lines(this.sh.(dobjstr));
    else
        player:tell("No such topic.");
    endif
else
    player:tell(E_PERM);
endif
.

whl:

lists = $code_utils:help_db_list();
g = {};
if (args)
    which = argstr;
    for d in (lists)
        if ($object_utils:has_property(d, which))
            g = {@g, d};
        endif
    endfor
    if (g)
        this:tell($string_utils:name_and_number_list(g));
    else
        this:tell("Topic not found: ", argstr);
    endif
else
    this:tell("Which topic?");
endif
.

my_huh(old):

this:tell($string_utils:print(args), " | ", argstr);
return pass(@args);
.

receive_page:

if ((val = pass(@args)) == 2)
    for dude in (this:notify_list())
        dude:receive_page(@args);
    endfor
    val = 1;
endif
return val;
.

PROPERTY DATA:
sh