hey, futsio. i had a play with it a couple months ago and this works for me:
GLOBAL myKey$ = "YourKeyHere"
SetWindowSize(1024,768,0)
SetWindowAllowResize(1)
spr=GetMap(37.352741, -122.006422, "12", "embed", "512x512", "false", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
wheel#=GetRawMouseWheel()
zoom=12
Lat#=37.352741
Long#=-122.006422
do
PointerX#=getpointerx()
PointerY#=getpointery()
if getpointerpressed()=1
StartPointerX#=PointerX#
StartPointerY#=PointerX#
endif
if getpointerstate()=1
MovePointerX#=-(StartPointerX#-PointerX#)/(zoom*zoom*zoom)
MovePointerY#=(StartPointerY#-PointerY#)/(zoom*zoom*zoom)
if MovePointerX#<>0 or MovePointerY#<>0
Lat#=Lat#+MovePointerY#
Long#=Long#+MovePointerX#
spr=GetMap(Lat#,Long#, str(zoom), "hybrid", "512x512", "false", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
endif
endif
if GetRawMouseWheel()<>wheel#
if GetRawMouseWheel()>wheel# and zoom<21
inc zoom,1
spr=GetMap(Lat#,Long#, str(zoom), "hybrid", "512x512", "false", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
endif
if GetRawMouseWheel()<wheel# and zoom>0
dec zoom,1
spr=GetMap(Lat#,Long#, str(zoom), "hybrid", "512x512", "false", "&markers=color:0x00ff00|size:mid|37.352741,-122.006422&markers=color:0x0000ff|size:mid|37.352860,-122.002130")
endif
wheel#=GetRawMouseWheel()
endif
Sync()
loop
function GetMap(n#, e#, zoom$, style$, resolution$, sensor$, markers$)
Host$="maps.googleapis.com"
iHTTP= CreateHTTPConnection()
ret=SetHTTPHost(iHTTP, Host$,1)
if len(str(e#))>0
center$=HTTPEncode(str(n#))+","+HTTPEncode(str(e#))
else
center$=HTTPEncode(str(n#))
endif
ServerFile$="maps/api/staticmap?center=40.714%2c%20-73.998&zoom=20&size=400x400&key="+mykey$
LocalFile$="map.png"
PostData$=""
f=GetHTTPFile( iHTTP, ServerFile$, LocalFile$, PostData$ )
repeat
p#=GetHTTPFileProgress(iHTTP)
print("download ... " + str(p#))
ok=GetHTTPFileComplete(iHTTP)
Sync()
until ok<>0
CloseHTTPConnection( iHTTP )
DeleteHTTPConnection( iHTTP )
if ok=1
deletesprite(spr)
spr=LoadSprite(LocalFile$)
setspritepositionbyoffset(spr,50,50)
setspritesize(spr,-1,100)
else
deletesprite(spr)
spr=createsprite(0)
setspritecolor(spr,255,0,0,255)
endif
endfunction spr
i'm sure i got the code from somewhere on the forum tho i may have altered it since the move/zoom isn't working but it does pull up the map:
hopefully this helps get you going. if you get the rest working, please post?
