Import v6.12.3 of the Inform 6 standard library
[informlib.git] / english.h
index 13dfca818ff250c1c6b38a84a8c5eb4b9dd5b067..647188b022fa85b8c76d84af16fbae6db2e0d700 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.1 -- Serial number 160605
+!   Supplied for use with Inform 6 -- Release 6.12.3 -- Serial number 190320
 !
-!   Copyright Graham Nelson 1993-2004 and David Griffith 2012-2016
+!   Copyright Graham Nelson 1993-2004 and David Griffith 2012-2019
 !
 !   This file is free software: you can redistribute it and/or modify
 !   it under the terms of the GNU Affero General Public License as
@@ -360,6 +360,9 @@ Constant QKEY2__KY      = 'q';
 Constant SCORE__TX      = "Score: ";
 Constant MOVES__TX      = "Moves: ";
 Constant TIME__TX       = "Time: ";
+Constant SCORE_S__TX    = "S: ";
+Constant MOVES_S__TX    = "M: ";
+Constant TIME_S__TX     = "T: ";
 Constant CANTGO__TX     = "You can't go that way.";
 Constant FORMER__TX     = "your former self";
 Constant MYFORMER__TX   = "my former self";
@@ -449,18 +452,18 @@ Constant COLON__TX      = ": ";
 [ CTheyreorThats obj;
     if (obj == player) {
        if (player provides narrative_voice) {
-           if (player.narrative_voice == 1) { print "I'm"; return; }
-           if (player.narrative_voice == 3) { CDefart(player); print "'s"; return; }
+           if (player.narrative_voice == 1) { Tense("I'm", "I was"); return; }
+           if (player.narrative_voice == 3) { CDefart(player); Tense("'s", " was"); return; }
        }
-       print "You're";
+       Tense("You're", "You were");
        return;
     }
-    if (obj has pluralname)            { print "They're"; return; }
-    if (obj has female)                        { print "She's"; return; }
+    if (obj has pluralname)            { Tense("They're", "They were"); return; }
+    if (obj has female)                        { Tense("She's", "She was"); return; }
     if (obj has male or animate) {
-        if (obj hasnt neuter)          { print "He's"; return; }
+        if (obj hasnt neuter)          { Tense("He's", "He was"); return; }
     }
-    print "That's";
+    Tense("That's", "That was");
 ];
 
 [ IsOrAre obj;
@@ -592,10 +595,10 @@ Constant COLON__TX      = ": ";
 [ CSubjectWill obj reportage nocaps;
     if (obj == player) {
         if (player provides narrative_voice) switch (player.narrative_voice) {
-          1:  Tense("I'll", "I would've"); return;
+          1:  Tense("I'll", "I would"); return;
           2:  ! Do nothing.
           3:  CDefart(player);
-              Tense(" will", " would've"); return;
+              Tense(" will", " would"); return;
           default: RunTimeError(16, player.narrative_voice);
         }
         if (nocaps) Tense("you'll", "you'd");
@@ -647,10 +650,22 @@ Constant COLON__TX      = ": ";
         if (caps) print "Y"; else print "y";
         print "our"; return;
     }
-    if (caps) print "H"; else print "h";
-    if (obj has male) { print "is"; return; }
-    if (obj has female) { print "er"; return; }
-    if (caps) print "I"; else { print "i"; print "ts"; return; }
+    if (obj has pluralname) {
+      if (caps) print "T"; else print "t";
+      print "heir"; return;
+    }
+    if (obj has female) {
+      if (caps) print "H"; else print "h";
+      print "er"; return;
+    }
+    if (obj has male or animate) {
+      if (obj hasnt neuter) {
+        if (caps) print "H"; else print "h";
+        print "is"; return;
+      }
+    }
+    if (caps) print "I"; else { print "i"; }
+    print "ts"; return;
 ];
 
 [ PossessiveCaps obj;
@@ -902,9 +917,9 @@ Constant COLON__TX      = ": ";
         1:  print "There ";
             Tense("isn't", "wasn't");
             " anything obvious with which to fill ", (the) x1, ".";
-        2:  print "Filling ", (the) x1, " from ", (the) x2;
-            Tense(" doesn't", " didn't");
-            " make sense.";
+        2:  print "Filling ", (the) x1, " from ", (the) x2, " wouldn't ";
+            Tense("make", "have made");
+            " sense.";
     }
   FullScore: switch (n) {
         1:  if (deadflag) print "The score was "; else print "The score is ";
@@ -927,7 +942,7 @@ Constant COLON__TX      = ": ";
     }
   Go: switch (n) {
         1:  CSubjectWill(actor,true);
-            Tense(" have", " had");
+            Tense(" have", " have had");
                 " to get ", (nop) SupportObj(x1,"off","out of"), " ", (the) x1, " first.";
         2:  CSubjectCant(actor,true); " go that way.";
         3:  CSubjectIs  (actor,true); " unable to climb ", (the) x1, ".";
@@ -944,11 +959,11 @@ Constant COLON__TX      = ": ";
         2:  CSubjectCant(x1,true); " contain things.";
         3:  CSubjectIs  (x1,true); " closed.";
         4:  CSubjectWill(actor,true);
-            Tense(" need", " needed");
+            Tense(" need", " have needed");
             " to take ", (ItOrThem) x1, " off first.";
         5:  CSubjectCant(actor,true); " put something inside itself.";
         6:  "(first taking ", (ItOrThem) x1, " off)";
-        7:  print "There ";
+        7:  print "There";
             Tense(" is", " was");
             " no more room in ", (the) x1, ".";
         8:  "Done.";
@@ -961,16 +976,22 @@ Constant COLON__TX      = ": ";
         4:  ".";
     }
   Jump: CSubjectVerb(actor,false,false,"jump",0,"jumps","jumped"); " on the spot, fruitlessly.";
-  JumpIn:
-        print "Jumping in ", (the) x1, " ";
-        Tense("would achieve", "would have achieved");
-        " nothing here.";
-  JumpOn:
-        print "Jumping upon ", (the) x1, " ";
-        Tense("would achieve", "would have achieved");
-        " nothing here.";
+  JumpIn: switch (n) {
+        1: print "Jumping in ", (the) x1, " ";
+           Tense("would achieve", "would have achieved");
+           " nothing here.";
+        2: DecideAgainst();
+    }
+  JumpOn: switch (n) {
+        1: print "Jumping upon ", (the) x1, " ";
+           Tense("would achieve", "would have achieved");
+           " nothing here.";
+        2: DecideAgainst();
+    }
   JumpOver: switch (n) {
-        1:  CSubjectVerb(actor,true,false,"achieve",0,"achieve","achieved"); " nothing by this.";
+        1: print "Jumping over ", (the) x1, " ";
+           Tense("would achieve", "would have achieved");
+           " nothing here.";
         2:  DecideAgainst();
     }
   Kiss:     "Keep your mind on the game.";
@@ -999,15 +1020,15 @@ Constant COLON__TX      = ": ";
         21: print " (in ";
         22: print ", inside ";
     }
