gamefic 0.2.0 → 0.6.0

data/lib/gamefic/import/basics.old/actions/container.rb

@@ -1,112 +0,0 @@
-respond :look, Query::Family.new(Container) do |actor, thing|
-  passthru
-  if thing.closeable?
-    actor.tell "#{thing.longname.specify.cap_first} is #{thing.closed? ? 'closed' : 'open'}."
-  end
-end
-
-respond :look_inside, Query::Family.new(Container) do |actor, container|
-  if container.closed?
-    actor.tell "#{container.longname.cap_first.specify} is closed."
-  else
-    if container.children.length == 0
-      actor.tell "You don't find anything."
-    else
-      if container.children.length == 1
-        actor.tell "#{container.longname.specify.cap_first} contains #{container.children[0].longname}."
-      else
-        actor.tell "#{container.longname.specify.cap_first} contains: #{container.children.join_and(', ')}."
-      end
-    end
-  end
-end
-xlate "look inside :container", :look_inside, :container
-xlate "search :container", :look_inside, :container
-xlate "look in :container", :look_inside, :container
-
-respond :look_in_at, Query::Family.new(Container), Query::Subquery.new(Entity) do |actor, container, item|
-  if container.closed?
-    actor.tell "#{container.longname.cap_first.specify} is closed."
-  else
-    actor.tell item.description
-  end
-end
-
-respond :look_in_at, Query::Family.new(Container), Query::Text.new() do |actor, container, item|
-  if container.closed?
-    actor.tell "#{container.longname.cap_first.specify} is closed."
-  else
-    passthru
-  end
-end
-
-xlate "look at :item in :container", :look_in_at, :container, :item
-xlate "look :item in :container", :look_in_at, :container, :item
-
-respond :take_from, Query::Family.new(Container), Query::Subquery.new(Thing) do |actor, container, item|
-  # TODO: Make sure thing is portable
-  if container.closed?
-    actor.tell "#{container.longname.cap_first.specify} is closed."
-  else
-    item.parent = actor
-    actor.tell "You take #{item.longname} from #{container.longname.specify}."
-  end
-end
-xlate "take :item from :container", :take_from, :container, :item
-xlate "get :item from :container", :take_from, :container, :item
-xlate "remove :item from :container", :take_from, :container, :item
-
-respond :drop_in, Query::Family.new(Container), Query::Children.new() do |actor, container, item|
-  if container.closed?
-    actor.tell "#{container.longname.cap_first.specify} is closed."
-  else
-    item.parent = container
-    actor.tell "You put #{item.longname} in #{container.longname}."
-  end
-end
-xlate "drop :item in :container", :drop_in, :container, :item
-xlate "put :item in :container", :drop_in, :container, :item
-xlate "place :item in :container", :drop_in, :container, :item
-
-respond :open, Query::Text.new() do |actor, string|
-  actor.tell "You don't see any \"#{string}\" here."
-end
-
-respond :open, Query::Family.new(Entity) do |actor, thing|
-  actor.tell "You can't open #{thing.longname.specify}."
-end
-
-respond :open, Query::Family.new(Container) do |actor, container|
-  if container.closeable?
-    if container.closed?
-      actor.tell "You open #{container.longname.specify}."
-      container.closed = false
-      actor.perform "look inside #{container.longname}"
-    else
-      actor.tell "It's already open."
-    end
-  else
-    actor.tell "You can't open #{container.longname.specify}."
-  end
-end
-
-respond :close, Query::Text.new() do |actor, string|
-  actor.tell "You don't see any \"#{string}\" here."
-end
-
-respond :close, Query::Family.new(Entity) do |actor, thing|
-  actor.tell "You can't close #{thing.longname.specify}."
-end
-
-respond :close, Query::Family.new(Container) do |actor, container|
-  if container.closeable?
-    if container.closed?
-      actor.tell "It's already closed."
-    else
-      actor.tell "You close #{container.longname.specify}."
-      container.closed = true
-    end
-  else
-    actor.tell "You can't close #{container.longname.specify}."
-  end  
-end

