autocam off
sync on:sync rate 30
oldtimer = timer()
oldtimer2 = timer()
scale as float = 1.0

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 + 130
   if inkey$()="w"
      if scale <= 10.0
         scale = scale + 1.0
         scale object texture 1,scale,scale
       endif
   endif
   oldtimer = timer()
   endif

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