996传奇三端引擎–实战-10-道具脚本处理挖宝(合成,验证,抽奖)

一、道具脚本系统架构设计

1.1 脚本挂载双模式

1.2 扩展变量存储结构

字段位置	数据类型	用途说明	示例值
1	int	系统保留	状态标识
2	string	地图标识	“map_001”
3	table	坐标{x,y}	{125, 340}
4	int	使用次数	3
5+	自定义	业务扩展	宝物类型等

二、挖宝功能全流程实现

2.1 碎片合成挖宝道具

-- 碎片合成处理器
function OnFragmentCompose(player, fragmentId)
    -- 检查碎片数量
    local count = player:GetItemCount(fragmentId)
    if count < 10 then
        SendSystemMsg(player, "需要10个碎片才能合成")
        return false
    end

    -- 扣除碎片
    player:RemoveItem(fragmentId, 10)
    
    -- 生成挖宝道具
    local treasureItem = CreateTreasureItem()
    
    -- 设置随机坐标
    local mapId = "map_ancient"
    local pos = GetRandomPosition(mapId)
    treasureItem:SetVar(2, mapId)  -- 存储地图ID
    treasureItem:SetVar(3, {
            x=pos.x, y=pos.y})  -- 存储坐标
    
    -- 添加到背包
    player:AddItem(treasureItem)
    SendSystemMsg(player, "合成挖宝道具成功！")
    return true
end

2.2 坐标验证机制

-- 使用挖宝道具
function UseTreasureItem(player, item)
    -- 获取存储的坐标
    local targetMap = item:GetVar(2)
    local targetPos = item:GetVar(3)
    
    -- 验证当前位置
    local currentMap = player:GetMapId()
    local currentPos = player:GetPosition()
    
    if currentMap ~= targetMap then
        SendSystemMsg(player, "请前往指定地图使用")
        return false
    end
    
    -- 计算距离(误差范围5个单位)
    local distance = math.sqrt(
        (currentPos.x - targetPos.x)^2 +
        (currentPos.y - targetPos.y)^2
    )
    
    if distance > 5 then
        SendSystemMsg(player, string.format(
            "距离目标点还有%d米", math.floor(distance)
        ))
        return false
    end
    
    -- 执行挖宝操作
    ExcavateTreasure(player, item)
    return true
end

三、抽奖算法与概率系统

3.1 多级抽奖实现

function ExcavateTreasure(player, item)
    -- 基础奖励
    GrantBaseReward(player)
    
    -- 抽奖机会(最多2次)
    local winCount = 0
    for i = 1, 2 do
        if RandomWinning(30) then  -- 30%中奖率
            GrantSpecialReward(player, i)
            winCount = winCount + 1
        end
    end
    
    -- 更新道具状态
    item:SetVar(4, item:GetVar(4) - 1)  -- 减少使用次数
    
    -- 特效反馈
    PlayTreasureEffect(player, winCount)
end

-- 概率计算核心算法
function RandomWinning(percent)
    -- 万分比计算
    local rand = math.random(1, 10000)
    return rand <= (percent * 100)
end

3.2 概率可视化配置

TreasureConfig = {
            
    baseRewards = {
            
        {
            id=1001, prob=4000}, -- 40% 金币
        {
            id=1002, prob=3000}, -- 30% 经验丹
        {
            id=1003, prob=2000}, -- 20% 强化石
        {
            id=1004, prob=1000}  -- 10% 宝石
    },
    specialRewards = {
            
        [1] = {
             -- 第一次中奖
            {
            id=2001, prob=5000}, -- 50% 装备
            {
            id=2002, prob=3000}, -- 30% 坐骑
            {
            id=2003, prob=2000}  -- 20% 翅膀
        },
        [2] = {
             -- 第二次中奖
            {
            id=3001, prob=7000}, -- 70% 材料
            {
            id=3002, prob=3000}  -- 30% 稀有道具
        }
    }
}

四、客户端提示优化方案

4.1 动态Tips生成

