essytas 0.0.1

data/lib/parse_tmx.rb

@@ -0,0 +1,114 @@
+
+Core.silently { require "rexml/document" }
+
+module Maps
+  def self.pre_spawn
+  end
+  def self.event(ev)
+  end
+end
+
+module Core::Parse
+  
+  module TMX
+    
+    include REXML
+  
+    def self.parse(file)
+      f = File.open("#{Core::LIBRARY_PATH}/maps/#{file}.tmx", "r")
+      doc = Document.new(f)
+      f.close
+      root = doc.root
+      properties = {}
+      tilesets = []
+      layers = []
+      objects = []
+      mod = nil
+      
+      props = root.get_elements("properties")
+      props.each { |prop|
+        prop.each_element { |el|
+          properties.store(el.attribute("name").to_s.to_sym, el.attribute("value").to_s)
+        }
+      }
+      properties.store(:width, root.attribute("width").to_s.to_i)
+      properties.store(:height, root.attribute("height").to_s.to_i)
+      properties.store(:file, file)
+      
+      ts = root.get_elements("tileset")
+      ts.each { |set|
+        img = set.get_elements("image").first
+        tile_props = {}
+        set.get_elements("tile").each { |tile|
+          hash = {}
+          tile.get_elements("properties/property").each { |p|
+            hash.store(p.attribute("name").to_s.to_sym, p.attribute("value").to_s)
+          }
+          tile_props.store(tile.attribute("id").to_s.to_i, hash)
+        }
+        tilesets.push(
+          Core::Tileset.new(
+            set.attribute("firstgid"),
+            set.attribute("name"),
+            "graphics/tiles/#{File.basename(img.attribute("source").to_s)}",
+            tile_props)
+        )
+      }
+      
+      layer_elements = root.get_elements("layer")
+      layer_elements.each { |layer|
+        w = layer.attribute("width").to_s.to_i
+        h = layer.attribute("height").to_s.to_i
+        props = {:name => layer.attribute("name").to_s}
+        layer.get_elements("properties/property").each { |el|
+          props.store(el.attribute("name").to_s.to_sym, el.attribute("value").to_s)
+        }
+        data = layer.get_elements("data").first
+        tiles = []
+        line = data.text.gsub("\n", "")
+        line.each_line(",") { |val|
+          tiles.push(val.gsub(",", "").to_i)
+        }
+        layers.push(Core::Layer.new(w, h, props, tiles))
+        layers.last.fill_tilemap(tilesets.last)
+      }
+
+      # retrieves the module from the corresponding file, if it exists
+      mod = Maps
+      if File.exist?("maps/def/#{file}.rb")
+        Kernel.load("maps/def/#{file}.rb")
+        names = file.split("/")
+        names.each do |name|
+          mod = mod.const_get(name.capitalize)
+        end
+        mod.pre_spawn
+      end
+      
+      objectgrous = root.get_elements("objectgroup")
+      objectgrous.each { |objectgroup|
+        objectgroup.each_element { |el|
+          x = el.attribute("x").to_s.to_i
+          y = el.attribute("y").to_s.to_i
+          props = {}
+          el.get_elements("properties/property").each { |p|
+            props.store(p.attribute("name").to_s.to_sym, p.attribute("value").to_s)
+          }
+          props.store(:layer, objectgroup.attributes["name"])
+          props.store(:id, el.attribute("name").to_s.gsub("-", "_"))
+          case el.attribute("type").to_s.to_sym
+          when :npc
+            obj = Core::Game::MapNPC.new(x, y, props)
+            obj.behaviour = Core::Parse.behaviour(file, obj)
+          else
+            obj = Core::Game::MapObject(x, y, props)
+          end
+          objects.push(obj)
+        }
+      }
+      
+      return Core::Game::Map.new(properties, layers, objects, mod)
+    end
+    
+  end
+  
+end

data/lib/particles.rb

