Sorry your browser is not supported!

make object sphere 1,50
yrotate object 1,180
fix object pivot 1
sync on
make matrix 1,50000,50000,25,25
do
x1#=object position x(1)
y1#=object position y(1)
z1#=object position z(1)
set camera to follow x1#,y1#,z1#,a#,100,50,1,1 
if v#>0 then v#=v#/1.008
if v#<0 then v#=v#/1.008
if v#<0.1 and v#>-0.1 then v#=v#-v#
if upkey()=1 
if v#=0
v#=v#+2
else
if v#>0 then v#=v#*1.05
if v#<0 then v#=v#/1.01
endif
endif
if downkey()=1
if v#=0
v#=v#-2
else
if v#>0 then v#=v#/1.01
if v#<0 then v#=v#*1.05
endif
endif
move object 1,v#
if leftkey()=1 then a#=wrapvalue(a#-1)
if rightkey()=1 then a#=wrapvalue(a#+1)
a#=wrapvalue(a#)
yrotate object 1,a#
sync
loop 

` This tutorial was created by Yellow -Mike- 2-26-04
` Although not necessary, it would be nice to be credited and
` notified at yellow1dbp@hotmail.com if this was used in a game
` Thanks, and I hope the tutorial helps.

` Welcome to the follow camera tutorial
` This will provide a basic tutorial on a following camera

`We first set the sync rate on and to a refresh rate of 60.
sync on : sync rate 60

`We make this matrix so it will give us a sense of direction in the program.
make matrix 1,1000,1000,10,10
`Now we make a cube, that will act as our main character.
make object cube 1,4
`This determines how fast our player will move. This line is not necessary,
`yet it helps us to tweak the speeds of our character to get it just right easily.
Object_Speed#=100

do `Initialize our loop

` "X" is the x position "1" is the object number
` and "#" tells the comiler we're working with numbers.
` These variables can be whatever you like, yet I like having a standard method that
` you can easily identify what each variable is for, and what object it applies to.
x1#=object position x(1)
y1#=object position y(1)
z1#=object position z(1)
` Same principles as above, yet the "a" stands for angle, "y" for the type of angle
` and the "#" tells the comiler we're working with numbers.
ay1#=object angle y(1)

`The reason we initialized the variables above, was so we could use the
`set camera to follow command. This lets the camera follow the object
`located at the x position(x1#), y position(y1#) and z position (z1#)
`We've also added the object angle y(ay#), so that when the object turns, the camera
`will re-adjust to the proper angle.

set camera to follow x1#,y1#,z1#,ay1#,5,5,1,1

`These two commands tell the object to move forward with the up and down keys.
`Again, you'll see the Object_Speed# variable, that determines how fast they go.
if upkey()=1
 move object 1,Object_Speed#
 move camera Object_Speed#-(1)
endif

if downkey()=1
 move object 1,-Object_Speed#
 move camera -Object_Speed#+(1)
endif
`We use our object angle y(ay#) variable here to determine whether the object
`turns left or right.
if leftkey()=1 then rotate object 1,0,(ay1#)-1,0
if rightkey()=1 then rotate object 1,0,(ay1#)+1,0

sync `Refresh the screen
loop ` Loop the program

`You now have the basis of a follow cam tutorial.
`Hope this helped -Mike-
`Copyright(c) 2004 Curved Basic