Import v6.12.4 of the Inform 6 standard library
[informlib.git] / english.h
index 647188b022fa85b8c76d84af16fbae6db2e0d700..2b2da8b4ba93de1aa994b413e2600ef72d6f8632 100644 (file)
--- a/english.h
+++ b/english.h
@@ -1,9 +1,9 @@
 ! ==============================================================================
 !   ENGLISH:  Language Definition File
 !
-!   Supplied for use with Inform 6 -- Release 6.12.3 -- Serial number 190320
+!   Supplied for use with Inform 6 -- Release 6.12.4 -- Serial number 200718
 !
-!   Copyright Graham Nelson 1993-2004 and David Griffith 2012-2019
+!   Copyright Graham Nelson 1993-2004 and David Griffith 2012-2020
 !
 !   This file is free software: you can redistribute it and/or modify
 !   it under the terms of the GNU Affero General Public License as
@@ -73,7 +73,7 @@ CompassDirection -> u_obj  with short_name "up above",  door_dir u_to,
                                 name 'u//' 'up' 'ceiling' 'above' 'sky';
 CompassDirection -> d_obj  with short_name "ground",    door_dir d_to,
                                 name 'd//' 'down' 'floor' 'below' 'ground';
-#endif; ! WITHOUT_DIRECTIONS
+#Endif; ! WITHOUT_DIRECTIONS
 
 CompassDirection -> in_obj  with short_name "inside",  door_dir in_to;
 CompassDirection -> out_obj with short_name "outside", door_dir out_to;
@@ -295,6 +295,15 @@ Array LanguageGNAsToArticles --> 0 0 0 1 1 1 0 0 0 1 1 1;
       'l//':   print "look";
       'x//':   print "examine";
       'z//':   print "wait";
+! CompassDirection
+      'n//':   print "north";
+      's//':   print "south";
+      'e//':   print "east";
+      'w//':   print "west";
+      'ne//':   print "northeast";
+      'nw//':   print "northwest";
+      'se//':   print "southeast";
+      'sw//':   print "southwest";
       default: rfalse;
     }
     rtrue;
@@ -373,6 +382,7 @@ Constant DARKNESS__TX   = "Darkness";
 
 Constant THOSET__TX     = "those things";
 Constant THAT__TX       = "that";
+Constant THE__TX        = "the";
 Constant OR__TX         = " or ";
 Constant NOTHING__TX    = "nothing";
 Constant IS__TX         = " is";
@@ -387,7 +397,24 @@ Constant AND__TX        = " and ";
 Constant WHOM__TX       = "whom ";
 Constant WHICH__TX      = "which ";
 Constant COMMA__TX      = ", ";
-Constant COLON__TX      = ": ";
+Constant COLON__TX      = ":";
+
+! For EnterSub()
+Constant STAND__TX     = 'stand';
+Constant SIT__TX       = 'sit';
+Constant LIE__TX       = 'lie';
+
+Constant LIBERROR__TX   = "Library error ";
+Constant TERP__TX       = "Interpreter ";
+Constant VER__TX        = "Version ";
+Constant STDTERP__TX    = "Standard interpreter ";
+Constant TERPVER__TX   = "Interpreter version ";
+Constant LIBSER__TX    = "Library Serial Number ";
+Constant VM__TX                = "VM ";
+Constant RELEASE__TX    = "Release ";
+Constant SERNUM__TX     = "Serial number ";
+Constant INFORMV__TX    = "Inform v";
+Constant LIBRARYV__TX   = " Library v";
 
 ! ----------------------------------------------------------------------------
 ! FYI on nominative pronouns versus accusative pronouns...
@@ -449,7 +476,7 @@ Constant COLON__TX      = ": ";
 ];
 
 ! Nominative
