gamefic-standard 2.0.0

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

@@ -0,0 +1,38 @@
+Gamefic.script do
+  meta nil, Gamefic::Query::Text.new() do |actor, string|
+    words = string.split_words
+    list = verbs
+    if list.include?(words[0])
+      if words.length > 1
+        actor.tell "I recognize '#{words[0]}' as a verb but could not understand the rest of your sentence."
+      else
+        actor.tell "I recognize '#{words[0]}' as a verb but could not understand it in this context."
+      end
+    else
+      found = []
+      list.each { |c|
+        next if c.include?('_')
+        if c.length > words[0].length and c.start_with?(words[0])
+          found.push c
+        end
+      }
+      if found.length == 1
+        words[0] = found[0]
+        actor.perform words.join(' ')
+      elsif found.length > 1 and words[0].length > 2
+        actor.tell "I'm not sure if #{words[0]} means #{found.join_and(', ', ' or ')}."
+      else
+        actor.tell "I don't recognize '#{words[0]}' as a verb."
+      end
+    end
+  end
+
+  meta nil, Gamefic::Query::Text.new(/^it$/) do |actor, string|
+    words = string.split_words
+    if verbs(to_s: true).include?(words[0])
+      actor.tell "I'm not sure what you mean by \"it.\""
+    else
+      actor.proceed
+    end
+  end
+end

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

@@ -0,0 +1,43 @@
+Gamefic.script do
+  respond :place, Use.children, Use.reachable do |actor, thing, supporter|
+    actor.tell "You can't put #{the thing} on #{the supporter}."
+  end
+
+  respond :place, Use.visible, Use.reachable(Supporter) do |actor, thing, supporter|
+    if thing.parent != actor
+      actor.perform :take, thing
+    end
+    if thing.parent == actor
+      thing.parent = supporter
+      actor.tell "You put #{the thing} on #{the supporter}."
+    end
+  end
+
+  respond :place, Use.children, Use.reachable(Supporter) do |actor, thing, supporter|
+    if thing.sticky?
+      actor.tell thing.sticky_message || "You need to keep #{the thing} for now."
+    else
+      thing.parent = supporter
+      actor.tell "You put #{the thing} on #{the supporter}."
+    end
+  end
+
+  respond :place, Use.visible, Use.text do |actor, thing, supporter|
+    actor.tell "You don't see anything called \"#{supporter}\" here."
+  end
+
+  respond :place, Use.text, Use.visible do |actor, thing, supporter|
+    actor.tell "You don't see anything called \"#{thing}\" here."
+  end
+
+  respond :place, Use.text, Use.text do |actor, thing, supporter|
+    actor.tell "I don't know what you mean by \"#{thing}\" or \"#{supporter}.\""
+  end
+
+  xlate "put :thing on :supporter", "place :thing :supporter"
+  xlate "put :thing down on :supporter", "place :thing :supporter"
+  xlate "set :thing on :supporter", "place :thing :supporter"
+  xlate "set :thing down on :supporter", "place :thing :supporter"
+  xlate "drop :thing on :supporter", "place :thing :supporter"
+  xlate "place :thing on :supporter", "place :thing :supporter"
+end

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

@@ -0,0 +1,14 @@
+Gamefic.script do
+  confirm_quit = yes_or_no do |actor, data|
+    if data.yes?
+      actor.cue default_conclusion
+    else
+      actor.cue default_scene
+    end
+  end
+
+  meta :quit do |actor|
+    actor.tell "Are you sure you want to quit?"
+    actor.cue confirm_quit
+  end
+end

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

@@ -0,0 +1,33 @@
+Gamefic.script do
+  respond :take, Use.text do |actor, text|
+    actor.tell "You don't see any \"#{text}\" here."
+  end
+
+  respond :take, Use.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, Use.available(:attached?) do |actor, thing|
+    actor.tell "#{The thing} is attached to #{the thing.parent}."
+  end
+
+  respond :take, Use.available(Rubble) do |actor, rubble|
+    actor.tell "You don't have any use for #{the rubble}."
+  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

