Ruby Quellcode

class Interpreter
 
  #--------------------------------------------------------------------------
  # * Force Action
  # Überschrieben: Erzwungene Handlungen sollen auch ausgeführt werden wenn
  #     die erste Kampfrunde noch nicht beendet wurde.
  #--------------------------------------------------------------------------
  def command_339
    # Ignore if not in battle
    unless $game_temp.in_battle
      return true
    end
    # Ignore if number of turns = 0
    ### EDIT ###
    # if $game_temp.battle_turn == 0
    #   return true
    # end
    ############
    # Process with iterator (For convenience, this process won't be repeated)
    iterate_battler(@parameters[0], @parameters[1]) do |battler|
      # If battler exists
      if battler.exist?
        # Set action
        battler.current_action.kind = @parameters[2]
        if battler.current_action.kind == 0
          battler.current_action.basic = @parameters[3]
        else
          battler.current_action.skill_id = @parameters[3]
        end
        # Set action target
        if @parameters[4] == -2
          if battler.is_a?(Game_Enemy)
            battler.current_action.decide_last_target_for_enemy
          else
            battler.current_action.decide_last_target_for_actor
          end
        elsif @parameters[4] == -1
          if battler.is_a?(Game_Enemy)
            battler.current_action.decide_random_target_for_enemy
          else
            battler.current_action.decide_random_target_for_actor
          end
        elsif @parameters[4] >= 0
          battler.current_action.target_index = @parameters[4]
        end
        # Set force flag
        battler.current_action.forcing = true
        # If action is valid and [run now]
        if battler.current_action.valid? and @parameters[5] == 1
          # Set battler being forced into action
          $game_temp.forcing_battler = battler
          # Advance index
          @index += 1
          # End
          return false
        end
      end
    end
    # Continue
    return true
  end
end
 
 
#==============================================================================
# ** Game_Battler
#------------------------------------------------------------------------------
#  This class deals with battlers. It's used as a superclass for the Game_Actor
#  and Game_Enemy classes.
#==============================================================================
 
class Game_Battler
 
  #--------------------------------------------------------------------------
  # * Game_Battler#atb_full?
  # Überschrieben: Ein Kämpfer der zur sofortigen Handlung gezwungen ist erhält
  #     eine volle ATB-Leiste um agieren zu können.
  #--------------------------------------------------------------------------
  alias_method(:atb_full_ILC_TEST, :atb_full?)
  def atb_full?
    atb_full_ILC_TEST or self == $game_temp.forcing_battler
  end
end
 
 
#==============================================================================
# ** Scene_Battle
#------------------------------------------------------------------------------
#  This class performs battle screen processing.
#==============================================================================
 
