essytas 0.0.1

data/lib/game/map/map_object.rb

@@ -0,0 +1,208 @@
+
+module Core::Game
+
+  class MapObject
+
+    attr_reader :x, :y, :z, :name, :dy, :dx, :properties, :tx, :ty
+    attr_accessor :through, :follow
+
+    DELIM = "\x00"
+
+    def initialize(x, y, props)
+      file = props[:file]
+      if file
+        @graphics = Core.tiles("chars/#{file}", -4, -4)
+      else
+        @graphics = nil
+        file = "unnamed"
+      end
+      @properties = props
+      @follow = false
+      @index = 0
+      @x, @y = x, y
+      @tx, @ty = x/32, y/32 # tile based position, used for collision
+      @z = Core::MAPOBJECT_Z
+      @z += props[:z] if props[:z]
+      @speed = 0
+      @speed += props[:speed] if props[:speed]
+      @dx = @dy = 0 # distance to move, should be multiple of @speed
+      @dead = false
+      @steps = 0
+      @trigger = nil
+      @name = "mapobject-#{file.downcase}-#{rand(1000)}"
+      @through = false
+      @setup = true
+      @stepped = false
+    end
+    
+    def do_setup?
+      return @setup
+    end
+    
+    def setup
+      if !@setup
+        return false
+      end
+      if @setup
+        @setup = false
+      end
+      return true
+    end
+    
+    def update
+      update_move(Core.window.state.map.current)
+    end
+    
+    def update_move(map)
+      moved = false
+      player = self.class == Player
+      tx = @tx
+      ty = @ty
+      if @dx > 0
+        if @stepped or @through or map.passable?((@tx*32)+@dx, @ty*32, player)
+          @x += @speed
+          @dx -= @speed
+          @tx += 1 if !@stepped
+          @stepped = true
+          moved = true
+          if @tx > Core.window.state.map.current.width
+            Core.window.state.map.move_right
+            @tx = 0
+            @x = @speed
+          end
+        else
+          @dx = 0
+        end
+        @index = 8
+      elsif @dx < 0
+        if @stepped or @through or map.passable?((@tx*32)+@dx, @ty*32, player)
+          @x -= @speed
+          @dx += @speed
+          @tx -= 1 if !@stepped
+          @stepped = true
+          moved = true
+          if @tx < 0
+            Core.window.state.map.move_left
+            @tx = Core.window.state.map.current.width
+            @x = (Core.window.state.map.current.width*32) - @speed
+          end
+        else
+          @dx = 0
+        end
+        @index = 4
+      end
+      if @dy > 0
+        if @stepped or @through or map.passable?(@tx*32, (@ty*32)+@dy, player)
+          @y += @speed
+          @dy -= @speed
+          @ty += 1 if !@stepped
+          @stepped = true
+          moved = true
+        else
+          @dy = 0
+        end
+        @index = 0
+      elsif @dy < 0
+        if @stepped or @through or map.passable?(@tx*32, (@ty*32)+@dy, player)
+          @y -= @speed
+          @dy += @speed
+          @ty -= 1 if !@stepped
+          @stepped = true
+          moved = true
+        else
+          @dy = 0
+        end
+        @index = 12
+      end
+      if @dx == 0 and @dy == 0 and moved
+        @steps += 1
+        @stepped = false
+      end
+      if moved
+        d = @dx
+        if d == 0
+          d = @dy
+        end
+        if d < 0
+          d *= -1
+        end
+        if Core.between?(d, 8, 25)
+          if @steps.even?
+            @index += 1
+          else
+            @index += 3
+          end
+        end
+      end
+      if tx != @tx or ty != @ty
+        Core.window.state.map.current.module.event(Events::MotionEvent.new(self, [tx, ty]))
+      end
+      return moved
+    end
+    
+    def update_trigger
+      # look for something on current tile
+      obj = Core.window.state.find_object(@tx*32, @ty*32)
+      if !obj or obj == self
+        # look for something in the direction we're looking
+        x = y = 0
+        case direction
+        when 0
+          y = 32
+        when 1
+          x = -32
+        when 2
+          x = 32
+        else
+          y = -32
+        end
+        obj = Core.window.state.find_object((@tx*32)+x, (@ty*32)+y)
+      end
+      if obj
+        obj.trigger(self)
+        Core.window.state.map.current.module.event(Events::TriggerEvent.new(self, obj))
+      end
+    end
+    
+    def draw(xoff, yoff)
+      @graphics[@index].draw(@x+xoff, @y-16+yoff, @z)
+    end
+    
+    def dead?
+      return @dead
+    end
+    
+    def trigger(other)
+      @trigger.call(other) if @trigger
+      @behaviour.on_trigger(other) if @behaviour
+    end
+    
+    def direction
+      if Core.between?(@index, -1, 4)
+        return 0 # down
+      elsif Core.between?(@index, 3, 8)
+        return 1 # left
+      elsif Core.between?(@index, 7, 12)
+        return 2 # right
+      elsif Core.between?(@index, 11, 16)
+        return 3 # up
+      end
+    end
+
+    def to_save
+      str = "#{@name}#{DELIM}#{@properties.to_s}#{DELIM}#{@tx}|#{@ty}#{DELIM}"
+      str += "#{@x}|#{@y}#{DELIM}#{@speed}#{DELIM}#{@steps}#{DELIM}#{@through}#{DELIM}#{@stepped}#{DELIM}"
+      return str
+    end
+
+    def teleport(tx, ty)
+      @tx = tx
+      @ty = ty
+      @x = @tx * 32
+      @y = @ty * 32
+    end
+
+  end
+end
+
+require_relative "../npc/npc.rb"

