搜索
LUA

LUA

本版块未设置版块简介!请后台版块编辑添加。
  •  帖子: 115
  •  讨论: 115
  •  关注: 0

t.lua-踢出了队伍

GA 发表于 2025-5-10 02:28:29 | 显示全部楼层 |阅读模式
149 0
Delegate.RegInit("tInit");
Delegate.RegDelTalkEvent("tTalkEvent");
tbl_tnpc = tbl_tnpc or {};

function init_t_Init(index)
        return 1;
end

function tInit()
        if (tnpc == nil) then
                tnpc = NL.CreateNpc("lua/Module/t.lua", "init_t_Init");
                Char.SetData(tnpc,%对象_形象%,231088);
                Char.SetData(tnpc,%对象_原形%,231088);
                Char.SetData(tnpc,%对象_X%,84);
                Char.SetData(tnpc,%对象_Y%,84);
                Char.SetData(tnpc,%对象_地图%,777);
                Char.SetData(tnpc,%对象_方向%,4);
                Char.SetData(tnpc,%对象_原名%,"Tnpc");
                NLG.UpChar(tnpc);               
                Char.SetWindowTalkedEvent("lua/Module/t.lua","tnpcMsg", tnpc);
                tbl_tnpc["this"]=tonumber(tnpc);
        end
end


function tTalkEvent(player,msg,color,range,size)
       
        if( check_msg(msg,"[4]")) then                                               
                local leader = Char.GetPartyMember(player,0);
                if(leader ~= player or leader == -1)then
                        NLG.SystemMessage(player,"只有队长可以踢人。");
                        return;
                else
                        str_tWindow = "4|\\n\\n                         请问你要将谁踢出队伍?\\n                                                  \\n\\n";
                       
                for i=1,4 do
                        local this_player = Char.GetPartyMember(player,i);
                       
                        if(this_player == -1)then
                                str_tWindow = str_tWindow .. "                                                  无人\\n";
                        else
                                local name = Char.GetData(this_player,%对象_原名%);
                                str_tWindow = str_tWindow .. "                                                  "..name.."\\n";
                        end
                end               
                NLG.ShowWindowTalked(player,tonumber(tbl_tnpc["this"]),%窗口_选择框%,%按钮_关闭%,0,str_tWindow);
                end       
        end
end


function tnpcMsg(npc,player,_seqno,_select,_data)       
        if ((_select == 0 or _select == "0") and (_data ~= "")) then               
                local selectitem = tonumber(_data);                
                if (selectitem==nil or (selectitem~=nil and (selectitem > 4 or selectitem < 1))) then
                                NLG.ShowWindowTalked(player,npc,%窗口_信息框%,%按钮_关闭%,1,"\\n\\n\\n您所选择的位置不正常!");
                                return;
                end
                               
               
                local this_player = Char.GetPartyMember(player,selectitem);               
                if(this_player~=-1 and this_player~=nil)then
                        Char.DischargeParty(this_player);
                        local name = Char.GetData(this_player,%对象_原名%);
                        NLG.SystemMessage(player,"已经"..name.."踢出了队伍。");
                        NLG.SystemMessage(this_player,"您被队长踢出了队伍。");
                else
                        NLG.SystemMessage(player,"这个位置沒有玩家。");
                end
               
        end
end       



回复

使用道具 举报

全部评论

暂无评论,期待您打破宁静

TA的帖子
相关帖子
  • admin 2025-5-10

    #先到阿斯提亞鎮 打完UD找到NPC卡蓮 拿到給LBLS 的信 然後去打LBLS 再打完 LBLS以後 ...

  • admin 2025-5-10

    用本目录下文件"内容"覆盖服务器data目录下同名文件相应"内容" 请勿直接覆盖文件本身 ...

  • admin 2025-5-11

    ############## 城城的武器强化系统 ############## #剑1 block StrCmpChat == 700 W ...

  • admin 2025-5-11

    魔力宝贝手动架设中遇到的问题及解决方法魔力宝贝手动架设教程—魔力私服,魔力宝贝私 ...

  • admin 2025-5-12

    起始地点法兰城的竞技场的贝贝(34.36)头目战╳ 必要条件---必要等级Lv1 职业限定---建 ...

  • admin 2025-5-12

    1.与里谢里雅堡的H1N1防疫宣传员(28,77)说话,取得"防疫小口罩"。 图例物品名称等级种 ...

  • admin 2025-5-12

    魅惑的哈密瓜无取得宠物「哈密瓜公主」╳╳○ 起始地点魔法大学头目战╳ 必要条件--- ...

  • admin 2025-5-12

    起始地点法兰城的里谢里雅堡头目战○ 必要条件---必要等级--- 职业限定---建议等级--- ...

  • admin 2025-5-12

    起始地点法兰城的里谢里雅堡头目战○ 必要条件---必要等级--- 职业限定---建议等级--- ...

  • admin 2025-5-12

    起始地点法兰城的冒险者旅馆头目战○ 必要条件---必要等级--- 职业限定---建议等级LV8 ...

发布 联系QQ