Sorry your browser is not supported!

sync on:sync rate 0
backdrop on:make matrix 1,1000,1000,25,25
make object cube 1,100
position object 1,0,0,300
t#=200
do
     h#=curvevalue(t#,h#,30)
     ax#=wrapvalue(ax#+1)
     ay#=wrapvalue(ay#+2)
     az#=wrapvalue(az#+0.3)
     rotate object 1,ax#,ay#,az#
     if coltimer+1000<timer()
          coltimer=timer()
          color object 1,rgb(rnd(255),rnd(255),rnd(255))
     endif
     if h#>195
          t#=-100
     endif
     if h#<-95
          t#=200
     endif
     camA#=wrapvalue(camA#+2)
     if upkey()=1
          cx#=cx#+sin(a#)*6
          cz#=cz#+cos(a#)*6
     endif
     if downkey()=1
          cx#=cx#-sin(a#)*6
          cz#=cz#-cos(a#)*6
     endif
     if leftkey()=1
          a#=wrapvalue(a#-3)
     endif
     if rightkey()=1
          a#=wrapvalue(a#+3)
     endif
     text 20,20,str$(screen fps())
     color backdrop rgb(255,0,0)
     position camera 0,h#,0
     point camera 0,0,300
     set camera view 0,0,screen width()/2,screen height()/2
     color backdrop rgb(0,0,255)
     position camera sin(camA#)*300,200,cos(camA#)*400
     point camera 0,0,300
     set camera view screen width()/2,0,screen width(),screen height()/2
     color backdrop rgb(0,255,0)
     position camera cx#,20,cz#
     rotate camera 0,a#,0
     set camera view 0,screen height()/2,screen width()/2,screen height()
     color backdrop rgb(255,255,0)
     position camera -150,100,450
     point camera 0,0,300
     set camera view screen width()/2,screen height()/2,screen width(),screen height()
     sync
loop

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

sync on
make object cube 1,2
scale object 1,100,100,400
position object 1,0,0,0
do
position camera 0,0,-30
xrotate camera 0
set object 1,0,1,0
set camera view 0,0,310,480
sync
position camera 0,30,0
xrotate camera 90
set object 1,1,1,0
set camera view 330,0,640,480
sync
loop