RPGツクールXP テクニック　－先制攻撃

概要

XPで消滅した「先制攻撃」を復活させるスクリプトです。

スクリプト

RGSS
セクション：KGC_PreemptAttack

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/    ◆ 先制攻撃 - KGC_PreemptAttack ◆
#_/    ◇ Last update : 2007/09/20 ◇
#_/----------------------------------------------------------------------------
#_/  先制攻撃機能を追加します。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

#==============================================================================
# ★ カスタマイズ項目 ★
#==============================================================================

module KGC
  # ◆先制攻撃用ステート名
  PA_STATE_NAME = "先制攻撃用"

# ◆味方の先制攻撃メッセージ
  PA_PARTY_MESSAGE = "先制攻撃のチャンス！！"
  # ◆敵の先制攻撃メッセージ
  PA_TROOP_MESSAGE = "不意を付かれた！！"
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

$imported = {} if $imported == nil
$imported["PreemptAttack"] = true

if $game_special_states == nil
  $game_special_states = {}
  $data_states = load_data("Data/States.rxdata")
end
# 先制攻撃用ステートID取得
state = $data_states.compact.find { |s| s.name == KGC::PA_STATE_NAME }
$game_special_states["preempt"] = (state != nil ? state.id : 0)

#==============================================================================
# ■ Scene_Battle (分割定義 1)
#==============================================================================

class Scene_Battle
  #--------------------------------------------------------------------------
  # ● メイン処理
  #--------------------------------------------------------------------------
  alias main_KGC_PreemptAttack main
  def main
    # 先制攻撃判定
    judge_preempt_attack

main_KGC_PreemptAttack
  end
  #--------------------------------------------------------------------------
  # ● 先制攻撃判定
  #--------------------------------------------------------------------------
  def judge_preempt_attack
    # トループを準備
    @troop_id = $game_temp.battle_troop_id
    $game_troop.setup(@troop_id)
    # 先制攻撃強制タイプで分岐
    case $preempt_force
    when 1  # 強制的に味方の先制攻撃
      # 先制攻撃タイプを 1 にする
      @preempt_type = 1
    when 2  # 強制的に敵の先制攻撃
      # 先制攻撃タイプを 2 にする
      @preempt_type = 2
    when 3  # 先制攻撃無し
      @preempt_type = 0
    else  # 通常の判定処理
      # 味方の素早さ平均値を計算
      actor_agi = actor_count = 0
      $game_party.actors.each { |actor|
        # 戦闘不能者は除外
        unless actor.dead?
          actor_agi += actor.agi
          actor_count += 1
        end
      }
      actor_agi /= actor_count
      # 敵の素早さ平均値を計算
      enemy_agi = enemy_count = 0
      $game_troop.enemies.each { |enemy|
        # 途中から出現する場合は除外
        unless enemy.hidden
          enemy_agi += enemy.agi
          enemy_count += 1
        end
      }
      enemy_agi /= [enemy_count, 1].max
      # 先制攻撃確率計算(基本値：100‰)
      preempt_actor = actor_agi * 100 / [enemy_agi, 1].max
      preempt_enemy = enemy_agi * 100 / actor_agi
      # 先制攻撃判定
      if rand(1000) < preempt_actor  # 味方の先制攻撃
        # 先制攻撃タイプを 1 にする
        @preempt_type = 1
      elsif rand(1000) < preempt_enemy  # 敵の先制攻撃
        # 先制攻撃タイプを 2 にする
        @preempt_type = 2
      end
    end
    @preempt_wait = 0
    # 先制攻撃強制タイプを戻す
    $preempt_force = 0
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  alias update_KGC_PreemptAttack update
  def update
    # 先制攻撃適用
    apply_preempt_attack
    update_preempt_attack
    if @preempt_return
      @preempt_return = false
      return
    end

