[RMVX ACE] CHOICE IN MENU

add_command("", :locale, false)

class Locale
  # This class will keep track of whatever variables we need to teleport.
  attr_accessor :map_id   # Map ID
  attr_accessor :x        # X coordinate
  attr_accessor :y        # Y coordinate
  attr_accessor :lock     # Location locked/unlocked attribute.
  attr_accessor :face     # Character facing after teleport.
  attr_accessor :name     # Location display name.
  
  def initialize
    # Initializes variables.
    @map_id = 0
    @x = 0
    @y = 0
    @lock = true
    @face = 2
    @name = "Undefined"
  end
  
  def set_map_id(index)
    # Sets the Map ID.
    @map_id = index
  end
  
  def set_x(pos)
    # Sets the X coordinate.
    @x = pos
  end
  
  def set_y(pos)
    # Sets the Y coordinate.
    @y = pos
  end
      
  def set_lock(lock)
    # Sets whether or not the location is available
    # or not. Default value is true.
    @lock = lock
  end
  
  def set_face(angle)
    # Sets the facing of the character after teleport.
    # With this function, the possible values are the same as the ones
    # resulting from Set Varibles -> Character facing.
    # So 2 is down, 4 is left, 6 is right and 8 is up.
    # Default value is down (2)
    @face = angle
  end
  
  def get_name
    # Gets the display name for a location.
    if @map_id != 0
      if @lock == true
        map = load_data(sprintf("Data/Map%03d.rvdata2", @map_id))
        @name = map.display_name
        # Note that name stays "Undefined" when map_id is 0. This is mostly
        # to emulate Lloyd's Beacon-like effects, should one choose to go
        # that route.
      else
        @name = "Location locked!"
      end
    end
  end
  
  def add(index, pos_x, pos_y, lock = true, face = 2)
    # A quicker method to add locales than going function-by-function.
    set_map_id(index)
    set_x(pos_x)
    set_y(pos_y)
    set_lock(lock)
    set_face(face)
    get_name
  end
    
  def teleport
    # Performs the teleport operation. Not EXACTLY the self-same that the
    # Transfer Player event command uses, but for our purposes, close enough.
    $game_player.reserve_transfer(@map_id, @x, @y, @face)
    $game_player.perform_transfer
  end
end

class Locales
  attr_reader :data # Location array.
  
  def initialize
    @data = []
    set_array
  end
  
  def add_locale(id, x, y, lock = true, face = 2)
    # Adds a locale to the locals array.
    index = @data.size
    @data[index] = Locale.new
    @data[index].add(id, x, y, lock, face)
  end

  def set_array
    # ID = 10 [Staerdale Palace]; Place = (17, 13); not availabe; default (down)
    add_locale(10, 17, 13, false)
    
    # ID = 15 [Glikx Heights]; Place = (9, 9); not availabe; default (down)
    add_locale(15, 9, 9, false)
    
    # ID = 19 [Sraphyhl Peak]; Place = (9, 9); not available; default (down)
    add_locale(19, 9, 9, false)
    
    # ID = 25 [Blils Wood]; Place = (12, 14); not available; default (down)
    add_locale(25, 12, 14, false)
    
    # ID = 28 [Windwhisper Outpost]; Place = (12, 11); not available; default (down)
    add_locale(28, 12, 11, false)
    
    # ID = 31 [Clafton Keep]; Place = (13, 17); not available; default (down)
    add_locale(31, 13, 17, false)
    
    # ID = 37 [Monastery]; Place = (33, 16); not available; default (down)
    add_locale(37, 33, 16, false)
    
    # ID = 40 [Klird Timberwood]; Place = (9, 10); not available; default (down)
    add_locale(40, 9, 10, false)
    
    # ID = 43 [Southsong Manor]; Place = (7, 10); not available; default (down)
    add_locale(43, 7, 10, false)
    
    # ID = 46 [Parltron Citadel]; Place = (8, 17); not available; default (down)
    add_locale(46, 8, 17, false)
    
    # ID = 49 [Trygh Forest]; Place = (14, 14); not available; default(down)
    add_locale(49, 14, 14, false)
    
    # ID = 53 [Lost Village]; Place = (15, 12); not available; default (down)
    add_locale(53, 15, 12, false)
    
    # Example
    # ID = map_id; Place = (x, y); locked; default (down)
    # add_locale(map_id, x, y, false)
  end

  def set(index, id, x, y, lock = true, face = 2)
    # Replaces one location data for another. Mostly for Llody's Beacon-like
    # effects.
    @data[index].add(id, x, y, lock, face)
  end
  
  def set_lock(index, lock)
    # Locks, or unlocks, a location.
    @data[index].set_lock(lock)
    @data[index].get_name
  end
end

def make_item_list
  i = 0
  while i < $locales.data.size
    add_command($locales.data[i].name, :locale, $locales.data[i].lock)
    i += 1
  end
end

def make_item_list
  # First row
  add_command($locales.data[0].name, :locale, $locales.data[0].lock)
  add_command($locales.data[5].name, :locale, $locales.data[5].lock)
  add_command($locales.data[9].name, :locale, $locales.data[9].lock)

  # Second row
  add_command($locales.data[1].name, :locale, $locales.data[1].lock)
  add_command($locales.data[6].name, :locale, $locales.data[6].lock)
  add_command($locales.data[10].name, :locale, $locales.data[10].lock)
    
  # Thrid row
  add_command($locales.data[2].name, :locale, $locales.data[2].lock)
  add_command($locales.data[7].name, :locale, $locales.data[7].lock)
  add_command($locales.data[11].name, :locale, $locales.data[11].lock)
    
  # Fourth row
  add_command($locales.data[3].name, :locale, $locales.data[3].lock)
  add_command($locales.data[8].name, :locale, $locales.data[8].lock)
  add_command("", :locale, false)
    
  # Fifth row
  add_command($locales.data[4].name, :locale, $locales.data[3].lock)
  add_command("", :locale, false)
  add_command("", :locale, false)
end

def col_max
  return 3
end