inform6lib 0.0.4

data/lib/inform/English.h.rb

@@ -0,0 +1,1279 @@
+# encoding: utf-8
+# frozen_string_literal: false
+
+# ==============================================================================
+#   English:  Language Definition File
+#
+#   Supplied for use with Inform 6 -- Release 6/11 -- Serial number 040227
+#
+#   Copyright Graham Nelson 1993-2004 but freely usable (see manuals)
+#
+#   This file is automatically Included in your game file by "parserm".
+#   Strictly, "parserm" includes the file named in the "language__" variable,
+#   whose contents can be defined by+language_name=XXX compiler setting (with a
+#   default of "english").
+#
+#   Define the constant DIALECT_US before including "Parser" to obtain American
+#   English.
+# ==============================================================================
+
+# Copyright Nels Nelson 2008-2022 but freely usable (see license)
+#
+# You should have received a copy of the Artistic License
+# along with the Inform6 Ruby Port.
+#
+# If not, see <https://www.perlfoundation.org/artistic-license-20.html>.
+
+# The Inform module
+module Inform
+# The English module
+module English
+  ENGLISH_DIALECT       = true
+
+  NONSENSE              = 10
+  REPEATED_ORDER        = 20
+  NOTHING_TO_REPEAT     = 21
+  UNEXPECTED_COMMA      = 22
+  CANT_TALK             = 24
+  SPEECH_THERAPY        = 25
+  CANNOT_UNDERSTAND     = 27
+  PARTIALLY_UNDERSTOOD  = 28
+  NUMBER_UNRECOGNIZED   = 29
+  CANT_SEE              = 30
+  TOOLITTLE             = 31
+  NOT_HELD              = 32
+  NO_MULTIPLES          = 33
+  VAGUE                 = 35
+  EXCEPTED_UNECESSARILY = 36
+  ANIMATE_EXPECTED      = 37
+  UNRECOGNIZED          = 38
+  SCENERY_IS_IRRELEVANT = 39
+  TOOFEW                = 42
+  NOTHING               = 44
+  AMBIGUOUS             = 46
+  TOOMANY               = 49
+  NO_OBJECT             = 98
+  TREE_ERROR            = 99
+
+  POSSESS_PK  = 0x0100
+  DEFART_PK   = 0x0101
+  INDEFART_PK = 0x0102
+
+  MANUAL_PRONOUNS = true
+
+  # ------------------------------------------------------------------------------
+  #   Part I.   Preliminaries
+  # ------------------------------------------------------------------------------
+
+  # The CompassDirection class
+  class CompassDirection < Inform::System::Object
+    def initialize(name, number = 0, article = "the")
+      super(name)
+      @number = number
+      @article = article
+      has :scenery
+    end
+  end
+
+  Compass = Inform::System::Object.new "compass"
+  Compass.has :concealed
+
+  Compass > $n_obj  = CompassDirection.new("north") {
+    name "n"
+    door_dir :n_to
+  }
+  # $n_obj.with  { door_dir :n_to;  name "n" }
+  Compass > $s_obj  = CompassDirection.new("south")
+  $s_obj.with  { door_dir :s_to;  name "s" }
+  Compass > $e_obj  = CompassDirection.new("east")
+  $e_obj.with  { door_dir :e_to;  name "e" }
+  Compass > $w_obj  = CompassDirection.new("west")
+  $w_obj.with  { door_dir :w_to;  name "w" }
+  Compass > $ne_obj = CompassDirection.new("northeast")
+  $ne_obj.with { door_dir :ne_to; name "ne" }
+  Compass > $nw_obj = CompassDirection.new("northwest")
+  $nw_obj.with { door_dir :nw_to; name "nw" }
+  Compass > $se_obj = CompassDirection.new("southeast")
+  $se_obj.with { door_dir :se_to; name "se" }
+  Compass > $sw_obj = CompassDirection.new("southwest")
+  $sw_obj.with { door_dir :sw_to; name "sw" }
+
+  Compass > $u_obj = CompassDirection.new("above")
+  $u_obj.with  { door_dir :u_to;  name ["u", "up", "ceiling", "above", "sky"]; article "up"
+    has :distant
+  }
+  Compass > $d_obj = CompassDirection.new("ground")
+  $d_obj.with  { door_dir :d_to;  name ["d", "down", "floor", "below"] }
+
+  $in_obj = CompassDirection.new("inside")
+  $in_obj.with { door_dir :in_to; name "in" }
+  $out_obj = CompassDirection.new("outside")
+  $out_obj.with { door_dir :out_to; name "out" }
+
+  # ------------------------------------------------------------------------------
+  #   Part II.   Vocabulary
+  # ------------------------------------------------------------------------------
+
+  AGAIN1__WD     = 'again'
+  AGAIN2__WD     = 'g'
+  AGAIN3__WD     = 'again'
+  OOPS1__WD      = 'oops'
+  OOPS2__WD      = 'o'
+  OOPS3__WD      = 'oops'
+  UNDO1__WD      = 'undo'
+  UNDO2__WD      = 'undo'
+  UNDO3__WD      = 'undo'
+
+  ALL1__WD       = 'all'
+  ALL2__WD       = 'each'
+  ALL3__WD       = 'every'
+  ALL4__WD       = 'everything'
+  ALL5__WD       = 'both'
+  AND1__WD       = 'and'
+  AND2__WD       = 'and'
+  AND3__WD       = 'and'
+  BUT1__WD       = 'but'
+  BUT2__WD       = 'except'
+  BUT3__WD       = 'but'
+  ME1__WD        = 'me'
+  ME2__WD        = 'myself'
+  ME3__WD        = 'self'
+  OF1__WD        = 'of'
+  OF2__WD        = 'of'
+  OF3__WD        = 'of'
+  OF4__WD        = 'of'
+  OTHER1__WD     = 'another'
+  OTHER2__WD     = 'other'
+  OTHER3__WD     = 'other'
+  THEN1__WD      = 'then'
+  THEN2__WD      = 'then'
+  THEN3__WD      = 'then'
+
+  NO1__WD        = 'n'
+  NO2__WD        = 'no'
+  NO3__WD        = 'no'
+  YES1__WD       = 'y'
+  YES2__WD       = 'yes'
+  YES3__WD       = 'yes'
+
+  AMUSING__WD    = 'amusing'
+  FULLSCORE1__WD = 'fullscore'
+  FULLSCORE2__WD = 'full'
+  QUIT1__WD      = 'q'
+  QUIT2__WD      = 'quit'
+  RESTART__WD    = 'restart'
+  RESTORE__WD    = 'restore'
+
+  LanguagePronouns = defined?(Java) ? java.util.concurrent.ConcurrentHashMap.new : {}
+  LanguagePronouns[:default] = {
+    # word           possible GNAs                   connected
+    #                to follow:                      to:
+    #                a     i
+    #                s  p  s  p
+    #                mfnmfnmfnmfn
+
+    'it'      => [0b001000111000,                   nil],
+    'him'     => [0b100000000000,                   nil],
+    'her'     => [0b010000000000,                   nil],
+    'them'    => [0b000111000111,                   nil]
+  }
+
+  LanguageDescriptors = defined?(Java) ? java.util.concurrent.ConcurrentHashMap.new : {}
+  LanguageDescriptors[:default] = {
+    # word           possible GNAs   descriptor      connected
+    #                to follow:      type:           to:
+    #                a     i
+    #                s  p  s  p
+    #                mfnmfnmfnmfn
+
+    'my'      => [0b111111111111,   POSSESS_PK,     0],
+    'this'    => [0b111111111111,   POSSESS_PK,     0],
+    'these'   => [0b000111000111,   POSSESS_PK,     0],
+    'that'    => [0b111111111111,   POSSESS_PK,     1],
+    'those'   => [0b000111000111,   POSSESS_PK,     1],
+    'his'     => [0b111111111111,   POSSESS_PK,     'him'],
+    'her'     => [0b111111111111,   POSSESS_PK,     'her'],
+    'their'   => [0b111111111111,   POSSESS_PK,     'them'],
+    'its'     => [0b111111111111,   POSSESS_PK,     'it'],
+    'the'     => [0b111111111111,   DEFART_PK,      nil],
+    'a'       => [0b111000111000,   INDEFART_PK,    nil],
+    'an'      => [0b111000111000,   INDEFART_PK,    nil],
+    'some'    => [0b000111000111,   INDEFART_PK,    nil],
+    'lit'     => [0b111111111111,   :light,         nil],
+    'lighted' => [0b111111111111,   :light,         nil],
+    'unlit'   => [0b111111111111,   :nolight,       nil]
+  }
+
+  LanguageNumbers = {
+    'one' => 1, 'two' => 2, 'three' => 3, 'four' => 4, 'five' => 5,
+    'six' => 6, 'seven' => 7, 'eight' => 8, 'nine' => 9, 'ten' => 10,
+    'eleven' => 11, 'twelve' => 12, 'thirteen' => 13, 'fourteen' => 14, 'fifteen' => 15,
+    'sixteen' => 16, 'seventeen' => 17, 'eighteen' => 18, 'nineteen' => 19, 'twenty' => 20
+  }
+  NumbersLanguage = LanguageNumbers.invert
+
+  Prepositions = [
+    'about', 'after', 'apart', 'around', 'at', 'beneath',
+    'beside', 'besides', 'by', 'for', 'from', 'in', 'inside',
+    'into', 'nearby', 'of', 'off', 'on', 'onto', 'out', 'over',
+    'through', 'to', 'under', 'underneath', 'with', 'within',
+    'without'
+  ]
+
+  # ------------------------------------------------------------------------------
+  #   Part III.   Translation
+  # ------------------------------------------------------------------------------
+
+  def LanguageToInformese; end
+
+  # ------------------------------------------------------------------------------
+  #   Part IV.   Printing
+  # ------------------------------------------------------------------------------
+
+  LanguageAnimateGender   = :male
+  LanguageInanimateGender = :neuter
+
+  LanguageContractionForms = 2      # English has two:
+                                    # 0 = starting with a consonant
+                                    # 1 = starting with a vowel
+
+  def LanguageContraction(text)
+    return 1 if !text.nil? && %i[a e i o u].include?(text.downcase.to_sym)
+    0
+  end
+
+  LanguageArticles = [
+
+    # Contraction form 0:       Contraction form 1:
+    # Cdef    Def   Indef       Cdef    Def   Indef
+
+    ['The', 'the', 'a'],    ['The', 'the', 'an'],  # Articles 0
+    ['The', 'the', 'some'], ['The', 'the', 'some'] # Articles 1
+  ]
+
+                   #         a           i
+                   #         s     p     s     p
+                   #         m f n m f n m f n m f n
+
+  LanguageGNAsToArticles = [0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1]
+
+  def LanguageDirection(d)
+    case d.to_sym
+    when :n_to   then  print "north"
+    when :s_to   then  print "south"
+    when :e_to   then  print "east"
+    when :w_to   then  print "west"
+    when :ne_to  then  print "northeast"
+    when :nw_to  then  print "northwest"
+    when :se_to  then  print "southeast"
+    when :sw_to  then  print "southwest"
+    when :u_to   then  print "up"
+    when :d_to   then  print "down"
+    when :in_to  then  print "in"
+    when :out_to then  print "out"
+    else return RunTimeError(9, d)
+    end
+  end
+
+  def LanguageNumber(n)
+    if n == 0;       print "zero"; return false; end
+    if n < 0;        print "minus "; n = -n; end
+    if n >= 1000;    print LanguageNumber((n / 1000.to_f).to_i) + " thousand"; n = n % 1000; f = 1; end
+    if n >= 100
+      print COMMA__TX if f == 1
+      print LanguageNumber((n / 100.to_f).to_i) + " hundred"
+      n = n % 100
+      f = 1
+    end
+    return false if n == 0
+    if defined? DIALECT_US
+    print " " if f == 1
+    else
+    print " and " if f == 1
+    end
+    case n
+    when 1 then    print "one"
+    when 2 then    print "two"
+    when 3 then    print "three"
+    when 4 then    print "four"
+    when 5 then    print "five"
+    when 6 then    print "six"
+    when 7 then    print "seven"
+    when 8 then    print "eight"
+    when 9 then    print "nine"
+    when 10 then   print "ten"
+    when 11 then   print "eleven"
+    when 12 then   print "twelve"
+    when 13 then   print "thirteen"
+    when 14 then   print "fourteen"
+    when 15 then   print "fifteen"
+    when 16 then   print "sixteen"
+    when 17 then   print "seventeen"
+    when 18 then   print "eighteen"
+    when 19 then   print "nineteen"
+    when 20..99
+      case (n / 10).to_i
+      when 2 then  print "twenty"
+      when 3 then  print "thirty"
+      when 4 then  print "forty"
+      when 5 then  print "fifty"
+      when 6 then  print "sixty"
+      when 7 then  print "seventy"
+      when 8 then  print "eighty"
+      when 9 then  print "ninety"
+      end
+      if (n % 10) != 0
+        print "-"
+        LanguageNumber(n % 10)
+      end
+    end
+  end
+
+  def LanguageTimeOfDay(hours, mins)
+    i = hours % 12
+    i = 12 if i == 0
+    print " " if i < 10
+    print i + ":" + (mins / 10.to_f).to_i + (mins % 10)
+    if (hours / 12.to_f).to_i > 0 then print " pm" else print " am" end
+  end
+
+  def LanguageVerb(i)
+    case i
+    when 'i', 'inv', 'inventory'
+                    print "take inventory"
+    when 'l' then   print "look"
+    when 'x' then   print "examine"
+    when 'z' then   print "wait"
+    else return false
+    end
+    true
+  end
+
+  # ----------------------------------------------------------------------------
+  #  LanguageVerbIsDebugging is called by SearchScope.  It should return true
+  #  if word w is a debugging verb which needs all objects to be in scope.
+  # ----------------------------------------------------------------------------
+
+  def LanguageVerbIsDebugging(word)
+    return false unless defined? DEBUG
+    word.in? 'purloin', 'tree', 'abstract', 'gonear', 'scope', 'showobj', 'showme'
+  end
+
+  # ----------------------------------------------------------------------------
+  #  LanguageVerbLikesAdverb is called by PrintCommand when printing an UPTO_PE
+  #  error or an inference message.  Words which are intransitive verbs, i.e.,
+  #  which require a direction name as an adverb ('walk west'), not a noun
+  #  ('I only understood you as far as wanting to touch /the/ ground'), should
+  #  cause the routine to return true.
+  # ----------------------------------------------------------------------------
+
+  def LanguageVerbLikesAdverb(word)
+    return true if word.in? 'look', 'go', 'push', 'walk'
+    false
+  end
+
+  # ----------------------------------------------------------------------------
+  #  LanguageVerbMayBeName is called by NounDomain when dealing with the
+  #  player's reply to a "Which do you mean, the short stick or the long
+  #  stick?" prompt from the parser. If the reply is another verb (for example,
+  #  LOOK) then then previous ambiguous command is discarded /unless/
+  #  it is one of these words which could be both a verb /and/ an
+  #  adjective in a 'name' property.
+  # ----------------------------------------------------------------------------
+
+  def LanguageVerbMayBeName(word)
+    return true if word.in? 'long', 'short', 'normal', 'brief', 'full', 'verbose'
+    false
+  end
+
+  NKEY__TX       = "N = next subject"
+  PKEY__TX       = "P = previous"
+  QKEY1__TX      = "  Q = resume game"
+  QKEY2__TX      = "Q = previous menu"
+  RKEY__TX       = "RETURN = read subject"
+
+  NKEY1__KY      = 'N'
+  NKEY2__KY      = 'n'
+  PKEY1__KY      = 'P'
+  PKEY2__KY      = 'p'
+  QKEY1__KY      = 'Q'
+  QKEY2__KY      = 'q'
+
+  SCORE__TX      = "Score: "
+  MOVES__TX      = "Moves: "
+  TIME__TX       = "Time: "
+  CANTGO__TX     = "You can't go that way."
+  FORMER__TX     = "your former self"
+  YOURSELF__TX   = "yourself"
+  YOU__TX        = "You"
+  YOU2__TX       = "you"
+  YOUR__TX       = "Your"
+  YOUR2__TX      = "your"
+  DARKNESS__TX   = "Darkness"
+
+  THOSET__TX     = "those things"
+  THAT__TX       = "that"
+  OR__TX         = " or "
+  NOTHING__TX    = "nothing"
+  IS__TX         = " is"
+  ARE__TX        = " are"
+  IS2__TX        = "is "
+  ARE2__TX       = "are "
+  AND__TX        = " and "
+  LISTAND__TX    = ", and "
+  LISTAND2__TX   = " and "
+  WHOM__TX       = "whom "
+  WHICH__TX      = "which "
+  COMMA__TX      = ", "
+
+  def ThatorThose(obj) # Used in the accusative
+    if obj == player             ; return "you"; end
+    if obj.has?(:pluralname)     ; return "those"; end
+    if obj.has?(:animate)
+      if obj.has?(:female)       ; return "her"
+      elsif obj.hasnt?(:neuter)  ; return "him"; end
+    end
+    return "that"
+  end
+
+  def ItorThem(obj)
+    if obj == player              ; return "yourself"; end
+    if obj.has?(:pluralname)     ; return "them"; end
+    if obj.has?(:animate)
+      if obj.has?(:female)       ; return "her"
+      elsif obj.hasnt?(:neuter)  ; return "him"; end
+    end
+    return "it"
+  end
+
+  def IsorAre(obj)
+    return (obj.to_i == 1 ? "is " : "are ") + obj if obj.number?
+    if obj.has?(:pluralname) || obj == player then "are" else "is" end
+  end
+
+  def CThatorThose(obj) # Used in the nominative
+    if obj == player             ; return "You"; end
+    if obj.has?(:pluralname)     ; return "Those"; end
+    if obj.has?(:animate)
+      if obj.has?(:female)       ; return "She"
+      elsif obj.hasnt?(:neuter)  ; return "He"; end
+    end
+    return "That"
+  end
+
+  def CTheyreorThats(obj)
+    if obj == player             ; return "You're"; end
+    if obj.has?(:pluralname)     ; return "They're"; end
+    if obj.has?(:animate)
+      if obj.has?(:female)       ; return "She's"
+      elsif obj.hasnt?(:neuter)  ; return "He's"; end
+    end
+    return "That's"
+  end
+
+  def language_lm(sw__var, n = 1, x1 = nil)
+    # if defined? NI_BUILD_COUNT then @say__p = 1
+    # end
+    # # defined? NI_BUILD_COUNT
+    case sw__var
+    when :Answer, :Ask
+                    "There is no reply."
+    # when :Ask then # see Answer
+    when :Attack then   "Violence isn't the answer to this one."
+    when :Blow then     "You can't usefully blow " + thatorthose(x1) + "."
+    when :Boot then case n
+      when 1 then   "Boot whom?"
+      end
+    when :Burn then     "This dangerous act would achieve little."
+    when :Buy then      "Nothing is on sale."
+    when :Climb then    "I don't think much is to be achieved by that."
+    when :Close then case n
+      when 1 then  println ctheyreorthats(x1) + " not something you can close."
+      when 2 then  println ctheyreorthats(x1) + " already closed."
+      when 3 then  "You close " + the(x1) + "."
+      end
+    when :CommandsOff then case n
+      when 1 then "[Command recording off.]"
+      # if defined? TARGET_GLULX
+      when 2 then "[Command recording already off.]"
+      # end
+      # # defined? TARGET_GLULX
+      end
+    when :CommandsOn then case n
+      when 1 then "[Command recording on.]"
+      # if defined? TARGET_GLULX
+      when 2 then "[Commands are currently replaying.]"
+      when 3 then "[Command recording already on.]"
+      when 4 then "[Command recording failed.]"
+      # end
+      # # defined? TARGET_GLULX
+      end
+    when :CommandsRead then case n
+      when 1 then "[Replaying commands.]"
+      # if defined? TARGET_GLULX
+      when 2 then "[Commands are already replaying.]"
+      when 3 then "[Command replay failed.  Command recording is on.]"
+      when 4 then "[Command replay failed.]"
+      when 5 then "[Command replay complete.]"
+      # end
+      # # defined? TARGET_GLULX
+      end
+    when :Consult then   "You discover nothing of interest in " + the(x1) + "."
+    when :Cut then       "Cutting " + thatorthose(x1) + " up would achieve little."
+    when :Dig then       "Digging would achieve nothing here."
+    when :Disrobe then case n
+      when 1 then "You're not wearing " + thatorthose(x1) + "."
+      when 2 then "You take off " + the(x1) + "."
+      when 3 then A(player) + " takes off " + hisorher(player, x1) + "."
+      end
+    when :Drink then     "There's nothing suitable to drink here."
+    when :Drop then case n
+      when 1 then if x1.has?(:pluralname); print The(x1) + " are "; else; print The(x1) + " is "; end
+              "already here."
+      when 2 then "You haven't got " + thatorthose(x1) + "."
+      # if defined? NI_BUILD_COUNT
+      when 3 then print "(first taking " + the(x1) + " off)\n"; @say__p = 0; return
+      # else
+      # when 3 then "(first taking " + the(x1) + " off)"
+      # end
+      # # defined? NI_BUILD_COUNT
+      when 4 then "Dropped."
+      when 5 then A(player) + " drops " + a(x1) + "."
+      when 6 then A(player) + " drops " + a(x1) + " on " + the(second) + "."
+      end
+    when :Eat then case n
+      when 1 then println ctheyreorthats(x1) + " plainly inedible."
+      when 2 then "You eat " + the(x1) + ". Not bad."
+      when 3 then A(player) + " eats " + a(x1) + "."
+      end
+    when :EmptyT then case n
+      when 1 then println The(x1) + " can't contain things."
+      when 2 then println The(x1) + " " + isorare(x1) + " closed."
+      when 3 then println The(x1) + " " + isorare(x1) + " empty already."
+      when 4 then "That would scarcely empty anything."
+      end
+    when :Enter then case n
+      when 1 then print "But you're already "
+              if x1.has? :supporter
+                print "on "
+              else
+                print "in "
+              end
+              println the(x1) + "."
+      when 2 then if x1.has?(:pluralname); print "They're"; else; print "That's"; end
+              print " not something you can "
+              case @verb_word
+                when 'stand' then  println "stand on."
+                when 'sit' then    println "sit down on."
+                when 'lie' then    println "lie down on."
+                else println "enter."
+              end
+      when 3 then "You can't get into the closed " + x1 + "."
+      when 4 then "You can only get into something free-standing."
+      when 5 then print "You get "
+              if x1.has? :supporter
+                print "onto "
+              else
+                print "into "
+              end
+              println the(x1) + "."
+      # if defined? NI_BUILD_COUNT
+      when 6 then print "(getting "
+              if x1.has? :supporter
+                print "off "
+              else
+                print "out of "
+              end
+              print the(x1); print ")\n"; @say__p = 0; return
+      when 7 then @say__p = 0
+              if x1.has?(:supporter); println "(getting onto " + the(x1) + ")"; end
+              if x1.has?(:container); println "(getting into " + the(x1) + ")"; end
+              "(entering " + the(x1) + ")\n"
+      # else # NI_BUILD_COUNT
+      # when 6 then print "(getting "
+      #         if x1.has? :supporter
+      #           print "off "
+      #         else
+      #           print "out of "
+      #         end
+      #         print the(x1;) ")"
+      # when 7 then if x1.has?(:supporter); println "(getting onto " + the(x1) + ")"; end
+      #         if x1.has?(:container); println "(getting into " + the(x1) + ")"; end
+      #         "(entering " + the(x1) + ")\n"
+      # end
+      # # defined? NI_BUILD_COUNT
+      when 8 then s = The(player) + " gets "
+              s << if x1.has? :supporter
+                "onto "
+              else
+                "into "
+              end
+              s << the(x1) + "."
+      end
+    when :Examine then case n
+      when 1 then "Darkness, noun.  An absence of light to see by."
+      when 2 then print "You see nothing special about " + the(x1)
+        i = parent(x1)
+        if !i.nil? && i.has?(:supporter)
+          " on " + the(i) + "."
+        elsif !i.nil? && i.has?(:container) && i.hasany?(:open, :transparent)
+          " in " + the(i) + "."
+        else
+          "."
+        end
+      when 3 then print The(x1) + " " + isorare(x1) + " currently switched "
+              if x1.has? :on then println "on." else println "off." end
+      end
+    when :Exit then case n
+      when 1 then "But you aren't in anything at the moment."
+      when 2 then "You can't get out of the closed " + x1 + "."
+      when 3 then print "You get "
+              if x1.has? :supporter
+                print "off "
+              else
+                print "out of "
+              end
+              println the(x1) + "."
+      when 4 then print "But you aren't "
+              if x1.has? :supporter
+                print "on "
+              else
+                print "in "
+              end
+              println the(x1) + "."
+      when 5 then s = The(player) + " gets "
+              s << if x1.has? :supporter
+                "off "
+              else
+                "out of "
+              end
+              s << the(x1) + "."
+      end
+    when :Fill then     "But there's no water here to carry."
+    when :FullScore then case n
+      when 1 then if @deadflag
+                print "The score was "
+              else
+                print "The score is "
+              end
+              "made up as follows:\n"
+      when 2 then "finding sundry items"
+      when 3 then "visiting various places"
+      when 4 then print "total (out of " + MAX_SCORE; ")"
+      end
+    when :GetOff then "But you aren't on " + the(x1) + " at the moment."
+    when :Give then case n
+      when 1 then "You aren't holding " + the(x1) + "."
+      when 2 then "You juggle " + the(x1) + " for a while, but don't achieve much."
+      when 3 then print The(x1)
+              if x1.has? :pluralname
+                print " don't"
+              else
+                print " doesn't"
+              end
+              " seem interested."
+      # if defined? NI_BUILD_COUNT
+      when 4 then print The(x1)
+              if x1.has?(:pluralname); print " aren't"
+              else print " isn't"
+              end
+              " able to receive things."
+      # end
+      # # defined? NI_BUILD_COUNT
+      end
+    when :Go then case n
+      when 1 then print "You'll have to get "
+              if x1.has? :supporter then print "off " else print "out of " end
+              println the(x1) + " first."
+      when 2 then println CANTGO__TX;   # "You can't go that way."
+      when 3 then "You are unable to climb " + the(x1) + "."
+      when 4 then "You are unable to descend by " + the(x1) + "."
+      when 5 then "You can't, since " + the(x1) + " " + isorare(x1) + " in the way."
+      when 6 then print "You can't, since " + the(x1)
+              if x1.has? :pluralname
+                " lead nowhere."
+              else
+                " leads nowhere."
+              end
+      when 7 then A(player) + " " + exitsorleaves(player) + " " + (x1 ? upordown('to', x1) : "") + "."
+      when 8 then A(player) + " " + entersorarrives(player) + " " + (x1 ? upordown('from', x1) : "") + "."
+      when 9 then A(player) + " " + exitsorleaves(player) + (x1 ? " through " + the(x1) : "") + "."
+      when 10 then A(player) + " " + entersorarrives(player) + (x1 ? " through " + the(x1) : "") + "."
+      when 11,12,13
+        print "You cannot do that while "
+        case n
+          when 11 then "kneeling."
+          when 12 then "laying down."
+          when 13 then "sitting."
+        end
+      end
+    when :Insert then case n
+      when 1 then "You need to be holding " + the(x1) + " before you can put " + itorthem(x1) +
+              " into something else."
+      when 2 then println Cthatorthose(x1) + " can't contain things."
+      when 3 then println The(x1) + " " + isorare(x1) + " closed."
+      when 4 then "You'll need to take " + itorthem(x1) + " off first."
+      when 5 then "You can't put something inside itself."
+      # if defined? NI_BUILD_COUNT
+      when 6 then print "(first taking " + itorthem(x1) + " off)\n"; @say__p = 0; return
+      # else
+      # when 6 then "(first taking " + itorthem(x1) + " off)\n"
+      # end
+      # # defined? NI_BUILD_COUNT
+      when 7 then "There is no more room in " + the(x1) + "."
+      when 8 then "Done."
+      when 9 then "You put " + the(x1) + " into " + the(second) + "."
+      when 10 then A(player) + " puts " + a(x1) + " into " + a(parent(x1)) + "."
+      end
+    when :Inv then case n
+      when 1 then "You are carrying nothing."
+      when 2 then print "You are carrying"
+      when 3 then print ":\n"
+      when 4 then print ".\n"
+      end
+    when :Jump then case n
+      when 1 then "You jump on the spot, fruitlessly."
+      when 2 then A(x1) + " leaps into the air and then lands back in place."
+      end
+    when :JumpOver, :Tie
+              "You would achieve nothing by this."
+    when :Kiss then     "Keep your mind on the game."
+    when :Listen then   "You hear nothing unexpected."
+    when :ListMiscellany then case n
+      when 1 then print " (providing light)"
+      # if defined? NI_BUILD_COUNT
+      # when 2 then print " (closed)"
+      # when 4 then print " (empty)"
+      # when 6 then print " (closed and empty)"
+      # else # NI_BUILD_COUNT
+      when 2 then print " (which " + isorare(x1) + " closed)"
+      when 4 then print " (which " + isorare(x1) + " empty)"
+      # when 6 then print " (which " + isorare(x1) + " closed and empty)"
+      # end
+      # # defined? NI_BUILD_COUNT
+      when 3 then print " (closed and providing light)"
+      when 5 then print " (empty and providing light)"
+      when 7 then print " (closed, empty and providing light)"
+      when 8 then print " (providing light and being worn"
+      when 9 then print " (providing light"
+      when 10 then print " (being worn"
+      # if defined? NI_BUILD_COUNT
+      # when 11 then print " ("
+      # else
+      when 11 then print " (which " + isorare(x1) + " "
+      # end
+      # # defined? NI_BUILD_COUNT
+      when 12 then print "open"
+      when 13 then print "open but empty"
+      when 14 then print "closed"
+      when 15 then print "closed and locked"
+      when 16 then print " and empty"
+      # if defined? NI_BUILD_COUNT
+      # when 17 then print " (empty)"
+      # else
+      when 17 then print " (which " + isorare(x1) + " empty)"
+      # end
+      # # defined? NI_BUILD_COUNT
+      when 18 then print " containing "
+      when 19 then print " (on "
+      when 20 then print ", on top of "
+      when 21 then print " (in "
+      when 22 then print ", inside "
+      end
+    when :LMode1 then   " is now in its normal \"brief\" printing mode, which gives long descriptions " +
+               "of places never before visited and short descriptions otherwise."
+    when :LMode2 then   " is now in its \"verbose\" mode, which always gives long descriptions " +
+               "of locations (even if you've been there before)."
+    when :LMode3 then   " is now in its \"superbrief\" mode, which always gives short descriptions " +
+               "of locations (even if you haven't been there before)."
+    when :Lock then case n
+      when 1 then if x1.has? :pluralname then print "They don't " else print "That doesn't " end
+              "seem to be something you can lock."
+      when 2 then println ctheyreorthats(x1) + " locked at the moment."
+      when 3 then "First you'll have to close " + the(x1) + "."
+      when 4 then if x1.has? :pluralname then print "Those don't " else print "That doesn't " end
+              "seem to fit the lock."
+      when 5 then "You lock " + the(x1) + "."
+      when 6 then A(player) + " locks " + the(x1) + " with " + hisorher(player, second) + "."
+      end
+    when :Look then case n
+      when 1 then print " (on " + the(x1) + ")"
+      when 2 then print " (in " + the(x1) + ")"
+      when 3 then print " (as " + object(x1) + ")"
+      when 4 then print "On " + the(x1)
+              WriteListFrom(child(x1), ENGLISH_BIT + RECURSE_BIT + PARTINV_BIT + TERSE_BIT + CONCEAL_BIT + ISARE_BIT)
+              "."
+      when 5,6
+              if x1 != @visibility_ceiling
+                if x1.has? :supporter then print "On " else print "In " end
+                print the(x1) + " you"
+              else print "You" end
+              print " can "
+              print "also " if n == 5
+              print "see "
+              WriteListFrom(
+                child(x1),
+                ENGLISH_BIT + RECURSE_BIT + PARTINV_BIT + TERSE_BIT + CONCEAL_BIT + WORKFLAG_BIT
+              )
+              if x1 != @visibility_ceiling
+                "."
+              else
+                " here."
+              end
+      when 7 then "You see nothing of interest in that direction."
+      when 8 then if x1.has?(:supporter); print " (on "; else; print " (in "; end
+              print the(x1) + ")"
+      end
+    when :LookUnder then case n
+      when 1 then "But it's dark."
+      when 2 then "You find nothing of interest."
+      when 3 then A(player) + " seems to be looking for something underneath " + a(x1) + "."
+      end
+    when :Mild then     "Quite."
+    when :Miscellany then case n
+      when 1 then "(considering the first sixteen objects only)\n"
+      when 2 then "Nothing to do!"
+      when 3 then print " You have died "
+      when 4 then print " You have won "
+      when 5 then print "\nWould you like to RESTART, RESTORE a saved game"
+              # if defined? DEATH_MENTION_UNDO
+              #   print ", UNDO your last move"
+              # end
+              # # defined? DEATH_MENTION_UNDO
+              print ", give the FULL score for that game" if TASKS_PROVIDED == 0
+              # if defined? NI_BUILD_COUNT
+              #   if (@deadflag == 2 && (I7_Amusing_Provided()))
+              #     print ", see some suggestions for AMUSING things to do"
+              #   end
+              # else
+              #   if (@deadflag == 2 && AMUSING_PROVIDED == 0)
+              #     print ", see some suggestions for AMUSING things to do"
+              #   end
+              # end
+              # # defined? NI_BUILD_COUNT
+              # if defined? I7_SERIAL_COMMA
+              #   print ","
+              # end
+              # # defined? I7_SERIAL_COMMA
+              " or QUIT?"
+      when 6 then "[Your interpreter does not provide \"undo\".  Sorry!]"
+      when 7 then "\"Undo\" failed.  [Not all interpreters provide it.]"
+      # when 7 then "[You cannot \"undo\" any further.]"
+      when 8 then "Please give one of the answers above."
+      when 9 then "It is now pitch dark in here!"
+      when 10 then "I beg your pardon?"
+      when 11 then "[You can't \"undo\" what hasn't been done!]"
+      when 12 then "[Can't \"undo\" twice in succession. Sorry!]"
+      when 13 then "[Previous turn undone.]"
+      when 14 then "Sorry, that can't be corrected."
+      when 15 then "Think nothing of it."
+      when 16 then "\"Oops\" can only correct a single word."
+      when 17 then "It is pitch dark, and you can't see a thing."
+      when 18 then "yourself" # print "yourself"
+      when 19 then "As good-looking as ever."
+      when 20 then "To repeat a command like \"frog, jump\", just say \"again\", not \"frog, again\"."
+      when 21 then "You can hardly repeat that."
+      when 22 then "You can't begin with a comma."
+      when 23 then "You seem to want to talk to someone, but I can't see whom."
+      when 24 then "You can't talk to " + the(x1) + "."
+      when 25 then "To talk to someone, try \"someone, hello\" or some such."
+      when 26 then "(first taking " + the(@not_holding) + ")"
+      when 27 then "I didn't understand that sentence."
+      when 28 then print "I only understood you as far as wanting to "
+      when 29 then "I didn't understand that number."
+      when 30 then "You can't see any such thing."
+      when 31 then "You seem to have said too little!"
+      when 32 then "You aren't holding that!"
+      when 33 then "You can't use multiple objects with that verb."
+      when 34 then "You can only use multiple objects once on a line."
+      when 35 then "I'm not sure what \"" + @pronoun_word + "\" refers to."
+      when 36 then "You excepted something not included anyway!"
+      when 37 then "You can only do that to something animate."
+      when 38 then if defined? DIALECT_US
+                 "That's not a verb I recognize."
+               else
+                 "That's not a verb I recognise."
+               end
+      when 39 then "That's not something you need to refer to in the course of this game."
+      when 40 then "You can't see \"" + @pronoun_word + "\" (" + the(@pronoun_obj) +
+              ") at the moment."
+      when 41 then "I didn't understand the way that finished."
+      when 42 then if x1 == 0; print "None"; else; print "Only " + number(x1); end
+              print " of those "
+              if x1 == 1
+                print "is"
+              else
+                print "are"
+              end
+              " available."
+      when 43 then "Nothing to do!"
+      when 44 then "There are none at all available!"
+      when 45 then print "Who do you mean, "
+      when 46 then print "Which do you mean, "
+      when 47 then "Sorry, you can only have one item here. Which exactly?"
+      when 48 then print "Whom do you want"
+              print " " + the(@actor) if @actor != @player
+              print " to "; PrintCommand(); print "?\n"
+      when 49 then print "What do you want"
+              print " " + the(@actor) if @actor != @player
+              print " to "; PrintCommand(); print "?\n"
+      when 50 then print "Your score has just gone "
+              if x1 > 0; print "up"; else x1 = -x1; print "down"; end
+              print " by " + number(x1) + " point"
+              if x1 > 1; print "s"; end
+      when 51 then "(Since something dramatic has happened, your list of commands has been cut short.)"
+      when 52 then "\nType a number from 1 to " + x1 + ", 0 to redisplay or press ENTER."
+      when 53 then "\n[Please press SPACE.]"
+      when 54 then "[Comment recorded.]"
+      when 55 then "[Comment NOT recorded.]"
+      when 56 then print ".\n"
+      when 57 then print "?\n"
+      when 98 then "No object with that id."
+      when 99 then "That would break the object tree."
+      end
+    when :No, :Yes then   "That was a rhetorical question."
+    when :NotifyOff
+              "Score notification off."
+    when :NotifyOn then  "Score notification on."
+    when :Objects then case n
+      when 1 then "Objects you have handled:\n"
+      when 2 then "None."
+      when 3 then print "   (worn)"
+      when 4 then print "   (held)"
+      when 5 then print "   (given away)"
+      when 6 then print "   (in " + x1 + ")"
+      when 7 then print "   (in " + the(x1) + ")"
+      when 8 then print "   (inside " + the(x1) + ")"
+      when 9 then print "   (on " + the(x1) + ")"
+      when 10 then print "   (lost)"
+      end
+    when :Open then case n
+      when 1 then println ctheyreorthats(x1) + " not something you can open."
+      when 2 then if x1.has?(:pluralname); print "They seem "; else; print "It seems "; end
+              "to be locked."
+      when 3 then println ctheyreorthats(x1) + " already open."
+      when 4 then print "You open " + the(x1) + ", revealing "
+              if WriteListFrom(child(x1), ENGLISH_BIT + TERSE_BIT + CONCEAL_BIT) == 0; return "nothing."; end
+              "."
+      when 5 then "You open " + the(x1) + "."
+      end
+    when :Order then     print The(x1)
+              if x1.has? :pluralname then print " have" else print " has" end
+              " better things to do."
+    when :Places then case n
+      when 1 then print "You have visited: "
+      when 2 then print ".\n"
+      end
+    when :Pray then      "Nothing practical results from your prayer."
+    when :Prompt then    print "\n>"
+    when :Pronouns then case n
+      when 1 then print "At the moment, "
+      when 2 then print "means "
+      when 3 then print "is unset"
+      when 4 then "no pronouns are known to the game."
+      when 5 then "."
+      end
+    when :Pull, :Push, :Turn then case n
+      when 1 then if x1.has?(:pluralname); print "Those are "; else; print "It is "; end
+              "fixed in place."
+      when 2 then "You are unable to."
+      when 3 then "Nothing obvious happens."
+      when 4 then "That would be less than courteous."
+      end
+    # when Push then # see Pull
+    when :PushDir then case n
+      when 1 then "Is that the best you can think of?"
+      when 2 then "That's not a direction."
+      when 3 then "Not that way you can't."
+      end
+    when :PutOn then case n
+      when 1 then "You need to be holding " + the(x1) + " before you can put " +
+                  itorthem(x1) + " on top of something else."
+      when 2 then "You can't put something on top of itself."
+      when 3 then "Putting things on " + the(x1) + " would achieve nothing."
+      when 4 then "You lack the dexterity."
+      # if defined? NI_BUILD_COUNT
+      when 5 then print "(first taking " + itorthem(x1) + " off)\n"; @say__p = 0; return
+      # else
+      # when 5 then "(first taking " + itorthem(x1) + " off)\n"
+      # end
+      # # defined? NI_BUILD_COUNT
+      when 6 then "There is no more room on " + the(x1) + "."
+      when 7 then "Done."
+      when 8 then "You put " + the(x1) + " on " + the(parent(x1)) + "."
+      when 9 then A(player) + " puts " + a(x1) + " on " + a(parent(x1)) + "."
+      end
+    when :Quit then case n
+      when 1 then print "Please answer yes or no."
+      when 2 then print "Are you sure you want to quit? "
+      end
+    when :Remove then case n
+      when 1 then if x1.has?(:pluralname); print "They are"; else; print "It is"; end
+              " unfortunately closed."
+      when 2 then if x1.has?(:pluralname); print "But they aren't"; else; print "But it isn't"; end
+              " there now."
+      when 3 then "Removed."
+      end
+    when :Restart then case n
+      when 1 then print "Are you sure you want to restart? "
+      when 2 then "Failed."
+      end
+    when :Restore then case n
+      when 1 then "Restore failed."
+      when 2 then "Ok."
+      end
+    when :Rub then case n
+      when 1 then "You achieve nothing by this."
+      end
+    when :Save then case n
+      when 1 then "Save failed."
+      when 2 then "Ok."
+      end
+    when :Score then case n
+      when 1 then if @deadflag
+                print "In that game you scored "
+              else
+                print "You have so far scored "
+              end
+              print score + " out of a possible " + MAX_SCORE + ", in " + turns + " turn"
+              print "s" if turns != 1
+              return
+      when 2 then "There is no score in this story."
+      end
+    when :ScriptOff then case n
+      when 1 then "Transcripting is already off."
+      when 2 then "\nEnd of transcript."
+      when 3 then "Attempt to end transcript failed."
+      end
+    when :ScriptOn then case n
+      when 1 then "Transcripting is already on."
+      when 2 then "Start of a transcript of"
+      when 3 then "Attempt to begin transcript failed."
+      end
+    when :Search then case n
+      when 1 then "But it's dark."
+      when 2
+              print "There is nothing "
+              if x1.has? :container
+                print "in "
+              else
+                print "on "
+              end
+              the(x1) + "."
+      when 3 then print "On " + the(x1)
+              WriteListFrom(child(x1), ENGLISH_BIT + TERSE_BIT + CONCEAL_BIT + ISARE_BIT)
+              "."
+      when 4 then "You find nothing of interest."
+      when 5 then "You can't see inside, since " + the(x1) + " " + isorare(x1) + " closed."
+      when 6 then println The(x1) + " " + isorare(x1) + " empty."
+      when 7 then print "In " + the(x1)
+              WriteListFrom(child(x1), ENGLISH_BIT + TERSE_BIT + CONCEAL_BIT + ISARE_BIT)
+              "."
+      when 8 then A(player) + " searches " + a(x1) + "."
+      end
+    when :Set then       "No, you can't set " + thatorthose(x1) + "."
+    when :SetTo then     "No, you can't set " + thatorthose(x1) + " to anything."
+    when :Show then case n
+      when 1 then "You aren't holding " + the(x1) + "."
+      when 2 then println The(x1) + " " + isorare(x1) + " unimpressed."
+      end
+    when :Sing then case n
+      when 1 then "Your singing is abominable."
+      when 2 then A(player) + " begins to sing a little ditty."
+      end
+    when :Sleep then case n
+      when 1 then "You aren't feeling especially drowsy."
+      when 2 then A(player) + " seems rather tired."
+      end
+    when :Smell then case n
+      when 1 then "You smell nothing unexpected."
+      when 2 then if x1.in? player
+                    A(player) + " puts " + hisorher(player, 'nose') + " up to " +
+                    hisorher(player, x1) + " and inhales deeply."
+                  elsif !x1.nil? && x1.has?(:animate)
+                    A(player) + " sniffs in " + the(x1) + "'s direction."
+                  elsif !x1.nil?
+                    A(player) + " sniffs at " + the(x1) + "."
+                  else
+                    A(player) + " sniffs the air."
+                  end
+      end
+    when :Sorry then case n
+      when 1 then if defined? ENGLISH_DIALECT then "Oh, don't apologize." else "Oh, don't apologise." end
+      when 2 then A(player) + " apologizes profusely."
+      end
+    when :Squeeze then case n
+      when 1 then "Keep your hands to yourself."
+      when 2 then "You achieve nothing by this."
+      end
+    when :Strong then    "Real adventurers do not use such language."
+    when :Swim then      "There's not enough water to swim in."
+    when :Swing then     "There's nothing sensible to swing here."
+    when :SwitchOff then case n
+      when 1 then println ctheyreorthats(x1) + " not something you can switch."
+      when 2 then println ctheyreorthats(x1) + " already off."
+      when 3 then "You switch " + the(x1) + " off."
+      when 4 then A(player) + " switches " + a(x1) + " off."
+      end
+    when :SwitchOn then case n
+      when 1 then println ctheyreorthats(x1) + " not something you can switch."
+      when 2 then println ctheyreorthats(x1) + " already on."
+      when 3 then "You switch " + the(x1) + " on."
+      when 4 then A(player) + " switches " + a(x1) + " on."
+      end
+    when :Take then case n
+      when 1 then "Taken."
+      when 2 then "You are always self-possessed."
+      when 3 then "I don't suppose " + the(x1) + " would care for that."
+      when 4 then print "You'd have to get "
+              if x1.has? :supporter
+                print "off "
+              else
+                print "out of "
+              end
+              println the(x1) + " first."
+      when 5 then println "You already have " + thatorthose(x1) + "."
+      when 6 then if noun.has?(:pluralname); print "Those seem "; else; print "That seems "; end
+              println "to belong to " + the(x1) + "."
+      when 7 then if noun.has?(:pluralname); print "Those seem "; else; print "That seems "; end
+              println "to be a part of " + the(x1) + "."
+      when 8 then println Cthatorthose(x1) + " " + isorare(x1) + "n't available."
+      when 9 then println The(x1) + " " + isorare(x1) + "n't open."
+      when 10 then if x1.has?(:pluralname); print "They're "; else; print "That's "; end
+               "hardly portable."
+      when 11 then if x1.has?(:pluralname); print "They're "; else; print "That's "; end
+               "fixed in place."
+      when 12 then "You're carrying too many things already."
+      # if defined? NI_BUILD_COUNT
+      when 13 then print "(putting " + the(x1) + " into " + the(SACK_OBJECT) +
+               " to make room)\n"; @say__p = 0; return
+      when 14 then "You can't reach into " + the(x1) + "."
+      # else
+      # when 13 then "(putting " + the(x1) + " into " + the(SACK_OBJECT) + " to make room)"
+      # end
+      # # defined? NI_BUILD_COUNT
+      when 15 then x2 = second || parent(x1)
+               if x2.has? :supporter
+                 A(player) + " takes " + a(x1) + " from " + a(x2) + "."
+               elsif x2.has? :container
+                 A(player) + " takes " + a(x1) + " out of " + a(x2) + "."
+               elsif x2.has?(:cover) && noun.has?(:underneath)
+                 A(player) + " takes " + a(x1) + " out from underneath " + a(x2) + "."
+               else
+                 A(player) + " picks " + a(x1) + " up from " + the($d_obj) + "."
+               end
+      when 16 then println The(x1) + " " + isorare(x1) + " too far away."
+      end
+    when :Taste then     "You taste nothing unexpected."
+    when :Tell then case n
+      when 1 then "You talk to yourself a while."
+      when 2 then "This provokes no reaction."
+      end
+    when :Think then case n
+      when 1 then "What a good idea."
+      when 2 then A(player) + " seems momentarily lost in thought."
+      end
+    when :ThrowAt then case n
+      when 1 then "Futile."
+      when 2 then "You lack the nerve when it comes to the crucial moment."
+      end
+    # when Tie then # see JumpOver.
+    when :Touch then case n
+      when 1 then "Keep your hands to yourself!"
+      when 2 then "You feel nothing unexpected."
+      when 3 then "If you think that'll help."
+      when 4 then A(player) + " touches " + a(x1) + " with " + hisorher(player, 'finger') + "."
+      end
+    # when Turn then # see Pull.
+    when :Unlock then case n
+      when 1 then if x1.has?(:pluralname); print "They don't "; else; print "That doesn't "; end
+              "seem to be something you can unlock."
+      when 2 then println ctheyreorthats(x1) + " unlocked at the moment."
+      when 3 then if x1.has?(:pluralname); print "Those don't "; else; print "That doesn't "; end
+              "seem to fit the lock."
+      when 4 then "You unlock " + the(x1) + "."
+      when 5 then A(player) + " unlocks " + the(x1) + " with " + hisorher(player, second) + "."
+      end
+    when :VagueGo then   "You'll have to say which compass direction to go in."
+    when :Verify then case n
+      when 1 then "The game file has verified as intact."
+      when 2 then "The game file did not verify as intact, and may be corrupt."
+      end
+    when :Wait then case n
+      when 1 then "Time passes."
+      when 2 then A(player) + " seems momentarily preoccupied with anticipation."
+      end
+    when :Wake then      "The dreadful truth is, this is not a dream."
+    when :WakeOther then "That seems unnecessary."
+    when :Wave then case n
+      when 1 then "But you aren't holding " + thatorthose(x1) + "."
+      when 2 then "You look ridiculous waving " + the(x1) + "."
+      when 3 then A(player) + " waves " + hisorher(player, x1) + " above " + hisorher(player, 'head') + "."
+      end
+    when :WaveHands then case n
+      when 1 then "You wave, feeling foolish."
+      when 2 then A(player) + " waves."
+      when 3 then "You wave to " + the(noun) + "."
+      when 4 then A(player) + " waves to " + a(noun) + "."
+      end
+    when :Wear then case n
+      when 1 then "You can't wear " + thatorthose(x1) + "!"
+      when 2 then "You're not holding " + thatorthose(x1) + "!"
+      when 3 then "You're already wearing " + thatorthose(x1) + "!"
+      when 4 then "You put on " + the(x1) + "."
+      when 5 then A(player) + " puts on " + a(x1) + "."
+      end
+    else
+      raise MissingLanguage, sw__var
+    end
+  end
+
+  def library_messages(sw__var, n = 1, x1 = nil)
+    # TODO: FIXME
+    plugin_library_messages = :"#{sw__var}Messages"
+    if self.respond_to? plugin_library_messages
+      result = send(plugin_library_messages, n, x1)
+      return result if result
+    end
+    result = language_lm(sw__var, n, x1)
+    # TODO: FIXME
+    # modules.each { |m| m.name == 'English' && m.provides? :language_lm }
+    return result
+  end
+
+  alias l___m library_messages
+  alias l__m library_messages
+  alias L__M library_messages
+end
+# module English
+end
+# module Inform
+
+if defined? Inform::Parser
+  # The Inform module
+  module Inform
+    # The Parser module
+    module Parser
+      include Inform::English
+    end
+  end
+end
+
+if defined? Inform::Object
+  # This hack makes it possible for every Inform::Object to have access to
+  # the library of language messages available to verbs and the parser.
+  module Inform
+    # The Inform::Object class to include the English module
+    class Object
+      include Inform::English
+    end
+
+    # The Inform::System module
+    module System
+      # The Inform::System::Object class to include the English module
+      class Object
+        include Inform::English
+      end
+    end
+  end
+end