-[ CTheyreorThats obj;
+[ CTheyreOrThats obj;
     if (obj == player) {
        if (player provides narrative_voice) {
            if (player.narrative_voice == 1) { Tense("I'm", "I was"); return; }
@@ -477,7 +504,7 @@ Constant COLON__TX      = ": ";
 
 [ nop x; x = x; ];      ! print rule to absorb unwanted return value
 
-[ SubjectNotPlayer obj reportage v2 v3 past;
+[ SubjectNotPlayer obj reportage nocaps v2 v3 past;
     if (past && player provides narrative_tense && player.narrative_tense == PAST_TENSE) {
         v2 = past;
         v3 = past;
@@ -496,8 +523,21 @@ Constant COLON__TX      = ": ";
             else {print (the) obj, " ", (string) v3; return;}
     }
    else
-        if (obj has pluralname) { print (The) obj, " ", (string) v2; return;}
-        else                    { print (The) obj, " ", (string) v3; return;}
+        if (obj has pluralname) {
+           if (nocaps)
+               print (the) obj;
+           else
+               print (The) obj;
+           print " ", (string) v2;
+           return;
+       }
+        else {
+           if (nocaps)
+               print (the) obj;
+           else
+               print (The) obj;
+           print " ", (string) v3; return;
+       }
 ];
 
 [ CSubjectVoice obj v1 v2 v3 past;
@@ -541,7 +581,7 @@ Constant COLON__TX      = ": ";
         if (nocaps) { print "you ", (string) v2; return; }
        print "You ", (string) v2; return;
     }
-    SubjectNotPlayer(obj, reportage, v2, v3);
+    SubjectNotPlayer(obj, reportage, nocaps, v2, v3);
 ];
 
 [ CSubjectIs obj reportage nocaps;
@@ -557,7 +597,7 @@ Constant COLON__TX      = ": ";
         else Tense("You're", "You were");
         return;
     }
-    SubjectNotPlayer(obj, reportage, "are", "is", "was");
+    SubjectNotPlayer(obj, reportage, nocaps, "are", "is", "was");
 ];
 
 [ CSubjectIsnt obj reportage nocaps;
@@ -573,7 +613,7 @@ Constant COLON__TX      = ": ";
         else Tense("You aren't", "You weren't");
        return;
     }
-    SubjectNotPlayer(obj, reportage, "aren't", "isn't", "wasn't");
+    SubjectNotPlayer(obj, reportage, nocaps, "aren't", "isn't", "wasn't");
 ];
 
 [ CSubjectHas obj reportage nocaps;
@@ -589,7 +629,7 @@ Constant COLON__TX      = ": ";
         else Tense("You've", "You'd");
         return;
     }
-    SubjectNotPlayer(obj, reportage, "have", "has", "had");
+    SubjectNotPlayer(obj, reportage, nocaps, "have", "has", "had");
 ];
 
 [ CSubjectWill obj reportage nocaps;
@@ -605,7 +645,7 @@ Constant COLON__TX      = ": ";
         else Tense("You'll", "You'd");
         return;
     }
-    SubjectNotPlayer(obj, reportage, "will", "will", "would");
+    SubjectNotPlayer(obj, reportage, nocaps, "will", "will", "would");
 ];
 
 [ CSubjectCan obj reportage nocaps;
@@ -840,6 +880,9 @@ Constant COLON__TX      = ": ";
         1:  CSubjectIsnt(actor,true); " wearing ", (ThatOrThose) x1, ".";
         2:  CSubjectVerb(actor,false,false,"take off",0,"takes off", "took off");
             " ", (the) x1, ".";
+        3:  "(first taking ", (the) x1, " off)";
+        4: CSubjectVerb(actor,false,false, "will need to", 0, 0, "had to");
+           " remove ", (the) noun, " first.";
     }
   Drink:    print "There";
             Tense("'s", " was");
@@ -849,8 +892,7 @@ Constant COLON__TX      = ": ";
         2:  CSubjectVerb(actor, false, false, "haven't got", 0, "hasn't got",
                          "didn't have");
             " ", (the) x1, ".";