@@ -0,0 +1,29 @@
+Gamefic.script do
+  respond :talk do |actor|
+    actor.tell "You talk to yourself."
+  end
+
+  respond :talk, Use.itself do |actor, yourself|
+    actor.perform :talk
+  end
+
+  respond :talk, Use.available do |actor, thing|
+    actor.tell "Nothing happens."
+  end
+
+  respond :talk, Use.available(Character) do |actor, character|
+    if actor == character
+      actor.perform :talk
+    else
+      actor.tell "#{The character} has nothing to say."
+    end
+  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"
+end

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

@@ -0,0 +1,5 @@
+Gamefic.script do
+  respond :wait do |actor|
+    actor.tell "Time passes."
+  end
+end

data/lib/gamefic-standard/articles.rb

@@ -0,0 +1,50 @@
+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
+
+class Gamefic::Plot
+  include Articles
+end
+
+class Gamefic::Subplot
+  include Articles
+end

data/lib/gamefic-standard/clothing.rb

@@ -0,0 +1,4 @@
+# @gamefic.script standard/clothing
+
+require 'gamefic-standard/clothing/entities'
+require 'gamefic-standard/clothing/actions'

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

@@ -0,0 +1,4 @@
+require 'gamefic-standard/clothing/actions/doff'
+require 'gamefic-standard/clothing/actions/drop'
+require 'gamefic-standard/clothing/actions/inventory'
+require 'gamefic-standard/clothing/actions/wear'

data/lib/gamefic-standard/clothing/actions/doff.rb

@@ -0,0 +1,14 @@
+Gamefic.script do
+  respond :doff, Gamefic::Query::Children.new(Clothing) do |actor, clothing|
+    if !clothing.attached?
+      actor.tell "You're not wearing #{the clothing}."
+    else
+      clothing.attached = false
+      actor.tell "You take off #{the clothing}."
+    end
+  end
+
+  xlate "remove :clothing", "doff :clothing"
+  xlate "take off :clothing", "doff :clothing"
+  xlate "take :clothing off", "doff :clothing"
+end

data/lib/gamefic-standard/clothing/actions/drop.rb

@@ -0,0 +1,10 @@
+Gamefic.script do
+  respond :drop, Gamefic::Query::Children.new(Clothing) do |actor, clothing|
+    if clothing.attached?
+      actor.perform :doff, clothing
+    end
+    if !clothing.attached?
+      actor.proceed
+    end
+  end
+end

data/lib/gamefic-standard/clothing/actions/inventory.rb

@@ -0,0 +1,16 @@
+Gamefic.script do
+  respond :inventory do |actor|
+    if actor.children.length > 0
+      carried = actor.children.that_are_not(:attached?)
+      worn = actor.children.that_are(:attached?)
+      if carried.length > 0
+        actor.tell "You are carrying #{carried.join_and}."
+      end
+      if worn.length > 0
+        actor.tell "You are wearing #{worn.join_and}."
+      end
+    else
+      actor.tell "You aren't carrying anything."
+    end
+  end
+end

data/lib/gamefic-standard/clothing/actions/wear.rb

@@ -0,0 +1,22 @@
+Gamefic.script do
+  respond :wear, Use.available(Clothing) do |actor, clothing|
+    if clothing.parent != actor
+      actor.tell "You don't have #{the clothing}."
+    end
+    if clothing.attached?
+      actor.tell "You're already wearing #{the clothing}."
+    else
+      already = actor.children.that_are(clothing.class).that_are(:attached?)
+      if already.length == 0
+        clothing.attached = true
+        actor.tell "You put on #{the clothing}."
+      else
+        actor.tell "You're already wearing #{an already[0]}."
+      end
+    end
+  end
+
+  xlate "put on :clothing", "wear :clothing"
+  xlate "put :clothing on", "wear :clothing"
+  xlate "don :clothing", "wear :clothing"
+end

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

@@ -0,0 +1,7 @@
+require 'gamefic-standard/clothing/entities/clothing'
+require 'gamefic-standard/clothing/entities/coat'
+require 'gamefic-standard/clothing/entities/gloves'
+require 'gamefic-standard/clothing/entities/hat'
+require 'gamefic-standard/clothing/entities/pants'
+require 'gamefic-standard/clothing/entities/shirt'
+require 'gamefic-standard/clothing/entities/shoes'

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

@@ -0,0 +1,5 @@
+class Clothing < Item
+  def worn?
+    self.parent.kind_of?(Character) and self.attached?
+  end
+end

