BlueRedZone

概要

装備に耐久度性を導入します．
装備の様々な条件で耐久度を変更させたり，耐久度によって装備の性能を変動させることができます．

アイテムセグメントver1.12以上が必須です．

併用

• ダメージイベントver1.02以上」と併用することで戦闘時に装備の耐久度を様々な条件で自動的に変動させることができます．

位置

• 「BMSP ダメージイベント」より下
• 「BMSP アイテムセグメント」より下
• 「BMSP 装備強化システム」より下
• 「ショップアイテム試着」より上

スクリプト

中身をすべてコピーして，ツクールのスクリプトに新たなセクションを作成し，貼り付けてください．

#============================================================================== # ■ BMSP 装備耐久度[EQUIPMENTDURABILITY] Ver1.11 2013/11/25 #------------------------------------------------------------------------------ # 　装備に耐久度性を導入します． #============================================================================== #------------------------------------------------------------------------------ # ■内容 # 装備に耐久度性を導入します． # 装備の様々な条件で耐久度を変更させたり， # 耐久度によって装備の性能を変動させることができます． # # 位置：「BMSP ダメージイベント」より下 # 「BMSP アイテムセグメント」より下 # 「BMSP 装備強化システム」より下 # 「BMSP ショップアイテム試着」より上 # # ■必須 # 「BMSP アイテムセグメントver1.12以上」が必須です． # # ■併用 # 「BMSP ダメージイベントver1.02以上」と併用することで戦闘時に装備の耐久度を # 様々な条件で自動的に変動させることができます． # # ■使用方法 # スクリプトに丸ごと貼り付けていただければ使用できます。 # # 装備修理画面を呼び出すことで，装備の修理を行うことができます． # 装備修理画面を呼び出すにはマップ画面でイベントのスクリプトから # ED.call_repair_equipment # を実行します． # デフォルトでは修理にお金を消費しますが，引数に整数を渡すことでそのIDに対応する # 変数の値を消費して修理することができます． # 例・変数001を消費して装備を修理する # ED.call_repair_equipment(1) # また，耐久度を変化させた武器，防具の入手についてはイベントのスクリプトから # ED.gain_durability_eapon(id, durability, amount) # ED.gain_durability_armor(id, durability, amount) # を実行します．装備のID,設定耐久度，入手個数を引数に指定します． # # 詳細設定にて装備耐久度の設定を行うことができます． # ○ENABLE_DURABILITY : 装備の耐久度が有効かどうかのデフォルトの設定です． # # 以下の設定では耐久度によるアイテムの性能を求めるための式を設定します． # evalで評価されるためRubyの通常の式を描くことができます・ # このとき，対象の装備のパラメータを参照することができます． # ・dur ：アイテムの現在の耐久度 # ・mdur ：アイテムの最大耐久度 # ・price ：オリジナルのアイテムの価格 # ・atk ：オリジナルのアイテムの攻撃力の上昇値 # ・_def ：オリジナルのアイテムの防御力の上昇値 # ・mat ：オリジナルのアイテムの魔法力の上昇値 # ・mdf ：オリジナルのアイテムの魔法防御力の上昇値 # ・agi ：オリジナルのアイテムの敏捷性の上昇値 # ・luk ：オリジナルのアイテムの運の上昇値 # ・mhp ：オリジナルのアイテムの最大HPの上昇値 # ・mmp ：オリジナルのアイテムの最大MPの上昇値 # ・etype_id：アイテムの装備タイプID # ・id ：アイテムのid # ○REPAIR_PRICE : 装備修理にかかる費用の式(お金の時) # ○REPAIR_POINT : 装備修理にかかる費用の式(変数の時) # ○PRICE：装備の価格の式 # ○SUC：修理成功率の式 # ○ATK：攻撃力上昇値の式 # ○DEF：防御力上昇値の式 # ○MAT：魔法力上昇値の式 # ○MDF：魔法防御力上昇値の式 # ○AGI：敏捷性上昇値の式 # ○LUK：運上昇値の式 # ○MHP：最大HP上昇値の式 # ○MMP：最大MP上昇値の式 # # ○DEFAULT_DURABILITY：耐久度の初期値 # ○MAX_DURABILITY：最大耐久度 # ○REPAIR_DURABILITY：修理後の耐久度 # ○DESTROY：trueのとき耐久度が0になると装備が破棄されます # # ○PENALTY：修理に失敗したときのペナルティを設定します． # ペナルティには以下の種類から選択します． # :none ：ペナルティなし # 　:break ：装備の破壊 # (自然数) ：耐久度が(自然数)になる # # ○DISPLAY_SUCCESS：装備修理画面で強化成功率を表示するか # ○DISPLAY_PENALTY：装備修理画面でペナルティを表示するか # ○POINT_UNIT：変数を消費して修理する時の通貨単位？です # 　キー:defaultにはデフォルトの単位を指定します． # 自然数をキーにして単位を設定すると，そのIDの変数を利用する時その単位が表示されます． # ○BROKEN_MESSAGE：trueのとき戦闘中装備が壊れた旨を表示します # ○MESSAGE_FMT：装備破壊時に表示されるメッセージです． # アクターの名前，装備名が置換される # # ○DEGRADE_EXPS：ダメージイベントを利用して耐久度を変動させる場合に使用する耐久度減少式です． # 　任意のキーに対して式を文字列で設定し，装備耐久度イベント内で設定したキーを指定します． # このとき，対象の装備のパラメータおよび各種ダメージイベントで参照可能な # 情報を参照することができます． # ・dur ：アイテムの現在の耐久度 # ・mdur ：アイテムの最大耐久度 # ・price ：オリジナルのアイテムの価格 # ・atk ：オリジナルのアイテムの攻撃力の上昇値 # ・_def ：オリジナルのアイテムの防御力の上昇値 # ・mat ：オリジナルのアイテムの魔法力の上昇値 # ・mdf ：オリジナルのアイテムの魔法防御力の上昇値 # ・agi ：オリジナルのアイテムの敏捷性の上昇値 # ・luk ：オリジナルのアイテムの運の上昇値 # ・mhp ：オリジナルのアイテムの最大HPの上昇値 # ・mmp ：オリジナルのアイテムの最大MPの上昇値 # ・etype_id：アイテムの装備タイプID # ・id ：アイテムのid # ・ダメージイベントの変数(subject, targetなど) # # ○DRAW_GAUGE：装備アイコンに耐久度ゲージを描画するか # ○GAUGE_MAX_DURABILITY：ゲージが最大になる耐久度 # 装備の最大耐久度より小さくすることで # 例えば耐久度120%の装備などを表現することができます． # ○GAUGE_EDGECOLOR：ゲージの縁の色(nilで描画しない) # ○GAUGE_BACKCOLOR：ゲージの背景色(nilで描画しない) # ○GAUGE_COLOR：ゲージの色 # ○GAUGE_MAXCOLOR：ゲージ最大時の色 # ○GAUGE_OVERCOLOR：ゲージ限界突破時の色 # ○BROKENCOLOR：耐久度が0のときの装備名の文字色(nilで変更しない) # # 以下の設定では装備修理画面で鳴らす効果音を指定できます． # ○REPAIR_SOUND：修理実行時効果音のファイル名 # ○REPAIR_VOLUME：修理実行時効果音のボリューム # ○REPAIR_PITCH：修理実行時効果音のピッチ # ○SUCCESS_SOUND：修理成功時効果音のファイル名 # ○SUCCESS_VOLUME：修理成功時効果音のボリューム # ○SUCCESS_PITCH：修理成功時効果音のピッチ # ○MISS_SOUND：修理失敗時効果音のファイル名 # ○MISS_VOLUME：修理失敗時効果音のボリューム # ○MISS_PITCH：修理失敗時効果音のピッチ # # また，アイテムのメモ欄にてアイテムごとに耐久度の設定を行うことができます． # 　==装備耐久度EnableDurability:xxx== # xxxにtrueかfalseを指定して，耐久度のあるアイテムかどうか設定します． # ==装備耐久度RepairPrice:xxx== # お金による修理費用の式を設定します． # ==装備耐久度RepairPoint:xxx== # 変数による修理費用の式を設定します． # ==装備耐久度Price:xxx== # 価格の式を設定します． # ==装備耐久度Success:xxx== # 修理成功率の式を設定します． # ==装備耐久度Atk:xxx== # 攻撃力の式を設定します． # ==装備耐久度Def:xxx== # 防御力の式を設定します． # ==装備耐久度Mat:xxx== # 魔法力の式を設定します． # ==装備耐久度Mdf:xxx== # 魔法防御の式を設定します． # ==装備耐久度Agi:xxx== # 敏捷性の式を設定します． # ==装備耐久度Luk:xxx== # 運の式を設定します． # ==装備耐久度MaxHP:xxx== # 最大HPの式を設定します． # ==装備耐久度MaxMP:xxx== # 最大MPの式を設定します． # ==装備耐久度DefaultDurability:xxx== # 初期耐久度を設定します． # ==装備耐久度MaxDurability:xxx== # 最大耐久度を設定します． # ==装備耐久度RepairDurability:xxx== # 修理成功時の耐久度を設定します． # ==装備耐久度GaugeMax:xxx== # ゲージの最大耐久度を設定します． # ==装備耐久度Destroy:xxx== # xxxにtrueかfalseを指定して耐久度が0になったとき装備が破棄されるか設定します． # ==装備耐久度Penalty:xxx== # ペナルティを設定します．xxxにはbreak,none,(自然数)のいずれかを指定します． # # ● ダメージイベントを利用した耐久度の減少 # 基本的にはダメージイベントのコモンイベントの作り方と同様ですが， # 以下の点が異なります． # ・一行目の注釈 # 　==装備耐久度イベント:%types%:%timing%== # ・条件注釈の最後に耐久度変動注釈を追加 # 耐久度変動#%args% # %args%は以下のフォーマットで置き換えます． # :actor => xxx, :exp => xxx, %オプション% => xxx, ... # :actorは耐久度の影響を受けるアクター，もしくはアクターの配列を指定します． # :expはDEGRADE_EXPSのキーを指定します．この式の評価結果の分だけ耐久度が減少します． # %オプション%は無くても構いませんが，設定するとより影響を受ける装備についてより細かい設定を行うことができます． # %オプション%には以下の項目があります． # :slot_idは装備のスロットIDもしくはスロットIDの配列で指定します． # ここで指定したスロットIDの装備のみ耐久度が変動します． # 省略すると全てのスロットIDの装備耐久度が減少します． # :equip_typeは装備タイプIDもしくは装備タイプIDの配列で指定します． # ここで指定した装備タイプIDの装備のみ耐久度が変動します． # 省略すると全ての装備タイプIDの装備耐久度が減少します． # :idは装備のアイテムIDもしくはアイテムIDの配列で指定します． # ここで設定したアイテムIDの装備の耐久度が変動します． # 省略すると全てのアイテムIDの装備耐久度が変動します． # # 耐久度変動注釈は%args%の途中に改行が入っても構いません． # # これらの違い以外はダメージイベントと同じ挙動をするので， # ダメージイベントの条件注釈および耐久度変動注釈でうまく条件を設定し， # 装備の耐久度を減少させます． # 装備耐久度イベントのイベント内容自体も実行されます． # # ■注意 # このスクリプトでは # 「RPG::BaseItem」「RPG::EquipItem」「Game_Actor」「Game_Party」 # 「Scene_Battle」「Window_BattleLog」「Window_Base」「Window_ShopBuy」 # のメソッドを改変しています。 # ■情報 # このスクリプトはgentlawkによって作られたものです。 # 利用規約はhttp://blueredzone.comをご覧ください。 #------------------------------------------------------------------------------ module BMSP @@includes ||= {} @@includes[:EquipmentDurability] = 1.11 module EquipmentDurability #▲▽▲▽▲▽▲▽▲▽▲▽▲▽▲▽ #詳細設定 ENABLE_DURABILITY = true # trueのときデフォルトで耐久度がON REPAIR_PRICE = "price / 2" # 修理費用式 REPAIR_POINT = "price / 4" # 変数消費による修理費用式 PRICE = "price" # 耐久度による価格変動式 SUC = "100" # 修理成功率式 ATK = "dur == 0 ? 0 : atk" # 攻撃力変動式 DEF = "dur == 0 ? 0 : _def" # 防御力変動式 MAT = "dur == 0 ? 0 : mat" # 魔法力変動式 MDF = "dur == 0 ? 0 : mdf" # 魔法防御変動式 AGI = "dur == 0 ? 0 : agi" # 敏捷性変動式 LUK = "dur == 0 ? 0 : luk" # 運変動式 MHP = "dur == 0 ? 0 : mhp" # 最大HP変動式 MMP = "dur == 0 ? 0 : mmp" # 差大MP変動式 DEFAULT_DURABILITY = 100 # 耐久度の初期値 MAX_DURABILITY = 100 # 最大耐久度 REPAIR_DURABILITY = 100 # 修理後の耐久度 DESTROY = false # trueのとき耐久度が0になると装備が破棄 PENALTY = 0 # 修理失敗時のペナルティ # :break で装備が破棄 # :none でペナルティなし # (自然数) で 指定の耐久度になる DISPLAY_SUCCESS = false # 修理成功率を表示するか DISPLAY_PENALTY = false # ペナルティを表示するか POINT_UNIT = {} # 変数による修理の時表示される単位 POINT_UNIT[:default] = "Ｐ" # デフォルトの単位 POINT_UNIT[1] = "ＲＰ" # 変数ID001による修理画面のとき，"ＲＰ"と表示 BROKEN_MESSAGE = true # trueのとき戦闘中装備が壊れた旨を表示 MESSAGE_FMT = "%s の %s が壊れた！" # 装備破壊時に表示されるメッセージ # アクターの名前，装備名が置換される DEGRADE_EXPS = {} DEGRADE_EXPS[:weapon] = # 武器の耐久度減少式1 "1" DEGRADE_EXPS[:weapon2] = # 武器の耐久度減少式2(ダメージイベント:HPを想定) "target.result.hp_damage < 100 ? 0 : 1" # 与えたダメージが100未満なら耐久度は減らない DEGRADE_EXPS[:armor] = # 防具の耐久度減少式1 "1" DEGRADE_EXPS[:armor2] = # 防具の耐久度減少式2(ダメージイベントHPを想定) "equip.atype_id == 4 ? 1 : 2" # 防具タイプ4(重装防具)なら耐久度は減りにくい DRAW_GAUGE = true # 耐久度ゲージを描画するか GAUGE_MAX_DURABILITY = 100 # ゲージが最大になる耐久度 GAUGE_EDGECOLOR = 7 # ゲージの縁の色(nilで描画しない) GAUGE_BACKCOLOR = 19 # ゲージの背景色(nilで描画しない) GAUGE_COLOR = 3 # ゲージの色 GAUGE_MAXCOLOR = 1 # ゲージ最大時の色 GAUGE_OVERCOLOR = 2 # ゲージ限界突破時の色 BROKENCOLOR = 18 # 耐久度が0のときの装備名の文字色(nilで変更しない) # 修理実行時の効果音 REPAIR_SOUND = "Hammer" # ファイル名 REPAIR_VOLUME = 80 # ボリューム REPAIR_PITCH = 100 # ピッチ # 修理成功時の効果音 SUCCESS_SOUND = "Chime2" # ファイル名 SUCCESS_VOLUME = 80 # ボリューム SUCCESS_PITCH = 100 # ピッチ # 強化失敗時の効果音 MISS_SOUND = "Buzzer2" # ファイル名 MISS_VOLUME = 80 # ボリューム MISS_PITCH = 100 # ピッチ #▲▽▲▽▲▽▲▽▲▽▲▽▲▽▲▽ # メモ欄から設定を抽出する正規表現 MATCH = /==装備耐久度(.+):(.*)==/o NAME_LIST = [ :EnableDurability, :RepairPrice, :RepairPoint, :Price, :Success, :Atk, :Def, :Mat, :Mdf, :Agi, :Luk, :MaxHP, :MaxMP, :DefaultDurability, :MaxDurability, :RepairDurability,:GaugeMax, :Destroy, :Penalty ] #-------------------------------------------------------------------------- # ● 正規表現とのマッチ #-------------------------------------------------------------------------- def self.match(str) data = Hash.new NAME_LIST.each{|name| data[name] = nil } str.scan(MATCH).each do |name, value| symname = name.to_sym next unless data.key?(symname) case symname when :Penalty if /\d+/ =~ value data[symname] = value.to_u elsif /break|none/ =~ value data[symname] = value.to_sym end when :EnableDurability, :Destroy data[symname] = Kernel.eval(value) ? true : false when :DefaultDurability, :MaxDurability, :RepairDurability, :GaugeMax data[symname] = value.to_i else data[symname] = value end end return data end #-------------------------------------------------------------------------- # ● 式の評価の本体 #-------------------------------------------------------------------------- def self.eval(exp,dur,mdur,mhp,mmp,atk,_def,mat,mdf,agi,luk,price,etype_id,id) Kernel.eval(exp) end #-------------------------------------------------------------------------- # ● 装備耐久度の変動 #-------------------------------------------------------------------------- def self.degrade_durability(bind, params) unless params[:actor] && params[:exp] raise ArgumentError, "耐久度変動の必須パラメータがありません．" end actors = params[:actor].is_a?(Array) ? params[:actor] : [params[:actor]] if params[:slot_id] slot_id = params[:slot_id].is_a?(Array) ? params[:slot_id] : [params[:slot_id]] else slot_id = false end if params[:equip_type] equip_type = params[:equip_type].is_a?(Array) ? params[:equip_type] : [params[:equip_type]] else equip_type = false end if params[:id] id = params[:id].is_a?(Array) ? params[:id] : [params[:id]] else id = false end actors.each do |actor| next unless actor.actor? actor.degrade_durability(DEGRADE_EXPS[params[:exp]], bind, slot_id, equip_type, id) end end #-------------------------------------------------------------------------- # ● 装備破壊メッセージバッファの初期化 #-------------------------------------------------------------------------- def self.init_message_buffer @message_buffer = [] end #-------------------------------------------------------------------------- # ● 装備破壊メッセージの取得 #-------------------------------------------------------------------------- def self.get_message return nil unless @message_buffer @message_buffer.shift end #-------------------------------------------------------------------------- # ● 装備破壊メッセージの追加 #-------------------------------------------------------------------------- def self.push_message(message) @message_buffer ||= [] @message_buffer.push message end #-------------------------------------------------------------------------- # ● 導入スクリプトの例外クラス #-------------------------------------------------------------------------- class REQUIRE < StandardError end end #-------------------------------------------------------------------------- # ● 必須スクリプトのチェック #-------------------------------------------------------------------------- class << self if method_defined?(:check_require) alias equipmentdurability_check_require check_require end end def self.check_require(require, version) if methods.include?(:equipmentdurability_check_require) equipmentdurability_check_require(require, version) end if !@@includes[require] message = sprintf("BMSPスクリプト%sが導入されていません．\n%s Ver%1.2f以上を導入してください．", require,require,version) raise EquipmentDurability::REQUIRE, message elsif @@includes[require] < version message = sprintf("BMSPスクリプト%s Ver%1.2fは古いバージョンです．\n%s Ver%1.2f以上を導入してください．", require,@@includes[require],require,version) raise EquipmentDurability::REQUIRE, message end return true end #-------------------------------------------------------------------------- # ● 導入スクリプトのチェック #-------------------------------------------------------------------------- def self.check_include(include, version) return false unless @@includes[include] @@includes[include] >= version end module Interface ::ED = self #-------------------------------------------------------------------------- # ● 耐久度指定武器の追加 #-------------------------------------------------------------------------- def self.gain_durability_weapon(id, durability, amount) $game_party.gain_durability_weapon(id, durability, amount) end #-------------------------------------------------------------------------- # ● 耐久度指定防具の追加 #-------------------------------------------------------------------------- def self.gain_durability_armor(id, durability, amount) $game_party.gain_durability_armor(id, durability, amount) end #-------------------------------------------------------------------------- # ● 装備修理画面の呼び出し #-------------------------------------------------------------------------- def self.call_repair_equipment(point = false) return if $game_party.in_battle BMSP::Scene_RepairEquipment.point = point SceneManager.call(BMSP::Scene_RepairEquipment) Fiber.yield end end end BMSP.check_require(:ItemSegment, 1.12) #============================================================================== # ■ Sound #============================================================================== module Sound # 装備強化実行 def self.play_repair_equipment Audio.se_play("Audio/SE/" + BMSP::EquipmentDurability::REPAIR_SOUND, BMSP::EquipmentDurability::REPAIR_VOLUME, BMSP::EquipmentDurability::REPAIR_PITCH) end # 装備強化成功 def self.play_repair_equipment_success Audio.se_play("Audio/SE/" + BMSP::EquipmentDurability::SUCCESS_SOUND, BMSP::EquipmentDurability::SUCCESS_VOLUME, BMSP::EquipmentDurability::SUCCESS_PITCH) end # 装備強化失敗 def self.play_repair_equipment_miss Audio.se_play("Audio/SE/" + BMSP::EquipmentDurability::MISS_SOUND, BMSP::EquipmentDurability::MISS_VOLUME, BMSP::EquipmentDurability::MISS_PITCH) end end #============================================================================== # ■ BMSP::DamageEvent #============================================================================== if BMSP.check_include(:DamageEvent, 1.02) module BMSP module DamageEvent #-------------------------------------------------------------------------- # ● 条件にマッチするコモンイベントを取得 #-------------------------------------------------------------------------- instance_eval{ alias bmsp_equipmentdurability_commons commons } def self.commons(type, timing, binding) commons = bmsp_equipmentdurability_commons(type, timing, binding) init_equipmentdurability_commons if @equipmentdurability_commons.nil? return commons + @equipmentdurability_commons[type][timing].select{ |common,cond| check_condition(cond, binding) }.map{|cc| cc.first } end #-------------------------------------------------------------------------- # ● 装備耐久度:対象コモンイベントの初期化 #-------------------------------------------------------------------------- def self.init_equipmentdurability_commons # オリジナルの対象コモンイベントの退避 original_commons = @commons # 初期化 types = [:counter, :reflection, :substitute, :failure, :critical, :miss, :evasion, :hp_damage, :mp_damage, :tp_damage, :added_st, :removed_st] @commons = {} types.each do |type| @commons[type] = {:before=>[], :after=>[]} end # 一時的に装備耐久度用のチェッカーをバインド class << self alias original_check_damageevent check_damageevent define_method(:check_damageevent, instance_method(:check_equipmentdurability_damageevent)) end # 装備耐久度のダメージイベントを取得 init_commons # チェッカーのバインドを戻す class << self define_method(:check_damageevent, instance_method(:original_check_damageevent)) remove_method(:original_check_damageevent) end # 対象コモンイベントの再配置 @equipmentdurability_commons = @commons @commons = original_commons end #-------------------------------------------------------------------------- # ● 装備耐久度:ダメージイベントかチェックして情報を取得 #-------------------------------------------------------------------------- def self.check_equipmentdurability_damageevent(common_event) list = common_event.list index = 0 return nil if list[index].code != 108 # 注釈じゃない define_comment = list[index].parameters[0] index += 1 while list[index].code == 408 index += 1 end return nil unless define_comment =~ /==装備耐久度イベント:(.+):(表示前|表示後)==/o types = $1.split('|') timing = $2 == "表示前" ? :before : :after # 対象タイプを変換 types.map!{|type| self.translate_type(type)}.compact! return nil if types.empty? # 条件文を抽出 cond = [] size = -1 while list[index].code == 108 size += 1 line = list[index].parameters[0] if line =~ /耐久度変動#(.+)/ # 耐久度変動 params = $1 index += 1 while list[index].code == 408 params += list[index].parameters[0] index += 1 end condition = "BMSP::EquipmentDurability.degrade_durability(binding, #{params})" cond[size] = [condition] else # 条件文 cond[size] = [line] index += 1 while list[index].code == 408 cond[size].push(list[index].parameters[0]) index += 1 end end end return types,timing,cond end end end end #============================================================================== # ■ BMSP::DurabilityData #------------------------------------------------------------------------------ # 　装備耐久度情報のクラスです． #============================================================================== class BMSP::DurabilityData #-------------------------------------------------------------------------- # ● 公開インスタンス変数 #-------------------------------------------------------------------------- attr_reader :durability # 耐久度 attr_reader :max_durability # 最大耐久度 #-------------------------------------------------------------------------- # ● オブジェクト初期化 #-------------------------------------------------------------------------- def initialize(data) @durability = 0 ed = BMSP::EquipmentDurability @repair_price_exp = data[:RepairPrice] ? data[:RepairPrice] : ed::REPAIR_PRICE @repair_point_exp = data[:RepairPoint] ? data[:RepairPoint] : ed::REPAIR_POINT @price_exp = data[:Price] ? data[:Price] : ed::PRICE @suc_exp = data[:Success] ? data[:Success] : ed::SUC @atk_exp = data[:Atk] ? data[:Atk] : ed::ATK @def_exp = data[:Def] ? data[:Def] : ed::DEF @mat_exp = data[:Mat] ? data[:Mat] : ed::MAT @mdf_exp = data[:Mdf] ? data[:Mdf] : ed::MDF @agi_exp = data[:Agi] ? data[:Agi] : ed::AGI @luk_exp = data[:Luk] ? data[:Luk] : ed::LUK @mhp_exp = data[:MaxHP] ? data[:MaxHP] : ed::MHP @mmp_exp = data[:MaxMP] ? data[:MaxMP] : ed::MMP @default_durability = data[:DefaultDurability] ? data[:DefaultDurability] : ed::DEFAULT_DURABILITY @max_durability = data[:MaxDurability] ? data[:MaxDurability] : ed::MAX_DURABILITY @repair_durability = data[:RepairDurability] ? data[:RepairDurability] : ed::REPAIR_DURABILITY @gauge_max_durability = data[:GaugeMax] ? data[:GaugeMax] : ed::GAUGE_MAX_DURABILITY @destroy = data[:Destroy] ? data[:Destroy] : ed::DESTROY @penalty = data[:Penalty] ? data[:Penalty] : ed::PENALTY @penalty = :break if @destroy && @penalty == 0 if @destroy && @default_durability == 0 # 最初から壊れているような装備は許可しない @max_durability = 1 if @max_durability == 0 @default_durability = 1 end self.durability = @default_durability @params_cache = [] @price_cache = [] @repair_price_cache = [] @repair_point_cache = [] @success_cache = [] end #-------------------------------------------------------------------------- # ● 耐久度の設定 #-------------------------------------------------------------------------- def durability=(dur) # min = @destroy ? 1 : 0 min = 0 @durability = [[dur, min].max, @max_durability].min end #-------------------------------------------------------------------------- # ● パラメータ式の取得 #-------------------------------------------------------------------------- def params_exp [ @mhp_exp, @mmp_exp, @atk_exp, @def_exp, @mat_exp, @mdf_exp, @agi_exp, @luk_exp ] end #-------------------------------------------------------------------------- # ● パラメータの取得 #-------------------------------------------------------------------------- def params(item) return @params_cache[@durability] if @params_cache[@durability] @params_cache[@durability] = params_exp.map{|exp| exp_eval(item, exp) } end #-------------------------------------------------------------------------- # ● 価格の取得 #-------------------------------------------------------------------------- def price(item) return 0 if item.bmsp_equipmentdurability_price == 0 return @price_cache[@durability] if @price_cache[@durability] @price_cache[@durability] = [exp_eval(item, @price_exp), 1].max end #-------------------------------------------------------------------------- # ● 修理価格の取得 #-------------------------------------------------------------------------- def repair_price(item) return @repair_price_cache[@durability] if @repair_price_cache[@durability] @repair_price_cache[@durability] = [exp_eval(item, @repair_price_exp), 0].max end #-------------------------------------------------------------------------- # ● 変数修理価格の取得 #-------------------------------------------------------------------------- def repair_point(item) return @repair_point_cache[@durability] if @repair_point_cache[@durability] @repair_point_cache[@durability] = [exp_eval(item, @repair_point_exp), 0].max end #-------------------------------------------------------------------------- # ● 成功率の取得 #-------------------------------------------------------------------------- def success(item) return @success_cache[@durability] if @success_cache[@durability] @success_cache[@durability] = [[exp_eval(item, @suc_exp), 0].max, 100].min end #-------------------------------------------------------------------------- # ● 各種式の評価 #-------------------------------------------------------------------------- def exp_eval(item, exp) base_params = item.bmsp_equipmentdurability_params.dup price = item.bmsp_equipmentdurability_price BMSP::EquipmentDurability.eval(exp,@durability,@max_durability,*base_params,price,item.etype_id,item.id) end #-------------------------------------------------------------------------- # ● ゲージ最大値の取得 #-------------------------------------------------------------------------- def gauge_max_durability @gauge_max_durability end #-------------------------------------------------------------------------- # ● ペナルティの取得 #-------------------------------------------------------------------------- def penalty @penalty end #-------------------------------------------------------------------------- # ● 耐久度0で壊れるかどうか #-------------------------------------------------------------------------- def destroy? @destroy end #-------------------------------------------------------------------------- # ● 修理可能かどうか #-------------------------------------------------------------------------- def repairable? @durability < @repair_durability end #-------------------------------------------------------------------------- # ● 修理 #-------------------------------------------------------------------------- def repair self.durability = @repair_durability end #-------------------------------------------------------------------------- # ● 修理の実行 #-------------------------------------------------------------------------- def execute_repair(item) old_dur = self.durability if rand(100) < success(item) # 成功 self.durability = @repair_durability return old_dur end # 失敗 case @penalty when :break # 消失 # 消失処理は呼び出し元で行う when :none # なし else # 耐久度指定 self.durability = @penalty end return [old_dur, @penalty] end end #============================================================================== # ■ BMSP::ItemExtend #============================================================================== class BMSP::ItemExtend #-------------------------------------------------------------------------- # ● 公開インスタンス変数 #-------------------------------------------------------------------------- attr_reader :durability_data # 装備耐久度 #-------------------------------------------------------------------------- # ● オブジェクト初期化 #-------------------------------------------------------------------------- alias equipdurability_initialize initialize def initialize(item) equipdurability_initialize(item) init_durability end #-------------------------------------------------------------------------- # ● 装備耐久度の初期化 #-------------------------------------------------------------------------- def init_durability if is_weapon? || is_armor? data = BMSP::EquipmentDurability.match(original.note) if data[:EnableDurability].nil? durability = BMSP::EquipmentDurability::ENABLE_DURABILITY else durability = data[:EnableDurability] end @durability_data = durability ? BMSP::DurabilityData.new(data) : nil else @durability_data = nil end end #-------------------------------------------------------------------------- # ● 耐久度があるかどうか #-------------------------------------------------------------------------- def has_durability? extend? && !@durability_data.nil? end end #============================================================================== # ■ RPG::BaseItem #============================================================================== class RPG::BaseItem #-------------------------------------------------------------------------- # ● 装備耐久度情報の取得 #-------------------------------------------------------------------------- def durability_data return nil unless has_durability? self.extend.durability_data end #-------------------------------------------------------------------------- # ● 装備強化可能かどうか #-------------------------------------------------------------------------- def has_durability? extend? && self.extend.has_durability? end end #============================================================================== # ■ RPG::EquipItem #============================================================================== class RPG::EquipItem #-------------------------------------------------------------------------- # ● パラメータの取得 #-------------------------------------------------------------------------- alias bmsp_equipmentdurability_params params def params return bmsp_equipmentdurability_params unless has_durability? durability_data.params(self) end #-------------------------------------------------------------------------- # ● 価格の取得 #-------------------------------------------------------------------------- alias bmsp_equipmentdurability_price price def price return bmsp_equipmentdurability_price unless has_durability? durability_data.price(self) end end #============================================================================== # ■ Game_Actor #============================================================================== class Game_Actor < Game_Battler #-------------------------------------------------------------------------- # ● 装備耐久度の変動 #-------------------------------------------------------------------------- def degrade_durability(exp, bind = binding, slot_id = false, equip_type = false, id = false) equips = @equips.dup # 装備していないスロットの削除 equips.map!{|equip| equip.object.nil? ? nil : equip} # 装備スロットの限定 if slot_id slot_id.each do |i| equips[i] = nil end end # 装備タイプの限定 if equip_type equips.map!{|equip| next nil if equip.nil? equip_type.include?(equip.object.etype_id) ? equip : nil } end # 装備IDの限定 if id equips.select!{|equip| next nil if equip.nil? id.include?(equip.object.id) ? equip : nil } end equips.each.with_index do |equipbase, slot| next if equipbase.nil? equip = equipbase.object next unless equip.has_durability? # 追加のローカル変数バインド $bmsp_equipmentdurability_localvars = { :actor => self, :equip => equip, :dur => equip.durability_data.durability, :mdur => equip.durability_data.max_durability, :mhp => equip.params[0], :mmp => equip.params[1], :atk => equip.params[2], :_def => equip.params[3], :mat => equip.params[4], :mdf => equip.params[5], :agi => equip.params[6], :luk => equip.params[7], :price => equip.price, :etype_id => equip.etype_id, :id => equip.id } exps = [] $bmsp_equipmentdurability_localvars.keys.each do |var| exps.push("#{var} = $bmsp_equipmentdurability_localvars[:#{var}]") end exps.push(exp) # 評価 value = bind.eval(exps.join(";")) # 変動 equip.durability_data.durability -= value # 破壊の処理 if equip.durability_data.destroy? && equip.durability_data.durability == 0 force_change_equip(slot, nil) # 装備の強制解除 if $game_party.in_battle && BMSP::EquipmentDurability::BROKEN_MESSAGE mes = sprintf(BMSP::EquipmentDurability::MESSAGE_FMT, actor.name, equip.name) BMSP::EquipmentDurability.push_message(mes) end end end end end #============================================================================== # ■ Game_Party #============================================================================== class Game_Party < Game_Unit #-------------------------------------------------------------------------- # ● 耐久度指定武器の追加 #-------------------------------------------------------------------------- def gain_durability_weapon(id, durability, amount) item = $data_weapons[id] gain_durability_equip(@weapons, item, durability, amount) end #-------------------------------------------------------------------------- # ● 耐久度指定防具の追加 #-------------------------------------------------------------------------- def gain_durability_armor(id, durability, amount) item = $data_armors[id] gain_durability_equip(@armors, item, durability, amount) end #-------------------------------------------------------------------------- # ● 耐久度指定装備の追加 #-------------------------------------------------------------------------- def gain_durability_equip(container, item, durability, amount) extenditems = [] amount.times do extend = BMSP::ItemExtend.new(item) if extend.has_durability? # 最初から壊れていたらそもそも追加しない return if extend.durability_data.destroy? && durability == 0 extend.durability_data.durability = durability end extenditems.push extend if BMSP::ItemSegmentSystem::NEW_SEGMENT gain_extend(container, extend.item, extend) unless BMSP::ItemSegmentSystem::NEW_SEGMENT end return unless BMSP::ItemSegmentSystem::NEW_SEGMENT segments = [] extenditems.each do |extend| if segments.empty? segments.push(BMSP::ItemSegment.new(extend)) elsif !segments.last.push(extend) segments.push(BMSP::ItemSegment.new(extend)) end end segments.each do |segment| gain_segment(container, item, segment) end end end #============================================================================== # ■ Scene_Battle #============================================================================== class Scene_Battle < Scene_Base #-------------------------------------------------------------------------- # ● 戦闘行動の実行 #-------------------------------------------------------------------------- alias bmsp_equipmentdurability_execute_action execute_action def execute_action # 装備破壊メッセージの初期化 BMSP::EquipmentDurability.init_message_buffer bmsp_equipmentdurability_execute_action # 装備破壊メッセージの表示 @log_window.display_equipment_broken end end #============================================================================== # ■ Window_BattleLog #============================================================================== class Window_BattleLog < Window_Selectable #-------------------------------------------------------------------------- # ● 装備破壊の表示 #-------------------------------------------------------------------------- def display_equipment_broken while message = BMSP::EquipmentDurability::get_message add_text(message) wait end end end #============================================================================== # ■ BMSP::Window_RepairGold #------------------------------------------------------------------------------ # 　装備修理画面で所持金を表示するウィンドウです。 #============================================================================== class BMSP::Window_RepairGold < Window_Gold #-------------------------------------------------------------------------- # ● ウィンドウ幅の取得 #-------------------------------------------------------------------------- def window_width return 272 end #-------------------------------------------------------------------------- # ● 所持金の取得 #-------------------------------------------------------------------------- def value if BMSP::Scene_RepairEquipment.point # ポイント $game_variables[BMSP::Scene_RepairEquipment.point] else # お金 $game_party.gold end end #-------------------------------------------------------------------------- # ● 通貨単位の取得 #-------------------------------------------------------------------------- def currency_unit if BMSP::Scene_RepairEquipment.point # ポイント unit = BMSP::EquipmentDurability::POINT_UNIT[BMSP::Scene_RepairEquipment.point] unit ? unit : BMSP::EquipmentDurability::POINT_UNIT[:default] else # お金 Vocab::currency_unit end end end #============================================================================== # ■ BMSP::Window_RepairStatus #------------------------------------------------------------------------------ # 　装備強化画面で、アイテムの能力値変化を表示するウィンドウです。 #============================================================================== class BMSP::Window_RepairStatus < Window_Base #-------------------------------------------------------------------------- # ● オブジェクト初期化 #-------------------------------------------------------------------------- def initialize(x, y, height) super(x, y, window_width, height) @item = nil end #-------------------------------------------------------------------------- # ● ウィンドウ幅の取得 #-------------------------------------------------------------------------- def window_width return 272 end #-------------------------------------------------------------------------- # ● アイテムの設定 #-------------------------------------------------------------------------- def item=(item) return if @item == item @item = item refresh end #-------------------------------------------------------------------------- # ● リフレッシュ #-------------------------------------------------------------------------- def refresh contents.clear return if @item.is_a?(Game_Actor) return if @item.is_a?(String) return if @item.nil? || !@item.extend? draws = [:durability, :mhp, :mmp, :atk, :def, :mat, :mdf, :agi, :luk] draws.push :success if BMSP::EquipmentDurability::DISPLAY_SUCCESS draws.push :penalty if BMSP::EquipmentDurability::DISPLAY_PENALTY draws.each_with_index do |param, i| draw_item(0, i * line_height, param) end end #-------------------------------------------------------------------------- # ● 項目の描画 #-------------------------------------------------------------------------- def draw_item(x, y, param) draw_param_name(x + 4, y, param) draw_current_param(x + 114, y, param) return if param == :success || param == :penalty draw_right_arrow(x + 168, y) draw_new_param(x + 192, y, param) if @item.durability_data.repairable? end #-------------------------------------------------------------------------- # ● 能力値の名前を描画 #-------------------------------------------------------------------------- def draw_param_name(x, y, param) change_color(system_color) label = case param when :durability then "耐久度" when :mhp then Vocab::param(0) when :mmp then Vocab::param(1) when :atk then Vocab::param(2) when :def then Vocab::param(3) when :mat then Vocab::param(4) when :mdf then Vocab::param(5) when :agi then Vocab::param(6) when :luk then Vocab::param(7) when :success then "成功率" when :penalty then "ペナルティ" end draw_text(x, y, 100, line_height, label) end #-------------------------------------------------------------------------- # ● 現在の能力値を描画 #-------------------------------------------------------------------------- def draw_current_param(x, y, param) durability_data = @item.durability_data change_color(normal_color) durability = durability_data.durability case param when :durability then draw_text(x, y, 48, line_height, durability.to_s, 2) when :mhp then draw_text(x, y, 48, line_height, durability_data.params(@item)[0], 2) when :mmp then draw_text(x, y, 48, line_height, durability_data.params(@item)[1], 2) when :atk then draw_text(x, y, 48, line_height, durability_data.params(@item)[2], 2) when :def then draw_text(x, y, 48, line_height, durability_data.params(@item)[3], 2) when :mat then draw_text(x, y, 48, line_height, durability_data.params(@item)[4], 2) when :mdf then draw_text(x, y, 48, line_height, durability_data.params(@item)[5], 2) when :agi then draw_text(x, y, 48, line_height, durability_data.params(@item)[6], 2) when :luk then draw_text(x, y, 48, line_height, durability_data.params(@item)[7], 2) when :success then success = durability_data.success(@item) draw_text(x, y, 126, line_height, success, 2) when :penalty then case pena = durability_data.penalty when :break penalty = "破壊" when :none penalty = "なし" else penalty = "耐久度が#{pena}に" end # penalty = "" if forgedata.maxlevel? draw_text(x, y, 126, line_height, penalty, 2) end end #-------------------------------------------------------------------------- # ● 右向き矢印を描画 #-------------------------------------------------------------------------- def draw_right_arrow(x, y) change_color(system_color) draw_text(x, y, 22, line_height, "→", 1) end #-------------------------------------------------------------------------- # ● 装備修理後の能力値を描画 #-------------------------------------------------------------------------- def draw_new_param(x, y, param) durability_data = @item.durability_data repair_data = durability_data.dup repair_data.repair new_value, old_value = case param when :durability [repair_data.durability,durability_data.durability] when :mhp [repair_data.params(@item)[0], durability_data.params(@item)[0]] when :mmp [repair_data.params(@item)[1], durability_data.params(@item)[1]] when :atk [repair_data.params(@item)[2], durability_data.params(@item)[2]] when :def [repair_data.params(@item)[3], durability_data.params(@item)[3]] when :mat [repair_data.params(@item)[4], durability_data.params(@item)[4]] when :mdf [repair_data.params(@item)[5], durability_data.params(@item)[5]] when :agi [repair_data.params(@item)[6], durability_data.params(@item)[6]] when :luk [repair_data.params(@item)[7], durability_data.params(@item)[7]] else return end change_color(param_change_color(new_value - old_value)) draw_text(x, y, 48, line_height, new_value, 2) end end #============================================================================== # ■ BMSP::Window_RepairCommand #============================================================================== class BMSP::Window_RepairCommand < Window_HorzCommand #-------------------------------------------------------------------------- # ● オブジェクト初期化 #-------------------------------------------------------------------------- def initialize(x, y, width) @window_width = width super(x, y) end #-------------------------------------------------------------------------- # ● ウィンドウ幅の取得 #-------------------------------------------------------------------------- def window_width @window_width end #-------------------------------------------------------------------------- # ● 桁数の取得 #-------------------------------------------------------------------------- def col_max return 2 end #-------------------------------------------------------------------------- # ● コマンドリストの作成 #-------------------------------------------------------------------------- def make_command_list enable = @item_window ? !@item_window.repairable_equips.empty? : false add_command("個別修理", :select) add_command("一括修理", :all, enable) end #-------------------------------------------------------------------------- # ● アイテムウインドウの設定 #-------------------------------------------------------------------------- def item_window=(item_window) @item_window = item_window end end #============================================================================== # ■ BMSP::Window_RepairList #------------------------------------------------------------------------------ # 　装備修理画面で、装備アイテムの一覧を表示するウィンドウです。 #============================================================================== class BMSP::Window_RepairList < Window_ItemList #-------------------------------------------------------------------------- # ● ステータスウインドウの設定 #-------------------------------------------------------------------------- def status_window=(window) @status_window = window end #-------------------------------------------------------------------------- # ● 桁数の取得 #-------------------------------------------------------------------------- def col_max return 1 end #-------------------------------------------------------------------------- # ● アイテムリストの作成 #-------------------------------------------------------------------------- def make_item_list @data = [] @equip_data = {} $game_party.members.each do |actor| item_actor = actor.dup def item_actor.description "#{self.name}の装備品です。" end @data.push item_actor equips = actor.equips equips.each.with_index do |equip, slot_id| @equip_data[equip] = [actor, slot_id] end @data.concat equips.compact end label = "所持装備アイテム" def label.description "所持している装備品です。" end @data.push label @data.concat $game_party.equip_items end #-------------------------------------------------------------------------- # ● アイテムを許可状態で表示するかどうか #-------------------------------------------------------------------------- def enable?(item) return false if item.nil? return false if item.is_a?(Game_Actor) return false if item.is_a?(String) return true if item.segment? return false unless item.extend? return false unless item.has_durability? item.durability_data.repairable? end #-------------------------------------------------------------------------- # ● 項目の描画 #-------------------------------------------------------------------------- def draw_item(index) item = @data[index] case item when Game_Actor draw_item_actor_name(index, item) when String draw_item_label(index, item) else super end end #-------------------------------------------------------------------------- # ● アクター名の描画 #-------------------------------------------------------------------------- def draw_item_actor_name(index, actor) rect = item_rect(index) change_color(system_color) draw_text(rect, actor.name, 1) end #-------------------------------------------------------------------------- # ● ラベルの描画 #-------------------------------------------------------------------------- def draw_item_label(index, label) rect = item_rect(index) change_color(system_color) draw_text(rect, label, 1) end #-------------------------------------------------------------------------- # ● アイテムの個数を描画 #-------------------------------------------------------------------------- def draw_item_number(rect, item) if item.segment? number = @data[@data.index(item)].extend.size draw_text(rect, sprintf(":%2d", number), 2) end end #-------------------------------------------------------------------------- # ● フレーム更新 #-------------------------------------------------------------------------- def update super @status_window.item = item if self.active && @status_window end #-------------------------------------------------------------------------- # ● アイテムの消失 #-------------------------------------------------------------------------- def lose_item(item) return unless item return if item.is_a?(Game_Actor) return if item.is_a?(String) actor, slot_id = @equip_data[item] if actor # 装備の強制解除(消失) actor.force_change_equip(slot_id, nil) else # アイテムの消失 $game_party.lose_item(item, 1) end end #-------------------------------------------------------------------------- # ● 修理可能な装備一覧の取得 #-------------------------------------------------------------------------- def repairable_equips @data.select { |item| enable?(item) }.map{ |item| next item unless item.segment? item.extend.select { |item| enable?(item) } }.flatten end end #============================================================================== # ■ BMSP::Window_RepairExtendItem #------------------------------------------------------------------------------ # 　装備修理画面で，セグメントの中身を表示するウインドウです． #============================================================================== class BMSP::Window_RepairExtendItem < BMSP::Window_ExtendItem #-------------------------------------------------------------------------- # ● ステータスウインドウの設定 #-------------------------------------------------------------------------- def status_window=(window) @status_window = window end #-------------------------------------------------------------------------- # ● アイテムを許可状態で表示するかどうか #-------------------------------------------------------------------------- def enable?(item) return false if item.nil? return false if item.is_a?(Game_Actor) return false if item.is_a?(String) return false unless item.extend? return false unless item.has_durability? item.durability_data.repairable? end #-------------------------------------------------------------------------- # ● アイテムをリストに含めるかどうか #-------------------------------------------------------------------------- def include?(item) return false if item.nil? true end #-------------------------------------------------------------------------- # ● フレーム更新 #-------------------------------------------------------------------------- def update super @status_window.item = item if self.active && @status_window end end #============================================================================== # ■ BMSP::Window_RepairDecide #------------------------------------------------------------------------------ # 　装備修理画面で，修理の実行の最終確認のウインドウです． #============================================================================== class BMSP::Window_RepairDecide < Window_Command #-------------------------------------------------------------------------- # ● 公開インスタンス変数 #-------------------------------------------------------------------------- attr_accessor :just_mode # お金が足りなくても修理を選択可能 #-------------------------------------------------------------------------- # ● オブジェクト初期化 #-------------------------------------------------------------------------- def initialize super(0,0) self.openness = 0 self.deactivate @just_mode = false end #-------------------------------------------------------------------------- # ● 標準パディングサイズの取得 #-------------------------------------------------------------------------- def standard_padding return 18 end #-------------------------------------------------------------------------- # ● コマンドリストの作成 #-------------------------------------------------------------------------- def make_command_list # 金額が足りるか price_list = self.repair_price_list price = price_list.inject(0, :+) if BMSP::Scene_RepairEquipment.point # ポイント enable = $game_variables[BMSP::Scene_RepairEquipment.point] >= price else # お金 enable = $game_party.gold >= price end if !enable && @just_mode # ひとつでも修理できるものがあれば修理を許可 if BMSP::Scene_RepairEquipment.point # ポイント enable = price_list.any? {|price| $game_variables[BMSP::Scene_RepairEquipment.point] >= price } else # お金 enable = price_list.any? {|price| $game_party.gold >= price } end end add_command("修理する", :repair, enable) add_command("やめる", :back) end #-------------------------------------------------------------------------- # ● 通貨単位の取得 #-------------------------------------------------------------------------- def currency_unit if BMSP::Scene_RepairEquipment.point # ポイント unit = BMSP::EquipmentDurability::POINT_UNIT[BMSP::Scene_RepairEquipment.point] unit ? unit : BMSP::EquipmentDurability::POINT_UNIT[:default] else # お金 Vocab::currency_unit end end #-------------------------------------------------------------------------- # ● 項目の描画 #-------------------------------------------------------------------------- def draw_item(index) change_color(normal_color, command_enabled?(index)) draw_text(item_rect_for_text(index), command_name(index), 0) if index == 0 && @item # 金額の表示 price_list = self.repair_price_list price = price_list.inject(0, :+) return if price == 0 width = contents.width - 4 cx = text_size(currency_unit).width draw_text(0, 0, width - cx - 2, line_height, price, 2) change_color(system_color) draw_text(0, 0, width, line_height, currency_unit, 2) end end #-------------------------------------------------------------------------- # ● アイテム一覧の設定 #-------------------------------------------------------------------------- def item=(item) return if @item == item @item = item.is_a?(Array) ? item : [item] set if @item end #-------------------------------------------------------------------------- # ● アイテム一覧の取得 #-------------------------------------------------------------------------- def item return @item end #-------------------------------------------------------------------------- # ● 修理金額一覧の取得 #-------------------------------------------------------------------------- def repair_price_list if @item if BMSP::Scene_RepairEquipment.point # ポイント @item.map { |item| item.durability_data.repair_point(item) } else # お金 @item.map { |item| item.durability_data.repair_price(item) } end else [] end end #-------------------------------------------------------------------------- # ● 呼び出し元の設定 #-------------------------------------------------------------------------- def last_window=(window) return if @last_window == window @last_window = window end #-------------------------------------------------------------------------- # ● 呼び出し元の取得 #-------------------------------------------------------------------------- def last_window return @last_window end #-------------------------------------------------------------------------- # ● ウインドウのセット #-------------------------------------------------------------------------- def set # ウインドウの幅を描画文字幅から算出 # コマンドの文字幅 command_width = @list.size.times.map{|i| text_size(command_name(i)).width } command_width[0] += 24 # パディング unit_width = contents.text_size(currency_unit).width price_list = self.repair_price_list price = price_list.inject(0, :+) if price > 0 price_width = contents.text_size(price).width command_width[0] += price_width + 2 + unit_width # 金額 command_width[0] += 4 # 右余白 end self.width = command_width.max + standard_padding * 2 self.height = fitting_height(@list.size) self.x = (Graphics.width - self.width) / 2 self.y = (Graphics.height - self.height) / 2 # リフレッシュ refresh self.select(command_enabled?(0) ? 0 : 1) end end #============================================================================== # ■ BMSP::Window_RepairResult #------------------------------------------------------------------------------ # 　装備修理画面で、修理結果を表示するウインドウです． #============================================================================== class BMSP::Window_RepairResult < Window_Base #-------------------------------------------------------------------------- # ● オブジェクト初期化 #-------------------------------------------------------------------------- def initialize y = (Graphics.height - window_height) / 2 super(0, y, 48, window_height) self.openness = 0 self.deactivate end #-------------------------------------------------------------------------- # ● ウインドウの高さ #-------------------------------------------------------------------------- def window_height self.fitting_height(3) end #-------------------------------------------------------------------------- # ● リフレッシュ #-------------------------------------------------------------------------- def refresh(data) contents.clear change_color(system_color) width = contents.width y = 0 draw_text(0,y,width,line_height,data[:label],1) y += line_height x = (contents.width - (text_size(data[:item].name).width + 24)) / 2 draw_item_name(data[:item], x, y, !data[:lost], width-24) change_color(data[:penalty] ? power_down_color : power_up_color) y += line_height draw_text(0,y,width,line_height,data[:message],1) end #-------------------------------------------------------------------------- # ● ウインドウのセット #-------------------------------------------------------------------------- def set(item, old_dur, penalty = nil) data = {} # 描画内容の設定 data[:label] = "修理結果" data[:item] = item data[:penalty] = penalty data[:lost] = true if penalty == :break if penalty.nil? data[:message] = "耐久度が#{item.durability_data.durability}になった！" elsif penalty == :none data[:message] = "修理に失敗した" elsif penalty == :break data[:message] = "壊れてしまった" else data[:message] = "耐久度が#{item.durability_data.durability}になってしまった！" end # ウインドウ幅の設定 line_widths = [] line_widths.push(text_size(data[:label]).width + 24) line_widths.push(24 + text_size(item.name).width + 24) line_widths.push(text_size(data[:message]).width + 24) self.width = line_widths.max + standard_padding * 2 self.create_contents # 位置の設定 self.x = (Graphics.width - self.width) / 2 # 内容の描画 refresh(data) end end #============================================================================== # ■ BMSP::Scene_RepairEquipment #------------------------------------------------------------------------------ # 　装備の修理を行う画面です． #============================================================================== class BMSP::Scene_RepairEquipment < Scene_MenuBase #-------------------------------------------------------------------------- # ● 費用の設定 #-------------------------------------------------------------------------- def self.point; @@point; end def self.point=(point); @@point = point; end #-------------------------------------------------------------------------- # ● 開始処理 #-------------------------------------------------------------------------- def start super create_help_window create_gold_window create_status_window create_command_windo create_item_window create_extend_window create_repair_window create_result_window @command_window.item_window = @item_window @command_window.refresh @command_window.activate @buffer = [] end #-------------------------------------------------------------------------- # ● ゴールドウィンドウの作成 #-------------------------------------------------------------------------- def create_gold_window @gold_window = BMSP::Window_RepairGold.new @gold_window.x = 272 @gold_window.y = Graphics.height - @gold_window.height end #-------------------------------------------------------------------------- # ● ステータスウィンドウの作成 #-------------------------------------------------------------------------- def create_status_window wx = Graphics.width - 272 wy = @help_window.height wh = Graphics.height - @help_window.height - @gold_window.height @status_window = BMSP::Window_RepairStatus.new(wx, wy, wh) @status_window.viewport = @viewport end #-------------------------------------------------------------------------- # ● コマンドウィンドウの作成 #-------------------------------------------------------------------------- def create_command_windo wy = @help_window.height ww = Graphics.width - @status_window.width @command_window = BMSP::Window_RepairCommand.new(0, wy, ww) @command_window.help_window = @help_window @command_window.set_handler(:select, method(:on_command_select)) @command_window.set_handler(:all, method(:on_command_all)) @command_window.set_handler(:cancel, method(:on_command_cancel)) end #-------------------------------------------------------------------------- # ● 拡張アイテムウィンドウの作成 #-------------------------------------------------------------------------- def create_extend_window @extend_window = BMSP::Window_RepairExtendItem.new @extend_window.viewport = @viewport @extend_window.status_window = @status_window @extend_window.item_window = @item_window @extend_window.help_window = @help_window @extend_window.set_handler(:ok, method(:on_extend_ok)) @extend_window.set_handler(:cancel, method(:on_extend_cancel)) @extend_window.init end #-------------------------------------------------------------------------- # ● アイテムウィンドウの作成 #-------------------------------------------------------------------------- def create_item_window wy = @help_window.height + @command_window.height ww = Graphics.width - @status_window.width wh = Graphics.height - @help_window.height - @command_window.height @item_window = BMSP::Window_RepairList.new(0, wy, ww, wh) @item_window.viewport = @viewport @item_window.status_window = @status_window @item_window.help_window = @help_window @item_window.set_handler(:ok, method(:on_item_ok)) @item_window.set_handler(:cancel, method(:on_item_cancel)) @item_window.refresh end #-------------------------------------------------------------------------- # ● 確認ウィンドウの作成 #-------------------------------------------------------------------------- def create_repair_window @repair_window = BMSP::Window_RepairDecide.new @repair_window.z = @viewport.z @repair_window.set_handler(:repair, method(:on_repair)) @repair_window.set_handler(:cancel, method(:on_repair_cancel)) @repair_window.set_handler(:back, method(:on_repair_back)) end #-------------------------------------------------------------------------- # ● 結果ウィンドウの作成 #-------------------------------------------------------------------------- def create_result_window @result_window = BMSP::Window_RepairResult.new @result_window.z = @viewport.z end #-------------------------------------------------------------------------- # ● 選択の開始 #-------------------------------------------------------------------------- def start_select activate_item_window(@item_window.index == -1 ? true : false) @status_window.item = @item_window.item end #-------------------------------------------------------------------------- # ● 修理待ち状態か？ #-------------------------------------------------------------------------- def wait_for_repairing? !@command_window.active and !@item_window.active and !@extend_window.active and !@repair_window.active and @repair_window.openness == 0 !@result_window.active and @result_window.openness == 0 end #-------------------------------------------------------------------------- # ● フレーム更新 #-------------------------------------------------------------------------- def update super # 結果ウインドウを閉じる動作 if @result_window.active && Input.repeat?(:C) @result_window.close.deactivate repair_end if @buffer.empty? end if !@buffer.empty? && wait_for_repairing? # バッファにアイテムがあれば修理を実行する if !execute_repair(@buffer.shift) && @buffer.empty? # アイテムを修理せず終わった(お金が足りない) repair_end end end end #-------------------------------------------------------------------------- # ● 修理フェイズの終了 #-------------------------------------------------------------------------- def repair_end case @repair_window.last_window when @item_window activate_item_window when @extend_window activate_extend_window if @extend_window.item_max == 0 # 拡張ウインドウが空ならウインドウを閉じる @extend_window.close.deactivate activate_item_window else @item_window.refresh end when @command_window refresh_item_window @command_window.activate end @command_window.refresh # コマンドウインドウのリフレッシュ end #-------------------------------------------------------------------------- # ● コマンド［個別修理］ #-------------------------------------------------------------------------- def on_command_select @command_window.deactivate start_select end #-------------------------------------------------------------------------- # ● コマンド［一括修理］ #-------------------------------------------------------------------------- def on_command_all @repair_window.just_mode = true @repair_window.item = @item_window.repairable_equips @repair_window.last_window = @command_window @repair_window.open.activate @command_window.deactivate end #-------------------------------------------------------------------------- # ● コマンド［キャンセル］ #-------------------------------------------------------------------------- def on_command_cancel return_scene end #-------------------------------------------------------------------------- # ● アイテム［決定］ #-------------------------------------------------------------------------- def on_item_ok if @item_window.item.extend? # 拡張アイテム @repair_window.just_mode = false @repair_window.item = @item_window.item @repair_window.last_window = @item_window @repair_window.open.activate else # セグメント activate_extend_window(true) end end #-------------------------------------------------------------------------- # ● アイテム［キャンセル］ #-------------------------------------------------------------------------- def on_item_cancel @item_window.deactivate @command_window.activate end #-------------------------------------------------------------------------- # ● 拡張アイテム［決定］ #-------------------------------------------------------------------------- def on_extend_ok @repair_window.just_mode = false @repair_window.item = @extend_window.item @repair_window.last_window = @extend_window @repair_window.open.activate end #-------------------------------------------------------------------------- # ● 拡張アイテム［キャンセル］ #-------------------------------------------------------------------------- def on_extend_cancel @extend_window.close.deactivate activate_item_window end #-------------------------------------------------------------------------- # ● 確認［修理］ #-------------------------------------------------------------------------- def on_repair @buffer.concat @repair_window.item @repair_window.openness = 0 @repair_window.close.deactivate end #-------------------------------------------------------------------------- # ● 確認［やめる］ #-------------------------------------------------------------------------- def on_repair_back on_repair_cancel end #-------------------------------------------------------------------------- # ● 確認［キャンセル］ #-------------------------------------------------------------------------- def on_repair_cancel @repair_window.close.deactivate case @repair_window.last_window when @item_window activate_item_window when @extend_window activate_extend_window when @command_window @command_window.activate end end #-------------------------------------------------------------------------- # ● 修理の実行 #-------------------------------------------------------------------------- def execute_repair(item) # 所持金の減少 if @@point # ポイント return false if $game_variables[@@point] < item.durability_data.repair_point(item) $game_variables[@@point] -= item.durability_data.repair_point(item) $game_variables[@@point] = 0 if $game_variables[@@point] < 0 else # お金 return false if $game_party.gold < item.durability_data.repair_point(item) $game_party.lose_gold(item.durability_data.repair_price(item)) end Sound.play_repair_equipment @gold_window.refresh # 強化実行 old_dur,penalty = item.durability_data.execute_repair(item) penalty ? Sound.play_forge_equipment_miss : Sound.play_forge_equipment_success if penalty == :break # 消失 @item_window.lose_item(item) end # 結果の表示 @result_window.set(item,old_dur,penalty) @result_window.openness = 255 @result_window.open.activate true end #-------------------------------------------------------------------------- # ● アイテムウインドウのアクティブ化 #-------------------------------------------------------------------------- def activate_item_window(init_index = false) refresh_item_window(init_index) @item_window.activate end #-------------------------------------------------------------------------- # ● アイテムウインドウのリフレッシュ #-------------------------------------------------------------------------- def refresh_item_window(init_index = false) @item_window.refresh # インデックスの修正 if @item_window.index >= @item_window.item_max if @item_window.item_max > 0 @item_window.select(@item_window.item_max - 1) else @item_window.select(0) end end @item_window.index = 0 if init_index end #-------------------------------------------------------------------------- # ● 拡張アイテムウインドウのアクティブ化 #-------------------------------------------------------------------------- def activate_extend_window(init_index = false) # セグメントの設定 @extend_window.segment = @item_window.item.extend # 表示位置と高さの変更 @extend_window.set @extend_window.refresh @extend_window.open.activate @extend_window.index = 0 if init_index end end #============================================================================== # ■ Window_Base #============================================================================== class Window_Base < Window if BMSP::EquipmentDurability::BROKENCOLOR #-------------------------------------------------------------------------- # ● アイテム名の描画(再定義) # enabled : 有効フラグ。false のとき半透明で描画 #-------------------------------------------------------------------------- def draw_item_name(item, x, y, enabled = true, width = 172) return unless item draw_icon(item.icon_index, x, y, enabled) if item.has_durability? && item.durability_data.durability == 0 change_color(knockout_color, enabled) else change_color(normal_color, enabled) end draw_text(x + 24, y, width, line_height, item.name) end end #-------------------------------------------------------------------------- # ● アイテム名の描画 # enabled : 有効フラグ。false のとき半透明で描画 #-------------------------------------------------------------------------- alias bmsp_equipmentdurability_draw_item_name draw_item_name def draw_item_name(item, x, y, enabled = true, width = 172) bmsp_equipmentdurability_draw_item_name(item, x, y, enabled, width) return unless item return unless item.has_durability? return unless BMSP::EquipmentDurability::DRAW_GAUGE # 装備耐久度ゲージの描画 max = item.extend.durability_data.gauge_max_durability dur = item.extend.durability_data.durability if dur > max rate = 1.0 color = text_color(BMSP::EquipmentDurability::GAUGE_OVERCOLOR) elsif dur == max rate = 1.0 color = text_color(BMSP::EquipmentDurability::GAUGE_MAXCOLOR) else rate = dur.to_f / max color = text_color(BMSP::EquipmentDurability::GAUGE_COLOR) end edgecolor = BMSP::EquipmentDurability::GAUGE_EDGECOLOR edgecolor = edgecolor.nil? ? nil : text_color(edgecolor) bgcolor = BMSP::EquipmentDurability::GAUGE_BACKCOLOR bgcolor = bgcolor.nil? ? nil : text_color(bgcolor) unless enabled color.alpha = translucent_alpha bgcolor.alpha = translucent_alpha unless bgcolor.nil? end bmsp_equipmentdurability_draw_durability_gauge(x, y, rate, color, edgecolor, bgcolor) end #-------------------------------------------------------------------------- # ● 装備耐久度ゲージの描画 #-------------------------------------------------------------------------- def bmsp_equipmentdurability_draw_durability_gauge(x, y, rate, color, edgecolor, bgcolor) gauge_width = edgecolor ? 18 : 20 gauge_x = x + 2 gauge_y = y + (edgecolor ? 19 : 20) width = rate * gauge_width width = 1 if rate > 0 && width == 0 contents.fill_rect(gauge_x-1, gauge_y-1, gauge_width + 2, 4, edgecolor) if edgecolor contents.fill_rect(gauge_x, gauge_y, gauge_width, 2, bgcolor) if bgcolor contents.fill_rect(gauge_x, gauge_y, width, 2, color) end end #============================================================================== # ■ Window_ShopBuy #============================================================================== class Window_ShopBuy < Window_Selectable #-------------------------------------------------------------------------- # ● アイテムの取得 #-------------------------------------------------------------------------- alias bmsp_equipmentdurability_item item def item item = bmsp_equipmentdurability_item return item unless item.extended? item.extend.original end #-------------------------------------------------------------------------- # ● アイテムリストの作成 #-------------------------------------------------------------------------- alias bmsp_equipmentdurability_make_item_list make_item_list def make_item_list bmsp_equipmentdurability_make_item_list map_proc = proc { |item, type| extend = BMSP::ItemExtend.new(item) extended_item = extend.item goods = @shop_goods.find{ |goods| goods[0] == type && goods[1] == item.id } @price[extend] = goods[2] == 0 ? extend.item.price : goods[3] extend.item } @data.map! do |item| case item when RPG::Weapon map_proc.call(item, 1) when RPG::Armor map_proc.call(item, 2) else item end end end #-------------------------------------------------------------------------- # ● 商品の値段を取得 #-------------------------------------------------------------------------- alias bmsp_equipmentdurability_price price def price(item) price = bmsp_equipmentdurability_price(item) return price if price @price[item.extend] end #-------------------------------------------------------------------------- # ● 項目の描画 #-------------------------------------------------------------------------- def draw_item(index) item = @data[index] rect = item_rect(index) draw_item_name(item, rect.x, rect.y, enable?(item)) rect.width -= 4 draw_text(rect, price(item), 2) end end

