元素大师功能
require("Envir/Market_Def/NpcLua/zh.lua")
-- 升级条件
local shengxingdata = {
[0] = {pos = 0, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=20000, max_point=5},
[1] = {pos = 1, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=20000, max_point=5},
[13] = {pos = 1, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[2] = {pos = 1, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[4] = {pos = 4, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[3] = {pos = 3, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[5] = {pos = 5, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[6] = {pos = 6, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[7] = {pos = 7, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[8] = {pos = 8, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[10] = {pos = 10, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[11] = {pos = 11, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[15] = {pos = 15, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[14] = {pos = 14, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
[12] = {pos = 14, jinbi=5000000, cailiao={"混沌结晶", 3}, yb=10000, max_point=2},
}
-- 可升级装备分类,位置
local keshengxing = {{0, "盔甲"}, {1, "武器"}, {13,"斗笠"}, {4,"头盔"}, {3,"项链"}, {2,"勋章"}, {5,"手镯"},{6,"手镯"},{7,"戒指"},{8,"戒指"},{10,"腰带"},{11,"靴子"}, {15, "指环"}, {14, "印记"}, {12,"宝石"}} --可升星的装备
local attr_name = {
[0] = "重击几率",
[11] = "重击伤害",
[1] = "攻击伤害",
}
-- 物品唯一id, 显示开关
function show(actor, wyid, xianshi)
xianshi = tonumber(xianshi) or 0
-- --获取人物装备列表
local shengxing_t = {}
for i=1,#keshengxing do
local item = linkbodyitem(actor, keshengxing[i][1])
if item ~= "0" then
table.insert(shengxing_t,{item, keshengxing[i][2], keshengxing[i][1]}) ----{item,"头盔", 4}
end
end
-- 第一次点入,默认显示人物身上的第一个装备
if not wyid then
local item = shengxing_t[1][1]
local makeid = getiteminfo(actor,shengxing_t[1][1],1) --唯一id
wyid = makeid
end
wyid = tonumber(wyid)
local msg = [[
<Img|x=0|width=643|height=457|reset=0|bg=1|img=custom/zbsh/1.png|move=1|esc=1|show=4|layerid=9990>
<Button|x=639.5|y=1.5|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
<Img|x=-23.5|y=-15.5|img=custom/zbsh/2.png|esc=0>
<Img|x=195.5|y=38.5|width=428|height=393|esc=0|img=custom/zbsh/41.png>
<Img|x=18.5|y=40.5|img=custom/zbsh/48.png|esc=0>
<Img|x=17.5|y=79.5|height=352|img=custom/zbsh/42.png|esc=0>
<Img|x=376.5|y=81.5|width=70|height=70|scale9t=30|scale9b=30|img=custom/zbsh/43.png|scale9r=30|scale9l=30|esc=0>
<Img|x=193.5|y=37.5|img=custom/zbsh/128.png|esc=0>
]]
msg=msg..'<Button|x=588.5|y=42.5|nimg=custom/zbsh/8.png|pimg=custom/zbsh/8.png|link=@show,'..wyid..',1>'
msg=msg..'<ListView|children={2000}|x=17.5|y=79.5|width=176|height=352>'
local ziids = ""
for i = 2002,2200 do
ziids = ziids .. i .. ","
end
local ziid = 2002
local ysxx = -2
local ysyy = -6
local gaodu = (math.floor((#shengxing_t-1)/1) + 1) * 66 + 3
msg = msg ..'<Layout|id=2000|children={2001}|height='.. gaodu ..'>' --设置底框宽 高
msg = msg ..'<Layout|id=2001|children={'.. ziids ..'}|height='.. gaodu ..'>' --设置底框宽 高
-- 循环显示人物身上装备
for i = 1, #shengxing_t do
local item = shengxing_t[i][1]
local makeid = getiteminfo(actor,shengxing_t[i][1],1) --唯一id
-- 生成左侧按钮
msg = msg ..'<Img|id='.. ziid ..'|x=1.0|y='.. 3 + (i-1)*66 ..'|img=custom/zbsh/44.png|esc=0|link=@show,'.. makeid ..'>'
ziid = ziid + 1
msg = msg ..'<Img|id='.. ziid ..'|x=1.0|y='.. 3 + (i-1)*66 ..'|img=custom/zbsh/40.png|esc=0>'
ziid = ziid + 1
msg = msg ..'<DBItemShow|id='.. ziid ..'|x=0.0|y='.. 1 + (i-1)*66 ..'|makeindex='..makeid..'|showtips=1|showstar=1>'
ziid = ziid + 1
msg = msg ..'<Text|ay=0.5|id='.. ziid ..'|x=65.0|y='.. 24 + (i-1)*66 ..'|color=255|size=16|text='.. getitemname(actor,shengxing_t[i][1],1) ..'>'
ziid = ziid + 1
msg = msg ..'<Text|ay=0.5|id='.. ziid ..'|x=65.0|y='.. 46 + (i-1)*66 ..'|color=7|size=16|text='..shengxing_t[i][2]..'>'
ziid = ziid + 1
-- 生成右侧升级条件
if wyid == makeid then
msg = msg ..'<Img|id='.. ziid ..'|x=0.0|y='.. 1 + (i-1)*66 ..'|img=custom/zbsh/45.png|esc=0>'
ziid = ziid + 1
msg = msg ..'<DBItemShow|x=380.0|y=84.0|makeindex='..makeid..'|showtips=1|bgtype=0|showstar=1>' --右边展示物品
local showpar = shengxing_t[i][3] --装备位置,通过位置取得升级条件
msg = msg ..'<Text|ax=0.5|ay=0.5|x=410|y=165.5|color=254|size=18|text=成功机率100%,最高'.. shengxingdata[showpar].max_point ..'点>'
msg = msg ..'<Img|x=326.0|y=184|height=130|scale9r=0|scale9t=40|esc=0|img=custom/zbsh/6.png|scale9b=0|scale9l=0>'
msg = msg ..'<Text|ay=0.5|x=365.0|y=199.5|color=250|size=18|text=需要材料>'
msg = msg ..'<RText|ay=0.5|x=345.0|y=233.5|color=116|size=18|simplenum=1|text=金币：<' .. jianhuanum(getbindgold(actor)) .."/FCOLOR=249>/".. jianhuanum(shengxingdata[showpar].jinbi) .. '>'
msg = msg ..'<RText|ay=0.5|x=345.0|y=263.5|color=116|size=18|simplenum=1|text=元宝：<' .. jianhuanum(getingot(actor)) .."/FCOLOR=249>/".. jianhuanum(shengxingdata[showpar].yb) .. '>'
msg = msg .."<Text|x=310|y=285|size=18|color=116|text=".. shengxingdata[showpar].cailiao[1] .."：>"
msg = msg .."<ItemShow|x=375.0|y=260|width=70|height=70|itemid="..getidbyname(shengxingdata[showpar].cailiao[1]).."|itemcount=1|showtips=1|bgtype=0|scale=0.7>"
msg = msg .."<RText|x=427.0|y=285|color=250|size=18|text=<".. itemcount(actor,shengxingdata[showpar].cailiao[1]) .."/FCOLOR=249>/"..shengxingdata[showpar].cailiao[2].."块>"
if showpar == 0 or showpar == 1 then
msg = msg ..'<Button|x=340.0|y=350.0|color=10051|size=18|width=150|height=40|nimg=custom/zbsh/13.png|text=重击机率+1%|link=@shengxing,'.. wyid ..',0,' .. showpar..'>'
else
msg = msg ..'<Button|x=260.0|y=350.0|color=10051|size=18|width=140|height=40|nimg=custom/zbsh/13.png|text=攻击伤害+1%|link=@shengxing,'.. wyid ..',1,' .. showpar..'>'
msg = msg ..'<Button|x=430.0|y=350.0|color=10051|size=18|width=140|height=40|nimg=custom/zbsh/13.png|text=重击伤害+1%|link=@shengxing,'.. wyid ..',11,' .. showpar..'>'
end
end
end
if xianshi == 1 then
msg = msg.. '<Layout|x=-999.0|y=-996.5|width=3000|height=3000|color=255>|link=@show,'..wyid..'>'
msg = msg..[[
<Img|ay=0.5|x=211.5|y=163.5|width=370|height=180|scale9t=10|scale9b=10|img=custom/zbsh/7.png|scale9r=10|esc=0|scale9l=10>
<RText|x=358.5|y=54.5|color=251|size=16|text=装备增伤介绍>
<RText|x=222.5|y=83.5|width=344|color=255|size=16|text=⒈剑甲最高可升至<5%重击几率/FCOLOR=253>>
<RText|x=222.5|y=133.5|width=344|color=255|size=16|text=⒉首饰可以升级攻击伤害或者重击伤害,最高<2%重击伤害/FCOLOR=253>>
<RText|x=222.5|y=183.5|width=344|color=255|size=16|text=⒊升级材料<3个混沌结晶+500万金币+1000元宝(剑甲2000)/FCOLOR=254>>
]]
end
say(actor,msg)
end
-- 装备唯一id, 属性id, 位置
-- 升级伤害属性
function shengxing(actor, wyid, attr_id, pos)
wyid = tonumber(wyid) or 0
attr_id = tonumber(attr_id)
pos = tonumber(pos)
if not pos then
sendmsg9(actor, "装备位置错误")
return
end
if not attr_id then
sendmsg9(actor,"请选择要升级的属性")
return
end
if wyid == 0 then
sendmsg9(actor,"请选择要升级的装备")
return
end
local item = getitembymakeindex(actor, wyid) --物品对象
if item == "0" then
sendmsg9(actor, "你没有这件装备")
return
end
local item_name = getitemname(actor, item)
--sendmsg6(actor,"物品对象"..tostring(item))
if not isinrole(actor, wyid) then
sendmsg9(actor,"物品已经不在身上")
return
end
local tj = shengxingdata[pos]
local cur_point = getnewitemaddvalue(item, attr_id) --获取装备伤害属性
if cur_point >= tj["max_point"] then
sendmsg9(actor,"此装备已经加了" .. cur_point .. "点" .. attr_name[attr_id])
return
end
if getbindgold(actor) < tj.jinbi then
sendmsg9(actor,"金币不足" .. tj.jinbi)
return
end
if getingot(actor) < tj.yb then
sendmsg9(actor,"元宝不足" .. tj.yb)
return
end
if itemcount(actor, tj.cailiao[1]) < tj.cailiao[2] then
sendmsg9(actor,"混沌结晶不足" .. tj.cailiao[2] .. "块")
return
end
if takeitem(actor, tj.cailiao[1], tj.cailiao[2], 0) then
if subbindgold(actor, tj.jinbi) and subingot(actor, tj.yb) then
setnewitemvalue(actor, pos, attr_id, "+", 1, item)
sendmsg9(actor, item_name .. "+1%" .. attr_name[attr_id] .. "属性成功")
sendmsg6(actor, item_name .. "+1%" .. attr_name[attr_id] .. "属性成功")
refreshitem(actor,item)
return show(actor, wyid)
else
sendmsg9(actor,"扣除元宝或者金币失败,无法升级!")
sendmsg6(actor,"扣除元宝或者金币失败,无法升级!")
return
end
else
sendmsg9(actor,"扣除混沌结晶失败,无法升级")
sendmsg6(actor,"扣除混沌结晶失败,无法升级")
return
end
end
