宝珠合成锻造

meinvwudi

require("Envir/Market_Def/NpcLua/zh.lua") -- 个人封装函数

local bz_conf = {
    ["恢复宝珠(劣品)"] = {["元宝"]=1000, materials = {["玄铁矿石"]=10, ["魔魂内丹"]=1}, old_charm=nil},
    ["恢复宝珠(次品)"] = {["元宝"]=2000, materials = {["玄铁矿石"]=20, ["魔魂内丹"]=2}, old_charm="恢复宝珠(劣品)"},
    ["恢复宝珠(良品)"] = {["元宝"]=3000, materials = {["玄铁矿石"]=30, ["魔魂内丹"]=3}, old_charm="恢复宝珠(次品)"},
    ["恢复宝珠(优品)"] = {["元宝"]=4000, materials = {["玄铁矿石"]=40, ["魔魂内丹"]=4}, old_charm="恢复宝珠(良品)"},
    ["恢复宝珠(极品)"] = {["元宝"]=5000, materials = {["玄铁矿石"]=50, ["魔魂内丹"]=5}, old_charm="恢复宝珠(优品)"},
    ["恢复宝珠(精品)"] = {["元宝"]=6000, materials = {["玄铁矿石"]=60, ["魔魂内丹"]=6}, old_charm="恢复宝珠(极品)"},
    ["恢复宝珠(珍品)"] = {["元宝"]=7000, materials = {["玄铁矿石"]=70, ["魔魂内丹"]=7}, old_charm="恢复宝珠(精品)"},
    ["恢复宝珠(绝品)"] = {["元宝"]=8000, materials = {["玄铁矿石"]=80, ["魔魂内丹"]=8}, old_charm="恢复宝珠(珍品)"},
    ["恢复宝珠(神品)"] = {["元宝"]=9000, materials = {["玄铁矿石"]=90, ["魔魂内丹"]=9}, old_charm="恢复宝珠(绝品)"},
}

-- 检查是否满足条件
local function check_requirements(actor, req)
    local checks = {
        old_charm = function() return not req.old_charm or checkitemw(actor, req.old_charm, 1) end,
        yb = function() return getyb(actor) >= req["元宝"] end,
        items = function()
            for itemName, count in pairs(req.materials) do  -- 只遍历materials中的项目
                if itemcount(actor, itemName) < count then
                    return false, itemName, count
                end
            end
            return true
        end
    }

    -- Check each requirement and send appropriate message if failed
    for key, check in pairs(checks) do
        local success, itemName, itemCount = check()
        if not success then
            if key == 'old_charm' then
                sendmsg99(actor, string.format("<font color='#f0b42a'>系统提示:</font><font color='#ff0000'>身上佩戴%s才能锻造</font>", req.old_charm))
            elseif key == 'items' then
                sendmsg99(actor, string.format("<font color='#f0b42a'>系统提示:</font><font color='#ff0000'>需要%s%d个</font>", itemName, itemCount))
            else
                sendmsg99(actor, string.format("<font color='#f0b42a'>系统提示:</font><font color='#ff0000'>%s不足%d</font>", "元宝", req["元宝"]))
            end
            return false
        end
    end
    return true
end



