=begin
マップイベント呼び出し for VXA ver 1.0.0.0
  RPGツクール2000のイベント呼び出しみたいなの

call_event(event_id, page_no[, map_id])
::INPUT
  event_id: イベントのID
  page_no:  ページNo
  map_id:   マップのID（省略時は同マップ）


スクリプト：call_event(3,2)
とかやるとイベント3の2ページ目呼び出し

URL:: http://www.tktkgame.com/
LAST_UPDATE:: 2012/02/04
=end
class Game_Event
  attr_reader :event
end
class Game_Interpreter
  def call_event(event_id, page_no=1, map_id=@map_id)
    if map_id == @map_id
      e = $game_map.events[event_id]
      e = e.event unless e.nil?
    else
      e = load_data(sprintf("Data/Map%03d.rvdata2", map_id)).events[event_id]
    end
    if e.nil?
      error_info = "map_id:#{map_id}\nevent_id:#{event_id}\npage:#{page_no}"
      raise("Event Not Found\n#{error_info}")
    end
    page = e.pages[page_no - 1]
    if page.nil?
      error_info = "map_id:#{map_id}\nevent_id:#{event_id}\npage:#{page_no}"
      raise("EventPage Not Found\n#{error_info}")
    end
    list = page.list
    child = Game_Interpreter.new(@depth + 1)
    child.setup(list, same_map? ? @event_id : 0)
    child.run
    return true
  end
end