装備破壊システム

装備破壊システム

コンセプト	「装備拡張：武器拡張追加」の追加機能スクリプト。メタルマックスのパーツ破壊を意識。
挿入位置	▼ 「パラメータ追加」「指定値ダメージ緩和バリア」「装備拡張：武器拡張追加」より下。
完成すると	敵の攻撃時にランダムで装備が破壊される。
更新履歴	11/2：破壊処理周り修正。 ========== 2012年 ============================================================ 8/4：MM風パーティーシステムに対応修正。 ========== 2011年 ============================================================ 8/11：ダメージポップアップ「FF風スキル表示」とバトルレイアウト変更の併用時の表示不具合修正。 7/14：ダメージポップアップ「FF風スキル表示」とバトルレイアウト変更のサイドビューの併用に対応。　　　17:00：装備破壊後に不要な破壊メッセージが表示されているのを修正。 4/5：装備破壊時のメッセージ表示関係を修正。 2/3：個別装備アイテムとバトルレイアウト変更：Scene修正に対応。 ========== 2010年 ============================================================ 12/26：「戦車乗降システム」に対応修正。 11/23：装備破壊の挙動修正。 8/26：メニュー画面で回復出来ないエラー修正。 8/24：混乱時に行動すると装備が勝手に破壊されるエラー修正。

2/3日版から「個別装備アイテム」との併用に変わりました。
それ以前は「装備拡張：武器拡張追加」との併用になります。

機能説明

・武器防具に設定した耐久力をダメージ時に減らし、最終的には破壊(装備が破棄)される。
・<耐久力 xx>と武器防具のメモ欄に記入すると耐久力が設定される。
　記入しないと壊れない。「個別装備アイテム」にて。
・耐久力５０％以上減で「破損」。１００％以上で「大破」。「大破」で装備能力がゼロに。
・「個別装備アイテム」導入時においてのみ動作可能です。
・壊れた装備は「個別装備アイテム」スクリプトコマンドにて修復可能です。

#==============================================================================
#    ☆VX RGSS2 「装備破壊システム」☆
#　　　　　　EnDlEss DREamER
#     URL:http://mitsu-evo.6.ql.bz/
#     製作者 mitsu-evo
#     Last:2012/11/2
#　　 「個別装備アイテム」で設定した<耐久力>を適用する。
#     ▼ 「パラメータ追加」「指定値ダメージ緩和バリア」より下。
#        「装備拡張：武器拡張追加」より下。
#==============================================================================
=begin

11/2：破壊処理周り修正。

★★★★★★　機能説明　★★★★★★★★★★★
      
    ・武器防具に設定した耐久力をダメージ時に減らし、
    　最終的には破壊(装備が破棄)される。
    
    ・<耐久力 xx>と武器防具のメモ欄に記入すると耐久力が設定される。
    　記入しないと壊れない。
    
    ・耐久力５０％以上減で「破損」。１００％以上で「大破」
    　装備のステータスが「0」になり、装備の意味を無くします。
    
    ・「BREAK_DAMAGE_REVISION」の値で最終ダメージを除算して
    　装備破壊の計算に使用します。ダメージバランス等によって調整して下さい。
    
    ・「戦車乗降システム」導入時の「戦車不死身設定」の場合は
    　死亡設定している装備が破壊された時点で戦闘不能処理。
    
    ・「個別装備アイテム」導入での動作に変更。

=end

$ed_rgss2 = {} if $ed_rgss2 == nil
$ed_rgss2["ed_break_equip"] = true

if $ed_rgss2["ed_weapon_count"]
  module ED
    EQUIP_DAMAGE_SE = "Audio/SE/Thunder7"
    EQUIP_BREAK_SE = "Audio/SE/Explosion7"
    BREAK_DAMAGE_REVISION = 3           # ダメージ除算して耐久力減算に反映
  end
  if $ed_rgss2["ed_mm_party_system"]
    # MMパーティーシステムならTANK_IDにTank_start_settingsを代入。
    TANK_ID = Tank_start_settings
  end
