gamefic 0.0.5 → 0.1.1

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

@@ -0,0 +1,5 @@
+import 'basics/entities/itemized'
+
+class Fixture < Entity
+  include Itemized
+end

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

@@ -0,0 +1,7 @@
+import 'basics/entities/itemized'
+import 'basics/entities/portable'
+
+class Item < Entity
+  include Itemized
+  include Portable
+end

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

@@ -0,0 +1,3 @@
+module Itemized
+
+end

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

@@ -0,0 +1,3 @@
+module Portable
+
+end

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

@@ -0,0 +1,43 @@
+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/entities/room.rb

@@ -0,0 +1,24 @@
+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 tell(message, refresh = false)
+    children.each { |c|
+      c.tell message, refresh
+    }
+  end
+end

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

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

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

@@ -0,0 +1,48 @@
+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#visited must be an Array"
+    end
+  end
+  def description_mode
+    @description_mode ||= "brief"
+  end
+end
+
+class Character
+  include RoomModes
+end
+
+respond :go, Query.new(:siblings, 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.perform "itemize room"
+  else
+    actor.perform "itemize room full"
+  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 VERBOSE mode. Detailed room descriptions will never be displayed unless you LOOK AROUND. Other options are BRIEF and VERBOSE."
+end

data/lib/gamefic/plot.rb

@@ -1,7 +1,25 @@
 module Gamefic
 
+  def self.bind(plot)
+    mod = Module.new do
+      def self.bind(plot)
+        @@plot = plot
+      end
+      def self.get_binding
+        binding
+      end
+      def self.method_missing(name, *args, &block)
+        if @@plot.respond_to?(name)
+          @@plot.send name, *args, &block
+        end
+      end
+    end
+    mod.bind plot
+    mod.get_binding
+  end
+  
 	class Plot
-		attr_reader :scenes, :commands, :conclusions, :declared_scripts
+		attr_reader :scenes, :commands, :conclusions, :imported_scripts
 		attr_accessor :story
 		def commandwords
 			words = Array.new
@@ -16,7 +34,8 @@ module Gamefic
 			@syntaxes = Array.new
 			@conclusions = Hash.new
 			@update_procs = Array.new
-			@declared_scripts = Array.new
+      @available_scripts = Hash.new
+			@imported_scripts = Array.new
 			@entities = Array.new
 			post_initialize
 		end
@@ -82,30 +101,76 @@ module Gamefic
 			@update_procs.each { |p|
 				p.call
 			}
-			#@entities.flatten.each { |e|
       @entities.each { |e|
-				#recursive_update e
 				e.update
 			}
 		end
+
 		def tell entities, message, refresh = false
 			entities.each { |entity|
 				entity.tell message, refresh
 			}
 		end
-		def load_script filename
-			plot = self
-			eval File.read(filename), nil, filename, 1
-		end
-		def require_script filename
-			if @declared_scripts.include?(filename) == false
-				@declared_scripts.push(filename)
-				load_script filename
-			end
-		end
+
+    def load script, with_libs = true
+      code = File.read(script)
+      code.untaint
+      @source_directory = File.dirname(script)
+      if with_libs == true
+        $LOAD_PATH.reverse.each { |path|
+          get_scripts path + '/gamefic/import'
+        }
+      end
+      get_scripts @source_directory + '/import'
+      proc {
+        $SAFE = 3
+        eval code, ::Gamefic.bind(self), script, 1
+      }.call
+    end
     
-		private
+    def import script
+      if script[-2, 2] == '/*'
+        directory = script[0..-3]
+        resolved = directory
+        @available_scripts.each { |f, c|
+          if f.start_with?(resolved)
+            self.import f
+          end
+        }
+      else
+        resolved = script
+        if !@available_scripts.has_key?(resolved)
+          if @available_scripts.has_key?(resolved + '.rb')
+            resolved = resolved + '.rb'
+          end
+        end
+        if @available_scripts.has_key?(resolved)
+          if @available_scripts[resolved] != nil
+            script_object = @available_scripts[resolved]
+            @available_scripts[resolved] = nil
+            proc {
+              $SAFE = 3
+              @imported_scripts.push script_object
+              eval script_object.code, Gamefic.bind(self), script_object.filename, 1
+            }.call
+          end
+        else
+          raise "Unavailable import: #{resolved}"
+        end
+      end
+    end
     
+		private
+    def get_scripts(directory)
+      Dir[directory + '/*'].each { |f|
+        if File.directory?(f)
+          get_scripts f
+        else
+          relative = f[(f.index('/import/')+8)..-1]
+          @available_scripts[relative] = Script.new(f)
+        end
+      }
+    end
 		def rem_entity(entity)
 			@entities.delete(entity)
 		end
@@ -170,6 +235,14 @@ module Gamefic
 		def add_entity(entity)
 			@entities.push entity
 		end
-	end
+    class Script
+      attr_reader :filename, :code
+      def initialize filename
+        @filename = filename
+        @code = File.read(filename)
+        @code.untaint
+      end
+    end
+  end
 
 end

data/lib/gamefic/shell.rb

@@ -0,0 +1,317 @@
+require 'rubygems/package'
+require 'zlib'
+require 'tmpdir'
+require 'getoptlong'
+
+# Crazy hack to set file mtimes in tar file
+class Gem::Package::TarHeader
+  @@mtime = Time.now
+  def self.set_mtime(time)
+    @@mtime = time
+  end
+  alias :initialize_orig :initialize
+  def initialize(vals)
+    initialize_orig(vals)
+    @mtime = @@mtime
+  end
+end
+
+module Gamefic
+
+  class Shell
+    attr_accessor :argv
+    def initialize
+    
+    end
+    def execute
+      if ARGV.length == 0
+        ARGV.push 'help'
+      end
+      cmd = ARGV.shift
+      case cmd
+        when 'play'
+          play ARGV.shift
+        when 'test'
+          test ARGV.shift
+        when 'init'
+          init ARGV.shift
+        when 'build'
+          build ARGV.shift
+        when 'fetch'
+          fetch ARGV.shift
+        when 'help'
+          help ARGV.shift
+        else
+          play cmd
+      end
+    end
+    private
+      def play file
+        if !File.exist?(file)
+          puts "'#{file}' does not exist."
+          exit 1
+        end
+        if File.directory?(file)
+          puts "'#{file}' is not a Gamefic file."
+          exit 1
+        end
+        Dir.mktmpdir 'gamefic_' do |dir|
+          puts "Loading..."
+          story = Story.new
+          begin
+            decompress file, dir
+          rescue Exception => e
+            puts "'#{file}' does not appear to be a valid Gamefic file."
+            puts "#{e}"
+            exit 1
+          end
+          story.load dir + '/main.rb'
+          engine = Engine.new story
+          puts "\n"
+          engine.run
+        end
+      end
+      def test path
+        puts "Loading..."
+        story = Story.new
+        #begin
+          if File.directory?(path)
+            if !File.file?(path + '/main.rb')
+              raise "#{path}/main.rb does not exist"
+            end
+            story.load path + '/main.rb', true
+          else
+            story.load path
+          end
+        #rescue Exception => e
+        #  puts "An error occurred in #{path}:"
+        #  puts "#{e.inspect}"
+        #  exit 1
+        #end
+        engine = Engine.new story
+        engine.run
+      end
+      def init directory
+        if directory.to_s == ''
+          puts "No directory specified."
+          exit 1
+        elsif File.exist?(directory)
+          if !File.directory?(directory)
+            files = Dir[directory + '/*']
+            if files.length > 0
+              puts "'#{directory}' is not an empty directory."
+              exit 1
+            end
+          else
+            puts "'#{directory}' is not an empty directory."
+            exit 1
+          end
+        else
+          Dir.mkdir(directory)
+        end
+        Dir.mkdir(directory + '/import')
+        main_rb = File.new(directory + '/main.rb', 'w')
+        main_rb.write <<EOS
+import 'basics'
+
+room = make Room, :name => 'room'
+
+introduction do |player|
+  player.parent = room
+  player.perform "look"
+end
+EOS
+        main_rb.close
+        fetch directory
+        puts "Game directory '#{directory}' initialized."
+      end
+      def fetch directory
+        if directory.to_s == ''
+          puts "No source directory was specified."
+          exit 1
+        end
+        if !File.directory?(directory)
+          puts "#{directory} is not a directory."
+          exit 1
+        end
+        puts "Loading game data..."
+        story = Story.new
+        begin
+          story.load directory + '/main.rb', true
+        rescue Exception => e
+          puts "'#{directory}' has errors or is not a valid source directory."
+          puts "#{e}"
+          exit 1
+        end
+        puts "Checking for external script references..."
+        fetched = 0
+        story.imported_scripts.each { |script|
+          if !script.filename.start_with?(directory)
+            base = script.filename[(script.filename.rindex('import/') + 7)..-1]
+            puts "Fetching #{base}"
+            FileUtils.mkdir_p directory + '/import/' + File.dirname(base)
+            FileUtils.copy script.filename, directory + '/import/' + base
+            fetched += 1
+          end
+        }
+        if fetched == 0
+          puts "Nothing to fetch."
+        else
+          puts "Done."
+        end
+      end
+      def build directory
+        if directory.to_s == ''
+          puts "No source directory was specified."
+          exit 1
+        end
+        if !File.directory?(directory)
+          puts "#{directory} is not a directory."
+          exit 1
+        end
+        filename = File.basename(directory) + '.gfic'
+        opts = GetoptLong.new(
+          [ '-o', '--output', GetoptLong::REQUIRED_ARGUMENT ]
+        )
+        opts.quiet = true
+        begin
+          opts.each { |opt, arg|
+            case opt
+              when '-o'
+                filename = arg
+            end
+          }
+        rescue Exception => e
+          puts "#{e}"
+          exit 1
+        end
+        if File.exist?(filename)
+          puts "The file #{filename} already exists."
+          exit 1
+        end
+        story = Story.new
+        puts "Loading game data..."
+        begin
+          story.load directory + '/main.rb', true
+        rescue Exception => e
+          puts "'#{directory}' has errors or is not a valid source directory."
+          puts "#{e}"
+          exit 1
+        end
+        puts "Building file..."
+        stream = StringIO.new("")
+        Gem::Package::TarWriter.new(stream) do |tar|
+          Gem::Package::TarHeader.set_mtime Time.now
+          tar.add_file('main.rb', 0600) do |io|
+            File.open(directory + '/main.rb', "rb") { |f| io.write f.read }
+          end
+          if story.imported_scripts.length > 0
+            Gem::Package::TarHeader.set_mtime Time.now
+            tar.mkdir('import', 0700)
+            story.imported_scripts.each { |script|
+              base = script.filename[script.filename.rindex('import/') + 7..-1]
+              Gem::Package::TarHeader.set_mtime Time.now
+              tar.add_file('import/' + base, 0700) do |io|
+                io.write script.code
+              end
+            }
+          end
+        end
+        gz = StringIO.new("")
+        z = Zlib::GzipWriter.new(gz)
+        z.mtime = Time.now
+        z.write stream.string
+        z.close
+        file = File.new(filename, "w")
+        file.write gz.string
+        file.close
+        puts "Gamefic file '#{filename}' complete."
+      end
+      def help command
+        shell_script = File.basename($0)
+        case command
+          when "play"
+            puts <<EOS
+#{shell_script} play [file]
+Play a Gamefic file on the command line.
+EOS
+          when "test"
+            puts <<EOS
+#{shell_script} test [path]
+Test a Gamefic source directory or script.
+EOS
+          when "init"
+            puts <<EOS
+#{shell_script} init [directory]
+Initialize a Gamefic source directory. The resulting directory will contain
+source files ready to build into a Gamefic file.
+EOS
+          when "fetch"
+            puts <<EOS
+#{shell_script} fetch [directory]
+Copy shared scripts to the source directory.
+If the specified game directory imnports external scripts, such as the ones
+that are distributed with the Gamefic gem, this command will copy them into
+the game's import directory. Fetching can be useful if you want to customize
+common features.
+EOS
+          when "build"
+            puts <<EOS
+#{shell_script} build [directory] [-o | --output filename]
+Build a distributable Gamefic file from the source directory. The default
+filename is [directory].gfic. You can change the filename with the -o option.
+EOS
+          when nil, "help"
+          puts <<EOS
+#{shell_script} play [file] - play a Gamefic file
+#{shell_script} init [dir] - initialize a Gamefic source directory
+#{shell_script} test [path] - test a Gamefic source directory or script
+#{shell_script} fetch [directory] - copy shared scripts into directory
+#{shell_script} build [directory] - build a Gamefic file
+#{shell_script} help - display this message
+#{shell_script} help [command] - display info about command
+EOS
+        else
+          puts "Unrecognized command '#{command}'"
+          exit 1
+        end
+      end
+      def decompress(tarfile, destination)
+        tar_longlink = '././@LongLink'
+        Gem::Package::TarReader.new( Zlib::GzipReader.open tarfile ) do |tar|
+          dest = nil
+          tar.each do |entry|
+            if entry.full_name == tar_longlink
+              dest = File.join destination, entry.read.strip
+              next
+            end
+            dest ||= File.join destination, entry.full_name
+            if entry.directory?
+              FileUtils.rm_rf dest unless File.directory? dest
+              FileUtils.mkdir_p dest, :mode => entry.header.mode, :verbose => false
+            elsif entry.file?
+              cur_stack = dest.split('/')
+              cur_stack.pop
+              cur_dir = ''
+              while cur_stack.length > 0
+                cur_dir += '/' + cur_stack.shift              
+                if !File.exist?(destination + cur_dir)
+                  FileUtils.mkdir_p dest, :mode => 0700, :verbose => false
+                end
+              end
+              FileUtils.mkdir_p dest, :mode => entry.header.mode, :verbose => false
+              FileUtils.rm_rf dest unless File.file? dest
+              File.open dest, "wb" do |f|
+                f.print entry.read
+              end
+              FileUtils.chmod entry.header.mode, dest, :verbose => false
+            elsif entry.header.typeflag == '2' #Symlink!
+              File.symlink entry.header.linkname, dest
+            end
+            dest = nil
+          end
+        end
+      end
+  end
+
+end