local skynet = require "skynet"
local queue = require "skynet.queue"
local redishelper = require "redishelper"
local keysutils   = require "keysutils"
local dateutils   = require "dateutils"
local utils       = require "utils"
local redis       = require 'skynet.db.redis'
local mongo       = require 'skynet.db.mongo'
local settings    = require "settings"
local clublogic   = require "clublogic"

local skynet_node_name = ...
require "skynet.manager"
require "functions"

local CMD = {}

local db = {}
local rediscli = {}

local clubs = {}
local users = {}

local luaqueue = queue()


local function getServer(cluid)
    local club = clubs[cluid]
    local serverid = club.serverid
    return utils.getserver(serverid)
end

local function loadallclub()
    local page = 1
    while true do
        local s = (page - 1) * 100
        local ret = db[settings.club_mongodb_key.cname]:find():sort({ id = 1 }):skip(s):limit(100)
        if not ret:hasNext() then
            break
        end
        while ret:hasNext() do
            local club = ret:next()
            club._id = nil
            clubs[club.id] = club
            local ret1 = db[settings.club_member_mongodb_key.cname]:find({clubid = club.id}):sort({ id = 1 })
            while ret1:hasNext() do
                local member = ret1:next()
                member._id = nil
                users[member.uid] = member
            end
        end
        page = page + 1
    end
end

function CMD.create(clubid, club)
    local c = clubs[clubid]
    assert(c == nil, "create club error clubid = "..clubid)
    clubs[clubid] = club
    return "ok"
end


function CMD.save(clubid, club)
    local c = clubs[clubid]
    assert(c ~= nil, "club not found clubid = "..clubid)
    for k,v in pairs(club) do
        c[k] = v
    end
    local ok = db[settings.club_mongodb_key.cname]:update({["$set"]=club}, {id=clubid}, true)
    return "ok"
end


function CMD.saveuser(uid, user)
    local u = users[uid]
    assert(u == nil, "saveuser error uid = "..uid)
    users[uid] = user
    return "ok"
end



function CMD.incrclubexp(clubid)
    local club = clubs[clubid]
    assert(club~=nil, "俱乐部不存在")
    club.exp = club.exp + 30
    local lv = club.lv
    local cnf = clublogic.getconfbylv(lv)
    if club.exp >= cnf.exp then
        club.lv = club.lv + 1
        club.exp = math.max(0, club.exp-cnf.exp)
        local ok = db[settings.club_mongodb_key.cname]:update({["$set"]={exp=club.exp, lv=club.lv}}, {id=clubid}, true)
    else
        local ok = db[settings.club_mongodb_key.cname]:update({["$inc"]={exp=30}}, {id=clubid}, true)
    end
    return "ok"
end

--bossid 加1
function CMD.incrbossid(clubid)
    local club = clubs[clubid]
    assert(club~=nil, "俱乐部不存在")
    club.bossid = clubid.bossid + 1
    skynet.fork(function()
        local ok = db[settings.club_mongodb_key.cname]:upsert({["$inc"]={bossid=1}}, {id=clubid}, true)
        DEBUG("incrbossid upsert ok = ", ok)
    end)
    return "ok"
end


--加载俱乐部信息
function CMD.loadclubinfo(uid)
    local user = users[uid]
    if not user then
        return nil
    end
    local clubid = user.clubid
    local club = clubs[clubid]
    local cnf = clublogic.getconfbylv(club.lv)
    club.size = cnf.size
    club.max_exp = cnf.exp
    return club
end

function CMD.loadclubbyclubid(clubid)
    local club = clubs[clubid]
    local cnf = clublogic.getconfbylv(club.lv)
    club.size = cnf.size
    club.max_exp = cnf.exp
    return club
end

local function getplayers(clubid)
    local members = {}
    for userid, v in pairs(users) do
        if v.clubid == clubid then
            table.insert(members, v.uid)
        end
    end
    return members
end

