class Pre_Title < Scene_Base def start super create_lang_window load end#------------------------------------------------------------------------------ def load $data_system = load_data("Data/System.rvdata") $game_variables = Game_Variables.new end#------------------------------------------------------------------------------ def update super @lang_window.update if Input.trigger?(Input::C) case @lang_window.index when 0 $game_variables[18] = "Deutsch" when 1 $game_variables[18] = "English" end @lang_window.dispose $scene = Scene_Title.new end end#------------------------------------------------------------------------------ def create_lang_window s1 = "Deutsch" s2 = "English" @lang_window = Window_Command.new(172, [s1, s2]) @lang_window.x = (544 - @lang_window.width) / 2 @lang_window.y = 288 @lang_window.openness = 0 @lang_window.open end end#==============================================================================class Scene_Title < Scene_Base def create_game_objects $game_temp = Game_Temp.new $game_message = Game_Message.new $game_system = Game_System.new $game_switches = Game_Switches.new $game_self_switches = Game_SelfSwitches.new $game_actors = Game_Actors.new $game_party = Game_Party.new $game_troop = Game_Troop.new $game_map = Game_Map.new $game_player = Game_Player.new endend