Sorry your browser is not supported!

`Get initial positions and a revert settings
oldx#=object position x(objectNo.)  `Old object X-direction Position
oldz#=object position z(objectNo.)   `Old object Z-direction Position
cx#=object position x(objectNo.)      `New X position
cy#=object position y(objectNo.)      `New Y position
cz#=object position z(objectNo.)      `New Z position
ca#=object angle y(objectNo.)         `New angle# position

set camera to follow posx#,posy#,posz#,angle#,Distance#,height#,Smooth#,collisionNo.

Rem Project: 3D Camera Rotate
Rem Created: 18/10/2005 06:18:03
Rem by FITZMARCADE
Rem ***** Main Source File *****
sync on
srate=60
sync rate srate
color backdrop 0

spd#=3
height#=20
smooth#=20
collisionNo#=1
Level=1
Player=2


gosub Player

gosub Levels

oldx#=object position x(Player)
oldz#=object position z(Player)
cx#=object position x(Player)
cy#=object position y(Player)
cz#=object position z(Player)
ca#=object angle y(Player)

Rem Begin Main program loop:-
do

rem Controls:-
if upkey()=1
   cx#=newxvalue(cx#,wrapvalue(ca#),spd#) `Wrapvalue is used to rotate objects
   cz#=newzvalue(cz#,wrapvalue(ca#),spd#)
   position object Player,cx#,cy#,cz#
endif

if leftkey()=1 then ca#=ca#-2
if rightkey()=1 then ca#=ca#+2
yrotate object Player,ca#

`Show the camera angle
print "Object angle:",object angle y(Player)

`Camera follows the object:-
posx#=object position x(Player)
posy#=object position y(Player)
posz#=object position z(Player)
angle#=object angle y(Player)
set camera to follow posx#,posy#,posz#,angle#,height#,posy#+8,smooth#,collisionNo#

if inkey$()="x" then show mouse : exit prompt "Click on [OK] button to Exit!","Exiting this Game Now!" : end
sync
loop

Levels:
Make object box Level,500,10,500 : position object Level,0,-10,0
color object Level,rgb(0,250,0)
Return

Player:
make object sphere Player,10
Return