View difference between Paste ID: gDSCCwNW and dWDysD87

 id=4
 id2=163621
 
 rap={wyd="tartak", fun="zbieracz", nse=2, orp=5, oka=2, zgd=0, zpp=12000, stn=0, akt=0, pal=0, pll=turtle.getFuelLevel(), sur=0, gpx=0, gpy=0, gpz=0, pro=0, fnn="", fno="startUp", rod="", nrd=0, var=0, kom="", psp=0, ptp=0, psd=0}
 
 function aktualizuj() --do aktualizowania parametrow (w tle)
   napisz("Uruchamiam funkcje aktualizacji.")
   while true do
     repeat
       a5, b5, c5, d5, e5, f5=os.pullEvent("modem_message")
     until e5.rod=="K"
     rap.oka=e5.oka
     rap.zgd=e5.zgd
     rap.orp=e5.orp
     rap.zpp=e5.zpp
     -- tu bylo sleep(e5.oka)
   end
 end
 
 function raportuj() --do raportowania parametrow (w tle)
   napisz("F: raportuj - Rozpoczynam raportowanie w tle")
   while true do
   local tablica={wyd=rap.wyd, fun=rap.fun, nse=rap.nse, orp=rap.orp, oka=rap.oka, zgd=rap.zgd, stn=rap.stn, akt=rap.akt, pal=rap.pal, pll=rap.pll, sur=rap.sur, gpx=rap.gpx, gpy=rap.gpy, gpz=rap.gpz, pro=rap.pro, fnn=rap.fnn, fno=rap.fno, rod="R", nrd=rap.nrd, var=rap.var, kom=rap.kom, psp=rap.psp, ptp=rap.ptp, psd=rap.psd, zpp=rap.zpp}
     rap.pll=turtle.getFuelLevel()
     modem.transmit(1, id, tablica)
     sleep(rap.orp)
   end
 end
 
 function napisz(arg1) --do komentowania w ramach funkcji
   local tablica={wyd=rap.wyd, fun=rap.fun, nse=rap.nse, oka=rap.oka, orp=rap.orp, zgd=rap.zgd, stn=rap.stn, akt=rap.akt, pal=rap.pal, pll=rap.pll, sur=rap.sur, gpx=rap.gpx, gpy=rap.gpy, gpz=rap.gpz, pro=rap.pro, rod="F", nrd=0, var=0, kom=arg1, fnn=rap.fnn, fno=rap.fno} --pobiera zmienne z tablicy glownej (wiekszosc) ale przypisuje wlasny rodzaj i tresc komunikatu
   print(arg1)
   modem.transmit(1, id, tablica)
 end
 
 function uruchom_modem() -- uruchamia modem, zwraca true jesli otwarty na kanale id
 
   modem=peripheral.wrap("right")
   modem.open(id)
   if modem.isOpen(id)==true then
     rap.fnn="W1"
     rap.fno="uruchom_modem"
     napisz("Modem otwarty na kanale"..id)
     return true
   else
     print("Modem nie zostal otwarty")
     return false
   end
 end
 
 function polaczenie_z_baza(arg1, arg2, arg3, arg4) --czeka na odpowiedz zwrotna na tablice rodzaju "P" o tresci: ARG1 (rodzaj pytania-nrd), ARG2 (tresc komunikatu-kom) przez ARG3 czasu i czynnosc te powtarza ARG4 razy. Zwraca tresc komentarza tablicy zwroconej (kom), jezeli spelnione zostaly warunki (zgodnosc zmiennej var).
   rap.fnn="W2"
   rap.fno="polaczenie_z_baza"
   local warunek=0
   local licz=0
   napisz("Polaczenie_z_baza(): Wysylam pytanie numer:")
   napisz(arg1)
   repeat
     local tablica={wyd=rap.wyd, fun=rap.fun, orp=rap.orp, zgd=rap.zgd, stn=rap.stn, akt=rap.akt, pal=rap.pal, pll=rap.pll, sur=rap.sur, gpx=rap.gpx, gpy=rap.gpy, gpz=rap.gpz, pro=rap.pro, rod="P", nrd=arg1, kom=arg2, var=id2, fnn=rap.fnn, fno=rap.fno}
     modem.transmit(1, id, tablica)
     napisz("Polaczenie_z_baza(): proba: "..licz)
     os.startTimer(arg3)
     repeat
       a1, b1, c1, d1, e1, f1 = os.pullEvent()
       if ((a1=="modem_message") and (e1.nrd==1) and (e1.rod=="P") and (e1.var==id2)) then
         warunek=1
       else
         warunek=0
       end
     until (warunek==1) or (a1=="timer")
     licz=licz+1
   until (warunek==1) or (licz==arg4)
   if warunek==1 then
     napisz("Otrzymalem wiadomosc zwrotna!")
     return e1.kom
   elseif a1=="timer" then
     napisz("polaczenie_z_baza: Uplynal czas oczekiwania.")
     return a1
   else
     napisz("Nieznany wynik funkcji.")
   end
 end
 
 function sygnal(kierunek)
   if kierunek=="przod" then
     czyjest, blok=turtle.inspect()
   elseif kierunek=="gora" then
     czyjest, blok=turtle.inspectUp()
   elseif kierunek=="dol" then
     czyjest, blok=turtle.inspectDown()
   else
     napisz("F: sygnal - funkcja sygnal ze zlym parametrem")
   end
 
   if czyjest==false then
     znaleziono="nic"
   elseif blok["name"]=="minecraft:log" then
     znaleziono="drewno"
   elseif blok["name"]=="minecraft:sapling" then
     znaleziono="sadzonka"
   elseif blok["name"]=="minecraft:glass" then
     znaleziono="szklo"
   elseif blok["name"]=="minecraft:chest" then
     znaleziono="skrzynia"
   elseif blok["name"]=="minecraft:leaves" then
     znaleziono="lisc"
   elseif blok["name"]=="minecraft:snow_layer" then
     znaleziono="snieg"
   elseif blok["name"]=="minecraft:nether_brick" then
     znaleziono="ceglanetheru"
   elseif blok["name"]=="minecraft:stone" then
     znaleziono="kamien"
   elseif blok["name"]=="minecraft:lit_pumpkin" then
     znaleziono="lampion"
   elseif blok["name"]=="minecraft:obsidian" then
     znaleziono="obsydian"
   elseif (blok["name"]=="minecraft:stained_glass") and (blok.state["color"]=="blue") then
     znaleziono="szklo_niebieskie"
   elseif (blok["name"]=="minecraft:stained_glass") and (blok.state["color"]=="red") then
     znaleziono="szklo_czerwone"
   elseif (blok["name"]=="minecraft:stained_glass") and (blok.state["color"]=="purple") then
     znaleziono="szklo_purpurowe"
   elseif (blok["name"]=="minecraft:stained_glass") and (blok.state["color"]=="yellow") then
     znaleziono="szklo_zolte"
   elseif (blok["name"]=="minecraft:stained_glass") and (blok.state["color"]=="orange") then
     znaleziono="szklo_pomaranczowe"
   elseif blok["name"]=="minecraft:dirt" then
     znaleziono="ziemia"
   elseif blok["name"]=="minecraft:grass" then
     znaleziono="trawa"
   else
     znaleziono="inne"
   end
   return znaleziono
 end
 
 -- koniec czesci ogolnej
 
 function rusz()
