Trees_Beatnik

Trees_Beatnik (#1237)

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

A shadowy thing.

Go to location of this object, Electric Godland.

Trees_Beatnik owns Trees_Beatnik Electric Godland Liquor FO

VERB SOURCE CODE:

tell:

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;
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 = ((player.name + " tells you \"") + msg) + "\"";
endif
result = text ? who:receive_page(text) | who:receive_page(text);
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("Message Sent.");
endif
.

PROPERTY DATA:
doomed