Tarquin (#445)(an instance of Generic Scorpion Player Class made by Tarquin)Wearing an English Suit stolen from a store front window. A felt hat pulled down over his forehead. Steel rimmed dark glasses hide his eyes. He is enveloped by a bright laser-red image of a six-foot tall mantis, its long glowing forearms are folded in an attitude of prayer. Tarquin is carrying T's Light Shield and coat. Go to location of this object, truck. Tarquin owns Tarquin T's Light Shield truck out truck Meet Cafe east west sailor up down coat VERB SOURCE CODE: loc*ate:
who = $string_utils:match_player(dobjstr);
if (valid(who))
who.location:look_self();
else
player:tell("I can't find ", dobjstr, ".");
endif
.
moveto:
"Copied from Carrot's Rosette Feature Object (#126):moveto by Carrot (#448) Mon Feb
21 05:00:44 1994 EST";
pass(@args);
if ($object_utils:has_property(this, "features") && (#126 in this.features))
used = $list_utils:assoc(player, #126.read);
if ((used != {}) && ("a" in used[3]))
rose = #126:genrose(player.location, used[3]);
if (typeof(rose) == LIST)
player:tell_lines(rose);
endif
endif
endif
return;
.
hunt:
"";
LIST = {"north", "south", "east", "west", "up", "down", "out", "in", "northeast",
"northwest", "southeast", "southwest", "enter", "exit", "door"};
exit = $nothing;
who = $string_utils:match_player(dobjstr);
if (valid(who))
for x in (LIST)
if (valid(who.location:match_exit(x)) && (!valid(exit)))
exit = who.location:match_exit(x);
endif
endfor
if (valid(exit))
for x in (LIST)
if (valid(exit.dest:match_exit(x)) && (exit.dest:match_exit(x).dest ==
who.location))
player.location:announce(player.name, " creates a temporary spatial
warp.");
exit.dest:match_exit(x):invoke(player);
return;
endif
endfor
else
player:tell("There doesn't seem to be any standard exits.");
endif
else
player:tell("There is no player by that name.");
endif
.
PROPERTY DATA: |