---玩家点击宝珠进阶时执行
---@param actor userdata 点击npc的玩家
---@param charm   string   下阶的宝珠名称 
function click_bzdz(actor, charm)

    charm = tostring(charm)

    if not charm or charm == "" then
        sendmsg9(actor, "对不起，游戏参数异常！", "#ff0000")
        return false
    end

    if checkitemw(actor, "恢复宝珠(神品)", 1) then
        sendmsg9(actor, "你佩戴的“恢复宝珠(神品)”无法进阶！", "#ff0000")
        return false
    end

    local req = bz_conf[charm]
    if not req then
        sendmsg9(actor, "对不起，游戏参数不存在！", "#ff0000")
        return false
    end

    -- 检查是否满足历练条件
    if not check_requirements(actor, req) then
        return false
    end

    -- 扣除元宝和物品
    if not (subyb(actor, req["元宝"], "NPC宝珠锻造消耗元宝") and 
        takeitemex(actor, "玄铁矿石", req.materials["玄铁矿石"], 0, "宝珠玄铁矿石") and 
        takeitemex(actor, "魔魂内丹", req.materials["魔魂内丹"], 0, "宝珠魔魂内丹")
    ) then
        sendmsg9(actor, "扣除材料失败，无法锻造宝珠！", "#ff0000")        
        return false
    end

    -- 删除掉上一级宝珠 
    if req.old_charm and req.old_charm ~= "" then
        if not takew(actor, req.old_charm, 1, "宝珠锻造消耗上级") then
            sendmsg9(actor, string.format("扣除宝珠%s失败，无法锻造升级！", req.old_charm), "#ff0000")
            return false
        end
    end

    if giveonitem(actor, 12, charm, 1, 370, "宝珠锻造获得" .. charm) then
        sendmsg9(actor, "恭喜你宝珠进阶成功！", "#00ff00")
        local npc = getcurrnpc(actor)
        if npc then
            opennpcshow(actor, getnpcindex(npc), 10)
        end
    else
        sendmsg9(actor, "宝珠锻造失败！")
    end

end

meinvwudi

[@main]
#IF
#ACT
MOV S$左侧按钮选中 1
#IF
CHECKITEMW 恢复宝珠(劣品)
#ACT
MOV S$左侧按钮选中 2
#IF
CHECKITEMW 恢复宝珠(次品)
#ACT
MOV S$左侧按钮选中 3
#IF
CHECKITEMW 恢复宝珠(良品)
#ACT
MOV S$左侧按钮选中 4
#IF
CHECKITEMW 恢复宝珠(优品)
#ACT
MOV S$左侧按钮选中 5
#IF
CHECKITEMW 恢复宝珠(极品)
#ACT
MOV S$左侧按钮选中 6
#IF
CHECKITEMW 恢复宝珠(精品)
#ACT
MOV S$左侧按钮选中 7
#IF
CHECKITEMW 恢复宝珠(珍品)
#ACT
MOV S$左侧按钮选中 8
#IF
CHECKITEMW 恢复宝珠(绝品)
#ACT
MOV S$左侧按钮选中 9
#IF
CHECKITEMW 恢复宝珠(神品)
#ACT
MOV S$左侧按钮选中 9
#IF
#ACT
GOTO @宝珠锻造主页面


[@宝珠锻造主页面]

#IF
#ACT
MOV S$左侧按钮图片1 bza-1-1.png
MOV S$左侧按钮图片2 bza-2-1.png
MOV S$左侧按钮图片3 bza-3-1.png
MOV S$左侧按钮图片4 bza-4-1.png
MOV S$左侧按钮图片5 bza-5-1.png
MOV S$左侧按钮图片6 bza-6-1.png
MOV S$左侧按钮图片7 bza-7-1.png
MOV S$左侧按钮图片8 bza-8-1.png
MOV S$左侧按钮图片9 bza-9-1.png
MOV S$左侧按钮图片<$STR(S$左侧按钮选中)> bza-<$STR(S$左侧按钮选中)>-2.png
MOV S$宝珠名称图片 bzn-<$STR(S$左侧按钮选中)>.png

