turtle miner sender

local direction = 0                                     -- direction
local drapeauBedrock = false                    -- indicateur pour savoir si on est arrivé à la bedrock
local profondeur = 0                                    -- indique de combien on a creusé
local longueur = 9                                              -- indique la longueur (x) de la zone à miner
local largeur = 9                                               -- indique la largeur (y) de la zone à miner
local xPosition = 0                                             -- indique la position courante en x
local zPosition = 0                                             -- indique la position courante en z
local niveauFuelMini = 5                                -- niveau de déplacements auquel on doit refaire le plein de fuel
local niveauCharbonMini = 5                             -- quantité de charbons restants à laquelle on doit refaire le plein de charbon

local premierSlot = 4                                   -- premier slot où se trouve le minerai ramassé
local dernierSlot = 13                                  -- dernier slot à surveiller pour enclencher le vidage de l'inventaire
local enderchestSlot = 14                               -- slot où se trouve l'enderchest pour les minerais
local enderchestCharbonSlot = 15                -- slot où se trouve l'enderchest pour les minerais
local charbonSlot = 16                                  -- slot ou est stocké le charbon

local plan = {}                                                 -- tableau pour stocker les coordonnées relatives des puits de minage.

local args = {...}
local xDepart = tonumber(args[1])
local zDepart = tonumber(args[2])

local modem = peripheral.wrap("right")
modem.open(31998)

function compare_mine()                                 -- fonction qui compare et mine, tourne à droite et direction++

        local slot = 0
        local resultat = false

        for slot=1,3 do
                turtle.select(slot)
                if turtle.compare() or resultat then
                        resultat = true
                end
        end

        if resultat == false then
                turtle.dig()
                if turtle.getItemCount(dernierSlot) > 0 then  -- on vérifie si on doit vider l'inventaire de la tortue
                        print("vidage inventaire comp_mine; prof "..profondeur.." ; nbitem ds slot "..dernierSlot.." : "..turtle.getItemCount(dernierSlot).." ; ")
                        videInventaire()
                end
        end

        turtle.turnRight()
        direction=direction+1

end

function verifFuel()                                    -- vérifie si on a assez de fuel (déplacements) en réserve.
  -- 1 charbon = 96 deplacements
  -- On vérifie le niveau de fuel
        local niveauFuel = turtle.getFuelLevel()
        if (niveauFuel ~= "unlimited") then
                if (niveauFuel < niveauFuelMini) then
                        -- On a besoin de faire le plein
                        turtle.select(charbonSlot)
                        if turtle.getItemCount(charbonSlot) < niveauCharbonMini then
                                rechargeCharbon() -- on refait le plein de charbon
                        end
                        turtle.refuel(1) -- on recharge pour 96 deplacements
                end
        end
end

function rechargeCharbon()                              -- permet de refaire le plein en charbon

        turtle.dig()

        if turtle.getItemCount(dernierSlot-1) > 0 then  -- on vérifie si on doit vider l'inventaire de la tortue
                        print("vidage inventaire rech_charbon1; prof "..profondeur.." ; nbitem ds slot "..dernierSlot.." : "..turtle.getItemCount(dernierSlot).." ; ")
                        videInventaire()
        end

        turtle.select(enderchestCharbonSlot)
        turtle.place()
        turtle.select(charbonSlot)
        turtle.suck()

        turtle.select(enderchestCharbonSlot)
        turtle.dig()

end

function videInventaire()                               -- vide l'inventaire de la tortue dans l'enderchest dédié à ça

        local slot
        turtle.dig()
        turtle.select(enderchestSlot)
        turtle.place()
        for slot=premierSlot,dernierSlot do
                turtle.select(slot)
                while turtle.getItemCount(slot) > 0 do
                        turtle.drop(turtle.getItemCount(slot))
                        if turtle.getItemCount(slot) > 0 then
                                sleep(0.5)
                        end
                end
        end

        turtle.select(enderchestSlot)
        turtle.dig()

end

function calcPlan()                                     -- calcule les emplacements des puits de minage

        local x, z, temp, xTemp
        temp = 1
        -- pour forcer à miner le point de départ
        plan[temp] = {}
        plan[temp][1] = 0
        plan[temp][2] = 0
        temp = temp + 1

        -- on boucle sur les colonnes
        for z=0,largeur do
                x = 0
                print("z : "..z)

                --on calcule le x du 1er premier puit de minage pour la colonne z
                x = 5 - (z*2) +x
                while x < 0 do
                        x = x + 5
                end
                plan[temp] = {}
                plan[temp][1] = x
                plan[temp][2] = z
                temp = temp + 1
                print("x : "..x)

                -- et ensuite on trouve automatiquement les autres emplacements de la colonne z
                while x <= longueur do
                        x = x + 5
                        if x <= longueur then
                                plan[temp] = {}
                                plan[temp][1] = x
                                plan[temp][2] = z
                                temp = temp + 1
                                print("x : "..x)
                        end
                end
                z = z + 1
        end
end

function deplacement(r,s)                               -- pour aller à des coordonnées précises

        local nbX
        local nbZ

