tank_island 1.0.0

data/lib/game_states/pause_state.rb

@@ -0,0 +1,61 @@
+require 'singleton'
+class PauseState < GameState
+  include Singleton
+  attr_accessor :play_state
+
+  def initialize
+    @message = Gosu::Image.from_text(
+      $window, "Game Paused",
+      Utils.title_font, 60)
+  end
+
+  def enter
+    music.play(true)
+    music.volume = 1
+    @score_display = ScoreDisplay.new(@play_state.object_pool)
+    @mouse_coords = [$window.mouse_x, $window.mouse_y]
+  end
+
+  def leave
+    music.volume = 0
+    music.stop
+    $window.mouse_x, $window.mouse_y = @mouse_coords
+  end
+
+  def music
+    @@music ||= Gosu::Song.new(
+      $window, Utils.media_path('menu_music.mp3'))
+  end
+
+  def draw
+    @play_state.draw
+    @message.draw(
+      $window.width / 2 - @message.width / 2,
+      $window.height / 4 - @message.height - 50,
+      1000)
+    info.draw(
+      $window.width / 2 - info.width / 2,
+      $window.height / 4 - info.height,
+      1000)
+    @score_display.draw
+  end
+
+  def info
+    @info ||= Gosu::Image.from_text(
+      $window, 'Q: Quit to Main Menu',
+      Utils.main_font, 30)
+  end
+
+  def button_down(id)
+    if id == Gosu::KbQ
+      MenuState.instance.play_state = @play_state
+      GameState.switch(MenuState.instance)
+    end
+    if id == Gosu::KbC && @play_state
+      GameState.switch(@play_state)
+    end
+    if id == Gosu::KbEscape
+      GameState.switch(@play_state)
+    end
+  end
+end

data/lib/game_states/play_state.rb

@@ -0,0 +1,119 @@
+class PlayState < GameState
+  attr_accessor :update_interval, :object_pool, :tank
+
+  def initialize
+    # http://www.paulandstorm.com/wha/clown-names/
+    @names = Names.new(
+      Utils.media_path('names.txt'))
+    @object_pool = ObjectPool.new(Map.bounding_box)
+    @map = Map.new(@object_pool)
+    @camera = Camera.new
+    @object_pool.camera = @camera
+    create_tanks(7)
+  end
+
+  def update
+    StereoSample.cleanup
+    @object_pool.update_all
+    @camera.update
+    @hud.update
+    update_caption
+  end
+
+  def draw
+    cam_x = @camera.x
+    cam_y = @camera.y
+    off_x =  $window.width / 2 - cam_x
+    off_y =  $window.height / 2 - cam_y
+    viewport = @camera.viewport
+    x1, x2, y1, y2 = viewport
+    box = AxisAlignedBoundingBox.new(
+      [x1 + (x2 - x1) / 2, y1 + (y2 - y1) / 2],
+      [x1 - Map::TILE_SIZE, y1 - Map::TILE_SIZE])
+    $window.translate(off_x, off_y) do
+      zoom = @camera.zoom
+      $window.scale(zoom, zoom, cam_x, cam_y) do
+        @map.draw(viewport)
+        @object_pool.query_range(box).map do |o|
+          o.draw(viewport)
+        end
+      end
+    end
+    @hud.draw
+  end
+
+  def button_down(id)
+    if id == Gosu::KbEscape
+      pause = PauseState.instance
+      pause.play_state = self
+      GameState.switch(pause)
+    end
+    if id == Gosu::KbT
+      t = Tank.new(@object_pool,
+        AiInput.new(@names.random, @object_pool))
+      t.move(*@camera.mouse_coords)
+    end
+    if id == Gosu::KbF1
+      $debug = !$debug
+    end
+    if id == Gosu::KbF2
+      toggle_profiling
+    end
+    if id == Gosu::KbR
+      @tank.mark_for_removal
+      @tank = Tank.new(@object_pool,
+        PlayerInput.new('Player', @camera, @object_pool))
+      @camera.target = @tank
+      @hud.player = @tank
+    end
+  end
+
+  def leave
+    StereoSample.stop_all
+    if @profiling_now
+      toggle_profiling
+    end
+    @hud.active = false
+  end
+
+  def enter
+    @hud.active = true
+  end
+
+  private
+
+  def create_tanks(amount)
+    @map.spawn_points(amount * 3)
+    @tank = Tank.new(@object_pool,
+      PlayerInput.new('Player', @camera, @object_pool))
+    amount.times do |i|
+      Tank.new(@object_pool, AiInput.new(
+        @names.random, @object_pool))
+    end
+    @camera.target = @tank
+    @hud = HUD.new(@object_pool, @tank)
+  end
+
+  def toggle_profiling
+    require 'ruby-prof' unless defined?(RubyProf)
+    if @profiling_now
+      result = RubyProf.stop
+      printer = RubyProf::FlatPrinter.new(result)
+      printer.print(STDOUT, min_percent: 0.01)
+      @profiling_now = false
+    else
+      RubyProf.start
+      @profiling_now = true
+    end
+  end
+
+  def update_caption
+    now = Gosu.milliseconds
+    if now - (@caption_updated_at || 0) > 1000
+      $window.caption = 'Tank Island. ' <<
+        "[FPS: #{Gosu.fps}. " <<
+        "Tank @ #{@tank.x.round}:#{@tank.y.round}]"
+      @caption_updated_at = now
+    end
+  end
+end