更新履歴

1. 2013/11/25…修理画面に一括修理を追加
2. 2013/10/20…公開

使用方法

スクリプトに丸ごと貼り付けていただければ使用できます．

装備修理画面を呼び出すことで，装備の修理を行うことができます．
装備修理画面を呼び出すにはマップ画面でイベントのスクリプトから以下の式を実行します．

デフォルトでは修理にお金を消費しますが，引数に整数を渡すことでそのIDに対応する変数の値を消費して修理することができます．

例・変数001を消費して装備を修理する

また，耐久度を変化させた武器，防具の入手についてはそれぞれイベントのスクリプトから以下の式を実行します．

上記メソッドの引数は装備のID,設定耐久度，入手個数を引数に指定します．

詳細設定にて装備耐久度の設定を行うことができます．

ENABLE_DURABILITY

装備の耐久度が有効かどうかのデフォルトの設定です

以下の設定では耐久度によるアイテムの性能を求めるための式を設定します．
evalで評価されるためRubyの通常の式を描くことができます．
このとき，対象の装備のパラメータを参照することができます．

各種評価式中で使える特殊な変数

変数	説明
dur	アイテムの現在の耐久度
mdur	アイテムの最大耐久度
price	オリジナルのアイテムの価格
atk	オリジナルのアイテムの攻撃力の上昇値
_def	オリジナルのアイテムの防御力の上昇値
mat	オリジナルのアイテムの魔法力の上昇値
mdf	オリジナルのアイテムの魔法防御力の上昇値
agi	オリジナルのアイテムの敏捷性の上昇値
luk	オリジナルのアイテムの運の上昇値
mhp	オリジナルのアイテムの最大HPの上昇値
mmp	オリジナルのアイテムの最大MPの上昇値
etype_id	アイテムの装備タイプID
id	アイテムのid

