Sorry your browser is not supported!

sync on
sync rate 470
autocam off

REM stating variables
jumping#=1
jumpspeed#=1

REM make objects
make object box 1, 50, 50, 50
make object box 2, 300, 5, 300
position object 2, 0, 0, 0

REM camera positioning.
position camera -40, +30, -70

REM main loop
DO
  if upkey()=1 then inc z
  if downkey()=1 then dec z
  if leftkey()=1 then dec x
  if rightkey()=1 then inc x
  position object 1, x, y, z
  position camera x-40, y+30, z-70
  sync
LOOP

CX#=Camera Angle X(): CY#=Camera Angle Y(): CZ#=Camera Angle Z()
CX#=Wrapvalue(CX# + Mousemovey())
CY#=Wrapvalue(CY# + Mousemovex())
Rotate Camera CX#,CY#,CZ#

for a=b to c
make object a
next a

sync on
sync rate 70
autocam off

REM naming integers
a#=1

REM positioning camera
position camera -255, 0, 0
rotate camera 0, 90, 0

REM making objects
make object sphere 1, 10
position object 1, 0, 30, 0 
make object sphere 2, 14
position object 2, 15, 40, 0
make object sphere 3, 14
position object 3,-15,40,0
make object sphere 10, 15
for a=4 to 9
make object cone a, 15
next a
position object 4, 0, 10, 0
rotate object 5, 90,0,0
position object 5, 0,0,10
rotate object 6, 180,0,0
position object 6, 0, -10, 0
rotate object 7, 270,0,0
position object 7, 0,0,-10
rotate object 8, 0, 0, 90
position object 8, -10, 0, 0
rotate object 9, 0, 0, 270
position object 9, 10, 0, 0



REM main loop
DO
for a=4 to 9
rotate object a, 0, 0, 1
next a
move object 1, 1
pitch object down 1, 1
move object 2, 2
pitch object down 2, 2
move object 3, 2
pitch object down 3, 2
rotate object a,0, 1, 0
sync
LOOP