Test 9 vic client

--ORIENTACIONS: 1 = N, 2 = E, 3 = s, 4 = W
Turtle = {
    IDTurtle = nil,
    IDServer = nil,
    PosInici = nil,
    PosActual = nil,
    Orientacio = 1,
    moventse = false,
    Inicialitzat = false,
    maxCombustible = 100000,
    nivelCombustible = 0,
    percentCombustible = 0,
    modoPanico = false
}

Config = {
    timeout = 25,
    serverName = "ServidorTurtlesVic"

}



function main()
    Turtle:inicialitzar()
end


function Tourtle:print()
    while true do
        if self.Inicialitzat then
            term.clear()
            if self.modoPanico then
                print("------ /!\\ Atencio Mode Panic Actiat /!\\ ------")
                print("La Turtle tornará a la seva posició d'inici.")
                print("El sistema quedará aturat fins que no es completi la accio de respostatge.")
            end
            print(
                "Turtle Activa, posicio: " .. self.PosActual.x .. " x, ".. self.PosActual.y .. " y, " .. self.PosActual.z .. " z. Nivell de combustible: " .. self.percentCombustible .. "%"
            )
            print()
            print("Orientación de la Turtle: "..self.Orientacio)
        end

    end
end

function Turtle:inicialitzar()
    rednet.open("right")

    self:getID()
    print("ID de turtle: ".. self.IDTurtle .. " asignada por el servidor: " .. self.IDServer)

    print("Obtenint senyal GPS.....")
    self:getGPS()
    if self.PosActual == "ERROR" then
        return false
    end

    print("Senyal GPS trobada, la posició actual és: " .. self.PosActual.x .. " x, ".. self.PosActual.y .. " y, " .. self.PosActual.z .. " z")




    self.Inicialitzat = true



    local testVec = vector.new(768, 76, 7);
    return true
end

function Turtle:getGPS()
    local timeout = tonumber(Config.timeout)
    local vectorA = vector.new(gps.locate(timeout))
    if not vectorA.x then
        print(" /!\\ Error al intentar aconseguir la posició GPS /!\\ ")
        self.PosActual = "ERROR"
    else
        self.PosActual = vectorA
    end
    return true
end

--Consigue la id de cliente y la del servidor para la turtle
function Turtle:getID()
    while ( not(self.IDServer)) do
        rednet.broadcast("GetIDTurtleVic")
        local senderId, message = rednet.receive(Config.timeout)
        if message and string.find(message, "IDNEW") then
            args = {}
            for argument in message:gmatch("%w+") do table.insert(args, argument) end
            self.IDServer = senderId
            self.IDTurtle = args[2]
        end
    end
    return true

end




--Comprovador de combustible y gestor de llenado
function Turtle:checkCombu()
    --Obtenim la capacitat de combustible de la turtle per al comprovador
    local llenando = false
    local slotCombu = self.getSlotCombustible(self)

    while true do
       --!NOMÉS DISPONIBLE A COMPUTER 1.6 self.maxCombustible = turtle.getFuelLimit()
        self.nivelCombustible = turtle.getFuelLevel()
        self.percentCombustible = (self.nivelCombustible / self.maxCombustible)*100


        if llenando and self.percentCombustible >= 95 then
            llenando = false
            slotCombu = self.getSlotCombustible(self)
        end

        if llenando or self.percentCombustible <= 60 then
            llenando = true
            turtle.select(slotCombu)
            turtle.refuel(1)
        end



    end

end

--Comprueba en que slot tiene combustible y si no tiene se pone en modo pánico
function Turtle:getSlotCombustible()
    for i = 1, 16 do
        turtle.select(i)
        if turtle.refuel(0) then
            self.modoPanico = false
            return i
        end
    end

    self.modoPanico = true
    return 0
end


--Zona Movimiento

function Turtle:MoverseA(posicion)
    if self.modoPanico then
        posicion = self.PosInici
    end

    local vectorDesp = self.PosActual - posicion

    while not(vectorDesp.x == 0) or not(vectorDesp.z == 0) or not(vectorDesp.y == 0) do
        if not(vectorDesp.x == 0) then
            if vectorDesp.x > 0 then
                self.girar(2)
            else
                self.girar(2)
            end
        elseif not(vectorDesp.z == 0) then
            if vectorDesp.z > 0 then
                self.girar(3)
            else
                self.girar(1)
            end

        else
            if vectorDesp.y > 0 then
                turtle.up()
            else
                turtle.down()
            end
        end


    end--End while

end


function Turtle:girar ( orientacio )
    if orientacio == self.Orientacio then
        return true
    end

    local girs = orientacio - self.Orientacio
    for i=1, girs, 1 do
        turtle.turnLeft()
    end
    return true
end

parallel.waitForAll( main, Turtle:checkCombu())