修复21.2a自带的 快速加点npc

ahsin

可能需求不高，但是bt服的玩家还是有需求的，虽然小男生cg只需鼠标长按不放开即可连点


但是
但是但是...


经过测试鼠标连点，每小时2万点左右。
我这里开的是超超超变态，50万点，需要加2天。

所以修复这个npc刻不容缓，哈哈哈哈哈


修改21.2a自带的Shortcut.lua，修复全部功能，并且添加剩余点数提示、可加点数提示、总共点数提示

------------------------------------------------------------------------------
------------------------------------------------------------------------------
--                 【【【基础NPC设置】】】
------------------------------------------------------------------------------
Delegate.RegInit("ShortcutNpc_Init");
Delegate.RegDelTalkEvent("Shortcut_TalkEvent");

function ShortcutNpc_Init()
        ShortcutNpc = NL.CreateNpc(nil, "Myinit");
        Char.SetData(ShortcutNpc,%对象_形象%,14722);
        Char.SetData(ShortcutNpc,%对象_原形%,14722);
        Char.SetData(ShortcutNpc,%对象_X%,247);
        Char.SetData(ShortcutNpc,%对象_Y%,92);
        Char.SetData(ShortcutNpc,%对象_地图%,1000);
        Char.SetData(ShortcutNpc,%对象_方向%,4);
        Char.SetData(ShortcutNpc,%对象_名字%,"快速加点");
        NLG.UpChar(ShortcutNpc);
        tbl_ShortcutNpc = tbl_ShortcutNpc or {}
        tbl_ShortcutNpc["ShortcutNpc"] = ShortcutNpc;
        Char.SetTalkedEvent(nil, "ShortcutNpc_Talked", ShortcutNpc);
        Char.SetWindowTalkedEvent(nil, "ShortcutNpc_WindowTalked", ShortcutNpc);
        return true;
end

function Myinit(_MeIndex)
        return true;
end

function ShortcutNpc_Talked( _MeIndex, _PlayerIndex, _Mode)
        local TalkBuf =        "4\\n◆哔哩快捷加点◆" ..
                        "\\n【测试】快速加点系统请谨慎使用" ..
                        "\\n当前加点模式不可以突破加点限制" ..
                        "\\n可以单项全部加点" ..
                        "\\n『快速体力加点』" ..
                        "\\n『快速力量加点』" ..
                        "\\n『快速耐力加点』" ..
                        "\\n『快速敏捷加点』"..
                        "\\n『快速魔力加点』" 
        TalkBuf =Shor_GAMsgFormat(TalkBuf);
        Shor_ShowGAWindowTalk(_PlayerIndex, 2, 2, 1,TalkBuf,_MeIndex);
        return ;
end

function Shor_ShowGAWindowTalk(_PlayerIndex,_Window, _Select,_Seqno,_Data,_MePtr)
        return NLG.ShowWindowTalked(_PlayerIndex,_MePtr,_Window,_Select,_Seqno,_Data);
end

function Shor_GAMsgFormat(Msg)
        local tMsg = Split(Msg,"\\n")
        local NewMsg=""
        for i=1,#tMsg do
                if tMsg[i]~="" and string.find(tMsg[i],"|")==nil then
                        NewMsg=NewMsg..Shor_strFormat(tMsg[i],45,2).."\\n"
                else
                        NewMsg=NewMsg..tMsg[i].."\\n"
                end
                
        end
        return NewMsg
end

function Shor_strFormat(str,str_len,str_type)
        if string.len(str)>str_len then
                str = string.sub(str,1,str_len)
        end
        if(str_type == 3) then
                str_tmp=string.format("%"..str_len.."s", str);
        elseif(str_type == 1) then
                str_tmp=string.format("%-"..str_len.."s", str);
        elseif(str_type == 2) then
                local tmp_splace=math.floor((str_len-string.len(str))/2)+string.len(str);
                str_tmp=string.format("%"..tmp_splace.."s", str);
                str_tmp=string.format("%-"..str_len.."s", str_tmp);
        end
        return str_tmp;