-        3:  "(first taking ", (the) x1, " off)";
-        4:  "Dropped.";
+        3:  "Dropped.";
     }
   Eat: switch (n) {
         1:  CSubjectIs(x1,true); " plainly inedible.";
@@ -1073,7 +1115,7 @@ Constant COLON__TX      = ": ";
   Mild:     "Quite.";
   Miscellany: switch (n) {
         1:  "(considering the first sixteen objects only)^";
-        2:  "Nothing to do!";
+        2:  "Nothing to do.";
         3:  print " "; CSubjectVerb(player, false, false, "died", "have died", "has died");
            print " ";
         4:  print " "; CSubjectVerb(player, false, false, "won", "have won", "has won");
@@ -1097,7 +1139,7 @@ Constant COLON__TX      = ": ";
             Tense("is now", "was");
             print " pitch dark in ";
             Tense("here", "there");
-            "!";
+            ".";
         10: "I beg your pardon?";
         11: "[You can't ~undo~ what hasn't been done!]";
         12: "[Can't ~undo~ twice in succession. Sorry!]";
@@ -1126,12 +1168,12 @@ Constant COLON__TX      = ": ";
         29: "I didn't understand that number.";
         30: CSubjectCant(actor,true); " see any such thing.";
         31: CSubjectVerb(actor, true, false, "seem", "seem", "seems", "seemed");
-            " to have said too little!";
-        32: CSubjectIsnt(actor); " holding that!";
+            " to have said too little.";
+        32: CSubjectIsnt(actor); " holding that.";
         33: "You can't use multiple objects with that verb.";
         34: "You can only use multiple objects once on a line.";
         35: "I'm not sure what ~", (address) x1, "~ refers to.";
-        36: "You excepted something not included anyway!";
+        36: "You excepted something not included anyway.";
         37: CSubjectCan(actor,true); " only do that to something animate.";
             #Ifdef DIALECT_US;
         38: "That's not a verb I recognize.";
@@ -1145,7 +1187,7 @@ Constant COLON__TX      = ": ";
             print " of those ";
             if (x1 == 1) print "is"; else print "are";
             " available.";
-        43: "Nothing to do!";
+        43: "Nothing to do.";
         44: print "There ";
             Tense("is", "was");
             " nothing to ", (address) x1, ".";
@@ -1184,16 +1226,16 @@ Constant COLON__TX      = ": ";
             "Score notification off.";
   NotifyOn: "Score notification on.";
   Objects: switch (n) {
-        1:  "Objects ", (nop) CSubjectVerb(actor, false, true, "have", "have", "has"), " handled:^";
-        2:  "None.";
-        3:  print "   (worn)";
-        4:  print "   (held)";
-        5:  print "   (given away)";
-        6:  print "   (in ", (name) x1, ")";
-        7:  print "   (in ", (the) x1, ")";
-        8:  print "   (inside ", (the) x1, ")";
-        9:  print "   (on ", (the) x1, ")";
-        10: print "   (lost)";
+        1:  print (nop) CSubjectVerb(actor, false, false, "have", "have", "has"), " handled";
+        2:  CSubjectVerb(actor, false, false, "have", "have", "has"); " handled nothing.";
+        3:  print " (worn)";
+        4:  print " (held)";
+        5:  print " (given away)";
+        6:  print " (in ", (name) x1, ")";
+        7:  print " (in ", (the) x1, ")";
+        8:  print " (inside ", (the) x1, ")";
+        9:  print " (on ", (the) x1, ")";
+        10: print " (lost)";
     }
   Open: switch (n) {
         1:  CSubjectIs  (x1,true);
@@ -1211,8 +1253,9 @@ Constant COLON__TX      = ": ";
     }
   Order:    CSubjectHas(x1,false); " better things to do.";
   Places: switch (n) {
-        1:  print "You have visited: ";
+        1:  print (nop) CSubjectVerb(actor, false, false, "have", "have", "has"), " visited";
         2:  ".";
+        3:  CSubjectVerb(actor, false, false, "have", "have", "has"); " visited nothing.";
     }
   Pray:     print "Nothing practical ";
             Tense("results", "resulted");
@@ -1280,7 +1323,7 @@ Constant COLON__TX      = ": ";
   Remove: switch (n) {
         1:  CSubjectIs  (x1,true); " unfortunately closed.";
         2:  print "But ";
-            CSubjectIsnt(x1,true); " there now.";
+            CSubjectIsnt(x1,true,true); " there now.";
         3:  "Removed.";
     }
   Restart: switch (n) {
@@ -1296,6 +1339,36 @@ Constant COLON__TX      = ": ";
             " nothing by this.";
         2:  DecideAgainst();
     }
+  RunTimeError: print "** ";
+       switch (n) {
+       1:  print "Preposition not found (this should not occur)";
+       2:  print "Property value not routine or string: ~", (property) x2,
+               "~ of ~", (name) x1, "~ (", x1, ")";
+       3:  print "Entry in property list not routine or string: ~",
+               (property) x2, "~ list of ~", (name) x1, "~ (", x1, ")";
+       4:  print "Too many timers/daemons are active simultaneously.
+               The limit is the library constant MAX_TIMERS
+               (currently ", MAX_TIMERS, ") and should be increased";
+       5:  print "Object ~", (name) x1, "~ has no ~", (property) x2,
+               "~ property";
+       7:  print "The object ~", (name) x1, "~ can only be used as a player
+               object if it has the ~number~ property";
+       8:  print "Attempt to take random entry from an empty table array";
+       9:  print x1, " is not a valid direction property number";
+       10: print "The player-object is outside the object tree";
+       11: print "The room ~", (name) x1, "~ has no ~", (property) x2,
+               "~ property";
+       12: print "Tried to set a non-existent pronoun using SetPronoun";
+       13: print "A 'topic' token can only be followed by a preposition";
+       14: print "Overflowed buffer limit of ", x1,
+               " using '@@64output_stream 3' ", (string) x2;
+       15: print "LoopWithinObject broken because the object ",
+               (name) x1, " was moved while the loop passed through it.";
+       16: print "Attempt to use illegal narrative_voice of ", x1, ".";
+       default:
+           print "(unexplained)";
+    }
+    print " **";
   Save: switch (n) {
         1:  "Save failed.";
         2:  "Ok.";
@@ -1404,6 +1477,8 @@ Constant COLON__TX      = ": ";
         11: CSubjectIs  (x1,true); " fixed in place.";
         12: CSubjectIs  (actor,true); " carrying too many things already.";
         13: "(putting ", (the) x1, " into ", (the) x2, " to make room)";
+       14: CSubjectVerb(actor, false, false, "should take", 0, 0, "should have taken");
+           " ", (the) x1, " first.";
     }
   Taste: switch (n) {
         1:  CSubjectVerb(actor,true,false,"taste",0,"tastes","tasted"); " nothing unexpected.";
@@ -1483,9 +1558,9 @@ Constant COLON__TX      = ": ";
         }
         ", feeling foolish.";
   Wear: switch (n) {
-        1:  CSubjectCant(actor,true); " wear ", (ThatOrThose) x1, "!";
-        2:  CSubjectIs  (actor,true); " not holding ", (ThatOrThose) x1, "!";
-        3:  CSubjectIs  (actor,true); " already wearing ", (ThatOrThose) x1, "!";
+        1:  CSubjectCant(actor,true); " wear ", (ThatOrThose) x1, ".";
+        2:  CSubjectIs  (actor,true); " not holding ", (ThatOrThose) x1, ".";
+        3:  CSubjectIs  (actor,true); " already wearing ", (ThatOrThose) x1, ".";
         4:  CSubjectVerb(actor,false,false,"put on",0,"puts on","put on"); " ", (the) x1, ".";
     }
 ! Yes:  see No.