gamefic 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: d39e0e4c0bdd08258174c87bfe75b1a44ab60643
+  data.tar.gz: 201eb4941dc0d59a784992c35068a379287d9e0e
+SHA512:
+  metadata.gz: 4939cd6592c098ce8d407b654c38c1ba75583b95b0581c8c834c3d973e9e415d36095317f837888b937e0ceb2231cfc80e003b3c59e9ff0c75b8547af4c8eb98
+  data.tar.gz: eece7938f58fdbf2746061eb85c2eb932fe0773afd966f544c3cb9c7ac87131da403b339cedd46bdc2ffb07fc4dda5a7626c675ed7b2dc569aa05698ea2a30f0

data/lib/gamefic/action.rb

@@ -0,0 +1,61 @@
+module Gamefic
+
+	class Action
+		attr_reader :command
+		@@defaults = Array.new
+		def initialize(story, command, *queries, &proc)
+			if (command.kind_of?(Symbol) == false)
+				raise "Action commands must be symbols"
+			end
+			if (queries.length + 1 != proc.arity) and (queries.length == 0 and proc.arity != -1)
+				raise "Number of contexts is not compatible with proc arguments"
+			end
+			@command = command
+			@queries = queries
+			@proc = proc
+			if story == nil
+				@@defaults.push self
+			else
+				story.send :add_action, self
+			end
+		end
+		def self.defaults
+			@@defaults.clone
+		end
+		def specificity
+			spec = 0
+			magnitude = 1
+			@queries.each { |q|
+				if q.kind_of?(Query)
+					spec += (q.specificity * magnitude)
+				else
+					spec += magnitude
+				end
+				magnitude = magnitude * 10
+			}
+			return spec
+		end
+		def key
+			@key
+		end
+		def queries
+			@queries
+		end
+		def proc
+			@proc
+		end
+		private
+			def self.explode(entity)
+				arr = Array.new
+				arr.push entity
+				cls = entity.class
+				while cls != Object
+					arr.push cls
+					cls = cls.superclass
+				end
+				arr.push String
+				arr.push nil
+			end
+	end
+
+end

data/lib/gamefic/action_ext/container.rb

@@ -0,0 +1,36 @@
+module Gamefic
+
+	Action.new nil, :look_inside, Query.new(:family, Container) do |actor, container|
+		if container.children.length == 0
+			actor.tell "You don't find anything."
+		else
+			actor.tell "#{container.longname} contains: #{container.children.join(', ')}"
+		end
+	end
+	Syntax.new nil, "look inside :container", :look_inside, :container
+	Syntax.new nil, "search :container", :look_inside, :container
+	Syntax.new nil, "look in :container", :look_inside, :container
+
+	Action.new nil, :look_in_at, Query.new(:family, Container), Subquery.new(:children, Entity) do |actor, container, item|
+		actor.tell item.description
+	end
+	Syntax.new nil, "look at :item in :container", :look_in_at, :container, :item
+	Syntax.new nil, "look :item in :container", :look_in_at, :container, :item
+
+	Action.new nil, :take_from, Query.new(:family, Container), Subquery.new(:children, Item) do |actor, container, item|
+		item.parent = actor
+		actor.tell "You take #{item.longname} from #{container.longname}."
+	end
+	Syntax.new nil, "take :item from :container", :take_from, :container, :item
+	Syntax.new nil, "get :item from :container", :take_from, :container, :item
+	Syntax.new nil, "remove :item from :container", :take_from, :container, :item
+
+	Action.new nil, :drop_in, Query.new(:family, Container), Query.new(:children) do |actor, container, item|
+		item.parent = container
+		actor.tell "You put #{item.longname} in #{container.longname}."
+	end
+	Syntax.new nil, "drop :item in :container", :drop_in, :container, :item
+	Syntax.new nil, "put :item in :container", :drop_in, :container, :item
+	Syntax.new nil, "place :item in :container", :drop_in, :container, :item
+
+end

data/lib/gamefic/action_ext/inventory.rb

