Stage Talk FO (#112)

     This feature contains various verbs used in stage talk, which allows players to describe 
their actions in terms of stage directions instead of prose.

"Say something out loud, directed at someone or something.";
"Usage:";
"  `target message";
"Example:";
"  Munchkin is talking to Kenneth, who's in the same room with him.  He types:";
"      `kenneth What is the frequency?";
"  The room sees:";
"       Munchkin [to Kenneth]: What is the frequency?";
name = verb[2..length(verb)];
who = player.location:match_object(name);
if ($command_utils:object_match_failed(who, name))
    return;
endif
player.location:announce_all(player.name, " [to ", who.name, "]: ", argstr);
.

"Say something out loud, in some specific way.";
"Usage:";
"  [how]: message";
"Example:";
"  Munchkin decideds to sing some lyrics.  He types:";
"      [sings]: I am the eggman";
"  The room sees:";
"      Munchkin [sings]: I am the eggman";
player.location:announce_all((((player.name + " ") + verb) + " ") + argstr);
.

"Perform some physical, non-verbal, action.";
"Usage:";
"  ]third person action";
"Example:";
"  Munchkin has annoyed some would-be tough guy.  He types:";
"      ]hides behind the reactor.";
"  The room sees:";
"      [Munchkin hides behind the reactor.]";
player.location:announce_all("[", (((player.name + " ") + verb[2..length(verb)]) 
+ (argstr ? " " + argstr | "")) + "]");
.

name = verb[2..length(verb)];
who = player.location:match_object(name);
argstr = $code_utils:argstr(verb, args, argstr);
if (!valid(who))
    player.location:announce_all(player.name, " [", name, "]: ", argstr);
else
    player.location:announce_all(player.name, " [to ", who.name, "]: ", argstr);
endif
.

"Point to yourself with some adjective.";
"Usage:";
"  


to:
"Say something out loud, directed at someone or something.";
"Usage:";
"  to target message";
"Example:";
"  Munchkin is talking to Kenneth, who's in the same room with him.  He types:";
"       to kenneth What is the frequency?";
"  The room sees:";
"       Munchkin [to Kenneth]: What is the frequency?";
name = args[1];
who = player.location:match_object(name);
if ($command_utils:object_match_failed(who, name))
    return;
endif
message = $string_utils:from_list(listdelete(args, 1), " ");
player.location:announce_all(player.name, " [to ", who.name, "]: ", message);
.






PROPERTY DATA: