敵スキル行動最適化

敵スキル行動最適化

コンセプト	敵の行動「スキル」を少しだけ賢く使わせたい。
挿入位置	「▼ 素材」の直下。もしくは「main」の近く。「変身」スクリプトより下。
完成すると	ちょっと賢くスキルを使ってきてくれる。
更新履歴

　★　概要　★

・敵の行動「スキル」の使用について重複しないように使ったり
　「少しだけ賢くする」程度の最適化素材です。
・一応、HPの低いアクターを優先するようなターゲット設定にはしています。
・必ずしも優先順に行動するものではなく、純正通りに処理する場合もあるので
　想像とは違った動作もするのでご了承下さい。

#==============================================================================
#    ?VX RGSS2 「敵スキル行動最適化」?
#　　　　　　EnDlEss DREamER
#     URL:http://mitsu-evo.6.ql.bz/
#     製作者 mitsu-evo
#     Last:2010/10/3
#　　 従来の優先度でランダムに行動するパターンを改善する。
#     ▼ 「▼ 素材」の直下。もしくは「main」の近く。「変身」スクリプトより下。
#==============================================================================
$ed_rgss2 = {} if $ed_rgss2 == nil
$ed_rgss2["ed_enemy_action_optimize"] = true
=begin

★　概要　★
    
    ・敵の行動「スキル」の使用について重複しないように使ったり
    　「少しだけ賢くする」程度の最適化素材です。
    ・一応、HPの低いアクターを優先するようなターゲット設定にはしています。
    ・必ずしも優先順に行動するものではなく、純正通りに処理する場合もあるので
    　想像とは違った動作もするのでご了承下さい。

=end

# 敵全体スキル攻撃でのパーティダメージが指定％以上なら使用する。
   ALL_SKILL_AVERAGE_HP = 10
   # 敵行動スキルの優先順
   # 1:敵単体攻撃 2:敵全体攻撃 3:回復スキル 4:状態異常解除 
   # 5:アップステート付加 6:ダウンステート付加 7:その他
   # SKILL_PRIORITY=[優先度：高　→　優先度低]
   SKILL_PRIORITY = [4,3,5,2,6,1,7]
   
#==============================================================================
# ■ Game_BattleAction
#------------------------------------------------------------------------------
# 　戦闘行動を扱うクラスです。このクラスは Game_Battler クラスの内部で使用され
# ます。
#==============================================================================

class Game_BattleAction
  #--------------------------------------------------------------------------
  # ● クリア
  #--------------------------------------------------------------------------
  alias ed_enemy_action_optimize_clear clear
  def clear
    ed_enemy_action_optimize_clear
    @weak_target = false
  end
  #--------------------------------------------------------------------------
  # ● 弱い敵を選ぶフラグ取得
  #--------------------------------------------------------------------------
  def weak_target
    return @weak_target
  end
  #--------------------------------------------------------------------------
  # ● 弱い敵を選ぶフラグ設定
  #--------------------------------------------------------------------------
  def weak_target=(value)
    @weak_target = value
  end
  #--------------------------------------------------------------------------
  # ● 通常攻撃のターゲット作成
  #--------------------------------------------------------------------------
  alias ed_enemy_action_optimize_make_attack_targets make_attack_targets
  def make_attack_targets
    if @weak_target
      targets = []
      if battler.confusion?
        targets.push(friends_unit.weak_target)
      elsif battler.berserker?
        targets.push(opponents_unit.random_target)
      else
        targets.push(opponents_unit.weak_target)
      end
      if battler.dual_attack      # 連続攻撃
        targets += targets
      end
      return targets.compact
    end
    ed_enemy_action_optimize_make_attack_targets
  end
  #--------------------------------------------------------------------------
  # ● ランダムターゲット
  #--------------------------------------------------------------------------
  def decide_random_target
    # for_friend?は戦闘不能味方も対象の為にfor_dead_friend?をif文先頭に変更
    if for_dead_friend?
      target = friends_unit.random_dead_target
    elsif for_friend?
      target = friends_unit.random_target
    else
      target = opponents_unit.random_target
    end
    if target == nil
      clear
    else
      @target_index = target.index
    end
  end
  #--------------------------------------------------------------------------
  # ● スキルまたはアイテムのターゲット作成
  #     obj : スキルまたはアイテム
  #--------------------------------------------------------------------------
  alias ed_enemy_action_optimize_make_obj_targets make_obj_targets
  def make_obj_targets(obj,weak=false)
    targets = []
    if @weak_target
      # 弱いキャラ攻撃が有効
      if obj.for_opponent?
        if obj.dual?           # 敵単体 連続
          targets.push(opponents_unit.weak_target)
          targets += targets
        elsif obj.for_one?        # 敵単体
          targets.push(opponents_unit.weak_target)
        end
      elsif obj.for_friend?
        if obj.for_one?           # 味方単体
          targets.push(friends_unit.weak_target)
        end
      end
    end
    ed_enemy_action_optimize_make_obj_targets(obj)
  end
  #--------------------------------------------------------------------------
  # ● ターゲットの取得
  #--------------------------------------------------------------------------
  def target?
    if @target_index == -1
      target = -1
    elsif for_friend?
      target = friends_unit.members[@target_index]
    else
      target = opponents_unit.members[@target_index]
    end
    return target
  end
end

#==============================================================================
# ■ Game_Battler
#------------------------------------------------------------------------------
# 　バトラーを扱うクラスです。このクラスは Game_Actor クラスと Game_Enemy クラ
# スのスーパークラスとして使用されます。
#==============================================================================

class Game_Battler
  
  #--------------------------------------------------------------------------
  # ● スキルダメージのテスト
  #     target  : スキルの対象
  #     skill : スキル
  #    使用対象がダメージやステート変化を受けたかどうかを判定する。
  #--------------------------------------------------------------------------
  def skill_damage_test(target, skill, damage_test=false)
    # tester はスキルの対象
    target = self.clone
    old_hp = target.hp
    old_mp = target.mp
    target.make_obj_damage_value(self, skill)
    target.apply_state_changes(skill)
    if target.hp_damage > 0
      return target.hp if damage_test
      return true if target.hp < old_hp
    end
    if target.mp_damage > 0
      return target.mp if damage_test
      return true if target.mp < old_mp
    end
    return true unless target.added_states.empty?
    return true unless target.removed_states.empty?
    return false
  end
  #--------------------------------------------------------------------------
  # ● スキル回復のテスト
  #     target  : スキルの使用者
  #     skill : スキル
  #    使用対象が全快しているときの回復禁止などを判定する。
  #--------------------------------------------------------------------------
  def skill_recovery_test(target, skill, dead=false)
    target = self.clone
    target.make_obj_damage_value(self, skill)
    target.apply_state_changes(skill)
    if skill.for_dead_friend? and dead
      return true if target.dead?
    else
      if target.hp_damage < 0
        return true if target.hp < target.maxhp
      end
      if target.mp_damage < 0
        return true if target.mp < target.maxmp
      end
    end
    return true unless target.added_states.empty?
    return true unless target.removed_states.empty?
    return false
  end
end
#==============================================================================
# ■ Game_Enemy
#------------------------------------------------------------------------------
# 　敵キャラを扱うクラスです。このクラスは Game_Troop クラス ($game_troop) の
# 内部で使用されます。
#==============================================================================

class Game_Enemy < Game_Battler

#--------------------------------------------------------------------------
  # ● 行動可能スキルの種類分け(攻撃・HP・MP回復・ステート付加・解除)
  #--------------------------------------------------------------------------
  def skill_kind(available_actions)
    available_actions.each{|skill|
      if skill.base_damage < 0 and skill.for_friend? or 
        skill.base_damage < 0 and skill.for_dead_friend? 
        # 回復効果で対象が味方であること。
        unless skill.minus_state_set == []
          # 更にステート解除がある場合
          @state_recovery_skill << skill
        else
          @hp_mp_recovery_skill << skill
        end
      elsif skill.base_damage > 0 and skill.for_opponent? 
        i = 0
        if skill.scope == 2
          # 対象が敵全体の場合
          @attack_skill_all << skill
        else
          # 敵全体以外のランダムや連続・単体など
          @attack_skill_single << skill
        end
      elsif skill.plus_state_set != []
        # ステート付加
        skill.plus_state_set.each{|state_id|
          if $data_states[state_id].nonresistance
            # 付加ステートIDのステートが「抵抗しない」場合はアップステートと判断
            @state_add_buff_skill << skill
          else
            # 抵抗しないが無い場合はダウンステートと判断
            @state_add_atk_skill << skill
          end
        }
      elsif skill.minus_state_set != []
        @state_recovery_skill << skill
      else
        # 上記条件に当たらないその他のスキル
        @another_skill << skill
      end
    }
  end
  #--------------------------------------------------------------------------
  # ● 選択スキルの種類取得(設定リストから)
  #--------------------------------------------------------------------------
  def skill_kind?
    if @action.kind == 1
      skill = $data_skills[@action.skill_id]
      if skill.base_damage < 0 and skill.for_friend? or 
        skill.base_damage < 0 and skill.for_dead_friend?
        # 回復効果で対象が味方であること。
        unless skill.minus_state_set == []
          return 3
        else
          return 3
        end
      elsif skill.base_damage > 0 and skill.for_opponent? 
        i = 0
        if skill.scope == 2
          # 対象が敵全体の場合
          return 2
        else
          # 敵全体以外のランダムや連続・単体など
          return 1
        end
      elsif skill.plus_state_set != []
        # ステート付加
        skill.plus_state_set.each{|state_id|
          if $data_states[state_id].nonresistance
            # 付加ステートIDのステートが「抵抗しない」場合はアップステートと判断
            return 5
          else
            # 抵抗しないが無い場合はダウンステートと判断
            return 6
          end
        }
      elsif skill.minus_state_set != []
        return 3
      else
        # 上記条件に当たらないその他のスキル
        return 7
      end
    else
      return 0
    end
  end
  #--------------------------------------------------------------------------
  # ● 敵味方パーティ状況別スキル使用設定(trueで実行可能)
  #--------------------------------------------------------------------------
  def situation_skill
    
    for priority in SKILL_PRIORITY
      case priority
      when 1
      # 敵単体攻撃スキル
      unless @attack_skill_single == []
        @action.weak_target = true
        if priority_skill(@attack_skill_all)
          skill = $data_skills[@action.skill_id]
          return false if skill == nil
          # ダメージテストの結果、ダメージが有効
          return true if skill_damage_test(@action.target?, skill)
        end
      end
    
      when 2
      # 全体攻撃スキル
      unless @attack_skill_all == []
        if priority_skill(@attack_skill_all)
          skill = $data_skills[@action.skill_id]
          next if skill == nil
          average = 0
          $game_party.members.each{|actor|
          # ダメージテストの結果、ダメージが有効なら加算
            average += skill_damage_test(actor, skill, true)
          }
          average /= $game_party.members.size
          value = $game_party.average_hp - average
          # アクターパーティ全員ダメージが指定％以上なら有効
          return true if value >= ALL_SKILL_AVERAGE_HP
        end
      end
      
      when 3
      # 回復スキル
      unless @hp_mp_recovery_skill == []
        if priority_skill(@hp_mp_recovery_skill)
          skill = $data_skills[@action.skill_id]
          next if skill == nil
          if skill.for_all?
            # 全体回復で味方全体HP平均が100％でなければ実行
            return true if $game_troop.average_hp < 100
          else
            # 指定スキルのターゲットを一番弱い人へ
            @action.weak_target = true
            # 回復テストの結果、回復が有効
            return true if skill_recovery_test(@action.target?, skill)
          end
        end
      end
      
      when 4
      # 解除ステートスキル
      unless @state_recovery_skill == []
        if priority_skill(@state_recovery_skill)
          skill = $data_skills[@action.skill_id]
          next if skill == nil
          if skill.for_friend? or skill.for_dead_friend?
            # skill は priority_skill で決定されたスキルIDのデータを格納
            skill.minus_state_set.each{|state_id|
              # スキルの付加ステートが重複していれば別の使用スキルを決定。
              return true unless check_state(state_id,true)# trueで味方メンバー
            }
          else
            # skill は priority_skill で決定されたスキルIDのデータを格納
            skill.minus_state_set.each{|state_id|
              # スキルの付加ステートが重複していれば別の使用スキルを決定。
              return true unless check_state(state_id)# trueで味方メンバー
            }
          end
        end
      end
      
      when 5
      # アップステートスキル
      unless @state_add_buff_skill == []
        if priority_skill(@state_add_buff_skill)
          skill = $data_skills[@action.skill_id]
          next if skill == nil

