GongFuServer/script/module/elf/ElfLogic.lua

-- 精灵系统

--db
--[=[
    human.db.elfData = {
        [elfId1] = {
            level = 0,
            star = 0,
        },
        [elfId2] = {
            level = 0,
            star = 0,
        },
    }

]=]--

local Msg = require("core.Msg")
local Lang = require("common.Lang")
local Broadcast = require("broadcast.Broadcast")
local ElfConfig = require("excel.elf")
local ItemConfig = require("excel.item").item
local Grid = require("bag.Grid")
local BagLogic = require("bag.BagLogic")
local Skill = require("combat.Skill")
local RoleAttr = require("role.RoleAttr")
local RoleDefine = require("role.RoleDefine")
local ObjHuman = require("core.ObjHuman")
local RoleSystemLogic = require("roleSystem.RoleSystemLogic")
local RoleSystemDefine = require("roleSystem.RoleSystemDefine")
local HuanJingTowerLogic = require("huanjingTower.HuanjingTowerLogic")


local ELF_UPGRADELV_LOG_TAG = "elfUpGradeLv"
local ELF_UPGRADESTAR_LOG_TAG = "elfUpGradeStar"
local ELF_COND_TOWER_LEVEL =  600


local function initElfData(human)
    human.db.elfData = {}
end

local function getElfData(human)
    return human.db.elfData
end

local function updateElfData(human, elfId, newLevel, newStar)
    local elfData = getElfData(human)
    if not elfData then
        initElfData(human)
        elfData = getElfData(human)
    end

    elfData[elfId] = elfData[elfId] or {level = 0, star = 0}

    if newLevel then
        elfData[elfId].level = newLevel
    end

    if newStar then
        elfData[elfId].star = newStar
    end
end



local function getNextStarCostCnt(nextStar)
    for _, starCfg in ipairs(ElfConfig.UpGradeStar) do
        if nextStar == starCfg.star then
            return starCfg.itemCnt
        end
    end

    return 0
end

local function generateCfgByQuality(targetQuality)
    local tbl = {}
    for id, cfg in ipairs(ElfConfig.Elf) do
        if cfg.elfQuality == targetQuality then
            tbl[id] = cfg
        end
    end

    if not next(tbl) then
        return nil
    end

    return tbl
end

local function getElfCfgById(targetElfId)
    for _, elfCfg in ipairs(ElfConfig.Elf) do
        if elfCfg.elfId == targetElfId then
            return elfCfg
        end
    end
end




local function populateMsgSimpleData(net, elfCfg, itemCfg, elfData)
    if not net or not elfCfg or not itemCfg then
        return
    end

    local elfNowLv = elfData and elfData.level or 0
    local elfNowStar = elfData and elfData.star or 0

    net.elfId = elfCfg.elfId
    net.elfName = itemCfg.name
    net.elfIcon = itemCfg.icon
    net.elfLv = elfNowLv
    net.elfStar = elfNowStar
    net.elfQuality = elfCfg.elfQuality
    net.maxLv = elfCfg.elfMaxLv
    net.maxStar = elfCfg.elfMaxStar

    local upGradeLvItemId = elfCfg.upGradeLvItemId
    local upGradeLvItemCnt = elfNowLv >= elfCfg.elfMaxLv and 0 or (elfNowLv + 1) * 3 + 2
    Grid.makeItem(net.elfUpGradeLvCost, upGradeLvItemId, upGradeLvItemCnt)

    local upGradeStarItemId = elfCfg.upGradeStarItemId
    local upGradeStarItemCnt = elfNowStar >= elfCfg.elfMaxStar and 0 or getNextStarCostCnt(elfNowStar+1)
    Grid.makeItem(net.elfUpGradeStarCost, upGradeStarItemId, upGradeStarItemCnt)
end

local function populateMsgSkill(skillDesc, taretSkillId)
    local skillCfg = Skill.GetSkillConfig(taretSkillId)
    skillDesc = skillCfg.desc
end

local function populateMsgAttr(attrNet, attrCfg, attrId, elfLv, isMax)
    attrNet.nowAttr.key = attrId
    attrNet.nowAttr.value = attrCfg[1] * elfLv + attrCfg[2]
    attrNet.addAtrr.key = attrId
    attrNet.addAtrr.value = attrCfg[1]
    if isMax then
        attrNet.addAtrr.value = 0
    end
end

local function populateMsgAttr2(attrNet, attrId, attrVal, elfStar, isMax)
    attrNet.nowAttr.key = attrId
    attrNet.nowAttr.value = attrVal * elfStar
    attrNet.addAtrr.key = attrId
    attrNet.addAtrr.value = attrVal
    if isMax then
        attrNet.addAtrr.value = 0
    end
