Xenres' Single Actor Escape

=begin
  Xenres' Single Actor Escape
  Last Edit: 2010-08-02
 
  Description:
    Adds single actor escape functionality to the battle system.
=end
 
class Scene_Battle
  #--------------------------------------------------------------------------
  # * Main Processing
  #--------------------------------------------------------------------------
  def main
 
    # Initialize each kind of temporary battle data
    $game_temp.in_battle = true
    $game_temp.battle_turn = 0
    $game_temp.battle_event_flags.clear
    $game_temp.battle_abort = false
    $game_temp.battle_main_phase = false
    $game_temp.battleback_name = $game_map.battleback_name
    $game_temp.forcing_battler = nil
 
    # Initialize battle event interpreter
    $game_system.battle_interpreter.setup(nil, 0)
 
    # Prepare troop
    @troop_id = $game_temp.battle_troop_id
    $game_troop.setup(@troop_id)
 
    # Battle Menu Command List
    s1 = $data_system.words.attack
    s2 = $data_system.words.skill
    s3 = $data_system.words.guard
    s4 = $data_system.words.item
    s5 = "Escape"
 
    # Display appropriate battle menu
    if $game_temp.battle_can_escape
      @actor_command_window = Window_Command.new(140, [s1, s2, s3, s4, s5])
      @actor_command_window.y = 140
    else
      @actor_command_window = Window_Command.new(160, [s1, s2, s3, s4])
      @actor_command_window.y = 160
    end
    @actor_command_window.back_opacity = 160
    @actor_command_window.active = false
    @actor_command_window.visible = false
 
    # Make other windows
    @party_command_window = Window_PartyCommand.new
    @help_window = Window_Help.new
    @help_window.back_opacity = 160
    @help_window.visible = false
    @status_window = Window_BattleStatus.new
    @message_window = Window_Message.new
 
    # Make sprite set
    @spriteset = Spriteset_Battle.new
 
    # Initialize wait count
    @wait_count = 0
 
    # Execute transition
    if $data_system.battle_transition == ""
      Graphics.transition(20)
    else
      Graphics.transition(40, "Graphics/Transitions/" +
        $data_system.battle_transition)
    end
 
    # Start pre-battle phase
    start_phase1
 
    # 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
 
    # Refresh map
    $game_map.refresh
 
    # Prepare for transition
    Graphics.freeze
 
    # Dispose of windows
    @actor_command_window.dispose
    @party_command_window.dispose
    @help_window.dispose
    @status_window.dispose
    @message_window.dispose
    if @skill_window != nil
      @skill_window.dispose
    end
    if @item_window != nil
      @item_window.dispose
    end
    if @result_window != nil
      @result_window.dispose
    end
 
    # Dispose of sprite set
    @spriteset.dispose
 
    # If switching to title screen
    if $scene.is_a?(Scene_Title)
 
      # Fade out screen
      Graphics.transition
      Graphics.freeze
    end
 
    # If switching from battle test to any screen other than game over screen
    if $BTEST and not $scene.is_a?(Scene_Gameover)
      $scene = nil
    end
  end
 
  #----------------------------------------------------------------------------
  # Start Actor Escape
  #----------------------------------------------------------------------------
  def start_actor_escape
 
    # Calculate enemy agility average
    enemies_agi = 0
    enemies_number = 0
    for enemy in $game_troop.enemies
      if enemy.exist?
        enemies_agi += enemy.agi
        enemies_number += 1
      end
    end
    if enemies_number > 0
      enemies_agi /= enemies_number
    end
 
    # calculate success
    success = rand(100) > 50 * @active_battler.agi / enemies_agi
 
    # if successful
    if success
      # Play escape SE
      $game_system.se_play($data_system.escape_se)
      # Remove actor from party
      $game_party.remove_actor(@active_battler.id)
    end
 
    # calculate number of actors left in group
    actors_number = 0
    for actor in $game_party.actors
      if actor.exist?
        actors_number += 1
      end
    end
    if actors_number > 0
      phase3_next_actor
    else
      $game_system.bgm_play($game_temp.map_bgm)
      # Battle ends
      battle_end(1)
    end
  end
 
  #--------------------------------------------------------------------------
  # * Frame Update (actor command phase : basic command)
  #--------------------------------------------------------------------------
  def update_phase3_basic_command
    # If B button was pressed
    if Input.trigger?(Input::B)
      # Play cancel SE
      $game_system.se_play($data_system.cancel_se)
      # Go to command input for previous actor
      phase3_prior_actor
      return
    end
    # If C button was pressed
    if Input.trigger?(Input::C)
      # Branch by actor command window cursor position
      case @actor_command_window.index
      when 0  # attack
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Set action
        @active_battler.current_action.kind = 0
        @active_battler.current_action.basic = 0
        # Start enemy selection
        start_enemy_select
      when 1  # skill
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Set action
        @active_battler.current_action.kind = 1
        # Start skill selection
        start_skill_select
      when 2  # guard
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Set action
        @active_battler.current_action.kind = 0
        @active_battler.current_action.basic = 1
        # Go to command input for next actor
        phase3_next_actor
      when 3  # item
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Set action
        @active_battler.current_action.kind = 2
        # Start item selection
        start_item_select
      when 4 # escape
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Set Action
        @active_battler.current_action.kind = 3
        # go to next actor
        phase3_next_actor
      end
      return
    end
  end
 
  #--------------------------------------------------------------------------
  # * Frame Update (main phase step 2 : start action)
  #--------------------------------------------------------------------------
  def update_phase4_step2
    # If not a forcing action
    unless @active_battler.current_action.forcing
      # If restriction is [normal attack enemy] or [normal attack ally]
      if @active_battler.restriction == 2 or @active_battler.restriction == 3
        # Set attack as an action
        @active_battler.current_action.kind = 0
        @active_battler.current_action.basic = 0
      end
      # If restriction is [cannot perform action]
      if @active_battler.restriction == 4
        # Clear battler being forced into action
        $game_temp.forcing_battler = nil
        # Shift to step 1
        @phase4_step = 1
        return
      end
    end
    # Clear target battlers
    @target_battlers = []
    # Branch according to each action
    case @active_battler.current_action.kind
    when 0  # basic
      make_basic_action_result
    when 1  # skill
      make_skill_action_result
    when 2  # item
      make_item_action_result
    when 3 # escape
      start_actor_escape
    end
    # Shift to step 3
    if @phase4_step == 2
      @phase4_step = 3
    end
  end
end