GPS Host v1.0

-- Wpisz wspolrzedne WIRELESS MODEMU!
local x = 0
local y = 0
local z = 0

term.clear()
term.setCursorPos(1,1)

local function open()
    local bOpen, sFreeSide = false, nil
    for n,sSide in pairs(rs.getSides()) do
        if peripheral.getType( sSide ) == "modem" then
            sFreeSide = sSide
            if rednet.isOpen( sSide ) then
                bOpen = true
                break
            end
        end
    end

    if not bOpen then
        if sFreeSide then
            print( "Nie ma otwartego modemu. Otwieranie modemu "..sFreeSide )
            rednet.open( sFreeSide )
            return true
        else
            print( "Zaden modem nie jest podlaczony" )
            return false
        end
    end
    return true
end

if turtle then
    print( "Zolwie nie moga byc hostami GPS." )
    return
end

if open() then
    nx,ny,nz = gps.locate( 2, true )
    if x ~= nil then
        print("Zlokalizowano za pomoca innych punktow odniesienia")
        if x~=nx or y~=ny or z~=nz then
            print("UWAGA! Niezgodnosc wprowadzonych danych i danych z punktu odniesienia!")
            print("Sprawdz ustawienia koordynatow ponownie!")
        end
        x=nx
        y=ny
        z=nz
    else
        print("Lokalizacja manualna")
    end
    print( "Pozycja to "..x..","..y..","..z )

    print( "Host GPS uruchomiony" )

    local nServed = 0
    while true do
        sender,message,distance = rednet.receive()
        if message == "PING" then
            rednet.send(sender, textutils.serialize({x,y,z}))

            nServed = nServed + 1
            if nServed > 1 then
                local x,y = term.getCursorPos()
                term.setCursorPos(1,y-1)
            end
            print( nServed.." przetworzonych zadan GPS" )
        end
    end
end