@@ -0,0 +1,127 @@
+
+# TODO floats for position and speeds
+
+module Core
+  def self.particles
+    return @particles
+  end
+  def self.particles=(hsh)
+    @particles = hsh
+  end
+  
+  class Particles
+    def initialize(str, x=0, y=0)
+      @emitter = Core.particles[str].dup
+      @emitter.x, @emitter.y = x, y
+    end
+    def x=(x)
+      @emitter.x = x
+    end
+    def y=(y)
+      @emitter.y = y
+    end
+    def wind=(w)
+      @emitter.wind = w
+    end
+    def gravity=(g)
+      @emitter.gravity = g
+    end
+    def update
+      @emitter.update
+    end
+    def draw(xoff=0, yoff=0)
+      @emitter.draw(xoff, yoff)
+    end
+  end
+  
+  class Particle
+    attr_accessor :wind, :gravity
+    def initialize(x, y, file, lifetime, fade_in, fade_out, sx, sy, angle, color, mode)
+      @img = Core.sprite("particles/#{file}")
+      @dead = false
+      @age = 0
+      @wind = @gravity = 0
+      @x, @y, @lifetime, @fade_in, @fade_out, @sx, @sy, @angle, @color, @mode = x, y, lifetime, fade_in, fade_out, sx, sy, random_angle(angle), color, mode
+    end
+    def random_angle(bool)
+      angle = 0
+      if bool
+        angle = rand(360)
+      end
+      return angle
+    end
+    def update
+      @x += @sx + @wind
+      @y += @sy + @gravity
+      @age += 1
+      if @x > 1024 or @x < -@img.width or @y > 768+@img.height or @y < -@img.height or @age >= @lifetime
+        @dead = true
+      end
+    end
+    def dead?
+      return @dead
+    end
+    def draw(xoff=0, yoff=0)
+      color = @color
+      if @age < @fade_in
+        a = 125 + ((((@age - @fade_in) * 255) / @lifetime))
+        a *= 2
+      elsif @age >= @lifetime - @fade_out
+        a = ((@lifetime - @age) * 255 / @age).to_i
+      else
+        a = 255
+      end
+      if a > 255
+        a = 255
+      elsif a < 0
+        a = 0
+      end
+      color.alpha = a.to_i;
+      @img.draw_rot(@x+xoff, @y+yoff, Core::PARTICLE_Z, @angle, 0.5, 0.5, 1, 1, color, @mode)
+    end
+  end
+  
+  class ParticleEmitter
+    attr_accessor :x, :y, :xr, :yr
+    def initialize(file, lifetime, fade_in, fade_out, color, delay, angle, mode, xr, yr, xo, yo)
+      @lifetime, @fade_in, @fade_out, @color, @angle = lifetime, fade_in, fade_out, color, angle
+      @xoff, @yoff = xo, yo
+      @delay, @file, @mode = delay, file, mode
+      @particles = []
+      @next = 0
+      @xr, @yr, = xr, yr
+      @wind = @gravity = 0
+    end
+    def update
+      @next -= 1
+      if @next <= 0
+        spawn_particle
+        @next = @delay
+      end
+      @particles.each { |p|
+        p.update
+        if p.dead?
+          @particles.delete(p)
+        end
+      }
+    end
+    def spawn_particle
+      sx = @xr.to_a.sample
+      sy = @yr.to_a.sample
+      @particles.push(Core::Particle.new(@x+@xoff.to_a.sample, @y+@yoff.to_a.sample, @file, @lifetime, @fade_in, @fade_out, sx, sy, @angle, @color.dup, @mode))
+      @particles.last.wind = @wind
+      @particles.last.gravity = @gravity
+    end
+    def draw(xoff=0, yoff=0)
+      @particles.each { |p|
+        p.draw(xoff, yoff)
+      }
+    end
+    def wind=(w)
+      @wind = w
+    end
+    def gravity=(g)
+      @gravity = g
+    end
+  end
+end

data/lib/sample.rb