data/lib/gamefic/import/basics.old/actions/inventory.rb

@@ -1,50 +0,0 @@
-respond :inventory do |actor|
-  if actor.children.length > 0
-    actor.tell actor.children.join(', ')
-  else
-    actor.tell "You aren't carrying anything."
-  end
-end
-xlate "i", :inventory
-
-respond :take, Query::Siblings.new(Thing) do |actor, thing|
-  # TODO: Make sure the thing is portable or whatever
-  thing.parent = actor
-  actor.tell "You take #{the thing}.", true
-end
-
-respond :take, Query::Siblings.new() do |actor, thing|
-  actor.tell "You can't carry #{the thing}."
-end
-
-respond :take, Query::Text.new() do |actor, thing|
-  containers = actor.children.that_are(Container)
-  containers = containers + actor.parent.children.that_are(Container)
-  found = false
-  containers.each { |container|
-    if container.closed? == false
-      query = Query::Children.new(Portable)
-      result = query.execute(container, thing)
-      if result.objects.length == 1
-        found = true
-        actor.perform "take #{result.objects[0].name} from #{container.name}"
-        break
-      end
-    end
-  }
-  if found == false
-    actor.tell "You don't see any \"#{thing}\" here."
-  end
-end
-
-respond :drop, Query::Children.new() do |actor, thing|
-  thing.parent = actor.parent
-  actor.tell "You drop #{the thing}.", true
-end
-
-xlate "get :thing", :take, :thing
-xlate "pick :thing up", :take, :thing
-xlate "pick up :thing", :take, :thing
-
-xlate "put down :thing", :drop, :thing
-xlate "put :thing down", :drop, :thing

data/lib/gamefic/import/basics.old/actions/look.rb

@@ -1,53 +0,0 @@
-OptionSet.new(Thing, :itemized)
-
-respond :look, Query::Parent.new() do |actor, room|
-  actor.tell actor.parent.name.cap_first
-  actor.tell actor.parent.description
-  chars = actor.parent.children.that_are(Character) - [actor]
-  if chars.length > 0
-    actor.tell "Others here: #{chars.join(", ")}"
-  end
-  items = actor.parent.children.that_are(:itemized) - [actor]
-  if items.length > 0
-    actor.tell "Visible items: #{items.join(", ")}"
-  end
-  portals = actor.parent.children.that_are(Portal)
-  if portals.length > 0
-    actor.tell "Obvious exits: #{portals.join(', ')}"
-  else
-    actor.tell "Obvious exits: none"	
-  end
-end
-xlate "look", :look, "around"
-
-respond :look, Query::Family.new() do |actor, thing|
-  actor.tell thing.description
-end
-
-respond :look, Query::Text.new() do |actor, string|
-  containers = actor.children.that_are(Container)
-  containers = containers + actor.parent.children.that_are(Container)
-  found = false
-  containers.each { |container|
-    if container.closed? == false
-      query = Query::Children.new(Portable)
-      result = query.execute(container, string)
-      if result.objects.length == 1
-        found = true
-        actor.tell "You look at #{result.objects[0].name.specify} in #{container.name.specify}."
-        actor.perform "look #{result.objects[0].name} in #{container.name}"
-        break
-      end
-    end
-  }
-  if found == false
-    actor.tell "You don't see any \"#{string}\" here."
-  end
-end
-
-xlate "look at :thing", :look, :thing
-xlate "l", :look
-xlate "l :thing", :look, :thing
-xlate "examine :thing", :look, :thing
-xlate "exam :thing", :look, :thing
-xlate "x :thing", :look, :thing

data/lib/gamefic/import/basics.old/actions/meta.rb

@@ -1,6 +0,0 @@
-meta :quit do |actor|
-  actor.state = GameOverState.new(actor)
-end
-meta :commands do |actor|
-  actor.tell actor.plot.commandwords.sort.join(", ")
-end

data/lib/gamefic/import/basics.old/actions/traversal.rb

