perso

    local fonctionnement = "normal"                 -- choix du vidage : "normal" (avec coffre au départ) ou "enderchest"
                                                                                                                                                                    -- normal : coffre récup derrière départ tortue, coffre charbon au dessus tortue
                                                                                                                                                                    -- enderchest : voir variable pour emplacements des enderchest dans l'inventaire
    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
    if fonctionnement == "normal" then dernierSlot = 15 end  -- si on est en mode normal, on gagne 2 slots d'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 idAffichage = 22                                  -- id du computer vers lequel on envoie les infos par rednet

    local idChannel = 123                                                                   -- num du canal pour envoyer les infos via -- modem

    local resDown = true

    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()
                    end

                    turtle.turnRight()
                    direction=direction+1

                    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()
                            --videInventaireCoffre()
                            return vidage()
                    end

    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)
                                                    turtle.refuel(1) -- on recharge pour 96 deplacements
                                                    -- et on vérifie si il nous reste assez de charbon
                                                    if turtle.getItemCount(charbonSlot) < niveauCharbonMini then
                                                                    return recharge() -- on refait le plein de charbon
                                                    end
                                    end
                    end
    end

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

            turtle.select(enderchestCharbonSlot)
            turtle.placeUp()
            turtle.select(charbonSlot)
            turtle.suckUp()

            turtle.select(enderchestCharbonSlot)
            turtle.digUp()

    end

    function rechargeCharbonCoffre()

            -- d'abord je sauv les coordonnées x, z, profondeur et direction
                    xPositionSv = xPosition
                    zPositionSv = zPosition
                    profondeurSv = profondeur
                    directionSv = direction

                    --je préviens que je remonte pour recharger en charbon
                    -- modem.transmit(idChannel,idChannel,"etat:charbon")

                    -- je remonte à la surface
                    while profondeurSv ~= 0 do
                                    if turtle.detectUp() then turtle.digUp() end
                                    turtle.up()
                                    profondeurSv = profondeurSv-1
                                    -- modem.transmit(idChannel,idChannel,"profondeur:"..profondeurSv)
                                    verifFuel()
                    end

                    -- je me déplace vers le point de départ
                    deplacement(0,0)

                    --on prend du charbon dans le coffre au-dessus de la tortue
                    turtle.select(charbonSlot)
                    turtle.suckUp()

                    --on retourne au-dessus du puit en cours de minage
                    deplacement(xPositionSv, zPositionSv)

                    --on descend à la dernière profondeur
                    while profondeurSv ~= profondeur do
                                    if turtle.detectDown() then turtle.digDown() end
                                    turtle.down()
                                    profondeurSv = profondeurSv+1
                                    -- modem.transmit(idChannel,idChannel,"profondeur:"..profondeurSv)
                                    verifFuel()
                    end

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

                    --et normalement c'est bon.
                    -- modem.transmit(idChannel,idChannel,"etat:encours")

    end

    function recharge()

                    if fonctionnement == "normal" then
                                    return rechargeCharbonCoffre()
                    elseif fonctionnement == "enderchest" then
                                    return rechargeCharbon()
                    end
     end

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

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

                    turtle.select(enderchestSlot)
                    turtle.digUp()

    end

    function videInventaireCoffre()

                    -- d'abord je sauv les coordonnées x, z, profondeur et direction
                    xPositionSv = xPosition
                    zPositionSv = zPosition
                    profondeurSv = profondeur
                    directionSv = direction

                    --je préviens que je remonte pour vider mon inventaire
                    -- modem.transmit(idChannel,idChannel,"etat:vidage")

                    -- je remonte à la surface
                    while profondeurSv ~= 0 do
                                    if turtle.detectUp() then turtle.digUp() end
                                    turtle.up()
                                    profondeurSv = profondeurSv-1
                                    -- modem.transmit(idChannel,idChannel,"profondeur:"..profondeurSv)
                                    verifFuel()
                    end

                    -- je me déplace vers le point de départ
                    deplacement(0,0)

                    --on se remet en direction "deux", face au coffre
                    while direction ~= 2 do
                                    turtle.turnRight()
                                    direction=direction+1
                                    if direction == 4 then direction = 0 end
                    end

                    --on vide l'inventaire
                    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

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

                    --on retourne au-dessus du puit en cours de minage
                    deplacement(xPositionSv, zPositionSv)

                    --on descend à la dernière profondeur
                    while profondeurSv ~= profondeur do
                                    if turtle.detectDown() then turtle.digDown() end
                                    turtle.down()
                                    profondeurSv = profondeurSv+1
                                    -- modem.transmit(idChannel,idChannel,"profondeur:"..profondeurSv)
                                    verifFuel()
                    end

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

                    --et normalement c'est bon.
                    -- modem.transmit(idChannel,idChannel,"etat:encours")
    end

    function vidage()

                    if fonctionnement == "normal" then
                                    return videInventaireCoffre()
                    elseif fonctionnement == "enderchest" then
                                    return videInventaire()
                    end

    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("f_depl r : "..r.." ; s : "..s)
                    print("f_depl 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()
                                                                                    --videInventaireCoffre()
                                                                                    vidage()
                                                                    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()
                                                                                    --videInventaireCoffre()
                                                                                    vidage()
                                                                    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 turtleDown()
            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()
                                    --videInventaireCoffre()
                                    vidage()
                            end
                            --resDown = turtle.down()
                            while turtle.down() == false do
                                    sleep(0.1)
                                    print("fu_turtledown resultat du down : false :o( ")
                            end
                            print("fu_turtledown resultat du down : true :o) ")
                            profondeur = profondeur+1
                            -- modem.transmit(idChannel,idChannel,"profondeur:"..profondeur)
                            verifFuel()
                    end
            else                                    -- si il n'y a pas de bloc alors c'est de l'air, de l'eau ou de la lave
                    --resDown = turtle.down()           -- alors on descend simplement (la tortue ne craint pas la lave ou l'eau) et on continue à miner
                    while turtle.down() == false do
                    sleep(0.1)
                    print("fu_turtledown resultat du down : false :o( ")
                    end
                    print("fu_turtledown resultat du down : true :o) ")
                    profondeur = profondeur+1
                    -- modem.transmit(idChannel,idChannel,"profondeur:"..profondeur)
                    verifFuel()
            end
            --if resDown ==false then print("fu_turtledown resultat du down : false")
            --else print("fu_turtledown resultat du down : true")
            --end
    end


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

    print("Entrez les dimensions de la zone à miner.")
    print("")
    print("Largeur (vers la droite) : ")
    largeur = tonumber(read())
    print("Longueur (en face) : ")
    longueur = tonumber(read())

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

    local p, pmax = 1, #plan

    -- ici, affichage du nombre de puits à creuser et attente confirmation pour commencer
    -- puis à chaque down ou up, affichage de la profondeur et màj du "puit en cours/nb puits total"
    -- et affichage lorsqu'on vide l'inventaire ou que l'on reprend du charbon

    -- modem = peripheral.wrap("right")
    -- modem.transmit(idChannel,idChannel,"etat:attente")
    print("")
    print("Nombre de puits à creuser : "..#plan)
    -- modem.transmit(idChannel,idChannel,"nbPuitsTotal:"..#plan)
    -- modem.transmit(idChannel,idChannel,"profondeur:"..profondeur)
    print("Appuyez sur [ENTREE] pour commencer !")
    read()
    -- modem.transmit(idChannel,idChannel,"etat:encours")
    --read()

    while p <= pmax do
            print("rentre dans boucle p")
            -- modem.transmit(idChannel,idChannel,"nbPuits:"..p)
                    drapeauBedrock = false --avant tout, on reset ce flag
                    verifFuel() -- on refait le plein si besoin
                    deplacement(plan[p][1],plan[p][2]) -- puis on se déplace sur le puit à forer

                    turtleDown()

                    while drapeauBedrock == false do

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

                            turtleDown()

                    end

                    print("fin de la boucle "..profondeur)
                    -- ici je remonte à la surface
                    while profondeur ~= 0 do
                                    if turtle.detectUp() then turtle.digUp() end
                                    turtle.up()
                                    profondeur = profondeur-1
                                    -- modem.transmit(idChannel,idChannel,"profondeur:"..profondeur)
                                    verifFuel()
                    end

                    p = p + 1
    end

    -- modem.transmit(idChannel,idChannel,"etat:retour")
    deplacement(0,0) -- retour au point de départ
    -- modem.transmit(idChannel,idChannel,"etat:fin")
    --rednet.close(right)