find land

set sgh to ship.
set sgsilent to false.
set sgsearchdist to 20000.
set sgdist to sgsearchdist / (gala:radius * 2 * constant:pi/360).


set searching to true.
set sgang to 0.
when true then {

for sgang in range(360) {
    set sglatoffset to sgdist * sin(sgang).
    set sglongoffset to sgdist * cos(sgang).
    set sgsearchgeo to gala:geopositionlatlng(sgh:geoposition:lat + sglatoffset , sgh:geoposition:lng + sglongoffset).
    if sgsearchgeo:terrainheight > 0 {
        print "LAND HO".
        print sgsearchgeo.
        set landgeo to sgsearchgeo.
        set searching to false.
        writejson(landgeo, "0:/json/landgeo.json").
        writejson(sgsearchdist, "0:/json/sgsearchdist.json").
    }
}

        set sgsearchdist to sgsearchdist + 500.
        set sgdist to sgsearchdist / (gala:radius * 2 * constant:pi/360).

        if not sgsilent {
    print (sgsearchdist):tostring():padright(terminal:width) at (0,0).
    print (sgang):tostring():padleft(3):padright(terminal:width) at (0,1).
}
    return searching.
}

on throttle {
    set searching to false.
}