@@ -1,35 +0,0 @@
-respond :go, Query::Siblings.new(Portal) do |actor, portal|
-  actor.parent = portal.destination
-  actor.tell "You go #{portal.name}."
-  actor.perform "look"
-end
-
-respond :go, Query::Text.new() do |actor, string|
-  actor.tell "You don't see any exit \"#{string}\" from here."
-end
-
-respond :go do |actor|
-  actor.tell "Where do you want to go?"
-end
-
-xlate "north", :go, "north"
-xlate "south", :go, "south"
-xlate "west", :go, "west"
-xlate "east", :go, "east"
-xlate "up", :go, "up"
-xlate "down", :go, "down"
-xlate "northwest", :go, "northwest"
-xlate "northeast", :go, "northeast"
-xlate "southwest", :go, "southwest"
-xlate "southeast", :go, "southeast"
-
-xlate "n", :go, "north"
-xlate "s", :go, "south"
-xlate "w", :go, "west"
-xlate "e", :go, "east"
-xlate "u", :go, "up"
-xlate "d", :go, "down"
-xlate "nw", :go, "northwest"
-xlate "ne", :go, "northeast"
-xlate "sw", :go, "southwest"
-xlate "se", :go, "southeast"

data/lib/gamefic/import/basics.old/actions.rb

@@ -1 +0,0 @@
-import 'basics/actions/*'

data/lib/gamefic/import/basics.old/entities/container.rb

@@ -1,3 +0,0 @@
-class Container < Thing
-
-end

data/lib/gamefic/import/basics.old/entities/fixture.rb

@@ -1,3 +0,0 @@
-class Fixture < Entity
-
-end

data/lib/gamefic/import/basics.old/entities/item.rb

@@ -1,3 +0,0 @@
-class Item < Thing
-
-end

data/lib/gamefic/import/basics.old/entities/portal.rb

@@ -1,43 +0,0 @@
-class Portal < Entity
-  attr_accessor :destination
-  #def initialize
-  #	super
-  #	@destination = nil
-  #end
-  def find_reverse
-    rev = Portal.reverse(self.name)
-    if rev != nil
-      destination.children.that_are(Portal).each { |c|
-        if c.name == rev
-          return c
-        end
-      }
-    end
-  end
-  def self.reverse(direction)
-    case direction.downcase
-      when "north"
-        "south"
-      when "south"
-        "north"
-      when "west"
-        "east"
-      when "east"
-        "west"
-      when "northwest"
-        "southeast"
-      when "southeast"
-        "northwest"
-      when "northeast"
-        "southwest"
-      when "southwest"
-        "northeast"
-      when "up"
-        "down"
-      when "down"
-        "up"
-      else
-        nil
-    end
-  end
-end

data/lib/gamefic/import/basics.old/entities/room.rb

@@ -1,27 +0,0 @@
-import 'basics/entities/portal'
-
-class Room < Entity
-  def connect(destination, direction, type = Portal, two_way = true)
-    portal = type.new self.plot, :name => direction, :parent => self, :destination => destination
-    if two_way == true
-      reverse = Portal.reverse(direction)
-      if reverse == nil
-        raise "\"#{direction.cap_first}\" does not have an opposite direction"
-      end
-      portal2 = type.new(self.plot, {
-        :name => reverse,
-        :parent => destination,
-        :destination => self
-      })
-    end
-    portal
-  end
-  def synonyms
-    super.to_s + " around"
-  end
-  def tell(message, refresh = false)
-    children.each { |c|
-      c.tell message, refresh
-    }
-  end
-end

data/lib/gamefic/import/basics.old/entities/scenery.rb

@@ -1,3 +0,0 @@
-class Scenery < Entity
-
-end

data/lib/gamefic/import/basics.old/entities/supporter.rb

@@ -1,3 +0,0 @@
-class Supporter < Thing
-
-end

data/lib/gamefic/import/basics.old/entities.rb

@@ -1 +0,0 @@
-import 'basics/entities/*'

