FuLiDaTingOBJ = Up_BaseClass:new()
FuLiDaTingOBJ._name = "FuLiDaTingOBJ"

-- 配置文件
FuLiDaTingOBJ.cfg = {
    [1] = {
        xh = { { "元宝", 1680, 1 } },
        gives = Func.require("cfg_王者特权奖励"),
    },
    [2] = {
        { "神兽之精", 2, 819 },
        { "神兽之丹", 2, 819 },
        { "天命石", 2, 819 },
        { "荣誉会员", 1, 819 },
    },
    [3] = Func.require("cfg_每日限购"),
    [4] = Func.require("cfg_福利大厅装备回收"),
    [5] = Func.require("cfg_装备首爆"),
    [6] = Func.require("cfg_BOSS首杀"),
    [7] = Func.require("cfg_成长基金"),
    [8] = Func.require("cfg_福利大厅_累充奖励"),
    -- [7] = "CDK兑换",
}





local function FuLiDaTingOBJ_for()
    local sb_name = {}
    local boss_list = {}
    for i, v in ipairs(FuLiDaTingOBJ.cfg[5]) do
        sb_name[v.name] = {}
        sb_name[v.name].index = i
        sb_name[v.name].money = v.money
    end

    for i, v in ipairs(FuLiDaTingOBJ.cfg[6] or {}) do
        boss_list[v.name] = {
            index = i,
            cfg = v,
        }
    end
    return sb_name, boss_list
end


FuLiDaTingOBJ.Qzsb, FuLiDaTingOBJ.bosslist = FuLiDaTingOBJ_for()



---* 加入上线同步数据
Player.sycCfg[FuLiDaTingOBJ._name] = FuLiDaTingOBJ.cfg

function FuLiDaTingOBJ:main(page)
    local data = {}
    data.page = page
    Message:SubLink(actor, self._name .. "_main", data)
end

---* 每日充值领取
function FuLiDaTingOBJ:mrcz(actor, p1, p2, p3, data)
    local _falg = Player.getTLint(actor, VarCfg.Player.TL.int["每日充值领取"]) or 0
    if _falg > 0 then
        Func.sendmsg9(actor, "您已领取过了哦！")
        return
    end

    local meiri_money = Player.getTLint(actor, VarCfg.Player.TL.int["每日充值"]) or 0
    if meiri_money < 18 then
        Func.sendmsg9(actor, "您今日充值未达18元！")
        return
    end

    local cfg = {}
    for i, v in ipairs(self.cfg[2]) do
        if v[1] ~= "荣誉会员" then
            table.insert(cfg, v)
        end
    end
    Func.mailitem(actor, cfg, "每日充值")
    if checktitle(actor, "荣誉会员") then
        deprivetitle(actor, "荣誉会员")
    end
    if confertitle(actor, "荣誉会员", 0) then
        local now = os.date("*t")
        local next_day = {
            year = now.year,
            month = now.month,
            day = now.day + 1,
            hour = 0,
            min = 0,
            sec = 0
        }
        local tomorrow_midnight = os.time(next_day)
        changetitletime(actor, "荣誉会员", "=", tomorrow_midnight)
        Player.setTLint(actor, VarCfg.Player.TL.int["每日充值领取"], 1)
    end
end

---* 每日限购
function FuLiDaTingOBJ:mrxg(actor, p1, p2, p3, data)
    local id = data[1].id

    if not data or not id then
        return
    end

    local buy_num = Player.getkeycount(actor, VarCfg.Player.TL.str["每日限购"], id, "LT") or 0
    local cfg = self.cfg[3][id]
    if buy_num >= cfg.limitbuy then
        return Func.sendmsg9(actor, "[每日限购]:#70|您今日购买次数已满!")
    end
    if Func.takeitmes(actor, cfg.xh, true, true) then
        Func.mailitem(actor, cfg.gives, "每日限购")
        Player.setkeycount(actor, VarCfg.Player.TL.str["每日限购"], id, buy_num + 1, "LT")
    end
end

