essytas 0.0.1

data/lib/game/alchemy/recipe.rb

@@ -0,0 +1,26 @@
+
+module Core::Game
+  module Alchemy
+    
+    class Recipe
+      attr_accessor :name, :icon, :output, :input, :level
+    end
+  
+    def self.recipies
+      return @recipies
+    end
+  
+    def self.recipies=(ary)
+      @recipies = ary
+    end
+  
+    def self.find_recipe(name)
+      @recipies.each { |item|
+        if item.name == name
+          return item
+        end
+      }
+    end
+    
+  end
+end

data/lib/game/character.rb

@@ -0,0 +1,102 @@
+
+require_relative "inventory.rb"
+require_relative "skills.rb"
+require_relative "constitution.rb"
+require_relative "mind.rb"
+require_relative "equipment.rb"
+require_relative "magic.rb"
+
+module Core::Game
+  def self.characters
+    return @characters
+  end
+  def self.characters=(ary)
+    @characters = ary
+  end
+  
+  class Character
+    attr_reader :name, :age, :weight, :strength, :charset, :gender
+    attr_reader :inventory, :skills, :const, :mind, :equipment, :race, :magic
+    attr_reader :endurance, :state, :agility, :spells, :influences
+    attr_accessor :health
+    # health is only used as a percentage for easier displaying, the real stuff is in @const
+    
+    def setup
+      @health = @endurance = 100
+      @inventory = Core::Game::Inventory.new(20, @strength)
+      @skills = Core::Game::Skills.new
+      @const = Core::Game::Constitution.new
+      @mind = Core::Game::Mind.new
+      @equipment = Core::Game::Equipment.new
+      @magic = Core::Game::Magic.new(self)
+      @state = Core::Game::NORMAL
+      @spells = {}
+      Core::Game.spells.each { |spell|
+        @spells.store(spell, 0)
+      }
+      @charset = @file
+      @file = Core.sprite(@file)
+      @influences = []
+      setup_skills
+    end
+    
+    def validate
+      if @agility > 100
+        @agility = 0
+      elsif @agility < 0
+        @agility = 0
+      end
+    end
+    
+    def update
+      @influences.each { |inf|
+        inf.update(self)
+      }
+    end
+    
+    def consume(item)
+    end
+    
+    def calc_status
+      if @endurance <= 25
+        @state = Core::Game::UNCONSCIOUS
+      elsif @endurance <= 0
+        @state = Core::Game::DEAD
+      end
+    end
+    
+    def weaken(amount)
+      if @state != Core::Game::DEAD
+        @endurance -= amount
+        calc_status
+      end
+    end
+    
+    def rest(amount)
+      if @state != Core::Game::DEAD
+        @endurance -= amount
+      end
+    end
+    
+    def wake
+      if @state != Core::Game::DEAD
+        @state = Core::Game::NORMAL
+        calc_status
+      end
+    end
+    
+    private
+    
+    def setup_skills
+      @skills.list[Core::Game.find_skill(:healing)] = @healing
+      @skills.list[Core::Game.find_skill(:crafting)] = @crafting
+      @skills.list[Core::Game.find_skill(:botany)] = @botany
+      @skills.list[Core::Game.find_skill(:healing_magic)] = @healing_magic
+      @skills.list[Core::Game.find_skill(:mind)] = @mind
+      @skills.list[Core::Game.find_skill(:elemental)] = @elemental
+      @skills.list[Core::Game.find_skill(:ranged)] = @ranged
+      @skills.list[Core::Game.find_skill(:melee)] = @melee
+    end
+    
+  end
+end

data/lib/game/combat/bar.rb

