hi ive just installed DBpro... i wanted to re-use a little gosub from an old DB project. Normally, I should be able to look around like in an 3d shoot'm up but the mouse doesn't work...
load object "1.3ds",1
do
sync
gosub freecam
loop
freecam:
rem free camera
if upkey() then move camera 1
if downkey() then move camera -1
if leftkey() or rightkey()=1
cam_strafe_yrot#=wrapvalue(cam_yrot#+90)
rotate camera 0,cam_strafe_yrot#,0
if leftkey() then move camera -1
if rightkey() then move camera 1
endif
inc cam_yrot#,mousemovex()/3
inc cam_xrot#,mousemovey()/3
cam_yrot#=wrapvalue(cam_yrot#)
cam_xrot#=wrapvalue(cam_xrot#)
rotate camera cam_xrot#,cam_yrot#,0
return