RPGツクールXP テクニック　－ボーナスゲージ

概要

『ス○ーオー○ャン３』のHeatupGaugeもどきを作成するスクリプトです。
各種計算式は適当なので要微調整です。

スクリーンショット

やたら細長いですが、他の部分は無意味なので。

スクリプト

RGSS
セクション：KGC_BonusGauge

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/    ◆ボーナスゲージ － KGC_BonusGauge◆
#_/----------------------------------------------------------------------------
#_/  ボーナスゲージを導入します。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

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

module KGC
  # ◆ボーナスゲージ最大値(蓄積速度を調整したい場合のみ変更)
  BG_GAUGE_MAX = 3000
  # ◆レート最大値
  #  nil にすると上限なし。
  BG_RATE_MAX = 999
  # ◆レート最小値
  BG_RATE_MIN = 0
  # ◆ターン毎のレート減少量
  BG_RATE_REDUCTION = 10
  # ◆ボーナスを追加するチェイン数
  #  チェインがこの値の倍数のとき、ボーナスを追加。
  BG_CHAIN_ADD_BONUS = 5

# ◆経験値増加ボーナスの倍率(百分率)
  BG_EXP_GAIN_RATE = 200
  # ◆入手金増加ボーナスの倍率(百分率)
  BG_GOLD_GAIN_RATE = 200
  # ◆アイテム入手確率増加ボーナスの倍率(百分率)
  BG_ITEM_PROB_GAIN_RATE = 150

# ◆「経験値○倍」の名称
  BG_EXP_GAIN_NAME = "EXP x#{BG_EXP_GAIN_RATE / 100}"
  # ◆「入手金○倍」の名称
  BG_GOLD_GAIN_NAME = "GOLD x#{BG_GOLD_GAIN_RATE / 100}"
  # ◆「アイテム入手確率増加」の名称
  BG_ITEM_PROB_GAIN_NAME = "Drop-prob. UP!"

# ◆ボーナスゲージMAX時メッセージ
  BG_MAX_MESSAGE = "ボーナスゲージMAX!!"
  # ◆ボーナスゲージ破壊メッセージ
  BG_BROKEN_MESSAGE = "ボーナスゲージが壊れた!!"

# ◆ボーナスゲージ画像
  BG_GAUGE_FILE = RPG::Cache.picture("gauge2.png")
  # ◆ボーナスゲージ位置 [x, y]
  BG_GAUGE_POSITION = [630, 4]
  # ◆レート・チェイン表示位置 [x, y]
  BG_INFO_POSITION  = [580, 264]

# ◆ゲージ破壊条件配列
  #    0..味方がクリティカルヒットを受ける。
  #    1..味方が戦闘不能になる。
  #    2..味方が逃走する。
  #  破壊条件に対応する数値を配列に格納。
  BG_BREAK_CONDITION = [0, 1, 2]

# ◆ボーナスゲージMAX時 SE
  BG_BONUS_MAX_SE = RPG::AudioFile.new("137-Light03", 100, 150)
  # ◆ボーナスゲージ破壊 SE
  BG_BONUS_BROKEN_SE = RPG::AudioFile.new("094-Attack06", 100, 50)
end

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

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

#==============================================================================
# ■ Game_Temp
#==============================================================================

class Game_Temp
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :bonus_gauge              # ボーナスゲージ量
  attr_accessor :bonus_rate               # ボーナスゲージ増加レート
  attr_accessor :bonus_chain              # ボーナスチェイン数
  attr_accessor :bonus_effects            # 発動中ボーナス効果
  attr_accessor :bonus_gauge_broken       # ボーナスゲージ破壊フラグ
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #--------------------------------------------------------------------------
  alias initialize_KGC_BonusGauge initialize
  def initialize
    # 元の処理を実行
    initialize_KGC_BonusGauge

@bonus_gauge = @bonus_rate = @bonus_chain = 0
    @bonus_effects = []
    @bonus_gauge_broken = false
  end
end

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

#==============================================================================
# ■ Game_Battler (分割定義 3)
#==============================================================================

class Game_Battler
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :base_damage              # 基本ダメージ値
  #--------------------------------------------------------------------------
  # ● 通常攻撃の効果適用
  #--------------------------------------------------------------------------
  alias attack_effect_KGC_BonusGauge attack_effect
  def attack_effect(attacker)
    # 基本ダメージ値を保存
    self.base_damage = [attacker.atk - self.pdef / 2, 0].max *
      (20 + attacker.str) / 20

