story-teller 1.1.3

data/game/languages/english.rb

@@ -0,0 +1,571 @@
+# encoding: utf-8
+# frozen_string_literal: false
+
+# The Inform module
+module Inform
+# The English
+module English
+  AgainWords = [
+    Inform::English::AGAIN1__WD,
+    Inform::English::AGAIN2__WD,
+    Inform::English::AGAIN3__WD
+  ].freeze
+
+  # Naive opposite mapping of directions
+  CompassDirectionNames = Inform::English::Compass.map(&:name).flatten.uniq
+  CompassDirectionOpposites = {
+    $n_obj => $s_obj,
+    $s_obj => $n_obj,
+    $e_obj => $w_obj,
+    $w_obj => $e_obj,
+    $ne_obj => $sw_obj,
+    $sw_obj => $ne_obj,
+    $nw_obj => $se_obj,
+    $se_obj => $nw_obj,
+    $u_obj => $d_obj,
+    $d_obj => $u_obj,
+    $in_obj => $out_obj,
+    $out_obj => $in_obj
+  }.freeze
+
+  if defined?(TalkingVerbs)
+    TalkingVerbs.push(%i[AnswerInanimate AskFor AskIf AskQuestion Inform])
+  end
+
+  def available_exits(ceiling = visibility_ceiling)
+    return [] if ceiling.nil?
+    Inform::English::Compass.select { |d| ceiling.linked?(d.door_dir) }
+  end
+
+  def openorclosed(door)
+    (door.has?(:open) ? "open" : "closed") + " " + door
+  end
+
+  def obvious_exits(exits, ceiling = visibility_ceiling)
+    obvious_exits = []
+    for exit_obj in exits
+      dir = exit_obj.door_dir
+      destination = ceiling.linkto(dir)
+      if parent(destination).nil?
+        obvious_exits << exit_obj
+        next
+      end
+      door = destination
+      next if door.hasany?(:concealed, :secret, :scenery)
+      if door.has?(:openable)
+        if door.has?(:pluralname)
+          print "Some " + openorclosed(door) + " lead "
+        else
+          print A(openorclosed(door)) + " leads "
+        end
+      elsif door.has?(:pluralname)
+        print "Some " + door + " lead "
+      else
+        print A(door) + " leads "
+      end
+      LanguageDirection(dir)
+      println "."
+      obvious_exits << exit_obj
+    end
+    obvious_exits
+  end
+
+  def entersorarrives(o)
+    x = parent(o)
+    if !x.nil? && x.has?(:room)
+      "enters"
+    else
+      "arrives"
+    end
+  end
+
+  def exitsorleaves(o)
+    if parent(o).has?(:room)
+      "exits"
+    else
+      "leaves"
+    end
+  end
+
+  def upordown(preposition, obj)
+    unless Inform::English::Compass.include?(obj)
+      return case obj.&(:door_dir)
+      when :d_to then "down"
+      when :u_to then "up"
+      when NilClass then ""
+      else preposition
+      end + " " + the(obj)
+    end
+    case obj
+    when $d_obj then "down below"
+    when $u_obj then "up above"
+    else
+      if preposition.nil?
+        the(obj)
+      else
+        preposition + " " + the(obj)
+      end
+    end
+  end
+
+  def sitorstand(obj)
+    if obj.has?(:prone)
+      "lay"
+    elsif obj.has?(:kneeling)
+      "kneel"
+    elsif obj.has?(:sitting)
+      "sit"
+    else
+      "stand"
+    end
+  end
+  def sitsorstands(obj); sitorstand(obj) + 's'; end
+
+  def sayexclaimorask(s)
+    case s
+    when /.*\!+$/ then "exclaim$"
+    when /.*\?+$/ then "ask$"
+    else "say$"
+    end
+  end
+
+  LanguageCounters = {
+    'first' => 1, 'second' => 2, 'third' => 3, 'fourth' => 4, 'fifth' => 5,
+    'sixth' => 6, 'seventh' => 7, 'eighth' => 8, 'ninth' => 9, 'tenth' => 10,
+    'eleventh' => 11, 'twelvth' => 12, 'thirteenth' => 13, 'fourteenth' => 14,
+    'fifteenth' => 15, 'sixteenth' => 16, 'seventeenth' => 17, 'eighteenth' => 18,
+    'nineteenth' => 19, 'twentieth' => 20
+  }.freeze
+  CountersLanguage = LanguageCounters.invert.freeze
+
+  LanguageDirections = {
+    n_to: "north",
+    s_to: "south",
+    e_to: "east",
+    w_to: "west",
+    ne_to: "northeast",
+    nw_to: "northwest",
+    se_to: "southeast",
+    sw_to: "southwest",
+    u_to: "up",
+    d_to: "down",
+    in_to: "in",
+    out_to: "out"
+  }.freeze
+
+  Articles = Inform::English::LanguageArticles.flatten.uniq.freeze
+
+  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"
+    when 'at', 'att', 'atta', 'attac' then print "attack"
+    else false
+    end
+    true
+  end
+
+  def capitalize_sentences(s)
+    s.gsub(/\w.*?[.!?](?:\s+|\z)/, &:sentence_case)
+  end
+
+  def ensure_punctuation(a, punctuation = '.')
+    a = NOTHING__TX if a.nil?
+    punctuate(a.to_s, punctuation)
+  end
+
+  PunctuationPattern = %r{[.!?]['"]?$}
+
+  def punctuate(a, punctuation)
+    return punctuation if a.nil?
+    a = a.split if a.respond_to?(:split)
+    unless a.empty?
+      last_word = a.pop if a.respond_to?(:pop)
+      last_word << punctuation unless PunctuationPattern.match?(last_word)
+      a.push last_word if a.respond_to?(:push)
+    end
+    return a unless a.respond_to?(:join)
+    a.join(' ')
+  end
+
+  def th(n)
+    CountersLanguage[n]
+  end
+
+  MyWordConjugationIndicatorPattern = %r{ my (\w+)}
+  WordConjugationIndicatorPattern = %r{(\w+)\$}
+
+  def inflect(word, person = :third_person, obj = player)
+    word = conjugate(word, person)
+    case person
+    when :third_person, :third_person_singular
+      word.gsub(MyWordConjugationIndicatorPattern) { " " + intensify(obj) + " " + Regexp.last_match(1) }
+    when :first_person, :first_person_singular
+      word.dup.gsub(WordConjugationIndicatorPattern) { reflexify(Regexp.last_match(1)) }
+    else
+      word.dup.gsub(WordConjugationIndicatorPattern) { reflexify(Regexp.last_match(1)) }
+    end
+  end
+
+  AreConjugationIndicatorPattern = %r{are\$}
+  AnyConjugationIndicatorPattern = %r{\$}
+
+  def conjugate(word, person = :third_person_singular)
+    word = word.to_s
+    case person
+    when :third_person, :third_person_singular
+      word.dup.gsub(WordConjugationIndicatorPattern) { conjugate_present(Regexp.last_match(1)) }
+    when :first_person, :first_person_singular
+      word.gsub(AreConjugationIndicatorPattern, 'is').gsub(AnyConjugationIndicatorPattern, '')
+    else
+      word.gsub(AreConjugationIndicatorPattern, 'is').gsub(AnyConjugationIndicatorPattern, '')
+    end
+  end
+
+  SibilantPhoneticPattern = %r{.*(ch|s|sh|x|z)$}i
+  LongVowelPhoneticPattern = %r{.*(ay|ey|oy|uy)$}i
+  ConsonantYPhoneticPattern = %r{.*[^aeiou]y}i
+
+  def conjugate_present(verb)
+    case verb
+    when SibilantPhoneticPattern
+      verb << "es"
+    when LongVowelPhoneticPattern
+      verb << "s"
+    when ConsonantYPhoneticPattern
+      verb << verb << "ies"
+    else
+      verb << "s"
+    end
+  end
+
+  def intensify(obj)
+    return "its" if obj.nil?
+    return "their" if obj.has?(:pluralname)
+    if obj.has?(:animate)
+      return "her" if obj.has?(:female)
+      return "his" if obj.hasnt?(:neuter)
+    end
+    return "its"
+  end
+
+  def reflexify(_obj)
+    return "my"
+  end
+
+  # Returns the plural form of the word in the string.
+  def pluralize(word, n = nil)
+    return word if n == 1
+    apply_inflections(word, StoryTeller::Inflector.inflections.plurals)
+  end
+
+  # The reverse of +pluralize+, returns the singular form of a word in a
+  # string.
+  def singularize(word)
+    apply_inflections(word, StoryTeller::Inflector.inflections.singulars)
+  end
+
+  def singular?(s)
+    singularize(s) == s
+  end
+
+  def plural?(s)
+    pluralize(s) == s
+  end
+
+  # Applies inflection rules for +singularize+ and +pluralize+.
+  def apply_inflections(word, rules)
+    return "" if word.empty?
+    result = word.to_s.dup
+    candidate = result.downcase[/\b\w+\Z/]
+    return result if StoryTeller::Inflector.inflections.uncountables.include?(candidate)
+    for (rule, replacement) in rules
+      break if result.sub!(rule, replacement)
+    end
+    result
+  end
+
+  def theirself(obj)
+    return "themselves" if obj.has?(:pluralname)
+    if obj.has?(:animate)
+      return "herself" if obj.has?(:female)
+      return "himself" if obj.hasnt?(:neuter)
+    end
+    return "itself"
+  end
+
+  def oneself(obj)
+    return "yourself" if obj == player
+    return "themselves" if obj.has?(:pluralname)
+    if obj.has?(:animate)
+      return "herself" if obj.has?(:female)
+      return "himself" if obj.hasnt?(:neuter)
+    end
+    return "itself"
+  end
+
+  def hasorhave(obj)
+    return (obj.to_i == 1 ? "has " : "have ") + obj if obj.number?
+    if obj.has?(:pluralname) || obj == player then "have" else "has" end
+  end
+
+  def ItorThem(obj, first_person = true)
+    return "yourself" if first_person && obj == player
+    super(obj)
+  end
+
+  # Using reference: https://nonbinary.wiki/wiki/English_neutral_pronouns
+  MOST_COMMON_NEUTRAL_PRONOUNS = 'They/Them/Their'.freeze
+
+  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.has?(:nonbinary)
+        return obj.&(:pronouns, MOST_COMMON_NEUTRAL_PRONOUNS).split('/').first
+      elsif obj.hasnt?(:neuter); return "He"; end
+    end
+    return "That"
+  end
+
+  IT_OR_ENDS_WITH_E_PATTERN = %r{(it|e)$}
+
+  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.has?(:nonbinary)
+        pronoun = obj.&(:pronouns, MOST_COMMON_NEUTRAL_PRONOUNS).split('/').first
+        return pronoun + (IT_OR_ENDS_WITH_E_PATTERN.match?(pronoun) ? "'s" : "'re")
+      elsif obj.hasnt?(:neuter); return "He's"; end
+    end
+    return "That's"
+  end
+
+  def CItorThose(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.has?(:nonbinary)
+        return obj.&(:pronouns, MOST_COMMON_NEUTRAL_PRONOUNS).split('/').first
+      elsif obj.hasnt?(:neuter); return "He"; end
+    end
+    return "It"
+  end
+
+  def himorher(obj, _first_person = true)
+    return "them" if obj.has?(:pluralname)
+    if obj.has?(:animate)
+      return "her" if obj.has?(:female)
+      return "him" if obj.hasnt?(:neuter)
+    end
+    return "it"
+  end
+
+  def ThatorThose(obj, first_person = true) # Used in the accusative
+    return "you" if first_person && obj == player
+    CThatorThose(obj).downcase
+  end
+
+  def hisorher(obj, x1); HisorHer(obj, x1); end
+  def HisorHer(obj, x1, first_person = false)
+    return your(x1) if first_person && obj == player
+    return ItsorTheir(obj, x1, first_person)
+  end
+  def Citsortheir(obj, x1, first_person = true)
+    return Your(x1) if first_person && obj == player
+    return "Their " + x1 if obj.has?(:pluralname)
+    if obj.has?(:animate)
+      return "Her " + x1 if obj.has?(:female)
+      return "His " + x1 if obj.hasnt?(:neuter)
+    end
+    return "Its " + x1
+  end
+  def ItsorTheir(obj, x1, first_person = true)
+    Citsortheir(obj, x1, first_person).downcase
+  end
+  def Itsortheir(obj, x1, first_person = true)
+    Citsortheir(obj, x1, first_person).downcase
+  end
+  def itsortheir(obj, x1, first_person = true)
+    Citsortheir(obj, x1, first_person).downcase
+  end
+
+  def TheyreorThats(obj)
+    CTheyreorThats(obj).downcase
+  end
+  def Theyreorthats(obj); CTheyreorThats(obj); end
+  def Thatorthose(obj, x1); CThatorThose(obj, x1); end
+  def thatorthose(obj) # Used in the nominative
+    CThatorThose(obj).downcase
+  end
+  alias theyreorthats TheyreorThats
+
+  def your(x1); return YOUR2__TX + " " + x1; end
+  def Your(x1); return YOUR__TX + " " + x1; end
+
+  def CloseMessages(n, x1)
+    case n
+    when 4 then A(player) + " closes " + indefart(x1) + "."
+    end
+  end
+
+  def OpenMessages(n, x1)
+    case n
+    when 6 then A(player) + " opens " + indefart(x1) + "."
+    end
+  end
+
+  def LockMessages(n, x1)
+    case n
+    when 7 then A(player) + " locks " + the(x1) + "."
+    when 8 then "The lock demands its key."
+    end
+  end
+
+  def UnlockMessages(n, x1 = nil)
+    case n
+    when 6 then A(player) + " unlocks " + the(x1) + "."
+    end
+  end
+
+  def LookMessages(n, x1)
+    case n
+    when 5,6
+                if x1 != visibility_ceiling
+                  if x1.has?(:supporter)
+                    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), Inform::ENGLISH_BIT + Inform::PARTINV_BIT +
+                                         Inform::TERSE_BIT + Inform::CONCEAL_BIT +
+                                         Inform::WORKFLAG_BIT + Inform::NONANIMATE_BIT)
+                if x1 != visibility_ceiling
+                  "."
+                else
+                  " here."
+                end
+    when 9 then print " "
+                if x1 == @player
+                  x1.ancestors.reverse.each do |o|
+                    print "["
+                    color :cyan
+                    print string(o.id)
+                    uncolor :cyan
+                    print "]"
+                  end
+                else
+                  print "["
+                  color :cyan
+                  print string(x1.id)
+                  uncolor :cyan
+                  print "]"
+                end
+    when 10
+                if x1 != visibility_ceiling
+                  if x1.has?(:supporter)
+                    print "On "
+                  else
+                    print "In "
+                  end
+                  print the(x1) + " you notice "
+                else print "You notice that "
+                end
+                WriteListFrom(child(x1),
+                  Inform::ENGLISH_BIT + Inform::RECURSE_BIT + Inform::PARTINV_BIT +
+                  Inform::TERSE_BIT + Inform::CONCEAL_BIT) do |o|
+                  o.has?(:animate) && o.hasnt?(:concealed, :scenery)
+                end
+                if x1 != visibility_ceiling
+                  "."
+                else
+                  n = visibility_ceiling.count do |o|
+                    o != player && o.has?(:animate) && o.hasnt?(:concealed, :scenery)
+                  end
+                  if n > 1 then print " are" else print " is" end
+                  " nearby."
+                end
+    end
+  end
+
+  def MountMessages(n, x1)
+    case n
+    when 1 then "But you're already on " + the(x1) + "."
+    when 2 then "You'll have trouble getting on " + thatorthose(x1) + "."
+    when 4 then "You can only mount something free-standing."
+    when 5 then "You mount " + the(x1) + "."
+    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
+                print "(getting onto " + the(x1) + ")\n" if x1.has?(:supporter)
+                "(entering " + the(x1) + ")\n"
+    when 8 then The(player) + " gets onto " + the(x1) + "."
+    end
+  end
+
+  def RubMessages(n, x1)
+    case n
+    when 2 then if player.descendants.include?(x1)
+                  A(player) + " rubs " + hisorher(player, x1) + "."
+                else
+                  A(player) + " rubs " + a(x1) + "."
+                end
+    end
+  end
+
+  def DismountMessages(n, x1)
+    case n
+    when 1 then "But you have no mount."
+    when 3 then println "You dismount from " + the(x1) + "."
+    when 5 then The(player) + " dismounts from " + the(x1) + "."
+    end
+  end
+
+  def MiscellanyMessages(n, _x1)
+    case n
+    when 17 then nil
+    end
+  end
+end
+# English module
+end
+# Inform module
+
+# The Inform module
+module Inform
+  # The Inform::Object class
+  class Object
+    def plural(*args)
+      unless args.empty?
+        self.properties[:plural] = args.first
+        self.save
+      end
+      return self.properties[:plural] if self.properties.include?(:plural)
+      pluralize self.to_s
+    end
+  end
+end
+
+# The Inform module
+module Inform
+  alias emotion topic
+  alias time topic
+end

data/game/models/example_model.rb

@@ -0,0 +1,2 @@
+# encoding: utf-8
+# frozen_string_literal: false

data/game/modules/example_module.rb

@@ -0,0 +1,9 @@
+# encoding: utf-8
+# frozen_string_literal: false
+
+# The Huggable module
+module Huggable
+  def life_kiss
+    ":-)"
+  end
+end