奇经八脉

meinvwudi · 12 月 '24

[@main]
#IF
NOT CHECKTITLE 启脉
NOT CHECKTITLE 督脉
NOT CHECKTITLE 任脉
NOT CHECKTITLE 冲脉
NOT CHECKTITLE 带脉
NOT CHECKTITLE 阳维脉
NOT CHECKTITLE 阴维脉
NOT CHECKTITLE 阳蹻脉
NOT CHECKTITLE 阴蹻脉
#ACT
MOV S$当前经脉名称 暂无
MOV S$当前经脉属性 暂无
MOV S$当前经脉附加 暂无
MOV S$下阶经脉名称 启脉
MOV S$下阶经脉属性 攻魔道+2-2
MOV S$下阶经脉附加 生命上限+1%
MOV S$经脉需要材料N 烛龙之睛
MOV S$经脉需要材料S 10
MOV S$经脉需要原料N 魔魂内丹
MOV S$经脉需要原料S 1
MOV S$经脉需要货币N 元宝
MOV S$经脉需要货币S 1000

#IF
CHECKTITLE 启脉
#ACT
MOV S$当前经脉名称 启脉
MOV S$当前经脉属性 攻魔道+2-2
MOV S$当前经脉附加 生命上限+1%
MOV S$下阶经脉名称 督脉
MOV S$下阶经脉属性 攻魔道+4-4
MOV S$下阶经脉附加 生命上限+2%
MOV S$经脉需要材料N 烛龙之睛
MOV S$经脉需要材料S 20
MOV S$经脉需要原料N 魔魂内丹
MOV S$经脉需要原料S 2
MOV S$经脉需要货币N 元宝
MOV S$经脉需要货币S 2000

#IF
CHECKTITLE 督脉
#ACT
MOV S$当前经脉名称 督脉
MOV S$当前经脉属性 攻魔道+4-4
MOV S$当前经脉附加 生命上限+2%
MOV S$下阶经脉名称 任脉
MOV S$下阶经脉属性 攻魔道+6-6
MOV S$下阶经脉附加 生命上限+3%
MOV S$经脉需要材料N 烛龙之睛
MOV S$经脉需要材料S 30
MOV S$经脉需要原料N 魔魂内丹
MOV S$经脉需要原料S 3
MOV S$经脉需要货币N 元宝
MOV S$经脉需要货币S 3000

#IF
CHECKTITLE 任脉
#ACT
MOV S$当前经脉名称 任脉
MOV S$当前经脉属性 攻魔道+6-6
MOV S$当前经脉附加 生命上限+3%
MOV S$下阶经脉名称 冲脉
MOV S$下阶经脉属性 攻魔道+8-8
MOV S$下阶经脉附加 生命上限+4%
MOV S$经脉需要材料N 烛龙之睛
MOV S$经脉需要材料S 40
MOV S$经脉需要原料N 魔魂内丹
MOV S$经脉需要原料S 4
MOV S$经脉需要货币N 元宝
MOV S$经脉需要货币S 4000

#IF
CHECKTITLE 冲脉
#ACT
MOV S$当前经脉名称 冲脉
MOV S$当前经脉属性 攻魔道+8-8
MOV S$当前经脉附加 生命上限+4%
MOV S$下阶经脉名称 带脉
MOV S$下阶经脉属性 攻魔道+10-10
MOV S$下阶经脉附加 生命上限+5%
MOV S$经脉需要材料N 烛龙之睛
MOV S$经脉需要材料S 50
MOV S$经脉需要原料N 魔魂内丹
MOV S$经脉需要原料S 5
MOV S$经脉需要货币N 元宝
MOV S$经脉需要货币S 5000

#IF
CHECKTITLE 带脉
#ACT
MOV S$当前经脉名称 带脉
MOV S$当前经脉属性 攻魔道+10-10
MOV S$当前经脉附加 生命上限+5%
MOV S$下阶经脉名称 阳维脉
MOV S$下阶经脉属性 攻魔道+12-12
MOV S$下阶经脉附加 生命上限+6%
MOV S$经脉需要材料N 烛龙之睛
MOV S$经脉需要材料S 60
MOV S$经脉需要原料N 魔魂内丹
MOV S$经脉需要原料S 6
MOV S$经脉需要货币N 元宝
MOV S$经脉需要货币S 6000