#IF
EQUAL S$左侧按钮选中 1
#ACT
MOV S$当前查阅宝珠名称 恢复宝珠(劣品)
MOV S$宝珠需要材料名称 玄铁矿石
MOV S$宝珠需要材料数量 10
MOV S$宝珠需要原料名称 魔魂内丹
MOV S$宝珠需要原料数量 1
MOV S$宝珠需要货币名称 元宝
MOV S$宝珠需要货币数量 1000
#IF
EQUAL S$左侧按钮选中 2
#ACT
MOV S$当前查阅宝珠名称 恢复宝珠(次品)
MOV S$宝珠需要铸具名称 恢复宝珠(劣品)
MOV S$宝珠需要材料名称 玄铁矿石
MOV S$宝珠需要材料数量 20
MOV S$宝珠需要原料名称 魔魂内丹
MOV S$宝珠需要原料数量 2
MOV S$宝珠需要货币名称 元宝
MOV S$宝珠需要货币数量 2000
#IF
EQUAL S$左侧按钮选中 3
#ACT
MOV S$当前查阅宝珠名称 恢复宝珠(良品)
MOV S$宝珠需要铸具名称 恢复宝珠(次品)
MOV S$宝珠需要材料名称 玄铁矿石
MOV S$宝珠需要材料数量 30
MOV S$宝珠需要原料名称 魔魂内丹
MOV S$宝珠需要原料数量 3
MOV S$宝珠需要货币名称 元宝
MOV S$宝珠需要货币数量 3000
#IF
EQUAL S$左侧按钮选中 4
#ACT
MOV S$当前查阅宝珠名称 恢复宝珠(优品)
MOV S$宝珠需要铸具名称 恢复宝珠(良品)
MOV S$宝珠需要材料名称 玄铁矿石
MOV S$宝珠需要材料数量 40
MOV S$宝珠需要原料名称 魔魂内丹
MOV S$宝珠需要原料数量 4
MOV S$宝珠需要货币名称 元宝
MOV S$宝珠需要货币数量 4000
#IF
EQUAL S$左侧按钮选中 5
#ACT
MOV S$当前查阅宝珠名称 恢复宝珠(极品)
MOV S$宝珠需要铸具名称 恢复宝珠(优品)
MOV S$宝珠需要材料名称 玄铁矿石
MOV S$宝珠需要材料数量 50
MOV S$宝珠需要原料名称 魔魂内丹
MOV S$宝珠需要原料数量 5
MOV S$宝珠需要货币名称 元宝
MOV S$宝珠需要货币数量 5000
#IF
EQUAL S$左侧按钮选中 6
#ACT
MOV S$当前查阅宝珠名称 恢复宝珠(精品)
MOV S$宝珠需要铸具名称 恢复宝珠(极品)
MOV S$宝珠需要材料名称 玄铁矿石
MOV S$宝珠需要材料数量 60
MOV S$宝珠需要原料名称 魔魂内丹
MOV S$宝珠需要原料数量 6
MOV S$宝珠需要货币名称 元宝
MOV S$宝珠需要货币数量 6000
#IF
EQUAL S$左侧按钮选中 7
#ACT
MOV S$当前查阅宝珠名称 恢复宝珠(珍品)
MOV S$宝珠需要铸具名称 恢复宝珠(精品)
MOV S$宝珠需要材料名称 玄铁矿石
MOV S$宝珠需要材料数量 70
MOV S$宝珠需要原料名称 魔魂内丹
MOV S$宝珠需要原料数量 7
MOV S$宝珠需要货币名称 元宝
MOV S$宝珠需要货币数量 7000
#IF
EQUAL S$左侧按钮选中 8
#ACT
MOV S$当前查阅宝珠名称 恢复宝珠(绝品)
MOV S$宝珠需要铸具名称 恢复宝珠(珍品)
MOV S$宝珠需要材料名称 玄铁矿石
MOV S$宝珠需要材料数量 80
MOV S$宝珠需要原料名称 魔魂内丹
MOV S$宝珠需要原料数量 8
MOV S$宝珠需要货币名称 元宝
MOV S$宝珠需要货币数量 8000
#IF
EQUAL S$左侧按钮选中 9
#ACT
MOV S$当前查阅宝珠名称 恢复宝珠(神品)
MOV S$宝珠需要铸具名称 恢复宝珠(绝品)
MOV S$宝珠需要材料名称 玄铁矿石
MOV S$宝珠需要材料数量 90
MOV S$宝珠需要原料名称 魔魂内丹
MOV S$宝珠需要原料数量 9
MOV S$宝珠需要货币名称 元宝
MOV S$宝珠需要货币数量 9000

#IF
CHECKITEMW <$STR(S$宝珠需要铸具名称)>
#ACT
MOV S$是否佩戴铸具 1
#ELSEACT
MOV S$是否佩戴铸具 0

