【后端接口】付费传送接口：比奇至沙巴克跳图的元宝计费与距离校验

local FEE, OPEN = 800, { ["sha"] = true, ["mengzhong"] = true }
function npc_teleport(actor, toMap)
    local player = class(actor)
    if not OPEN[toMap] then
        sendmsg(actor, 0, "该航线暂未开放")
        return
    end
    if player:checkitemw("金币", FEE) == false and getbaseinfo(actor, 6) < 40 then
        sendmsg(actor, 0, "40级以下免费，其余需金币" .. FEE)
        return
    end
    player:takeitem("金币", FEE)
    mapmove(actor, toMap, 0, 0)
end

function beginteleport(actor)
    local player = class(actor)
    sendmsg(actor, 0, "已抵达" .. player:getmap() .. "，返程费用800金币")
    playsound(actor, "tp_ok.wav")
end