data/lib/misc/axis_aligned_bounding_box.rb

@@ -0,0 +1,33 @@
+class AxisAlignedBoundingBox
+  attr_reader :center, :half_dimension
+  def initialize(center, half_dimension)
+    @center = center
+    @half_dimension = half_dimension
+    @dhx = (@half_dimension[0] - @center[0]).abs
+    @dhy = (@half_dimension[1] - @center[1]).abs
+  end
+
+  def contains?(point)
+    return false unless (@center[0] + @dhx) >= point[0]
+    return false unless (@center[0] - @dhx) <= point[0]
+    return false unless (@center[1] + @dhy) >= point[1]
+    return false unless (@center[1] - @dhy) <= point[1]
+    true
+  end
+
+  def intersects?(other)
+    ocx, ocy = other.center
+    ohx, ohy = other.half_dimension
+    odhx = (ohx - ocx).abs
+    return false unless (@center[0] + @dhx) >= (ocx - odhx)
+    return false unless (@center[0] - @dhx) <= (ocx + odhx)
+    odhy = (ohy - ocy).abs
+    return false unless (@center[1] + @dhy) >= (ocy - odhy)
+    return false unless (@center[1] - @dhy) <= (ocy + odhy)
+    true
+  end
+
+  def to_s
+    "c: #{@center}, h: #{@half_dimension}"
+  end
+end

data/lib/misc/game_window.rb

@@ -0,0 +1,30 @@
+class GameWindow < Gosu::Window
+  attr_accessor :state
+
+  def initialize
+    super((ENV['w'] || 800).to_i,
+          (ENV['h'] || 600).to_i,
+          (ENV['fs'] ? true : false))
+  end
+
+  def update
+    Utils.track_update_interval
+    @state.update
+  end
+
+  def draw
+    @state.draw
+  end
+
+  def needs_redraw?
+    @state.needs_redraw?
+  end
+
+  def needs_cursor?
+    Utils.update_interval > 200
+  end
+
+  def button_down(id)
+    @state.button_down(id)
+  end
+end

data/lib/misc/names.rb

@@ -0,0 +1,13 @@
+class Names
+  def initialize(file)
+    @names = File.read(file).split("\n").reject do |n|
+      n.size > 12
+    end
+  end
+
+  def random
+    name = @names.sample
+    @names.delete(name)
+    name
+  end
+end

data/lib/misc/quad_tree.rb

@@ -0,0 +1,91 @@
+class QuadTree
+  NODE_CAPACITY = 12
+  attr_accessor :ne, :nw, :se, :sw, :objects
+
+  def initialize(boundary)
+    @boundary = boundary
+    @objects = []
+  end
+
+  def insert(game_object)
+    return false unless @boundary.contains?(
+      game_object.location)
+
+    if @objects.size < NODE_CAPACITY
+      @objects << game_object
+      return true
+    end
+
+    subdivide unless @nw
+
+    return true if @nw.insert(game_object)
+    return true if @ne.insert(game_object)
+    return true if @sw.insert(game_object)
+    return true if @se.insert(game_object)
+
+    # should never happen
+    raise "Failed to insert #{game_object}"
+  end
+
+  def remove(game_object)
+    return false unless @boundary.contains?(
+      game_object.location)
+    if @objects.delete(game_object)
+      return true
+    end
+    return false unless @nw
+    return true if @nw.remove(game_object)
+    return true if @ne.remove(game_object)
+    return true if @sw.remove(game_object)
+    return true if @se.remove(game_object)
+    false
+  end
+
+  def query_range(range)
+    result = []
+    unless @boundary.intersects?(range)
+      return result
+    end
+
+    @objects.each do |o|
+      if range.contains?(o.location)
+        result << o
+      end
+    end
+
+    # Not subdivided
+    return result unless @ne
+
+    result += @nw.query_range(range)
+    result += @ne.query_range(range)
+    result += @sw.query_range(range)
+    result += @se.query_range(range)
+
+    result
+  end
+
+  private
+
+  def subdivide
+    cx, cy = @boundary.center
+    hx, hy = @boundary.half_dimension
+    hhx = (cx - hx).abs / 2.0
+    hhy = (cy - hy).abs / 2.0
+    @nw = QuadTree.new(
+      AxisAlignedBoundingBox.new(
+        [cx - hhx, cy - hhy],
+        [cx, cy]))
+    @ne = QuadTree.new(
+      AxisAlignedBoundingBox.new(
+        [cx + hhx, cy - hhy],
+        [cx, cy]))
+    @sw = QuadTree.new(
+      AxisAlignedBoundingBox.new(
+        [cx - hhx, cy + hhy],
+        [cx, cy]))
+    @se = QuadTree.new(
+      AxisAlignedBoundingBox.new(
+        [cx + hhx, cy + hhy],
+        [cx, cy]))
+  end
+end

