Slave Eval

-- Slot1 = Fuel
-- Slot2 = Light
-- Slot3 = Blocks

--still error Retreat does not work

--Globals Start
FUELVALUE = 0
Facing = 0
MASTERID = 0
ACTIVE = false
StartX,StartY,StartZ = 0,0,0
DISTANCETOHOMEBASE = 0
TOTALFUEL = 0
TotalFuelStart = 0
FUELSLOT = 16
EMERGENCYFUELSLOT = 15
COMMAND = ""
--Globals End
function Main()
    print("Slave Script now Running")
    OpenRednetSpecificForDevice()
    os.setComputerLabel("Slave")
    InitTurtle()
    EvaluateCommand(COMMAND)
    print("Programm terminated with Code 0 " .. tostring(os.epoch("utc")))
end

-- Important Functions Start
function Retreat()
    PathfindToCoordinateNonBlocking(StartX,StartY,StartZ)
    ACTIVE = true
end

-- Important Functions End
-- Rotation Logic Start
    -- facing = 0 means North Neg Z
    -- facing = 1 means East Pos X
    -- facing = 2 means South Pos Z
    -- facing = 3 means West Neg x
function RotateToNegZ()
    TurnUntilFacingMatches(0)
end

function RotateToPosX()
    TurnUntilFacingMatches(1)
end

function RotateToPosZ()
    TurnUntilFacingMatches(2)
end

function RotateToNegX()
    TurnUntilFacingMatches(3)
end

function TurnUntilFacingMatches(facing)
    if Facing == facing then
        return true
    end
    TurnRight()
    if Facing == facing then
        return true
    end
    TurnRight()
    if Facing == facing then
        return true
    end
    TurnRight()
    if Facing == facing then
        return true
    end
    TurnRight()
    if Facing == facing then
        return true
    end

end

function MatchFacing(facing)
    if Facing == facing then
        return true
    end
end

function TurnRight()
    turtle.turnRight()
    Facing = math.fmod(Facing + 1,4)
end

function RotateUnitlFacingId(input)
    for i = 0, 3 do
        if FacingId(input) then
            return true
        else
            TurnRight()
        end
    end
end

function FacingId(input)
    local succes, data = turtle.inspect()
    if succes then
        if data.name == input then
            return true
        else
            return false
        end
    else
        return false
    end
end

function InvertHeading()
    if Facing == 0 then
        RotateToPosZ()
    end
    if Facing == 1 then
        RotateToNegX()
    end
    if Facing == 2 then
        RotateToNegZ()
    end
    if Facing == 3 then
        RotateToPosX()
    end
end
-- Rotation Logic End

function CheckRetreatParam()
    if LowFuel() then
        return true
    end
    if InventoryHasfreeSpace() then
        return true
    end
    return false
end

-- Movement Logic Start
function MoveForwardByOne()
    CriticallyLowFuelCheck()
    if CheckRetreatParam() then
        local x,y,z = gps.locate()
        SetSavedCoords(x,y,z)
        ReturnHome()
        return
    end
    if CheckForBedrockBeneath() then
        BedrockFound()
    end
    if turtle.getFuelLevel() < 20 then
        Refuel()
    end
    local existence = turtle.inspect()
    if existence then
        turtle.dig()
    end
    UpdateTurtleValues()
    turtle.forward()
end

function MoveForwardByXBlocks(x)
    for i = 1, x do
        MoveForwardByOne()
    end
end

function MoveUpwardByOne()
    CriticallyLowFuelCheck()
    if CheckRetreatParam() then
        local x,y,z = gps.locate()
        SetSavedCoords(x,y,z)
        ReturnHome()
        return
    end
    if CheckForBedrockBeneath() then
        BedrockFound()
    end
    if turtle.getFuelLevel() < 20 then
        Refuel()
    end
    local existence = turtle.inspectUp()
    if existence then
        turtle.digUp()
    end
    UpdateTurtleValues()
    turtle.up()
end

function MoveUpwardByXBlocks(x)
    for i = 1, x do
        MoveUpwardByOne()
    end
end

function MoveDownwardByOne()
    CriticallyLowFuelCheck()
    if CheckRetreatParam() then
        local x,y,z = gps.locate()
        SetSavedCoords(x,y,z)
        ReturnHome()
        return
    end
    if CheckForBedrockBeneath() then
        BedrockFound()
    end
    if turtle.getFuelLevel() < 20 then
        Refuel()
    end
    local existence = turtle.inspectDown()
    if existence then
        turtle.digDown()
    end
    UpdateTurtleValues()
    turtle.down()
end

function MoveDownwardByXBlocks(x)
    for i = 1, x do
        MoveDownwardByOne()
    end
