【进阶实战】好友寻踪：好友所在地图的共享查询封装

local function setTraceable(actor, on)
    setplayvar(actor, 1, "Traceable", on and 1 or 0, 1)
    sendmsg(actor, 1, on and "行踪已对好友可见。" or "行踪已隐藏。")
end

local function findFriend(actor, friendName)
    local friend = getplayerbyname(friendName)
    local visible = false
    local mapName = "未知"
    if friend then
        if (tonumber(getplayvar(friend, 1, "Traceable")) or 1) == 1 then
            visible = true
            mapName = tostring(getplayvar(friend, 1, "CurMap") or "未知")
        end
    end
    if not visible then
        sendmsg(actor, 1, friendName .. " 的行踪不可知。")
        return
    end
    sendmsg(actor, 1, friendName .. " 当前在 " .. mapName)
end