Quellcode

#==============================================================================
# **Scene_command_new_game
#------------------------------------------------------------------------------
#  Über Main einfügen. Wann soll dasIntro gestartet wereden?
#    a) bei NewGame
#      In Scene_Title Z.99 command_new_game 
#      durch 
#      $scene = Scene_command_new_game.new
#      ersetzen.
#    b) vor dem Titlescreen
#       In Main Z.11
#       scene = Scene_Title.new
#       durch
#       $scene = Scene_command_new_game.new
#       ersetzen
#==============Einstellungen===================================================
#       Z.24 -Z.28
#       @x und @y sind die Koordinaten
#       @map_id ist die Karten ID
#       @abfrage: 
#            true |abfragen ob das Intro angeschaut werden soll
#            false| dierekt zu Intro wechseln.
#---------------------------------------------------------------------------------------------------------------------
# *** Made by Tikrass ***
#==============================================================================
class Scene_command_new_game
 
#--------------------------------------------------------------------------
# * Main Processing
#--------------------------------------------------------------------------
  def main
    @x = 1
    @y = 1
    @map_id = 1
    @abfrage = true
    if @abfrage == false
      introgame
    end
    #Create objects
    s1 = "Intro anschauen"
    s2 = "überspringen"
    @command_window = Window_Command.new(192, [s1, s2])
    @command_window.back_opacity = 255
    @command_window.x = 320 
    @command_window.y = 288
    # Execute transition
    Graphics.transition
 
    # Main loop
    loop do
      # Update game screen
      Graphics.update
      # Update input information
      Input.update
      # Frame update
      update
      # Abort loop if screen is changed
      if $scene != self
        break
      end
    end
 
    # Prepare for transition
    Graphics.freeze
 
    # Dispose of objects
    #...
  end
 
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
  def update
    if Input.trigger(Input::C)
      case @command_window.index 
      when 0
        introgame(true)
      when 1
        new_game
      end
  end
#--------------------------------------------------------------------------
#
#--------------------------------------------------------------------------
  def introgame
    # Play decision SE
    $game_system.se_play($data_system.decision_se)
    # Stop BGM
    Audio.bgm_stop
    # Reset frame count for measuring play time
    Graphics.frame_count = 0
    # Make each type of game object
    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.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
    # Set up initial party
    $game_party.setup_starting_members
    # Set up initial map position
    $game_map.setup(@map_id)
    # Move player to initial position
    $game_player.moveto(@x,@y)
    # Refresh player
    $game_player.refresh
    # Run automatic change for BGM and BGS set with map
    $game_map.autoplay
    # Update map (run parallel process event)
    $game_map.update
    # Switch to map screen
    $scene = Scene_Map.new
  end
  def new_game
    # Play decision SE
    $game_system.se_play($data_system.decision_se)
    # Stop BGM
    Audio.bgm_stop
    # Reset frame count for measuring play time
    Graphics.frame_count = 0
    # Make each type of game object
    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.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
    # Set up initial party
    $game_party.setup_starting_members
    # Set up initial map position
    $game_map.setup($data_system.start_map_id)
    # Move player to initial position
    $game_player.moveto($data_system.start_x, $data_system.start_y)
    # Refresh player
    $game_player.refresh
    # Run automatic change for BGM and BGS set with map
    $game_map.autoplay
    # Update map (run parallel process event)
    $game_map.update
    # Switch to map screen
    $scene = Scene_Map.new
  end
end