求个每日副本lua

420400121 · 发表于 2024-11-3 08:32:08

可以设定每日可打几次哪种第二天自动刷新次数的

ahsin · 发表于 2024-11-3 15:03:30

你目前技术如何，方案有，你自己会改吗

420400121 · 发表于 2024-11-3 16:00:26

ahsin 发表于 2024-11-3 15:03
你目前技术如何，方案有，你自己会改吗

刚开始学看你视频一点点学呢

ahsin · 发表于 2024-11-3 18:10:34

每日任务模板

--模块类
local meiriModule = ModuleBase:createModule('meiri')
--加载模块钩子
function meiriModule:onLoad()
self:logInfo('load')
--self:regCallback('TalkEvent',Func.bind(self.wanjiashuohua,self))--玩家说话触发
--NL.RegTalkEvent(nil,'wanjiashuohua')
meirinpc = self:NPC_createNormal('每日npc',14592,{x=232,y=63,mapType=0,map=1000,direction=6})--创建npc
self:NPC_regTalkedEvent(meirinpc,Func.bind(self.mianxiangnpc,self))--面向npc触发
self:NPC_regWindowTalkedEvent(meirinpc,Func.bind(self.ckancf,self))--npc的弹窗的窗口按钮触发
end
local qdcs = {}--签到次数表
local qdr = {}--签到日表
function meiriModule:mianxiangnpc(meirinpc,player,seq,sel,data)--玩家面向npc时，触发window
tanchuang(player,meirinpc)
end
function tanchuang(player,meirinpc)--自己创建的函数
local xunxi = "@c\\n\\n\\n"
..'\\n你要签到吗？'
NLG.ShowWindowTalked(player,meirinpc,%窗口_信息框%,%按钮_是否%,player+65465,xunxi)
end
function meiriModule:ckancf(meirinpc,player,seq,sel,data)--npc的弹窗的窗口按钮触发
seq = seq or 0
sel = sel or 0
data = data or 0
--NLG.SystemMessage(player,'seq：'..seq..'，sel：'..sel..'，data：'..data)
if seq == player+65465 and sel == 8 then--玩家选了否
--NLG.SystemMessage(player,'不签到，来找我干嘛？')
NLG.ShowWindowTalked(player,meirinpc,%窗口_信息框%,%按钮_关闭%,player+78075,'@c\\n\\n\\n不签到，来找我干嘛？')
end
if seq == player+65465 and sel == 4 then--玩家选了是
local wanjiaqian = Char.GetData(player,%对象_金币%)
local wanjiagezi = Char.ItemSlot(player)
print('玩家道具栏：'..wanjiagezi)
if wanjiaqian > 900000 then
NLG.ShowWindowTalked(player,meirinpc,%窗口_信息框%,%按钮_关闭%,player+198075,'@c\\n\\n\\n你的钱太多了，本次签到失败。')
return
end
if wanjiagezi > 18 then
NLG.ShowWindowTalked(player,meirinpc,%窗口_信息框%,%按钮_关闭%,player+208075,'@c\\n\\n\\n你的东西多了，本次签到失败。')
return
end
local n,y,r = nyr()
local nowdate = n..y..r--202485
nowdate = tonumber(nowdate)
--签到次数[player] = 0
::again::
qdcs[player] = tonumber(Field.Get(player,'签到次数')) or 0--获取到签到次
qdr[player] = tonumber(Field.Get(player,'签到日')) or 0--获取到签到日
if qdr[player] ~= nowdate then--今天和上一次签到的日子不同
print('跑到这里了1')
--如果不同，那么就把次数清零
--把数据库里签到日改成今天
Field.Set(player,'签到日',n..y..r)
Field.Set(player,'签到次数',0)
goto again
end
if qdr[player] == nowdate then--今天和上一次签到的日子相同
print('跑到这里了2')
--那么就去判断签到次数
if qdcs[player] == 2 then--判断，签到次数，是不是2
print('跑到这里了3')
NLG.ShowWindowTalked(player,meirinpc,%窗口_信息框%,%按钮_关闭%,player+88075,'@c\\n\\n\\n你已经签到过2次了。')
end
if qdcs[player] < 2 then--判断，签到次数是否小于2
print('跑到这里了4')
Field.Set(player,'签到日',n..y..r)
Field.Set(player,'签到次数',qdcs[player] + 1)
NLG.ShowWindowTalked(player,meirinpc,%窗口_信息框%,%按钮_关闭%,player+98075,'@c\\n\\n\\n你已经签到成功'..(qdcs[player] + 1)..'次。')
Char.GiveItem(player,1,2)--给2把刀
Char.AddGold(player,100000)--给10万
end
end
end
end
function nyr()--自定义年月日的功能函数
local timestamp = os.time() -- 获取当前时间戳
local date_format = os.date("*t", timestamp) -- 将时间戳转换为日期表(table)
-- 打印年月日
print("年:", date_format.year)
print("月:", date_format.month)
print("日:", date_format.day)
local n = tonumber(date_format.year)--2024
local y = tonumber(date_format.month)--8
local r = tonumber(date_format.day)--5
return n,y,r
end
--function meiriModule:wanjiashuohua(player,msg)--玩家说话触发
--
-- return 1--必须留着
--end
--卸载模块钩子
function meiriModule:onUnload()
self:logInfo('unload')
end
return meiriModule