-  LMode1:   print " is now in its ";
+  LMode1:   print (string) Story, " is now in its ";
             if (initial_lookmode == 1) print "normal ";
             "~brief~ printing mode, which gives long descriptions
              of places never before visited and short descriptions otherwise.";
-  LMode2:   print " is now in its ";
+  LMode2:   print (string) Story, " is now in its ";
             if (initial_lookmode ~= 1 or 3) print "normal ";
             "~verbose~ mode, which always gives long descriptions
              of locations (even if you've been there before).";
-  LMode3:   print " is now in its ";
+  LMode3:   print (string) Story, " is now in its ";
             if (initial_lookmode == 3) print "normal ";
             "~superbrief~ mode, which always gives short descriptions
              of locations (even if you haven't been there before).";
@@ -1225,9 +1246,9 @@ Constant COLON__TX      = ": ";
     }
 ! Push: see Pull
   PushDir: switch (n) {
-        1:  print "That really ";
-            Tense("wouldn't", "didn't");
-            " serve any purpose.";
+        1:  print "That really wouldn't ";
+            Tense("serve", "have served");
+            " any purpose.";
         2:  print "That's ";
             Tense("not", "wasn't");
             " a direction.";
@@ -1293,7 +1314,7 @@ Constant COLON__TX      = ": ";
     }
   ScriptOn: switch (n) {
         1:  "Transcripting is already on.";
-        2:  "Start of a transcript of";
+        2:  print "Start of a transcript of"; VersionSub();
         3:  "Attempt to begin transcript failed.";
     }
   Search: switch (n) {
@@ -1412,9 +1433,9 @@ Constant COLON__TX      = ": ";
   Touch: switch (n) {
         1:  DecideAgainst();
         2:  CSubjectVerb(actor,true,false,"feel",0,"feels","felt"); " nothing unexpected.";
-        3:  print "That really ";
-            Tense("wouldn't", "didn't");
-            " serve any purpose.";
+        3:  print "That really wouldn't ";
+            Tense("serve", "have served");
+            " any purpose.";
     }
 ! Turn: see Pull.
   Unlock:  switch (n) {