#IF
CHECKTITLE 阳维脉
#ACT
MOV S$当前经脉名称 阳维脉
MOV S$当前经脉属性 攻魔道+12-12
MOV S$当前经脉附加 生命上限+6%
MOV S$下阶经脉名称 阴维脉
MOV S$下阶经脉属性 攻魔道+14-14
MOV S$下阶经脉附加 生命上限+7%
MOV S$经脉需要材料N 烛龙之睛
MOV S$经脉需要材料S 70
MOV S$经脉需要原料N 魔魂内丹
MOV S$经脉需要原料S 7
MOV S$经脉需要货币N 元宝
MOV S$经脉需要货币S 7000

#IF
CHECKTITLE 阴维脉
#ACT
MOV S$当前经脉名称 阴维脉
MOV S$当前经脉属性 攻魔道+14-14
MOV S$当前经脉附加 生命上限+7%
MOV S$下阶经脉名称 阳蹻脉
MOV S$下阶经脉属性 攻魔道+17-17
MOV S$下阶经脉附加 生命上限+8%
MOV S$经脉需要材料N 烛龙之睛
MOV S$经脉需要材料S 80
MOV S$经脉需要原料N 魔魂内丹
MOV S$经脉需要原料S 8
MOV S$经脉需要货币N 元宝
MOV S$经脉需要货币S 8000

#IF
CHECKTITLE 阳蹻脉
#ACT
MOV S$当前经脉名称 阳蹻脉
MOV S$当前经脉属性 攻魔道+17-17
MOV S$当前经脉附加 生命上限+8%
MOV S$下阶经脉名称 阴蹻脉
MOV S$下阶经脉属性 攻魔道+20-20
MOV S$下阶经脉附加 生命上限+10%
MOV S$经脉需要材料N 烛龙之睛
MOV S$经脉需要材料S 100
MOV S$经脉需要原料N 魔魂内丹
MOV S$经脉需要原料S 10
MOV S$经脉需要货币N 元宝
MOV S$经脉需要货币S 10000

#IF
CHECKTITLE 阴蹻脉
#ACT
MOV S$当前经脉名称 阴蹻脉
MOV S$当前经脉属性 攻魔道+20-20
MOV S$当前经脉附加 生命上限+10%




#if
#act
getdbitemfieldvalue <$STR(S$经脉需要材料N)> idx S$经脉需要材料I
getdbitemfieldvalue <$STR(S$经脉需要原料N)> idx S$经脉需要原料I
getdbitemfieldvalue <$STR(S$经脉需要货币N)> idx S$经脉需要货币I


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

#IF
#ACT
#SAY
<Img|x=<$STR(S$npc坐标x)>|y=<$STR(S$npc坐标y)>|children={play}|img=image/QiJingBaMai/bg.png|bg=1|reset=0|move=1|show=4>
<Frames|x=0|y=2|id=play|children={exit1,img,p,h,b1,b2}|prefix=image/QiJingBaMai/playimg_|suffix=.png|count=30|speed=15|loop=-1>
<Layout|a=1|percentx=93|y=60|id=exit1|children={exit2}|width=80|height=80|link=@exit>
<Button|a=4|percentx=50|percenty=50|id=exit2|nimg=image/0037.png|link=@exit>
<Img|x=152|y=369|id=p|img=image/QiJingBaMai/050-5.png>
<Layout|x=291|y=90|width=690|height=423|id=img|children={img01,img02,img03,img04,img05,img06,img07,img08,img09,img10,img11,img12,img13,img14,img15,img20,img21}>
<Img|a=4|percentx=50|y=60|id=img01|img=image/QiJingBaMai/054-5.png>




