=begin
==============================================================================
MESS 1.00 （全称：Make Equips Stornger System）
-----------------------------------------------------------------------------
装备强化系统 1.00 by 804173948
==============================================================================
与其他大部分强化系统的区别：
（并没有针对某些强化系统、不过按自己的喜好选择吧）
1.增加属性方面
大部分强化系统强化装备时增加的属性都是用特定公式计算的，
这个可直接在数据库里面自己设定好每一个属性，不用被公式束缚、
另外还有一个好处是，因为是数据库里面的装备，
所以打怪也可以直接在数据库里设定掉落这些被强化的装备
2.强化成功率和所需金钱方面
很多强化系统都是固定的一个值或几个值，
本脚本可以直接在数据库里设定、不同装备强化成功率以及所需金钱都不同
3.所需物品方面
本强化系统可以用多个物品强化一个装备，
强化每一个装备所需的物品都可以自行设定，
（打个比方、比如说要强化一个红宝石做的项链、自然要用[红宝石]来强化它；
但是一个绿宝石做的项链、却用[红宝石]来强化、就会觉得很怪、所以本人觉得
强化每一个装备所需的物品都可以自行设定 更合理）
4.物品槽
（个人感觉更像合成系统之类的、、、）
使用说明：
装备：
1.使装备能够强化：
在备注上加上 [Strongable 强化后的ID]
如：一个武器在备注加上[Strongable 100]
强化成功后就获得一个 第100号武器
2.强化成功率：
在备注上加上 [Rate 成功率]
成功率是0~100之间
3.强化所需金钱：
在备注上加上 [Gold 数值]
4.强化所需物品：
在备注上加上 [item n 物品[n]ID]
n 代表所需的第 n 个物品
如：一个武器需要 第10号物品2个，30号物品一个
就在备注上加上 [item 1 10]
[item 2 10]
[item 3 30]
详细的就直接看范例的数据库里吧、
物品：
1.能够增加成功率：
在备注上加上 [RateUP 成功率]
成功率最好是0~100之间
注意、所谓成功率不是直接加在装备成功率上
、、比如说、强化一个成功几率为 60% 的装备、使用能够提升 20% 成功率的物品
成功率不是变为 80，而是 72 ，72 = 60*(1+20%)
2.能够防止装备随坏：
在备注上加上 [Prevent]
界面：
1.物品装备栏：
位于左方，选取物品和装备进行强化
2.物品信息栏：
中间最大的那个，显示装备物品信息和强化信息
3.所需物品提示：
中下方，显示强化某装备必须品
4.物品槽：
右下角，选定准备进行强化的物品
※5.提示框（最最重要的又是最最最容易被人忽略的）：
左上方，提示你接下来要做什么、、、
※注意事项：
1.此脚本要与“装备帮助增强”脚本共用
（“装备帮助增强”脚本我改动了、具体行数是 123 行到 133 行，
请复制到你的工程同一位置中）
2.不知道、、、
BUG、冲突：
暂无- -、
友情提示：
最好把窗口分辨率调到最大、、、
=end
module MESS
# 能够强化的标志
CanAugmentFlag = "Strongable"
# 强化成功的几率
SuccessfulAugmentRate = "Rate"
# 强化所需物品
UseItemForAugment = "Item"
# 强化所需金钱
MoneyForAugment = "Gold"
# 增加强化成功率的物品（0~100）
CanRateUP = "RateUP"
# 强化失败能避免原装备损坏的标志
PreventLost = "Prevent"
# 强化所需物品最大值
MaxItemUse = 5
end
class Scene_MESS < Scene_ItemBase
#--------------------------------------------------------------------------
# ● 开始处理
#--------------------------------------------------------------------------
def start
super
create_help_window
create_text_help_window
create_item_status_window
create_item_window
create_augment_setting_window
create_item_slot_window
end
#--------------------------------------------------------------------------
# ● 生成文字提示窗口
#--------------------------------------------------------------------------
def create_text_help_window
@text_help_window = Window_Help.new(1)
@text_help_window.width = 256
@text_help_window.set_text("选择装备进行强化")
end
#--------------------------------------------------------------------------
# ● 生成物品窗口
#--------------------------------------------------------------------------
def create_item_window
wy = @text_help_window.y + @text_help_window.height
ww = @text_help_window.width
wh = Graphics.height - wy
@item_window = Window_EquipList.new(0, wy, ww, wh)
@item_window.viewport = @viewport
@item_window.help_window = @item_status_window
@item_window.set_handler(:ok , method(:on_item_ok))
@item_window.set_handler(:cancel, method(:on_item_cancel))
end
#--------------------------------------------------------------------------
# ● 生成物品状态窗口
#--------------------------------------------------------------------------
def create_item_status_window
wx = @text_help_window.width
wy = 0
ww = Graphics.width - wx
wh = Graphics.height / 3 * 2
@item_status_window = Window_EquipStatus2.new(wx, wy, ww, wh)
@item_status_window.viewport = @viewport
end
#--------------------------------------------------------------------------
# ● 生成强化设定窗口（中下窗口）
#--------------------------------------------------------------------------
def create_augment_setting_window
wx = @text_help_window.width
wy = @item_status_window.height
ww = (Graphics.width - wx)/2
wh = Graphics.height - wy
@augment_setting_window = Window_AugmentSet.new(wx, wy, ww, wh)
@augment_setting_window.viewport = @viewport
@item_status_window.relation_window = @augment_setting_window
end
#--------------------------------------------------------------------------
# ● 生成物品槽
#--------------------------------------------------------------------------
def create_item_slot_window
wx = @augment_setting_window.x + @augment_setting_window.width
wy = @augment_setting_window.y
ww = Graphics.width - wx
wh = Graphics.height - wy
@slot_window = Window_ItemSlot.new(wx, wy, ww, wh)
@slot_window.viewport = @viewport
@slot_window.help_window = @item_status_window
@slot_window.set_handler(:ok , method(:on_slot_ok))
@slot_window.set_handler(:cancel, method(:on_slot_cancel))
@item_window.index = 0
@item_window.activate
end
#--------------------------------------------------------------------------
# ● 生成警示窗口
#--------------------------------------------------------------------------
def create_warn_window
ww = Graphics.width / 4 * 3
wx = (Graphics.width - ww) / 2
wy = 80
@warn_window = Window_Help.new(1)
@warn_window.x = wx
@warn_window.y = wy
@warn_window.width = ww
@warn_window.viewport = @viewport
@warn_window.hide
end
#--------------------------------------------------------------------------
# ● 物品“确定”
#--------------------------------------------------------------------------
def on_item_ok
if @item_window.item
if @item_window.itemtype == :equip
@item_window.equip = @item_status_window.equip
@text_help_window.set_text("选择物品进行强化")
@item_window.itemtype = :item
@item_window.refresh
@item_window.index = 0
@item_window.activate
elsif @item_window.itemtype == :item
@text_help_window.set_text("选择物品槽放置物品")
@slot_window.index = 0 if @slot_window.index < 0
@slot_window.activate
end
else
on_item_change
end
end
#--------------------------------------------------------------------------
# ● 物品“取消”
#--------------------------------------------------------------------------
def on_item_cancel(augmenting = false)
if @item_window.itemtype == :item
if @slot_window.data != [] && augmenting == false
MESS::MaxItemUse.times {|i| $game_party.gain_item(@slot_window.data[i],1) if @slot_window.data[i]}
MESS::MaxItemUse.times {|i| @slot_window.remove_item(i)}
end
@item_window.equip = nil
@text_help_window.set_text("选择装备进行强化")
@item_window.itemtype = :equip
@item_window.refresh
@item_window.index = 0
@item_status_window.clear(true) if augmenting
@item_window.activate
elsif @item_window.itemtype == :equip
SceneManager.return
end
end
#--------------------------------------------------------------------------
# ● 装备栏“确定”
#--------------------------------------------------------------------------
def on_slot_ok
if @slot_window.item != :augment
if @item_window.windowstatus == :owner
@text_help_window.set_text("选择物品进行强化")
@augment_setting_window.set_item(@item_status_window.equip)
item = @item_window.item
if item.porveup > 0
rate = @item_status_window.basic_rate.to_f
rate *= item.porveup/100.0
rate *= 10
rate.round
rate /= 10.0
@item_status_window.rate = @item_status_window.rate + rate
end
item = @slot_window.item
if item
if item.porveup > 0
rate = @item_status_window.basic_rate.to_f
rate *= item.porveup/100.0
rate *= 10
rate.round
rate /= 10.0
@item_status_window.rate = @item_status_window.rate - rate
end
end
$game_party.lose_item(@item_window.item,1)
$game_party.gain_item(@slot_window.item,1) if @slot_window.item
@slot_window.set_item(@item_window.item,@slot_window.index)
@item_status_window.refresh_aug_status
@item_window.refresh
@item_window.activate
elsif @item_window.windowstatus == :given
item = @slot_window.item
if item
if item.porveup > 0
rate = @item_status_window.basic_rate.to_f
rate *= item.porveup/100.0
rate *= 10
rate.round
rate /= 10.0
@item_status_window.rate = @item_status_window.rate - rate
end
$game_party.gain_item(item,1)
@slot_window.remove_item(@slot_window.index)
end
@item_status_window.refresh_aug_status
@item_window.refresh
@slot_window.activate
end
else
@text_help_window.set_text("正在进行强化中...")
augment
end
end
#--------------------------------------------------------------------------
# ● 装备栏“取消”
#--------------------------------------------------------------------------
def on_slot_cancel
if @item_window.windowstatus == :owner
@text_help_window.set_text("选择物品进行强化")
@item_window.refresh
@item_window.activate
elsif @item_window.windowstatus == :given
on_slot_change
end
end
def augment
create_warn_window
equip = @item_status_window.equip
if equip
rate = @item_status_window.rate
gold = @item_status_window.gold
item = @slot_window.data.select {|item| item != :augment && item }
needitem = []
MESS::MaxItemUse.times {|i| needitem.push($data_items[equip.strongitem(i+1)]) if equip.strongitem(i+1) > 0}
# 检查必需品
needcount = 0
for i in 0 ... needitem.size
if item.include?(needitem[i])
needcount += 1
for a in 0 ... item.size
if item[a] == needitem[i]
item.delete_at(a)
break
end
end
end
end
#~ needitem.size.times{|i| item.delete(needitem[i]) if item.include?(needitem[i])}
if needcount >= needitem.size
if $game_party.gold >= gold
$game_party.lose_gold(gold)
$game_party.lose_item(equip,1)
rand = rand(100)
if rand <= rate
new_item = nil
if equip.is_a?(RPG::Weapon)
new_item = $data_weapons[equip.strongto]
elsif equip.is_a?(RPG::Armor)
new_item = $data_armors[equip.strongto]
end
$game_party.gain_item(new_item,1)
BattleManager.play_battle_end_me
@warn_window.show
@warn_window.set_text("恭喜！装备强化到了" + new_item.name + "！")
Graphics.wait(60)
@warn_window.hide
@slot_window.clear
@slot_window.refresh
on_slot_cancel
on_item_cancel(true)
else
prevent = false
for i in 0 ... item.size
if item[i].prevent?
prevent = true
break
end
end
if !prevent
$data_system.gameover_me.play
@warn_window.show
@warn_window.set_text("很遗憾，强化失败，装备消失")
Graphics.wait(60)
@warn_window.hide
@slot_window.clear
@slot_window.refresh
on_slot_cancel
on_item_cancel(true)
else
$game_party.gain_item(equip,1)
$data_system.gameover_me.play
@warn_window.show
@warn_window.set_text("强化失败，使用特殊道具，装备保留")
Graphics.wait(60)
@warn_window.hide
@slot_window.clear
@slot_window.refresh
on_slot_cancel
on_item_cancel(true)
end
end
else
Sound.play_buzzer
@warn_window.show
@warn_window.set_text("没有足够金钱")
Graphics.wait(30)
@warn_window.hide
on_slot_cancel
end
else
Sound.play_buzzer
@warn_window.show
@warn_window.set_text("没有足够物品")
Graphics.wait(30)
@warn_window.hide
on_slot_cancel
end
else
Sound.play_buzzer
@warn_window.show
@warn_window.set_text("没有选定装备")
Graphics.wait(30)
@warn_window.hide
on_slot_cancel
end
end
def on_item_change
@text_help_window.set_text("移除物品槽物品")
@item_window.windowstatus = :given
@slot_window.refresh
@slot_window.activate
end
def on_slot_change
@text_help_window.set_text("选择物品进行强化")
@item_window.windowstatus = :owner
@slot_window.index = 0
@item_window.refresh
@item_window.activate
end
#--------------------------------------------------------------------------
# ● 播放使用物品声效
#--------------------------------------------------------------------------
def play_se_for_item
Sound.play_use_item
end
#--------------------------------------------------------------------------
# ● 使用物品
#--------------------------------------------------------------------------
def use_item
super
@item_window.redraw_current_item
end
end
class Window_EquipList < Window_ItemList
attr_accessor :equip
attr_accessor :itemtype
attr_accessor :windowstatus
def initialize(x, y, width, height)
super
@data = []
@equip = nil
@itemtype = :equip
@windowstatus = :owner
refresh
end
def col_max
return 1
end
def can_use?(id)
for i in 1 .. MESS::MaxItemUse
return true if @equip.strongitem(i) == id
end
return false
end
def include?(item,times = 0)
if item
case @itemtype
when :equip
if !item.is_a?(RPG::Item)
item.strongto > 0
else
false
end
when :item
if item.is_a?(RPG::Item)
if times == 0
can_use?(item.id)
elsif times == 1
item.prevent? || item.porveup > 0
end
else
false
end
else
false
end
else
true
end
end
def enable?(item)
return true
end
def make_item_list
@data = []
case @itemtype
when :equip
@data = $game_party.all_items.select {|item| include?(item) }
when :item
2.times {|i| @data += $game_party.all_items.select{|item| include?(item,i) } }
end
@data.push(nil) if include?(nil)
end
def draw_item(index)
item = @data[index]
if item
rect = item_rect(index)
rect.width -= 4
draw_item_name(item, rect.x, rect.y, enable?(item))
draw_item_number(rect, item)
elsif index == @data.size - 1 && !item
rect = item_rect(index)
draw_text(rect.x, rect.y, self.width-(rect.x+update_padding)*2, line_height, "光标移到物品槽",1)
end
end
def update_help
@help_window.set_item(item)
end
end
class Window_EquipStatus2 < Window_Base
attr_reader :equip
attr_accessor :relation_window
attr_accessor :rate
attr_accessor :gold
def initialize(x,y,w,h)
super(x,y,w,h)
@equip = nil
@relation_window = nil
@rate = 0.0
@gold = 0
end
def basic_rate
return @equip ? @equip.strongrate : nil
end
def item_rate
return basic_rate ? (@rate - basic_rate).to_i : nil
end
def basic_gold
return @equip ? @equip.strongmoney : nil
end
def draw_augment_status(x,y,width)
if @equip
contents.font.size -= 6
contents.font.color = Color.new(128,255,128)
rate = [@rate,100].min
rate *= 10
rate.round
rate /= 10.0
draw_text(x,y,width,line_height,"成功率："+rate.to_s+" ( "+item_rate.to_s+" )%")
contents.font.color = Color.new(255,255,128)
draw_text(x,y+line_height,width,line_height,Vocab::currency_unit+" ×"+basic_gold.to_s)
contents.font.size += 6
contents.font.color = Color.new(255,255,255)
end
end
def can_use?(id)
for i in 1 .. MESS::MaxItemUse
return true if @equip.strongitem(i) == id
end
return false
end
def clear(equip_nil = false)
contents.clear
@equip = nil if equip_nil
end
def draw_old_equip(x,y,width,item)
change_color(system_color)
draw_text(x, y, width,line_height,"原装备：")
contents.font.color = Color.new(255,255,128)
rect = Rect.new(x,y+line_height+4,width,24)
draw_item_name(item, rect.x, rect.y)
help = "\\c[6]" + Equipplus.getequiphelp(item)
contents.font.size -= 8
draw_text_ex(x,y+line_height+4+24+4,help,width,40,false)
contents.font.size += 8
change_color(normal_color)
end
def draw_new_equip(x,y,width,item)
change_color(system_color)
draw_text(x, y, width,line_height,"新装备：")
contents.font.color = Color.new(128,255,128)
rect = Rect.new(x,y+line_height+4,width,24)
draw_item_name(item, rect.x, rect.y)
help = "\\c[3]" + Equipplus.getequiphelp(item)
contents.font.size -= 8
draw_text_ex(x,y+line_height+4+24+4,help,width,40,false)
contents.font.size += 8
end
def draw_item_effect(x,y,width,item)
change_color(system_color)
draw_text(x, y, width,line_height,"道具效果：")
rect = Rect.new(x,y+line_height+4,width,24)
draw_item_name(item, rect.x, rect.y)
help = make_item_help(item)
contents.font.size -= 4
draw_text_ex(x,y+line_height+4+24+4,help,width,40,false)
contents.font.size += 4
change_color(normal_color)
end
def make_item_help(item)
help = ""
if item.porveup > 0
help += "\\c[24]增加成功率："+item.porveup.to_s+"% \n"
end
if item.prevent?
help += "\\c[13]防止装备损坏 \n"
end
if can_use?(item.id)
help += "\\c[2]必需品\n"
end
return help
end
def set_item(item)
contents.clear
new_item = nil
if item.is_a?(RPG::EquipItem)
@equip = item
@rate = basic_rate
@gold = basic_gold
set_relation_window
draw_old_equip(4,0,(self.width-(4+update_padding)*2)/2,item)
elsif item.is_a?(RPG::Item)
draw_item_effect(4,0,(self.width-(4+update_padding)*2)/2,item)
refresh_aug_status if @rate > 0.0 && @gold > 0
end
if @equip.is_a?(RPG::Weapon)
new_item = $data_weapons[@equip.strongto]
elsif @equip.is_a?(RPG::Armor)
new_item = $data_armors[@equip.strongto]
end
draw_new_equip(8+(self.width-(4+update_padding)*2)/2,0,(self.width-(4+update_padding)*2)/2,new_item) if new_item
end
def set_relation_window
@relation_window.set_item(@equip) if @relation_window
end
def refresh_aug_status
contents.clear_rect(4,self.height - line_height*3,(self.width-(4+update_padding)*2)/2,line_height*2)
draw_augment_status(4,self.height - line_height*3,(self.width-(4+update_padding)*2)/2)
end
end
class Window_AugmentSet < Window_Base
def initialize(x,y,w,h)
super(x,y,w,h)
@equip = nil
end
def draw_equip_need(x,y,width,item)
useable = []
change_color(system_color)
contents.font.size -= 2
draw_text(x,y,width,line_height,"必需品")
change_color(normal_color)
for i in 1 .. MESS::MaxItemUse
if @equip.strongitem(i) > 0
useable.push($data_items[@equip.strongitem(i)])
draw_item_name(useable[i-1], x, y+i*(line_height+2))
end
end
contents.font.size += 2
end
def set_item(item)
contents.clear
if item
@equip = item
draw_equip_need(4,0,(self.width-(4+update_padding)*2)/2,item)
end
end
end
class Window_ItemSlot < Window_Selectable
attr_reader :data
def initialize(x, y, width,height)
super(x, y, width, height)
@data = []
refresh
end
def clear
@data = []
end
def item_max
return MESS::MaxItemUse + 1
end
def item
@data && index >= 0 ? @data[index] : nil
end
def set_item(item,id)
@data[id] = item
refresh
end
def remove_item(index)
@data[index] = nil
refresh
end
def draw_item(index)
if index < MESS::MaxItemUse
contents.font.size -= 2
rect = item_rect_for_text(index)
change_color(system_color, enable?(index))
draw_text(rect.x, rect.y, 0, line_height, slot_name(index))
draw_item_name(@data[index], rect.x + 0, rect.y, enable?(index)) if @data[index]
change_color(normal_color)
contents.font.size += 2
elsif index == MESS::MaxItemUse
rect = item_rect_for_text(index)
draw_text(rect.x, rect.y, self.width-(rect.x+update_padding)*2, line_height, "强化装备",1)
@data[index] = :augment
end
end
def slot_name(index)
return "空"+(index+1).to_s
end
def enable?(index)
return true
end
def update_help
super
@help_window.set_item(item) if @help_window
end
end
写轮眼
发表于 2015-6-20 10:37:56
收藏
分享
提升卡
沉默号角
喧嚣号角
变色卡
升龙剑
发表于 2015-6-20 10:53:37
楼主