class Scene_Title
  $map_names = load_data("Data/MapInfos.rxdata")
  for key in $map_names.keys
    $map_names[key] = $map_names[key].name
  end
  alias prexus_metroid_stitle_command_new_game command_new_game
  def command_new_game
    $map_objects = {}
    for key in $map_names.keys
      map_info = $map_names[key].split('-')
      $map_objects[key] = Map_Object.new
      $map_objects[key].big_id = map_info[0]
      $map_objects[key].x = alpha_convert(map_info[1])
      $map_objects[key].y = map_info[2].to_i - 1
      $map_objects[key].type = type_convert(map_info[3]) if map_info[3]
    end
    prexus_metroid_stitle_command_new_game
  end
  def alpha_convert(letter)
    case letter.upcase
    when 'A'
      return 0
    when 'B'
      return 1
    when 'C'
      return 2
    when 'D'
      return 3
    when 'E'
      return 4
    when 'F'
      return 5
    when 'G'
      return 6
    when 'H'
      return 7
    when 'J'
      return 8
    when 'K'
      return 9
    end
  end
  def type_convert(letter)
    case letter.upcase
    when 'B'
      return 1
    when 'E'
      return 2
    end
  end
end

module Map_Colors
  BORDER = Color.new(255, 255, 255)
  UNVISITED = Color.new(96, 96, 96)
  VISITED = Color.new(255, 128, 255)
  START = Color.new(255, 128, 128)
  BOSS = Color.new(128, 128, 255)
end

class Map_Object
  attr_accessor :big_id
  attr_accessor :x
  attr_accessor :y
  attr_accessor :visited
  attr_accessor :type
  def initialize
    @big_id = 0
    @x = 0
    @y = 0
    @visited = false
    @type = 0 # 0 = Blank, 1 = Dungeon Entrance, 2 = Boss Area
  end
end

class Game_Map
  alias prexus_metroid_gmap_setup setup
  def setup(map_id)
    prexus_metroid_gmap_setup(map_id)
    unless $map_objects[@map_id].visited
      $map_objects[@map_id].visited = true
    end
    if $scene.is_a?(Scene_Map)
      if $scene.map.big_id != $map_objects[@map_id].big_id
        $scene.map.big_id = $map_objects[@map_id].big_id
      end
      $scene.map.refresh
    end
  end
  def big_id
    return $map_objects[@map_id].big_id
  end
end

class Map < Sprite
  attr_accessor :big_id
  def initialize
    super()
    self.x, self.y = 0, 0
    self.bitmap = Bitmap.new(640, 480)
    self.bitmap.font.name = 'Georgia'
    self.bitmap.font.bold = true
    self.bitmap.font.size = 14
    self.opacity = 255
    self.visible = true
    @offset = [32, 32] # [x, y]
    @room_size = [24, 16] # [width, height]
    @big_id = 0
    refresh
  end
  def refresh
    self.bitmap.clear
    return unless @big_id != 0
    maps = {}
    for object in $map_objects
      next unless object[1].big_id == @big_id
      maps[object[0]] = object[1]
    end
    top_x = 0
    top_y = 0
    for map in maps.values
      top_x = map.x if top_x < map.x
      top_y = map.y if top_y < map.y
    end
    for x in 0..top_x + 1
      for y in 0..top_y + 1
        map = find_map(maps, x, y)
        next unless map
        draw_x = @offset[0] + (x * @room_size[0])
        draw_y = @offset[1] + (y * @room_size[1])
        self.bitmap.fill_rect(draw_x, draw_y, @room_size[0], @room_size[1],
                              Map_Colors::BORDER)
        fill_color = (map.visited ? Map_Colors::VISITED : Map_Colors::UNVISITED)
        self.bitmap.fill_rect(draw_x + 1, draw_y + 1, @room_size[0] - 2,
                              @room_size[1] - 2, fill_color)
        case map.type
        when 1
          self.bitmap.fill_rect(draw_x + 3, draw_y + 3, @room_size[0] - 6,
                                @room_size[1] - 6, Map_Colors::START)
        when 2
          self.bitmap.fill_rect(draw_x + 3, draw_y + 3, @room_size[0] - 6,
                                @room_size[1] - 6, Map_Colors::BOSS)
        end
      end
    end
  end
  def find_map(hash, x, y)
    for map in hash.values
      return map if (map.x == x) and (map.y == y)
    end
    return nil
  end
  def update
    if @big_id != $game_map.big_id
      @big_id = $game_map.big_id
      refresh
    end
  end
end

class Scene_Map
  attr_accessor :map
  alias prexus_metroid_smap_main main
  def main
    @map = Map.new
    prexus_metroid_smap_main
    @map.dispose
  end
  alias prexus_metroid_smap_update update
  def update
    @map.update
    prexus_metroid_smap_update
  end
end