Improve speech syntax: capitalization and random substrings.

1. @The_monster@ shouts, "I hate you, @CAPS@ @player_name@ @NOCAPS@!"

will result in the actual player name being capitalized.
(Spaces are trimmed.)

2. @The_monster@ says, "I am [very ||really ] hungry."

will randomly result in "I am very hungry", "I am hungry" or
"I am really hungry".

If the pattern turns up a lot, you need to assign weights to the
different choices, or you require nested random sets, you'll need to
stick to the old fallback of defining ad hoc @keywords@.
Otherwise, this should make things somewhat simpler.

Works for both monster and weapon speech, including shouts, noisy
weapons and the Singing Sword.

I've also taken the liberty to update the speech documentation, which
still listed the old website (!) and pointed users looking for advice
to the newsgroup).

Conflicts:
	crawl-ref/source/art-func.h
	crawl-ref/source/libutil.cc
	crawl-ref/source/libutil.h

Signed-off-by: Florian Diebold <flodiebold@gmail.com>

1 files changed, 43 insertions, 0 deletions

diff --git a/crawl-ref/source/libutil.cc b/crawl-ref/source/libutil.cc
index 64b382f82c..318622411b 100644
--- a/crawl-ref/source/libutil.cc
+++ b/crawl-ref/source/libutil.cc
@@ -650,6 +650,49 @@ string replace_all_of(string s, const string &tofind, const string &replacement)
     return s;
 }
 
+// Capitalize phrases encased in @CAPS@ ... @NOCAPS@. If @NOCAPS@ is missing, change the rest of the line to uppercase.
+string maybe_capitalize_substring(string s)
+{
+    string::size_type start = 0;
+    while ((start = s.find("@CAPS@", start)) != string::npos)
+    {
+        string::size_type cap_start  = start + 6;
+        string::size_type cap_end    = string::npos;
+        string::size_type end        = s.find("@NOCAPS@", cap_start);
+        string::size_type length     = string::npos;
+        string::size_type cap_length = string::npos;
+        if (end != string::npos)
+        {
+            cap_end = end + 8;
+            cap_length = end - cap_start;
+            length = cap_end - start;
+        }
+        string substring = s.substr(cap_start, cap_length);
+        trim_string(substring);
+        s.replace(start, length, uppercase(substring));
+    }
+    return s;
+}
+
+// For each set of [phrase|term|word] contained in the string, replace the set with a random subphrase.
+// NOTE: Doesn't work for nested patterns!
+string maybe_pick_random_substring(string s)
+{
+    string::size_type start = 0;
+    while ((start = s.find("[", start)) != string::npos)
+    {
+        string::size_type end = s.find("]", start);
+        if (end == string::npos)
+            break;
+
+        string substring = s.substr(start + 1, end - start - 1);
+        vector<string> split = split_string("|", substring, false, false);
+        int index = random2(split.size());
+        s.replace(start, end + 1 - start, split[index]);
+    }
+    return s;
+}
+
 int count_occurrences(const string &text, const string &s)
 {
     ASSERT(!s.empty());