end

function Shortcut_TalkEvent(player,msg,color,range,size)
        if msg == "[ksjd]" then
                ShortcutNpc_Talked(tbl_ShortcutNpc["ShortcutNpc"], player, 0, 0, 0)
        end
end

function ShortcutNpc_WindowTalked( _MeIndex, _PlayerIndex, _Seqno, _Select, _Data)
        local CdKey = Char.GetData(_PlayerIndex, %对象_CDK%)
        local JBP = Char.GetData(_PlayerIndex, %对象_升级点%)--待加点数，正常显示
        local TL = (Char.GetData(_PlayerIndex,%对象_体力%))--已加点数*100，注意
        local LL = (Char.GetData(_PlayerIndex,%对象_力量%))--已加点数*100，注意
        local NL = (Char.GetData(_PlayerIndex,%对象_强度%))--已加点数*100，注意
        local MJ = (Char.GetData(_PlayerIndex,%对象_速度%))--已加点数*100，注意
        local MF = (Char.GetData(_PlayerIndex,%对象_魔法%))--已加点数*100，注意
        local lv = Char.GetData(_PlayerIndex,%对象_等级%);
        local maxd = ((lv - 1)*2)+15;
        local maxd1 = maxd*100
        local maxd2 = TL+LL+NL+MJ+MF+JBP*100--哔哩魔力算法，按照总点数来
        local maxd2 = maxd2/2--总点数除以2
        local maxd2 = tonumber(maxd2)
        local maxd3 = maxd2/100--准确显示单项最高加多少
        --print(maxd2)
        --print(JBP)
        --取消按钮
        if _Select==2 then
                return
        end
        
        if _Seqno==1 then
                local PlayerSelect = tonumber(_Data)
                --查询
                if PlayerSelect==1 then
                        local d1 = TL/100--已加点
                        local d2 = maxd3-d1--单项总-已加=还能加
                        local d3 = JBP-d1--剩余总-已加
                        if d2 < JBP then--如果还能加小于剩余
                        Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,13,"\n\n剩余点数为"..JBP.."，\n\n体力最多加"..maxd3.."点，已有"..d1.."点，还能加"..d2.."点！",_MeIndex);
                        else
                        Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,13,"\n\n剩余点数为"..JBP.."，\n\n体力最多加"..maxd3.."点，已有"..d1.."点，还能加"..JBP.."点！",_MeIndex);
                        end
                        return;
                end
                if PlayerSelect==2 then
                        --Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,14,"\n\n\n您好,欢迎使用力量加点\n\n\n您的当前剩余可加点数为"..JBP.."\n\n\n请合理安排！",_MeIndex);
                        local d1 = LL/100--已加点
                        local d2 = maxd3-d1--单项总-已加=还能加
                        local d3 = JBP-d1--剩余总-已加
                        if d2 < JBP then--如果还能加小于剩余
                        Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,14,"\n\n剩余点数为"..JBP.."，\n\n力量最多加"..maxd3.."点，已有"..d1.."点，还能加"..d2.."点！",_MeIndex);
                        else
                        Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,14,"\n\n剩余点数为"..JBP.."，\n\n力量最多加"..maxd3.."点，已有"..d1.."点，还能加"..JBP.."点！",_MeIndex);
                        end
                        return;
                end
                if PlayerSelect==3 then
                        --Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,15,"\n\n\n您好,欢迎使用耐力加点\n\n\n您的当前剩余可加点数为"..JBP.."\n\n\n请合理安排！",_MeIndex);
                        local d1 = NL/100--已加点
                        local d2 = maxd3-d1--单项总-已加=还能加
                        local d3 = JBP-d1--剩余总-已加
                        if d2 < JBP then--如果还能加小于剩余
                        Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,15,"\n\n剩余点数为"..JBP.."，\n\n耐力最多加"..maxd3.."点，已有"..d1.."点，还能加"..d2.."点！",_MeIndex);
                        else
                        Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,15,"\n\n剩余点数为"..JBP.."，\n\n耐力最多加"..maxd3.."点，已有"..d1.."点，还能加"..JBP.."点！",_MeIndex);
                        end
                        return;
                end
                if PlayerSelect==4 then
                        --Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,16,"\n\n\n您好,欢迎使用敏捷加点\n\n\n您的当前剩余可加点数为"..JBP.."\n\n\n请合理安排！",_MeIndex);
                        local d1 = MJ/100--已加点
                        local d2 = maxd3-d1--单项总-已加=还能加
                        local d3 = JBP-d1--剩余总-已加
                        if d2 < JBP then--如果还能加小于剩余
                        Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,16,"\n\n剩余点数为"..JBP.."，\n\n敏捷最多加"..maxd3.."点，已有"..d1.."点，还能加"..d2.."点！",_MeIndex);
                        else
                        Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,16,"\n\n剩余点数为"..JBP.."，\n\n敏捷最多加"..maxd3.."点，已有"..d1.."点，还能加"..JBP.."点！",_MeIndex);
                        end
                        return;
                end
                if PlayerSelect==5 then
                        --Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,17,"\n\n\n您好,欢迎使用魔法加点\n\n\n您的当前剩余可加点数为"..JBP.."\n\n\n请合理安排！",_MeIndex);
                        local d1 = MF/100--已加点
                        local d2 = maxd3-d1--单项总-已加=还能加
                        local d3 = JBP-d1--剩余总-已加
                        if d2 < JBP then--如果还能加小于剩余
                        Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,17,"\n\n剩余点数为"..JBP.."，\n\n魔法最多加"..maxd3.."点，已有"..d1.."点，还能加"..d2.."点！",_MeIndex);
                        else
                        Shor_ShowGAWindowTalk(_PlayerIndex,1,%按钮_确定%,17,"\n\n剩余点数为"..JBP.."，\n\n魔法最多加"..maxd3.."点，已有"..d1.."点，还能加"..JBP.."点！",_MeIndex);
                        end
                        return;
                end
        end

        if(tonumber(_Seqno)==13 and tonumber(_Select)==%按钮_确定% and _Data~="")then
                local dian = tonumber("".._Data.."");
                local jiadian = dian*100
                local td = Char.GetData(_PlayerIndex,%对象_体力%);
                local jd = jiadian+td
                if jd > maxd2 then
                        NLG.SystemMessage(_PlayerIndex, "[系统]超出体力加点范围。")
                        return;
                end
                if dian <= JBP and dian >= 0 then
                        Char.SetData(_PlayerIndex,%对象_体力%,TL+jiadian)
                        Char.SetData(_PlayerIndex,%对象_升级点%,JBP-dian)
                        NLG.UpChar(_PlayerIndex);
                        NLG.SystemMessage(_PlayerIndex, "[系统]加点完成:增加体力"..dian.."点,总体力"..(TL/100)+dian.."点。")
                else
                        NLG.SystemMessage(_PlayerIndex, "[系统]加点数不足，无法加点。")
                end
        end
        if(tonumber(_Seqno)==14 and tonumber(_Select)==%按钮_确定% and _Data~="")then
                local dian = tonumber("".._Data.."");
                local jiadian = dian*100
                local td = Char.GetData(_PlayerIndex,%对象_力量%);
                local jd = jiadian+td
                if jd > maxd2 then
                        NLG.SystemMessage(_PlayerIndex, "[系统]超出力量加点范围。")
                        return;
                end
                if dian <= JBP and dian >= 0 then
                        Char.SetData(_PlayerIndex,%对象_力量%,LL+jiadian)
                        Char.SetData(_PlayerIndex,%对象_升级点%,JBP-dian)
                        NLG.UpChar(_PlayerIndex);
                        NLG.SystemMessage(_PlayerIndex, "[系统]加点完成:增加力量"..dian.."点,总力量"..(LL/100)+dian.."点。")
                else
                        NLG.SystemMessage(_PlayerIndex, "[系统]加点数不足，无法加点。")
                end
        end
        if(tonumber(_Seqno)==15 and tonumber(_Select)==%按钮_确定% and _Data~="")then
                local dian = tonumber("".._Data.."");
                local jiadian = dian*100
                local td = Char.GetData(_PlayerIndex,%对象_强度%);
                local jd = jiadian+td
                if jd > maxd2 then
                        NLG.SystemMessage(_PlayerIndex, "[系统]超出强度加点范围。")
                        return;
                end
                if dian <= JBP and dian >= 0 then
                        Char.SetData(_PlayerIndex,%对象_强度%,NL+jiadian)
                        Char.SetData(_PlayerIndex,%对象_升级点%,JBP-dian)
                        NLG.UpChar(_PlayerIndex);
                        NLG.SystemMessage(_PlayerIndex, "[系统]加点完成:增加强度"..dian.."点,总强度"..(NL/100)+dian.."点。")
                else
                        NLG.SystemMessage(_PlayerIndex, "[系统]加点数不足，无法加点。")
                end
        end
        if(tonumber(_Seqno)==16 and tonumber(_Select)==%按钮_确定% and _Data~="")then
                local dian = tonumber("".._Data.."");
                local jiadian = dian*100
                local td = Char.GetData(_PlayerIndex,%对象_速度%);
                local jd = jiadian+td
                if jd > maxd2 then
                        NLG.SystemMessage(_PlayerIndex, "[系统]超出速度加点范围。")
                        return;
                end
                if dian <= JBP and dian >= 0 then
                        Char.SetData(_PlayerIndex,%对象_速度%,MJ+jiadian)
                        Char.SetData(_PlayerIndex,%对象_升级点%,JBP-dian)
                        NLG.UpChar(_PlayerIndex);
                        NLG.SystemMessage(_PlayerIndex, "[系统]加点完成:增加速度"..dian.."点,总速度"..(MJ/100)+dian.."点。")
                else
                        NLG.SystemMessage(_PlayerIndex, "[系统]加点数不足，无法加点。")
                end
        end

        if(tonumber(_Seqno)==17 and tonumber(_Select)==%按钮_确定% and _Data~="") then
                local dian = tonumber("".._Data.."");
                local jiadian = dian*100
                local td = Char.GetData(_PlayerIndex,%对象_魔法%);
                local jd = jiadian+td
                if jd > maxd2 then
                        NLG.SystemMessage(_PlayerIndex, "[系统]超出魔法加点范围。")
                        return;
                end
                if dian <= JBP and dian >= 0 then
                        Char.SetData(_PlayerIndex,%对象_魔法%,MF+jiadian)
                        Char.SetData(_PlayerIndex,%对象_升级点%,JBP-dian)
                        NLG.UpChar(_PlayerIndex);
                        NLG.SystemMessage(_PlayerIndex, "[系统]加点完成:增加魔法"..dian.."点,总魔法"..(MF/100)+dian.."点。")
                else
                        NLG.SystemMessage(_PlayerIndex, "[系统]加点数不足，无法加点。")
                end
        end
end

复制代码

魔力宝贝

辛苦了，点赞

lingjin3

感谢分享，辛苦啦

°Cayenne.S

这个是新框架才能使用吗？还是旧框架也可以使用.

rost01

thank you~~

ahsin

°Cayenne.S 发表于 2022-3-9 11:09
这个是新框架才能使用吗？还是旧框架也可以使用.

这个是老框架的，但是新老都可以使用。最近新老合并了好多，人要爆炸了，哈哈哈

dfgh

新框架 不能用老的可以....

ahsin

dfgh 发表于 2022-3-28 09:41
新框架 不能用老的可以....

可以用的哦