data/lib/gamefic/import/basics.old/room_modes.rb

@@ -1,48 +0,0 @@
-module RoomModes
-  attr_writer :description_mode
-  def description_seen
-    @description_seen ||= Array.new
-  end
-  def description_seen=(value)
-    if value.kind_of?(Array)
-      @description_seen = value
-    else
-      raise "Character#description_seen must be an Array"
-    end
-  end
-  def description_mode
-    @description_mode ||= "verbose"
-  end
-end
-
-class Character
-  include RoomModes
-end
-
-respond :go, Query::Siblings.new(Portal) do |actor, portal|
-  actor.tell "You go #{portal.name}."
-  actor.parent = portal.destination
-  if actor.description_mode == "superbrief" or (actor.description_mode == "brief" and actor.description_seen.include?(actor.parent))
-    actor.tell actor.parent.longname.cap_first
-  else
-    actor.perform "look"
-  end
-  if actor.description_seen.include?(actor.parent) == false
-    actor.description_seen.push actor.parent
-  end
-end
-
-respond :brief do |actor|
-  actor.description_mode = "brief"
-  actor.tell "You are now in BRIEF mode. Detailed descriptions of rooms will only be displayed the first time you visit them. Other options are SUPERBRIEF and VERBOSE."
-end
-
-respond :verbose do |actor|
-  actor.description_mode = "verbose"
-  actor.tell "You are now in VERBOSE mode. Detailed descriptions will be displayed every time you enter a room. Other options are BRIEF and SUPERBRIEF."
-end
-
-respond :superbrief do |actor|
-  actor.description_mode = "superbrief"
-  actor.tell "You are now in SUPERBRIEF mode. Detailed room descriptions will never be displayed unless you LOOK AROUND. Other options are BRIEF and VERBOSE."
-end

data/lib/gamefic/import/basics.rb

@@ -1,6 +0,0 @@
-import 'basics/entities/entity'
-import 'basics/entities/thing'
-import 'basics/entities/*'
-import 'basics/queries/*'
-import 'basics/actions/*'
-import 'basics/rules/*'

data/lib/gamefic/import/room_modes.rb

@@ -1,48 +0,0 @@
-module RoomModes
-  attr_writer :description_mode
-  def description_seen
-    @description_seen ||= Array.new
-  end
-  def description_seen=(value)
-    if value.kind_of?(Array)
-      @description_seen = value
-    else
-      raise "Character#description_seen must be an Array"
-    end
-  end
-  def description_mode
-    @description_mode ||= "verbose"
-  end
-end
-
-class Character
-  include RoomModes
-end
-
-respond :go, Query::Siblings.new(Portal) do |actor, portal|
-  actor.tell "You go #{portal.name}."
-  actor.parent = portal.destination
-  if actor.description_mode == "superbrief" or (actor.description_mode == "brief" and actor.description_seen.include?(actor.parent))
-    actor.tell actor.parent.name.cap_first
-  else
-    actor.perform "look"
-  end
-  if actor.description_seen.include?(actor.parent) == false
-    actor.description_seen.push actor.parent
-  end
-end
-
-respond :brief do |actor|
-  actor.description_mode = "brief"
-  actor.tell "You are now in BRIEF mode. Detailed descriptions of rooms will only be displayed the first time you visit them. Other options are SUPERBRIEF and VERBOSE."
-end
-
-respond :verbose do |actor|
-  actor.description_mode = "verbose"
-  actor.tell "You are now in VERBOSE mode. Detailed descriptions will be displayed every time you enter a room. Other options are BRIEF and SUPERBRIEF."
-end
-
-respond :superbrief do |actor|
-  actor.description_mode = "superbrief"
-  actor.tell "You are now in SUPERBRIEF mode. Detailed room descriptions will never be displayed unless you LOOK AROUND. Other options are BRIEF and VERBOSE."
-end

data/lib/gamefic/import/standard.rb

@@ -1 +0,0 @@
-import 'basics'

data/lib/gamefic/meta.rb