#if
#act
getdbitemfieldvalue <$STR(S$宝珠需要材料名称)> idx S$宝珠需要材料IDX
getdbitemfieldvalue <$STR(S$宝珠需要原料名称)> idx S$宝珠需要原料IDX
getdbitemfieldvalue <$STR(S$宝珠需要货币名称)> idx S$宝珠需要货币IDX
getdbitemfieldvalue <$STR(S$宝珠需要材料名称)> idx S$宝珠需要材料IDX
getdbitemfieldvalue <$STR(S$宝珠需要铸具名称)> idx S$宝珠需要铸具IDX
getdbitemfieldvalue <$STR(S$当前查阅宝珠名称)> idx S$当前查阅宝珠IDX

#IF
equal <$CLIENTFLAG> 1
#ACT
MOV S$npc坐标x -20
MOV S$npc坐标y -60
#ELSEACT
MOV S$npc坐标x -10
MOV S$npc坐标y -10

#IF
#ACT
#SAY
<Img|x=<$STR(S$npc坐标x)>|y=<$STR(S$npc坐标y)>|width=882|height=583|children={close,title,left,right}|img=image/main1.png|bg=1|scale9l=400|scale9r=150|scale9t=220|scale9b=100|reset=0|move=1|show=4>
<Layout|a=1|percentx=98.2|y=36|id=close|children={close1}|width=80|height=80|link=@exit>
<Button|a=4|percentx=50|percenty=50|id=close1|nimg=image/close2.png|link=@exit>
<Img|x=190|y=55|id=title|img=image/BaoZhuHeCheng/title.png>
<Img|x=71|y=104|id=left|children={left-line,left1,left2,left3,left4,left5,left6,left7,left8,left9}|img=image/BaoZhuHeCheng/left.png>
<Button|a=4|percentx=50|y=026|id=left1|nimg=image/BaoZhuHeCheng/<$STR(S$左侧按钮图片1)>|link=@宝珠锻造主页面#左侧按钮选中=1>
<Button|a=4|percentx=50|y=077|id=left2|nimg=image/BaoZhuHeCheng/<$STR(S$左侧按钮图片2)>|link=@宝珠锻造主页面#左侧按钮选中=2>
<Button|a=4|percentx=50|y=128|id=left3|nimg=image/BaoZhuHeCheng/<$STR(S$左侧按钮图片3)>|link=@宝珠锻造主页面#左侧按钮选中=3>
<Button|a=4|percentx=50|y=179|id=left4|nimg=image/BaoZhuHeCheng/<$STR(S$左侧按钮图片4)>|link=@宝珠锻造主页面#左侧按钮选中=4>
<Button|a=4|percentx=50|y=230|id=left5|nimg=image/BaoZhuHeCheng/<$STR(S$左侧按钮图片5)>|link=@宝珠锻造主页面#左侧按钮选中=5>
<Button|a=4|percentx=50|y=281|id=left6|nimg=image/BaoZhuHeCheng/<$STR(S$左侧按钮图片6)>|link=@宝珠锻造主页面#左侧按钮选中=6>
<Button|a=4|percentx=50|y=332|id=left7|nimg=image/BaoZhuHeCheng/<$STR(S$左侧按钮图片7)>|link=@宝珠锻造主页面#左侧按钮选中=7>
<Button|a=4|percentx=50|y=383|id=left8|nimg=image/BaoZhuHeCheng/<$STR(S$左侧按钮图片8)>|link=@宝珠锻造主页面#左侧按钮选中=8>
<Button|a=4|percentx=50|y=434|id=left9|nimg=image/BaoZhuHeCheng/<$STR(S$左侧按钮图片9)>|link=@宝珠锻造主页面#左侧按钮选中=9>
<Img|percentx=100|y=0|id=left-line|img=image/BaoZhuHeCheng/line.png>
<Img|x=288|y=104|id=right|children={right1,right2,,right3,right99}|img=image/BaoZhuHeCheng/right.png>
<Img|a=4|percentx=50|y=50|id=right1|img=image/BaoZhuHeCheng/<$STR(S$宝珠名称图片)>>
<Img|a=4|percentx=50|y=215|id=right3|children={right31,right32}|img=image/BaoZhuHeCheng/zbk.png>
<Frames|a=4|percentx=56|percenty=50|id=right32|prefix=image/BaoZhuHeCheng/playimg_|suffix=.png|count=8|speed=15|loop=-1>
<ItemShow|a=4|percentx=50|percenty=50|id=right31|itemid=<$STR(S$当前查阅宝珠IDX)>|showtips=1|bgtype=0>
<Img|a=4|percentx=50|y=330|id=right2|children={right21,right22,right23,right24}|img=image/BaoZhuHeCheng/xh.png>
#IF
EQUAL S$当前查阅宝珠名称 恢复宝珠(劣品)
#SAY
<Img|a=4|percentx=35|y=80|id=right21|children={right211,right212}|img=image/0036.png>
<ItemShow|a=4|percentx=56|percenty=43|id=right211|itemid=<$STR(S$宝珠需要材料IDX)>|showtips=1|bgtype=0>
<Text|a=4|percentx=52|y=46|id=right212|color=255|outline=2|size=14|text=$STM(ITEMCOUNT_<$STR(S$宝珠需要材料名称)>)/<$str(S$宝珠需要材料数量)>>
<Img|a=4|percentx=50|y=80|id=right22|children={right221,right222}|img=image/0036.png>
<ItemShow|a=4|percentx=52|percenty=43|id=right221|itemid=<$STR(S$宝珠需要原料IDX)>|showtips=1|bgtype=0>
<Text|a=4|percentx=52|y=46|id=right222|color=255|outline=2|size=14|text=$STM(ITEMCOUNT_<$STR(S$宝珠需要原料名称)>)/<$str(S$宝珠需要原料数量)>>
<Img|a=4|percentx=65|y=80|id=right24|children={right241,right242}|img=image/0036.png>
<ItemShow|a=4|percentx=52|percenty=43|id=right241|itemid=<$STR(S$宝珠需要货币IDX)>|showtips=1|bgtype=0>
<Text|a=4|percentx=52|y=46|id=right242|color=255|outline=2|size=14|text=<$str(S$宝珠需要货币数量)>>
#ELSESAY
<Img|a=4|percentx=29|y=80|id=right21|children={right211,right212}|img=image/0036.png>
<ItemShow|a=4|percentx=50|percenty=43|id=right211|itemid=<$STR(S$宝珠需要铸具IDX)>|showtips=1|bgtype=0>
<Text|a=4|percentx=52|y=46|id=right212|color=255|outline=2|size=14|text=<$STR(S$是否佩戴铸具)>/1>
<Img|a=4|percentx=43|y=80|id=right22|children={right221,right222}|img=image/0036.png>
<ItemShow|a=4|percentx=56|percenty=43|id=right221|itemid=<$STR(S$宝珠需要材料IDX)>|showtips=1|bgtype=0>
<Text|a=4|percentx=52|y=46|id=right222|color=255|outline=2|size=14|text=$STM(ITEMCOUNT_<$STR(S$宝珠需要材料名称)>)/<$str(S$宝珠需要材料数量)>>
<Img|a=4|percentx=57|y=80|id=right23|children={right231,right232}|img=image/0036.png>
<ItemShow|a=4|percentx=52|percenty=43|id=right231|itemid=<$STR(S$宝珠需要原料IDX)>|showtips=1|bgtype=0>
<Text|a=4|percentx=52|y=46|id=right232|color=255|outline=2|size=14|text=$STM(ITEMCOUNT_<$STR(S$宝珠需要原料名称)>)/<$str(S$宝珠需要原料数量)>>
<Img|a=4|percentx=71|y=80|id=right24|children={right241,right242}|img=image/0036.png>
<ItemShow|a=4|percentx=52|percenty=43|id=right241|itemid=<$STR(S$宝珠需要货币IDX)>|showtips=1|bgtype=0>
<Text|a=4|percentx=52|y=46|id=right242|color=255|outline=2|size=14|text=<$str(S$宝珠需要货币数量)>>
#if
#say
<Button|a=4|percentx=50|y=425|id=right99|nimg=image/BaoZhuHeCheng/button.png|link=@宝珠锻造>



