人气地图：在线热度调节资源产出

-- 错误：计数只增不减，热度永远虚高
function enterMap(p, map)
    local k = "heat_" .. map
    setsysvar(k, (tonumber(getsysvar(k) or "0")) + 1)
end

local function decayHeat(map)
    local k = "heat_" .. map
    local h = tonumber(getsysvar(k) or "0")
    setsysvar(k, math.floor(h * 0.9))
end
local function yieldRate(map)
    local h = tonumber(getsysvar("heat_" .. map) or "0")
    if h > 500 then
        return 0.7
    elseif h < 50 then
        return 1.3
    end
    return 1
end