function CMD.getrank(uid, serverid)
    local ranks = {}
    for clubid, club in pairs(clubs) do
        DEBUG("getrank club = ", DUMP(club))
        if tonumber(club.serverid) == tonumber(serverid) then
            local players = getplayers(clubid)
            local ok, zhanli = pcall(skynet.call, ".usercenterd", "lua", "getzhanlitotal", players)
            if not ok then
                zhanli = 0
            end
            local cnf = clublogic.getconfbylv(club.lv)
            club.size = cnf.size
            club.member_count = #players
            club.zhanli = zhanli
            table.insert(ranks, club)
        end
    end
    if #ranks <= 0 then
        return ranks, 0
    end

    local myrank = 0
    table.sort( ranks, function(a, b) return a.zhanli > b.zhanli end)
    local user = users[uid]
    if user then
        for i,v in ipairs(ranks) do
            if v.id == user.clubid then
                myrank = i
                break
            end
        end
    end
    return table.slice(ranks, 1, 100), myrank
end

--加载签到信息
function CMD.loadsignin(uid)
    local user = users[uid]
    local clubid = user.clubid
    local k = keysutils.club_signin_key(settings.appname, clubid, dateutils.getday())
    local is_signin = rediscli:zrank(k, uid) or 0
    return is_signin
end

function CMD.loadresearch(uid)
    local user = users[uid]
    local clubid = user.clubid
    local k = keysutils.club_research_key(settings.appname, uid)
    local researchs = rediscli:zrevrange(k, 0, -1, "WITHSCORES")
    return utils.redis_pack(researchs)
end

--加载俱乐部成员
function CMD.loadclubmembernum(clubid)
    local n = 0
    for userid, v in pairs(users) do
        if v.clubid == clubid then
            n = n + 1
        end
    end
    return n
end

--获取推荐俱乐部
function CMD.loadrecomclub(server)
    local recoms = {}

    for clubid, club in pairs(clubs) do
        local myserver = getServer(cluid)
        if myserver == server then
            local cnf = clublogic.getconfbylv(club.lv)
            club.size = cnf.size
            local n = CMD.loadclubmembernum(clubid)
            if club.size > n then
                club.max_exp = cnf.exp
                table.insert(recoms, club)
            end
        end
    end
    if #recoms > 0 then
        for i=1, 7 do
            recoms = table.shuffle(recoms)
        end
        recoms = table.slice(recoms, 1, 10)
    end
    return recoms
end


--搜索俱乐部
function CMD.searchclub(server, text)
    local recoms = {}
    for clubid, club in pairs(clubs) do
        local myserver = getServer(clubid)
        if myserver == server then
            if clubid == checknumber(text) or club.name == text then
                local cnf = clublogic.getconfbylv(club.lv)
                club.size = cnf.size
                club.max_exp = cnf.exp
                table.insert(recoms, club)
            end
        end
    end
    return recoms
end

--加载俱乐部成员
function CMD.loadclubmembers(clubid)
    local members = {}
    for userid, v in pairs(users) do
        if v.clubid == clubid then
            table.insert(members, v)
        end
    end
    return members
end


function CMD.signin(clubid, uid, signin_day)
    local k = keysutils.club_signin_key(settings.appname, clubid, dateutils.getday())
    rediscli:zadd(k, signin_day, uid)
    CMD.incrclubexp(clubid)
    return "ok"
end

function CMD.getsendmailnum(clubid, uid, signin_day)
    local k = keysutils.club_sendmailnum_key(settings.appname, clubid, dateutils.getday())
    return rediscli:get(k) or 0
end

function CMD.addsendmailnum(clubid)
    local k = keysutils.club_sendmailnum_key(settings.appname, clubid, dateutils.getday())
    return rediscli:incr(k)
end


-- --科技升级
-- function CMD.researchlvup(uid, id, lv)
--     local k = keysutils.club_research_key(appname, uid)
--     return redishelper.exec("zincrby", uid, k, lv, id)
-- end

-- --科技重置
-- function CMD.reset(uid, params)
--     local data = {}
--     for k, v in pairs(params) do
--         table.insert(data, v)
--         table.insert(data, k)
--     end
--     local k = keysutils.club_research_key(settings.appname, uid)
--     return redishelper.exec("zadd", uid, k, table.unpack(data))
-- end

