Sorry your browser is not supported!

sync on:sync rate 100:hide mouse
load object "obj", 1
load image "bmpforobject", 1
make object 1, [mesh inex], 1
position camera 0, [x, y, z]
do
x=camera position x(0)
y=camera position y(0)
z=camera position z(0)
xx=camera angle x(0)
yy=camera angle y(0)
zz=camera angle z(0)
position object 1, x, y, z
rotate object 1, xx, yy, zz
control camera using arrowkeys 0, 3, 3
if upkey=1 then play animation [framestart, frame end]
if downkey=1 then play animation [framestart, frame end]
`only if there is turning animation
if leftkey=1 then play animation [framestart, frame end]
if rightkey=1 then play animation [framestart, frame end]
sync
loop

`Make a basic box object with dimensions 50x50x50, this will be our character for now but replace this with your model later on.

MAKE OBJECT CUBE 1,50


` Position the camera 200 units in the air and -300 units backwards.

POSITION CAMERA 0,200,-300


` Point the camera to the x position 0, the y position 0, and the z position 0.

POINT CAMERA 0,0,0


` Begin the main loop. I'm assuming you know what a loop is by now.

DO


` Movement

` If the Upkey is pressed (equals 1), then move object 1 forward at a rate of 1 unit per sync.

IF UPKEY()=1 THEN MOVE OBJECT 1,1

` The same for the downkey but instead move them backwards.

IF DOWNKEY()=1 THEN MOVE OBJECT 1,-1


` If the rightkey is pressed (equals 1), turn object 1 right at a rate of 1 unit per sybc.

IF RIGHTKEY()=1 THEN TURN OBJECT RIGHT 1,1

` The same for leftkey being pressed, just turn the object left at a rte of 1 unit per sync.

IF LEFTKEY()=1 THEN TURN OBJECT LEFT 1,1


` Refresh the screen with the sync command so we can see the new result of the movement we made

SYNC

` Tell the program to go back to the do command, starting over the process again and again and again and...again  :)

LOOP