tank_island 1.0.0

data/lib/entities/object_pool.rb

@@ -0,0 +1,59 @@
+class ObjectPool
+  attr_accessor :map, :camera, :objects, :powerup_respawn_queue
+
+  def size
+    @objects.size
+  end
+
+  def initialize(box)
+    @tree = QuadTree.new(box)
+    @powerup_respawn_queue = PowerupRespawnQueue.new
+    @objects = []
+  end
+
+  def add(object)
+    @objects << object
+    @tree.insert(object)
+  end
+
+  def tree_remove(object)
+    @tree.remove(object)
+  end
+
+  def tree_insert(object)
+    @tree.insert(object)
+  end
+
+  def update_all
+    @objects.each(&:update)
+    @objects.reject! do |o|
+      if o.removable?
+        @tree.remove(o)
+        true
+      end
+    end
+    @powerup_respawn_queue.respawn(self)
+  end
+
+  def nearby_point(cx, cy, max_distance, object = nil)
+    hx, hy = cx + max_distance, cy + max_distance
+    # Fast, rough results
+    results = @tree.query_range(
+      AxisAlignedBoundingBox.new([cx, cy], [hx, hy]))
+    # Sift through to select fine-grained results
+    results.select do |o|
+      o != object &&
+        Utils.distance_between(
+          o.x, o.y, cx, cy) <= max_distance
+    end
+  end
+
+  def nearby(object, max_distance)
+    cx, cy = object.location
+    nearby_point(cx, cy, max_distance, object)
+  end
+
+  def query_range(box)
+    @tree.query_range(box)
+  end
+end

data/lib/entities/powerups/fire_rate_powerup.rb

@@ -0,0 +1,14 @@
+class FireRatePowerup < Powerup
+  def pickup(object)
+    if object.class == Tank
+      if object.fire_rate_modifier < 2
+        object.fire_rate_modifier += 0.25
+      end
+      true
+    end
+  end
+
+  def graphics
+    :straight_gun
+  end
+end

data/lib/entities/powerups/health_powerup.rb

@@ -0,0 +1,12 @@
+class HealthPowerup < Powerup
+  def pickup(object)
+    if object.class == Tank
+      object.health.increase(25)
+      true
+    end
+  end
+
+  def graphics
+    :life_up
+  end
+end

data/lib/entities/powerups/powerup.rb

@@ -0,0 +1,35 @@
+class Powerup < GameObject
+  def initialize(object_pool, x, y)
+    super
+    PowerupGraphics.new(self, graphics)
+  end
+
+  def box
+    [x - 8, y - 8,
+     x + 8, y - 8,
+     x + 8, y + 8,
+     x - 8, y + 8]
+  end
+
+  def on_collision(object)
+    if pickup(object)
+      PowerupSounds.play(object, object_pool.camera)
+      remove
+    end
+  end
+
+  def pickup(object)
+    # override and implement application
+  end
+
+  def remove
+    object_pool.powerup_respawn_queue.enqueue(
+      respawn_delay,
+      self.class, x, y)
+    mark_for_removal
+  end
+
+  def respawn_delay
+    30
+  end
+end

data/lib/entities/powerups/powerup_respawn_queue.rb

@@ -0,0 +1,23 @@
+class PowerupRespawnQueue
+  RESPAWN_DELAY = 1000
+  def initialize
+    @respawn_queue = {}
+    @last_respawn = Gosu.milliseconds
+  end
+
+  def enqueue(delay_seconds, type, x, y)
+    respawn_at = Gosu.milliseconds + delay_seconds * 1000
+    @respawn_queue[respawn_at.to_i] = [type, x, y]
+  end
+
+  def respawn(object_pool)
+    now = Gosu.milliseconds
+    return if now - @last_respawn < RESPAWN_DELAY
+    @respawn_queue.keys.each do |k|
+      next if k > now # not yet
+      type, x, y = @respawn_queue.delete(k)
+      type.new(object_pool, x, y)
+    end
+    @last_respawn = now
+  end
+end

data/lib/entities/powerups/repair_powerup.rb

@@ -0,0 +1,14 @@
+class RepairPowerup < Powerup
+  def pickup(object)
+    if object.class == Tank
+      if object.health.health < 100
+        object.health.restore
+      end
+      true
+    end
+  end
+
+  def graphics
+    :repair
+  end
+end

data/lib/entities/powerups/tank_speed_powerup.rb

@@ -0,0 +1,14 @@
+class TankSpeedPowerup < Powerup
+  def pickup(object)
+    if object.class == Tank
+      if object.speed_modifier < 1.5
+        object.speed_modifier += 0.10
+      end
+      true
+    end
+  end
+
+  def graphics
+    :wingman
+  end
+end