-- item.lua 修改点
function GetItemTips(item)
    local tips = BaseItemTips(item)
    
    -- 挖宝道具特殊处理
    if item:GetType() == "TREASURE" then
        local mapId = item:GetVar(2)
        local pos = item:GetVar(3)
        
        if mapId and pos then
            local mapName = GetMapName(mapId)
            tips = tips .. string.format(
                "
<color=yellow>挖宝地点：%s(%d,%d)</color>", 
                mapName, pos.x, pos.y
            )
        end
        
        local uses = item:GetVar(4) or 0
        tips = tips .. string.format("
<color=green>剩余次数：%d</color>", uses)
    end
    
    return tips
end

4.2 坐标引导特效

function ShowTreasureGuide(player, item)
    local mapId = item:GetVar(2)
    local targetPos = item:GetVar(3)
    
    -- 创建寻路标记
    local guideEffect = CreateEffect("guide_arrow")
    guideEffect:SetPosition(targetPos)
    guideEffect:SetMap(mapId)
    
    -- 小地图标记
    MiniMap.AddMarker(mapId, targetPos, "treasure_location")
    
    -- 距离提示定时器
    CreateTimer(5, 0, function()
        local dist = CalculateDistance(player, targetPos)
        if dist < 100 then
            FloatingText(player, string.format("宝藏距离：%d米", dist))
        end
    end)
end

五、怪物位置监听方案

5.1 特殊怪物位移检测

-- 全局怪物监听器
SpecialMonitors = {
            }

function StartMonitorMonster(monsterId)
    local monster = GetMonster(monsterId)
    if not monster then return end
    
    -- 记录初始位置
    local originPos = monster:GetPosition()
    local originMap = monster:GetMapId()
    
    -- 创建检测器
    local monitor = {
            
        monsterId = monsterId,
        origin = {
            map=originMap, pos=originPos},
        timer = CreateTimer(30, 0, function()
            CheckMonsterPosition(monsterId, originMap, originPos)
        end)
    }
    
    table.insert(SpecialMonitors, monitor)
end

function CheckMonsterPosition(monsterId, originMap, originPos)
    local monster = GetMonster(monsterId)
    if not monster then return end
    
    local currentMap = monster:GetMapId()
    local currentPos = monster:GetPosition()
    
    -- 计算位移距离
    local distance = 0
    if currentMap == originMap then
        distance = math.sqrt(
            (currentPos.x - originPos.x)^2 +
            (currentPos.y - originPos.y)^2
        )
    end
    
    -- 超过阈值触发事件
    if distance > 50 then
        OnMonsterMoved(monster, distance)
        StopMonitorMonster(monsterId)
    end
end

5.2 攻击触发检测（通用方案）

-- 怪物攻击回调
function OnMonsterAttacked(monster, player)
    local varKey = "origin_pos_"..monster:GetId()
    local origin = monster:GetTempVar(varKey)
    
    -- 首次攻击记录位置
    if not origin then
        origin = {
            
            map = monster:GetMapId(),
            pos = monster:GetPosition()
        }
        monster:SetTempVar(varKey, origin)
        return
    end
    
    -- 检测位移
    local currentMap = monster:GetMapId()
    local currentPos = monster:GetPosition()
    
    if currentMap ~= origin.map then
        HandleMonsterMapChanged(monster, origin.map, currentMap)
    else
        local distance = math.sqrt(
            (currentPos.x - origin.pos.x)^2 +
            (currentPos.y - origin.pos.y)^2
        )
        if distance > 100 then
            HandleMonsterMoved(monster, distance)
        end
    end
end

六、临时变量最佳实践

6.1 临时变量使用场景

变量类型	生命周期	适用场景	示例
会话临时变量	在线期间有效	连续操作状态记录	挖宝进度
战斗临时变量	战斗结束清除	战斗状态标记	BOSS特殊状态
场景临时变量	离开场景清除	场景谜题状态	机关激活状态
功能临时变量	功能结束时清除	小游戏积分	挖宝小游戏得分

6.2 临时变量操作API

-- 设置临时变量
player:SetTempVar("dig_progress", {
            
    step = 3,
    found = {
            1001, 1003}
})

-- 获取临时变量
local progress = player:GetTempVar("dig_progress")
if progress then
    Print("当前进度: "..progress.step)
end

-- 清除临时变量
player:ClearTempVar("dig_progress")

-- 跨会话存储(关闭服务器不保存)
player:SetSessionVar("treasure_map", mapData)

七、性能优化与调试技巧

7.1 变量存储优化策略

-- 错误示例: 频繁保存大对象
function OnPlayerMove(player)
    local pos = player:GetPosition()
    player:SetVar("last_pos", pos) -- 每次移动都保存
end

-- 优化方案: 使用临时变量
function OnPlayerMove(player)
    local pos = player:GetPosition()
    player:SetTempVar("last_pos", pos) -- 内存存储
end

-- 需要持久化时再保存
function OnPlayerLogout(player)
    local lastPos = player:GetTempVar("last_pos")
    if lastPos then
        player:SetVar("last_pos", lastPos)
    end
end

7.2 调试技巧

-- 1. 道具变量检查工具
function DebugItemVars(item)
    print("---- 道具变量调试 ----")
    for i=1, 10 do
        local var = item:GetVar(i)
        if var ~= nil then
            print(string.format("位置%d: %s", i, type(var)))
            if type(var) == "table" then
                PrintTable(var)
            else
                print(var)
            end
        end
    end
end

-- 2. 概率模拟器
function SimulateProbability(percent, times)
    local win = 0
    for i=1, times do
        if RandomWinning(percent) then
            win = win + 1
        end
    end
    print(string.format("理论概率: %.2f%% 实际概率: %.2f%%",
        percent, (win/times)*100))
end

-- 3. 坐标校验可视化
function VisualizePositionCheck(player, targetPos)
    -- 创建参考点
    CreateMarker(targetPos, "target_point")
    
    -- 显示距离
    CreateTimer(1, 0, function()
        local dist = CalculateDistance(player, targetPos)
        FloatingText(player, "距离: "..math.floor(dist))
    end)
end