map_explorer.rb

require 'gosu'
require_relative 'starting_position'
require_relative './MapGenerator/map_factory'
require_relative './UI/map_overview'
require_relative './UI/info_box'
require_relative './UI/view_port'

# The primary UI which shows the world in first person perspective along
# with a mini-map and some info. This can be started directly to test
# exploring maps.
class MapExplorer < Gosu::Window
  # Determine the speed at which new button presses are processed
  TICKS_PER_STEP = 15

  def initialize
    super 800, 600, false
    self.caption = 'Map Explorer'

    @world_map = MapFactory.make_small_world
    @map = @world_map

    @starting_position = StartingPosition.new
    @current_position = @starting_position.get(@map)
    @previous_map_position = []

    @compass = [:north, :west, :south, :east]
    @key_countdown = 0

    @view_port = ViewPort.new(self)
    @info_box = InfoBox.new(self)
    @map_overview = MapOverview.new(650, 130, self)

    @acted = false
  end

  def update
    if @key_countdown > 0
      @key_countdown -= 1

      if @key_countdown == 0
        @key_countdown = TICKS_PER_STEP
        button_presses
      end
    end
  end

  def draw
    @view_port.draw(@map, @current_position, @compass)
    @info_box.draw(@map, @current_position, @compass)
    @map_overview.draw(@map, @current_position, @compass)
  end

  def button_down(id)
    close if id == Gosu::KbEscape

    if @key_countdown == 0
      # First step
      @key_countdown = TICKS_PER_STEP
      button_presses
    end
  end

  private

  def button_presses
    if button_down? Gosu::KbUp
      step_forward
      @acted = false
    elsif button_down? Gosu::KbDown
      step_backward
      @acted = false
    elsif button_down? Gosu::KbLeft
      @compass.rotate!
    elsif button_down? Gosu::KbRight
      @compass.rotate!(-1)
    end

    act_for_tile
  end

  def act_for_tile
    tile_type = @map.tile_at(@current_position[:x], @current_position[:y]).type
    if tile_type == :city || tile_type == :cave
      @previous_map_position.push([previous_tile, @map])
      @map = @world_map.get_map_at_position(@current_position[:x],
                                            @current_position[:y])
      @current_position = @starting_position.get_sub_map_position(@map)
    end

    if tile_type == :entrance
      old_position = @previous_map_position.pop
      @current_position = old_position[0]
      @map = old_position[1]
    end

    unless @map.tile_at(@current_position[:x],
                        @current_position[:y]).event.nil? || @acted
      @map.tile_at(@current_position[:x], @current_position[:y]).event.act
      @acted = true
    end
  end

  def step_forward
    case @compass[0]
      when :north
        @current_position[:y] -= 1 if @map.tile_at(@current_position[:x], @current_position[:y] - 1).passable?
      when :south
        @current_position[:y] += 1 if @map.tile_at(@current_position[:x], @current_position[:y] + 1).passable?
      when :west
        @current_position[:x] -= 1 if @map.tile_at(@current_position[:x] - 1, @current_position[:y]).passable?
      when :east
        @current_position[:x] += 1 if @map.tile_at(@current_position[:x] + 1, @current_position[:y]).passable?
    end
  end

  def step_backward
    case @compass[0]
      when :north
        @current_position[:y] += 1 if @map.tile_at(@current_position[:x], @current_position[:y] + 1).passable?
      when :south
        @current_position[:y] -= 1 if @map.tile_at(@current_position[:x], @current_position[:y] - 1).passable?
      when :west
        @current_position[:x] += 1 if @map.tile_at(@current_position[:x] + 1, @current_position[:y]).passable?
      when :east
        @current_position[:x] -= 1 if @map.tile_at(@current_position[:x] - 1, @current_position[:y]).passable?
    end
  end

  def previous_tile
    case @compass[0]
      when :north
        { x: @current_position[:x], y: @current_position[:y] + 1 }
      when :south
        { x: @current_position[:x], y: @current_position[:y] - 1 }
      when :west
        { x: @current_position[:x] + 1, y: @current_position[:y] }
      when :east
        { x: @current_position[:x] - 1, y: @current_position[:y] }
    end
  end
end

window = MapExplorer.new
window.show