@@ -1,12 +0,0 @@
-module Gamefic
-
-  class Meta < Action
-    def initialize *args
-      super
-      @plot.before @command, *@queries do |*args|
-        @plot.pass :everything
-      end
-    end
-  end
-  
-end

data/lib/gamefic/optionset.rb

@@ -1,114 +0,0 @@
-class OptionSet
-  attr_accessor :options
-  attr_reader :default
-  def initialize *args
-    @options = args
-    if @options.length == 0
-      raise "No options defined"
-    end
-    if @options.length == 1
-      raise "Option sets require at least 2 options"
-    end
-    @default = @options[0]
-  end
-  def default=(val)
-    if @options.include?(val) == false
-      raise "Option #{val} not available"
-    end
-    @default = val
-  end
-end
-
-module OptionMap
-  def option_map
-    @option_map ||= Hash.new
-  end
-  def options cls, *args
-    os = OptionSet.new *args
-    option_map[cls] ||= {}
-    os.options.each { |o|
-      if option_map[cls][o] != nil
-        raise "Option #{o} already exists"
-      end
-      option_map[cls][o] = os
-    }
-    os
-  end
-  def get_default_for(cls, opt)
-    os = get_option_set_for(cls, opt)
-    if os == nil
-      raise "Option does not exist"
-    end
-    return os.default
-  end
-  def set_default_for(cls, opt)
-    os = get_option_set_for(cls, opt)
-    os.default = opt
-  end
-  def get_all_option_sets_for(cls)
-    all = []
-    option_map.each_value { |s|
-      s.each_key { |o|
-        set = get_option_set_for(cls, o, false)
-        if set != nil
-          all.push set
-        end
-      }
-    }
-    all.uniq
-  end
-  def get_option_set_for(cls, opt, create_if_inherited = true)
-    if option_map[cls] and option_map[cls][opt]
-      return option_map[cls][opt]
-    elsif cls.superclass
-      os = get_option_set_for(cls.superclass, opt, false)
-      if os != nil and create_if_inherited == true
-        os = options(cls, *os.options)
-      end
-      return os
-    end
-    return nil
-  end
-end
-
-module OptionSettings
-  attr_reader :option_mapper
-  def option_array
-    @option_array ||= []
-  end
-  def option_select(opt)
-    if option_array.include?(opt) == false
-      set = option_mapper.get_option_set_for(self.class, opt)
-      if set == nil
-        raise "Invalid option #{opt}"
-      end
-      (set.options - [opt]).each { |o|
-        option_array.delete o
-      }
-      option_array.push opt
-    end
-  end
-  def option_unselect(opt)
-    set = option_mapper.get_option_set_for(self.class, opt)
-    if set == nil
-      raise "Invalid option #{opt}"
-    end
-    option_array.delete opt
-  end
-  def option_selected?(opt)
-    set = option_mapper.get_option_set_for(self.class, opt)
-    return false if set.nil?
-    return true if option_array.include?(opt)
-    other = set.options & option_array
-    if other.length == 0 and set.default == opt
-      return true
-    end
-    return false
-  end
-  def is(opt)
-    option_select opt
-  end
-  def is?(opt)
-    option_selected?(opt)
-  end
-end

data/lib/gamefic/requirement.rb

@@ -1,14 +0,0 @@
-module Gamefic
-
-  class Requirement
-    def initialize plot, name, &proc
-      @plot = plot
-      @name = name
-      @proc = proc
-    end
-    def test actor
-      return @proc.call actor
-    end
-  end
-
-end

data/lib/gamefic/story.rb

@@ -1,14 +0,0 @@
-module Gamefic
-
-  class Story < Plot
-    def post_initialize
-			Action.defaults.each {|a|
-				add_action a
-			}
-			Syntax.defaults.each {|s|
-				add_syntax s
-			}
-    end
-  end
-
-end

data/lib/gamefic/thing.rb

@@ -1,7 +0,0 @@
-module Gamefic
-
-  class Thing < Entity
-  
-  end
-
-end