绝壁刺激的一命模式玩法！

gtr1258

感谢大佬分享

sj88

这不是只能玩猎人么。。

aiyu_07

感谢大佬分享，谢谢了

不得了

这个好变态
我好喜欢

古恩达安

双刀探花 发表于 2024-6-8 21:48
普通版的，论坛搜一下就可以。
我这个只是扩展了这两个功能而已。

这个微调可以70 80
微调哪里能说一下吗？

双刀探花

古恩达安 发表于 2024-6-10 09:56
这个微调可以70 80
微调哪里能说一下吗？

--60解除一命

        if player:GetLevel() == 60 then
找到这个字段，改一下就可以了。

fsdsbbs

还是很感谢你的分享，不过这些都很过时了，现在我的LUA带，隔队长多远没有经验，5维加属性，5维掉钱，2分钟时时彩，多种玩法，当下流行的不变官方属性的情况下，开发新功能接驳官方，让他成一条线，而不是原汁原味的官方整活

ppgame

自己给自己找刺激

kissinger

    -- 新增功能：禁止非组队状态他人帮打和加血（治疗这个地方没有做细致优化）
    for i = 1, GetNumGroupMembers() do
        local groupMember = GetRaidRosterInfo(i)
        if groupMember and groupMember ~= player and IsSpellInRange(GetSpellInfo(48072), groupMember) == 1 then -- 48072是治疗法术ID
            return 0
        end
    end

关于这一段，测试了下有问题:
GetNumGroupMembers()  没有获取源对象,根本就通不过
GetRaidRosterInfo(i)  请问这个参数哪里来的?前面没有定义
这些函数服务器根本就没提供，如没有定制lua功能，是不通用的

给你一段改进方法供参考


                if player:GetGroup() then        --先处理组队情况下经验减益
                        for k, menber in pairs(player:GetGroup():GetMembers()) do
                                if player == menber then
                                --队员就是自己,啥也不干
                                elseif menber:GetLevel() > (player:GetLevel() + 5) or menber:GetLevel() == 70 then
                                        player:SendBroadcastMessage("队伍存在超过五级或满级的队员，已自动退组并损失本次经验")
                                        player:RemoveFromGroup()
                                        return 0
                                elseif player:GetPlayerIP() == menber:GetPlayerIP() then
                                        player:SendBroadcastMessage("队伍存在同IP的多个角色，获取的经验大幅度降低！")
                                        return amount/70
                                end
                        end
                else
                        -- 经验源45码内有额外玩家不得经验
                        if victim  then
                                local Plist = victim:GetPlayersInRange(45)
                                for k, v in pairs(Plist) do
                                        if v ~= player then                --有其他玩家在被杀怪45码内
                                                player:SendBroadcastMessage("经验源周边有额外玩家，不能获取经验...")
                                                return 0
                                        end
                                end

                        end
                end

kissinger

对于获取经验的判定,我改进了下方法,供大家参考

local function IsNotInGroup(rangeplay, members)
    for _, j in pairs(members) do
        if j == rangeplay then
            return false -- 如果找到了值，返回false
        end
    end
    return true -- 如果没有找到值，返回true
end

local function OnAddXP(event, player, amount, victim, source)
        if player:GetLevel() > 69 then return end         --满级无效
        local guid = player:GetGUIDLow()
        if oneLifePlayers[guid] then
                if oneLifePlayers[guid] == 3 then                 --乌龟模式只处理经验,不做其他限定
                        if source == 0 then
                                --player:SendBroadcastMessage("经验来源类型："..source.."，实际经验为："..amount/10)
                                return amount/10        --根据服务器经验设定倍率,在这里恢复默认
                        else
                                --player:SendBroadcastMessage("经验来源类型："..source.."，实际经验为："..amount/35)
                                return amount/35        --根据服务器经验设定倍率,在这里恢复默认
                        end
                end

                if player:GetGroup() then        --先处理组队情况下经验减益
                        local PGroupMem = player:GetGroup():GetMembers()
                        if victim then        --组队情况下,如果有经验源，且队伍外经验源45码内有非GM高等级玩家，则不得经验(可能存在队伍外辅助情况)
                                local PRangeList = victim:GetPlayersInRange(45)
                                for k, v in pairs(PRangeList) do
                                        if IsNotInGroup(v, PGroupMem) and v:GetLevel() > player:GetLevel() and v:GetGMRank() == 0 then --有队伍外非GM高等级玩家在被杀怪45码内
                                                player:SendBroadcastMessage("经验源周边有队伍外的高等级玩家，不能获取经验...")
                                                return 0
                                        end
                                end
                        end
                        for k, menber in pairs(PGroupMem) do
                                if player == menber then
                                --队员就是自己,啥也不干
                                elseif menber:GetLevel() > (player:GetLevel() + 5) or menber:GetLevel() == 70 then
                                        player:SendBroadcastMessage("队伍存在超过五级或满级的队员，已自动退组并损失本次经验")
                                        player:RemoveFromGroup()
                                        return 0
                                elseif player:GetPlayerIP() == menber:GetPlayerIP() then
                                        player:SendBroadcastMessage("队伍存在同IP的多个角色，获取的经验大幅度降低！")
                                        local tmpamount = amount/70
                                        if tmpamount < 1 then tmpamount = 1 end        --避免1点经验都没有
                                        return tmpamount
                                end
                        end
                else        -- 非组队情况下，如果有经验源，且经验源45码内有非GM高等级玩家，则不得经验(可能存在非组队辅助情况)
                        if victim  then
                                local PRangeList = victim:GetPlayersInRange(45)
                                for k, v in pairs(PRangeList) do
                                        if v ~= player and v:GetLevel() > player:GetLevel() and v:GetGMRank() == 0 then                --有其他非GM高等级玩家在被杀怪45码内
                                                player:SendBroadcastMessage("经验源周边有高等级玩家，不能获取经验...")
                                                return 0
                                        end
                                end
                        end
                end

                if oneLifePlayers[guid] == 0 then
                        if source == 0 then
                                --player:SendBroadcastMessage("经验来源类型："..source.."，实际经验为："..amount/10)
                                return amount/5        --根据服务器经验设定倍率,在这里恢复默认
                        else
                                --player:SendBroadcastMessage("经验来源类型："..source.."，实际经验为："..amount/35)
                                return amount/17.5        --根据服务器经验设定倍率,在这里恢复默认
                        end
                elseif oneLifePlayers[guid] == 1 then
                        if source == 0 then
                                --player:SendBroadcastMessage("经验来源类型："..source.."，实际经验为："..amount/10)
                                return amount/10        --根据服务器经验设定倍率,在这里恢复默认
                        else
                                --player:SendBroadcastMessage("经验来源类型："..source.."，实际经验为："..amount/35)
                                return amount/35        --根据服务器经验设定倍率,在这里恢复默认
                        end               
                end
        else
                local PHaveItem = player:GetItemByEntry(DoubleRequire)
                if PHaveItem and PHaveItem:IsEquipped() then
                        return amount * 5           --非一命模式，且拥有变身法袍，则可获得5倍经验（匹配服务器变身法袍效果额外添加）
                end
        end
end