Sorry your browser is not supported!

Sync On
Sync Rate 30

Rem Create matrix
Make Matrix 1,200,200,50,50

Rem create the player object
Make Object Sphere 10, 1

Rem position the player object
Position Object 10, 0,275,0

do

    rem store player's angle
    PlayerAngleY# = Object angle Y(10)

    Rem get player object position and store in X# and Z#
    PlayerX# = Object position x(10)
    PlayerZ# = Object position z(10)

    Rem get new camera position and store in cZ# and cX#
    CameraZ# = Newzvalue(PlayerZ#,PlayerAngleY#-180,100)
    CameraX# = Newxvalue(PlayerX#,PlayerAngleY#-180,100)
    
    Rem position camera
    Position Camera CameraX#,100,CameraZ#
    
    Rem point the camera at the player object
    Point camera PlayerX#,50,PlayerZ#
sync

loop

` Setup Display
Sync On

` Set Sync Rate
Sync Rate 30

` Disable Automatic Camera Positioning
AUTOCAM OFF

Rem Create matrix
Make Matrix 1,200,200,50,50

Rem create the player object
Make Object Sphere 10, 10

Rem position the player object
Position Object 10, 0,20,0

rem store player's angle
PlayerAngleY# = Object angle Y(10)

` Create A Global Value For The player Speed And Give It A Relative Name
Global PlayerSpeed = 1

` Start The Main Loop
do

Rem position camera
Position Camera OBJECT POSITION X(10),OBJECT POSITION Y(10)+20,OBJECT POSITION Z(10)-50

Rem point the camera at the player object
Point camera OBJECT POSITION X(10),OBJECT POSITION Y(10),OBJECT POSITION Z(10)

` Implement Movement Controls Kind Of Self Explanatory
if rightkey()
    position object 10, OBJECT POSITION X(10)+PlayerSpeed,OBJECT POSITION Y(10),OBJECT POSITION Z(10)
endif
if leftkey()
    position object 10, OBJECT POSITION X(10)-PlayerSpeed,OBJECT POSITION Y(10),OBJECT POSITION Z(10)
endif
if upkey()
    position object 10, OBJECT POSITION X(10),OBJECT POSITION Y(10),OBJECT POSITION Z(10)+PlayerSpeed
endif
if downkey()
    position object 10, OBJECT POSITION X(10),OBJECT POSITION Y(10),OBJECT POSITION Z(10)-PlayerSpeed
endif    

` Sync The Screen
sync

` Loop The Main Loop
loop

` Good Practice To Place This END Command Here
end