data/lib/game/map/map_particle.rb

@@ -0,0 +1,27 @@
+
+module Core::Game
+  
+  class MapParticle
+    attr_accessor :follow, :xoff, :yoff
+    def initialize(x, y, effect)
+      @emitter = Core::Particles.new(effect, x, y)
+    end
+    
+    def x=(x)
+      @emitter.x = x
+    end
+    
+    def y=(y)
+      @emitter.y = y
+    end
+    
+    def update
+      @emitter.update
+    end
+    
+    def draw(x, y)
+      @emitter.draw(x, y)
+    end
+  end
+  
+end

data/lib/game/map/player.rb

@@ -0,0 +1,78 @@
+
+require_relative "map_object.rb"
+require_relative "map_animation.rb"
+
+module Core::Game
+  class Player < MapNPC
+    
+    include Gosu
+    
+    attr_accessor :x, :y
+    
+    def initialize(x=0, y=0)
+      super(x, y, {:file => Core.window.state.party.player.charset})
+      @speed = 2
+      @x, @y = x, y
+      @name = "player"
+      @gamename = Core.window.state.party.player.name
+    end
+    
+    def update
+      window = Core.window
+      if @dx == 0 and @dy == 0
+        if window.button_down?(KbLeft)
+          @dx = -32
+          @dy = 0
+          destroy_goal
+        elsif window.button_down?(KbRight)
+          @dx = 32
+          @dy = 0
+          destroy_goal
+        elsif window.button_down?(KbUp)
+          @dx = 0
+          @dy = -32
+          destroy_goal
+        elsif window.button_down?(KbDown)
+          @dx = 0
+          @dy = 32
+          destroy_goal
+        end
+      end
+      if window.pressed?(KbSpace) or window.pressed?(KbReturn) or window.pressed?(KbEnter)
+        update_trigger
+      end
+      super
+      if @stepped
+        if @dx < 0
+          Core.window.state.map.xoff += @speed
+        elsif @dx > 0
+          Core.window.state.map.xoff -= @speed
+        end
+        if @dy < 0
+          Core.window.state.map.yoff += @speed
+        elsif @dy > 0
+          Core.window.state.map.yoff -= @speed
+        end
+      end
+    end
+
+    def teleport(tx, ty)
+      if tx < @tx
+        Core.window.state.map.xoff += (@tx - tx) * 32
+      elsif @tx < tx
+        Core.window.state.map.xoff -= (tx - @tx) * 32
+      end
+      if ty < @ty
+        Core.window.state.map.yoff += (@ty - ty) * 32
+      elsif @ty < ty
+        Core.window.state.map.yoff -= (ty - @ty) * 32
+      end
+      @tx = tx
+      @ty = ty
+      @x = @tx * 32
+      @y = @ty * 32
+    end
+    
+  end
+  
+end