REPAIR_PRICE

装備修理にかかる費用の式(お金の時)

REPAIR_POINT

装備修理にかかる費用の式(変数の時)

PRICE

装備の価格の式

SUC

強化成功率の式

ATK

攻撃力上昇値の式

DEF

防御力上昇値の式

MAT

魔法力上昇値の式

MDF

魔法防御力上昇値の式

AGI

敏捷性上昇値の式

LUK

運上昇値の式

MHP

最大HP上昇値の式

MMP

最大MP上昇値の式

DEFAULT_DURABILITY

耐久度の初期値

MAX_DURABILITY

最大耐久度

REPAIR_DURABILITY

修理後の耐久度

DESTROY

trueのとき耐久度が0になると装備が破棄されます

PENALTY

修理に失敗したときのペナルティを設定します．
ペナルティには以下の種類から選択します．

:none

ペナルティなし

:break

装備の破壊

(自然数)

耐久度が(自然数)になる

DISPLAY_SUCCESS

装備強化画面で強化成功率を表示するか

DISPLAY_PENALTY

装備強化画面でペナルティを表示するか

POINT_UNIT

変数を消費して修理する時の通貨単位？です．
キー:defaultにはデフォルトの単位を指定します．
自然数をキーにして単位を設定すると，そのIDの変数を利用する時その単位が表示されます．

