Ruby Quellcode

#==============================================================================
# ** Scene_Fensterwahl
#------------------------------------------------------------------------------
#  (c) by Playm
#==============================================================================
 
class Scene_Fensterwahl
  #--------------------------------------------------------------------------
  # * Main Processing
  #--------------------------------------------------------------------------
  def main
    #Load Data
    $data_system        = load_data("Data/System.rxdata")
    # Make types of game object
    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    # Make command window
    s1 = "Vollbild"
    s2 = "Fenstermodus"
    @command_window = Window_Command.new(192, [s1, s2])
    @command_window.x = 320 - @command_window.width / 2
    @command_window.y = 240 - @command_window.height / 2
    # 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 window
    @command_window.dispose
    # If switching to title screen
    if $scene.is_a?(Scene_Title)
      # Fade out screen
      Graphics.transition
      Graphics.freeze
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    # Update command window
    @command_window.update
    # If B button was pressed
    if Input.trigger?(Input::B)
      # Play cancel SE
      $game_system.se_play($data_system.cancel_se)
      # FensterModus
      command_fenster
      return
    end
    # If C button was pressed
    if Input.trigger?(Input::C)
      # Branch by command window cursor position
      case @command_window.index
      when 0  # VollbildModus
        command_vollbild
      when 1  # FensterModus
        command_fenster
      end
      return
    end
  end
  #--------------------------------------------------------------------------
  def command_vollbild
    # Play decision SE
    $game_system.se_play($data_system.decision_se)# Play decision SE
    unless $keybd
      $keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
      $keybd.call 0xA4, 0, 0, 0
      $keybd.call 13, 0, 0, 0
      $keybd.call 13, 0, 2, 0
      $keybd.call 0xA4, 0, 2, 0
    end
    $auswahl_getroffen = true
    $scene = Scene_Title.new
  end  #--------------------------------------------------------------------------
  def command_fenster
    # Play decision SE
    $game_system.se_play($data_system.decision_se)
    $auswahl_getroffen = true
    # Mach normal weiter
    $scene = Scene_Title.new
  end
end