-- On commence par se déplacer en x
        print("r : "..r.." ; s : "..s)
        print("xPosition : "..xPosition.." ; zPosition : "..zPosition)

        r = tonumber(r)
        s = tonumber(s)

        if r > xPosition then
                nbX = r - xPosition
                print("dans r>= xposition")
                while direction ~= 0 do -- ici on se met dans la bonne direction
                        turtle.turnRight()
                        direction=direction+1
                        if direction == 4 then direction = 0 end
                end
        elseif r < xPosition then
                nbX = xPosition - r
                print("dans xposition > r")
                while direction ~= 2 do -- ici on se met dans la bonne direction
                        turtle.turnRight()
                        direction=direction+1
                        if direction == 4 then direction = 0 end
                end
        end

        if r ~= xPosition then
                print("nbX : "..nbX)
                while nbX > 0 do
                        if not turtle.forward() then
                                turtle.dig() -- ici, on n'a pas réussi à avancer, donc on creuse devant soit pour dégager le passage
                                if turtle.getItemCount(dernierSlot) > 0 then  -- on vérifie si on doit vider l'inventaire de la tortue
                                        print("vidage inventaire comp_mine; prof "..profondeur.." ; nbitem ds slot "..dernierSlot.." : "..turtle.getItemCount(dernierSlot).." ; ")
                                        videInventaire()
                                end
                                turtle.forward()
                        end
                        if direction == 0 then xPosition = xPosition + 1 else xPosition = xPosition - 1 end
                        verifFuel()
                        nbX = nbX - 1
                end
        end

-- Ensuite on fait le déplacement en z

        if s > zPosition then
                nbZ = s - zPosition

                while direction ~= 1 do -- ici on se met dans la bonne direction
                        turtle.turnRight()
                        direction=direction+1
                        if direction == 4 then direction = 0 end
                end
        elseif s < zPosition then
                nbZ = zPosition - s

                while direction ~= 3 do -- ici on se met dans la bonne direction
                        turtle.turnRight()
                        direction=direction+1
                        if direction == 4 then direction = 0 end
                end
        end

        if s ~= zPosition then
                while nbZ > 0 do
                        if not turtle.forward() then
                                turtle.dig() -- ici, on n'a pas réussi à avancer, donc on creuse devant soit pour dégager le passage
                                if turtle.getItemCount(dernierSlot) > 0 then  -- on vérifie si on doit vider l'inventaire de la tortue
                                        print("vidage inventaire comp_mine; prof "..profondeur.." ; nbitem ds slot "..dernierSlot.." : "..turtle.getItemCount(dernierSlot).." ; ")
                                        videInventaire()
                                end
                                turtle.forward()
                        end
                        if direction == 1 then zPosition = zPosition + 1 else zPosition = zPosition - 1 end
                        verifFuel()
                        nbZ = nbZ - 1
                end
        end

        --on se remet en direction "zéro"
        while direction ~= 0 do
                turtle.turnRight()
                direction=direction+1
                if direction == 4 then direction = 0 end
        end

end

function send()
	--xDepart-xPosition.." "..zDepart+zPosition
	modem.transmit(0,0,"la turtle est actuellement en "..xDepart-zPosition.." "..zDepart+xPosition)
end



--********************************************--
--********** Programme principal *************--
--********************************************--

calcPlan() -- on calcule les emplacements des puits de forage

--for k,v in pairs(plan) do print(k.."  "..v[1].."   "..v[2]) end

local p, pmax = 1, #plan

while p <= pmax do

        drapeauBedrock = false --avant tout, on reset ce flag
        deplacement(plan[p][1],plan[p][2]) -- puis on se déplace sur le 1er puit à forer
        turtle.digDown() --creuse le bloc dessous
        sleep(0.2)
        turtle.down() --descend d'un cran
        profondeur = profondeur+1
        verifFuel()

        while drapeauBedrock == false do

                -- ici, direction = 0
                while direction~=4 do
                        --compare et mine, tourne à droite et direction++
                        compare_mine()
                end
                direction=0

                if turtle.detectDown() == true then   -- on vérifie si il y a un bloc en dessous
                        if turtle.digDown() == false then -- si on n'arrive pas à creuser en dessous, alors c'est la bedrock
                                drapeauBedrock = true             -- donc je met le drapeau à true pour sortir de la boucle
                                print("bedrock !")
                        else
                                if turtle.getItemCount(dernierSlot) > 0 then  -- on vérifie si on doit vider l'inventaire de la tortue
                                        print("vidage inventaire princ1; prof "..profondeur.." ; nbitem ds slot "..dernierSlot.." : "..turtle.getItemCount(dernierSlot).." ; ")
                                        videInventaire()
                                end
                                turtle.down()
                                profondeur = profondeur+1
                                verifFuel()
                        end
                else                                    -- si il n'y a pas de bloc alors c'est de l'air, de l'eau ou de la lave
                        turtle.down()           -- alors on descend simplement (la tortue ne craint pas la lave ou l'eau) et on continue à miner
                        profondeur = profondeur+1
                        verifFuel()
                end

        end

        print("fin de la boucle "..profondeur)
        -- ici je remonte à la surface
        while profondeur ~= 0 do
                turtle.up()
                profondeur = profondeur-1
                verifFuel()
        end
		send()

        p = p + 1
end

deplacement(0,0) -- retour au point de départ