data/lib/entities/radar.rb

@@ -0,0 +1,62 @@
+class Radar
+  UPDATE_FREQUENCY = 1000
+  WIDTH = 150
+  HEIGHT = 100
+  PADDING = 10
+  # Black with 33% transparency
+  BACKGROUND = Gosu::Color.new(255 * 0.33, 0, 0, 0)
+  attr_accessor :target
+
+  def initialize(object_pool, target)
+    @object_pool = object_pool
+    @target = target
+    @last_update = 0
+  end
+
+  def update
+    if Gosu.milliseconds - @last_update > UPDATE_FREQUENCY
+      @nearby = nil
+    end
+    @nearby ||= @object_pool.nearby(@target, 2000).select do |o|
+      o.class == Tank && !o.health.dead?
+    end
+  end
+
+  def draw
+    x1, x2, y1, y2 = radar_coords
+    $window.draw_quad(
+      x1, y1, BACKGROUND,
+      x2, y1, BACKGROUND,
+      x2, y2, BACKGROUND,
+      x1, y2, BACKGROUND,
+      200)
+    draw_tank(@target, Gosu::Color::GREEN)
+    @nearby && @nearby.each do |t|
+      draw_tank(t, Gosu::Color::RED)
+    end
+  end
+
+  private
+
+  def draw_tank(tank, color)
+    x1, x2, y1, y2 = radar_coords
+    tx = x1 + WIDTH / 2 + (tank.x - @target.x) / 20
+    ty = y1 + HEIGHT / 2 +  (tank.y - @target.y) / 20
+    if (x1..x2).include?(tx) && (y1..y2).include?(ty)
+      $window.draw_quad(
+        tx - 2, ty - 2, color,
+        tx + 2, ty - 2, color,
+        tx + 2, ty + 2, color,
+        tx - 2, ty + 2, color,
+        300)
+    end
+  end
+
+  def radar_coords
+    x1 = $window.width - WIDTH - PADDING
+    x2 = $window.width - PADDING
+    y1 = $window.height - HEIGHT - PADDING
+    y2 = $window.height - PADDING
+    [x1, x2, y1, y2]
+  end
+end

data/lib/entities/score_display.rb

@@ -0,0 +1,35 @@
+class ScoreDisplay
+  def initialize(object_pool, font_size=30)
+    @font_size = font_size
+    tanks = object_pool.objects.select do |o|
+      o.class == Tank
+    end
+    stats = tanks.map(&:input).map(&:stats)
+    stats.sort! do |stat1, stat2|
+      stat2.kills <=> stat1.kills
+    end
+    create_stats_image(stats)
+  end
+
+  def create_stats_image(stats)
+    text = stats.map do |stat|
+      "#{stat.kills}: #{stat.name} "
+    end.join("\n")
+    @stats_image = Gosu::Image.from_text(
+      $window, text, Utils.main_font, @font_size)
+  end
+
+  def draw
+    @stats_image.draw(
+      $window.width / 2 - @stats_image.width / 2,
+      $window.height / 4 + 30,
+      1000)
+  end
+
+  def draw_top_right
+    @stats_image.draw(
+      $window.width - @stats_image.width - 20,
+      20,
+      1000)
+  end
+end

data/lib/entities/tank.rb

@@ -0,0 +1,64 @@
+class Tank < GameObject
+  SHOOT_DELAY = 500
+  attr_accessor :throttle_down, :direction,
+    :gun_angle, :sounds, :physics, :graphics, :health, :input,
+    :fire_rate_modifier, :speed_modifier
+
+  def initialize(object_pool, input)
+    x, y = object_pool.map.spawn_point
+    super(object_pool, x, y)
+    @input = input
+    @input.control(self)
+    @physics = TankPhysics.new(self, object_pool)
+    @sounds = TankSounds.new(self, object_pool)
+    @health = TankHealth.new(self, object_pool)
+    @graphics = TankGraphics.new(self)
+    @direction = rand(0..7) * 45
+    @gun_angle = rand(0..360)
+    reset_modifiers
+  end
+
+  def box
+    @physics.box
+  end
+
+  def on_collision(object)
+    return unless object
+    # Avoid recursion
+    if object.class == Tank
+      # Inform AI about hit
+      object.input.on_collision(object)
+    else
+      # Call only on non-tanks to avoid recursion
+      object.on_collision(self)
+    end
+    # Bullets should not slow Tanks down
+    if object.class != Bullet
+      @sounds.collide if @physics.speed > 1
+    end
+  end
+
+  def shoot(target_x, target_y)
+    if can_shoot?
+      @last_shot = Gosu.milliseconds
+      Bullet.new(object_pool, @x, @y, target_x, target_y).fire(
+        self, 1500)
+      input.stats.add_shot
+    end
+  end
+
+  def can_shoot?
+    Gosu.milliseconds - (@last_shot || 0) >
+      (SHOOT_DELAY / @fire_rate_modifier)
+  end
+
+  def reset_modifiers
+    @fire_rate_modifier = 1
+    @speed_modifier = 1
+  end
+
+  def to_s
+    "Tank [#{@health.health}@#{@x}:#{@y}@#{@physics.speed.round(2)}px/tick]#{@input.stats}"
+  end
+
+end

