Neighbor iterator v0.4

local function neighborInSequence(reference, lastNeighbor)
    local newNeighbor, costToNeighbor
    local x, y
    if not lastNeighbor then
        dX, dY = -1, 0
    else
        dX, dY = lastNeighbor.xTile - reference.xTile, lastNeighbor.yTile - reference.yTile
    end
    repeat
        dX, dY = -dY, dX
        if dY = -1 and lastNeighbor then
            return
        end
        newNeighbor = reference.parent[reference.yTile + dY][reference.xTile + dX]
    until newNeighbor
    if newNeighbor.isTraversable then
        costToNeighbor = 1
    else
        costToNeighbor = math.huge
    end
    return newNeighbor, costToNeighbor
end