# 元の処理を実行
    result = attack_effect_KGC_BonusGauge(attacker)

# ダメージを受けた場合
    if result && self.damage.is_a?(Numeric) && self.damage > 0
      # 攻撃者が味方、対象が敵、基本ダメージが 1 以上の場合
      if attacker.is_a?(Game_Actor) && self.is_a?(Game_Enemy) &&
          self.base_damage > 0
        # ボーナスゲージ増加量計算
        bg_up = self.damage * $game_temp.bonus_rate / self.base_damage
        # ボーナスゲージ増加
        $game_temp.bonus_gauge += bg_up
        $game_temp.bonus_gauge = [$game_temp.bonus_gauge, KGC::BG_GAUGE_MAX].min
      # 攻撃者が敵、対象が味方、ゲージがMAXの場合
      elsif attacker.is_a?(Game_Enemy) && self.is_a?(Game_Actor) &&
          $game_temp.bonus_gauge == KGC::BG_GAUGE_MAX
        # クリティカル、又は対象が戦闘不能になった場合はゲージを破壊
        if (KGC::BG_BREAK_CONDITION.include?(0) && self.critical) ||
            (KGC::BG_BREAK_CONDITION.include?(1) && self.dead?)
          $game_temp.bonus_gauge_broken = true
        end
      end
    end
    return result
  end
  #--------------------------------------------------------------------------
  # ● スキルの効果適用
  #--------------------------------------------------------------------------
  alias skill_effect_KGC_BonusGauge skill_effect
  def skill_effect(user, skill)
    # 威力を計算
    power = skill.power + user.atk * skill.atk_f / 100
    if power > 0
      power -= self.pdef * skill.pdef_f / 200
      power -= self.mdef * skill.mdef_f / 200
      power = [power, 0].max
    end
    # 倍率を計算
    rate = 20
    rate += (user.str * skill.str_f / 100)
    rate += (user.dex * skill.dex_f / 100)
    rate += (user.agi * skill.agi_f / 100)
    rate += (user.int * skill.int_f / 100)
    # 基本ダメージを保存
    self.base_damage = power * rate / 20
    alive = !self.dead?

# 元の処理を実行
    result = skill_effect_KGC_BonusGauge(user, skill)

if result
      # 使用者が味方、対象が敵、基本ダメージが 1 以上の場合
      if user.is_a?(Game_Actor) && self.is_a?(Game_Enemy) &&
          self.damage.is_a?(Numeric) && self.base_damage > 0
        # ボーナスゲージ増加量計算
        bg_up = self.damage * $game_temp.bonus_rate / self.base_damage
        # ボーナスゲージ増加
        $game_temp.bonus_gauge += bg_up
        $game_temp.bonus_gauge = [$game_temp.bonus_gauge, KGC::BG_GAUGE_MAX].min
      # 使用者が敵、対象が味方、ゲージがMAXの場合
      elsif user.is_a?(Game_Enemy) && self.is_a?(Game_Actor) &&
          $game_temp.bonus_gauge == KGC::BG_GAUGE_MAX
        # 対象が戦闘不能になった場合はゲージを破壊
        if KGC::BG_BREAK_CONDITION.include?(1) && alive && self.dead?
          $game_temp.bonus_gauge_broken = true
        end
      end
    end
    return result
  end
end

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

#==============================================================================
# ■ Game_Enemy
#==============================================================================

class Game_Enemy < Game_Battler
  #--------------------------------------------------------------------------
  # ● EXP の取得
  #--------------------------------------------------------------------------
  alias exp_KGC_BonusGauge exp
  def exp
    n = exp_KGC_BonusGauge
    # ボーナス 1 (経験値○倍)が入っている場合
    if $game_temp.bonus_effects.include?(1)
      n = n * KGC::BG_EXP_GAIN_RATE / 100
    end
    return n
  end
  #--------------------------------------------------------------------------
  # ● ゴールドの取得
  #--------------------------------------------------------------------------
  alias gold_KGC_BonusGauge gold
  def gold
    n = gold_KGC_BonusGauge
    # ボーナス 2 (金○倍)が入っている場合
    if $game_temp.bonus_effects.include?(2)
      n = n * KGC::BG_GOLD_GAIN_RATE / 100
    end
    return n
  end
  #--------------------------------------------------------------------------
  # ● トレジャー出現率の取得
  #--------------------------------------------------------------------------
  alias treasure_prob_KGC_BonusGauge treasure_prob
  def treasure_prob
    n = treasure_prob_KGC_BonusGauge
    # ボーナス 3 (アイテム入手率増加)が入っている場合
    if $game_temp.bonus_effects.include?(3)
      n = n * KGC::BG_ITEM_PROB_GAIN_RATE / 100
    end
    return n
  end