# skill は priority_skill で決定されたスキルIDのデータを格納
          skill.plus_state_set.each{|state_id|
            # スキルの付加ステートが重複していれば別の使用スキルを決定。
            return false if check_state(state_id,true)# trueで味方メンバー
          }
          return true
        end
      end
      
      when 6
      # ステート付加スキル
      unless @state_add_atk_skill == []
        if priority_skill(@state_add_atk_skill)
          skill = $data_skills[@action.skill_id]

# skill は priority_skill で決定されたスキルIDのデータを格納
          skill.plus_state_set.each{|state_id|
            # スキルの付加ステートが重複していれば別の使用スキルを決定。
            return false if check_state(state_id)
          }
          return true
        end
      end
      
      when 7
      # その他のスキル
      unless @another_skill == []
        if priority_skill(@attack_skill_all)
          skill = $data_skills[@action.skill_id]
          return false if skill == nil
          if skill.for_all?
            average = 0
            $game_party.members.each{|actor|
            # ダメージテストの結果、ダメージが有効なら加算
              average += skill_damage_test(actor, skill, true)
            }
            average /= $game_party.members.size
            value = $game_party.average_hp - average
            # アクターパーティ全員ダメージが指定％以上なら有効
            return true if value >= ALL_SKILL_AVERAGE_HP
          else
            # ダメージテストの結果、ダメージが有効
            @action.weak_target = true
            return true if skill_damage_test(@action.target?, skill)
          end
        end
      end
      end # case
    end # for 
    # 条件に合致しない場合は状況にないので純正処理を行なうようにfalseを返す
    return false
  end
  #--------------------------------------------------------------------------
  # ● 選択スキルが重複していないかどうか(trueで実行可能)
  #--------------------------------------------------------------------------
  def overlap_skill_check
    return unless @action.kind == 1
    old_skill = $data_skills[@action.skill_id]
    skill = $data_skills[@action.skill_id]
    i = 0
    loop do
      skill = $data_skills[@action.skill_id]
      case skill_kind?
      when 1
      # 敵単体攻撃スキル
        return true if skill_damage_test(@action.target?, skill)
    
      when 2
      # 全体攻撃スキル
      # アクターパーティ全体の平均HPが指定以上なら全体攻撃
        average = 0
        $game_party.members.each{|actor|
        # ダメージテストの結果、ダメージが有効なら加算
          average += skill_damage_test(actor, skill, true)
        }
        average /= $game_party.members.size
        value = $game_party.average_hp - average
        # アクターパーティ全員ダメージが指定％以上なら有効
        return true if value >= ALL_SKILL_AVERAGE_HP
      
      when 3
      # 回復スキル
        if skill.for_all?
          # 全体回復で味方全体HP平均が100％でなければ実行
          return true if $game_troop.average_hp < 100
        else
          # 指定スキルのターゲットを一番弱い人へ
          # 回復テストの結果、回復が有効
          return true if skill_recovery_test(@action.target?, skill)
        end
      
      when 4
      # 解除ステートスキル
        if skill.for_friend? or skill.for_dead_friend?
          # skill は priority_skill で決定されたスキルIDのデータを格納
          skill.minus_state_set.each{|state_id|
            # スキルの付加ステートが重複していれば別の使用スキルを決定。
            return true unless check_state(state_id,true)# trueで味方メンバー
          }
        else
          # skill は priority_skill で決定されたスキルIDのデータを格納
          skill.minus_state_set.each{|state_id|
            # スキルの付加ステートが重複していれば別の使用スキルを決定。
            return true unless check_state(state_id)# trueで味方メンバー
          }
        end
      
      when 5
      # アップステートスキル
        # skill は priority_skill で決定されたスキルIDのデータを格納
        skill.plus_state_set.each{|state_id|
          # スキルの付加ステートが重複していれば別の使用スキルを決定。
          return false if check_state(state_id,true)# trueで味方メンバー
        }
        return true
      
      when 6
      # ステート付加スキル
        # skill は priority_skill で決定されたスキルIDのデータを格納
        skill.plus_state_set.each{|state_id|
          # スキルの付加ステートが重複していれば別の使用スキルを決定。
          return false if check_state(state_id)
        }
        return true
        
      when 7
      # その他のスキル
        if skill.for_all?
          average = 0
          $game_party.members.each{|actor|
          # ダメージテストの結果、ダメージが有効なら加算
            average += skill_damage_test(actor, skill, true)
          }
          average /= $game_party.members.size
          value = $game_party.average_hp - average
          # アクターパーティ全員ダメージが指定％以上なら有効
          return true if value >= ALL_SKILL_AVERAGE_HP
        else
          # ダメージテストの結果、ダメージが有効
          return true if skill_damage_test(@action.target?, skill)
        end
      end # case
      # オリジナルのmake_actionを実行し、別のスキルを選択させる。
      ed_enemy_action_optimize_make_action
      skill = $data_skills[@action.skill_id]
      # 元のスキルと違えばループを抜ける
      break unless old_skill == skill
      i += 1
      # もしくは10回試行しても同じならループを抜ける。
      break if i == 10
    end # loop do 
    # 条件に合致しない場合は状況にないので純正処理を行なうようにfalseを返す
    
    return false
  end
  #--------------------------------------------------------------------------
  # ● 決定スキルの対象重複ステートチェック(falseで重複無し)
  #--------------------------------------------------------------------------
  def check_state(state_id,friends=false)
    members = friends ? $game_troop.members : $game_party.members
    if @action.kind == 1
      skill = $data_skills[@action.skill_id]
      if skill.for_dead_friend?
        target = @action.target?
        if target == -1
          if friends 
            over_lap = $game_troop.overlap_targets_states(state_id, true)
          else
            over_lap = $game_party.overlap_targets_states(state_id, true)
          end
          if over_lap
            # ターゲットが全体で戦闘不能などの死亡ステート判定
            return false 
          else
            return true
          end
        else
          if target.dead?#skill_recovery_test(target, skill,true)
            return false
          else
            return true
          end
        end
      elsif skill.for_all?
        unless skill.plus_state_set == []
          if friends 
            over_lap = $game_troop.overlap_targets_states(state_id)
          else
            over_lap = $game_party.overlap_targets_states(state_id)
          end
          if over_lap
            # 重複している
            return true
          else
            return false
          end
        end
      elsif @action.target? != nil
        target = @action.target?
        return false if state_id == nil
        if target.state?(state_id)
          # 重複している
          return true
        else
          return false
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 戦闘行動の作成(純正を元に種類別アクションリストの中から選択)
  #--------------------------------------------------------------------------
  def priority_skill(action_list)
    available_actions = []
    rating_max = 0
    for action in @available_actions
      if action.kind == 1
        # スキルで引数スキルリストに行動リストのスキルが含まれていれば追加
        if action_list.include?($data_skills[action.skill_id])
          available_actions.push(action)
          # レートのマックスを求める(action_list は skill の配列なのでエラー)
          rating_max = [rating_max, action.rating].max
        end
      end
    end
    
    # 合計レート
    ratings_total = 0
    # 基準レート？行動できるアクションのレート最大-3が基準
    rating_zero = rating_max - 3
    # 行動できるアクション
    for action in available_actions
      # 基準よりも低いレートは次へ
      next if action.rating <= rating_zero
      # 合計レートに基準-アクションレートを加算
      ratings_total += action.rating - rating_zero
    end
    # 合計が0なら戻る
    return false if ratings_total == 0
    # 合計レートからランダムに
    value = rand(ratings_total)
    
    for action in available_actions
      # 基準レート以下は次へ
      next if action.rating <= rating_zero
      # 合計のランダムが基準-アクションレートよりも小さい場合
      if value < action.rating - rating_zero
        @action.kind = action.kind
        @action.basic = action.basic
        @action.skill_id = action.skill_id
        @action.decide_random_target
        return true
      else
        # ランダムレートを基準-アクションレートで減算
        value -= action.rating - rating_zero
      end
    end
    return false
  end
  #--------------------------------------------------------------------------
  # ● 戦闘行動の作成(まだ純正)
  #--------------------------------------------------------------------------
  alias ed_enemy_action_optimize_make_action make_action
  def make_action
    @action.clear
    
    # 種類別アクションスキルリスト
    @attack_skill_single = []    # 攻撃スキル：敵単体など
    @attack_skill_all = []       # 攻撃スキル：敵全体
    @hp_mp_recovery_skill = []   # HP・MP回復スキル
    @state_add_atk_skill = []    # ダウンステート付加
    @state_add_buff_skill = []   # アップステート付加
    @state_recovery_skill = []   # 状態異常解除
    @another_skill = []          # 上記のどれにも当たらないスキル
    
    
    return unless movable?
    available_actions = []
    rating_max = 0
    if $ed_rgss2["ed_metamor_skill"]
      actions = enemy_actions
    else
      actions = enemy.actions
    end
    
    for action in actions
      # 行動条件が合致しない場合は次へ
      next unless conditions_met?(action)
      if action.kind == 1
        # スキルが使用出来ないなら次へ
        next unless skill_can_use?($data_skills[action.skill_id])
      end
      available_actions.push(action)
      # レートのマックスを求める
      rating_max = [rating_max, action.rating].max
    end
    
    @available_actions = available_actions
    # スキルの種類分け
    skill_act = []
    available_actions.each{|act|
      skill_act << $data_skills[act.skill_id] if act.kind == 1
    }
    skill_kind(skill_act)
    
    # 条件に合致する状況なら既に行動設定済みなので戻る。
    return if situation_skill
    # 合計レート
    ratings_total = 0
    # 基準レート？行動できるアクションのレート最大-3が基準
    rating_zero = rating_max - 3
    # 行動できるアクション
    for action in available_actions
      # 基準よりも低いレートは次へ
      next if action.rating <= rating_zero
      # 合計レートに基準-アクションレートを加算
      ratings_total += action.rating - rating_zero
    end
    # 合計が0なら戻る
    return if ratings_total == 0
    # 合計レートからランダムに
    value = rand(ratings_total)
    
    for action in available_actions
      # 基準レート以下は次へ
      next if action.rating <= rating_zero
      # 合計のランダムが基準-アクションレートよりも小さい場合
      if value < action.rating - rating_zero
        # ここでチェックして重複をなくしたい。
        @action.kind = action.kind
        @action.basic = action.basic
        @action.skill_id = action.skill_id
        @action.decide_random_target
        overlap_skill_check
        return
      else
        # ランダムレートを基準-アクションレートで減算
        value -= action.rating - rating_zero
      end
    end
  end
  