#==============================================================================
# ■ Vocab
#------------------------------------------------------------------------------
# 　用語とメッセージを定義するモジュールです。定数でメッセージなどを直接定義す
# るほか、グローバル変数 $data_system から用語データを取得します。
#==============================================================================

module Vocab
  Equip_Break_Text = "%sの %sが %sした！"
  Equip_Damage     = "破損"
  Equip_Break      = "大破"
  
end
#==============================================================================
# ■ Game_Battler
#------------------------------------------------------------------------------
# 　バトラーを扱うクラスです。このクラスは Game_Actor クラスと Game_Enemy クラ
# スのスーパークラスとして使用されます。
#==============================================================================

class Game_Battler
  
  #--------------------------------------------------------------------------
  # ● HP の変更
  #     hp : 新しい HP
  #--------------------------------------------------------------------------
  alias ed_break_equip_hp hp
  def hp=(hp)
    @hp = [[hp, maxhp].min, 0].max
    if @hp == 0 and not state?(1) and not @immortal
      add_state(1)                # 戦闘不能 (ステート 1 番) を付加
      @added_states.push(1)
    elsif @hp > 0 and state?(1)
      if $ed_rgss2["ed_battle_scene"]
        @revival_flag = true
      end
      @equip_break_dead = false
      remove_state(1)             # 戦闘不能 (ステート 1 番) を解除
      @removed_states.push(1)
    end
    
    if @hp > 0 and state?(1)
      # 戦闘不能 (ステート 1 番) を解除
      if self.is_a?(Game_Actor) and 
        ($ed_rgss2["ed_tank_battle"] or $ed_rgss2["ed_mm_party_system"])
        if @immortal and TANK_ID.include?(@actor_id)
          # 戦闘不能回復時に死亡防具の装備破壊度フラグと耐久力を全開させる。
          equips[BREAK_EQUIP_COLLAPSE] = 
          equips[BREAK_EQUIP_COLLAPSE].durability_max
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 戦闘不能判定
  #--------------------------------------------------------------------------
  def dead?
    if self.is_a?(Game_Actor) and 
      ($ed_rgss2["ed_tank_battle"] or $ed_rgss2["ed_mm_party_system"])
      if @immortal and TANK_ID.include?(self.id) 
        # 不死身で戦車乗降システム導入時
        return (not @hidden and @hp == 0 and @equip_break_dead)
      end
    end
    return (not @hidden and @hp == 0 and not @immortal)
  end
  #--------------------------------------------------------------------------
  # ● 通常攻撃によるダメージ計算
  #     attacker : 攻撃者
  #    結果は @hp_damage に代入する。
  #--------------------------------------------------------------------------
  alias ed_break_equip_make_attack_damage_value make_attack_damage_value
  def make_attack_damage_value(attacker)
    ed_break_equip_make_attack_damage_value(attacker)
    if self.is_a?(Game_Actor)
      equip_priority(@hp_damage) if @hp_damage > 0
    end
  end
  #--------------------------------------------------------------------------
  # ● スキルまたはアイテムによるダメージ計算
  #     user : スキルまたはアイテムの使用者
  #     obj  : スキルまたはアイテム
  #    結果は @hp_damage または @mp_damage に代入する。
  #--------------------------------------------------------------------------
  alias ed_break_equip_make_obj_damage_value make_obj_damage_value
  def make_obj_damage_value(user, obj)
    ed_break_equip_make_obj_damage_value(user, obj)
    
    return if $scene.is_a?(Scene_Item)
    return if $scene.is_a?(Scene_Skill)
    
    if self.is_a?(Game_Actor)
      unless obj == nil
        if @hp_damage > 0 and obj.for_opponent?
          equip_priority(@hp_damage)
        else
          @ep_break_text = ""
        end
      end
    end
  end
end
#==============================================================================
# ■ Game_Actor
#------------------------------------------------------------------------------
# 　アクターを扱うクラスです。このクラスは Game_Actors クラス ($game_actors)
# の内部で使用され、Game_Party クラス ($game_party) からも参照されます。
#==============================================================================

