gamefic-standard 3.2.4 → 4.0.0

data/lib/gamefic-standard/actions/nil.rb

@@ -1,60 +0,0 @@
-Gamefic::Standard.script do
-  meta nil, plaintext do |actor, string|
-    next if string.strip.empty?
-
-    words = string.keywords
-    list = actor.epic.synonyms
-    if list.include?(words[0]&.to_sym)
-      if words.length > 1
-        result = myself.query(actor, words[1..-1].join(' '))
-        found = [result.match].compact
-        avail = available(ambiguous: true)
-        result = avail.query(actor, result.remainder)
-        until result.match.nil?
-          found.concat result.match
-          result = avail.query(actor, result.remainder)
-        end
-        if found.empty?
-          verbs = actor.epic
-                       .syntaxes
-                       .select { |syn| syn.synonym == words[0].to_sym }
-                       .map(&:verb)
-          resps = actor.epic.responses_for(*verbs)
-          if resps.any? { |resp| !resp.queries.empty? }
-            actor.tell %(I recognize "#{words[0]}" as a verb but don't know what you mean by "#{words[1..-1].join(' ')}.")
-          else
-            actor.tell %[I recognize "#{words[0]}" but not with the rest of your sentence. (Maybe it's a one-word command?)]
-          end
-        elsif result.remainder != ''
-          actor.tell %(I recognize "#{words[0]}" as a verb but was confused by "#{result.remainder}.")
-        elsif found.one?
-          verbs = actor.epic
-                       .syntaxes
-                       .select { |syn| syn.synonym == words[0].to_sym }
-                       .map(&:verb)
-          resps = actor.epic.responses_for(*verbs)
-          if resps.any? { |resp| !resp.queries.empty? }
-            actor.tell %(I recognize "#{words[0]}" and "#{found.first.name}" but could not understand them together.)
-          else
-            actor.tell %[I recognize "#{words[0]}" and "#{found.first.name}" but could not understand them together. (Maybe "#{words[0]}" is a one-word command?)]
-          end
-        else
-          verbs = actor.epic
-                       .syntaxes
-                       .select { |syn| syn.synonym == words[0].to_sym }
-                       .map(&:verb)
-          resps = actor.epic.responses_for(*verbs)
-          if resps.any? { |resp| !resp.queries.empty? }
-            actor.tell %(I recognize "#{words[0]}" but I'm not sure if "#{words[1..-1].join(' ')}" means #{found.map(&:definitely).join_or}.)
-          else
-            actor.tell %[I recognize "#{words[0]}" but not with the rest of your sentence. (Maybe it's a one-word command?)]
-          end
-        end
-      else
-        actor.tell %(I recognize "#{words[0]}" as a verb but could not understand it in this context.)
-      end
-    else
-      actor.tell %(I don't recognize "#{words[0]}" as a verb.)
-    end
-  end
-end

data/lib/gamefic-standard/actions/open.rb

@@ -1,29 +0,0 @@
-Gamefic::Standard.script do
-  respond :open, available do |actor, thing|
-    actor.tell "You can't open #{the thing}."
-  end
-
-  respond :open, available(Openable) do |actor, thing|
-    if thing.open?
-      actor.tell "#{The thing} is already open."
-    else
-      actor.tell "You open #{the thing}."
-      thing.open = true
-    end
-  end
-
-  respond :open, available(Lockable) do |actor, thing|
-    if thing.locked?
-      actor.tell "#{The thing} is locked."
-    else
-      actor.proceed
-    end
-  end
-
-  respond :open, available(Lockable, proc(&:has_lock_key?)), available do |actor, thing, key|
-    actor.execute :unlock, thing, key
-    actor.execute :open, thing if thing.unlocked?
-  end
-
-  interpret 'open :thing with :key', 'open :thing :key'
-end

data/lib/gamefic-standard/actions/place.rb

@@ -1,24 +0,0 @@
-Gamefic::Standard.script do
-  respond :place, children, available do |actor, thing, supporter|
-    actor.tell "You can't put #{the thing} on #{the supporter}."
-  end
-
-  respond :place, available, available(Supporter) do |actor, thing, supporter|
-    actor.execute :take, thing unless thing.parent == actor
-    next unless thing.parent == actor
-    thing.parent = supporter
-    actor.tell "You put #{the thing} on #{the supporter}."
-  end
-
-  respond :place, children, available(Supporter) do |actor, thing, supporter|
-    thing.parent = supporter
-    actor.tell "You put #{the thing} on #{the supporter}."
-  end
-
-  interpret 'put :thing on :supporter', 'place :thing :supporter'
-  interpret 'put :thing down on :supporter', 'place :thing :supporter'
-  interpret 'set :thing on :supporter', 'place :thing :supporter'
-  interpret 'set :thing down on :supporter', 'place :thing :supporter'
-  interpret 'drop :thing on :supporter', 'place :thing :supporter'
-  interpret 'place :thing on :supporter', 'place :thing :supporter'
-end

data/lib/gamefic-standard/actions/pronouns.rb

@@ -1,28 +0,0 @@
-# frozen_string_literal: true
-
-Gamefic::Standard.script do
-  introduction do |actor|
-    actor[:standard_pronoun_targets] = []
-  end
-
-  after_action do |action|
-    next unless action.verb
-
-    action.actor[:standard_pronoun_targets].replace action.arguments.that_are(Thing)
-  end
-
-  meta nil, plaintext do |actor, string|
-    keywords = string.keywords
-    list = actor.epic.synonyms
-    next actor.proceed unless list.include?(keywords.first&.to_sym)
-
-    xlation = keywords[1..].map do |word|
-      next word unless %w[him her it them].include?(word)
-
-      actor[:standard_pronoun_targets].find { |obj| Grammar::Pronoun.objective(obj) == word }
-    end
-    next actor.proceed if xlation.any?(&:nil?) || xlation.that_are(Thing).empty?
-
-    actor.perform "#{keywords[0].to_sym} #{xlation.join(' ')}"
-  end
-end

data/lib/gamefic-standard/actions/quit.rb

@@ -1,10 +0,0 @@
-Gamefic::Standard.script do
-  yes_or_no :standard_confirm_quit do |actor, props|
-    actor.cue :default_conclusion if props.yes?
-  end
-
-  meta :quit do |actor|
-    actor.tell "Are you sure you want to quit?"
-    actor.cue :standard_confirm_quit
-  end
-end

data/lib/gamefic-standard/actions/repeat.rb

@@ -1,14 +0,0 @@
-# frozen_string_literal: true
-
-Gamefic::Standard.script do
-  meta :repeat do |actor|
-    if actor.last_input && !actor.last_input.empty?
-      actor.tell "Repeating <kbd>\"#{actor.last_input}\"</kbd>..."
-      actor.queue.push actor.last_input
-    else
-      actor.tell "You don't have a previous command to repeat right now."
-    end
-  end
-
-  interpret 'again', 'repeat'
-end

data/lib/gamefic-standard/actions/save-restore-undo.rb

@@ -1,18 +0,0 @@
-# frozen_string_literal: true
-
-Gamefic::Standard.script do
-  # Save, Restore, and Undo need to be handled by the game client. They have
-  # default implementations here to make them available in help.
-
-  meta :save do |actor|
-    actor.tell "<kbd>Save</kbd> is not available."
-  end
-
-  meta :restore do |actor|
-    actor.tell "<kbd>Restore</kbd> is not available."
-  end
-
-  meta :undo do |actor|
-    actor.tell "<kbd>Undo</kbd> is not available."
-  end
-end

data/lib/gamefic-standard/actions/search.rb

@@ -1,26 +0,0 @@
-Gamefic::Standard.script do
-  respond :search, available(Thing) do |actor, thing|
-    actor.execute :look, thing
-  end
-
-  respond :search, available(Receptacle) do |actor, thing|
-    if thing.accessible?
-      itemized = thing.children.that_are_not(proc(&:attached?)).that_are(proc(&:itemized?))
-      if itemized.empty?
-        actor.tell "There's nothing inside #{the thing}."
-      else
-        actor.tell "You see #{itemized.join_and} in #{the thing}." unless itemized.empty?
-      end
-    else
-      actor.tell "You can't see inside #{the thing}."
-    end
-  end
-
-  respond :search, available(Container, proc(&:closed?)) do |actor, container|
-    actor.execute :open, container
-    actor.proceed if container.open?
-  end
-
-  interpret 'look inside :thing', 'search :thing'
-  interpret 'look in :thing', 'search :thing'
-end

data/lib/gamefic-standard/actions/take.rb

@@ -1,40 +0,0 @@
-Gamefic::Standard.script do
-  respond :take, available do |actor, thing|
-    if thing.parent == actor
-      actor.tell "You're already carrying #{the thing}."
-    elsif thing.portable?
-      if actor.parent != thing.parent
-        actor.tell "You take #{the thing} from #{the thing.parent}."
-      else
-        actor.tell "You take #{the thing}."
-      end
-      thing.parent = actor
-    else
-      actor.tell "You can't take #{the thing}."
-    end
-  end
-
-  respond :take, available(proc(&:attached?)) do |actor, thing|
-    actor.tell "#{The thing} is attached to #{the thing.parent}."
-  end
-
-  respond :take, available(Rubble) do |actor, rubble|
-    actor.tell "You don't have any use for #{the rubble}."
-  end
-
-  respond :take, plaintext(/^(all|everything)$/) do |actor, _all|
-    items = Gamefic::Scope::Family.matches(actor)
-                                  .select(&:portable?)
-                                  .reject { |item| actor.flatten.include?(item) }
-    if items.empty?
-      actor.tell "You don't see anything you can carry."
-    else
-      items.each { |item| actor.execute :take, item }
-    end
-  end
-
-  interpret "get :thing", "take :thing"
-  interpret "pick up :thing", "take :thing"
-  interpret "pick :thing up", "take :thing"
-  interpret "carry :thing", "take :thing"
-end

data/lib/gamefic-standard/actions/talk.rb

@@ -1,37 +0,0 @@
-Gamefic::Standard.script do
-  respond :talk do |actor|
-    actor.tell "You talk to yourself."
-  end
-
-  respond :talk, myself do |actor, yourself|
-    actor.execute :talk
-  end
-
-  respond :talk, available do |actor, thing|
-    actor.tell "Nothing happens."
-  end
-
-  respond :talk, Character do |actor, character|
-    actor.tell "#{The character} has nothing to say."
-  end
-
-  respond :talk, Character, plaintext do |actor, character, text|
-    actor.tell "#{The character} has nothing to say about #{text}."
-  end
-
-  interpret "talk to :character", "talk :character"
-  interpret "talk to :character about :subject", "talk :character :subject"
-  interpret "ask :character :subject", "talk :character :subject"
-  interpret "ask :character about :subject", "talk :character :subject"
-  interpret "tell :character :subject", "talk :character :subject"
-  interpret "tell :character about :subject", "talk :character :subject"
-  interpret "ask :character for :subject", "talk :character :subject"
-  interpret "speak :character", "talk :character"
-  interpret "speak to :character", "talk :character"
-  interpret "speak :character :subject", "talk :character :subject"
-  interpret "speak :character about :subject", "talk :character :subject"
-  interpret "speak to :character about :subject", "talk :character :subject"
-  interpret "speak to :character :subject", "talk :character :subject"
-  interpret "discuss :subject :character", "talk :character :subject"
-  interpret "discuss :subject with :character", "talk :character :subject"
-end

data/lib/gamefic-standard/actions/unlock.rb

@@ -1,25 +0,0 @@
-Gamefic::Standard.script do
-  respond :unlock, available(Lockable) do |actor, thing|
-    if thing.has_lock_key? && actor.children.include?(thing.lock_key)
-      actor.execute :unlock, thing, thing.lock_key
-    else
-      actor.tell "You can't unlock #{the thing}."
-    end
-  end
-
-  respond :unlock, available(Lockable, proc(&:has_lock_key?)), children do |actor, thing, key|
-    if thing.lock_key == key
-      thing.locked = false
-      actor.tell "You unlock #{the thing} with #{the key}."
-    else
-      actor.tell "You can't unlock #{the thing} with #{the key}."
-    end
-  end
-
-  respond :unlock, available(Lockable, proc(&:has_lock_key?)), available do |actor, _thing, key|
-    actor.execute :take, key if key.parent != actor
-    actor.proceed if key.parent == actor
-  end
-
-  interpret "unlock :container with :key", "unlock :container :key"
-end

data/lib/gamefic-standard/actions/wait.rb

@@ -1,7 +0,0 @@
-Gamefic::Standard.script do
-  respond :wait do |actor|
-    actor.tell "Time passes."
-  end
-
-  interpret 'z', 'wait'
-end

data/lib/gamefic-standard/actions.rb

@@ -1,23 +0,0 @@
-require 'gamefic-standard/actions/nil'
-require 'gamefic-standard/actions/attack'
-require 'gamefic-standard/actions/drop'
-require 'gamefic-standard/actions/enter'
-require 'gamefic-standard/actions/open'
-require 'gamefic-standard/actions/close'
-require 'gamefic-standard/actions/lock'
-require 'gamefic-standard/actions/unlock'
-require 'gamefic-standard/actions/go'
-require 'gamefic-standard/actions/insert'
-require 'gamefic-standard/actions/inventory'
-require 'gamefic-standard/actions/leave'
-require 'gamefic-standard/actions/look'
-require 'gamefic-standard/actions/search'
-require 'gamefic-standard/actions/place'
-require 'gamefic-standard/actions/quit'
-require 'gamefic-standard/actions/take'
-require 'gamefic-standard/actions/move'
-require 'gamefic-standard/actions/talk'
-require 'gamefic-standard/actions/wait'
-require 'gamefic-standard/actions/repeat'
-require 'gamefic-standard/actions/save-restore-undo'
-require 'gamefic-standard/actions/pronouns'

data/lib/gamefic-standard/articles.rb

@@ -1,42 +0,0 @@
-module Articles
-  # Get a name for the entity with an indefinite article (unless the entity
-  # has a proper name).
-  #
-  # @param entity [Gamefic::Entity]
-  # @return [String]
-  def a(entity)
-    entity.indefinitely
-  end
-  alias an a
-
-  # Get a name for the entity with a definite article (unless the entity has
-  # a proper name).
-  #
-  # @param entity [Gamefic::Entity]
-  # @return [String]
-  def the(entity)
-    entity.definitely
-  end
-
-  # Get a capitalized name for the entity with an indefinite article (unless
-  # the entity has a proper name).
-  #
-  # @param entity [Gamefic::Entity]
-  # @return [String]
-  def a_(entity)
-    entity.indefinitely.cap_first
-  end
-  alias an_ a_
-  alias A a_
-  alias An a_
-
-  # Get a capitalized name for the entity with a definite article (unless
-  # the entity has a proper name).
-  #
-  # @param entity [Gamefic::Entity]
-  # @return [String]
-  def the_(entity)
-    entity.definitely.cap_first
-  end
-  alias The the_
-end

data/lib/gamefic-standard/entities/character.rb

@@ -1,2 +0,0 @@
-Character = Gamefic::Actor
-Character.set_default gender: :other

data/lib/gamefic-standard/entities/container.rb

@@ -1,8 +0,0 @@
-# frozen_string_literal: true
-
-# An openable and lockable receptacle.
-#
-class Container < Receptacle
-  include Openable
-  include Lockable
-end

data/lib/gamefic-standard/entities/door.rb

@@ -1,42 +0,0 @@
-# frozen_string_literal: true
-
-# An openable portal.
-#
-class Door < Portal
-  include Openable
-  include Lockable
-
-  def post_initialize
-    update_reverse_open
-  end
-
-  def open= bool
-    super
-    update_reverse_open
-  end
-
-  def locked= bool
-    super
-    update_reverse_lock
-  end
-
-  def two_way_lock_key= key
-    lock_key = key
-    return if reverse.nil?
-    reverse.lock_key = key
-  end
-
-  private
-
-  def update_reverse_open
-    rev = find_reverse
-    return if rev.nil? || rev.open? == open?
-    rev.open = open?
-  end
-
-  def update_reverse_lock
-    rev = find_reverse
-    return if rev.nil? || rev.locked? == locked?
-    rev.locked = locked?
-  end
-end

data/lib/gamefic-standard/entities/fixture.rb

@@ -1,4 +0,0 @@
-# frozen_string_literal: true
-
-class Fixture < Thing
-end

data/lib/gamefic-standard/entities/item.rb

@@ -1,7 +0,0 @@
-# frozen_string_literal: true
-
-# An entity that is portable by default.
-#
-class Item < Thing
-  set_default portable: true
-end

data/lib/gamefic-standard/entities/portal.rb

@@ -1,46 +0,0 @@
-# frozen_string_literal: true
-
-# An entity that provides access from one room to another.
-#
-class Portal < Thing
-  # @return [Gamefic::Entity]
-  attr_accessor :destination
-
-  # Get the ordinal direction of this Portal
-  # Portals have distinct direction and name properties so games can display a
-  # bare compass direction for exits, e.g., "south" vs. "the southern door."
-  #
-  # A portal's destination can also be nil, in which case it can be referenced
-  # in commands by its destination, e.g., "go to the house."
-  #
-  # @return [Direction, nil]
-  attr_reader :direction
-
-  # Find the portal in the destination that returns to this portal's parent
-  #
-  # @return [Room, nil]
-  def reverse
-    return nil if destination.nil?
-
-    destination.children.that_are(Portal).find do |portal|
-      portal.destination == parent
-    end
-  end
-  alias find_reverse reverse
-
-  def direction= dir
-    @direction = Direction.find(dir)
-  end
-
-  def name
-    @name || direction&.name || destination.name
-  end
-
-  def instruction
-    direction || (destination ? "to #{destination.definitely}" : name)
-  end
-
-  def synonyms
-    "#{super} #{@destination} #{@direction} #{!direction.nil? ? direction.synonyms : ''}"
-  end
-end

data/lib/gamefic-standard/entities/receptacle.rb

@@ -1,5 +0,0 @@
-# frozen_string_literal: true
-
-class Receptacle < Thing
-  include Enterable
-end

data/lib/gamefic-standard/entities/room.rb

@@ -1,46 +0,0 @@
-# frozen_string_literal: true
-
-class Room < Thing
-  attr_writer :explicit_exits
-
-  set_default explicit_exits: true
-
-  def explicit_exits?
-    @explicit_exits
-  end
-
-  def tell(message)
-    children.each { |c| c.tell message }
-  end
-
-  # @return [Array<Portal>]
-  def portals
-    children.that_are(Portal)
-  end
-
-  # @param destination [Room]
-  # @param direction [Direction, String, nil]
-  # @param type [Class<Portal>]
-  # @param two_way [Boolean]
-  # @return [Portal, Array<Portal>]
-  def connect destination, direction: nil, type: Portal, two_way: true
-    direction = Direction.find(direction)
-    here = type.new(parent: self,
-                      destination: destination,
-                      direction: Direction.find(direction))
-    return here unless two_way
-
-    there = type.new(parent: destination, destination: self, direction: direction&.reverse)
-    [here, there]
-  end
-
-  class << self
-    def explicit_exits?
-      default_attributes[:explicit_exits]
-    end
-
-    def explicit_exits=(bool)
-      set_default explicit_exits: bool
-    end
-  end
-end

data/lib/gamefic-standard/entities/rubble.rb

@@ -1,12 +0,0 @@
-# frozen_string_literal: true
-
-require 'gamefic-standard/entities/scenery'
-
-# Rubble is Scenery with slightly modified action responses.
-# Intended for things that might be portable but are useless.
-# Rule of thumb: Scenery is something that can't be carried,
-# like a table or the sky; and Rubble is something that might
-# be portable but is otherwise useless, like trash or debris.
-#
-class Rubble < Scenery
-end

data/lib/gamefic-standard/entities/scenery.rb

@@ -1,9 +0,0 @@
-# frozen_string_literal: true
-
-# Scenery is an entity that is not itemized by default. They're typically used
-# to provide a description for objects that can be observed but do not respond
-# to any other interactions.
-#
-class Scenery < Thing
-  set_default itemized: false
-end

data/lib/gamefic-standard/entities/supporter.rb

@@ -1,5 +0,0 @@
-# frozen_string_literal: true
-
-class Supporter < Thing
-  include Enterable
-end

data/lib/gamefic-standard/entities/thing.rb

@@ -1,9 +0,0 @@
-# frozen_string_literal: true
-
-class Gamefic::Entity
-  include Grammar::Attributes
-  include Standardized
-end
-
-Thing = Gamefic::Entity
-Thing.set_default itemized: true, portable: false

data/lib/gamefic-standard/entities.rb

@@ -1,12 +0,0 @@
-require 'gamefic-standard/entities/thing'
-require 'gamefic-standard/entities/character'
-require 'gamefic-standard/entities/fixture'
-require 'gamefic-standard/entities/item'
-require 'gamefic-standard/entities/portal'
-require 'gamefic-standard/entities/door'
-require 'gamefic-standard/entities/receptacle'
-require 'gamefic-standard/entities/container'
-require 'gamefic-standard/entities/room'
-require 'gamefic-standard/entities/scenery'
-require 'gamefic-standard/entities/rubble'
-require 'gamefic-standard/entities/supporter'

data/lib/gamefic-standard/give.rb

@@ -1,21 +0,0 @@
-module Gamefic::Standard::Give
-  extend Gamefic::Scriptable
-
-  script do
-    respond :give, available, children do |actor, _character, _gift|
-      actor.tell 'Nothing happens.'
-    end
-
-    respond :give, available(Character), available do |actor, character, gift|
-      actor.tell "#{The character} doesn't want #{the gift}."
-    end
-
-    respond :give, available(Character), available do |actor, _character, gift|
-      actor.execute :take, gift if gift.parent != actor
-
-      actor.proceed if gift.parent == actor
-    end
-
-    interpret 'give :gift to :character', 'give :character :gift'
-  end
-end