Sorry your browser is not supported!

SetDisplayAspect(0)
spr=GetMap(37.352741, -122.006422, "12", "hybrid", "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$,0)

    if len(str(e#))>0
        center$=HTTPEncode(str(n#))+","+HTTPEncode(str(e#))
    else
        center$=HTTPEncode(str(n#))
    endif

	Key$="YOUR_APIKEY"
    ServerFile$="maps/api/staticmap?key="+Key$+"+¢er="+center$+"&zoom="+zoom$+"&size="+resolution$+"&sensor="+sensor$+"&maptype="+HTTPEncode(style$)+markers$
    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