###################################
#
#              Add-on SBS Tankentai
#                    QTE contrattack
#
###################################
module QTE_ctratk
# Les heros connaissant l'unes de ces competences pourront peut-etre contre-attaquer :
  ID_SKILL = [129]
# NOm du fichier où se trouve les icones servant à designer les touches de "réaction" ( repertoire systeme !! )
  Nom = "Fleche"
# Temps de réaction pour la premiere phase du QTE de contrattack 
  Phase1 = 20
# Temps de réaction pour la seconde phase du QTE de contrattack 
  Phase2 = 25
end
###################################
module N01
  action_qte = {
  "debut_qte"  => ["script", "$scene.init_qte"],
                          }
  ANIME.merge!(action_qte)
 
  sequence_qte = {
  "atk"          => ["PREV_MOVING_TARGET", "debut_qte"],
                         
  "fin"          => ["WPN_SWING_V", "OBJ_ANIM_WEIGHT",
                          "12","WPN_SWING_VL","OBJ_ANIM_L","Two Wpn Only","16",
                          "Can Collapse","FLEE_RESET"],
  "pas" => ["JUMP_AWAY"],
  "ctratk" => ["JUMP_TO", "WPN_SWING_V"]
                              }
  ACTION.merge!(sequence_qte)
end
###################################
class Scene_Battle < Scene_Base
  def init_qte
    @cible = $game_party.members[@active_battler.action.target_index]
    unless @cible.use_contrattack?
      @spriteset.set_action(false, @active_battler.index, "fin")
      return
    end
    x = @cible.base_position_x - 30
    y = @cible.base_position_y - 68
    @num = rand(4)
    @win_qte = Win_QTE.new(x, y, @num)
    @win_qte.opacity = 0
    @time = QTE_ctratk::Phase1
    @continuer = true
    @phase = 0
  end
  def update_qte
    if (Input.trigger?(Input::DOWN) and @num == 0) or (Input.trigger?(Input::LEFT) and @num == 1) or (Input.trigger?(Input::UP) and @num == 2) or (Input.trigger?(Input::RIGHT) and @num == 3)
      if @phase == 0
        @spriteset.set_action(true, @cible.index, "pas")
        @num = rand(4)
        @win_qte.refresh(@num)
        @time = QTE_ctratk::Phase2
        @phase = 1
      elsif @phase == 1
        @phase = 2
        @time = 0
      end
    elsif (Input.trigger?(Input::DOWN) and @num != 0) or (Input.trigger?(Input::LEFT) and @num != 1) or (Input.trigger?(Input::UP) and @num != 2) or (Input.trigger?(Input::RIGHT) and @num != 3)
      @time = 0
    end
    fin_qte if @time == 0
    @time -= 1
  end
  def fin_qte
    @win_qte.visible = false
    case @phase
    when 0
      @spriteset.set_action(false, @active_battler.index, "fin")
      dmg = @cible.result_atk(@active_battler)
      @spriteset.set_damage_pop(true, @cible.index, dmg)
      @cible.hp -= dmg
      wait(40)
    when 1
      @spriteset.set_action(false, @active_battler.index, "RESET_POSITION")
      @spriteset.set_action(true, @cible.index, "RESET_POSITION")
      wait(40)
    when 2
      @spriteset.set_action(true, @cible.index, "ctratk")
      if @cible.weapon_id != 0
        wait(5)
        @active_battler.animation_id = $data_weapons[@cible.weapon_id].animation_id
      end
      wait(10)
      dmg = @active_battler.result_atk(@cible)
      @spriteset.set_damage_pop(false, @active_battler.index, dmg)
      @active_battler.hp -= dmg
      @active_battler.perform_collapse if @active_battler.hp <= 0
      wait(40)
      @spriteset.set_action(false, @active_battler.index, "RESET_POSITION")
      @spriteset.set_action(true, @cible.index, "RESET_POSITION")
      wait(40)
    end
    @win_qte.dispose
    @win_qte = nil
  end
end
###################################
class Win_QTE < Window_Base
  def initialize(x, y, num)
    super(x, y, 24 + 32, 24 + 32)
    refresh(num)
  end
  def refresh(num)
    self.contents.clear
    bitmap = Cache.system(QTE_ctratk::Nom)
    self.contents.blt(0, 0, bitmap, Rect.new(num * 24, 0, 24, 24))
  end
end
###################################
class Game_Actor < Game_Battler
  def use_contrattack?
    for id in QTE_ctratk::ID_SKILL
      return true if skill_id_learn?(id)
    end
    return false
  end
end
###################################
class Game_Battler
  def result_atk(attacker)
    make_attack_damage_value(attacker)
    dmg = @hp_damage
    @hp_damage = 0
    return dmg
  end   
end
###################################

      elsif @win_qte != nil
        update_qte

  def base_action
    case @enemy_id
    when 1
      return "atk"
    end
    # Default action for all unassigned Enemy IDs.
    return "ENEMY_UNARMED_ATK"
  end

def base_action
    case @enemy_id
    when 1
      return "atk"
    end
    # Default action for all unassigned Enemy IDs.
    return "ENEMY_UNARMED_ATK"
  end