RPGツクールXP テクニック　－盗む

概要

敵からアイテムを盗む機能を追加します。

スクリーンショット

スクリプト

RGSS
セクション：KGC_Steal

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/    ◆ 盗む - KGC_Steal ◆
#_/    ◇ Last update : 2007/05/28 ◇
#_/----------------------------------------------------------------------------
#_/  『盗む』効果を持つスキルを作成します。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

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

module KGC
module Steal
  # ◆成功時のダメージ文字列
  SUCCESS_DMG = "Stolen"

# ◆何も持っていないときのメッセージ
  EMPTY_MSG = "何も持っていない"
  # ◆盗めなかったときのメッセージ
  FAIL_MSG  = "盗めなかった"
  # ◆お金を盗んだときのメッセージ
  #  【{gold}…金額  {unit}…金の単位】
  GOLD_MSG  = "『{gold}{unit}』盗んだ！！"
  # ◆アイテムを盗んだときのメッセージ
  #  【{item}…アイテム名】
  ITEM_MSG  = "『{item}』を盗んだ！！"

# ◆盗み情報ウィンドウの表示時間(フレーム単位)
  WINDOW_DURATION = 60
end
end

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

$imported = {} if $imported == nil
module KGC::Steal
  FUNCTION_NAME = "Steal"
end

if $game_special_elements == nil
  $game_special_elements = {}
  $data_system = load_data("Data/System.rxdata")
end
# 『盗む』用属性
$game_special_elements["steal"] = $data_system.elements.index("盗む")

#==============================================================================
# ■ RPG::Enemy
#==============================================================================

class RPG::Enemy
  #--------------------------------------------------------------------------
  # ● 名前の取得
  #--------------------------------------------------------------------------
  if !$imported[KGC::Steal::FUNCTION_NAME]
  alias name_KGC_Steal name
  def name
    return name_KGC_Steal.split(/ /)[0]
  end
  end
  #--------------------------------------------------------------------------
  # ● オリジナル名取得
  #--------------------------------------------------------------------------
  def original_name
    return @name
  end
  #--------------------------------------------------------------------------
  # ● 盗める要素の一覧を取得
  #--------------------------------------------------------------------------
  def steal_items
    data = original_name.split(/ /)
    data.delete_at(0)
    items = []
    data.each_index { |i|
      items[i] = data[i].split(/\/([ABGIW])(\d+)?/i)
      items[i].delete_at(0)
      items[i][1] = items[i][1].to_i
    }
    return items
  end
end

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

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

class Game_Battler
  #--------------------------------------------------------------------------
  # ● スキルの効果適用
  #     user  : スキルの使用者 (バトラー)
  #     skill : スキル
  #--------------------------------------------------------------------------
  alias skill_effect_KGC_Steal skill_effect
  def skill_effect(user, skill)
    # 「盗む」属性を持っている場合は戻る
    return false if skill.element_set.include?($game_special_elements["steal"])

# 元の処理を実行
    return skill_effect_KGC_Steal(user, skill)
  end
  #--------------------------------------------------------------------------
  # ● 『盗む』の効果適用
  #     user      : スキルの使用者 (バトラー)
  #     skill     : スキル
  #--------------------------------------------------------------------------
  def steal_effect(user, skill)
    # クリティカルフラグをクリア
    self.critical = false
    # スキルの効果範囲が HP 1 以上の味方で、自分の HP が 0、
    # またはスキルの効果範囲が HP 0 の味方で、自分の HP が 1 以上の場合
    if ((skill.scope == 3 || skill.scope == 4) && self.hp == 0) ||
       ((skill.scope == 5 || skill.scope == 6) && self.hp >= 1)
      # メソッド終了
      return false
    end
    # 盗んだ要素をクリア
    steal_item = nil

# 対象が敵、かつ無敵状態の場合
    if self.states.include?($game_special_states["invincible"]) &&
        (skill.scope == 1 || skill.scope == 2)
      # 絶対に命中しない
      hit_result = false
    else
      # 第一命中判定
      hit_result = (rand(100) < skill.hit)
    end

# 命中の場合
    if hit_result
      # 基本成功率を計算
      steal_prob = skill.power * user.dex / self.agi / 100.0
      # 属性修正
      steal_prob *= elements_correct(skill.element_set)
      steal_prob /= 100
      items = $data_enemies[self.id].steal_items
      # 盗める要素があるか判定
      count = 0
      items.each_with_index { |item, i|
        if (item[0] == "B" || item[0] == "b") ||
            self.stolen_items_flag[i]
          next
        end
        count += 1
      }
      # 盗める要素がある場合
      if count > 0
        # 成功率設定(最初は基本値の２倍)
        hit = steal_prob * 200
        # 成功判定
        items.size.times { |i|
          # 成功率半減
          hit = [hit / 2, 1].max
          # 既に盗んでいる場合は次へ
          next if self.stolen_items_flag[i]
          item = items[i]
          hit_result = (rand(100) < hit)
          # 成功した場合
          if hit_result
            case item[0].upcase
            when "B"  # ブランク
              self.stolen_items_flag[i] = true
              next
            when "I"  # アイテム
              steal_item = $data_items[item[1]].name
              $game_party.gain_item(item[1], 1)
            when "W"  # 武器
              steal_item = $data_weapons[item[1]].name
              $game_party.gain_weapon(item[1], 1)
            when "A"  # 防具
              steal_item = $data_armors[item[1]].name
              $game_party.gain_armor(item[1], 1)
            when "G"  # ゴールド
              steal_item = item[1]
              $game_party.gain_gold(item[1])
            end
            # 成功フラグをオン
            self.stolen_items_flag[i] = true
            break
          end
        }
      # 盗める要素が無い場合はそのまま
      else
        hit_result = true
      end
    end
    # 成功の場合
    if hit_result
      # 何も持っていない場合
      if steal_item == nil
        self.damage = "Miss"
        steal_item = "No Item"
      # 成功した場合
      else
        self.damage = KGC::Steal::SUCCESS_DMG
      end
    # ミスの場合
    else
      self.damage = "Miss"
      steal_item = "Miss"
    end
    # メソッド終了(盗んだ要素を返す)
    return steal_item
  end
