View difference between Paste ID: xc4srwEy and TxzFX2tY

 --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
                 end
                 return false
         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 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!")
     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()
 
     while y<ysak do
     uzAugsu()
    end
 
    AprekinaRaksanu()
    sleep(0)
    noklusana(xraksana,zraksana)
 
  end
 
 
  function Rakt()
 
  while true do
  sleep(0)
  if turtle.detectDown() then
 
         if turtle.digDown() then
         uzLeju()
         else
         break
         end
 
  else
  uzLeju()
  end
 
 if parbinv() then
  break
 end
 
  end
 
 if parbinv() then
 
  else
    kolon=kolon+1
    if kolon>garum then
    kolon=1
    rinda=rinda+1
    end
     saglabat('kolon',kolon)
     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 RAKSANU')
       UzRaksanu()
 
       izskats()
       jautaj('ROKAM')
       Rakt()
 
       if parbinv() then
          izskats()
          jautaj('UZ SAKUMU')
          UzSakumu()
       end
 
     end
 
     saglabat('darb',0)
 
   end
 
 end
 
 end