BROKEN_MESSAGE

trueのとき戦闘中装備が壊れた旨を表示します

MESSAGE_FMT

装備破壊時に表示されるメッセージです．
アクターの名前，装備名が置換されます

DEGRADE_EXPS

後述するダメージイベントを利用して耐久度を変動させる場合に使用する耐久度減少式です．
任意のキーに対して式を文字列で設定し，装備耐久度イベント内で設定したキーを指定します．
このとき，対象の装備のパラメータおよび各種ダメージイベントで参照可能な情報を参照することができます．

耐久度減少式中で使える特殊な変数

変数	説明
dur	アイテムの現在の耐久度
mdur	アイテムの最大耐久度
price	オリジナルのアイテムの価格
atk	オリジナルのアイテムの攻撃力の上昇値
_def	オリジナルのアイテムの防御力の上昇値
mat	オリジナルのアイテムの魔法力の上昇値
mdf	オリジナルのアイテムの魔法防御力の上昇値
agi	オリジナルのアイテムの敏捷性の上昇値
luk	オリジナルのアイテムの運の上昇値
mhp	オリジナルのアイテムの最大HPの上昇値
mmp	オリジナルのアイテムの最大MPの上昇値
etype_id	アイテムの装備タイプID
id	アイテムのid
ダメージイベントの各種変数	subject, target などタイプによる