data/lib/entities/tree.rb

@@ -0,0 +1,18 @@
+class Tree < GameObject
+  attr_reader :health, :graphics
+
+  def initialize(object_pool, x, y, seed)
+    super(object_pool, x, y)
+    @graphics = TreeGraphics.new(self, seed)
+    @health = Health.new(self, object_pool, 30, false)
+    @angle = rand(-15..15)
+  end
+
+  def on_collision(object)
+    @graphics.shake(object.direction)
+  end
+
+  def box
+    [@x, @y]
+  end
+end

data/lib/game_states/demo_state.rb

@@ -0,0 +1,49 @@
+class DemoState < PlayState
+  attr_accessor :tank
+
+  def enter
+    # Prevent reactivating HUD
+  end
+
+  def update
+    super
+    @score_display = ScoreDisplay.new(
+      object_pool, 20)
+  end
+
+  def draw
+    super
+    @score_display.draw_top_right
+  end
+
+  def button_down(id)
+    super
+    if id == Gosu::KbSpace
+      target_tank = @tanks.reject do |t|
+        t == @camera.target
+      end.sample
+      switch_to_tank(target_tank)
+    end
+  end
+
+  private
+
+  def create_tanks(amount)
+    @map.spawn_points(amount * 3)
+    @tanks = []
+    amount.times do |i|
+      @tanks << Tank.new(@object_pool, AiInput.new(
+        @names.random, @object_pool))
+    end
+    target_tank = @tanks.sample
+    @hud = HUD.new(@object_pool, target_tank)
+    @hud.active = false
+    switch_to_tank(target_tank)
+  end
+
+  def switch_to_tank(tank)
+    @camera.target = tank
+    @hud.player = tank
+    self.tank = tank
+  end
+end

data/lib/game_states/game_state.rb

@@ -0,0 +1,27 @@
+class GameState
+
+  def self.switch(new_state)
+    $window.state && $window.state.leave
+    $window.state = new_state
+    new_state.enter
+  end
+
+  def enter
+  end
+
+  def leave
+  end
+
+  def draw
+  end
+
+  def update
+  end
+
+  def needs_redraw?
+    true
+  end
+
+  def button_down(id)
+  end
+end

data/lib/game_states/menu_state.rb

@@ -0,0 +1,60 @@
+require 'singleton'
+class MenuState < GameState
+  include Singleton
+  attr_accessor :play_state
+
+  def initialize
+    @message = Gosu::Image.from_text(
+      $window, "Tank Island",
+      Utils.title_font, 60)
+  end
+
+  def enter
+    music.play(true)
+    music.volume = 1
+  end
+
+  def leave
+    music.volume = 0
+    music.stop
+  end
+
+  def music
+    @@music ||= Gosu::Song.new(
+      $window, Utils.media_path('menu_music.mp3'))
+  end
+
+  def update
+    text = "Q: Quit\nN: New Game\nD: Demo"
+    text << "\nC: Continue" if @play_state
+    @info = Gosu::Image.from_text(
+      $window, text,
+      Utils.main_font, 30)
+  end
+
+  def draw
+    @message.draw(
+      $window.width / 2 - @message.width / 2,
+      $window.height / 2 - @message.height / 2,
+      10)
+    @info.draw(
+      $window.width / 2 - @info.width / 2,
+      $window.height / 2 - @info.height / 2 + 100,
+      10)
+  end
+
+  def button_down(id)
+    $window.close if id == Gosu::KbQ
+    if id == Gosu::KbC && @play_state
+      GameState.switch(@play_state)
+    end
+    if id == Gosu::KbN
+      @play_state = PlayState.new
+      GameState.switch(@play_state)
+    end
+    if id == Gosu::KbD
+      @play_state = DemoState.new
+      GameState.switch(@play_state)
+    end
+  end
+end