Horizontal quarry program (disk/progr) CC

--Turtle funkcijas
        -- Ielasa no faila kordinates
        function f_ielas(fails,n)
            local fh = io.open(fails, "r")
            local atbilde = fh:read("*a")
            fh:close()
            sleep(0)
            if n==true then
            local atbild=1+atbilde
            local atbild=atbild-1
            return atbild
            else
            return atbilde
            end
        end

        function ielasa()
        print("Sakam ielasit failus!")
            x = f_ielas("x",true)
            print("X kordinates ielasitas!")
            y = f_ielas("y",true)
            print("Y kordinates ielasitas!")
            z = f_ielas("z",true)
            print("Z kordinates ielasitas!")
            f = f_ielas("f",true)
            print("Ielasits uz kuru pusi robots pagriezts!")
            xsak = f_ielas("xsak",true)
            print("Xsak kordinates ielasitas!")
            ysak = f_ielas("ysak",true)
            print("Ysak kordinates ielasitas!")
            zsak = f_ielas("zsak",true)
            print("Zsak kordinates ielasitas!")
            fsak = f_ielas("fsak",true)
            print("Ielasits uz kuru pusi robots pagriezies sākumā!")
            darb = f_ielas("darb",true)
            print("Ielasits kada funkcija javeic!")

        end

        --Saglaba txt faila kordinates
        function sagl(kuru)   -- Kuru var but f < saglaba virzienu        un        coor saglaba atrasanas vietu
            if kuru=="f" then
                shell.run("delete","f")
                            local fh = io.open("f", "w")
                            fh:write(f)
                            fh:close()
            end

            if kuru=="coor" then
            shell.run("delete","x")
                            local fh = io.open("x","w")
                            fh:write(x)
                            fh:close()
                            sleep(0)
            shell.run("delete","y")
                            local fh = io.open("y","w")
                            fh:write(y)
                            fh:close()
                            sleep(0)
            shell.run("delete","z")
                            local fh = io.open("z","w")
                            fh:write(z)
                            fh:close()
                            sleep(0)
            end

        end

        function saglabat(fails, teksts)   -- Funkcija saglaba teksta faila tekstu
        --shell.run("delete",fails)
        fs.delete(fails)
        local fh = io.open(fails,"w")
                            fh:write(teksts)
                            fh:close()
        return true
        end

        function vieta()
            if f==0 then t={0,1} end
            if f==1 then t={-1,0} end
            if f==2 then t={0,-1} end
            if f==3 then t={1,0} end
            return t
        end

        function pagrieziens()
            if f>3 then f=0 end
            if f<0 then f=3 end
        --z ir 2
        --x ir 1
        end


        --Ziemeli ir 2 un z samazinas
        --Austrumi ir 3 un x pieaug
        function paKreisi()
                f = f - 1
                turtle.turnLeft()
                pagrieziens()
                sagl("f")
        end

        function paLabi()
                f = f + 1
                turtle.turnRight()
                pagrieziens()
                sagl("f")
        end

        function uzPrieksu()
                if turtle.forward() then
                        t=vieta()
                        x=x+t[1]
                        z=z+t[2]
                        sagl("coor")
                        sleep(0)
                        return true
                else
                return false
                end
        end

        function uzAugsu()
                if turtle.up() then
                        y=y+1
                        sleep(0)
                        sagl("coor")
                        return true
                end
                return false
        end

        function uzLeju()
                if turtle.down() then
                        y=y-1
                        sleep(0)
                        sagl("coor")
                        return true
                end
                return false
        end

        function uzAtpakalu()
                if turtle.back() then
                        t=vieta()
                        x=x-t[1]
                        z=z-t[2]
                        sagl("coor")
                        return true
                end
                return false
        end

        function Izmest()

        local i
        for i=1,9 do
            turtle.select(i)
            turtle.drop()
        end

        end


        function UzAugsuSasist()

        if turtle.digUp() then
            return true
        else
            return false
        end

        end



        function UzPrieksuSasist()

        if turtle.dig() then
            return true
        else
            return false
        end

        end


         function UzLejuSasist()

        if turtle.digDown() then
            return true
        else
            return false
        end

        end


        function parbinv()  --Atdod true, ja pilna inv
        local tmp
        tmp=true

        for i=1,9 do
        if (turtle.getItemCount(i)==0) then
            tmp=false
            break
        end

        end

        return tmp

        end

--###############################################
 --Funkcijas apstrādes programmas

 function AprekinaRaksanu()

 if fsak==0 then
 zraksana=zsak-(kolon-1)
 xraksana=xsak-(rinda-1)
 end
 if fsak==1 then
 zraksana=zsak-(kolon-1)
 xraksana=xsak+(rinda-1)
 end
 if fsak==2 then
 zraksana=zsak+(kolon-1)
 xraksana=xsak+(rinda-1)
 end
 if fsak==3 then
 zraksana=zsak+(kolon-1)
 xraksana=xsak-(rinda-1)
 end

 end

 function kluda()
term.setCursorPos(2,6)
    write("Notikusi kluda!")
    -- if turtle.detectDown() then
       -- turtle.up()
        -- y=y-1
       -- end
    sleep(3)
    os.reboot()
end

