找回密码
 立即注册
查看: 375|回复: 0

[软件工具技巧] 唯有魔力之死亡竞技场LUA脚本

[复制链接]

78

主题

79

帖子

388

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
388
发表于 2018-9-11 11:32:30 | 显示全部楼层 |阅读模式
Delegate.RegInit("swjjc_Init");
Delegate.RegDelTalkEvent("swjjc_TalkEvent");


tbl_swjjc_goinfo = {};
tbl_win_user = {};                        --当前场次胜利玩家的列表
tbl_swjjc_begin = {};
tbl_swjjc_time ={};


tbl_swjjc_setting =
{
        zt = 0;
        first_round_user_max = 40;         --第一场次入选名额限制
        this_user_WinFunc = nil;
        WinFunc = nil;                                --当前场次所有玩家战斗结束后的回调函数
};

function swjjc_Init()
        inittable_swjjcStartNpc();
end

function inityddltable_swjjcStartNpc_Init(index)
        return 1;
end


function inittable_swjjcStartNpc()
        if (swjjcStartNpc == nil) then
                swjjcStartNpc = NL.CreateNpc("lua/Module/swjjc.lua", "inityddltable_swjjcStartNpc_Init");
                Char.SetData(swjjcStartNpc,%对象_形象%,231088);
                Char.SetData(swjjcStartNpc,%对象_原形%,231088);
                Char.SetData(swjjcStartNpc,%对象_X%,47);
                Char.SetData(swjjcStartNpc,%对象_Y%,49);
                Char.SetData(swjjcStartNpc,%对象_地图%,777);
                Char.SetData(swjjcStartNpc,%对象_方向%,4);
                Char.SetData(swjjcStartNpc,%对象_原名%,"死亡竞技场员");
                NLG.UpChar(swjjcStartNpc);
               
                --这里是与Npc说话的时候,调用ChangePassMsg函数
                Char.SetLoopEvent("lua/Module/swjjc.lua","swjjcStartNpcLoopEvent", swjjcStartNpc,10);
        end
         
end


function swjjcStartNpcLoopEvent(index)
        
        if(tbl_swjjc_begin["Loopbegin"] == true)then
                return;
        end
        tbl_swjjc_begin["Loopbegin"] = true;
        if(tbl_swjjc_begin["begin"]  == false)then
                tbl_swjjc_begin["Loopbegin"] = false;
                return;
        end


   for i,v in ipairs(tbl_win_user) do
      if(Char.GetData(v,%对象_战斗状态%) ~= 0)then
                tbl_swjjc_begin["Loopbegin"] = false;
        return;   
      end

   end

   tbl_swjjc_begin["begin"] = false;
   --local timec = os.time() - tbl_swjjc_time["time"];
   --if(timec <= 10)then
        --        NLG.SystemMessage(-1,"死亡竞技赛下一回合即将开始,剩余 "..tostring(10 - timec).."秒。");
        --        tbl_swjjc_begin["Loopbegin"] = false;
        --        return;
   --end

   def_round_start(tbl_win_user,"wincallbackfunc");
   tbl_swjjc_begin["Loopbegin"] = false;
   return;
end




--test
function swjjc_TalkEvent(player,msg,color,range,size)
        
        
        if(msg=="[bm]") then
                tbl_swjjc_setting.zt = 1;
        end
        if(msg=="[start]") then
                tbl_swjjc_setting.zt = 2;
                NLG.MapEffect(25290, 4, 0);

                local MapUser = NLG.GetMapPlayer(0,25290);
               
                for i,v in ipairs(MapUser)do
                --        NLG.SystemMessage(-1,Char.GetData(v,%对象_名字%));
                end
                --取消首战,即报名多少人,晋级则为一半名额
                tbl_swjjc_goinfo["round_count"] = 1;
                tbl_swjjc_goinfo["create_battle_count"] = 0;
                tbl_swjjc_goinfo["create_battle_count_bak"] = 0;
               
                setUser_WinFunc("user_WinFunc");
                tbl_swjjc_begin["begin"] = false;
                tbl_swjjc_begin["Loopbegin"] = false;
                --tbl_swjjc_time["time"] = os.time();
                def_round_start(MapUser,"wincallbackfunc");
               
        end
        
        if(msg=="[zt]") then
                local MapUser = NLG.GetMapPlayer(0,25290);
                for i,v in ipairs(MapUser)do
                --        NLG.SystemMessage(-1,Char.GetData(v,%对象_名字%).." 战斗状态:"..Char.GetData(v,%对象_战斗状态%));
                end
        end
        
        if(msg=="[initnpc]") then
                inittable_swjjcStartNpc();
        end