end
-- Movement Logic End

-- Pathfinding Logic Start
function PathfindToCoordinate(destinationX,destinationY,destinationZ)
    local currentX,currentY,currentZ = gps.locate()
    local xDistance = CalculateDistance(destinationX,currentX)
    local yDistance = CalculateDistance(destinationY,currentY)
    local zDistance = CalculateDistance(destinationZ,currentZ)
    local totalDistance = CalculateTotalDistance(xDistance,yDistance,zDistance)
    local totalFuel = CalculateTotalFuel()
    if totalFuel < totalDistance then
        --Send Distress Signal To Low Fuel for Retreat
        os.setComputerLabel("Fuel Critical")
    else
        CorrectYAxis(destinationY,currentY,yDistance)
        CorrectXAxis(destinationX,currentX,xDistance)
        CorrectZAxis(destinationZ,currentZ,zDistance)
        if CompareCoordinate(destinationX,destinationY,destinationZ) then
            print("Location has been Successfully reached")
        else
            print("Location has not been reached")
        end
    end
end

function CompareCoordinate(destinationX,destinationY,destinationZ)
    local currentX,currentY,currentZ = gps.locate()
    if currentX == destinationX and currentY == destinationY and currentZ == destinationZ then
        return true
    else
        return false
    end
end

function CorrectXAxis(destinationX,currentX,xDistance)
    local comparison = CompareTo(currentX,destinationX)
    local xDistance = xDistance
    if comparison == 1 then
        RotateToNegX()
        MoveForwardByXBlocks(xDistance)
    end
    if comparison == -1 then
        RotateToPosX()
        MoveForwardByXBlocks(xDistance)
    end
end

function CorrectZAxis(destinationZ,currentZ,zDistance)
    local comparison = CompareTo(currentZ,destinationZ)
    local zDistance = zDistance
    if comparison == 1 then
        RotateToNegZ()
        MoveForwardByXBlocks(zDistance)
    end
    if comparison == -1 then
        RotateToPosZ()
        MoveForwardByXBlocks(zDistance)
    end
end

function CorrectYAxis(destinationY,currentY,yDistance)
    local comparison = CompareTo(currentY,destinationY)
    local yDistance = yDistance
    if comparison == 1 then
        MoveDownwardByXBlocks(yDistance)
    end
    if comparison == -1 then
        MoveUpwardByXBlocks(yDistance)
    end
end

-- Pathfinding Logic End

-- Non Blocking Pathfind Logic Start
function MoveNonBlockingForwardByOne()
    CriticallyLowFuelCheck()
    if turtle.getFuelLevel() < 20 then
        Refuel()
    end
    local existence = turtle.inspect()
    if existence then
        turtle.dig()
    end
    turtle.forward()
    UpdateTurtleValues()
end

function MoveNonBlockingForwardByXBlocks(x)
    for i = 1, x do
        MoveNonBlockingForwardByOne()
    end
end

function MoveNonBlockingUpByOne()
    CriticallyLowFuelCheck()
    if turtle.getFuelLevel() < 20 then
        Refuel()
    end
    local existence = turtle.inspectUp()
    if existence then
        turtle.digUp()
    end
    turtle.up()
    UpdateTurtleValues()
end

function MoveNonBlockingUpByXBlocks(x)
    for i = 1, x do
        MoveNonBlockingUpByOne()
    end
end

function MoveNonBlockingDownbyOne()
    CriticallyLowFuelCheck()
    if turtle.getFuelLevel() < 20 then
        Refuel()
    end
    local existence = turtle.inspectDown()
    if existence then
        turtle.digDown()
    end
    turtle.down()
    UpdateTurtleValues()
end

function MoveNonBlockingDownByXBlocks(x)
    for i = 1, x do
        MoveNonBlockingDownbyOne()
    end
end

function CorrectYAxisNonBlocking(destinationY,currentY,yDistance)
    local comparison = CompareTo(currentY,destinationY)
    local yDistance = yDistance
    if comparison == 1 then
        MoveNonBlockingDownByXBlocks(yDistance)
    end
    if comparison == -1 then
        MoveNonBlockingUpByXBlocks(yDistance)
    end
end

function CorrectZAxisNonBlocking(destinationZ,currentZ,zDistance)
    local comparison = CompareTo(currentZ,destinationZ)
    local zDistance = zDistance
    if comparison == 1 then
        RotateToNegZ()
        MoveNonBlockingForwardByXBlocks(zDistance)
    end
    if comparison == -1 then
        RotateToPosZ()
        MoveNonBlockingForwardByXBlocks(zDistance)
    end
end

