-- modul GPS

-- ladowanie wspolrzednych do plikow

function pliki()
  fs.makeDir("lokalizacja")

  file=io.open("lokalizacja/xwk", "w")
  wartosc=1
  file:write(wartosc)
  file:close()

  file=io.open("lokalizacja/xwn", "w")
  wartosc=0
  file:write(wartosc)
  file:close()

file=io.open("lokalizacja/xww", "w")
  wartosc=0
  file:write(wartosc)
  file:close()

file=io.open("lokalizacja/xwp", "w")
  wartosc=0
  file:write(wartosc)
  file:close()

  print("zapisano")

end

function podajwspolrzedne()

file=io.open("lokalizacja/xwk", "r")
  odczyt1=file:read()
  file:close()
write("kierunek to: ")
print(odczyt1)

file=io.open("lokalizacja/xwn", "r")
  odczyt2=file:read()
  file:close()
write("wspolrzednia N-S to: ")
print(odczyt2)

file=io.open("lokalizacja/xww", "r")
  odczyt3=file:read()
  file:close()
write("wspolrzednia W-E to: ")
print(odczyt3)

file=io.open("lokalizacja/xwp", "r")
  odczyt4=file:read()
  file:close()
write("wspolrzednia pionowa to: ")
print(odczyt4)

end

xwk = 1 -- wspolrzedna kierunek (1-polnoc, 2-wschod, 3-poludnie 4-zachod)
xwn = 0 -- wspolrzedna pozioma (polnoc-poludnie)
xww = 0 -- wspolrzedna pozioma (zachod-wschod)
xwp = 0 -- wspolrzedna pionowa (gora-dol)

function drukujpolozenie()
  write("wspolrzedna kierunek: ")
  write(xwk)
  print()

  write("wspolrzedna pozioma1: ")
  write(xwn)
  print()

  write("wspolrzedna pozioma2: ")
  write(xww)
  print()

  write("wspolrzedna pionowa:  ")
  write(xwp)
  print()

end

function obrotwlewo()
  if turtle.turnLeft() then

   file=io.open("lokalizacja/xwk", "r")
   xwk=file:read()
   file:close()
   xwk=xwk-1
      if xwk==0 then
        xwk=4
      end
   file=io.open("lokalizacja/xwk", "w")
   file:write(xwk)
   file:close()
   return true
  else
   return false
  end
end

function obrotwprawo()
  if turtle.turnRight() then
   file=io.open("lokalizacja/xwk", "r")
   xwk=file:read()
   file:close()
    xwk=xwk+1
    if xwk==5 then
      xwk=1
    end
   file=io.open("lokalizacja/xwk", "w")
   file:write(xwk)
   file:close()
    return true
    else
    return false
    end
end

function krokdoprzodu()
  if turtle.forward() then
  file=io.open("lokalizacja/xwk", "r")
  xwk=file:read()
  file:close()
  xwk=xwk+1-1
    if xwk==1 then
      file=io.open("lokalizacja/xwn", "r")
      xwn=file:read()
      file:close()
      xwn=xwn-1
      file=io.open("lokalizacja/xwn", "w")
      file:write(xwn)
      file:close()
    end
    if xwk==2 then
      file=io.open("lokalizacja/xww", "r")
      xww=file:read()
      file:close()
      xww=xww+1
      file=io.open("lokalizacja/xww", "w")
      file:write(xww)
      file:close()
    end
    if xwk==3 then
      file=io.open("lokalizacja/xwn", "r")
      xwn=file:read()
      file:close()
      xwn=xwn+1
      file=io.open("lokalizacja/xwn", "w")
      file:write(xwn)
      file:close()
    end
    if xwk==4 then
      file=io.open("lokalizacja/xww", "r")
      xww=file:read()
      file:close()
      xww=xww-1
      file=io.open("lokalizacja/xww", "w")
      file:write(xww)
      file:close()
    end
  return true
  else return false
  end
end

function krokdotylu()
  if turtle.back() then
    file=io.open("lokalizacja/xwk", "r")
    xwk=file:read()
    file:close()
    xwk=xwk+1-1
    if xwk==1 then
      file=io.open("lokalizacja/xwn", "r")
      xwn=file:read()
      file:close()
      xwn=xwn+1
      file=io.open("lokalizacja/xwn", "w")
      file:write(xwn)
      file:close()
    end
    if xwk==2 then
      file=io.open("lokalizacja/xww", "r")
      xww=file:read()
      file:close()
      xww=xww-1
      file=io.open("lokalizacja/xww", "w")
      file:write(xww)
      file:close()
    end
    if xwk==3 then
      file=io.open("lokalizacja/xwn", "r")
      xwn=file:read()
      file:close()
      xwn=xwn-1
      file=io.open("lokalizacja/xwn", "w")
      file:write(xwn)
      file:close()
    end
    if xwk==4 then
      file=io.open("lokalizacja/xww", "r")
      xww=file:read()
      file:close()
      xww=xww+1
      file=io.open("lokalizacja/xww", "w")
      file:write(xww)
      file:close()
    end
  return true
  else return false
  end
end

function krokdogory()

if turtle.up() then
 file=io.open("lokalizacja/xwp", "r")
   xwp=file:read()
   file:close()
   xwp=xwp+1
   file=io.open("lokalizacja/xwp", "w")
   file:write(xwp)
   file:close()
    return true
  else
    return false
  end

end

function krokwdol()
  if turtle.down() then
file=io.open("lokalizacja/xwp", "r")
   xwp=file:read()
   file:close()
   xwp=xwp-1
   file=io.open("lokalizacja/xwp", "w")
   file:write(xwp)
   file:close()
    return true
  else
    return false
  end

end