data/lib/gamefic-standard/clothing/entities/coat.rb

@@ -0,0 +1,3 @@
+class Coat < Clothing
+
+end

data/lib/gamefic-standard/clothing/entities/gloves.rb

@@ -0,0 +1,3 @@
+class Gloves < Clothing
+
+end

data/lib/gamefic-standard/clothing/entities/hat.rb

@@ -0,0 +1,3 @@
+class Hat < Clothing
+
+end

data/lib/gamefic-standard/clothing/entities/pants.rb

@@ -0,0 +1,3 @@
+class Pants < Clothing
+
+end

data/lib/gamefic-standard/clothing/entities/shirt.rb

@@ -0,0 +1,3 @@
+class Shirt < Clothing
+
+end

data/lib/gamefic-standard/clothing/entities/shoes.rb

@@ -0,0 +1,3 @@
+class Shoes < Clothing
+
+end

data/lib/gamefic-standard/container.rb

@@ -0,0 +1,27 @@
+# @gamefic.script standard/container
+
+require 'gamefic-standard/openable'
+require 'gamefic-standard/lockable'
+
+class Container < Receptacle
+  include Openable
+  include Lockable
+end
+
+Gamefic.script do
+  respond :insert, Use.available, Use.available(Container) do |actor, thing, container|
+    if container.open?
+      actor.proceed
+    else
+      actor.tell "#{The container} is closed."
+    end
+  end
+
+  respond :leave, Use.parent(Container, :enterable?, :closed?) do |actor, container|
+    actor.tell "#{The container} is closed."
+  end
+
+  respond :enter, Use.siblings(Container, :enterable?, :closed?) do |actor, container|
+    actor.tell "#{The container} is closed."
+  end
+end

data/lib/gamefic-standard/direction.rb

@@ -0,0 +1,55 @@
+class Direction
+  attr_accessor :name, :adjective, :adverb, :reverse
+
+  def initialize args = {}
+    args.each { |key, value|
+      send "#{key}=", value
+    }
+    if !reverse.nil?
+      reverse.reverse = self
+    end
+  end
+
+  def adjective
+    @adjective || @name
+  end
+
+  def adverb
+    @adverb || @name
+  end
+
+  def reverse=(dir)
+    @reverse = dir
+  end
+
+  def synonyms
+    "#{adjective} #{adverb}"
+  end
+
+  def to_s
+    @name
+  end
+
+  class << self
+    def compass
+      if @compass.nil?
+        @compass = {}
+        @compass[:north] = Direction.new(:name => 'north', :adjective => 'northern')
+        @compass[:south] = Direction.new(:name => 'south', :adjective => 'southern', :reverse => @compass[:north])
+        @compass[:west] = Direction.new(:name => 'west', :adjective => 'western')
+        @compass[:east] = Direction.new(:name => 'east', :adjective => 'eastern', :reverse => @compass[:west])
+        @compass[:northwest] = Direction.new(:name => 'northwest', :adjective => 'northwestern')
+        @compass[:southeast] = Direction.new(:name => 'southeast', :adjective => 'southeastern', :reverse => @compass[:northwest])
+        @compass[:northeast] = Direction.new(:name => 'northeast', :adjective => 'northeastern')
+        @compass[:southwest] = Direction.new(:name => 'southwest', :adjective => 'southwestern', :reverse => @compass[:northeast])
+        @compass[:up] = Direction.new(:name => 'up', :adjective => 'upwards')
+        @compass[:down] = Direction.new(:name => 'down', :adjective => 'downwards', :reverse => @compass[:up])
+      end
+      @compass
+    end
+
+    def find(dir)
+      compass[dir.to_s.downcase.to_sym]
+    end
+  end
+end

data/lib/gamefic-standard/edible.rb

@@ -0,0 +1,23 @@
+# @gamefic.script standard/edible
+
+module Edibility
+  attr_writer :edible
+  def edible?
+    @edible ||= false
+  end
+end
+
+class Thing
+  include Edibility
+end
+
+Gamefic.script do
+  respond :eat, Use.available do |actor, item|
+    actor.tell "You can't eat #{the item}."
+  end
+
+  respond :eat, Use.available(:edible?) do |actor, item|
+    actor.tell "You eat #{the item}."
+    destroy item
+  end
+end