-  while (sygnal("przod")~="szklo" and sygnal("przod")~="skrzynia") do
+
     if (sygnal("przod")=="lisc") or (sygnal("przod")=="snieg") then
       turtle.dig()
     else
       napisz("F:ruch - natrafilem na przeszkode")
       sleep(5)
     end
-  if (arg1=="rozladunek") or (arg1=="start") then
+
-    if sygnal("dol")=="szklo_pomaranczowe" then
+
 end
 
 function obroc()
   while (sygnal("przod")~="szklo_zolte" and sygnal("przod")~="szklo_pomaranczowe" and sygnal("przod")~="obsydian" and sygnal("przod")~="skrzynia") do
-      obroc()
+
   end
 end
 
 function ustaw(arg1)
 
   if (arg1=="rozladunek") then
     if sygnal("dol")=="szklo_czerwone" then
       obroc()
       turtle.turnRight()
       rusz()
       rusz()
       turtle.turnLeft()
       rusz()
-      obroc()
+      rusz()
     elseif sygnal("dol")=="szklo_zolte" then
       obroc()
       turtle.turnLeft()
-    if arg1=="start" then
+
       obroc()
     elseif sygnal("dol")=="szklo_niebieskie" then
       obroc()
       turtle.turnLeft()
       rusz()