end

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

#==============================================================================
# ■ Window_BattleStatus
#==============================================================================

class Window_BattleStatus < Window_Base
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #--------------------------------------------------------------------------
  alias initialize_KGC_BonusGauge initialize
  def initialize
    # ボーナスゲージ情報スプライト作成
    @bg_info = Sprite.new
    @bg_info.bitmap = Bitmap.new(80, 80)
    @bg_info.x = KGC::BG_INFO_POSITION[0]
    @bg_info.y = KGC::BG_INFO_POSITION[1]
    @bg_info.z = 50
    # ボーナスゲージスプライトを作成
    @bonus_gauge = Sprite.new
    @bonus_gauge.bitmap = Bitmap.new(6, 302)
    @bonus_gauge.x = KGC::BG_GAUGE_POSITION[0]
    @bonus_gauge.y = KGC::BG_GAUGE_POSITION[1]
    @bonus_gauge.z = 50
    @b_opacity = 0

# 元の処理を実行
    initialize_KGC_BonusGauge
  end
  #--------------------------------------------------------------------------
  # ● 解放
  #--------------------------------------------------------------------------
  alias dispose_KGC_BonusGauge dispose
  def dispose
    # 情報スプライト破棄
    @bg_info.bitmap.dispose
    @bg_info.dispose
    # ボーナスゲージスプライト破棄
    @bonus_gauge.bitmap.dispose
    @bonus_gauge.dispose

dispose_KGC_BonusGauge
  end
  #--------------------------------------------------------------------------
  # ● リフレッシュ
  #--------------------------------------------------------------------------
  alias refresh_KGC_BonusGauge refresh
  def refresh
    refresh_KGC_BonusGauge

draw_bonus_info
  end
  #--------------------------------------------------------------------------
  # ● ボーナスゲージ情報描画
  #--------------------------------------------------------------------------
  def draw_bonus_info
    if $imported["FrameShadowText"]
      draw_method = @bg_info.bitmap.method(:draw_frame_text)
    else
      draw_method = @bg_info.bitmap.method(:draw_text)
    end
    # レート・チェイン数を描画
    @bg_info.bitmap.clear
    @bg_info.bitmap.font.size = 18
    @bg_info.bitmap.font.color = $game_temp.bonus_rate > 0 ?
      text_color(4) : text_color(2)
    draw_method.call(0, 0, 48, 32, $game_temp.bonus_rate.to_s + "％", 2)
    @bg_info.bitmap.font.color = $game_temp.bonus_chain > 0 ?
      text_color(6) : text_color(1)
    draw_method.call(0, 20, 48, 32, $game_temp.bonus_chain.to_s, 2)
  end
  #--------------------------------------------------------------------------
  # ● 更新
  #--------------------------------------------------------------------------
  alias update_KGC_BonusGauge update
  def update
    update_KGC_BonusGauge

update_bonus_gauge
  end
  #--------------------------------------------------------------------------
  # ● ボーナスゲージ更新
  #--------------------------------------------------------------------------
  def update_bonus_gauge
    # ボーナスゲージスプライトを更新
    gauge = KGC::BG_GAUGE_FILE
    @bonus_gauge.bitmap.clear
    @bonus_gauge.bitmap.blt(0, 0, gauge, Rect.new(0, 0, 6, 302))
    gh = $game_temp.bonus_gauge * 300 / KGC::BG_GAUGE_MAX
    # ゲージがMAXの場合
    if gh == 300
      @bonus_gauge.bitmap.blt(1, 1, gauge, Rect.new(6, 0, 4, 300))
      @b_opacity += 8
      @b_opacity = 128 if @b_opacity > 255
      @bonus_gauge.color.set(255, 255, 0, @b_opacity)
    # それ以外の場合
    else
      @bonus_gauge.bitmap.blt(1, 301 - gh, gauge, Rect.new(6, 300 - gh, 4, gh))
      @b_opacity = 0
      @bonus_gauge.color.set(0, 0, 0, 0)
    end
  end
end

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

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