@@ -0,0 +1,119 @@
+
+module Core::Game::Combat
+
+  class Bar
+    attr_reader :value, :max
+    attr_accessor :visible, :x, :y, :z
+    def initialize(x, y, z, w, h, scheme, max, background)
+      schemes = [:health, :endurance, :timer]
+      @background = background
+      @x, @y, @z = x, y, z
+      @w, @h = w, h
+      @scheme = scheme
+      @value = @max = max
+      @speed = @sub = @add = 0
+      @fade = 256
+      @visible = true
+    end
+      
+    def update
+      if !@visible
+        return
+      end
+      if @sub > 0
+        @value -= @speed
+        @sub -= @speed
+      else
+        @sub = 0
+      end
+      if @add > 0
+        @value += @speed
+        @add -= @speed
+      else
+        @add = 0
+      end
+      if @fade > 0 and @fade <= 255
+        @fade -= @speed
+      elsif @fade <= 0
+        @fade = 0
+        @visible = false
+      end
+    end
+    
+    def fade(speed=15)
+      @speed = speed
+      @fade = 255
+    end
+      
+    def draw
+      if !@visible
+        return
+      end
+      if @background
+        cb = Gosu::Color.new(255, 0, 0, 0)
+        Core.window.draw_quad(@x, @y, cb, @x+@w, @y, cb, @x+@w, @y+@h, cb, @x, @y+@h, cb, @z)
+        case @scheme
+        when :health
+          cl = Gosu::Color.new(255, 255, 0, 0)
+          cr = Gosu::Color.new(255, 0, 255, 0)
+        else
+          cl = Gosu::Color.new(255, 0, 0, 0)
+          cr = Gosu::Color.new(255, 255, 255, 255)
+        end
+      else
+        # TODO fluent fade
+        case @scheme
+        when :health
+          if @value >= (@max / 4) * 3
+            cl = cr = Gosu::Color.new(255, 0, 255, 0)
+          elsif @value >= @max / 2
+            cl = cr = Gosu::Color.new(255, 255, 255, 0)
+          elsif @value >= @max / 4
+            cl = cr = Gosu::Color.new(255, 255, 180, 0)
+          else
+            cl = cr = Gosu::Color.new(255, 255, 0, 0)
+          end
+        when :timer
+          if @value >= (@max / 4) * 3
+            cl = cr = Gosu::Color.new(255, 255, 0, 0)
+          elsif @value >= @max / 2
+            cl = cr = Gosu::Color.new(255, 255, 180, 0)
+          elsif @value >= @max / 4
+            cl = cr = Gosu::Color.new(255, 255, 255, 0)
+          else
+            cl = cr = Gosu::Color.new(255, 0, 255, 0)
+          end
+        else
+          cl = cr = Gosu::Color.new(255, 255, 255, 255)
+        end
+      end
+      if @fade <= 255
+        f = @fade
+        if f < 0
+          f = 0
+        end
+        cl.alpha = f
+        cr.alpha = f
+      end
+      if @value > 0
+        w = @value / (@max / @w.to_f)
+        Core.window.draw_quad(@x, @y, cl, @x+w, @y, cr, @x+w, @y+@h, cr, @x, @y+@h, cl, @z)
+      end
+    end
+      
+    def subtract(amount, speed)
+      @sub = amount
+      @speed = speed
+    end
+      
+    def add(amount, speed)
+      @add = amount
+      @speed = speed
+    end
+      
+    def set(val)
+      @value = val
+    end
+  end
+    
+end

data/lib/game/combat/battle.rb