function noklusana(xgal,zgal)
        if x<xgal then
            while f~=3 do paLabi() sleep(1) end
            while x<xgal do
                 sleep(0)
                atb=uzPrieksu()
                if atb==false then kluda() end
            end
        else
            while f~=1 do paLabi() sleep(1) end
            while x>xgal do
                 sleep(0)
                atb=uzPrieksu()
                if atb==false then kluda() end
            end
        end

        if z>zgal then
            while f~=2 do paLabi() sleep(1) end
            while z>zgal do
                 sleep(0)
                atb=uzPrieksu()
                if atb==false then kluda() end
            end
        else
            while f~=0 do paLabi() sleep(1) end
            while z<zgal do
                 sleep(0)
                 atb=uzPrieksu()
                if atb==false then kluda() end
            end
        end

    end


 function UzSakumu()
   while y<ysak do
    uzAugsu()
   end

   noklusana(xsak,zsak)

  while f~=fsak do

  paLabi()
  sleep(1)

  end

  Izmest()
end

 function UzRaksanu()

    paLabi()

 local i=1

 while i<rinda do

     if uzPrieksu() then
     i=i+1
     else
     UzPrieksuSasist()
     if uzPrieksu() then
            i=i+1
            end
     end

     end

    paLabi()

 end

function Rakt()

local i=1

while i<=garum do

if parbinv() then break end
UzAugsuSasist()
if parbinv() then break end
UzLejuSasist()
if parbinv() then break end

if i~=garum then

 while turtle.detect() do
 UzPrieksuSasist()
 end
 if uzPrieksu() then
 i=i+1
 end

 end

 if i==garum then
 i=i+1
 while turtle.detectUp() do
 UzAugsuSasist()
 end

 UzLejuSasist()
 end

 if parbinv() then break end

end

if (i>=garum) and (parbinv()==false) then
 rinda=rinda+1
 saglabat('rinda',rinda)
end

end


--#########################################################
--Programmas izskata funkcijas

--Virsraksts monitoram
function virsraksts(top)
    term.setCursorPos(3,2)
    write(top)
end

function izskats()
    term.clear()
    local i,j

       term.setCursorPos(1,1)
       write('+')
    for i=2,(ekrx-1) do
       term.setCursorPos(i,1)
       write('-')
       end
    term.setCursorPos(ekrx,1)
       write('+')

       term.setCursorPos(1,ekry)
       write('+')
    for i=2,(ekrx-1) do
       term.setCursorPos(i,ekry)
       write('-')
       end
    term.setCursorPos(ekrx,ekry)
       write('+')

    for i=2,(ekry-1) do
       term.setCursorPos(1,i)
       write('|')
       term.setCursorPos(ekrx,i)
       write('|')
       end



    virsraksts('Xoandbit racejs')

    --    print("###################################")
    --    print("#======Xoandbit pathfinders=v1====#")
    --    print("                                   ")
    --    print("                                   ")
    --    print("                                   ")
    --    print("                                   ")
    --    print("                                   ")
    --    print("                                   ")
    --    print("                                   ")
    --    print("                                   ")
    --    print("                                   ")
    --    print("###################################")
end

--Jautajuma izskats
function jautaj(top)
    sleep(1)
    term.setCursorPos(4,4)
    write(top)
end

--Vaicajums pec ievada
function vaica()
    term.setCursorPos(3,7)
    status,nolasijums = pcall(read)
    return nolasijums
end

--Atbilde kaut kam
function atbilde(atb)
    term.setCursorPos(8,9)
    write(atb)
end

-- Izskata funkciju beigas
--#############################################
--Mainigo funkcijas



--Tagadejas lietas
x=0
y=0
z=0
f=0
xsak=0
ysak=0
zsak=0
fsak=0
darb=0
--Lietas uz kurieni!
term.clear()
term.setCursorPos(1,1)
print("Palaizam programmu!")
sleep(1)
ielasa() -- ielasam koordinates
print('Instalejam ekrana izmerus')
ekrx,ekry=term.getSize()
ekrx=ekrx-1
ekry=ekry-1
sleep(1)
print('Instalejam programmas izskatu')
sleep(1)



while true do

if darb==0 then

    input='s'
    izskats()
    jautaj('Ievadiet garumu!')
    input=vaica()
    garum=input

    input='s'
    izskats()
    jautaj('Ievadiet platumu /pa labi/!')
    input=vaica()

    platum=input

    saglabat('atpakal',atpakal)
    saglabat('garum',garum)
    saglabat('platum',platum)
    saglabat('kolon',1)
    saglabat('rinda',1)

    saglabat('darb',1)
    atbilde('Palaizam raceju')
    sleep(1)
    os.reboot()

else
    if darb==1 then

    print()
    print('INICIALIZEJAM RACEJU')

    garum=f_ielas('garum',true)
    print('Ielasits')
    platum=f_ielas('platum',true)
    print('Ielasits')
    kolon=f_ielas('kolon',true)
    print('Ielasits')
    rinda=f_ielas('rinda',true)
    print('Ielasits')

    xraksana=0
    zraksana=0

    sleep(1)

    izskats()
    jautaj('UZ SAKUMU')
    UzSakumu()

    while rinda<platum do

    izskats()
    jautaj('UZ SAKUMU')
    UzSakumu()

    izskats()
    jautaj('Brauc rakt')
    UzRaksanu()

    izskats()
    jautaj('ROKAM')
    Rakt()

      if parbinv() then
         izskats()
         jautaj('UZ SAKUMU')
         UzSakumu()
      end

    end

    saglabat('darb',0)
    os.reboot()
  end

end

end