---* 王者特权
function FuLiDaTingOBJ:wztq(actor)
    local open = getflagstatus(actor, VarCfg.Falg_tequan) or 0
    if open > 0 then
        return Func.sendmsg9(actor, "您已开通特权！")
    end
    local cfg = self.cfg[1]
    if not cfg then
        return
    end

    local gives = {}
    for i, v in ipairs(cfg.gives) do
        table.insert(gives, { v.name, v.num, v.bind })
    end

    if Func.takeitmes(actor, cfg.xh, true, true) then
        Func.mailitem(actor, gives, "开通王者特权")
        setflagstatus(actor, VarCfg.Falg_tequan, 1)
        Player.confertitle(actor, "王者特权", 0)
        sendmsgnew(actor, 251, 0,
            string.format("<[王者特权]/FCOLOR=70>恭喜<[%s]/FCOLOR=249>成功开启<王者特权/FCOLOR=215>", Player.getname(actor)), 1, 3)
    end
end

---* 开通成长基金
function FuLiDaTingOBJ:czjjbuy(actor)
    if getflagstatus(actor, VarCfg.Falg_ChengZhang) > 0 then
        return Func.sendmsg9(actor, "您已开通成长基金！")
    end
    local _money = querymoney(actor, ConstCfg.sysMoney["元宝"])
    if _money >= 2880 then
        changemoney(actor, ConstCfg.sysMoney["元宝"], "-" ,2880,"开通成长基金",true)
        setflagstatus(actor, VarCfg.Falg_ChengZhang, 1)
        Func.mailitem(actor, self.cfg[7][1].gives, "成长基金")
        sendmsgnew(actor, 251, 0,
            string.format("<[成长基金]/FCOLOR=70>恭喜<[%s]/FCOLOR=249>成功开启<成长基金/FCOLOR=215>", Player.getname(actor)), 1, 3)
    else
        Func.sendmsg9(actor, "您的元宝不足2880！#215|")
    end
end



---* 领取成长基金
function FuLiDaTingOBJ:czjj(actor, p1, p2, p3, data)
    local id = data[1].id
    if not data or not id then
        return
    end

    if getflagstatus(actor, VarCfg.Falg_ChengZhang) == 0 then
        Func.sendmsg9(actor, "您未开通成长基金！")
        return
    end

    local open = Player.getkeycount(actor, VarCfg.Player.str["成长基金"], id) or 0
    if open > 0 then
        return Func.sendmsg9(actor, "[成长基金]:#70|您已领取过该档位!")
    end

    local cfg = self.cfg[7][id]
    if Func.checkcontion(actor, cfg.check, true, true) then
        Func.mailitem(actor, cfg.gives, "成长基金")
        Player.setkeycount(actor, VarCfg.Player.str["成长基金"], id, 1)
    end
end

---* 累充奖励领取
function FuLiDaTingOBJ:lcjl(actor, p1, p2, p3, data)
    local id = data[1].id
    if not data or not id then
        return
    end

    local cfg = self.cfg[8][id]
    if not cfg then
        return Func.sendmsg9(actor, "[累充奖励]:#70|配置不存在!")
    end

    ---* 检查是否已领取
    local claimed = Player.getkeycount(actor, VarCfg.Player.str["累充奖励"], id) or 0
    if claimed > 0 then
        return Func.sendmsg9(actor, "[累充奖励]:#70|该档位已领取!")
    end

    ---* 检查累计充值是否达标
    local totalRecharge = querymoney(actor, ConstCfg.sysMoney["累计充值"])
    if totalRecharge < cfg.price then
        return Func.sendmsg9(actor, string.format("[累充奖励]:#70|累计充值需达到#251|%d元#215|才可领取!", cfg.price))
    end

    ---* 发放奖励
    local gives = {}
    for _, v in ipairs(cfg.gives) do
        table.insert(gives, { v[1], v[2], v[3] })
    end
    Func.mailitem(actor, gives, "累充奖励")
    Player.setkeycount(actor, VarCfg.Player.str["累充奖励"], id, 1)
    sendmsgnew(actor, 251, 0,
        string.format("<[累充奖励]/FCOLOR=70>恭喜<[%s]/FCOLOR=249>累计充值达<[%d元]/FCOLOR=250>,领取累充奖励!", Player.getname(actor),
            cfg.price), 1, 3)