复制代码

420400121 · 发表于 2024-11-3 19:58:31

ahsin 发表于 2024-11-3 18:10
每日任务模板

谢谢我学着改改

xman · 发表于 2024-11-6 23:13:40

这个应该比较符合需求

--模块类
local Module = ModuleBase:createModule('taskWarp')
local count_Max = 2; --副本次数
--副本分类
local warp_map_name = {};
local warp_map_point = {};
local warp_map_lvlimit = {};
local warp_map_payfor = {};
--剩余次数计算
local warp_map_daily_user = {};
local warp_map_daily_user_count = {};
warp_map_daily_user_count[1] = {}; --个次数计算
warp_map_daily_user_count[2] = {}; --个次数计算
warp_map_daily_user_count[3] = {}; --个次数计算
warp_map_daily_user_count[4] = {}; --个次数计算
warp_map_daily_user_count[5] = {}; --个次数计算
warp_map_daily_user_count[6] = {}; --个次数计算
warp_map_name[1] = "十二星座副本";
warp_map_point[1] = {7324,10,14};
warp_map_lvlimit[1] = 100;
warp_map_payfor[1] = 20000;
warp_map_name[2] = "機甲魔獸";
warp_map_point[2] = {7339,22,26};
warp_map_lvlimit[2] = 150;
warp_map_payfor[2] = 20000;
warp_map_name[3] = "機甲靈裝";
warp_map_point[3] = {7340,22,26};
warp_map_lvlimit[3] = 150;
warp_map_payfor[3] = 20000;
warp_map_name[4] = "暗黑勢力";
warp_map_point[4] = {7341,16,20};
warp_map_lvlimit[4] = 150;
warp_map_payfor[4] = 20000;
warp_map_name[5] = "海之窟";
warp_map_point[5] = {20262,41,4};
warp_map_lvlimit[5] = 150;
warp_map_payfor[5] = 20000;
warp_map_name[6] = "陸之窟";
warp_map_point[6] = {20263,10,4};
warp_map_lvlimit[6] = 150;
warp_map_payfor[6] = 20000;
------------------------------------------------------------------------------------------------------------------------
--功能函数
function Time_Check(_obj) --判定是否一天时间已过
if (os.date("%d",_obj) ~= os.date("%d",os.time())) then
return true;
end
return false;
end
function Time_Out(player) --每日24点为判定超时
local _obj = warp_map_daily_user[Playerkey(player)];
--如果首次登录
if (_obj == nil) then
warp_map_daily_user[Playerkey(player)] = os.time();
return true;
else
return Time_Check(_obj);
end
end
function Playerkey(player)
if (player ~= nil) then
local fanhui1 = Char.GetData(player,CONST.CHAR_名字);
local fanhui2 = Char.GetData(player,CONST.CHAR_CDK);
if (fanhui1 == nil or fanhui2 == nil) then
if(fanhui2 == nil) then
fanhui2 = "bus"
end
end
return fanhui1..fanhui2;
else
return 1;
end
end
function mykgold(player,gold)
local tjb = Char.GetData(player,CONST.对象_金币);
tjb = tjb - gold;
if (tjb >= 0) then
Char.SetData(player,CONST.对象_金币,tjb);
NLG.UpChar(player);
NLG.SystemMessage(player,"交出了"..gold.." G魔幣。");
return true;
end
return false;
end
------------------------------------------------------------------------------------------------------------------------
--加载模块
function Module:onLoad()
self:logInfo('load')
local warpNPC = self:NPC_createNormal('副本管理员',14063,{x=226, y=84, mapType=0, map=1000, direction=6})
self:NPC_regWindowTalkedEvent(warpNPC,Func.bind(self.click,self))
self:NPC_regTalkedEvent(warpNPC,Func.bind(self.facetonpc,self))
end
local function calcWarp()--计算翻页
local page = math.modf(#warp_map_name/8) + 1
local remainder = math.fmod(#warp_map_name,8)
return page,remainder
end
function Module:click(npc,player,_seqno,_select,_data)--窗口中点击触发
local column = tonumber(_data)
local page = tonumber(_seqno)
local warpPage = page;
if (page==1000) then --回到主菜单
self:facetonpc(npc, player);
return;
end
local winMsg = "1|\\n這裡是副本管理系統，你...要去哪裡...讀取中...\\n";
local winButton = CONST.BUTTON_关闭;
local totalPage, remainder = calcWarp()
--上页16 下页32 取消2
if _select > 0 then
--多页按钮
if _select == 32 then
warpPage = warpPage + 1
if (warpPage == totalPage) or (warpPage == (totalPage - 1) and remainder == 0) then
winButton = 18 --上取消
else
winButton = 50 --上下取消
end
elseif _select == 16 then
warpPage = warpPage - 1
if warpPage == 1 then
winButton = 34 --下取消
else
winButton = 50 --上下取消
end
elseif _select == 2 then
warpPage = 1
return
end
--副本次数计算
if (Time_Out(player)) then
warp_map_daily_user[Playerkey(player)] = os.time();
for i=1,#warp_map_daily_user_count do --每日副本个别次数
warp_map_daily_user_count[i][Playerkey(player)] = nil;
end
end
--多页内容
local count = 8 * (warpPage - 1)
if warpPage == totalPage then
for i = 1 + count, remainder + count do
local tcount = warp_map_daily_user_count[i][Playerkey(player)];
if (tcount == nil) then
tcount = count_Max;
else
tcount = count_Max - tcount;
end
winMsg = winMsg .. " "..warp_map_name[i].." <金額"..warp_map_payfor[i].."G> 剩餘<"..tcount..">次\\n"
end
else
for i = 1 + count, 8 + count do
local tcount = warp_map_daily_user_count[i][Playerkey(player)];
if (tcount == nil) then
tcount = count_Max;
else
tcount = count_Max - tcount;
end
winMsg = winMsg .. " "..warp_map_name[i].." <金額"..warp_map_payfor[i].."G> 剩餘<"..tcount..">次\\n"
end
end
NLG.ShowWindowTalked(player,npc,CONST.窗口_选择框, winButton, warpPage, winMsg);
else
if (_seqno == 1 and select == CONST.按钮_关闭) then
return;
elseif (_seqno == 1 and column >= 1) then
--local selectitem = tonumber(_data);
local count = 8 * (warpPage - 1) + column;
local getlvlit = warp_map_lvlimit[count];
if (getlvlit > Char.GetData(player,CONST.CHAR_等级)) then --等级判定
NLG.SystemMessage(player, "您的等級不夠，"..getlvlit.."級再來吧！");
return;
end
if (Char.PartyNum(player)>1) then --组队判定
NLG.SystemMessage(player, "[系統]副本須要單人進行傳送！！");
return;
end
local getcountless = warp_map_daily_user_count[count][Playerkey(player)];
if (getcountless ==nil) then
getcountless = 0;
warp_map_daily_user_count[count][Playerkey(player)] = 0;
end
if (getcountless >= count_Max) then
local msg = "\\n\\n\\n@c您的次數已經用完了。"
NLG.ShowWindowTalked(player,npc,CONST.窗口_信息框,CONST.按钮_关闭, 1000, msg);
return;
end
if (mykgold(player, warp_map_payfor[count])) then
warp_map_daily_user_count[count][Playerkey(player)] = getcountless + 1;
Char.DischargeParty(player);
Char.Warp(player,0, warp_map_point[count][1], warp_map_point[count][2], warp_map_point[count][3]);
else
NLG.SystemMessage(player, "\\n\\n\\n您的魔幣不夠。");
return;
end
end
end
end
function Module:facetonpc(npc,player)
if NLG.CanTalk(npc,player) == true then
if (Time_Out(player)) then
warp_map_daily_user[Playerkey(player)] = os.time();
for i=1,#warp_map_daily_user_count do --每日副本个别次数
warp_map_daily_user_count[i][Playerkey(player)] = nil;
end
end
local winMsg = "1|\\n這裡是副本管理系統，你...要去哪裡...讀取中...\\n";
for i=1, 6 do
local tcount = warp_map_daily_user_count[i][Playerkey(player)];
if (tcount == nil) then
tcount = count_Max;
else
tcount = count_Max - tcount;
end
--对齐格式
local name_len = #warp_map_name[i];
if (name_len < 12) then
name_spacelen = 12 - name_len;
name_spaceMsg = " ";
for k = 1, math.modf(name_spacelen) do
name_spaceMsg = name_spaceMsg .." ";
end
else
name_spaceMsg = " ";
end
winMsg = winMsg .. " "..warp_map_name[i].. name_spaceMsg .."<金額"..warp_map_payfor[i].."G> 剩餘<"..tcount..">次\\n";
end
NLG.ShowWindowTalked(player,npc,CONST.窗口_选择框,CONST.按钮_关闭, 1, winMsg);
end
return
end
--卸载模块
function Module:onUnload()
self:logInfo('unload')
end
return Module

复制代码

420400121 · 发表于 2024-11-7 13:48:37

xman 发表于 2024-11-6 23:13
这个应该比较符合需求

感谢大佬

yuhan3440 · 发表于 2024-11-11 09:54:49

多谢大佬技术支持

ahsin · 发表于 2025-4-5 21:49:17

最新日交互npc脚本拓展
http://bbs.cnmlb.com:233/thread-310-1-1.html

		自动登录	找回密码
密码			立即注册

[提问/求助] 求个每日副本lua