108 lines
3.4 KiB
Lua
108 lines
3.4 KiB
Lua
function FreeSaMenu(meindex, index)
|
|
-- char.TalkToCli(meindex, -1, char.getWorkInt(meindex,"NPC临时3"), "绿色")
|
|
local 战模 = char.getWorkInt(meindex,"战斗");
|
|
parameter = {meindex}
|
|
if index == 11 then
|
|
if 战模 ==0 then
|
|
char.Encounter(meindex)
|
|
char.TalkToCli(meindex, -1, "开启原地遇敌！", "红色")
|
|
else
|
|
char.TalkToCli(meindex, -1, "您已经战斗中！", "红色")
|
|
end
|
|
elseif index == 12 then
|
|
char.ClearEncounter(meindex);
|
|
char.TalkToCli(meindex, -1, "关闭原地遇敌！", "红色")
|
|
elseif index == 13 then
|
|
if 战模 == 0 then
|
|
other.CallFunction("CheckTalked", "data/ablua/npc/check/check.lua", parameter)
|
|
end
|
|
-- other.CallFunction("ShowHead", "data/ablua/npc/vipshop/vipshop.lua", parameter)
|
|
elseif index == 14 then
|
|
other.CallFunction("QueryMissionTalked", "data/ablua/npc/querymission/querymission.lua", parameter)
|
|
elseif index == 16 then
|
|
other.CallFunction("FreeDataInfoShow", "data/ablua/freedatainfoshow.lua", parameter)
|
|
elseif index == 17 then
|
|
lssproto.SaMenu(meindex, index, "http://www.stoneage.es")
|
|
elseif index == 18 then
|
|
lssproto.SaMenu(meindex, index, "http://www.stoneage.es/forum.php")
|
|
elseif index == 19 then
|
|
lssproto.SaMenu(meindex, index, "http://www.stoneage.es/pay.php")
|
|
elseif index == 20 then
|
|
char.setWorkInt(meindex,"NPC临时3",1)
|
|
other.CallFunction("OnlineService", "data/ablua/npc/onlineservice/onlineservice.lua", parameter)
|
|
elseif index == 21 then
|
|
lssproto.SaMenu(meindex, index, "http://www.stoneage.es/forum.php?mod=viewthread&tid=54&extra=page%3D1")
|
|
elseif index == 22 then
|
|
lssproto.SaMenu(meindex, index, "http://www.stoneage.es/bbs/forum.php?mod=viewthread&tid=226")
|
|
elseif index == 30 then--切换队长
|
|
if char.getWorkInt(meindex, "组队") == 1 then
|
|
转移动伍[meindex]={};
|
|
local 队员名 = "";
|
|
local 计数=0;
|
|
for i=1,4 do
|
|
local 队员索引 = char.getWorkInt(meindex, "队员" .. i+1)
|
|
if char.check(队员索引) == 1 then
|
|
计数 = 计数 + 1;
|
|
转移动伍[meindex][计数] = 队员索引;
|
|
队员名 = string.format("%s %s\n",队员名,char.getChar(转移动伍[meindex][计数],"名字"));
|
|
end
|
|
end
|
|
local 内容 = "1 请选择新的队长\n"..队员名;
|
|
lssproto.windows(meindex, 2, 8, 0, char.getWorkInt( npcindex, "对象"), 内容)
|
|
else
|
|
char.TalkToCli(meindex, -1, "该功能需要队长权限", "红色")
|
|
end
|
|
else
|
|
char.TalkToCli(meindex, -1, "暂未开放", "红色")
|
|
end
|
|
end
|
|
|
|
|
|
function WindowTalked( NPC索引, 玩家索引, 序号, 按钮, 数据)
|
|
if 序号 == 0 then
|
|
local 选项 = tonumber(数据);
|
|
if 选项 > 0 and 选项 < 5 then
|
|
char.DischargeParty(玩家索引,0);
|
|
char.JoinParty(转移动伍[玩家索引][选项],玩家索引,0);
|
|
char.TalkToCli(转移动伍[玩家索引][选项], -1, "您的队友【"..char.getChar(玩家索引,"名字").."】把队长权力交给您！", "黄色")
|
|
char.TalkToCli(玩家索引, -1, "您成功把队长权力交给队友【"..char.getChar(转移动伍[玩家索引][选项],"名字").."】", "黄色");
|
|
for i =1,table.getn(转移动伍[玩家索引]) do
|
|
if i ~= 选项 then
|
|
char.JoinParty(转移动伍[玩家索引][选项],转移动伍[玩家索引][i],0);
|
|
end
|
|
end
|
|
char.Encounter(转移动伍[玩家索引][选项])
|
|
end
|
|
end
|
|
end
|
|
|
|
function Create(name, metamo, floor, x, y, dir)
|
|
npcindex = npc.CreateNpc(name, metamo, floor, x, y, dir)
|
|
char.setFunctionPointer(npcindex, "窗口事件", "WindowTalked", "")
|
|
end
|
|
|
|
function data()
|
|
转移动伍={};
|
|
--[[
|
|
|
|
11 原地遇敌
|
|
12 取消原地
|
|
13 支票制作
|
|
14 任务查询
|
|
16 个人信息
|
|
20 卡密使用
|
|
21 任务攻略
|
|
22 新手帮助
|
|
|
|
|
|
]]
|
|
|
|
|
|
end
|
|
|
|
function main()
|
|
data()
|
|
Create("查询宠物NPC临时", 100000, 777, 20, 21, 4);
|
|
end
|
|
|