end

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

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

class Game_Enemy < Game_Battler
  #--------------------------------------------------------------------------
  # ● 公開インスタンス変数
  #--------------------------------------------------------------------------
  attr_accessor :stolen_items_flag        # 盗んだ要素フラグ
  #--------------------------------------------------------------------------
  # ● オブジェクト初期化
  #     troop_id     : トループ ID
  #     member_index : トループメンバーのインデックス
  #--------------------------------------------------------------------------
  alias initialize_KGC_Steal initialize
  def initialize(troop_id, member_index)
    # 元の処理を実行
    initialize_KGC_Steal(troop_id, member_index)

@stolen_items_flag = []
  end
end

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

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

class Scene_Battle
  STEAL_STOP_THREAD = 0
  #--------------------------------------------------------------------------
  # ● メイン処理
  #--------------------------------------------------------------------------
  alias main_KGC_Steal main
  def main
    # 盗み情報用スレッドを生成
    @steal_window_thread = create_steal_thread

main_KGC_Steal

# スレッドの後始末
    @steal_message.unshift(STEAL_STOP_THREAD)
    @steal_window_thread.join
  end
  #--------------------------------------------------------------------------
  # ● 盗み情報用スレッド生成
  #--------------------------------------------------------------------------
  def create_steal_thread
    @steal_message = []
    t = Thread.start {
      wait_count = 0
      sleep_time = 1.0 / Graphics.frame_rate
      window = Window_Help.new
      window.visible = false
      window.back_opacity = 160
      window.z = 1000
      # メッセージループ
      loop {
        # メッセージ処理
        if !@steal_message.empty?
          msg = @steal_message.shift
          if msg == STEAL_STOP_THREAD  # スレッド停止
            break
          elsif msg.is_a?(String)      # テキスト表示
            window.set_text(msg, 1)
            wait_count = KGC::Steal::WINDOW_DURATION
          end
        end
        # ウェイト
        if wait_count > 0
          wait_count -= 1
          if wait_count == 0
            window.set_text("")
            window.visible = false
          end
        end
        sleep(sleep_time)
      }
      window.dispose
    }
    return t
  end
end

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

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

class Scene_Battle
  #--------------------------------------------------------------------------
  # ● スキルアクション 結果作成
  #--------------------------------------------------------------------------
  alias make_skill_action_result_KGC_Steal make_skill_action_result
  def make_skill_action_result
    # 元の処理を実行
    make_skill_action_result_KGC_Steal

# 「盗む」属性を持っている場合
    if @skill.element_set.include?($game_special_elements["steal"])
      target = @target_battlers[0]
      @steal_item = target.steal_effect(@active_battler, @skill)
    end
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新 (メインフェーズ ステップ 5 : ダメージ表示)
  #--------------------------------------------------------------------------
  alias update_phase4_step5_KGC_Steal update_phase4_step5
  def update_phase4_step5
    update_phase4_step5_KGC_Steal

# 盗みを実行した場合
    if @steal_item != nil
      case @steal_item
      when "No Item"
        text = KGC::Steal::EMPTY_MSG
      when "Miss"
        text = KGC::Steal::FAIL_MSG
      when Integer
        text = KGC::Steal::GOLD_MSG.dup
        text.gsub!(/{gold}/i) { "#{@steal_item}" }
        text.gsub!(/{unit}/i) { "#{$data_system.words.gold}" }
      else
        text = KGC::Steal::ITEM_MSG.dup
        text.gsub!(/{item}/i) { "#{@steal_item}" }
      end
      @steal_item = nil
      @steal_message.push(text)
    end
  end
end

$imported[KGC::Steal::FUNCTION_NAME] = true

導入後、属性[盗む]を作成し、スキルにセットしてください。
これが『盗む』効果を持つスキルになります。

(スキル自体の)命中率：[命中率]％　『盗む』の基本成功率：[威力]％
(基本成功率は、味方の器用さと敵の素早さにより変動)

盗める要素は
　ゴブリン /I1 /W2
のように、[敵名] /{種類}{ID} という書式で設定します。
(↑の例では、ゴブリンからID1のアイテムとID2の武器を盗める)
種類には、以下の５種類が指定できます。(大文字・小文字は問わない)
　B：空欄　　　I：アイテム
　W：武器　　　A：防具
　G：ゴールド

入手判定は左側から順に行われ、右側ほど成功率が低くなります。
(「空欄(B)」「入手済み」「失敗」のいずれかに該当すると右側に移行)
成功率は１つ右に行くごとに半分になります。(1％未満にはならない)
つまり、基本成功率が80％ならば「２個目：40％」「３個目：20％」…という具合です。
これは /B で空欄を指定した場合も同様なので、
　ガーゴイル /B /B /I8
のように指定すれば、レアアイテムを作ることが可能です。