传送阵：主线解锁后票价按距递增

-- 错误：无解锁无票价，一键直达
function onPortal(p, target)
    mapmove(p, target, 50, 50)
end

local BASE_FEE = 50
local DIST_RATE = 0.2
local function onPortal(p, target)
    if not isUnlocked(p, target) then
        sendmsg(p, 1, "推进主线解锁此站点")
        return
    end
    local fee = math.floor(BASE_FEE
        + DIST_RATE * mapDist(me, target))
    if (getplayvar(p, "GOLD") or 0) < fee then
        sendmsg(p, 1, "路费不足，需 " .. fee)
        return
    end
    setplayvar(p, "GOLD", getplayvar(p, "GOLD") - fee)
    mapmove(p, target, 50, 50)
end