Language Utilities #125

Parent #79Owner #2Flags Source QuestCore.db

Aliases: Language Utilities

8 verbs · 5 properties · 0 children

Verbs

Properties

Ancestry

• #1 Root Class

  • #79 Generic Utilities Package

    • #125 Language Utilities

Ancestors (nearest first): #79 Generic Utilities Package → #1 Root Class

Children: none

Call graph

Source

"ARGs => what is [1] speaking?";
if (!`!(!property_info(args[1], "speaking")) ! E_PROPNF => 0')
speaking = $default_lang;
else
speaking = args[1].speaking;
if (speaking == $nothing)
speaking = $default_lang;
endif
endif
return speaking;

"ARGs => can [1] speak [2]?";
langs = this:languages(args[1]);
lin = args[2] in langs[1];
if ((lin && (llin = langs[2][lin])) && (llin >= 2.0))
return 1;
endif

"ARGs => what [1] has in its .languages property, or $default_lang.";
if (!`!(!property_info(args[1], "languages")) ! E_PROPNF => 0')
return {{$default_lang}, {2.0}};
else
return args[1].languages;
endif

"ARGs => [1] is saying [3] to [2]";
talking = args[1];
listening = args[2];
saying = args[3];
talking_lang = this:speaking(talking);
if (`(listening.stats_current[2][3] < 2.5) && listening.alive ! ANY => 0' || `(talking.stats_current[2][3] < 2.5) && talking.alive ! ANY => 0')
extry = (x = $string_utils:words(saying)) ? $string_utils:strip_chars($string_utils:lowercase($string_utils:reverse(x[1])), "!,.?':;()<>") | "";
return $string_utils:capitalize((($string_utils.alphabet[random($)] + "uh") + $string_utils.alphabet[random($)]) + extry);
elseif (this:can_speak(listening, talking_lang) || (!`!(!property_info(listening, "languages")) ! E_PROPNF => 0'))
return saying;
else
return talking_lang:encrypt(listening, saying);
endif

"ARGs => what languages can [1] speak?";
langs = this:languages(@args)[1];
cslangs = {};
for l in (langs)
(ticks_left() < 4000) && suspend(0);
if (this:can_speak(args[1], l))
cslangs = {@cslangs, l};
endif
endfor
return cslangs;

"ARGs => the language [1]'s 'in <lang>' blurb for person [2]";
lang = args[1];
p = args[2];
if (`(p.stats_current[2][3] < 2.5) && p.alive ! ANY => 0')
return "but you can't understand the sounds.";
endif
if ((lang == $default_lang) && this:can_speak(p, lang))
return "";
endif
langs = $lang_utils:languages(p);
lin = lang in langs[1];
if (!lin)
return ("in " + lang.unknown_lang_desc) + ".";
endif
cl = langs[2][lin];
if (lang == $default_lang)
return "";
endif
if (cl > lang.unknown_level)
return ("in " + lang.lang_name) + ".";
else
return ("in " + lang.unknown_lang_desc) + ".";
endif

"ARGs => person [1] will advance in language [2]";
if (!`!(!property_info(p = args[1], "skills")) ! E_PROPNF => 0')
return;
endif
lang = args[2];
langs = p.languages;
lin = lang in langs[1];
if (!lin)
langs = p.languages = {{@p.languages[1], lang}, {@p.languages[2], 0.0}};
lin = length(langs[1]);
endif
cl = langs[2][lin];
lskill = ((ls = p.skills[2]["language" in p.skills[1]]) >= 0.0001) ? ls | 0.1;
if (cl > 2.0)
return p.skills[2]["language" in p.skills[1]] = p.skills[2]["language" in p.skills[1]] + (0.0001 / lskill);
endif
if (cl > 1.0)
amt = lang.learning_speeds[2] * sqrt(lskill);
else
amt = lang.learning_speeds[1] * sqrt(lskill);
endif
langs[2][lin] = langs[2][lin] + amt;
p.languages = langs;

"ARGs => [1] announces [3] to [2], replacing %lang_encrypt in [3] with [4]";
s = args[1];
d = args[2];
fstr = args[3];
rstr = args[4];
if (typeof(d) == OBJ)
d = {d};
endif
if (`(s.stats_current[2][3] < 2.5) && s.alive ! ANY => 0')
for c in (d)
(ticks_left() < 4000) && suspend(0);
`c:tell(strsub(fstr, "%lang_encrypt", $lang_utils:encrypt(s, c, rstr)), " as if it really meant something.") ! ANY';
endfor
return;
endif
for c in (d)
(ticks_left() < 4000) && suspend(0);
ilf = this:in_line_for(lang = this:speaking(s), c);
(((random(3) - 1) && (c in connected_players())) && (c != s)) && this:advance_level(c, lang);
`c:tell(strsub(fstr, "%lang_encrypt", $lang_utils:encrypt(s, c, rstr)), " ", ilf) ! ANY';
endfor