@@ -0,0 +1,37 @@
+module Gamefic
+
+	Action.new nil, :inventory do |actor|
+		if actor.children.length > 0
+			actor.tell actor.children.join(', ')
+		else
+			actor.tell "You aren't carrying anything."
+		end
+	end
+	Syntax.new nil, "i", :inventory
+
+	Action.new nil, :take, Query.new(:siblings, Portable) do |actor, thing|
+		thing.parent = actor
+		actor.tell "You take #{thing.longname}.", true
+	end
+
+	Action.new nil, :take, Query.new(:siblings) do |actor, thing|
+		actor.tell "You can't carry #{thing.longname}."
+	end
+
+	Action.new nil, :take, String do |actor, thing|
+		actor.tell "You don't see anything called \"#{thing}\" here."
+	end
+
+	Action.new nil, :drop, Query.new(:children) do |actor, thing|
+		thing.parent = actor.parent
+		actor.tell "You drop #{thing.longname}.", true
+	end
+
+	Syntax.new nil, "get :thing", :take, :thing
+	Syntax.new nil, "pick :thing up", :take, :thing
+	Syntax.new nil, "pick up :thing", :take, :thing
+
+	Syntax.new nil, "put down :thing", :drop, :thing
+	Syntax.new nil, "put :thing down", :drop, :thing
+
+end

data/lib/gamefic/action_ext/look.rb

@@ -0,0 +1,52 @@
+module Gamefic
+
+	Action.new nil, :look do |actor|
+		actor.perform "itemize room full"
+	end
+
+	Action.new nil, :look_around do |actor|
+		actor.perform "look"
+	end
+
+	Action.new nil, :itemize_room, Query.new(:string) do |actor, option|
+		actor.tell "#{actor.parent.longname.cap_first}"
+		if option == "full"
+			actor.tell actor.parent.description
+		end
+		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) - [chars] - [actor] - actor.parent.children.that_are(Portal)
+		items = actor.parent.children.that_are(Itemized)
+		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
+	Syntax.new nil, "itemize room", :itemize_room, "short"
+	Syntax.new nil, "itemize room :option", :itemize_room, :option
+
+	Action.new nil, :look, Query.new(:family) do |actor, thing|
+		actor.tell thing.description
+	end
+
+	Action.new nil, :look, Query.new(:parent) do |actor, thing|
+		actor.perform "look"
+	end
+
+	Action.new nil, :look, String do |actor, string|
+		actor.tell "You don't see any \"#{string}\" here."
+	end
+
+	Syntax.new nil, "look at :thing", :look, :thing
+	Syntax.new nil, "examine :thing", :look, :thing
+	Syntax.new nil, "exam :thing", :look, :thing
+	Syntax.new nil, "x :thing", :look, :thing
+
+end

data/lib/gamefic/action_ext/meta.rb

@@ -0,0 +1,10 @@
+module Gamefic
+
+	Action.new nil, :quit do |actor|
+		actor.destroy
+	end
+	Action.new nil, :commands do |actor|
+		actor.tell actor.plot.commandwords.sort.join(", ")
+	end
+
+end

data/lib/gamefic/action_ext/traversal.rb

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

data/lib/gamefic/base.rb

@@ -0,0 +1,10 @@
+module Gamefic
+
+	Dir[File.dirname(__FILE__) + '/entity_ext/*.rb'].each do |file|
+		require file
+	end
+	Dir[File.dirname(__FILE__) + '/action_ext/*.rb'].each do |file|
+		require file
+	end
+
+end

data/lib/gamefic/character.rb

@@ -0,0 +1,72 @@
+module Gamefic
+
+	class Character < Entity
+		attr_reader :state, :queue, :user
+		def post_initialize
+			@state = CharacterState.new(self)
+			@queue = Array.new
+		end
+		def connect(user)
+			@user = user
+		end
+		def disconnect
+			# TODO: We might need some cleanup here. Like, move the character out of the game, or set a timeout to allow dropped users to reconnect... figure it out.
+			@user = nil
+		end
+		def perform(command)
+			#if command != nil
+			#	@queue.push command
+			#end
+			if state.busy? == false
+				Director.dispatch(self, command)
+			else
+				@queue.push command
+			end
+		end
+		#def inject(command)
+		#	Director.dispatch(self, command)
+		#end
+		def tell(message, refresh = false)
+			if user != nil and message.to_s != ''
+				user.stream.send "#{message}\n"
+				if (refresh == true)
+					user.refresh
+				end
+			end
+		end
+		def state=(new_state)
+			@state = new_state
+		end
+		def destroy
+			if @user != nil
+				@user.quit
+			end
+			super
+		end
+		def update
+			super
+			@state.update
+		end
+	end
+	class CharacterState
+		def initialize(character)
+			@character = character
+			post_initialize
+		end
+		def post_initialize
+			# TODO: Required by subclasses?
+		end
+		def busy?
+			false
+		end
+		def update
+			while (line = @character.queue.shift)
+				@character.perform line
+				if @character.state != self
+					break
+				end
+			end
+		end
+	end
+
+end

data/lib/gamefic/core_ext/array.rb

