Patroclus (#78)

(an instance of Generic Scorpion Player Class made by Patroclus)

     You see a handsome, pale boy from Seattle. He gives you a quick smile when he sees you looking at him. His hair is blond and parted in the middle, just long enough to dangle in his eyes. A silver ring glitters in each ear, and a somewhat scraggly wisp of beard adorns his chin. He's wearing a tank-top and a vest; his body is very slender and sharply defined, and you glimpse the corner of a tattoo on his right shoulder blade. His jeans are faded and ripped at the knees, encircled by a wide black leather belt with holes all along it. A chrome chain hangs from one belt loop to a wallet in his back pocket. His fingers have some burns from operating an espresso machine, and from the way he keeps moving around, you can tell he drinks too many lattes.
     He has a brass chain of mirrors, lenses and prisms wrapped around his neck and waist.

Patroclus is carrying light shield and Gouda.

Go to location of this object, Patro's Shack.


Patroclus owns Patroclus Roof Top light shield cat down up Patro's Shack west east Generic Wearable Thing medal Pennyroyal Tea Generic Post-Apocalypse Exit Plutonium copper ring Shield of Achilles The Computer Screen A UNIX Directory next back Jeweled Scorpion Hex glasses Birthday Box! envelope birthday card


VERB SOURCE CODE:

@citizens: 
"Copied from Calkins (#150):@citizens Fri Feb 18 22:57:25 1994 EST";
"Copied from Mayor (#2):@citizens Wed Jan 26 22:07:57 1994 EST";
p = players();
n = {};
for i in (p)
    n = listinsert(n, i.name);
endfor
player:tell($string_utils:print(n));
.

nnotify: 
if (this.gaglist && this:gag_p())
    return;
endif
if ((this.refuselist && (player.location != this.location)) && this:refuse_p())
    return;
endif
pass(@args);
.

ntell: 
this:notify(tostr(@args));
.

refuse_p: 
"Copied from generic player (#6):gag_p by The_Mayor (#2) Fri Sep 23 19:31:33 1994 
EDT";
if (player in this.refuselist)
    return 1;
elseif (refuse = this.refuselist)
    for x in (callers())
        if ((x[1] in refuse) || (x[4] in refuse))
            return 1;
        endif
    endfor
endif
return 0;
.

page: 
"Copied from generic player (#6):page by The_Mayor (#2) Wed Oct 19 01:41:26 1994 
EDT";
nargs = length(args);
if (nargs < 1)
    player:notify(tostr("Usage: ", verb, "  [with ]"));
    return;
endif
who = $string_utils:match_player(args[1]);
if ($command_utils:player_match_result(who, args[1])[1])
    return;
elseif (who in this.gaglist)
    player:tell("You have ", who:title(), " @gagged.  If you paged ", who.po, ", 
", who.ps, " wouldn't be able to answer you.");
    return;
endif
"for pronoun_sub's benefit...";
dobj = who;
iobj = player;
header = player:page_origin_msg();
text = "";
if (nargs > 1)
    if ((args[2] == "with") && (nargs > 2))
        msg_start = 3;
    else
        msg_start = 2;
    endif
    msg = $string_utils:from_list(args[msg_start..nargs], " ");
    text = tostr($string_utils:pronoun_sub(($string_utils:index_delimited(header, 
player.name) ? "%S" | "%N") + " %, \""), msg, "\"");
endif
result = text ? who:receive_page(header, text) | who:receive_page(header);
if (result == 2)
    "not connected";
    player:tell((typeof(msg = who:page_absent_msg()) == STR) ? msg | $string_utils:pronoun_sub("%n 
is not currently logged in.", who));
else
    player:tell("You page, \"", msg, "\" to ", who.name);
endif
.


PROPERTY DATA:
      refuselist
      sitting_msg