end



--是否开启本系统
local function isOpen(human)
    local towerLevel = HuanJingTowerLogic.getTowerLevel(human)
    if towerLevel >= ELF_COND_TOWER_LEVEL then
        return true
    end
    return false
end
-- 重算战力
local function updatePower(human)
    RoleAttr.cleanHeroAttrCache(human)
    RoleAttr.doCalc(human)
    ObjHuman.sendAttr(human, RoleDefine.ZHANDOULI)
end
--红点判断
local function dotJudgment(human, cfgHtbl)
    local elfData = getElfData(human)
    for id, cfg in pairs(cfgHtbl) do
        local nowLevel, nowStar = 0, 0
        if elfData and elfData[id] then
            nowLevel = elfData[id].level
            nowStar = elfData[id].star
        end

        if nowLevel < cfg.elfMaxLv then
            nowLevel = nowLevel + 1
            local costItemCnt = nowLevel * 3 + 2
            if BagLogic.getItemCnt(human, cfg.upGradeLvItemId) >= costItemCnt then
                return true
            end
        end

        if nowStar < cfg.elfMaxStar then
            local upGradeStarCostCnt = getNextStarCostCnt(nowStar+1)
            if BagLogic.getItemCnt(human, cfg.upGradeStarItemId) >= upGradeStarCostCnt then
                return true
            end
        end
    end

    return false
end
-- 红点更新
local function updateDot(human, targetQuality)
    local cfgHtbl = generateCfgByQuality(targetQuality)

    -- 该品质的所有精灵不能升星和升级了
    if not dotJudgment(human, cfgHtbl) then
        local dotID = 0
        if type == 1 then
            dotID = RoleSystemDefine.ROLE_SYS_ID_2032
        elseif type == 2 then
            dotID = RoleSystemDefine.ROLE_SYS_ID_2033
        elseif type == 3 then
            dotID = RoleSystemDefine.ROLE_SYS_ID_2034
        else
            dotID = RoleSystemDefine.ROLE_SYS_ID_2035
        end

        --刷新单页
        RoleSystemLogic.onDot(human, dotID)
        --刷新入口处
        RoleSystemLogic.onDot(human, RoleSystemDefine.ROLE_SYS_ID_2031)
    end
end



-- 精灵加成
function doCalcHero(human, addAttrs)
    local elfData = getElfData(human)
    if not elfData then
        return
    end

    for elfId, singleElfData in pairs(elfData) do
        local elfCfg = getElfCfgById(elfId)
        if elfCfg then
            -- 等级加成
            if singleElfData.level > 0 then
                local atkVal = singleElfData.level * elfCfg.nAttack1[1] + elfCfg.nAttack1[2]
                local hpVal = singleElfData.level * elfCfg.nLife1[1] + elfCfg.nLife1[2]
                RoleAttr.updateValue(RoleDefine.ATK, atkVal, addAttrs)
                RoleAttr.updateValue(RoleDefine.HP, hpVal, addAttrs)
            end

            -- 星级加成
            RoleAttr.updateValue(RoleDefine.ATK, elfCfg.nAttack2 * singleElfData.star, addAttrs)
            RoleAttr.updateValue(RoleDefine.HP, elfCfg.nLife2 * singleElfData.star, addAttrs)
            RoleAttr.updateValue(RoleDefine.DEF, elfCfg.nDefense2 * singleElfData.star, addAttrs)
            RoleAttr.updateValue(RoleDefine.SPEED, elfCfg.nSpeed2 * singleElfData.star, addAttrs)
        end

    end
end

function isDot(human, dotConfig)
    if not isOpen(human) then
        return false
    end
    --入口处的红点判断
    if dotConfig.id == RoleSystemDefine.ROLE_SYS_ID_2031 then
        return dotJudgment(human, ElfConfig.Elf)
    else
        --单个分页的红点
        local elfQuality = 0
        if dotConfig.id == RoleSystemDefine.ROLE_SYS_ID_2032 then
            elfQuality = 1
        elseif dotConfig.id == RoleSystemDefine.ROLE_SYS_ID_2033 then
            elfQuality = 2
        elseif dotConfig.id == RoleSystemDefine.ROLE_SYS_ID_2034 then
            elfQuality = 3
        else
            elfQuality = 4
        end

        local cfgHtbl = generateCfgByQuality(elfQuality)
        if not cfgHtbl then
            return false
        end

        return dotJudgment(human, cfgHtbl)
    end
end

-- 是否激活了精灵
function IsActivateElf(human, elfId)
    if not isOpen(human) then
        return false
    end

    local elfData = getElfData(human)
    if not elfData or not elfData[elfId] then
        return false
    end

    return true
