local MyLocal = {}
MyLocal.players = {}
MyLocal.time = 30
MyLocal.magicEffect = 124

local function stopMove(cid)
    if isCreature(cid) then
        MyLocal.players[cid] = nil
        setPlayerStorageValue(cid, "playerCanMoveDirection", 0)
        doCreatureSetNoMove(cid, false)
        doPlayerAddExaust(cid, "earth", "track", earthExausted.track)
    end
end

local function MoveAutomatic(cid, speed)
         if not isCreature(cid) then
            stopMove(cid)
            return false
         end

         if MyLocal.players[cid] == nil then
            return false
         end

         local time = MyLocal.players[cid].timeEnd
         local playerPos = getThingPos(cid)
         local posToGo = getPositionByDirection(playerPos, getCreatureLookDir(cid), 1)

         if getPlayerCanWalk({player = cid, position = posToGo, createTile = true, checkPZ = true, checkHouse = true, checkWater = true}) and not exhaustion.check(cid, "airtrapped") then
            doTeleportThing(cid, posToGo)
            doSendMagicEffect(playerPos, MyLocal.magicEffect)
            if time <= os.time() then
                stopMove(cid)
            else
                addEvent(MoveAutomatic, speed, cid, speed)
            end
        else
            stopMove(cid)
            return false
        end
end

local function formulaLevel(cid)
    local level = getPlayerLevel(cid)*1.3
    if level >= 200 then
        return 200
    else
        return level
    end
end

function onCastSpell(cid, var)
        if not isPlayer(cid) then
            return false
        end

        if getSpellCancels(cid, "earth") == true then
            return false
        end

        if getPlayerExaust(cid, "earth", "track") == false then
            return false
        end

        if MyLocal.players[cid] == nil then
            if getPlayerHasStun(cid) then
                doPlayerAddExaust(cid, "earth", "track", earthExausted.track)
                return true
            end
            local newPos = getPositionByDirection(getThingPos(cid), getCreatureLookDir(cid))
            if not getPlayerCanWalk({player = cid, position = newPos, createTile = true, checkPZ = true, checkHouse = true, checkWater = true}) then
                doPlayerSendCancelEf(cid, "It isn't possible use this fold here.")
                return false
            end
            MyLocal.players[cid] = {timeEnd = os.time()+MyLocal.time}
            MoveAutomatic(cid, 300-formulaLevel(cid))
            setCreatureNoMoveTime(cid, MyLocal.time*1000)
            workAllCdAndAndPrevCd(cid, "earth", "track", MyLocal.time, 1)
            setPlayerStorageValue(cid, "playerCanMoveDirection", os.time()+MyLocal.time)
            return true
         else
            doPlayerSendCancelEf(cid, "You're already using this fold.")
            return false
         end
end