【VA】LZSB系列第六蛋·技能冷却系统v1.03 - Project1

module RPG
class Skill
def coldto(cold,actor)
cold(actor)
@cold[actor]=cold
@cold[actor]=cold(actor)
end
def cold(actor)
@cold=[] if @cold==nil
if actor!=nil
@cold[actor]=0 if @cold[actor]==nil
end
[@cold[actor],0].max
end
end
end
class Game_Actor
def acid; @actor_id ;end
def skls; @skills ;end
alias lqote on_action_end
def on_action_end
lqote
for i in @skills
j=$data_skills[i]
j.coldto(j.cold(@actor_id)-1,@actor_id)
end
end
alias skill_cold_payable? skill_cost_payable?
def skill_cost_payable?(skill)
skill.cold(@actor_id)==0 && skill_cold_payable?(skill)
end
end
class Game_Battler
alias lqitm item_apply
def item_apply(user, item)
lqitm(user, item)
if item.is_a?(RPG::Skill) and user.is_a?(Game_Actor) and SceneManager.scene_is?(Scene_Battle)
sklcold = 0
item.note.split(/[\r\n]+/).each { |line|
case line
when /<(?:SKLCOLD|sklcold):[ ](\d+)>/i
sklcold = $1.to_i
end
}
item.coldto(sklcold,user.acid)
end
end
end
class Window_Help
def set_item(item,actor=nil)
if actor.nil? or item.cold(actor.acid)==0
set_text(item ? item.description : "")
else
set_text(item ? item.description+"冷却回合:"+item.cold(actor.acid).to_s : "")
end
end
end
class Window_SkillList
def update_help
@help_window.set_item(item,@actor)
end
end
class Scene_Battle
alias ptcold pre_terminate
def pre_terminate
ptcold
for i in $game_party.all_members
for j in i.skls
$data_skills[j].coldto(0,i.acid)
end
end
end
end
#在技能备注里这样写：
#<sklcold: 3>
#注意sklcold是冷却回合
#如果要详细了解，就自己试试吧！
#1.03版本是最终版。修正了几乎一切BUG，显示也更美观。旨在整理我混乱的思路。

复制代码