@@ -0,0 +1,29 @@
+
+module Core
+  # cache system borks inheritance, so we need to wrap a Gosu::Sample instance
+  class Sample
+    attr_reader :file
+    @@cache = {}
+    def initialize(file)
+      @file = file
+      if @@cache[file]
+        @sample = @@cache[file]
+        return
+      end
+      begin
+        @sample = Gosu::Sample.new("#{Core::LIBRARY_PATH}/sounds/#{file}.wav")
+        @@cache.store(file, @sample)
+      rescue RuntimeError
+        puts("ERROR: Failed to open sound #{file}")
+        return
+      end
+    end
+    def sample
+      return @sample
+    end
+    def play(vol=1.0, speed=1, looping=false)
+      vol *= Core.config[:volume]
+      @sample.play(vol, speed, looping)
+    end
+  end
+end

data/lib/save.rb

@@ -0,0 +1,44 @@
+
+require "base64"
+require "zlib"
+
+module Core
+
+  def self.save_game(name="autosave")
+    state = Core.window.state
+    if state.class == States::GameState
+      map = state.map
+      party = state.party
+    else
+      map = Core.window.saved.map
+      party = Core.window.saved.party
+    end
+    map_obj = map.objects
+    map_misc = map.misc
+    map_file = map.current.properties[:file]
+    f = File.open("#{Core::SAVE_DIR}#{name}.esf", "wb")
+    str = "#{state.class.to_s.split("::").last}\n"
+    str += "#{map_file}\n"
+    str += "#{party}"
+    str += "START_MAP_OBJ\n"
+    map_obj.each do |obj|
+      next if obj.dead?
+      str += "#{obj.to_save}\n"
+    end
+    str += "END_MAP_OBJ\n"
+    # TODO is this actually used?
+    str += "START_MAP_MISC\n"
+    map_misc.each do |misc|
+      str += "#{misc.class}\n"
+      #str += "#{misc.to_save}\n"
+    end
+    str += "END_MAP_MISC\n"
+    deflate = Zlib::Deflate.new(Zlib::BEST_COMPRESSION)
+    # take that, script kiddies!
+    comp = deflate.deflate(Base64.encode64(str), Zlib::FINISH)
+    deflate.close
+    f.puts(comp)
+    f.close
+  end
+
+end

data/lib/song.rb

@@ -0,0 +1,41 @@
+
+module Core
+  # cache system borks inheritance, so we need to wrap a Gosu::Song instance
+  class Song
+    attr_reader :file
+    @@cache = {}
+    def initialize(file)
+      @file = file
+      if @@cache[file]
+        @song = @@cache[file]
+        return
+      end
+      begin
+        @song = Gosu::Song.new(Core.window, "#{Core::LIBRARY_PATH}/music/#{file}.mp3")
+        @@cache.store(file, @song)
+      rescue RuntimeError
+        puts("ERROR: Failed to open music #{file}")
+        return
+      end
+    end
+    def song
+      return @song
+    end
+    def stop
+      @song.stop
+    end
+    def pause
+      @song.pause
+    end
+    def volume
+      return @song.volume
+    end
+    def volume=(vol)
+      @song.volume = vol
+    end
+    def play(loop=true)
+      @song.volume = Core.config[:volume]+1.0 # FIXME no effect?
+      @song.play(loop)
+    end
+  end
+end

data/lib/sounds/credits.txt

@@ -0,0 +1,2 @@
+click1.wav - TicTacShutup freesound 406
+error1.wav - 8522__pitmusic__TB3_Bass_03 (freesound)

data/lib/sprite.rb