end

---* 装备回收

function FuLiDaTingOBJ:recycle(actor, p1, p2, p3, data)
    local id = data[1].id
    if not data or not id then
        return
    end

    local cfg = self.cfg[4][id]
    if not cfg then
        return
    end

    local num = Sys.getkeycount(VarCfg.sys.str["福利回收"], id) or 0
    if num >= cfg.num then
        return Func.sendmsg9(actor, "[装备回收]:#70|回收名额已满!")
    end

    local xh = {
        { cfg.name, 1, 0 }
    }
    if Func.takeitmes(actor, xh, true, true) then
        Func.mailitem(actor, cfg.gives, "福利大厅装备回收")
        Sys.setkeycount(VarCfg.sys.str["福利回收"], id, num + 1)
    end
end

local function FuLiDaTingOBJ_addbag(actor, itemMakeIndex, itemIndex, Info)
    local _falg = Item.getint(itemMakeIndex, VarCfg.item.int["首爆标识"]) or 0
    if _falg > 0 then
        return
    end

    if not FuLiDaTingOBJ.Qzsb[Info.name] then
        return
    end

    local cfg = FuLiDaTingOBJ.Qzsb[Info.name]


    local _b = Sys.getkeycount(VarCfg.sys.str["全区首爆"], cfg.index) or nil
    if _b ~= nil then
        return
    else
        Item.setint(itemMakeIndex, VarCfg.item.int["首爆标识"], 1)
        Player.addint(actor, VarCfg.Player.int["首爆统计"], cfg.money)
        Func.mailitem(actor, { { "绑定元宝", cfg.money, 0 } }, Info.name .. "-全区首爆")
        Sys.setkeycount(VarCfg.sys.str["全区首爆"], cfg.index, Info.player)
        sendmovemsg(actor, 0, 251, 0, 60, 1,
            string.format("<[全服首爆]:/FCOLOR=70>恭喜玩家<【%s】/FCOLOR=249>打到<【%s】/FCOLOR=215>奖励,获得%d元宝!", Info.player, Info
                .name, cfg.money))
    end
end
GameEvent.add(EventCfg.onAddBag, FuLiDaTingOBJ_addbag, FuLiDaTingOBJ)




----* BOSS首杀
local function _boss_shousha(actor, mon, itype, kill, monName, mapID)
    
    if FuLiDaTingOBJ.bosslist[monName] then
        local cfg = FuLiDaTingOBJ.bosslist[monName]

        if monName == "迷宫之主" and string.find(mapID,"先天秘境",1,true) ~= nil then
            mapID = "先天秘境"
        end

        if cfg and mapID == cfg.cfg.map then
            local _falg = Sys.getkeycount(VarCfg.sys.str["BOSS击杀"], cfg.index) or nil
            if not _falg then

                local PlayerName = Player.getname(actor)
                Sys.setkeycount(VarCfg.sys.str["BOSS击杀"], cfg.index, PlayerName)
                Func.mailitem(actor, cfg.cfg.gives, "BOSS首杀-" .. monName)

                local gives = {}
                for i, v in ipairs(cfg.cfg.gives) do
                    table.insert(gives, string.format("%sx%d", v[1], v[2]))
                end

                sendmsgnew(actor, 251, 0,
                    string.format("<[BOSS首杀]/FCOLOR=70>恭喜<%s/FCOLOR=253>成功击杀<%s/FCOLOR=215>,获得奖励:<%s/FCOLOR=254>",
                        PlayerName,
                        monName, table.concat(gives)), 1, 3)
            end
        end
    end
end
GameEvent.add(EventCfg.onKillMon, _boss_shousha, FuLiDaTingOBJ)



return FuLiDaTingOBJ