end

-- 获取精灵当前技能
function GetElfSkill(human, elfId)
    if not isOpen(human) then
        return
    end

    local elfData = getElfData(human)
    if not elfData or not elfData[elfId] then
        return
    end

    local elfNowStar = elfData[elfId].star
    local elfCfg = getElfCfgById(elfId)
    if not elfCfg then
        return
    end

    return elfCfg.skillArr[elfNowStar]
end


-- 请求某个品质的所有精灵的简单数据
function Elf_SimpleData_Query(human, targetElfQuality)
    if not isOpen(human) then
        return Broadcast.sendErr(human, Lang.COMMOM_NOT_ENABLED)
    end

    local msgRet = Msg.gc.GC_ELF_SIMPLEDATA_QUERY
    local elfArr = msgRet.elfArr
    elfArr[0] = 0
    local len = 0

    local elfData = getElfData(human) or {}

    for _, elfCfg in ipairs(ElfConfig.Elf) do
        if elfCfg.elfQuality == targetElfQuality then
            local elfId = elfCfg.elfId
            local itemCfg = ItemConfig[elfId]
            if itemCfg then
                len = len + 1
                populateMsgSimpleData(elfArr[len], elfCfg, itemCfg, elfData[elfId])
            end
        end
    end

    elfArr[0] = len
    Msg.send(msgRet, human.fd)
end

