tszz-server/meta/userapi/lua/PlayerPkValue.lua

-- 玩家PK值功能
pk = {}

DropEquipType = { 1, 2, 3, 4, 5, 6, 7, 8, 9 }

---设置玩家pk值
---@param actor 玩家对象
---@param pkValue PK值
function pk.setpkvalue(actor, pkValue)
    --特定的线路不增加PK值
    local mapUid = getbaseinfo(actor, "unimapid")
    local mapInfo = getmapinfobyid(actor, mapUid)
    if not table.isNullOrEmpty(mapInfo) then
        local mapCfgId = table.getValue(mapInfo, "cfgid")
        local mapLine = table.getValue(mapInfo, "line")
        local pkLine = ConfigDataManager.getTableValue("cfg_map_line", "pkline", "id", mapCfgId)
        if not string.isNullOrEmpty(pkLine) then
            local pkLines = string.split(pkLine, "|")
            for _, line in pairs(pkLines) do
                if tonumber(mapLine) == tonumber(line) then
                    jprint("pk线路不增加PK值", mapUid, mapCfgId, mapLine, actor)
                    return
                end
            end
        end
    end

    setplaydef(actor, PlayerDefKey.pkValue.PK_VALUE, pkValue)
    -- 获取附近角色，给每一个角色发送对应角色PK值变化的消息
    local sendPlayerIds = {}
    local nearPlayers = getnarplayer(actor)
    if nearPlayers or #nearPlayers > 0 then
        for i = 1, #nearPlayers do
            sendPlayerIds[i] = nearPlayers[i].luaplayer
        end
        sendPlayerIds[#sendPlayerIds + 1] = actor
        if sendPlayerIds and #sendPlayerIds > 0 then
            for i = 1, #sendPlayerIds do
                sendluamsg(
                    sendPlayerIds[i],
                    LuaMessageIdToClient.PK_VALUE_CHANGE,
                    {
                        rid = actor,
                        pkValue = pkValue
                    }
                )
            end
        end
    else
        sendluamsg(
            actor,
            LuaMessageIdToClient.PK_VALUE_CHANGE,
            {
                rid = actor,
                pkValue = tonumber(pk.getpkvalue(actor))
            }
        )
    end
end

---获取指定玩家PK值
---@param actor 玩家对象
---@return PK值
function pk.getpkvalue(actor)
    local pkValue = getplaydef(actor, PlayerDefKey.pkValue.PK_VALUE)
    if not pkValue then
        return 0
    end
    return pkValue
end

---击杀玩家处理
---@param actor 攻击玩家对象
---@param diePlayer 死亡玩家对象
function pk.killplayerpkvaluehandle(actor, diePlayer)
    if RolandSeige.IsPlayerInRoland(actor) then
        return
    end
    -- 清除diePlayer身上存储的防卫时间信息
    setplaydef(diePlayer, PlayerDefKey.pkValue.LAST_ATTACK, {})
    -- 判断是否在防卫时间内击杀的玩家，如果在防卫时间内击杀玩家则不增加PK值
    local attackInfo = getplaydef(actor, PlayerDefKey.pkValue.LAST_ATTACK)
    local now = tonumber(getbaseinfo("now"))
    local defenseTime = ConfigDataManager.getTableValue("cfg_global", "value", "id", GlobalConfigId.DEFENSE_TIME)
    if attackInfo and next(attackInfo) then
        for index = 1, #attackInfo do
            if attackInfo[index].attackId == diePlayer then
                if defenseTime and now - tonumber(attackInfo[index].timeStamp) <= tonumber(defenseTime) then
                    gameDebug.print(actor:toString() .. "在防卫时间内击杀了" .. tostring(diePlayer) .. " 不增加PK值")
                    return
                end
            end
        end
    end
    -- 判断击杀的玩家是否是红名玩家，是红名玩家不增加PK值
    local redNameNeed = ConfigDataManager.getTableValue("cfg_pk_count", "redNameNeed", "id", 1)
    local diePlayerPkValue = pk.getpkvalue(diePlayer)
    if redNameNeed and redNameNeed ~= "" and diePlayerPkValue and tonumber(diePlayerPkValue) >= tonumber(redNameNeed) then
        gameDebug.print(actor:toString() .. "击杀了红名玩家" .. tostring(diePlayer) .. " 不增加PK值")
        return
    end

    -- 根据配表增加PK值
    local curPkValue = pk.getpkvalue(actor)
    if curPkValue and curPkValue ~= "" and curPkValue > 0 then
        local addByKill = 0
        local pkCountTable = ConfigDataManager.getList("cfg_pk_count")
        if pkCountTable or next(pkCountTable) then
            local maxPkValue = 0
            for i = 1, #pkCountTable do
                local nameColor = pkCountTable[i].namecolor
                local minPkValue = pk.getSplitByHash(nameColor)[1]
                maxPkValue = pk.getSplitByHash(nameColor)[2]
                if curPkValue >= tonumber(minPkValue) and curPkValue <= tonumber(maxPkValue) then
                    addByKill = pkCountTable[i].addbykill
                end
            end
            if tonumber(addByKill) == 0 and tonumber(curPkValue) > tonumber(maxPkValue) then
                addByKill = pkCountTable[#pkCountTable].addbykill
            end
            if addByKill == 0 then
                addByKill = pkCountTable[1].addbykill
            end
        end
        pk.setpkvalue(actor, tonumber(addByKill) + tonumber(curPkValue))
    else
        local addByKill = ConfigDataManager.getTableValue("cfg_pk_count", "addByKill", "id", 1)
        pk.setpkvalue(actor, addByKill)
    end
    local reduceByTime = ConfigDataManager.getTableValue("cfg_pk_count", "reduceByTime", "id", 1)
    local splitString = pk.getSplitByHash(reduceByTime)
    if splitString then
        setplaydef(actor, PlayerDefKey.pkValue.PK_REDUCE_TIME, splitString[1])
    else
        gameDebug.print("killplayerpkvaluehandle cfg_pk_count表reduceByTime is null")
        return
    end
end

---玩家被攻击处理
---@param actor 玩家对象
---@param fightParam 被攻击参数 caster：攻击者对象、target：被攻击者对象、mapid：地图id、skillid：技能id、skilllevel：技能等级、castertype：攻击者类型、targettype：被攻击者类型
function pk.underattackpkvaluehandle(actor, fightParam)
    -- 当玩家攻击玩家时进行后面的逻辑
    if fightParam.castertype and fightParam.targettype and fightParam.castertype == 1 and fightParam.targettype == 1 then
        local lastAttackInfo = getplaydef(actor, PlayerDefKey.pkValue.LAST_ATTACK)
        if not lastAttackInfo or lastAttackInfo == "" or not next(lastAttackInfo) then
            -- 没有玩家攻击时间信息存入新的
            local attackInfo = {
                attackId = fightParam.caster,
                timeStamp = tonumber(getbaseinfo("now"))
            }
            setplaydef(actor, PlayerDefKey.pkValue.LAST_ATTACK, attackInfo)
        else
            -- 有玩家攻击时间信息遍历判断是否已经存在攻击者id
            -- 如果存在，判断时间是否超时，如果超时存入新的时间戳
            local exists = false
            local now = tonumber(getbaseinfo("now"))
            local defenseTime =
                ConfigDataManager.getTableValue("cfg_global", "value", "id", GlobalConfigId.DEFENSE_TIME)
            for index = 1, #lastAttackInfo do
                if tonumber(lastAttackInfo[index].attackId) == tonumber(fightParam.caster) then
                    exists = true
                    local lastTime = lastAttackInfo[index].timeStamp
                    if defenseTime and (now - tonumber(lastTime)) > tonumber(defenseTime) then
                        table.remove(lastAttackInfo, index)
                        lastAttackInfo[#lastAttackInfo + 1] = {
                            attackId = fightParam.caster,
                            timeStamp = now
                        }
                        setplaydef(actor, PlayerDefKey.pkValue.LAST_ATTACK, lastAttackInfo)
                    end
                    break
                end
            end
            -- 如果不存在则存入
            if not exists then
                lastAttackInfo[#lastAttackInfo + 1] = {
                    attackId = fightParam.caster,
                    timeStamp = tonumber(getbaseinfo("now"))
                }
                setplaydef(actor, PlayerDefKey.pkValue.LAST_ATTACK, lastAttackInfo)
            end
        end
    end
end

---怪物击杀PK值处理
---@param actor 玩家对象
---@param monsterCfgId 怪物configId
---@param monsterLevel 怪物等级
function pk.killmonsterpkvaluehandle(actor, monsterCfgId, monsterLevel)
    local levelDiff = ConfigDataManager.getTableValue("cfg_pk_count", "levelDiff", "id", 1)
    local level = getbaseinfo(actor, "level")
    if tonumber(level) - tonumber(levelDiff) >= tonumber(monsterLevel) then
        return
    end
    local pkValue = pk.getpkvalue(actor)
    if pkValue and pkValue > 0 then
        local monsterType = ConfigDataManager.getTableValue("cfg_monster", "type", "id", monsterCfgId)
        local reduceByMonster = ConfigDataManager.getTableValue("cfg_pk_count", "reduceByMonster", "id", 1)
        local time = pk.getSplitByHash(reduceByMonster)
        if time and next(time) then
            local reduceTime = getplaydef(actor, PlayerDefKey.pkValue.REDUCE_TIME)
            if reduceTime and reduceTime ~= "" then
                setplaydef(
                    actor,
                    PlayerDefKey.pkValue.REDUCE_TIME,
                    tonumber(reduceTime) + tonumber(time[tonumber(monsterType)])
                )
            else
                setplaydef(actor, PlayerDefKey.pkValue.REDUCE_TIME, tonumber(time[tonumber(monsterType)]))
            end
        end
    end
end

---角色PK值心跳
---@param actor 玩家对象
function pk.SecondHeartPkValue(actor)
    local pkValue = pk.getpkvalue(actor)
    if pkValue and tonumber(pkValue) > 0 then
        local pkValueReduceTime = getplaydef(actor, PlayerDefKey.pkValue.PK_REDUCE_TIME)
        if pkValueReduceTime and tonumber(pkValueReduceTime) > 0 then
            local reduceTime = getplaydef(actor, PlayerDefKey.pkValue.REDUCE_TIME)
            if reduceTime and tonumber(reduceTime) > 0 then
                if tonumber(reduceTime) >= tonumber(pkValueReduceTime) then
                    setplaydef(
                        actor,
                        PlayerDefKey.pkValue.REDUCE_TIME,
                        tonumber(reduceTime) - tonumber(pkValueReduceTime)
                    )
                    setplaydef(actor, PlayerDefKey.pkValue.PK_REDUCE_TIME, 0)
                    pkValueReduceTime = 0
                else
                    setplaydef(
                        actor,
                        PlayerDefKey.pkValue.PK_REDUCE_TIME,
                        tonumber(pkValueReduceTime) - tonumber(reduceTime)
                    )
                    setplaydef(actor, PlayerDefKey.pkValue.REDUCE_TIME, 0)
                    return
                end
            else
                pkValueReduceTime = tonumber(pkValueReduceTime) - 5
                if pkValueReduceTime > 0 then
                    setplaydef(actor, PlayerDefKey.pkValue.PK_REDUCE_TIME, pkValueReduceTime)
                    return
                end
            end
        end
        if pkValueReduceTime and pkValueReduceTime <= 0 then
            local reduceByTime = ConfigDataManager.getTableValue("cfg_pk_count", "reduceByTime", "id", 1)
            local splitString = pk.getSplitByHash(reduceByTime)
            if splitString and next(splitString) then
                pk.setpkvalue(actor, pkValue - splitString[2])
                setplaydef(actor, PlayerDefKey.pkValue.PK_REDUCE_TIME, splitString[1])
            end
        end
    else
        return
    end
end

---免罪符使用PK值处理
---@param actor 玩家对象
---@param itemConfigId 道具configId
---@param count 数量
function pk.exonerationcharmpkvaluehnadle(actor, itemConfigId, count)
    local value =
        ConfigDataManager.getTableValue("cfg_global", "value", "id", GlobalConfigId.EXONERATION_CHARM_MINUS_COUNT)
    for i = 1, tonumber(count) do
        if itemConfigId == ItemConfigId.EXONERATION_CHARM then
            if value then
                local pkValue = pk.getpkvalue(actor)
                if pkValue and pkValue > 0 then
                    pkValue = tonumber(pkValue) - tonumber(value)
                    if pkValue < 0 then
                        pkValue = 0
                    end
                end
                pk.setpkvalue(actor, pkValue)
            end
        end
    end
end

---角色进入视野发送玩家的PK值
---@param actor 玩家对象
function pk.sendenterviewpkvalue(actor, targetPlayer)
    sendluamsg(
        targetPlayer,
        LuaMessageIdToClient.PK_VALUE_CHANGE,
        {
            rid = actor,
            pkValue = tonumber(pk.getpkvalue(actor))
        }
    )
    sendluamsg(
        actor,
        LuaMessageIdToClient.PK_VALUE_CHANGE,
        {
            rid = targetPlayer,
            pkValue = tonumber(pk.getpkvalue(targetPlayer))
        }
    )
    sendluamsg(
        actor,
        LuaMessageIdToClient.PK_VALUE_CHANGE,
        {
            rid = actor,
            pkValue = tonumber(pk.getpkvalue(actor))
        }
    )
end

---获取字符串井号切割后的结果
---@param str 原字符串
---@return 切割后的table
function pk.getSplitByHash(str)
    local data = string.split(str, "#")
    if data and next(data) then
        return data
    else
        return nil
    end
end

-- 玩家被击杀
function pk.PlayerDie(actor, dieInfo, killInfo)
    local killerType = killInfo.type
    if killerType ~= MapObjectType.PLAYER then
        return
    end
    local killerId = killInfo.id
    local killer = getactor(actor, killerId)
    local killerName = killInfo.name
    local mapCfgId = dieInfo.mapCfgId
    local pkValue = pk.getpkvalue(actor)
    -- 根据表数据获取掉落道具及掉落装备概率
    if not pkValue or pkValue == "" or pkValue <= 0 then
        return
    end
    local oneTable
    local pkCountTable = ConfigDataManager.getList("cfg_pk_count")
    if pkCountTable or next(pkCountTable) then
        for i = 1, #pkCountTable do
            local nameColor = pkCountTable[i].namecolor
            local minPkValue = pk.getSplitByHash(nameColor)[1]
            local maxPkValue = pk.getSplitByHash(nameColor)[2]
            if pkValue >= tonumber(minPkValue) and pkValue <= tonumber(maxPkValue) then
                oneTable = pkCountTable[i]
            end
        end
    end
    if oneTable == nil then
        return
    end
    local mapId = getbaseinfo(actor, "unimapid")
    local x = getbaseinfo(actor, "x")
    local y = getbaseinfo(actor, "y")
    -- 被击杀掉落道具
    local dropItem = string.split(oneTable.dropitem, "#")
    local itemCfgId = tonumber(dropItem[1])
    local count = tonumber(dropItem[2])
    local itemConfig = ConfigDataManager.getById("cfg_item", itemCfgId)
    if tonumber(itemConfig.type) == ItemType.EQUIP then
        -- 暂时不会配置装备
    else
        -- 非装备扣除数量然后地上生成
        local ownCount = getbagitemcountbyid(actor, itemCfgId)
        if ownCount < count then
            count = ownCount
        end
        if count > 0 then
            local dropTime = string.tonumber(ConfigDataManager.getTableValue("cfg_item", "dropTime", "id", itemCfgId)) + 1000
            removeitemfrombag(actor, itemCfgId, count, 0, 9999, "红名惩罚")
            throwitem(killer, mapId, x, y, 1, itemCfgId, count, dropTime, 3, 0)
            info("红名惩罚：玩家死亡掉落道具。", actor:toString(), itemCfgId, count)
            -- 发邮件
            local itemName = itemConfig.name
            sendconfigmailbyrid(actor, getbaseinfo(actor, "rid"), MailConfig.PK_DROP_ITEM, {}, killerName .. "#" .. count .. "#" .. itemName)
        end
    end
    -- 被击杀掉落穿戴装备概率
    local dropRate = string.tonumber(oneTable.dropequip) / 10000
    if math.selectRate(dropRate) then
        -- 先从背包找
        local isDroped = false
        local allItemInfo = getallbagiteminfo(actor)
        math.shuffleTable(allItemInfo)
        for _, oneItem in pairs(allItemInfo) do
            -- 装备且非绑定状态
            if oneItem.type == ItemType.EQUIP then
                if oneItem.isbind == false then
                    local equipCfgId = oneItem.cfgid
                    local subType = tonumber(ConfigDataManager.getTableValue("cfg_item", "subType", "id", equipCfgId))
                    if table.contains(DropEquipType, subType) then
                        isDroped = true
                        -- 从背包掉落道具
                        local dropTime = string.tonumber(ConfigDataManager.getTableValue("cfg_item", "dropTime", "id", equipCfgId)) + 1000
                        dropequip(actor, oneItem.id, killerId, dropTime)
                        info("红名惩罚：玩家死亡掉落装备。", actor:toString(), oneItem)
                        -- 发邮件
                        local equipName = ConfigDataManager.getTableValue("cfg_item", "name", "id", equipCfgId)
                        sendconfigmailbyrid(actor, getbaseinfo(actor, "rid"), MailConfig.PK_DROP_EQUIP, {}, killerName .. "#" .. equipName)
                        break
                    end
                end
            end
        end

        if not isDroped then
            -- 从穿戴栏找
            local allEquip = getputonequipinfo(actor)
            math.shuffleTable(allEquip)
            for _, oneEquip in pairs(allEquip) do
                if oneEquip.isbind == false then
                    if table.contains(DropEquipType, oneEquip.subtype) then
                        local equipCfgId = oneEquip.cfgid
                        local dropTime = string.tonumber(ConfigDataManager.getTableValue("cfg_item", "dropTime", "id", equipCfgId)) + 1000
                        dropequip(actor, oneEquip.id, killerId, dropTime)
                        info("红名惩罚：玩家死亡掉落装备。", actor:toString(), oneEquip)
                        -- 发邮件
                        local equipName = ConfigDataManager.getTableValue("cfg_item", "name", "id", equipCfgId)
                        sendconfigmailbyrid(actor, getbaseinfo(actor, "rid"), MailConfig.PK_DROP_EQUIP, {}, killerName .. "#" .. equipName)
                        break
                    end
                end
            end
        end
    end
end