class Game_Actor < Game_Battler
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :ep_break_text            # 各装備の破壊度配列
  #--------------------------------------------------------------------------
  # ● セットアップ
  #     actor_id : アクター ID
  #--------------------------------------------------------------------------
  alias ed_break_equip_setup setup
  def setup(actor_id)
    ed_break_equip_setup(actor_id)
    @ep_break_text = ""
    @equip_break_dead = false
  end
  #--------------------------------------------------------------------------
  # ● 装備の耐久力被ダメージ処理
  #--------------------------------------------------------------------------
  def equip_priority(damage)
    # 各種設定
    # ダメージが0以下なら処理しない。
    if damage <= 0 or missed or evaded or @effect_test
      @ep_break_text = ""
      return 
    end
    
    damage /= ED::BREAK_DAMAGE_REVISION # ダメージを除算して調整する
    
    equip_size = equips.size                      # 装備要素数の最大サイズ
    loop_size = equip_size - 1                      # 装備配列用の最大サイズ
    # ダメージ÷最大HPで最大HP％を求める
    percent = Float(damage) / Float(self.maxhp)     
    percent *= 100.0                    # 100乗算して％表記へ
    loop_max = equip_size - 1           # 繰り返す最大数(装備項目の最大数)
    loop_number = 0
    @ep_break_text = ""
    
    
    # 破壊処理
    loop do
      # 破壊部位ランダム選択
      if ($ed_rgss2["ed_tank_battle"] or $ed_rgss2["ed_mm_party_system"]) and 
        @immortal and @hp == 0
        # 戦車システムで不死身アクターでＨＰが0なら別の処理
        # ランダムで装備部位を選択
        loop_max = rand(loop_size)
        # ＨＰゼロなら30％の確率で死亡部位を選択
        a = rand(100)
        loop_max = BREAK_EQUIP_COLLAPSE if a <= 30
      else
        # ランダムで装備部位を選択
        loop_max = rand(loop_size)
      end
      # この場合の「loop_max」はランダム部位選択の結果

# 耐久度が未設定かnilなら次のループ処理へ
      if equips[loop_max] == nil or 
        equips[loop_max].durability_max == 9999999 or
        equips[loop_max].durability == 0

