Mini Social Feature #124
Aliases: Mini Social Feature, minifo
2 verbs · 23 properties · 0 children
Verbs
Properties
| Property | Definer | Flags | Owner | Value |
|---|---|---|---|---|
warehouse | #74 | r | #36 | <clear> |
help_msg | #74 | rc | #2 | "Useful verbs for social interaction." |
feature_verbs | #74 | r | #36 | {"chuckle"} |
feature_ok | #74 | r | #36 | <clear> |
drop_failed_msg | #5 | rc | #2 | <clear> |
drop_succeeded_msg | #5 | rc | #2 | <clear> |
odrop_failed_msg | #5 | rc | #2 | <clear> |
odrop_succeeded_msg | #5 | rc | #2 | <clear> |
otake_succeeded_msg | #5 | rc | #2 | <clear> |
otake_failed_msg | #5 | rc | #2 | <clear> |
take_succeeded_msg | #5 | rc | #2 | <clear> |
take_failed_msg | #5 | rc | #2 | <clear> |
value_base | #102 | r | #2 | <clear> |
damage_base | #102 | r | #2 | <clear> |
x_loc | #102 | r | #36 | <clear> |
y_loc | #102 | r | #36 | <clear> |
ansi_title | #102 | r | #36 | <clear> |
obvious | #102 | r | #36 | <clear> |
build_help | #102 | rc | #2 | <clear> |
key | #1 | c | #2 | 0 |
aliases | #1 | rc | #2 | {"Mini Social Feature", "minifo"} |
description | #1 | rc | #2 | "Useful verbs for social interaction." |
object_size | #1 | r | #36 | {2644, 1539462952} |
Ancestry
Ancestors (nearest first): #74 Generic Feature Object → #5 generic thing → #102 subthing → #1 Root Class
Children: none
Call graph
Source
parse
Referenced by
- #124:chuckle line 2:
this:parse
Source
1"Usage: parse_any(verb, argstr)"; 2v = $string_utils:strip_chars(args[1], ".!"); 3a = $string_utils:strip_chars(args[2], ".!"); 4sentence = a ? tostr("%N %<", $gender_utils:_verb_singular(v, player.gender), "> ", a) | tostr("%N %<", $gender_utils:_verb_singular(v, player.gender), ">"); 5sentence = $string_utils:subst(sentence, {{" my ", " %p "}}); 6if (dobjstr) 7dobjstr = $string_utils:strip_chars(dobjstr, ".!"); 8if (dobjstr in {"myself", "self"}) 9dobj = player; 10endif 11if (!valid(dobj)) 12dpieces = $string_utils:first_word(dobjstr); 13if (valid(d = player:my_match_object(dpieces[1]))) 14dobj = d; 15dobjstr = dpieces[1]; 16elseif (valid(d = player:my_match_object(dpieces[2]))) 17dobj = d; 18dobjstr = dpieces[2]; 19elseif (dpieces[1] in {"myself", "self"}) 20dobj = player; 21dobjstr = dpieces[1]; 22elseif (dpieces[2] in {"myself", "self"}) 23dobj = player; 24dobjstr = dpieces[2]; 25endif 26endif 27if (valid(dobj)) 28if (player != dobj) 29sentence = $string_utils:subst(sentence, {{dobjstr, "%d"}}); 30else 31sentence = $string_utils:subst(sentence, {{dobjstr, "%r"}}); 32endif 33endif 34endif 35if (iobjstr) 36iobjstr = $string_utils:strip_chars(iobjstr, ".!"); 37if (iobjstr in {"myself", "self"}) 38iobj = player; 39endif 40if (!valid(iobj)) 41ipieces = $string_utils:first_word(iobjstr); 42if (valid(i = player:my_match_object(ipieces[1]))) 43iobj = i; 44iobjstr = ipieces[1]; 45elseif (valid(i = player:my_match_object(ipieces[2]))) 46iobj = i; 47iobjstr = ipieces[2]; 48elseif (ipieces[1] in {"myself", "self"}) 49iobj = player; 50iobjstr = ipieces[1]; 51elseif (ipieces[2] in {"myself", "self"}) 52iobj = player; 53iobjstr = ipieces[2]; 54endif 55endif 56if (valid(iobj)) 57if (player != iobj) 58sentence = $string_utils:subst(sentence, {{iobjstr, "%i"}}); 59else 60sentence = $string_utils:subst(sentence, {{iobjstr, "%r"}}); 61endif 62endif 63endif 64sentence = tostr(sentence, "."); 65(ticks_left() < 6000) && suspend(0); 66$you:say_action(sentence);
chuckle giggle snicker gasp blush hiss growl jerk pee puke jump run laugh smile frown wave bow curtsey nod blink shake poke kiss lick hug spank pinch yawn cry choke spit crawl sneer leer cheer drool chew burp fart step hum hmm whistle tsk stare wink cough sneeze grumble bounce hop duck fall idle sniff whimper sulk smirk mutter groan scream
Referenced by
none
Source
1"These verbs can handle any direct objects, prepositions, or indirect objects."; 2this:parse(verb, argstr);