[@宝珠锻造]
#act
calllua /NpcLua/功能NPC/宝珠锻造 click_bzdz,<$STR(S$当前查阅宝珠名称)>


[@del]
#IF
CHECKITEM <$STR(S$宝珠需要材料名称)> <$STR(S$宝珠需要材料数量)>
#ELSEACT
sendmsg 9 <font color='#ffff00'>对不起，你没有<font color='#ff0000'><$STR(S$宝珠需要材料数量)></font>个<font color='#ff0000'><$STR(S$宝珠需要材料名称)></font></font>
break
#IF
CHECKITEM <$STR(S$宝珠需要原料名称)> <$STR(S$宝珠需要原料数量)>
#ELSEACT
sendmsg 9 <font color='#ffff00'>对不起，你没有<font color='#ff0000'><$STR(S$宝珠需要原料数量)></font>个<font color='#ff0000'><$STR(S$宝珠需要原料名称)></font></font>
break
#IF
CheckBindMoney 元宝 < <$STR(S$宝珠需要货币数量)>
#act
sendmsg 9 <font color='#ffff00'>对不起，你没有<font color='#ff0000'><$STR(S$宝珠需要货币数量)><$STR(S$宝珠需要货币名称)></font></font>
break
#IF
EQUAL S$当前查阅宝珠名称 恢复宝珠(劣品)
CHECKITEM <$STR(S$宝珠需要材料名称)> <$STR(S$宝珠需要材料数量)>
CHECKITEM <$STR(S$宝珠需要原料名称)> <$STR(S$宝珠需要原料数量)>
NOT CheckBindMoney 元宝 < <$STR(S$宝珠需要货币数量)>
#ACT
ChangeBindMoney 元宝 <$STR(S$宝珠需要货币数量)>
TAKE <$STR(S$宝珠需要原料名称)> <$STR(S$宝珠需要原料数量)>
TAKE <$STR(S$宝珠需要材料名称)> <$STR(S$宝珠需要材料数量)>
give <$str(S$当前查阅宝珠名称)> 1
AutoTakeOnItem <$str(S$当前查阅宝珠名称)> 12
sendmsg 9  <font color='#00ff00'>宝珠进阶锻造成功</font>
goto @main
break
#OR
NOT CHECKITEMW <$STR(S$宝珠需要铸具名称)>
NOT EQUAL S$是否佩戴铸具 1
#ACT
sendmsg 9  <font color='#FFFF00'>你没有佩戴“<font color='#FF0000'><$STR(S$宝珠需要铸具名称)></font>”！</font>
BREAK
#IF
CHECKITEMW <$STR(S$宝珠需要铸具名称)>
EQUAL S$是否佩戴铸具 1
CHECKITEM <$STR(S$宝珠需要材料名称)> <$STR(S$宝珠需要材料数量)>
CHECKITEM <$STR(S$宝珠需要原料名称)> <$STR(S$宝珠需要原料数量)>
NOT CheckBindMoney 元宝 < <$STR(S$宝珠需要货币数量)>
#ACT
ChangeBindMoney 元宝 <$STR(S$宝珠需要货币数量)>
TAKE <$STR(S$宝珠需要原料名称)> <$STR(S$宝珠需要原料数量)>
TAKE <$STR(S$宝珠需要材料名称)> <$STR(S$宝珠需要材料数量)>
TAKEW <$STR(S$宝珠需要铸具名称)> 1
give <$str(S$当前查阅宝珠名称)> 1
AutoTakeOnItem <$str(S$当前查阅宝珠名称)> 12
sendmsg 9  <font color='#00ff00'>宝珠进阶锻造成功</font>
goto @main
break
#ELSEACT
sendmsg 9  <font color='#FFFF00'>对不起，进阶材料不足！</font>
break