@@ -0,0 +1,35 @@
+
+# Gosu::Image wrapper
+
+module Core
+  
+  @@cache = {}
+  def self.sprite(file, tile=false)
+    if @@cache[file]
+      return @@cache[file]
+    end
+    begin
+      raise if !File.exist?("#{Core::LIBRARY_PATH}/graphics/#{file}.png")
+      img = Gosu::Image.new(window, "#{Core::LIBRARY_PATH}/graphics/#{file}.png", tile)
+      @@cache.store(file, img)
+      return img
+    rescue RuntimeError
+      warn("ERROR: Failed to open graphic #{file}")
+      file = "missing"
+      retry
+    end
+  end
+  
+  # TODO cache
+  def self.tiles(file, tx, ty, tile=false)
+    begin
+      ary = Gosu::Image.load_tiles(window, "#{Core::LIBRARY_PATH}/graphics/#{file}.png", tx, ty, tile)
+      return ary
+    rescue RuntimeError
+      warn("ERROR: Failed to open graphic #{file}")
+      file = "missing"
+      retry
+    end
+  end
+  
+end

data/lib/states/menus.rb

@@ -0,0 +1,17 @@
+
+require_relative "states.rb"
+require_relative "../gui/char_selector.rb"
+require_relative "../gui/inventory.rb"
+require_relative "../gui/item_info.rb"
+require_relative "../gui/char_equip.rb"
+require_relative "../gui/image.rb"
+require_relative "../gui/textfield.rb"
+require_relative "../gui/slider.rb"
+require_relative "../gui/grid.rb"
+
+require_relative "menus/alchemy.rb"
+require_relative "menus/equip.rb"
+require_relative "menus/ingame.rb"
+require_relative "menus/magic.rb"
+require_relative "menus/options.rb"
+require_relative "menus/start.rb"

data/lib/states/menus/alchemy.rb

@@ -0,0 +1,53 @@
+
+module Core::States
+  
+  class AlchemyMenu < State
+    
+    include Core
+    include Core::GUI
+    
+    def initialize(window, previous, party)
+      super(window)
+      @previous = previous
+      @party = party
+      @background = Core.sprite("menu/ingame_background")
+      @w = Core::GUI::Window.new(0, 0, 1024, 768, Trans.menu(:botany))
+      @w.add(:charselect, CharSelector.new(32, 32, party))
+      @w.add(:experience, Textfield.new(320, 32, 256, 32, "#{Trans.menu(:experience)}: #{@party.members[@w.get(:charselect).index].skills.level_to_s(Game.find_skill(:botany))}", 24, :center))
+      @w.add(:recipies_text, Textfield.new(32, 96, 256, 32, Trans.menu(:recipies), 24, :center))
+      @w.add(:recipies, Container.new(32, 128, 256, 584, 24))
+      @w.add(:items_text, Textfield.new(736, 96, 256, 32, Trans.menu(:items), 24, :center))
+      @w.add(:items, Inventory.new(736, 128, 256, 584, @party.members[@w.get(:charselect).index], [:herb, :food, :poison], 24))
+      @w.add(:info_header, Textfield.new(320, 480, 384, 200, "", 24, :center))
+      @w.add(:info, Textfield.new(320, 512, 384, 200, ""))
+      @w.add(:grid, Grid.new(320, 128, 12, 6, [Core::Game::Item]))
+    end
+    
+    def update
+      super
+      if @window.pressed?(Gosu::KbEscape) or @w.remove?
+        @window.advance(@previous)
+      end
+      @w.update
+      if @w.get(:charselect).changed?
+        char = @party.members[@w.get(:charselect).index]
+        @w.get(:experience).text = "#{Trans.menu(:experience)}: #{char.skills.level_to_s(Game.find_skill(:botany))}"
+        @w.get(:items).inventory = char.inventory
+        @w.get(:grid).clear
+      end
+      if @w.get(:items).changed?
+        @w.get(:info_header).text = Trans.item(@w.get(:items).selected.name)
+        @w.get(:info).text = Trans.item("#{@w.get(:items).selected.name}_desc")
+        @w.get(:grid).add(@w.get(:items).selected)
+      end
+    end
+    
+    def draw
+      @background.draw(0, 0, 0)
+      @w.draw
+      draw_cursor
+    end
+    
+  end
+  
+end