end
#==============================================================================
# ■ Game_Unit
#------------------------------------------------------------------------------
# 　ユニットを扱うクラスです。このクラスは Game_Party クラスと Game_Troop クラ
# スのスーパークラスとして使用されます。
#==============================================================================

class Game_Unit
  #--------------------------------------------------------------------------
  # ● 一番弱ってる敵をターゲット
  #--------------------------------------------------------------------------
  def weak_target
    weak_member = existing_members.sort{|a,b|a.hp <=> b.hp}
    return weak_member[0]
  end
  #--------------------------------------------------------------------------
  # ● 生存メンバーで全員が指定ステートに掛かっているか？
  #--------------------------------------------------------------------------
  def overlap_targets_states(state_id,dead=false)
    if dead
      # メンバーの死亡判定時は死亡ステートに誰か掛かっていればtrueを返す
      i = 0
      dead_members.each{|member|
        next unless member == nil
        next unless member.state?(state_id)
        i += 1
      }
      return true if i > 0
      return false
    else
      # その他の重複スキルは生存メンバーで行なう。
      existing_members.each{|member|
        next if member.state?(state_id)
        return false
      }
    end
    return true
  end
  #--------------------------------------------------------------------------
  # ● 現在のグループHP平均％
  #--------------------------------------------------------------------------
  def average_hp
    result = 0
    result2 = 0
    n = 0
    for member in members
      result += member.hp
      result2 += member.maxhp
      n += 1
    end
    result /= n if n > 0
    result = 1 if result == 0
    result2 /= n if n > 0
    result2 = 1 if result2 == 0
    hp_average = (result * 100) /  result2
    return hp_average
  end
end

テンプレートのpondt