#IF
CHECKTITLE 阴蹻脉
#SAY
<Img|a=4|percentx=50|y=300|id=img02|children={img031,img032,img033,img034}|img=image/QiJingBaMai/059.png>
<Img|a=4|percentx=50|y=130|id=img03|img=image/QiJingBaMai/052-5.png>
<Img|a=4|percentx=50|y=245|id=img04|children={txt1,txt2,txt3,txt4,txt5,txt6}|img=image/QiJingBaMai/055-6.png>
<Text|a=4|percentx=50|y=38|id=txt1|size=15|color=251|text=<$STR(S$当前经脉名称)>>
<Text|a=4|percentx=50|y=94|id=txt2|size=15|color=251|text=<$STR(S$当前经脉属性)>>
<Text|a=4|percentx=50|y=150|id=txt3|size=15|color=251|text=<$STR(S$当前经脉附加)>>
#ELSESAY
<Img|a=4|percentx=50|y=148|id=img02|children={txt1,txt2,txt3,txt4,txt5,txt6}|img=image/QiJingBaMai/055-5.png>
<Text|x=86|y=05|id=txt1|size=15|color=254|text=<$STR(S$当前经脉名称)>><Text|x=306|y=05|id=txt4|size=15|color=251|text=<$STR(S$下阶经脉名称)>>
<Text|x=86|y=31|id=txt2|size=15|color=254|text=<$STR(S$当前经脉属性)>><Text|x=306|y=31|id=txt5|size=15|color=251|text=<$STR(S$下阶经脉属性)>>
<Text|x=86|y=57|id=txt3|size=15|color=254|text=<$STR(S$当前经脉附加)>><Text|x=306|y=57|id=txt6|size=15|color=251|text=<$STR(S$下阶经脉附加)>>
<Img|a=4|percentx=50|y=250|id=img03|children={img031,img032,img033,img034}|img=image/QiJingBaMai/059.png>
<Img|a=4|percentx=50|y=10|id=img031|img=image/QiJingBaMai/051-5.png>
<Img|a=4|percentx=30|y=65|id=img032|children={img0321,img0322}|img=image/0036.png>
<ItemShow|a=4|percentx=56|percenty=44|id=img0321|itemid=<$STR(S$经脉需要材料I)>|showtips=1|bgtype=0>
<Text|a=4|percentx=52|y=52|id=img0322|color=255|outline=2|size=14|text=$STM(ITEMCOUNT_<$STR(S$经脉需要材料N)>)/<$str(S$经脉需要材料S)>>
<Img|a=4|percentx=50|y=65|id=img033|children={img0331,img0332}|img=image/0036.png>
<ItemShow|a=4|percentx=51|percenty=44|id=img0331|itemid=<$STR(S$经脉需要原料I)>|showtips=1|bgtype=0>
<Text|a=4|percentx=52|y=52|id=img0332|color=255|outline=2|size=14|text=$STM(ITEMCOUNT_<$STR(S$经脉需要原料N)>)/<$str(S$经脉需要原料S)>>
<Img|a=4|percentx=70|y=65|id=img034|children={img0341,img0342}|img=image/0036.png>
<ItemShow|a=4|percentx=54|percenty=44|id=img0341|itemid=<$STR(S$经脉需要货币I)>|showtips=1|bgtype=0>
<Text|a=4|percentx=52|y=52|id=img0342|color=255|outline=2|size=14|text=<$str(S$经脉需要货币S)>>
<Button|a=4|percentx=50|y=340|id=img04|nimg=image/QiJingBaMai/053.png|link=@奇经八脉>

#IF
#SAY
<Button|a=4|percentx=50|y=490|width=180|id=img05|color=100|size=15|outline=2|nimg=image/button_62.png|pimg=image/button_61.png|text=奇经八脉清除|link=@奇经八脉清除>


[@奇经八脉]
#if 
#act
calllua Npclua/功能NPC/奇经八脉 @click_qjbm,<$STR(S$下阶经脉名称)>
break



[@del]
#IF
CHECKTITLE 阴蹻脉
#ACT
sendmsg 9 <font color='#ff0000'>你的经脉已全部打通</font>
goto @main
BREAK

#IF
CHECKITEM <$STR(S$经脉需要材料N)> <$STR(S$经脉需要材料S)>
CHECKITEM <$STR(S$经脉需要原料N)> <$STR(S$经脉需要原料S)>
NOT CheckBindMoney 元宝 < <$STR(S$经脉需要货币S)>
#act
ChangeBindMoney 元宝 <$STR(S$经脉需要货币S)>
TAKE <$STR(S$经脉需要原料N)> <$STR(S$经脉需要原料S)>
TAKE <$STR(S$经脉需要材料N)> <$STR(S$经脉需要材料S)>
DEPRIVETITLE 启脉
DEPRIVETITLE 督脉
DEPRIVETITLE 任脉
DEPRIVETITLE 冲脉
DEPRIVETITLE 带脉
DEPRIVETITLE 阳维脉
DEPRIVETITLE 阴维脉
DEPRIVETITLE 阳蹻脉
DEPRIVETITLE 阴蹻脉
CONFERTITLE <$STR(S$下阶经脉名称)>
sendmsg 9  <font color='#ff00ff'>恭喜你已成功打通<$STR(S$下阶经脉名称)></font>
sendmsg 0 253 0 恭喜[<$USERNAME>]成功打通[<$STR(S$下阶经脉名称)>]，实力得到更进一步的增强！
goto @main
BREAK
#ELSEACT
sendmsg 9 <font color='#ffff00'>很遗憾，你不满足打通<$STR(S$下阶经脉名称)>的要求！</font>
BREAK