DRAW_GAUGE

trueの時装備アイコンに耐久度ゲージを描画します

GAUGE_MAX_DURABILITY

ゲージが最大になる耐久度です．
装備の最大耐久度より小さくすることで例えば耐久度120%の装備などを表現することができます．

GAUGE_EDGECOLOR

ゲージの縁の色(nilで描画しません)

GAUGE_BACKCOLOR

ゲージの背景色(nilで描画しません)

GAUGE_COLOR

ゲージの色

GAUGE_MAXCOLOR

ゲージ最大時の色

GAUGE_OVERCOLOR

ゲージ限界突破時の色

BROKENCOLOR

耐久度が0のときの装備名の文字色(nilで変更しません)

以下の設定では装備修理画面で鳴らす効果音を指定できます．

REPAIR_SOUND

修理実行時効果音のファイル名

REPAIR_VOLUME

修理実行時効果音のボリューム

REPAIR_PITCH

修理実行時効果音のピッチ

SUCCESS_SOUND

修理成功時効果音のファイル名

SUCCESS_VOLUME

修理成功時効果音のボリューム

SUCCESS_PITCH

修理成功時効果音のピッチ

MISS_SOUND

修理失敗時効果音のファイル名

MISS_VOLUME

修理失敗時効果音のボリューム

MISS_PITCH

修理失敗時効果音のピッチ

また，アイテムのメモ欄にてアイテムごとに耐久度の設定を行うことができます．

xxxにtrueかfalseを指定して，耐久度のあるアイテムかどうか設定します．

お金による修理費用の式を設定します．

変数による修理費用の式を設定します．

価格の式を設定します．

修理成功率の式を設定します．

攻撃力の式を設定します．

防御力の式を設定します．

魔法力の式を設定します．

魔法防御力の式を設定します．

敏捷性の式を設定します．

運の式を設定します．

最大HPの式を設定します．

最大MPの式を設定します．

初期耐久度を設定します．

最大耐久度を設定します．

修理成功時の耐久度を設定します．

ゲージの最大耐久度を設定します．

xxxにtrueかfalseを指定して耐久度が0になったとき装備が破棄されるか設定します．

ペナルティを設定します．
xxxにはbreak,none,(自然数)のいずれかを指定します．

注意

このスクリプトでは「RPG::BaseItem」「RPG::EquipItem」「Game_Actor」「Game_Party」「Scene_Battle」「Window_BattleLog」「Window_Base」「Window_ShopBuy」のメソッドを改変しています．