Here you go:
rem Landscape texture
cls rgb(0,150,0)
ink rgb(0,50,0),0
for t = 1 to 100
randomize t*timer()
dot rnd(10)*2,rnd(20)
next t
get image 1,0,0,20,20
rem Matrix
make matrix 1,1000,1000,50,50
randomize matrix 1,30
prepare matrix texture 1,1,1,1
rem Some variables
minzoom# = 90.0
maxzoom# = 20.0
sync rate 0
sync on
do
rem Camera controls
position camera 500,50,500
inc max#,(mousemovey()/3)
inc may#,(mousemovex()/3)
rotate camera wrapvalue(max#),wrapvalue(may#),0
rem Sniping
if mouseclick()=2 then zoomfactor# = maxzoom# else zoomfactor# = minzoom#
actualfov# = curvevalue(zoomfactor#,actualfov#,10)
set camera fov actualfov#
rem Display info
set cursor 0,0
if zoomfactor# = minzoom# then print "USER RIGHT MOUSE BUTTON TO ZOOM" else print "ZOOMING - RELEASE TO RETURN"
sync
loop
*Should* be no problem without Pro - there are no special commands there.
Quite pleased with that demo actually
Two strings walk into a bar. I'll have a pint says the first$%ASLDJ09920D"$"$D. Excuse my friend says the second, he isn't null terminated.