[@奇经八脉清除]
#if
#ACT
DEPRIVETITLE 启脉
DEPRIVETITLE 督脉
DEPRIVETITLE 任脉
DEPRIVETITLE 冲脉
DEPRIVETITLE 带脉
DEPRIVETITLE 阳维脉
DEPRIVETITLE 阴维脉
DEPRIVETITLE 阳蹻脉
DEPRIVETITLE 阴蹻脉
goto @main

meinvwudi · 12 月 '24

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

local qjbmdata = {
    ["启脉"] = {yb = 1000, items = {["烛龙之睛"] = 10, ["魔魂内丹"] = 1},   old_title=nil},
    ["督脉"] = {yb = 2000, items = {["烛龙之睛"] = 20, ["魔魂内丹"] = 2},  old_title="启脉"},
    ["任脉"] = {yb = 3000, items = {["烛龙之睛"] = 30, ["魔魂内丹"] = 3},  old_title="督脉"},
    ["冲脉"] = {yb = 4000, items = {["烛龙之睛"] = 40, ["魔魂内丹"] = 4},  old_title="任脉"},
    ["带脉"] = {yb = 5000, items = {["烛龙之睛"] = 50, ["魔魂内丹"] = 5}, old_title="冲脉"},
    ["阳维脉"] = {yb = 6000, items = {["烛龙之睛"] = 60, ["魔魂内丹"] = 6}, old_title="带脉"},
    ["阴维脉"] = {yb = 7000, items = {["烛龙之睛"] = 70, ["魔魂内丹"] = 7}, old_title="阳维脉"},
    ["阳蹻脉"] = {yb = 8000, items = {["烛龙之睛"] = 80, ["魔魂内丹"] = 8}, old_title="阴维脉"},
    ["阴蹻脉"] = {yb = 10000, items = {["烛龙之睛"] = 100, ["魔魂内丹"] = 10}, old_title="阳蹻脉"},
}

-- 检查是否满足奇经八脉条件
local function check_requirements(actor, req)
    local checks = {
        yb = function() return getyb(actor) >= req.yb end,
        items = function()
            for itemName, count in pairs(req.items) do
                if itemcount(actor, itemName) < count then
                    return false, itemName, count
                end
            end
            return true
        end,
        old_title = function() return not req.old_title or checktitle(actor, req.old_title)  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_title' then
                sendmsg99(actor, string.format("<font color='#f0b42a'>系统提示:</font><font color='#ff0000'>系统提示:需要打通%s才能打通当前经脉</font>", req.old_title))
            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.yb))
            end
            return false
        end
    end
    return true
end


function click_qjbm(actor, title)

    title = tostring(title)

    if not title or title == "" then
        sendmsg9(actor, "奇经八脉的称号为空！")
        return false
    end

    if checktitle(actor, "阴蹻脉") then
        sendmsg9(actor, "你的经脉已全部打通", "#ff0000")
        return false
    end

    local conf = qjbmdata[title]
    if not conf then
        sendmsg9(actor, "你奇经八脉的称号不存在！")
        return false
    end

    -- 检查是否满足奇经八脉条件
    if not check_requirements(actor, conf) then
        return false
    end

    -- 扣除元宝和物品
    if not (subyb(actor, conf.yb, "NPC奇经八脉消耗元宝") and 
            takeitemex(actor, "烛龙之睛", conf.items["烛龙之睛"], 0, "奇经八脉烛龙之睛") and
            takeitemex(actor, "魔魂内丹", conf.items["魔魂内丹"], 0, "奇经八脉魔魂内丹")
        ) then
        sendmsg9(actor, "扣除材料失败，无法打通经脉！")
        return false
    end

    -- 删除掉上一级奇经八脉称号
    if conf.old_title then
        deprivetitle(actor, conf.old_title)
    end

    if confertitle(actor, title) then
        sendmsg9(actor, string.format("恭喜你成功获得奇经八脉称号〖%s〗", title), "#ff00ff")
        sendmsg0(actor, string.format("恭喜[%s]成功打通[%s)>]，实力得到更进一步的增强！", getname(actor), title), 253, 0)
        local npc = getcurrnpc(actor)
        if npc then
            opennpcshow(actor, getnpcindex(npc), 10)
        end
    else
        sendmsg9(actor, "奇经八脉给予称号失败！")
    end

end

奇经八脉

Mmeinvwudi

Mmeinvwudi