class Scene_Battle
  #--------------------------------------------------------------------------
  # ● メイン処理
  #--------------------------------------------------------------------------
  alias main_KGC_BonusGauge main
  def main
    # ボーナスゲージ用変数初期化
    @bonus_wait = 0
    # トループを準備
    @troop_id = $game_temp.battle_troop_id
    $game_troop.setup(@troop_id)
    # ボーナスレート計算
    $game_temp.bonus_rate = calc_bonus_rate
    # ボーナスゲージがMAXの場合
    if $game_temp.bonus_gauge == KGC::BG_GAUGE_MAX
      process_bonus_gauge_max
    end

main_KGC_BonusGauge
  end
  #--------------------------------------------------------------------------
  # ● ボーナスレート計算
  #--------------------------------------------------------------------------
  def calc_bonus_rate
    # 敵能力計算
    enemy_status = count = 0
    $game_troop.enemies.each { |enemy|
      # 途中から出現する場合は除外
      unless enemy.hidden
        enemy_status += enemy.str + enemy.int + enemy.atk
        count += 1
      end
    }
    enemy_status /= count
    # 味方能力計算
    actor_status = count = 0
    $game_party.actors.each { |actor|
      # 戦闘不能者は除外
      unless actor.dead?
        actor_status += actor.str + actor.int + actor.atk
        count += 1
      end
    }
    actor_status /= count
    # ボーナスレート計算
    rate = [enemy_status * 150 / actor_status, KGC::BG_RATE_MIN].max
    if KGC::BG_RATE_MAX != nil
      rate = [rate, KGC::BG_RATE_MAX].min
    end
    return rate
  end
  #--------------------------------------------------------------------------
  # ● ボーナスゲージMAX時処理
  #--------------------------------------------------------------------------
  def process_bonus_gauge_max
    added_bonus = 0
    # ゲージMAX SE を演奏
    if KGC::BG_BONUS_MAX_SE != nil
      $game_system.se_play(KGC::BG_BONUS_MAX_SE)
    end
    # チェイン数を加算
    $game_temp.bonus_chain += 1
    # ボーナス追加条件を満たす場合
    if $game_temp.bonus_chain == 1 ||
        ($game_temp.bonus_chain % KGC::BG_CHAIN_ADD_BONUS == 0 &&
        $game_temp.bonus_effects.size < 3)
      added_bonus = add_bonus_random
    end
    if $game_temp.bonus_chain == 1
      # ヘルプウィンドウが表示されていない場合
      unless @help_window.visible
        # ボーナスタイトルを取得
        case added_bonus
        when 1
          text = KGC::BG_EXP_GAIN_NAME
        when 2
          text = KGC::BG_GOLD_GAIN_NAME
        when 3
          text = KGC::BG_ITEM_PROB_GAIN_NAME
        end
        # ゲージMAXメッセージを表示
        @bonus_message = KGC::BG_MAX_MESSAGE + "[#{text}]"
      end
    else
      @bonus_message = ""
      # ボーナスタイトルを取得
      if $game_temp.bonus_effects.include?(1)
        @bonus_message += "[#{KGC::BG_EXP_GAIN_NAME}]"
      end
      if $game_temp.bonus_effects.include?(2)
        @bonus_message += "[#{KGC::BG_GOLD_GAIN_NAME}]"
      end
      if $game_temp.bonus_effects.include?(3)
        @bonus_message += "[#{KGC::BG_ITEM_PROB_GAIN_NAME}]"
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● ボーナスをランダムに追加
  #--------------------------------------------------------------------------
  def add_bonus_random
    # 残りのボーナス効果をランダムに追加
    loop {
      i = rand(3) + 1
      # 含まれていない場合
      unless $game_temp.bonus_effects.include?(i)
        $game_temp.bonus_effects << i
        return i
      end
    }
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  alias update_KGC_BonusGauge update
  def update
    # ボーナスメッセージ表示
    if @bonus_message != nil
      show_bonus_message
    end
    # ボーナスメッセージ表示終了
    if @bonus_message_showing && @bonus_wait == 0
      end_bonus_message
    end
    # ボーナスメッセージ更新
    if @bonus_wait > 0
      update_bonus_message
      return
    end