--给我自己发送邮件
function CMD.sendmail2user(uid, clubid, bossid)
    skynet.fork(function()
        local id = skynet.call(".id_service", "lua", "genid", "mail")
        local mail = {
            id=id,
            tp="system",
            sender="系统",
            receiver=uid,
            status=0, --未读
            title="咸神试炼击败奖励",
            content="您已在咸神试练中成功完成对BOSS的最后一击，恭喜您获得以下最后一击奖励。",
            rewards = {
                {key="juntuanbi", value=3000}
            },
            created_at=dateutils.get_datetime()
        }
        skynet.send(".maild", "lua", "sendmail", uid, mail)
    end)
    return "ok"
end

--发送邮件给排行榜
function CMD.sendmail2rank(clubid, bossid)
    skynet.fork(function()
        local k = keysutils.club_bossharmrank_key(settings.appname, clubid, bossid)
        local res = rediscli:zrevrange(k, 0, -1, "WITHSCORES")
        local ret = utils.redis_pack(res)
        local rank = 1
        for k,v in pairs(ret) do
            local uid = math.floor(k)
            local id = skynet.call(".id_service", "lua", "genid", "mail")
            local mail = {
                id=id,
                tp="system",
                sender="系统",
                receiver=uid,
                status=0, --未读
                title="咸神试炼排名奖励",
                content="咸神试练中的boss已被击败，恭喜您获得第"..rank.."名的奖励",
                rewards = {
                    {key="juntuanbi", value=1200}
                },
                created_at=dateutils.get_datetime()
            }
            rank = rank + 1
            skynet.send(".maild", "lua", "sendmail", uid, mail)
        end
    end)
    return "ok"
end

--攻打boss
function CMD.attackboss(uid, clubid, bossid, harm)
    local k = keysutils.club_bossharm_key(settings.appname, clubid, bossid)
    local hm = rediscli:get(k)
    if tonumber(hm) >= 10000 then
        return  false, "俱乐部boss已经被击败" --重复击败
    end
    local k1 = keysutils.club_bossharmrank_key(settings.appname, clubid, bossid)
    rediscli:zincrby(k1, harm, uid)
    local hm = rediscli:incr(k, harm)
    if tonumber(hm) >= 10000 then
        CMD.incrbossid(clubid) --俱乐部bossID 加1
        CMD.sendmail2user(uid, clubid, bossid)
        CMD.sendmail2rank(clubid, bossid)
        return  true, "俱乐部boss已击败" --我击败
    end
    return true, "攻打boss成功"
end

--攻打boss排行
function CMD.loadharmrank(uid, clubid)
    local club = clubs[clubid]
    local bossid = club.bossid
    local k = keysutils.club_bossharm_key(settings.appname, clubid, bossid)
    local rank = rediscli:zrank(k, uid)
    local k = keysutils.club_bossharmrank_key(settings.appname, clubid, bossid)
    local res = rediscli:zrevrange(k, 0, -1, "WITHSCORES")
    return rank, utils.redis_pack(res)
end


skynet.start(function()
    skynet.dispatch("lua", function(_, _, command, ...)
        local f = assert(CMD[command])
        skynet.retpack(luaqueue(f, ...))
    end)

    --链接mongo
    local mongoconf     = settings.db_cnf[skynet_node_name].mongodb_cnf
    local client = mongo.client(mongoconf)

    if not client then
        error("usercenterd mongo 数据库连接失败")
    end

    local tname = settings.mongodb_tb.game
    db = client:getDB(tname)
    if not db then
        error("mongo 连接失败")
    end

    rediscli = redis.connect(settings.db_cnf[skynet_node_name].redisdb_cnf)

    if not rediscli then
        error(" rediscli 连接失败")
    end

    skynet.fork(function()
        while true do
            if true then
                db = client:getDB(tname)
                rediscli:ping()
                skynet.sleep(1000)
            end
        end
    end)

    local server_ids = settings.nodes[skynet_node_name].server_ids
    loadallclub()
    collectgarbage()
    skynet.register('.' .. SERVICE_NAME)
end)