Sorry your browser is not supported!

sync on
sync rate 0
hide mouse
color backdrop rgb(100,100,255)

load object "a.x",1
SET OBJECT COLLISION TO polygons 1

make object cube 2,50
position object 2,250,100,250
automatic object collision 2,50,1

position camera 0,100,100,100

do

point camera 0,object position x(2),object position y(2), object position z(2)

if upkey()=1 then move object 2,1
if downkey()=1 then move object 2,-1
if leftkey()=1 then turn object left 2,0.5
if rightkey()=1 then turn object right 2,0.5

sync

loop

rem Collision Functionality

sync on : sync rate 0 : hide mouse : color backdrop rgb(100,100,255)

rem create walls
make object box 2,400,100,10 : position object 2,0,50,-200
make object box 3,400,100,10 : position object 3,0,50, 200
make object box 4,10,100,400 : position object 4,-200,50,0
make object box 5,10,100,400 : position object 5, 200,50,0

make object collision box 2,-200,-50,-5,200,50,5,0
make object collision box 3,-200,-50,-5,200,50,5,0
make object collision box 4,-5,-50,-200,5,50,200,0
make object collision box 5,-5,-50,-200,5,50,200,0

make object cube 20,30
position object 20,0,30,0
automatic object collision 20,1,1

set global collision on

position camera 0,500,500,500

rem loop
do

point camera 0,object position x(20),object position y(20),object position z(20)


rem control camera
if upkey()=1 then move object 20,1
if leftkey()=1 then turn object left 20,1
if rightkey()=1 then turn object right 20,1

rem update screen
sync

rem end loop
loop