Sorry your browser is not supported!

` Check if the camera exists with forced result checking using = 1
IF CAMERA EXIST(1) = 1
` If the camera exists - make it the current camera
SET CURRENT CAMERA 1
` Next we give additional commands if the camera did not exist
ELSE
` Make the camera
MAKE CAMERA 1
` Set the new camera as the current viewport
SET CURRENT CAMERA 1
` Position the camera otherwise it should be at 0,0,0 or the last camera position I cannot remember if this is the case lol
POSITION CAMERA 1, 100,100,100
` Set the camera to look slightly higher at the object
POINT CAMERA 1, OBJECT POSITION X(obj),OBJECT POSITION Y(obj)+20,OBJECT POSITION Z(obj)
` end the IF-ENDIF code block
ENDIF

autocam on:backdrop on
make matrix 1,4000,4000,100,100
set matrix height 1,50,50,500
update matrix 1
position camera 0,0,500,500
point camera 0,2000,0,2000
make camera 1
position camera 1,0,500,500
point camera 1,2000,0,2000
set camera view 1,10,10,100,100
while mouseclick()<>1
    if inkey$()="z" then set current camera 0 : c=0
    if inkey$()="x" then set current camera 1 : c=1
    control camera using arrowkeys c,1,1
endwhile
while mouseclick()=1 : endwhile
delete matrix 1:autocam off:backdrop off
end

make matrix 1,4000,4000,100,100
set matrix height 1,50,50,500
update matrix 1

make object cube 1,10 : color object 1,0xff0000
position object 1, 0, 30, 0

make object cube 2,10 : color object 2,0x00ff00
position object 2,200,5,200

y#=50  : c=1
sync on : sync rate 60
while 1
    if inkey$()="z" then : c=1 : color backdrop 0xff0000
    if inkey$()="x" then : c=2 : color backdrop 0x00ff00

    if shiftkey()=1 then move object up c,1
    if controlkey()=1 then move object up c,-1
    if upkey()=1 then move object c, 1
    if downkey() then move object c, -1
    if leftkey() then turn object left c,5
    if rightkey() then turn object left c,-5

    position camera  object position x(c), object position y(c), object position z(c)
    set camera to object orientation c

    set cursor 0,0 : print "use z,x key, shift,ctrl, cursor-key"
    sync
endwhile
end