function CorrectXAxisNonBlocking(destinationX,currentX,xDistance)
    local comparison = CompareTo(currentX,destinationX)
    local xDistance = xDistance
    if comparison == 1 then
        RotateToNegX()
        MoveNonBlockingForwardByXBlocks(xDistance)
    end
    if comparison == -1 then
        RotateToPosX()
        MoveNonBlockingForwardByXBlocks(xDistance)
    end
end

function PathfindToCoordinateNonBlocking(destinationX,destinationY,destinationZ)
    local currentX,currentY,currentZ = gps.locate()
    local xDistance = CalculateDistance(destinationX,currentX)
    local yDistance = CalculateDistance(destinationY,currentY)
    local zDistance = CalculateDistance(destinationZ,currentZ)
    local totalDistance = CalculateTotalDistance(xDistance,yDistance,zDistance)
    local totalFuel = CalculateTotalFuel()
    if totalFuel < totalDistance then
    else
        CorrectYAxisNonBlocking(destinationY,currentY,yDistance)
        CorrectXAxisNonBlocking(destinationX,currentX,xDistance)
        CorrectZAxisNonBlocking(destinationZ,currentZ,zDistance)
        if CompareCoordinate(destinationX,destinationY,destinationZ) then
            print("Successfully Reached Coords")
        else
            print("UnSuccessfully Reached Coords")
        end
    end
end
-- Non Blocking PathFind Logic End

-- Math Logic Start
function CompareTo(num1,num2)
    if num1 == nil then
        print("num1 is nil")
    end
    if num2 == nil then
        print("num2 is nil")
    end
    local val1 = tonumber(num1)
    local val2 = tonumber(num2)
    if val1 > val2 then
        return 1
    else if val1 < val2 then
        return -1
    else if val1 == val2 then
        return 0
    end
    end
    end
end

function CalculateDistance(value1,value2)
    return math.abs(value1 - value2)
end

function CalculateTotalDistance(xDistance,yDistance,zDistance)
    local result = xDistance + yDistance + zDistance
    return result
end

function CalculateHomebaseDistance(baseX,BaseY,BaseZ)
    local x,y,z = gps.locate()
    local result = CalculateTotalDistance(CalculateDistance(baseX,x),CalculateDistance(BaseY,y),CalculateDistance(BaseZ,z))
    return result
end

function CalculateTotalFuel()
    local result = turtle.getFuelLevel() + turtle.getItemCount(FUELSLOT) * FUELVALUE
    return result
end
--Math Logic End

-- Send and Receive Logic Start
function EnterWaitModeAndReturnMessage()
    local id,message = rednet.receive()
    return id,message
end

function SendImportantMessage()
    SendMessage("IMPORTANT")
end

function SendMessage(input)
    rednet.send(MASTERID,input)
    PrintSysMessage(("%s Message has been sent to Computer %d"):format(input,MASTERID) .. tostring(os.epoch("utc")))
end
-- Send and Receive Logic End

-- Terminal Logic Start
function PrintStringInColor(string,color)
    term.setTextColor(color)
    print(string)
    ResetTerminal()
end

function PrintSysMessage(string)
    PrintStringInColor(string,colors.magenta)
end

function ResetTerminal()
    term.setTextColor(colors.white)
end
-- Terminal Logic End

-- Turtle Functions Start
function UnloadInventory()
    local success,data = turtle.inspect()
    if success then
        if data.name == "minecraft:chest" or "minecraft:ender_chest" then
            for i = 1, 16 do
                turtle.select(i)
                turtle.drop()
            end
        end
    end
end

function FuelUp()
    local success,data = turtle.inspect()
    if success then
        turtle.select(FUELSLOT)
        turtle.suck()
        turtle.select(EMERGENCYFUELSLOT) --Emergency FuelSlot
        turtle.suck()
        turtle.select(1)
    end
end

function SetFuelValue(input)
    FUELVALUE = input
end

function CheckForBedrockBeneath()
    local success,data = turtle.inspectDown()
    if success then
        if data.name == "minecraft:bedrock" then
            return true
        else
            return false
        end
    else
        return false
    end
end

function Refuel()
    local success = false
    if turtle.getItemCount(FUELSLOT) > 0 then
            turtle.select(FUELSLOT)
            success = turtle.refuel(1)
            turtle.select(1)
    end
    return success
end

function EmergencyRefuel()
    local success = false
    if turtle.getItemCount(EMERGENCYFUELSLOT) > 0 then
            turtle.select(EMERGENCYFUELSLOT)
            success = turtle.refuel()
            turtle.select(1)
    end
    return success
end