data/lib/game/map/tile.rb

@@ -0,0 +1,35 @@
+
+# TODO move to root?
+
+module Core::Game
+  
+  class Tile
+
+    attr_reader :properties
+    attr_accessor :x, :y, :z
+
+    def initialize(sprite, x, y, z, props=[])
+      @sprite = sprite
+      @x, @y, @z = x, y, z
+      if props[:collide]
+        @passable = !props[:collide].to_b
+      else
+        @passable = true
+      end
+      @properties = props
+    end
+
+    def draw(x, y)
+      if @x + x + 32 < 0 or @y + y + 32 < 0 or @x + x >1024 or @y + y > 768
+        return
+      end
+      @sprite.draw(@x+x, @y+y, @z)
+    end
+
+    def passable?
+      return @passable
+    end
+
+  end
+  
+end

data/lib/game/mind.rb

@@ -0,0 +1,24 @@
+
+module Core::Game
+  class Thought
+    attr_reader :text, :proc
+    def initialize(text, proc)
+      @text, @proc = text, proc
+    end
+  end
+  
+  class Mind
+    def initialize
+      @thoughts = []
+    end
+    def contrive(thought)
+      @thoughts.push(thought)
+    end
+    def forget(thought)
+      @thoughts.delete(thought)
+    end
+    def thoughts
+      return @thoughts
+    end
+  end
+end

data/lib/game/npc/behaviour.rb

@@ -0,0 +1,45 @@
+
+require_relative "task.rb"
+require_relative "../map/map_particle.rb"
+
+module Core::Game::NPC
+  
+  class Behaviour
+    
+    attr_reader :init, :trigger, :motion, :update
+  
+    def initialize(npc, init, trigger, motion, update)
+      @self = npc
+      @init = init
+      @trigger = trigger
+      @motion = motion
+      @update = update
+    end
+    
+    def on_init
+      exec_task(@init)
+      @self.goal.reset
+      exec_task(@motion)
+    end
+  
+    def on_trigger(other)
+      exec_task(@trigger, other)
+    end
+  
+    def on_update
+      exec_task(@update)
+      exec_task(@motion)
+    end
+    
+    def exec_task(task, other=nil)
+      task.execute(@self, other) if !task.finished?
+      if task.finished?
+        if task.remove?
+          task = nil
+        end
+      end
+    end
+  
+  end
+
+end

data/lib/game/npc/bubble.rb

@@ -0,0 +1,28 @@
+
+module Core::Game
+  
+  class Bubble < Core::GUI::Textfield
+    
+    def initialize(text)
+      super(0, 0, 0, 0, text, 20, :left, false, 256)
+      @age = text.gsub("\n", "").size * Core.config[:text_speed]
+    end
+    
+    def update
+      if @age <= 0
+        @remove = true
+      else
+        @age -= 1
+      end
+    end
+    
+    def draw(x, y)
+      @x, @y = x-(@w/2)+16, y-40-@h
+      super()
+      c = Gosu::Color::GREEN
+      Core.window.draw_triangle(@x+(@w/2)-4, @y+@h, c, @x+(@w/2)+4, @y+@h, c, @x+(@w/2), @y+@h+24, c, Core::MAPOBJECT_Z+100)
+    end
+    
+  end
+  
+end