update_KGC_BonusGauge
  end
  #--------------------------------------------------------------------------
  # ● ボーナスメッセージ表示
  #--------------------------------------------------------------------------
  def show_bonus_message
    @help_window.set_text(@bonus_message, 1)
    @bonus_message = nil
    @bonus_message_showing = true
    # ウェイトカウントを設定
    @bonus_wait = 40
  end
  #--------------------------------------------------------------------------
  # ● ボーナスメッセージ終了
  #--------------------------------------------------------------------------
  def end_bonus_message
    @help_window.visible = false
    @bonus_message_showing = false
  end
  #--------------------------------------------------------------------------
  # ● ボーナスメッセージ更新
  #--------------------------------------------------------------------------
  def update_bonus_message
    $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
    # カウントを減らす
    @bonus_wait -= 1
  end
  #--------------------------------------------------------------------------
  # ● バトル終了
  #     result : 結果 (0:勝利 1:逃走 2:敗北)
  #--------------------------------------------------------------------------
  alias battle_end_KGC_BonusGauge battle_end
  def battle_end(result)
    # 逃走した場合
    if result == 1
      # ボーナスゲージがMAXの場合、ゲージを破壊
      if KGC::BG_BREAK_CONDITION.include?(2) &&
          $game_temp.bonus_gauge == KGC::BG_GAUGE_MAX
        break_bonus_gauge
        @spriteset.update
      end
    end

battle_end_KGC_BonusGauge(result)
  end
  #--------------------------------------------------------------------------
  # ● ボーナスゲージ破壊
  #--------------------------------------------------------------------------
  def break_bonus_gauge
    # ゲージ破壊 SE を演奏
    if KGC::BG_BONUS_BROKEN_SE != nil
      $game_system.se_play(KGC::BG_BONUS_BROKEN_SE)
    end
    # ゲージ破壊メッセージを表示
    @bonus_message = KGC::BG_BROKEN_MESSAGE
    # 破壊
    $game_temp.bonus_gauge = 0
    $game_temp.bonus_effects.clear
    $game_temp.bonus_chain = 0
    # ゲージ破壊フラグを解除
    $game_temp.bonus_gauge_broken = false
    @status_window.refresh
  end
end

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

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

class Scene_Battle
  #--------------------------------------------------------------------------
  # ● パーティコマンドフェーズ開始
  #--------------------------------------------------------------------------
  alias start_phase2_KGC_BonusGauge start_phase2
  def start_phase2
    # 元の処理を実行
    start_phase2_KGC_BonusGauge

if $game_temp.battle_turn > 0
      # ボーナスレートを減らす
      $game_temp.bonus_rate =
        [$game_temp.bonus_rate - KGC::BG_RATE_REDUCTION, KGC::BG_RATE_MIN].max
      # ステータスウィンドウをリフレッシュ
      @status_window.refresh
    end
  end
end

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

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

class Scene_Battle
  #--------------------------------------------------------------------------
  # ● フレーム更新 (メインフェーズ ステップ 5 : ダメージ表示)
  #--------------------------------------------------------------------------
  alias update_phase4_step5_KGC_BonusGauge update_phase4_step5
  def update_phase4_step5
    update_phase4_step5_KGC_BonusGauge

# ボーナスゲージがMAXになった場合
    if $game_temp.bonus_gauge == KGC::BG_GAUGE_MAX &&
        $game_temp.bonus_chain == 0
      process_bonus_gauge_max
      @status_window.refresh
    end
    # ボーナスゲージが破壊された場合
    if $game_temp.bonus_gauge_broken
      break_bonus_gauge
    end
  end
end

ゲージ画像はサンプル付属のものを参考にしてください。

ボーナスゲージは、敵にダメージを与えることで増加します。
ゲージは「レート」という割合により増加量が変動します。
レートは１ターン毎に10％ずつ減少し、0 になるとゲージは増えません。

ゲージがMAXのとき以下の条件に当てはまった場合、ゲージは破壊されます。
　・敵の攻撃がクリティカルヒットした。
　・敵の攻撃で味方が戦闘不能になった。
　・味方が戦闘から逃走した。
ゲージを壊さずに連続戦闘すると「チェイン」となり、回数が記録されます。

ボーナスには「経験値２倍」「金２倍」「アイテム入手確率増加」の３種類があります。
(SO3には「戦闘後回復量増加」もありますが、サンプルでは無意味なため導入していません)
ゲージがMAXになったときにランダムで１つが導入され、以後は５チェイン毎に追加されます。

ボーナスゲージの状態は、セーブデータに記録されません。
よって「壊れたからロードしてやり直し」という方法は使えません。