[GP] Every_day.lua--日常活动脚本

[复制链接]
发表于 5 天前 | 显示全部楼层 |阅读模式
Base_everyday=Base_everyday or {}--日常脚本记录,使用方法:Base_everyday[playerindex]=day←登录时的日期(任务内置时间)

Global_Reg.RegLoginEvent("Luac_everyday_login");

function Luac_everyday_login(player)
        local job = Char.GetData(player, 51)
        if job~=540 then--不为佣兵
                local Base_day = tonumber(os.date("%d"))
                local tCdKey = Char.GetData(player, 2002)
                local tRegistNum = Char.GetData(player, 48)
                local tTabKey = tCdKey .. tRegistNum
                if Base_everyday[tTabKey] then
                        if Base_everyday[tTabKey][1]~=Base_day then
                                Base_everyday[tTabKey]={Base_day,0}--有几个任务就写几个0
                        end
                else
                        Base_everyday[tTabKey]={Base_day,0}--有几个任务就写几个0
                end
        end
        return 0
end


function Luac_everyday_Reset(tTabKey,Base_day)
        Base_everyday[tTabKey]={Base_day,0}--有几个任务就写几个0
end

function Every_day_down()
        local f = io.open("./lua/luatxt/day/daylog.txt","w+")
        local msg = ""
        local day = tonumber(os.date("%d"))
        for k,v in pairs(Base_everyday) do
                if v[1]==day then--过滤不上线的人
                        msg = msg..k..":"
                        for _,b in pairs(v) do--v是[tTabKey]={day,是否做过任务}
                                msg = msg..b..","
                        end
                        msg = msg.."\n"
                end
        end
        f:write(msg)
        f:close()
        return 0
end

function Luac_everyday_txt()
        local file = io.open("./lua/luatxt/day/daylog.txt", "r")
        for line in file:lines() do
                local ScapePack = splitplus(line,":")
                if ScapePack[2]~=nil then--文件内容存在
                        local tab = splitplus(ScapePack[2],",")
                        local tTabKey=ScapePack[1]
                        Base_everyday[tTabKey]={}
                        for x,y in pairs(tab) do
                                if y~="" then
                                        Base_everyday[tTabKey][x]=tonumber(y)
                                end
                        end
                end
        end
        file:close()
end

Luac_everyday_txt()

回复

使用道具 举报

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