autocam off
sync on:sync rate 30
oldtimer = timer()
oldtimer2 = timer()
scale as float = 2.0
move  = 20
sync on:sync rate 30
oldtimer = timer()
oldtimer2 = timer()
load image "images/ground.jpg",1
make object plain 1,1024,1024
texture object 1,1
rotate object 1,90,0,0
position camera 0,move,-200
do
   mousex#=mousex#+(mousemovey()/0.5)
   mousey#=mousey#+(mousemovex()/0.5)
   rotate camera wrapvalue(mousex#),wrapvalue(mousey#),0

if timer() => oldtimer + 200
   if inkey$()="w"
      if scale <= 10.0
         scale = scale  + 2.0
         scale object texture 1,scale,scale
      endif
   oldtimer = timer()
   endif
endif

if timer() => oldtimer2 + 200
   if inkey$()="s"
      if scale > 2.0
         scale = scale  - 2.0
         scale object texture 1,scale,scale
      endif
   endif
 oldtimer2 = timer()
endif
   text 0,20,"scale: " + str$(scale)
sync
loop