if loop_number == loop_size
          break
        else
          loop_number += 1
        end
        next
      end
      #========== ここまでが部位選択処理 ======================================
      
      # 既に大破している部位なら次のループ処理へ
      if equips[loop_max].equip_state[2] == Vocab::Equip_Break
        if loop_number == loop_size
          @ep_break_text = ""
          break
        else
          loop_number += 1
        end
        next
      end
      # 被ダメージ％が装備箇所％より大きい時
      if percent > 10#damage_percent and damage_percent != 0
        
        # 装備耐久度のダメージ割合を算出
        eq_dmg_per = Float(damage) / Float(equips[loop_max].durability)
        eq_dmg_per *= 100.0
        # 装備耐久力－ダメージを試算
        trial = equips[loop_max].durability
        trial -= damage
        
        # 破損割合を算出。
        if trial < 0
          # 装備耐久力がマイナスなら0を代入
          if equips[loop_max].equip_state[2] == Vocab::Equip_Green
            # 破損していないなら半減
            trial = equips[loop_max].durability_max / 2
            eq_dmg_per = 50.0
          else
            trial = 0
          end
        end
        
        # 装備耐久度の割合処理        
        if eq_dmg_per >= 100
          # ダメージに対する耐久度が１００％以上
          if equips[loop_max].equip_state[2] == Vocab::Equip_Damage
            # 大破した時の処理
            equip_break(loop_max, damage)
            return
          elsif equips[loop_max].equip_state[2] == Vocab::Equip_Green
            # 100%以上のダメージでもまだ破損してない場合
            equip_half_break(loop_max, damage)
            return
          end
        elsif eq_dmg_per >= 50
          # ダメージに対する耐久度が５０％以上で正常の場合
          if equips[loop_max].equip_state[2] == Vocab::Equip_Green
            equip_half_break(loop_max, damage)
            return
          else
            # 正常以外で耐久度へのダメージが50％以上なら大破処理
            equip_break(loop_max, damage)
            return
          end
        else
          # ダメージがどれも当てはまらない
          # ダメージ－装備耐久力で残ダメージを算出
          damage -= equips[loop_max].durability
          break
        end
        
        if damage <= 0# 残ダメージが0以下なら終了
          break
        end
      end
      
      
      if loop_number == loop_size
        break
      else
        loop_number += 1
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 破損処理
  #--------------------------------------------------------------------------
  def equip_half_break(loop_max, damage)
    equip_damage = equips[loop_max]# テキスト用の変数
    
    equips[loop_max].durability = equips[loop_max].durability_max / 2
    # ↑　耐久力ダメージ処理
    @ep_break_text = sprintf(Vocab::Equip_Break_Text, @name,equip_damage.name, Vocab::Equip_Damage)
    $game_troop.screen.start_flash(Color.new(255,255,0),10)
    Audio.se_play(ED::EQUIP_DAMAGE_SE,100,100) 
    # ダメージ－装備耐久力で残ダメージを算出
    damage -= equips[loop_max].durability
  end
  #--------------------------------------------------------------------------
  # ● 大破処理
  #--------------------------------------------------------------------------
  def equip_break(loop_max, damage)
    equip_damage = equips[loop_max]# テキスト用の変数
    
    equips[loop_max].durability = 0
    # ↑　耐久力ダメージ処理
    @ep_break_text = sprintf(Vocab::Equip_Break_Text, @name, equip_damage.name, Vocab::Equip_Break)
    $game_troop.screen.start_flash(Color.new(255,50,50),10)
    Audio.se_play(ED::EQUIP_BREAK_SE,100,100)
            
    if ($ed_rgss2["ed_tank_battle"] or $ed_rgss2["ed_mm_party_system"])
      # 戦車乗降システム導入時の処理
      flag_a = equips[loop_max]
      flag_b = equips[BREAK_EQUIP_COLLAPSE]
              
      if flag_a  == flag_b and @immortal and TANK_IMMORAL
        # 破壊装備と死亡処理装備が同じで戦車が不死身の場合
        # かつ、戦車の不死身設定が有効の場合
        @hp = 0
        add_state(1)                # 戦闘不能 (ステート 1 番) を付加
        @added_states.push(1)
        @equip_break_dead = true
      end
    end
    # ダメージ－装備耐久力で残ダメージを算出
    damage -= equips[loop_max].durability
  end
end

#==============================================================================
# ■ Scene_Battle
#------------------------------------------------------------------------------
# 　バトル画面の処理を行うクラスです。
#==============================================================================

class Scene_Battle < Scene_Base
  #--------------------------------------------------------------------------
  # ● ダメージの表示
  #     target : 対象者
  #     obj    : スキルまたはアイテム
  #--------------------------------------------------------------------------
  alias ed_break_equip_display_damage display_damage
  def display_damage(target, obj = nil)
    if target.missed
      ed_break_equip_display_damage(target, obj)
    elsif target.evaded
      ed_break_equip_display_damage(target, obj)
    else
      ed_break_equip_display_damage(target, obj)
      display_break_text(target)
    end
  end
  #--------------------------------------------------------------------------
  # ● 装備破壊テキストの表示
  #--------------------------------------------------------------------------
  def display_break_text(target)
    if target.is_a?(Game_Actor)
      return if target.ep_break_text == ""
      text = target.ep_break_text
      if ($ed_rgss2["ed_damage_popup"] and FF_MASSAGE_SYSTEM) and 
        $ed_rgss2["ed_battle_scene"] #and $game_system.ed_battle_mode?
        # ダメージポップアップ＆バトルレイアウト変更のサイドビューなら
        single_massage(text) unless text == "" or text == nil
        target.ep_break_text = ""
        wait(10)
      else
        # それ以外なら通常通りメッセージ表示。
        line_number = @message_window.line_number
        if line_number == 4
          # メッセージが満タンの場合は2行戻って表示する。
          @message_window.back_to(2)
        end
        @message_window.add_instant_text(text)
        wait(60)
        target.ep_break_text = ""
        if line_number != @message_window.line_number
          wait(30)
        end
        @message_window.back_to(line_number)
      end
    end
  end
end
  
end # if $ed_rgss2["ed_equip_extension"] == true

テンプレートのpondt