class Scene_Battle
 
  #--------------------------------------------------------------------------
  # * Scene_Battle#update_phase4_step6
  # Überschrieben: Löscht das "forcing"-Flag der Aktion um zu verhindern
  #     dass eine Aktion ein zweites Mal als "erzwungen" ausgeführt wird.
  #--------------------------------------------------------------------------
  alias_method(:update_phase4_step6_ILC_TEST, :update_phase4_step6)
  def update_phase4_step6
    update_phase4_step6_ILC_TEST
    @active_battler.current_action.forcing = false
  end
 
  #--------------------------------------------------------------------------
  # * Scene_Battle#update
  # Überschrieben: Ein laufendes Battle-Event wird ignoriert solange ein Kämpfer
  #     zur Ausführung einer Aktion gezwungen ist.
  #--------------------------------------------------------------------------
  def update
    if @phase == 1
      $game_temp.battle_main_phase = true
      @actor_command_window.opacity = 0
      @phase = 0
    elsif @phase != 5
      @phase = 0
    end
    @event_running = true if $game_system.battle_interpreter.running?
    acbs_update_atb
    ### Edit: ###
    if $game_temp.forcing_battler == nil
      if $game_system.battle_interpreter.running?
        return
      elsif @event_running
        @status_window.refresh
        @event_running = false
      end
    end
    #############
    return $scene = Scene_Gameover.new if $game_temp.gameover
    return update_phase5 if @phase == 5
    @event_running = true if $game_system.battle_interpreter.running?
    if @update_turn_end
      turn_ending 
      @update_turn_end = false
    end
    if Input.press?(Escape_Input) and @escape_type > 0 
      if $game_temp.battle_can_escape
        $game_temp.max_escape_count = update_phase2_escape_rate
        $game_temp.escape_count += 2 unless @wait_on
        @escaping = true
        if !@help_window.visible and @escape_type == 1
          @help_window.set_text('')
          @help_window.set_text(Escape_Message, 1)
        end
        if @escape_type == 2
          if @escape_atb_meters.nil?
            @escape_atb_meters = Escape_Meters.new
            @escape_meter_opacity = 0
            @escape_atb_meters.visible = true
          else @escape_atb_meters != nil
            @escape_atb_meters.opacity = 15 * @escape_meter_opacity
            @escape_meter_opacity = [@escape_meter_opacity + 1, 17].min
            @escape_atb_meters.refresh
          end
        end
        if $game_temp.escape_count >= $game_temp.max_escape_count
          $game_temp.escape_count = 0
          update_phase2_escape unless $game_party.all_dead?
        end
      else
        @help_window.set_text(Cant_Escape_Message, 1) if @escape_type == 1        
        if @escape_type == 2       
          if @escape_atb_meters.nil?
            @escape_atb_meters = Escape_Meters.new
            @escape_meter_opacity = 0
            @escape_atb_meters.visible = true
          else @escape_atb_meters != nil
            @escape_atb_meters.opacity = 15 * @escape_meter_opacity
            @escape_meter_opacity = [@escape_meter_opacity + 1, 17].min
            @escape_atb_meters.refresh
          end
        end
      end
    elsif @escape_type > 0
      if @escaping
        @escaping = false
        @help_window.visible = false
      end
      $game_temp.escape_count = [$game_temp.escape_count - 1, 0].max unless @wait_on
      if @escape_atb_meters != nil and $game_temp.escape_count == 0
        @escape_atb_meters.opacity = 15 * @escape_meter_opacity
        @escape_meter_opacity = [@escape_meter_opacity - 1, 0].max
        if @escape_meter_opacity == 0
          @escape_atb_meters.dispose 
          @escape_atb_meters = nil
        end
      end
      @escape_atb_meters.refresh if @escape_atb_meters != nil
    end
    return if @escaped
    atb_update
    input_battler_update(false)
    if @action_battlers[0] != nil && @action_battler.nil?
      @action_battlers.flatten!
      @action_battler = @action_battlers[0]
      if @action_battler.dead?
        @action_battler.atb = 0
        @action_battler = nil
      else
        start_phase4
      end
    end
    if @action_battler != nil && !@spriteset.effect?
      @active_battler = @action_battler
      update_phase4
    end
  end
 
  #--------------------------------------------------------------------------
  # * Scene_Battle#turn_ending
  # Überschrieben: Da die Methode nun zu jeder Zeit aufgerufen werden kann dürfen
  #     die Aktionen der Kämpfer nicht zurückgesetzt werden um zu vermeiden dass
  #     über "Force Action" reservierte Aktionen abgebrochen werden. Aktionen
  #     ohne "forcing"-Flag werden ersetzt sobald der entspr. Kämpfer wieder
  #     am Zug ist.
  #--------------------------------------------------------------------------
  def turn_ending
    for member in $game_party.actors + $game_troop.enemies
      ### EDIT ###
      # member.current_action.clear
      ############
      next unless member.exist?
      member.slip_damage = false
      actor = member.actor?
      for state in member.battler_states
        member.remove_state(state.id) if state.extension.include?("ZEROTURNLIFT")
      end
      damage = 0
      for state in member.battler_states
        next unless state.extension.include?("SLIPDAMAGE")
        for ext in state.slip_extension
          if ext[0] == "hp"
            base_damage = ext[1] + member.maxhp * ext[2] / 100
            damage += base_damage + base_damage * (rand(5) - rand(5)) / 100
            slip_pop = ext[3]
            slip_dead = ext[4]
            slip_damage_flug = true
            member.slip_damage = true
          end
        end  
      end
      if member.slip_damage && member.exist? && !slip_damage_flug
        damage += member.apply_variance(member.maxhp / 10, 10)
        slip_dead = false
        slip_pop = true
        slip_damage_flug = true
        member.slip_damage = true
      end
      damage = member.hp - 1 if damage >= member.hp && slip_dead = false
      member.hp -= damage
      member.damage = damage if damage > 0
      member.perform_collapse if member.dead? && member.slip_damage
      @spriteset.set_damage_pop(actor, member.index, damage) if slip_pop
      @spriteset.set_stand_by_action(actor, member.index) if member.hp <= 0 and not member.dead_anim
      member.dead_anim = member.dead? ? true : false
    end
    @status_window.refresh
    wait(DMG_DURATION / 2) if slip_damage_flug
    slip_damage_flug = false
    for member in $game_party.actors + $game_troop.enemies
      next unless member.exist?
      actor = member.actor?
      damage = 0
      for state in member.battler_states
        next unless state.extension.include?("SLIPDAMAGE")
        for ext in state.slip_extension
          if ext[0] == "mp"
            base_damage = ext[1] + member.maxsp * ext[2] / 100
            damage += base_damage + base_damage * (rand(5) - rand(5)) / 100
            slip_pop = ext[3]
            slip_damage_flug = true
          end
        end
        member.sp_damage = true
        member.sp -= damage
        member.damage = damage if damage > 0
        @spriteset.set_damage_pop(actor, member.index, damage) if slip_pop
      end
    end
    @status_window.refresh
    wait(DMG_DURATION / 2) if slip_damage_flug
    for member in $game_party.actors + $game_troop.enemies
      next unless member.exist?
      actor = member.actor?
      damage = 0
      for state in member.battler_states
        next unless state.extension.include?("REGENERATION")
        for ext in state.slip_extension
          if ext[0] == "hp"
            base_damage = ext[1] + member.maxhp * ext[2] / 100
            damage += base_damage + base_damage * (rand(5) - rand(5)) / 100
            slip_pop = ext[3]
            slip_damage_flug = true
          end
        end
        member.hp -= damage
        member.damage = damage if damage < 0
        @spriteset.set_damage_pop(actor, member.index, damage) if slip_pop
      end   
    end
    @status_window.refresh
    wait(DMG_DURATION / 2) if slip_damage_flug
    for member in $game_party.actors + $game_troop.enemies
      next unless member.exist?
      actor = member.actor?
      damage = 0
      for state in member.battler_states
        next unless state.extension.include?("REGENERATION")
        for ext in state.slip_extension
          if ext[0] == "mp"
            base_damage = ext[1] + member.maxhp * ext[2] / 100
            damage += base_damage + base_damage * (rand(5) - rand(5)) / 100
            slip_pop = ext[3]
            slip_damage_flug = true
          end
        end
        member.sp_damage = true
        member.sp -= damage  
        member.damage = damage if damage < 0
        @spriteset.set_damage_pop(actor, member.index, damage) if slip_pop
      end
    end
    @status_window.refresh
    wait(DMG_DURATION / 2) if slip_damage_flug
  end
end