Damn it, I the camera to work and to be turned and rotated on it's axis by the Joystick P.O.V. , with help from Jess Ticular I got the camera to move from the 3rd and the 1st time, and now THE DAMN CAMERA WON'T STAY STILL IN THE FIRST PERSON WHEN I PRESS THE INKEY ,
How do I get the camera to stay still? I am using the free flight example, can someone tell me what I am doing wrong?
rem ==========================================
rem DARK BASIC EXAMPLE PROGRAM 18
rem ==========================================
rem This program shows free flight movement
rem ------------------------------------------
autocam off
hide mouse
sync on
rem Make wire sky sphere
make object sphere 1,5000
set object 1,0,0,0
rem Make flying object
make object box 2,150,5,20
make mesh from object 2,2
delete object 2
make object box 2,25,15,100
add limb 2,1,2
position object 2,0,0,500
rem Make drone to mark a back position
make object sphere 3,10
rem Set camera range
set camera range 1,20000
rem Set text font
set text font "Arial"
ink rgb(255,255,0),0
set text size 30
rem Main loop
do
rem User prompt
center text 320,5,"FREE FLIGHT ORIENTATION FOR H.O.T.A.S systems"
center text 320,35,"Use joystick to Turn and Pitch"
center text 320,60,"Use Joystick Rocker Switch/ Rudder Pedals to Roll"
center text 320,85,"Use Joystick Throttle to Move"
center text 320,110,"Use SPACE to Reset"
rem Control free flight object
if joystick up()=1 then pitch object up 2,5
if joystick down()=1 then pitch object down 2,5
if joystick left()=1 then turn object left 2,5
if joystick right()=1 then turn object right 2,5
if joystick twist z()=-1000 then roll object left 2,5
if joystick twist z()=1000 then roll object right 2,5
if joystick slider a()=0 then move camera 20 : move object 2,20
if spacekey()=1 then rotate object 2,0,0,0
rem Control Camera
if joystick hat angle(0)=0 then pitch object up 2,5
if joystick hat angle(0)=18000 then pitch object down 2,5
if joystick hat angle(0)=9000 then turn object left 2,5
if joystick hat angle(0)=27000 then turn object right 2,5
rem Get back position of object for camera
pitch object down 2,11
move object 2,-150
position object 3,object position x(3),object position y(3),object position z(3)
move object 2,150
pitch object up 2,11
cammode = 0
If InKey$() = "3" And cammode = 0 Then cammode = 1 : `Set the camera mode to third person`
If InKey$() = "1" And cammode = 1 Then cammode = 0 : `Set the camera mode to first person`
If cammode = 0
position camera object position x(3),object position y(3),object position z(3)
set camera to object orientation 2
Endif
If cammode = 1
position camera object position x(2),object position y(2),object position z(2)
set camera to object orientation 2
EndIf
rem Update screen
sync
loop
