Repetitive Stress Injuries feature (#1188)

(an instance of Generic Feature Object made by Michele)

     This feature provides aliases for commonly used commands, to reduce strain on your hands.

Go to location of this object, Features Feature Object.


HELP MANUAL: 
     hands hurt--use this.
     
     y       say yes
     n no    say no
     w wa    wave
     h       heh
     /*      say with a ? at the end
     sa      say
     em emm  emote, ::
     ns      nod solemnly
     wh*uggle hug    whuggle or hug someone
     ,*      emote <- *
     nd      nod
     gr      grin
     too     emote too!
     gg      giggle
     ow      say your hands hurt
     lv      leave cuz of pain
     bl      blink



VERB SOURCE CODE:

y: 
"y is yes.";
$you:say_action("%N %, \"Yes.\"");
.

n no: 
"n is no, and doesn't work.";
$you:say_action("%N %, \"No.\"");
.

w wa: 
"w is wave, and doesn't work.";
$you:say_action("%N %.");
.

h: 
"h is heh.";
$you:say_action("%N %.");
.

=*: 
"= is emote.";
what = verb[2..length(verb)];
player.location:announce_all(player:name(), " ", what, " ", argstr);
.

/*: 
"/[player] [text] asks a question.";
if (verb == "/")
    $you:say_action(("%N %, \"" + $string_utils:pronoun_quote(argstr)) + "?\"");
elseif (!$command_utils:object_match_failed(dobj = player.location:match_object(dobjstr 
= verb[2..length(verb)]), dobjstr))
    $you:say_action(("%N [to %d]: " + $string_utils:pronoun_quote(argstr)) + "?");
endif
.

sa em emm: 
"sa is say";
"em is emote";
"emm is emote with no space";
if (verb == "emm")
    if (args)
        args[1] = ":" + args[1];
    else
        args = {":"};
    endif
    argstr = ":" + argstr;
    verb = "em";
endif
player.location:({"say", "emote"}[verb in {"sa", "em"}])(@args);
.

ns: 
"ns [player] is nod solemnly.";
if (args)
    if (!$command_utils:object_match_failed(valid(dobj) ? dobj | (dobj = player.location:match_object(dobjstr)), 
dobjstr))
        $you:say_action("%N % solemnly to %d.");
    endif
else
    $you:say_action("%N % solemnly.");
endif
.

wh*uggle hug: 
"shorthand for whuggle";
this.hug_feature:hug(@args);
.

,*: 
", is <";
this.arrow_feature:("<" + verb[2..length(verb)])(@args);
.

nd: 
"nd [player] is nod.";
if (args)
    if (!$command_utils:object_match_failed(valid(dobj) ? dobj | (dobj = player.location:match_object(dobjstr)), 
dobjstr))
        "player.location:announce_all(player:dnamec(), \" nods \", dobj:dname(), 
\".\");";
        $you:say_action("%N % to %d.");
    endif
else
    $you:say_action("%N %.");
endif
.

gr: 
"gr [player] is grin.";
if (args)
    if (!$command_utils:object_match_failed(dobj, dobjstr))
        $you:say_action("%N % at %d.");
    endif
else
    $you:say_action("%N %.");
endif
.

too: 
"too [player] is too!";
if (args)
    if (!$command_utils:object_match_failed(dobj, dobjstr))
        argstr = ("too " + dobj:name()) + "!";
        player.location:emote(argstr);
    endif
else
    argstr = "too!";
    player.location:emote(argstr);
endif
.

gg: 
"gg [player] is giggle.";
if (args)
    if (!$command_utils:object_match_failed(dobj, dobjstr))
        $you:say_action("%N % at %d.");
    endif
else
    $you:say_action("%N %.");
endif
.

ow: 
"Copied from ow feature object (#1531):ow by Michele (#1185) Fri Jan  7 09:57:45 
1994 EST";
"Copied from Carpal Tunnel Feature Object (#599):ns by Barry (#73) Fri Jan  7 09:38:31 
1994 EST";
"ow [player] is my hands (or fingers or wrists) hurt.";
if (repetitive_stress_injury_affected_body_part = $code_utils:verb_or_property(player, 
"repetitive_stress_injury_affected_body_part_msg"))
    repetitive_stress_injury_affected_body_part = $string_utils:pronoun_sub(repetitive_stress_injury_affected_body_part);
else
    repetitive_stress_injury_affected_body_part = "hands";
endif
hurt = (repetitive_stress_injury_affected_body_part[length(repetitive_stress_injury_affected_body_part)] 
== "s") ? "hurt" | "hurts";
if (args)
    if (!valid(dobj))
        dobj = player.location:match_object(dobjstr);
    endif
    if (!$command_utils:object_match_failed(dobj, dobjstr))
        $you:say_action(((("%N [to %d]: I shouldn't say much because my " + repetitive_stress_injury_affected_body_part) 
+ " ") + hurt) + ".");
    endif
else
    $you:say_action(((("%N shouldn't say much because %p " + repetitive_stress_injury_affected_body_part) 
+ " ") + hurt) + ".");
endif
.

lv: 
"Copied from bct (#1763):lv by DavidSan (#1185) Wed Feb 16 16:59:39 1994 EST";
if (repetitive_stress_injury_leaving_message = $code_utils:verb_or_property(player, 
"repetitive_stress_injury_leaving_message"))
else
    repetitive_stress_injury_leaving_message = "%N % leaving.  Bye.";
endif
$you:say_action(repetitive_stress_injury_leaving_message);
.

bl: 
"bl [player] is blink.";
if (args)
    if (!$command_utils:object_match_failed(dobj, dobjstr))
        $you:say_action("%N % at %d.");
    endif
else
    $you:say_action("%N %.");
endif
.


PROPERTY DATA:
      hug_feature
      arrow_feature