-    if sygnal("dol")=="szklo_pomaranczowe" then
+
       rusz()
       rusz()
     elseif sygnal("dol")=="szklo_purpurowe" then
       obroc()
     else
       napisz("F:ustaw - wywolano funkcje w zlym miejscu")
     end
 
   elseif arg1=="tankuj" then
    if sygnal("dol")=="szklo_czerwone" then
       obroc()
       turtle.turnRight()
       rusz()
       rusz()
       turtle.turnLeft()
       rusz()
       rusz()
       turtle.turnLeft()
       rusz()
     elseif sygnal("dol")=="szklo_zolte" then
       obroc()
     elseif sygnal("dol")=="szklo_niebieskie" then
       obroc()
       turtle.turnLeft()
       rusz()
       turtle.turnRight()
-      napisz("F:ustaw = wywolano funkcje w zlym miejscu")
+
-    end
+      rusz()
-  elseif arg1=="sadzonki" then
+
-    if sygnal("dol")=="szklo_pomaranczowe" then
+
  elseif sygnal("dol")=="szklo_purpurowe" then
       obroc()
       turtle.turnLeft()
       rusz()
     else
-      obroc()
+
     end
   elseif arg1=="start" then
     if sygnal("dol")=="szklo_niebieskie" then
       obroc()
     elseif sygnal("dol")=="szklo_czerwone" then
       obroc()
       turtle.turnRight()
       rusz()
       rusz()
       rusz()
       turtle.turnRight()
     elseif sygnal("dol")=="szklo_zolte" then
       obroc()
       turtle.turnLeft()
       rusz()
       turtle.turnRight()
       rusz()
       rusz()
       turtle.turnLeft()
       rusz()
       turtle.turnRight()
   elseif sygnal("dol")=="szklo_purpurowe" then
       obroc()
       turtle.turnLeft()
       turtle.turnLeft()
       rusz()
       rusz()
       turtle.turnLeft()
       rusz()
       turtle.turnRight()
     else
       napisz("F:ustaw - wywolano funkcje w zlym miejscu")
     end
 
   else
     napisz("F:ustaw - funkcja ze zlym parametrem")
   end
 
 end
 
 function seria()
   local seria=rap.fno
   rap.fno="seria"
   if (sygnal("dol")=="szklo_niebieskie") or (sygnal("dol")=="szklo_pomaranczowe") or (sygnal("dol")=="szklo_purpurowe") or (sygnal("dol")=="szklo") then
     napisz("F: ruch - Jestem na linii. Zaczynam isc")
     rusz()
     while (sygnal("dol")=="ziemia") or (sygnal("dol")=="trawa") do
       rusz()
     end
     napisz("F: seria - Koniec linii.")
   else
     napisz("Nie jestem na linii. Nie mog isc.")
     rap.pro=1
   end
   rap.fno=seria
 end
 
 function zawroc()
   local zawroc=rap.fno
   rap.fno="zawroc"
   if sygnal("dol")=="szklo_purpurowe" then
     napisz("F: zawroc - zawracam")
     turtle.turnRight()
     rusz()
     turtle.turnRight()
   elseif sygnal("dol")=="szklo_pomaranczowe" then
     napisz("F: zawroc - zawracam")
     turtle.turnLeft()
     rusz()
     turtle.turnLeft()
   else
     napisz("F:zawroc - Nie jestem ustawiony na polu zawracania")
   end
   rap.fno=zawroc
 end
 
 function seriaglowna()
   seria()
   zawroc()
   seria()
   zawroc()
   seria()
   zawroc()
   seria()
 end
 
 function czypusty()
   local czypusty = rap.fno
   rap.fno="czypusty"
   local licz2=1
   local znaleziono=0
   repeat
     if turtle.getItemCount(licz2)>0 then
       znaleziono=1
     end
     licz2=licz2+1
   until licz2==17
   if znaleziono==0 then
     napisz("F:czypusty. Rozladowano")
     return true
   else
     napisz("F:czypusty. Nie rozladowano!")
     return false
   end
   rap.fno=czypusty
 end
 
 function wysyp()
   local wysyp=rap.fno
   rap.fno="wysyp"
   if (sygnal("dol")=="szklo_niebieskie") and (sygnal("przod")=="skrzynia") then
     napisz("F: wysyp - zaczynam wysypywac")
     local licz=1
     repeat
       turtle.select(licz)
       turtle.drop()
       licz=licz+1
     until licz==17
   else
     napisz("F:wysyp. Nie moge wysypac. Niewlasciwe pole.")
     return false
   end
   rap.fno=wysyp
 end
 
 function rozladunek()
   if czypusty()==true then
     napisz("F: rozladunek - nie ma potrzeby rozladunku")
   else
     local rozladunek=rap.fno
     rap.fno="rozladunek"
     napisz("F: rozladunek - ustawiam do rozladunku")
     ustaw("rozladunek")
     if (sygnal("dol")=="szklo_niebieskie") and sygnal("przod")=="skrzynia" then
       napisz("Ustawiony na polu rozladunku. Wywoluje funkcje wysyp()")
       wysyp()
       if czypusty()==false then
         rap.psp=1
         napisz("F:rozladunek - skrzynia pelna!")
         ustaw("start")
       else
         rap.psp=0
         napisz("F:rozladunek - material rozladowany")
         ustaw("start")
       end
     else
       napisz("F:rozladunek - nie stoje na pozycji do wysypu")
     end
   end
   rap.fno=rozladunek
 end
 
 function tankuj()
   local tankuj=rap.fno
   rap.fno="tankuj"
   if turtle.getFuelLevel()<rap.zpp then
     if czypusty()==true then
       ustaw("tankuj")
       if (sygnal("dol")=="szklo_zolte") and (sygnal("przod")=="skrzynia") then
         napisz("F:tankuj. Rozpoczynam tankowanie")
         turtle.select(1)
         local tank=1
         repeat
           turtle.suck()
           turtle.refuel()
           tank=tank+1
         until tank==10
         if turtle.getFuelLevel()<rap.zpp then
           rap.ptp=1
           napisz("Zatankowano - skrzynia z paliwem pusta, niedobor paliwa")
         else
           rap.ptp=0
           napisz("Zatankowano - poziom paliwa OK")
         end
       else
         napisz("F:tankuj. Nie ustawiony do tankowania.")
       end
       ustaw("start")
     else
       napisz("F:tankuj. Inwentaz nie oprozniony")
       ustaw("start")
     end
   else
     napisz("F: tankuj. Bak pelny, nie ma potrzeby tankowania")
   end
   rap.fno=tankuj
 end
 
 function gotowosc()
   turtle.select(16)
   local warunek=0
   local data=turtle.getItemDetail()
   napisz("Sprawdzam gotowosc. Paliwo zalecane to:")
   napisz(rap.zpp)
   if turtle.getFuelLevel()<rap.zpp then
     warunek=1
     napisz("F: gotowosc: brak paliwa")
   elseif turtle.getItemCount(1)>0 then
     warunek=1
     napisz("F: gotowosc: zajety slot 1")
   elseif turtle.getItemCount(4)>0 then
     napisz("F: gotowosc: zajety slot 4")
     warunek=1
   elseif turtle.getItemCount(8)>0 then
     napisz("F: gotowosc: zajety slot 8")
     warunek=1
   elseif turtle.getItemCount(16)>0 then
     if data["name"]~="minecraft:sapling" then
       napisz("F: gotowosc: zly przedmiot w slocie 16")
       warunek=1
     else
       print("")
     end
   else
     warunek=0
   end
   turtle.select(1)
   return warunek
 end
 
 function cyklglowny()
   local petla=1
   while true do
     if rap.zgd==1 then
       rozladunek()
       tankuj()
       sadzonki()
       if gotowosc()==0 then
         print("tne!")
         sleep(5)
         seriawycinka()
         zawroc()
         powrot()
         zawroc()
         napisz("Koniec cyklu glownego. Czekam 100 sekund.")
         sleep(100)
       else
         sleep(50)
       end
     else
       napisz("Brak zgody na rozpoczecie cyklu. Proba:")
       napisz(petla)
       sleep(10)
       petla=petla+1
     end
   end
 end
 
 function nawiazpolaczenie()
   if uruchom_modem()==true then
     if polaczenie_z_baza(1, "Oczekuje na polaczenie", 5, 20)=="sygnal" then
       return "2"
     else
       return "1"
     end
   else
     return "0"
   end
 end
 
 function program()
   ocenawstepna=nawiazpolaczenie()
   if ocenawstepna=="0" then
     print("Modem nieaktywny")
   elseif ocenawstepna=="1" then
     napisz("Brak polaczenia z baza")
     raportuj()
   elseif ocenawstepna=="2" then
     parallel.waitForAny(cyklglowny, aktualizuj, raportuj)
   else
     print("Nieznany wynik funkcji program")
   end
 end
 uruchom_modem()
 seriaglowna()