-- 请求某个精灵的详细数据
function Elf_SingleElf_Query(human, elfId)
    if not isOpen(human) then
        return Broadcast.sendErr(human, Lang.COMMOM_NOT_ENABLED)
    end

    local itemCfg = ItemConfig[elfId]
    local elfCfg = getElfCfgById(elfId)
    if not itemCfg or not elfCfg then
        return Broadcast.sendErr(human, Lang.COMMON_COMFIG_ERROR)
    end

    local elfData = getElfData(human) or {}
    local targetElfData = elfData[elfId]
    local msgRet = Msg.gc.GC_ELF_SINGLE_QUERY

    populateMsgSimpleData(msgRet.elfSimpleData, elfCfg, itemCfg, targetElfData)

    local elfNowLv = targetElfData and targetElfData.level or 0
    local elfNowStar = targetElfData and targetElfData.star or 0

    local elfSkillDataMsg = msgRet.elfSkillData

    elfSkillDataMsg.nowSkillDesc = ""
    local elfNowSkillId = elfCfg.skillArr[elfNowStar]
    local nowSkillCfg = Skill.GetSkillConfig(elfNowSkillId)
    if nowSkillCfg then
        elfSkillDataMsg.nowSkillDesc = nowSkillCfg.desc
    end

    elfSkillDataMsg.nextSkillDesc = ""
    local elfNextSkillId = elfCfg.skillArr[elfNowStar+1]
    local nextSkillCfg = Skill.GetSkillConfig(elfNextSkillId)
    if nextSkillCfg then
        elfSkillDataMsg.nextSkillDesc = nextSkillCfg.desc
    end

    elfSkillDataMsg.maxSkillDesc = ""
    local elfMaxSkillId = elfCfg.skillArr[#elfCfg.skillArr]
    local maxSkillCfg = Skill.GetSkillConfig(elfMaxSkillId)
    if maxSkillCfg then
        elfSkillDataMsg.maxSkillDesc = maxSkillCfg.desc
    end


    local isMaxLv, isMaxStar = false, false
    if elfNowLv >= elfCfg.elfMaxLv then
        isMaxLv = true
    end

    if elfNowStar >= elfCfg.elfMaxStar then
        isMaxStar = true
    end

    msgRet.elfLvAttrInfo[0] = 2
    populateMsgAttr(msgRet.elfLvAttrInfo[1], elfCfg.nAttack1, RoleDefine.ATK, elfNowLv, isMaxLv)
    populateMsgAttr(msgRet.elfLvAttrInfo[2], elfCfg.nLife1, RoleDefine.HP, elfNowLv, isMaxLv)

    msgRet.elfStarAttrInfo[0] = 4
    populateMsgAttr2(msgRet.elfStarAttrInfo[1], RoleDefine.HP, elfCfg.nLife2, elfNowStar, isMaxStar)
    populateMsgAttr2(msgRet.elfStarAttrInfo[2], RoleDefine.ATK, elfCfg.nAttack2, elfNowStar, isMaxStar)
    populateMsgAttr2(msgRet.elfStarAttrInfo[3], RoleDefine.DEF, elfCfg.nDefense2, elfNowStar, isMaxStar)
    populateMsgAttr2(msgRet.elfStarAttrInfo[4], RoleDefine.SPEED, elfCfg.nSpeed2, elfNowStar, isMaxStar)

    Msg.send(msgRet, human.fd)
end

-- 精灵升级
function Elf_UpGradeLv(human, elfId)
    if not isOpen(human) then
        return Broadcast.sendErr(human, Lang.COMMOM_NOT_ENABLED)
    end

    local elfCfg = getElfCfgById(elfId)
    if not elfCfg then
        return Broadcast.sendErr(human, Lang.COMMON_COMFIG_ERROR)
    end

    local elfData = getElfData(human) or {}
    local elfNowLv = elfData[elfId] and elfData[elfId].level or 0
    if elfNowLv >= elfCfg.elfMaxLv then
        return Broadcast.sendErr(human, Lang.COMMON_MAXLEVEL)
    end

    local upGradeLvItemId = elfCfg.upGradeLvItemId
    local upGradeLvItemCnt = elfNowLv == elfCfg.elfMaxLv and 0 or (elfNowLv + 1) * 3 + 2

    if BagLogic.getItemCnt(human, upGradeLvItemId) < upGradeLvItemCnt then
        return Broadcast.sendErr(human, Lang.COMMON_ITEM_NOT_ENOUGH)
    end

    BagLogic.delItem(human, upGradeLvItemId, upGradeLvItemCnt, ELF_UPGRADELV_LOG_TAG)

    updateElfData(human, elfId, elfNowLv+1)

    Elf_SingleElf_Query(human, elfId)

    updatePower(human)

    -- 红点刷新
    updateDot(human, elfCfg.elfQuality)
end

-- 精灵升星
function Elf_UpGradeStar(human, elfId)
    if not isOpen(human) then
        return Broadcast.sendErr(human, Lang.COMMOM_NOT_ENABLED)
    end

    local elfCfg = getElfCfgById(elfId)
    if not elfCfg then
        return Broadcast.sendErr(human, Lang.COMMON_COMFIG_ERROR)
    end

    local elfData = getElfData(human) or {}
    local elfNowStar = elfData[elfId] and elfData[elfId].star or 0
    if elfNowStar >= elfCfg.elfMaxStar then
        return Broadcast.sendErr(human, Lang.COMMON_MAXLEVEL)
    end

    local nextStar = elfNowStar+1
    local upGradeStarItemId = elfCfg.upGradeStarItemId
    local upGradeStarItemCnt = getNextStarCostCnt(nextStar)
    if upGradeStarItemCnt == 0 then
        return Broadcast.sendErr(human, Lang.ELF_MAX_STAR)
    end

    if BagLogic.getItemCnt(human, upGradeStarItemId) < upGradeStarItemCnt then
        return Broadcast.sendErr(human, Lang.COMMON_ITEM_NOT_ENOUGH)
    end
    BagLogic.delItem(human, upGradeStarItemId, upGradeStarItemCnt, ELF_UPGRADESTAR_LOG_TAG)

    updateElfData(human, elfId, nil, nextStar)

    Elf_SingleElf_Query(human, elfId)

    updatePower(human)

    -- 红点刷新
    updateDot(human, elfCfg.elfQuality)
end

-- 布阵界面, 请求精灵数据
function Elf_GetElfData_FromPosPage(human, targetElfQuality)
    local msgRet = Msg.gc.GC_ELF_POS_QUERY
    local elfArr = msgRet.elfArr
    elfArr[0] = 0
    local len = 0
    local elfData = getElfData(human) or {}

    for _, elfCfg in ipairs(ElfConfig.Elf) do
        if elfCfg.elfQuality == targetElfQuality then
            local elfId = elfCfg.elfId
            local itemCfg = ItemConfig[elfId]
            if itemCfg then
                len = len + 1
                local elfNowLv = elfData and elfData.level or 0
                local elfNowStar = elfData[elfId] and elfData[elfId].star or 0

                elfArr[len].elfId = elfId
                elfArr[len].elfName = itemCfg.name
                elfArr[len].elfIcon = itemCfg.icon
                elfArr[len].elfLv = elfNowLv
                elfArr[len].elfStar = elfNowStar
                elfArr[len].elfQuality = targetElfQuality
                elfArr[len].nowSkillDesc = ""
                elfArr[len].nowSkillIcon = ""
                
                local elfNowSkillId = elfCfg.skillArr[elfNowStar]
                local nowSkillCfg = Skill.GetSkillConfig(elfNowSkillId)
                if nowSkillCfg then
                    elfArr[len].nowSkillDesc = nowSkillCfg.desc
                    elfArr[len].nowSkillIcon = nowSkillCfg.icon
                end
            end
        end

    end

    elfArr[0] = len
    Msg.send(msgRet, human.fd)
end