end



function wincallbackfunc(winuser)
        
        -- 如果没产生冠军
        
        --if(tonumber(#winuser) == 3)then
        --        NLG.SystemMessage(-1,"死亡竞技赛三强争霸赛即将开始,三强名单:");
        --        for i,v in ipairs(winuser)do
        --                NLG.SystemMessage(-1,Char.GetData(v,%对象_名字%));        
        --        end
        --        NLG.SystemMessage(-1,"=======================================");
        --end
        
        if(tonumber(#winuser) > 1)then
               
               
                for i,v in ipairs(winuser)do
                        if(VaildChar(v) == false)then
                                table.remove(winuser,i);
                        end
                end
               
               
                --飞走所有失败的玩家,可怜呀-----------------------------
                local MapUser = NLG.GetMapPlayer(0,25290);
                warpfailuser(MapUser,winuser,0,1000,93,102);
                -------------------------------------------------------
                --继续轮回咯
                tbl_win_user = {};
                tbl_win_user = winuser;
                tbl_swjjc_begin["begin"] = true;
                tbl_swjjc_begin["Loopbegin"] = false;
                --tbl_swjjc_time["time"] = os.time();
                --def_round_start(winuser,"wincallbackfunc");
                return;
        end
        
        -- 直到n次轮回过后,最终胜利一名玩家
        if(tonumber(#winuser) <= 1)then
               
                --飞走第二名玩家,可怜呀-----------------------------
                local MapUser = NLG.GetMapPlayer(0,25290);
                warpfailuser(MapUser,winuser,0,1000,162,130);
                -----------------------------------------------------
               
                NLG.MapEffect(25290, 4, 2);
                for _,v in pairs(winuser) do
                        
                        Char.GiveItem(v,520090,1);
                        NLG.SystemMessage(-1,"恭喜玩家:"..Char.GetData(v,%对象_名字%).."获得本次死亡竞技赛冠军。");
                        Char.Warp(v,0,1000,162,130);
                end
                tbl_swjjc_setting.zt = 0;
        end
end

function user_WinFunc(player,mc)
        NLG.SystemMessage(player,"恭喜您获胜,请耐心等待其他玩家结束战斗。");

end


function setUser_WinFunc(winfuncname)
        tbl_swjjc_setting.this_user_WinFunc = winfuncname;
end


--        函数功能:飞走失败的玩家
function warpfailuser(MapUser,winuser,floor,mapid,x,y)
        
        local failuser = delfailuser(MapUser,winuser);
        for _,tuser in pairs(failuser) do
                Battle.ExitBattle(tuser);
                Char.Warp(tuser,floor,mapid,x,y);
                NLG.SystemMessage(tuser,"您输了,感谢参与!");
        end
        
end


--        函数功能:获取战斗失败的玩家
function delfailuser(MapUser,winuser)
        for _,v in pairs(winuser)do
                for i,w in pairs(MapUser)do
                        if(v == w)then
                                MapUser = nil;
                        end
                end
        end
        
        return MapUser;
end


--        函数功能:打乱玩家列表(未完成)
function tablereset(_table)
        return  _table;
end



--[[ def_round_start
        函数功能: 每一回合的开始,第一回合不限制报名人数,前first_round_user_max名胜利者晋级,后面回合均所有战斗结束后晋级。
        如果有落单者,则直接晋级
        参数1)usertable:表示参与玩家的列表
            2)funcallback:当函数结束后执行的回调函数,即产生x强之后触发
            **funtcion callback(
                 参数一:table 参与的玩家
                )
]]
function def_round_start(usertable,callback)
        
        NLG.SystemMessage(-1,"死亡竞技赛 第:"..tbl_swjjc_goinfo["round_count"].."场开始。");
        -- 目前战斗场次自加
        tbl_swjjc_goinfo["round_count"] = tbl_swjjc_goinfo["round_count"] + 1;

        -- 打乱玩家阵列
        usertable = tablereset(usertable);
        -- 设置x强产生后的回调函数
        tbl_swjjc_setting.WinFunc = callback;
        -- 开始为玩家配对战斗
        
        --NLG.SystemMessage(-1,"====参与玩家====");
        --for i,v in ipairs(usertable)do
        --        NLG.SystemMessage(-1,Char.GetData(v,%对象_名字%));        
        --end
        
        --NLG.SystemMessage(-1,"================");
        
        
        local tbl_UpIndex = {};
        local tbl_DownIndex = {};
        -- 分出上下组
        for i = 1,tonumber(#usertable),2 do
        --        NLG.SystemMessage(-1,"i:"..i);
                table.insert(tbl_UpIndex,usertable);
                if(i + 1 > tonumber(#usertable))then
                        table.insert(tbl_DownIndex,-1);
                else
                        table.insert(tbl_DownIndex,usertable[i + 1]);
                end
        --        NLG.SystemMessage(-1,"xxxxx=======");
        --        NLG.SystemMessage(-1,Char.GetData(usertable,%对象_名字%));
        --        NLG.SystemMessage(-1,Char.GetData(usertable[i+1],%对象_名字%));
        end
        -- 清空胜利玩家列表        
        tbl_win_user = {};
        
        --开始战斗
        for j = 1,tonumber(#tbl_UpIndex) + 1,1 do
                --如果双方都掉线,则什么都不做,直接跳过
                if(VaildChar(tbl_UpIndex[j]) == false and VaildChar(tbl_DownIndex[j]) == false)then
                   --do nothing               
                --如果上方落单队员产生,则直接给予下方队员晋级
                elseif(VaildChar(tbl_UpIndex[j]) == false)then
                        table.insert(tbl_win_user,tbl_DownIndex[j]);
                        NLG.SystemMessage(tbl_DownIndex[j],"无人和你配对,你将直接晋级,请等待别人战斗结束。");
                --如果下方落单队员产生,则直接给予上方队员晋级
                elseif(VaildChar(tbl_DownIndex[j]) == false)then
                        table.insert(tbl_win_user,tbl_UpIndex[j]);
                        NLG.SystemMessage(tbl_UpIndex[j],"无人和你配对,你将直接晋级,请等待别人战斗结束。");
                --开战
                else
                        --NLG.SystemMessage(-1,"pk:"..Char.GetData(tbl_UpIndex[j],%对象_名字%).." VS "..Char.GetData(tbl_DownIndex[j],%对象_名字%));
               
               
                        local battleindex = Battle.PVP(tbl_UpIndex[j], tbl_DownIndex[j]);
                        
               
                        -- 当前场次创建战斗总计次,用于判断是否已经达到结束标准
                        tbl_swjjc_goinfo["create_battle_count"] = tbl_swjjc_goinfo["create_battle_count"] + 1;
                        Battle.SetWinEvent("lua/Module/swjjccback.lua", "def_round_wincallback", battleindex);


                end
               
               
        end
        tbl_swjjc_goinfo["create_battle_count_bak"] = tbl_swjjc_goinfo["create_battle_count"];

end






唯有魔力宝贝私服

唯有魔力宝贝私服
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2018-12-13 12:29 , Processed in 0.252946 second(s), 25 queries .

© 2001-2011 Powered by Discuz! X3.2. Theme By Yeei!

快速回复 返回顶部 返回列表