@@ -0,0 +1,40 @@
+class Array
+	def that_are(cls)
+		if (cls.kind_of?(Class) or cls.kind_of?(Module))
+			return self.clone.delete_if { |i| i.kind_of?(cls) == false }
+		else
+			if self.include?(cls)
+				return [cls]
+			end
+			return Array.new
+		end
+	end
+	def that_are_not(cls)
+		if (cls.kind_of?(Class) or cls.kind_of?(Module))
+			return self.clone.delete_if { |i| i.kind_of?(cls) == true }
+		else
+			return self.clone - [cls]
+		end
+	end
+	def random
+		return self[rand(self.length)]
+	end
+	def shuffle
+		self.sort { |a, b|
+			rand(3) <=> rand(3)
+		}
+	end
+	def shuffle!
+		self.sort! { |a, b|
+			rand(3) <=> rand(3)
+		}
+	end
+	def join_and(sep = ', ', andSep = ' and ', serial = true)
+		if self.length < 3
+			self.join(andSep)
+		else
+			start = self - [self.last]
+			start.join(sep) + "#{serial ? sep.strip : ''}#{andSep}#{self.last}"
+		end
+	end
+end

data/lib/gamefic/core_ext/string.rb

@@ -0,0 +1,42 @@
+class String
+	def capitalize_first
+		"#{self[0,1].upcase}#{self[1,self.length]}"
+	end
+	def cap_first
+		self.capitalize_first
+	end
+  def specify
+    if self[0,2] == 'a ' or self[0,3] == 'an '
+      "the #{self.split(' ').shift.join(' ')}"
+    end
+    if self[0,2] == 'A ' or self[0,3] == 'An '
+      "The #{self.split(' ').shift.join(' ')}"
+    end
+    "#{self}"
+  end
+	def terminalize
+		output = ''
+		lines = self.split("\n")
+		lines.each { |line|
+			if line.size > 79
+				while (line.size > 79)
+					offset = line.rindex(/[\s\W]/, 79)
+					if (offset == 0 or offset == nil)
+						output = output + line + "\n"
+						line = ''
+					else
+						output = output + line[0,offset + 1] + "\n"
+						line = line[offset + 1, line.size - offset]
+					end
+				end
+				output = output + line + "\n"
+			else
+				output = output + line + "\n"
+			end
+		}
+		return output.strip
+	end
+	def split_words
+		self.gsub(/ +/, ' ').strip.split
+	end
+end

data/lib/gamefic/describable.rb

@@ -0,0 +1,27 @@
+require "gamefic/keywords"
+
+module Gamefic
+
+	module Describable
+		attr_accessor :name, :longname, :synonyms
+		def keywords
+			Keywords.new "#{name} #{longname} #{synonyms}"
+		end
+		def keywords=(value)
+			@keywords = value
+		end
+		def longname
+			@longname.to_s != '' ? @longname : name
+		end
+		def longname=(value)
+			@longname = value
+		end
+		def description
+			@description.to_s != '' ? @description : "Nothing special."
+		end
+		def description=(value)
+			@description = value
+		end
+	end
+
+end

data/lib/gamefic/director.rb