function LowFuel()
    if DISTANCETOHOMEBASE == TOTALFUEL then
        print(("Distance equals Totalfuel %d"):format(TOTALFUEL))
        return true
    end

    if DISTANCETOHOMEBASE < TOTALFUEL then
        print("I can Still reach Home")
        return false
    end

    if DISTANCETOHOMEBASE > TOTALFUEL then
        print("Home is to faraway")
        print("Using Emergency Fuel")
        EmergencyRefuel()
        return true
    end
end


function InventoryHasfreeSpace()
    local count = turtle.getItemCount(14)
    if count == 0 then
        return false
    else
        return true
    end
end

function InitTurtle()
    print("initializing Turtle")
    local id,fuelType = EnterWaitModeAndReturnMessage()
    print(fuelType)
    MASTERID = id
    local currentX,currentY,currentZ = gps.locate()
    EvaluateFuelType(fuelType)
    SetStartCoords(currentX,currentY,currentZ)
    Refuel()
    UpdateTurtleValues()
    GetCommand()
end

function GetCommand()
    local id, message = EnterWaitModeAndReturnMessage()
    COMMAND = message
end

function EvaluateCommand(input)
    if ACTIVE then
        return
    end
    print("Evaluating Command")
    local command = MySplit(input)
    if command[1] == "line" then
        print("Mining at Height")
        ExecuteMineCommand(tonumber(command[2]),tonumber(command[3]))
    end
end

function EvaluateFuelType(input)
    if input == "coal" then
        SetFuelValue(80)
    else if input == "coal_block" then
        SetFuelValue(800)
    end
    end
 end

 function CriticallyLowFuelCheck()
    if turtle.getFuelLevel() == 0 then
        os.setComputerLabel("Critical Fuel level")
        --os.shutdown()
    end
 end

 function BedrockFound()
    os.setComputerLabel("Bedrock Found")
    PathfindToCoordinateNonBlocking(StartX,StartY,StartZ)
    RotateToNegZ()
    os.shutdown()
 end

 function UpdateTotalFuel()
    TOTALFUEL = CalculateTotalFuel()
 end

 function UpdateHomeBaseDistance()
    local dis = CalculateHomebaseDistance(StartX,StartY,StartZ)
    SetHomebaseDistance(dis)
 end

 function UpdateTurtleValues()
    print("Starting Update of values")
    UpdateHomeBaseDistance()
    print(DISTANCETOHOMEBASE)
    UpdateTotalFuel()
    print(TOTALFUEL)
    print("End of Value Update")
 end

 function ReturnHome()
    Retreat()
 end
-- Turtle Functions End

-- Mining

function ExecuteMineCommand(level, length)
    if ACTIVE then
        return
    end
    MineToLevel(level)
    if ACTIVE then
        return
    end
    MineLines(length)
    if ACTIVE then
        return
    end
end

function MineToLevel(level)
    if ACTIVE then
        return
    end
    local x,y,z = gps.locate()
    local distance = CalculateDistance(level,y)
    if CompareTo(level,y) == 1 then
        MoveUpwardByXBlocks(distance)
    end
    if CompareTo(level,y) == -1 then
        MoveDownwardByXBlocks(distance)
    end
end

function MineLine(length)
    MoveForwardByXBlocks(length)
    MoveDownwardByOne()
    TurnRight()
    TurnRight()
end

function MineLines(length)
    if ACTIVE then
        return
    end
    while true do
        MineLine(length)
    end
end
-- Mining

-- Os Functions Start
function WhatDeviceAmIRunningOn()
    return getDeviceType()
end

function getDeviceType()
    if turtle then
     return "turtle"
   elseif pocket then
     return "pocket"
   elseif commands then
     return "command_computer"
   else
     return "computer"
   end
 end

 function OpenRednetSpecificForDevice()
    local device = WhatDeviceAmIRunningOn()
    device = string.upper(device)
    if device == "TURTLE"then
        rednet.open("left")
    else if device == "COMPUTER" or device == "COMMAND_COMPUTER" or device == "PAD" then
        rednet.open("back")
    end
    end
 end

-- Os Functions End

-- General Functions Start
function SetChestCoords(x,y,z)
    ChestX = x
    ChestY = y
    ChestZ = z
end

function SetFuelCoords(x,y,z)
    FuelX = x
    FuelY = y
    FuelZ = z
end

function SetSavedCoords(x,y,z)
    SavedX = x
    SavedY = y
    SavedZ = z
end

function SetStartCoords(x,y,z)
    StartX = x
    StartY = y
    StartZ = z
end

function SetHomebaseDistance(distance)
    DISTANCETOHOMEBASE = distance
end
-- General Start End

-- String Funtion Start
function MySplit (inputstr, sep)
    if sep == nil then
       sep = "%s"
    end
    local t={}
    for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
       table.insert(t, str)
    end
    return t
 end
-- String funtion End


Main()