data/lib/misc/stats.rb

@@ -0,0 +1,55 @@
+class Stats
+  attr_reader :name, :kills, :deaths, :shots, :changed_at
+  def initialize(name)
+    @name = name
+    @kills = @deaths = @shots = @damage = @damage_dealt = 0
+    changed
+  end
+
+  def add_kill(amount = 1)
+    @kills += amount
+    changed
+  end
+
+  def add_death
+    @deaths += 1
+    changed
+  end
+
+  def add_shot
+    @shots += 1
+    changed
+  end
+
+  def add_damage(amount)
+    @damage += amount
+    changed
+  end
+
+  def damage
+    @damage.round
+  end
+
+  def add_damage_dealt(amount)
+    @damage_dealt += amount
+    changed
+  end
+
+  def damage_dealt
+    @damage_dealt.round
+  end
+
+  def to_s
+    "[kills: #{@kills}, " \
+      "deaths: #{@deaths}, " \
+      "shots: #{@shots}, " \
+      "damage: #{damage}, " \
+      "damage_dealt: #{damage_dealt}]"
+  end
+
+  private
+
+  def changed
+    @changed_at = Gosu.milliseconds
+  end
+end

data/lib/misc/stereo_sample.rb

@@ -0,0 +1,96 @@
+class StereoSample
+  MAX_POLIPHONY = 16
+  @@all_instances = []
+
+  def self.register_instances(instances)
+    @@all_instances << instances
+  end
+
+  def self.cleanup
+    @@all_instances.each do |instances|
+      instances.each do |key, instance|
+        unless instance.playing? || instance.paused?
+          instances.delete(key)
+        end
+      end
+    end
+  end
+
+  def self.stop_all
+    @@all_instances.each do |instances|
+      instances.each do |key, instance|
+        if instance.playing?
+          instance.stop
+        end
+      end
+    end
+  end
+
+  def initialize(window, sound_l, sound_r = sound_l)
+    @sound_l = Gosu::Sample.new(window, sound_l)
+    # Use same sample in mono -> stereo
+    if sound_l == sound_r
+      @sound_r = @sound_l
+    else
+      @sound_r = Gosu::Sample.new(window, sound_r)
+    end
+    @instances = {}
+    self.class.register_instances(@instances)
+  end
+
+  def paused?(id = :default)
+    i = @instances["#{id}_l"]
+    i && i.paused?
+  end
+
+  def playing?(id = :default)
+    i = @instances["#{id}_l"]
+    i && i.playing?
+  end
+
+  def stopped?(id = :default)
+    @instances["#{id}_l"].nil?
+  end
+
+  def play(id = :default, pan = 0,
+           volume = 1, speed = 1, looping = false)
+    if @instances.size > MAX_POLIPHONY
+      return
+    end
+    @instances["#{id}_l"] = @sound_l.play_pan(
+      -0.2, 0, speed, looping)
+    @instances["#{id}_r"] = @sound_r.play_pan(
+      0.2, 0, speed, looping)
+    volume_and_pan(id, volume, pan)
+  end
+
+  def pause(id = :default)
+    @instances["#{id}_l"].pause
+    @instances["#{id}_r"].pause
+  end
+
+  def resume(id = :default)
+    @instances["#{id}_l"].resume
+    @instances["#{id}_r"].resume
+  end
+
+  def stop
+    @instances.delete("#{id}_l").stop
+    @instances.delete("#{id}_r").stop
+  end
+
+  def volume_and_pan(id, volume, pan)
+    return unless @instances["#{id}_l"]
+    if pan > 0
+      pan_l = 1 - pan * 2
+      pan_r = 1
+    else
+      pan_l = 1
+      pan_r = 1 + pan * 2
+    end
+    pan_l *= volume
+    pan_r *= volume
+    @instances["#{id}_l"].volume = [pan_l, 0.05].max
+    @instances["#{id}_r"].volume = [pan_r, 0.05].max
+  end
+end