寻路传送

meinvwudi


-- 寻路触发
local cfg_JinZhiChuanSong = include("QuestDiary/cfgcsv/cfg_JinZhiChuanSong.lua") --禁止传送的地图
function findpathbegin(actor)
    if getplaydef(actor, VarCfg["N$自动寻路禁止QF触发"]) == 1 then
        setplaydef(actor, VarCfg["N$自动寻路禁止QF触发"], 0)
        return
    end
    local mapid = getbaseinfo(actor, ConstCfg.gbase.mapid)
    -----------------------------------↓↓↓↓↓↓GM点击小地图传送↓↓↓↓↓↓-----------------------------------
    if getgmlevel(actor) >= 10 then
        local x = tonumber(getconst(actor, "<$ToPointX>")) or 0
        local y = tonumber(getconst(actor, "<$ToPointY>")) or 0
        if checkkuafu(actor) then
            FBenFuToKuaFuChuanSong(actor, getconst(actor, "<$ToPointX>"), getconst(actor, "<$ToPointY>"))
        else
            mapmove(actor, mapid, x, y)
        end
    end
    -----------------------------------↑↑↑↑↑↑GM点击小地图传送↑↑↑↑↑↑-----------------------------------
    local ChuanSongBuff = hasbuff(actor, 31049)
    if ChuanSongBuff then
        local buffTime = getbuffinfo(actor, 31049, 2)
        Player.sendmsgEx(actor, "传送提示#251|:#255|请在|" .. buffTime .. "秒#249|后再使用...")
    else
        local str = getconst(actor, "<$SCHARM>")
        if str ~= "" then
            local myName = getbaseinfo(actor, ConstCfg.gbase.name)
            if string.find(mapid, myName) then
                Player.sendmsgEx(actor, "副本地图禁止传送#249")
                return
            end
            local isBanChuanSong = cfg_JinZhiChuanSong[mapid]
            if isBanChuanSong then
                Player.sendmsgEx(actor, "当前地图禁止传送#249")
                return
            end
            local x = tonumber(getconst(actor, "<$ToPointX>")) or 0
            local y = tonumber(getconst(actor, "<$ToPointY>")) or 0
            if checkkuafu(actor) then
                FBenFuToKuaFuChuanSong(actor, getconst(actor, "<$ToPointX>"), getconst(actor, "<$ToPointY>"))
            else
                mapmove(actor, mapid, x, y)
            end
            local buffTime = 10
            if checktitle(actor, "至尊赞助") then
                buffTime = buffTime - 5
            end
            addbuff(actor, 31049, buffTime)
            if checkitemw(actor, "云履", 1) then --云履 使用传送功能增加[30%]移速3S
                changespeedex(actor, 1, 30, 3)
            end
        end
    end
end

--寻路中断
function findpathstop(actor)
    setplaydef(actor, VarCfg["N$自动寻路结束自动战斗"], 0)
end

--寻路结束
function findpathend(actor)
    if getplaydef(actor, VarCfg["N$自动寻路结束自动战斗"]) == 1 then
        setplaydef(actor, VarCfg["N$自动寻路结束自动战斗"], 0)
        startautoattack(actor)
        return
    end
end