Use y axis to rotate around... Or reposition the camera.
I'm not too hot on my DBC anymore....
but
This code... I've changed a few things based on my assumptions:
I've moved the Scale object command out of the main loop. (Should make it faster)
Put in the rotate y axis.
Inverted the forward and back control. I assume that when you pressed up you went forward (facing backwards...and therefore going backwards). If that's wrong just change 'em back.
And removed the second lot of y#= object y position. It's not needed. The screen only updates after every sync command. So putting it in the same frame will just slow it down.
Hopefully that should work....don't count on it though.
Hope it works!!
rem load texture
LOAD BITMAP "stab06.bmp",1
GET IMAGE 1,0,0,256,256
DELETE BITMAP 1
rem Activate manual syncronization and hide mouse
SYNC ON : HIDE MOUSE
rem Make a 3D landscape
MAKE MATRIX 1,10000.0,10000.0,25,25
rem Texture landscape
PREPARE MATRIX TEXTURE 1,1,1,1
rem Randomise landscape
randomize matrix 1,100.0
rem load objects
load object "tank6.x",1
rem Activate and distance fogging
FOG ON
FOG COLOR 0
FOG DISTANCE 4050
scale object 1,300,300,300
rotate object 1,0,180,0
rem Begin loop
DO
autocam off
set cursor 240,50:print "x"
set cursor 250,50:print x#
set cursor 330,50:print "y"
set cursor 370,50:print y#
set cursor 440,50:print "z"
set cursor 470,50:print z#
oldx#=object position x(1)
oldz#=object position z(1)
oldy#=get ground height(1,x#,z#)
oby#=object angle y(1)
rem turn tank control
if leftkey()=1 then turn object left 1,5
if rightkey()=1 then turn object right 1,5
if upkey()=1 then move object 1,+.9
if downkey()=1 then move object 1,-.9
position object 1,x#,y#+5,z#
set camera to follow x#,y#,z#,oby#,20,y#+15,3,1
point camera x#,y#,z#
rem Refresh screen
SYNC
rem End loop
LOOP
