before you do anything with the camera do this
position camera x,y,z
point camera x+1,y,z
I find that left to it`s own Pro tends to leave the camera slightly tilted when it finishes loading objects, I think thats what you may be suffering from, try
sync on : sync rate 60
load object "medialev1-2.x",1
position object 1,0,0,0
position camera 0,0,0
point camera 1,0,1:` <<<<<<<<<<< sets the camera level
set ambient light 75
color ambient light rgb(64,64,128)
do
DebugHandler()
MoveCamera()
sync
loop
function DebugHandler()
text 0,0,"X="+str$(camera position x(0))+" Y="+str$(camera position y(0))+" Z="+str$(camera position z(0))
set cursor 0,10
print statistic(1)
endfunction
function MoveCamera()
if upkey() then move camera 1
if downkey() then move camera -1
if leftkey() then turn camera left 1
if rightkey() then turn camera right 1
remstart
*****Planning on putting this back in for debug purposes after bug is fixed*****
if shiftkey()
pitch camera up 90
move camera 1
pitch camera down 90
endIf
if controlkey()
pitch camera up 90
move camera -1
pitch camera down 90
endIf
remend
endfunction
or you can turn the autocam off first, what happens is that DB-Pro points the camera at the center of the object when it is loaded and seems to leave it pointing slightly downwards, so
sync on : sync rate 60
autocam off
load object "medialev1-2.x",1
position object 1,0,0,0
position camera 0,0,0
set ambient light 75
color ambient light rgb(64,64,128)
do
DebugHandler()
MoveCamera()
sync
loop
function DebugHandler()
text 0,0,"X="+str$(camera position x(0))+" Y="+str$(camera position y(0))+" Z="+str$(camera position z(0))
set cursor 0,10
print statistic(1)
endfunction
function MoveCamera()
if upkey() then move camera 1
if downkey() then move camera -1
if leftkey() then turn camera left 1
if rightkey() then turn camera right 1
remstart
*****Planning on putting this back in for debug purposes after bug is fixed*****
if shiftkey()
pitch camera up 90
move camera 1
pitch camera down 90
endIf
if controlkey()
pitch camera up 90
move camera -1
pitch camera down 90
endIf
remend
endfunction
should give the same effect, either way the scene should now be level.