English Utils #98

quote

Spec this none thisFlags rxdOwner #361Definer #98

Referenced by

• #107:say line 33: $english_utils:quote
• #118:_render line 46: $english_utils:quote
• #118:_old_render line 38: $english_utils:quote
• #118:_render_BACKUP_OLD line 35: $english_utils:quote
• #167:render_chat line 15: $english_utils:quote

Source

":quote(OBJ who, STR text, [BOOL realname, [NAME override_name]]) => 'Who says, \"text\".'";
"This verb returns a string which is an english sentence of 'who' saying 'text'.";
"It looks for the following clues to help it figure out the best way to format:";
"  - If the last character of 'text' is '?' it formats the 'text' as a question asked by 'who'";
"  - If the last character of 'text' is '!' it formats the 'text' as an exclamation by 'who'";
"  - Otherise it is assumed that 'text' is normal speech.";
who = args[1];
text = args[2];
if (length(args) > 3)
name = args[4];
elseif ((is_a(who, #109) && (length(args) > 2)) && (args[3] == 1))
name = who:real_name();
else
name = who:title();
endif
if (text)
if (text[$] == "?")
return ((name + " asks, \"") + text) + "\"";
elseif (text[$] == "!")
return ((name + " exclaims, \"") + text) + "\"";
else
return ((name + " says, \"") + text) + "\"";
endif
else
return name;
endif

article_for

Spec this none thisFlags rxdOwner #361Definer #98

Referenced by

• #1:iname line 8: $english_utils:article_for
• #5:iname line 13: $english_utils:article_for
• #92:iname line 16: $english_utils:article_for

Source

":indirect_article(STR string) =>  'a' or 'an'";
"Returns the proper article for the first word in the string provided as an argument.";
string = args[1];
if (!string)
return "a";
endif
for x in [1..length(string)]
if (index($su.alphabet, string[x]))
if (index("aeiou", string[x]))
return "an";
else
return "a";
endif
endif
endfor
return "a";

aggregate_names

Spec this none thisFlags rxdOwner #361Definer #98

Referenced by

• #3:tell_contents line 13: $english_utils:aggregate_names
• #3:render_contents line 4: $english_utils:aggregate_names
• #107:tell_carrying line 23: $eu:aggregate_names
• #148:search line 13: $english_utils:aggregate_names

Source

msg_db = {};
names = {};
{things, ?nameverb = "iname"} = args;
msg_db = $su:message_db(things, nameverb);
for x in (msg_db)
$cu:sin();
if (length(x[1]) > 1)
name = ($string_utils:aggregate_number(length(x[1])) + " ") + x[1][1]:pname();
else
name = x[2];
endif
names = {@names, name};
endfor
return $su:english_list(names);

quote_backup

Spec this none thisFlags rxdOwner #361Definer #98

Referenced by

none

Source

":quote(who OBJ, text STR) => 'Who says, \"text\".'";
"This verb returns a string which is an english sentence of 'who' saying 'text'.";
"It looks for the following clues to help it figure out the best way to format:";
"  - If the first character of 'text' is ':' then it formats as an emote";
"  - If the last character of 'text' is '?' it formats the 'text' as a question asked by 'who'";
"  - If the last character of 'text' is '!' it formats the 'text' as an exclamation by 'who'";
"  - Otherise it is assumed that 'text' is normal speech, which will end with a period.";
who = args[1];
text = args[2];
if (text)
if (text[1] == ":")
text = text[2..$];
if (text && (text[1] == ":"))
text = text[2..$];
return who:title() + text;
else
return (who:title() + " ") + text;
endif
elseif (text[$] == "?")
return ((who:title() + " asks, \"") + text) + "\"";
elseif (text[$] == "!")
return ((who:title() + " exclaims, \"") + text) + "\"";
else
return ((who:title() + " says, \"") + text) + "\"";
endif
else
return who:title();
endif

profanity

Spec this none thisFlags rxdOwner #361Definer #98

Referenced by

• #98:superjerk line 1: $eu:profanity
• #98:superjerk line 1: $eu:profanity
• #98:superjerk line 4: $eu:profanity
• #98:superjerkname line 4: $eu:profanity
• #98:superjerkname line 4: $eu:profanity
• #98:superjerkname line 7: $eu:profanity

Source

wordcount = args ? args[1] | random(3);
s = "";
for x in [1..wordcount]
if (!s)
l = #86710.rka;
else
type = random(3);
if (type == 1)
l = #86710.rkb;
elseif (type == 2)
l = #86710.rkc;
else
l = #86710.rkd;
endif
endif
word = l[random($)];
s = s ? s + " " | "";
s = s + word;
endfor
return s;

curse

Spec this none thisFlags rxdOwner #361Definer #98

Referenced by

• #98:jerk_name line 13: $eu:curse

Source

length = args ? args[1] | 2;
s = "";
for x in [1..length]
word = this.cursewords[random($)];
s = s + word;
endfor
return s;

aggregate_names_bold

Spec this none thisFlags rxdOwner #361Definer #98

Referenced by

none

Source

msg_db = {};
names = {};
{things, ?nameverb = "iname"} = args;
msg_db = $su:message_db(things, nameverb);
for x in (msg_db)
$cu:sin();
if (length(x[1]) > 1)
name = ($string_utils:aggregate_number(length(x[1])) + " ") + x[1][1]:pname();
else
name = x[2];
endif
names = {@names, name};
endfor
return $su:english_list_bold(names);

jerk

Spec this none thisFlags rxdOwner #29Definer #98

Referenced by

none

Source

{who, ?super = 0} = args;
msg = this.insult_sentence[random($)];
if (!super)
n = this:jerk_name(who);
elseif (super == 1)
n = this:superjerkname(who);
elseif (super == 2)
n = this:like_a_butt();
else
n = {this:superjerkname(who.location:occupants($living)[random($)]), this:jerk_name(who.location:occupants($living)[random($)])}[random($)];
endif
name = (typeof(who) == STR) ? who | who:name();
name = $ansi:strip(name);
msg = strsub(msg, "%fag", n);
msg = strsub(msg, "%n", name);
return $su:capitalize(msg);

jerk_name

Spec this none thisFlags rxdOwner #29Definer #98

Referenced by

• #98:jerk line 4: this:jerk_name
• #98:jerk line 10: this:jerk_name

Source

who = args[1];
name = (typeof(who) == STR) ? who | who:name();
name = $ansi:strip(name);
endname = $su:words(name)[random($)];
unaltered = endname;
if (((typeof(who) == OBJ) && (who.gender != "male")) && (who.gender != "female"))
gs = "neuter";
else
gs = `who.gender ! ANY => {"male", "female", "neuter"}[random($)]';
endif
p = "prefix_" + gs;
if (random(100) <= 15)
prefix = $eu:curse();
else
prefix = this.(p)[random($)];
endif
hyphen = (random(100) <= 30) ? "-" | "";
prefix = (random(100) <= 20) ? $su:uppercase(prefix) | $su:capitalize(prefix);
len = min(3, random(length(endname)));
if ((length(name) == 1) || (length(name) == 2))
jerkname = (random(100) <= 30) ? tostr(endname, hyphen, prefix) | tostr(prefix, hyphen, endname);
elseif (len == length(name))
jerkname = prefix;
else
jerkname = (random(100) <= 30) ? tostr(prefix, hyphen, endname[len..$]) | tostr(endname[1..len], hyphen, prefix);
endif
jerk = name;
jerk = strsub(jerk, unaltered, jerkname);
return jerk;

superjerk

Spec this none thisFlags rxdOwner #29Definer #98

Referenced by

none

Source

wordcol = ($eu:profanity() + " ") + $eu:profanity();
extras = random(3);
while (extras)
wordcol = wordcol + $eu:profanity();
extras = extras - 1;
endwhile
words = $su:words(wordcol);
words = $lu:remove_duplicates(words);
sur = this.super_surname[random($)];
m = strsub(sur, "%fag", $su:capitalize(words[random($)]));
m = strsub(m, "%fog", $su:capitalize(words[random($)]));
m = strsub(m, "%fig", $su:capitalize(words[random($)]));
m = strsub(m, "%t", $su:capitalize(words[random($)]));
names = this.sf_names;
for x in (player.location:occupants($living))
names = setadd(names, $ansi:strip(x:name()));
endfor
name = names[random($)];
return tostr(name, " ", m);

like_a_butt

Spec this none thisFlags rxdOwner #29Definer #98

Referenced by

• #98:jerk line 8: this:like_a_butt

Source

"Copied from Asshole Utilities (#295066):like_a_butt by Ammut (#365733) Fri Jun 26 15:08:44 2009 CDT";
adj = {"dumb", "stupid", "smelly", "poopy", "fart", "poo", "pee"};
noun = {"butt", "head", "face", "butthole", "poop", "dick", "tard", "ass"};
a1 = {"%a %n", "%a%n", "%a %a%n", "%n%n", "%a %n%n"};
s = a1[random($)];
if (random(100) > 50)
a1 = {"whose %n is a butt", "with a %n for a %n", "with a %a %n", "who likes %a %n", "%a %n"};
s = (s + " ") + a1[random($)];
endif
if (random(100) > 50)
a1 = {"and your %n is a %n", "and your %n is %a", "and shut up", "and nobody likes you", "and you're %a", "and also %a"};
s = (s + " ") + a1[random($)];
endif
while (i = index(s, "%n"))
n = noun[random($)];
s = (s[1..i - 1] + n) + s[i + 2..$];
endwhile
while (i = index(s, "%a"))
a = adj[random($)];
s = (s[1..i - 1] + a) + s[i + 2..$];
endwhile
return "you're a " + s;

superjerkname

Spec this none thisFlags rxdOwner #29Definer #98

Referenced by

• #98:jerk line 6: this:superjerkname
• #98:jerk line 10: this:superjerkname

Source

who = args[1];
name = (typeof(who) == STR) ? who | who:name();
name = $ansi:strip(name);
wordcol = ($eu:profanity() + " ") + $eu:profanity();
extras = random(3);
while (extras)
wordcol = wordcol + $eu:profanity();
extras = extras - 1;
endwhile
words = $su:words(wordcol);
words = $lu:remove_duplicates(words);
sur = this.super_surname[random($)];
m = strsub(sur, "%fag", $su:capitalize(words[random($)]));
m = strsub(m, "%fog", $su:capitalize(words[random($)]));
m = strsub(m, "%fig", $su:capitalize(words[random($)]));
m = strsub(m, "%t", $su:capitalize(words[random($)]));
return tostr(name, " ", m);

pow

Spec this none thisFlags rxdOwner #29Definer #98

Referenced by

• #98:superpow line 6: $eu:pow

Source

simple = {"bi", "ji", "po", "nu", "spl" + "oae"[random($)], "ba", "ku", "klu", "bu", "ho", "ha", "hu", "gro", "go", "fo", "ka", "kla", "zo", "po", "klo", "kra", "kro", "bo", "pho"};
simple_end = {"ns", "ts", "t", "nts", "nks", "ff", "ng", "m", "pp", "tt", "nk", "zz", "tz", "mp", "mph", "mf"};
return simple[random($)] + simple_end[random($)];

superpow

Spec this none thisFlags rxdOwner #361Definer #98

Referenced by

none

Source

start = {"bp"[random($)] + {"l", "r", ""}[random($)], "ka-" + "pzrgk"[random($)], "r", "n", "th", "kg"[random($)] + "lr"[random($)], "ker-z", "kg"[random($)], "d", "z", "pb"[random($)]}[random($)];
middle = "aeiou"[random($)] + {"", "oin"[random($)]}[random($)];
end = {"kg"[random($)], "ft"[random($)], "kk"}[random($)];
prefix = {"ker", "ka", "ba", "za"}[random($)];
comp = tostr(start, middle, end);
simp = tostr(prefix, "-", $eu:pow());
return {comp, simp, simp}[random($)];

voice_of

Spec this none thisFlags rxdOwner #361Definer #98

Referenced by

• #3:_yell line 9: $eu:voice_of

Source

":voice_of(who) => Return a string describing the voice of 'WHO'.";
{who} = args;
if (is_a(who, $creature) && `voice = who:occupants(#377413, "wearing")[1].custom_voice ! E_RANGE => 0')
return voice;
elseif (`who.custom_voice ! E_PROPNF => 0')
return $su:msg(who.custom_voice);
else
{i, s} = $rng:random(length(this.voices), $rng:make_state(toint(who)));
v1 = this.voices[i];
v2 = listdelete(this.voices, i)[$rng:random($, s)[1]];
return tostr(v1, ", ", v2);
endif