@@ -0,0 +1,133 @@
+module Gamefic
+
+	class Director
+		def self.dispatch(actor, command)
+			command.strip!
+			handlers = Syntax.match(command, actor.plot.syntaxes)
+			options = Array.new
+			handlers.each { |handler|
+				actions = actor.plot.commands[handler.command]
+				if actions != nil
+					actions.each { |action|
+						orders = bind_contexts_in_result(actor, handler, action)
+						orders.each { |order|
+							args = Array.new
+							args.push actor
+							order.arguments.each { |a|
+								if a.length > 1
+									longnames = Array.new
+									a.each { |b|
+										longnames.push b.longname
+									}
+									actor.tell "I don't know which you mean: #{longnames.join(', ')}"
+									return
+								end
+								args.push a[0]
+							}
+							options.push [order.action.proc, args]
+						}
+					}
+				end
+			}
+			options.push([
+				Proc.new { |actor|
+					actor.tell "I don't know what you mean by '#{command}.'"
+				}, [actor], -1
+			])
+			del = Delegate.new(options)
+			del.execute
+		end
+		private
+		def self.bind_contexts_in_result(actor, handler, action)
+			objects = Array.new
+			valid = true
+			prepared = Array.new
+			arguments = handler.arguments.clone
+			action.queries.each { |context|
+				arg = arguments.shift
+				if arg == nil or arg == ''
+					valid = false
+					next
+				end
+				if context == String
+					prepared.push [arg]
+				elsif context.kind_of?(Query)
+					if context.kind_of?(Subquery)
+						last = prepared.last
+						if last == nil or last.length > 1
+							valid = false
+							next
+						end
+						result = context.execute(last[0], arg)
+					else
+						result = context.execute(actor, arg)
+					end
+					if result.objects.length == 0
+						valid = false
+						next
+					else
+						prepared.push result.objects
+						if result.remainder
+							arguments.push result.remainder
+						end
+					end
+				else
+					# TODO: Better message
+					raise "Invalid object"
+				end
+			}
+			if valid == true
+				prepared.each { |p|
+					p.uniq!
+				}
+				objects.push Order.new(action, prepared)
+			end
+			return objects
+		end
+	end
+	
+	class Director
+		class Delegate
+			@@delegation_stack = Array.new
+			def initialize(options)
+				@options = options
+			end
+			def execute
+				@@delegation_stack.push @options
+				if @options.length > 0
+					opt = @options.shift
+					if opt[1].length == 1
+						opt[0].call(opt[1][0])
+					else
+						opt[0].call(opt[1])
+					end
+				end
+				@@delegation_stack.pop
+			end
+			def self.passthru
+				if @@delegation_stack.last != nil
+					if @@delegation_stack.last.length > 0
+						opt = @@delegation_stack.last.shift
+						if opt[1].length == 1
+							opt[0].call(opt[1][0])
+						else
+							opt[0].call(opt[1])
+						end
+					end
+				end
+			end
+		end
+		class Order
+			attr_reader :action, :arguments
+			def initialize(action, arguments)
+				@action = action
+				@arguments = arguments
+			end
+		end
+	end
+
+	def self.passthru
+		Director::Delegate.passthru
+	end
+
+end

data/lib/gamefic/engine.rb

@@ -0,0 +1,18 @@
+module Gamefic
+
+	class Engine
+		def initialize(plot)
+			@plot = plot
+		end
+		def run
+			user = User.new @plot
+			@plot.introduce user.character
+			while true
+				user.stream.select
+				user.state.update
+				@plot.update
+			end
+		end
+	end
+
+end

data/lib/gamefic/entity.rb

@@ -0,0 +1,76 @@
+require "digest/md5"
+require "gamefic/node"
+require "gamefic/describable"
+require "gamefic/plot"
+
+module Gamefic
+	
+	class Entity
+		include Branch
+		include Describable
+		attr_reader :session, :plot
+		def initialize(plot, args = {})
+			if (plot.kind_of?(Plot) == false)
+				raise "First argument must be a Plot"
+			end
+			pre_initialize
+			#self.state = State
+			#@story = Subplot.current
+			@plot = plot
+			@plot.send :add_entity, self
+			#@story.add_entity self
+			args.each { |key, value|
+				send "#{key}=", value
+			}
+			@update_procs = Array.new
+			@session = Hash.new
+			post_initialize
+		end
+		#def self.present(args = {})
+		#	story = Plot.Loading
+		#	if story == nil
+		#		raise "No plot loading"
+		#	end
+		#	return self.new(story, args)
+		#end
+		def uid
+			if @uid == nil
+				@uid = Digest::MD5.hexdigest(self.object_id.to_s)[0,8]
+			end
+			@uid
+		end
+		def pre_initialize
+			# raise NotImplementedError, "#{self.class} must implement post_initialize"		
+		end
+		def post_initialize
+			# raise NotImplementedError, "#{self.class} must implement post_initialize"
+		end
+		def tell(message, refresh = false)
+			#TODO: Should this even be here? In all likelihood, only Characters receive tells, right?
+			#TODO: On second thought, it might be interesting to see logs from an npc point of view.
+		end
+		def to_s
+			name
+		end
+		def update
+			@update_procs.each { |p|
+				p.call self
+			}
+		end
+		def on_update(&block)
+			@update_procs.push block
+		end
+		def parent=(node)
+			if node != nil and node.kind_of?(Entity) == false and node.kind_of?(Zone) == false
+				raise "Entity's parent must be an Entity or a Zone"
+			end
+			super
+		end
+		def destroy
+			self.parent = nil
+			# TODO: Need to call this private method here?
+			@plot.send(:rem_entity, self)
+		end
+	end
+
+end

data/lib/gamefic/entity_ext/container.rb

@@ -0,0 +1,9 @@
+require "gamefic/entity_ext/itemized"
+
+module Gamefic
+
+	class Container < Entity
+		include Itemized
+	end
+
+end

data/lib/gamefic/entity_ext/fixture.rb

@@ -0,0 +1,9 @@
+require "gamefic/entity_ext/itemized"
+
+module Gamefic
+
+	class Fixture < Entity
+		include Itemized
+	end
+
+end