heres some old dbc code that should work in pro
sync on
hide mouse
load image "cliff03.bmp",1
load image "grate02.bmp",2
rem make and place cubes randomly
for c=1 to 5
make object cube c,50
position object c,rnd(2000),0,rnd(2000)
set object collision to boxes c
texture object c,1
next c
rem makes a cube
make object sphere 10,50
position object 10,-100,0,-100
set object collision to spheres 10
texture object 10,1
do
rem stores the y angle of object 1
ay#=object angle y(10)
rem controls movement of cube note wrapvalue command
rem move object moves the object in whichever direction it is facing
if upkey()=1
move object 10,10
endif
if downkey()=1
move object 10,-10
endif
if rightkey()=1
yrotate object 10,wrapvalue(ay#+5)
endif
if leftkey()=1
yrotate object 10,wrapvalue(ay#-5)
endif
REM VERY IMPORTANT detects collision
if object collision(10,0)>0 then position object 10,x#,0,z#
rem get player position and store in x# and z#
x#=object position x(10)
z#=object position z(10)
rem get new camera position and store in cz# and cx#
rem change the last parameter to move the camera further from the player
rem change the 2nd parameter to rotate the camera round the player,not great
cz#=newzvalue(z#,ay#-180,200)
cx#=newxvalue(x#,ay#-180,200)
rem position the camera (x,y,z)
rem change the 100 to make the camera higher above the player
position camera cx#,100,cz#
rem point camera at player
point camera x#,50,z#
sync
loop
You know whats weird???
Donald duck never wore pants, yet everything time he got out of the shower he put a towel around his waist...
Whats with that???
