CC GPS

local function printUsage()
    print( "Usages:" )
    print( "gps host" )
    print( "gps host <x> <y> <z>" )
    print( "gps locate" )
end

local tArgs = { ... }
if #tArgs < 1 then
    printUsage()
    return
end

local function readNumber()
    local num = nil
    while num == nil do
        num = tonumber(read())
        if not num then
            write( "Not a number. Try again: " )
        end
    end
    return math.floor( num + 0.5 )
end

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( "No modem active. Opening "..sFreeSide.." modem" )
            rednet.open( sFreeSide )
            return true
        else
            print( "No modem attached" )
            return false
        end
    end
    return true
end

local sCommand = tArgs[1]
if sCommand == "locate" then
    if open() then
        gps.locate( 2, true )
    end

elseif sCommand == "host" then
    if turtle then
        print( "Turtles cannot act as GPS hosts." )
        return
    end

    if open() then
        local x,y,z
        if #tArgs >= 4 then
            x = tonumber(tArgs[2])
            y = tonumber(tArgs[3])
            z = tonumber(tArgs[4])
            if x == nil or y == nil or z == nil then
                printUsage()
                return
            end
            print( "Position is "..x..","..y..","..z )
        else
            x,y,z = gps.locate( 2, true )
            if x == nil then
                print( "Run \"gps host <x> <y> <z>\" to set position manually" )
                return
            end
        end

        print( "Serving GPS requests" )

        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.." GPS Requests served" )
            end
        end
    end

else
    printUsage()
    return
end