update_KGC_PreemptAttack
  end
  #--------------------------------------------------------------------------
  # ● 先制攻撃適用
  #--------------------------------------------------------------------------
  def apply_preempt_attack
    case @preempt_type
    when 1  # 味方の先制攻撃
      @preempt_message = KGC::PA_PARTY_MESSAGE
      $game_party.actors.each { |actor|
        # 味方のACBゲージをMAX直前にする
        if !actor.dead? && $imported["ActiveCountBattle"]
          actor.acb_gauge = actor.acb_gauge_max - 1
        end
      }
      # 敵全体を[先制攻撃用]ステートにする
      $game_troop.enemies.each { |enemy|
        # 途中から出現する場合は除外
        unless enemy.hidden
          enemy.add_state($game_special_states["preempt"])
          # ACBゲージ 0
          if $imported["ActiveCountBattle"]
            enemy.acb_gauge = 0
          end
        end
      }
    when 2  # 敵の先制攻撃
      @preempt_message = KGC::PA_TROOP_MESSAGE
      if $imported["ActiveCountBattle"]
        n = [3 - $game_party.actors.size ** 0.4, 1.25].max
        begin
          @turn_acb_count = Integer($game_temp.turn_acb_count_max / n)
        rescue
          @turn_acb_count = Integer($game_temp.turn_acb_count / n)
        end
      end
      # 味方全体を[先制攻撃用]ステートにする
      $game_party.actors.each { |actor|
        # 戦闘不能者は除外
        unless actor.dead?
          actor.add_state($game_special_states["preempt"])
          # ACBゲージ 0
          if $imported["ActiveCountBattle"]
            actor.acb_gauge = 0
          end
        end
      }
      $game_troop.enemies.each { |enemy|
        # 敵のACBゲージをMAX直前にする
        if !enemy.hidden && $imported["ActiveCountBattle"]
          enemy.acb_gauge = enemy.acb_gauge_max - 1
        end
      }
    end
  end
  #--------------------------------------------------------------------------
  # ● 先制攻撃更新
  #     戻り値 : true..returnあり  false..returnなし
  #--------------------------------------------------------------------------
  def update_preempt_attack
    # 先制攻撃タイプが 3 の場合
    if @preempt_type == 3
      # ヘルプウィンドウを消去
      @help_window.visible = false
      # 先制攻撃タイプを 0 にする
      @preempt_type = 0
    end
    # 先制攻撃メッセージ表示
    if @preempt_message != nil
      @help_window.set_text(@preempt_message, 1)
      @preempt_message = nil
      @preempt_message_showing = true
      # ウェイトカウントを設定
      @preempt_wait = 40
      # 先制攻撃タイプを 0 にする
      @preempt_type = 0
    end
    # 先制攻撃メッセージ表示終了
    if @preempt_message_showing && @preempt_wait == 0
      # ヘルプウィンドウを消去
      @help_window.visible = false
      # 先制攻撃メッセージフラグオフ
      @preempt_message_showing = false
    end
    # 先制攻撃メッセージウェイト
    if @preempt_wait > 0
      # 更新処理
      $game_system.update
      $game_screen.update
      @help_window.update
      @party_command_window.update
      @actor_command_window.update if @actor_command_window != nil
      @status_window.update
      @message_window.update
      @spriteset.update
      # カウントを減らす
      @preempt_wait -= 1
      @preempt_return = true
    end
  end
end

スクリプトを導入したら、ステート[先制攻撃用]を作成します。
このステートは
[制約]行動できない
[レーティング] 0
[抵抗しない]チェック
[バトル終了時に解除]チェック
[解除条件] 0 ターン経過後 100 ％の確率で解除

に設定してください。

先制攻撃の確率は、基本値100‰に対し、敵味方の素早さ平均値が影響して算出されます。
(‰【パーミル】：千分率。1‰＝0.1％)
素早い方のパーティは先制攻撃率が高く、低い方は確率が下がります。
味方の平均値が敵の平均値の10倍以上になると確実に先制攻撃になります。
敵の平均値が味方の平均値の10倍以上の場合[味方：1‰　敵：999‰]になります。

イベントコマンド「スクリプト」で
$preempt_force = x
というスクリプトを実行すると、先制攻撃を強制的に制御できます。
x に値を入れた際の動作は以下の通りです。
　[1]：確実に味方の先制攻撃。
　[2]：確実に敵の先制攻撃。
　[3]：先制攻撃が発生しない。
　[それ以外]：通常の判定処理。
これらはバトルイベントで指定しても無効なので、必ずマップイベントで指定してください。
(一度戦闘すれば 0 に戻るので、戦闘後に 0 を代入する必要はありません)