@@ -0,0 +1,345 @@
+
+module Core::Game
+  
+  def self.enemies
+    return @enemies
+  end
+  
+  def self.enemies=(ary)
+    @enemies = ary
+  end
+  
+  def self.find_enemy(name)
+    @enemies.each { |enemy|
+      if enemy.name == name
+        return enemy
+      end
+    }
+    return nil
+  end
+  
+  def self.weapons
+    return @weapons
+  end
+  
+  def self.weapons=(hash)
+    @weapons = hash
+  end
+  
+  def self.find_weapon(name)
+    @weapons.each { |w|
+      if w.name == name
+        return w
+      end
+    }
+  end
+  
+  module Combat
+    
+    # For enemies
+    class Behaviour
+      def initialize(hash)
+        @actions = {}
+        hash.each { |k, v|
+          i = 0
+          v.each { |action|
+            if !@actions[k]
+              @actions.store(k, {})
+            end
+            @actions[k].store(i, action)
+            i += 1
+          }
+        }
+      end
+      
+      def execute(sym)
+        ary = @actions[sym].values.flatten(1)
+        ary.each { |str|
+          params = str.split(" ")
+          self.send(params.shift, params)
+        }
+      end
+      
+      private
+      
+      def vanish(*args)
+        puts("STUB: Behaviour.vanish")
+      end
+      
+      def drop(items)
+        items.each { |item|
+          puts("STUB: Behaviour.drop(#{item})")
+        }
+      end
+      
+      def attack(target)
+        target = target.first
+        puts("STUB: Behaviour.attack(#{target})")
+      end
+      
+    end
+    
+    class Background
+      def initialize(file, color=nil)
+        @sprite = Core.sprite("backgrounds/#{file}")
+        if !color
+          @color = Gosu::Color::WHITE
+        else
+          @color = color
+        end
+      end
+      def update
+      end
+      def draw
+        @sprite.draw(0, 0, 0, 1024/@sprite.width.to_f, 768/@sprite.height.to_f, @color)
+      end
+    end
+    
+    class Weapon
+      attr_reader :name, :type, :effects, :icon
+      def initialize(name, type, effects, icon)
+        @name, @type, @effects, @icon = name, type, effects, Core.sprite("icons/#{icon}")
+      end
+    end
+    
+    class Enemy
+      attr_reader :name, :strength, :type, :weapons, :behaviour, :graphic
+    end
+    
+    # Superclass for enemies and actors
+    class BattleObject
+      attr_reader :target
+      def initialize(graphic, x, y, z=Core::MAPOBJECT_Z, color=Gosu::Color::WHITE)
+        @frame = 0
+        @x, @y, @z = x, y, z
+        @color = color
+        if File.exists?("graphics/combat/#{graphic}.png")
+          @graphics = Gosu::Image.load_tiles(Core.window, "graphics/combat/#{graphic}.png", -4, -4, false)
+          @frame = 4
+        else
+          @graphics = [Core.sprite("missing")]
+        end
+        @target = nil
+      end
+      
+      def update(pause)
+      end
+      
+      def draw
+        if @graphics[@frame]
+          @graphics[@frame].draw(@x, @y, @z, 1, 1, @color)
+        else
+          @graphics.first.draw(@x, @y, @z, 1, 1, @color)
+        end
+      end
+      
+      def attacked(hit)
+        @target = nil
+      end
+      
+      def name
+        return ""
+      end
+    end
+    
+    class BattleEnemy < BattleObject
+      attr_reader :data
+      attr_writer :gui
+      def initialize(enemy, x, y, z)
+        super(enemy.graphic, x, y, z)
+        @data = enemy
+        @gui = nil
+        @frame = 8
+        @w, @h = @graphics.first.width, @graphics.first.height
+      end
+      
+      def update(pause)
+        super
+        x, y = Core.window.mouse_x, Core.window.mouse_y
+        if Core.inside?(x, y, @x, @y, @x+@w, @y+@h) and Core.window.pressed?(Gosu::MsLeft)
+          if x - 160 < 0
+            x = 160
+          elsif x > 1024-320
+            x = 1024-320
+          end
+          if y - 128 < 0
+            y = 128
+          elsif y > 512
+            y = 512
+          end
+          @gui.open_info(self, 256, 160)
+        end
+      end
+      
+      def draw
+        super
+      end
+      
+      def name
+        return @data.name
+      end
+    end
+    
+    # Party member
+    class Actor < BattleObject
+      attr_reader :character
+      attr_accessor :ready_shown
+      def initialize(char, x, y, z)
+        super(char.charset, x, y, z)
+        @character = char
+        @health = Bar.new(x - 8, y - 8, 100, 48, 6, :health, 100, false)
+        @health.set(@character.health)
+        @next = Bar.new(x - 8, y - 16, 100, 48, 6, :health, 600 - (@character.agility*5), false)
+        @next.visible = false
+        @ready = false
+        @ready_shown = false
+        @moving = false
+        @ready_time = 600 - (@character.agility*5)
+      end
+      def update(pause)
+        super
+        if !pause
+          if @moving
+            @health.x, @health.y = @x - 8, @y - 8
+            @next.x, @health.y = @x - 8, @y - 16
+          end
+          if @ready_time == 0
+            ready!
+            @ready_time = -1
+          elsif @ready_time > 0
+            @ready_time -= 1
+            @next.visible = true
+            @next.set(@next.max - @ready_time)
+          end
+        end
+        @health.update
+        @next.update
+      end
+      def draw
+        super
+        @health.draw
+        @next.draw
+      end
+      def ready?
+        return @ready
+      end
+      def ready!
+        @next.fade
+        @ready = true
+      end
+      
+      def name
+        return @character.name
+      end
+    end
+    
+    class Party
+      attr_reader :members
+      def initialize(party)
+        @members = []
+        create_actors(party)
+      end
+      private
+      def create_actors(party)
+        x = y = 0
+        party.members.each { |char|
+          # TODO this is crap
+          @members.push(Actor.new(char, 640+rand(48)+(x*128), 128+(y*96)+rand(48), 50))
+          y += 1
+          if y >= 4
+            y = 0
+            x += 1
+          end
+        }
+      end
+    end
+    
+    class Battle
+      attr_reader :enemies, :background
+      
+      def initialize(party, enemies, bg, control=nil)
+        @background = Background.new(bg)
+        @enemies = []
+        @party = Party.new(party)
+        @control = control
+        if @control
+          @control.battle = self
+        end
+        @gui = GUI.new
+        x = y = 0
+        enemies.each { |e|
+          # TODO this is crap too
+          e = BattleEnemy.new(e, 64+(x*64)+rand(32), 128+(y*96)+rand(48), 50)
+          y += 1
+          if y >= 4
+            y = 0
+            x += 1
+          end
+          e.gui = @gui
+          @enemies.push(e)
+        }
+      end
+      
+      def attack(attacker, target)
+        puts("STUB: Battle.attack(#{attacker.name}, #{target.name})")
+      end
+      
+      def spell(attacker, targets, spell)
+        puts("STUB: Battle.spell(#{attacker.name}, #{targets.name}, #{spell.name})")
+      end
+      
+      def item(attacker, target, item)
+        puts("STUB: Battle.item(#{attacker.name}, #{target.name}, #{item.name})")
+      end
+      
+      def update
+        pause = @gui.paused?
+        @background.update
+        @control.update
+        if !@gui.attacking.empty?
+          attack(@gui.attacking.first, @gui.attacking.last)
+          @gui.attacked
+        end
+        if !@gui.casting.empty?
+          spell(@gui.casting.first, @gui.casting[1], @gui.casting.last)
+          @gui.spell_cast
+        end
+        if !@gui.using.empty?
+          item(@gui.using.first, @gui.using[1], @gui.using.last)
+          @gui.item_used
+        end
+        @enemies.each { |enemy|
+          enemy.update(pause)
+        }
+        @party.members.each { |actor|
+          actor.update(pause)
+          if actor.ready? and !actor.ready_shown
+            @gui.push(:ready, actor)
+            actor.ready_shown = true
+          elsif !actor.ready?
+            actor.ready_shown = false
+          end
+        }
+        @gui.update
+      end
+      
+      def draw
+        @background.draw
+        @control.draw
+        @enemies.each { |enemy|
+          enemy.draw
+        }
+        @party.members.each { |actor|
+          actor.draw
+        }
+        @gui.draw
+      end
+      
+    end
+    
+  end
+end
+
+require_relative "bar.rb"
+require_relative "control.rb"
+require_relative "gui.rb"