=begin マップイベント呼び出し for VX 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:: 2011/06/07 JST =end DEGU = "イケメン" class Game_Event attr_reader :event end class Game_Interpreter def call_event(event_id, page_no, 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.rvdata", map_id)).events[event_id] end if e.nil? error_info = "map_id:#{map_id}\nevent_id:#{event_id}\npage:#{page_no}" raise("そんなイベントないですぅ\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("ページがないただの屍のようだ\n#{error_info}") end list = page.list @child_interpreter = Game_Interpreter.new(@depth + 1) @child_interpreter.setup(list, event_id) return true end end