Space[lane & Aircraft H.O.T.A.S flight code here

Author

Message

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 19th Dec 2003 17:56 Edited at: 19th Dec 2003 18:41

Link

Sorry about this, this is the spaceship version sorry I edited the post so it's a bit back to front as I have had to edited the thread (stupid pop up adverts interfering every damn time,) still here they both are you will have to work out doing a 1st person camera yourself

rem DARK BASIC EXAMPLE PROGRAM 18
rem ==========================================
rem This program shows free flight movement with H.O.T.A.S sticks
rem ------------------------------------------
rem updated by Vampyre(Ian George)
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,10000

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,0,"FREE FLIGHT ORIENTATION"
	center text 320,25,"If you Have any H.O.T.A.S System ,"
   center text 320,50,"Use the Joystick to Pitch Up and Down"
	center text 320,70,"Use Your H.O.T.A.S. Rudders to Roll"
	center text 320,90,"Use Your 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 z()=-1000 then move camera 20 : move object 2,20
  	if spacekey()=1 then rotate object 2,0,0,0

rem Get back position of object for camera 
	pitch object down 2,11
	move object 2,-150
	position object 3,object position x(2),object position y(2),object position z(2)
	move object 2,150
	pitch object up 2,11

rem Place camera and set orientation to object
	position camera object position x(3),object position y(3),object position z(3)
	set camera to object orientation 2

rem Update screen
	sync

loop

+ Code Snippet

rem DARK BASIC EXAMPLE PROGRAM 18
rem ==========================================
rem This program shows free flight movement with H.O.T.A.S sticks
rem ------------------------------------------
rem updated by Vampyre(Ian George)
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,10000

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,0,"FREE FLIGHT ORIENTATION"
	center text 320,25,"If you Have any H.O.T.A.S System ,"
   center text 320,50,"Use the Joystick to Pitch Up and Down"
	center text 320,70,"Use Your H.O.T.A.S. Rudders to Roll"
	center text 320,90,"Use Your 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 z()=-1000 then move camera 20 : move object 2,20
  	if spacekey()=1 then rotate object 2,0,0,0

	rem Get back position of object for camera 
	pitch object down 2,11
	move object 2,-150
	position object 3,object position x(2),object position y(2),object position z(2)
	move object 2,150
	pitch object up 2,11

	rem Place camera and set orientation to object
	position camera object position x(3),object position y(3),object position z(3)
	set camera to object orientation 2

	rem Update screen
	sync

loop

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 19th Dec 2003 17:59

Link

Hello, this is my submission, this is the free flight example updates for those with H.O.T.A.S joysticks (Hands On Throttle And Stick) like the Saitek X36USB , X45 USB X36 Gameport, Thrustmaster Afterburner USB Joysticks I will do two simple Joystick and keyboard versions and a Force Feedback version soon

This is the Aircraft version:

rem DARK BASIC EXAMPLE PROGRAM 18
rem ==========================================
rem This program shows free flight movement with H.O.T.A.S sticks
rem ------------------------------------------
rem updated by Vampyre(Ian George)
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,10000

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,0,"FREE FLIGHT ORIENTATION"
	center text 320,25,"If you Have any H.O.T.A.S System ,"
   center text 320,50,"Use the Joystick to Pitch Up and Down"
	center text 320,70,"Use Your H.O.T.A.S. Rudders to Roll"
	center text 320,90,"Use Your Joystick Throttle to Move"
	center text 320,110,"Use SPACE to Reset"

rem Control free flight object
	if joystick up() then pitch object up 2,5
	if joystick down() then pitch object down 2,5
	if joystick twist z()=1000  then turn object left 2,5
	if joystick twist z()=-1000 then turn object right 2,5
	if joystick left()= 1 then roll object left 2,5
	if joystick right()= 1 then roll object right 2,5
	if joystick z()=-1000 then move camera 20 : move object 2,20
  	if spacekey()=1 then rotate object 2,0,0,0

rem Get back position of object for camera 
	pitch object down 2,11
	move object 2,-150
	position object 3,object position x(2),object position y(2),object position z(2)
	move object 2,150
	pitch object up 2,11

rem Place camera and set orientation to object
	position camera object position x(3),object position y(3),object position z(3)
	set camera to object orientation 2

rem Update screen
	sync

loop

+ Code Snippet

rem DARK BASIC EXAMPLE PROGRAM 18
rem ==========================================
rem This program shows free flight movement with H.O.T.A.S sticks
rem ------------------------------------------
rem updated by Vampyre(Ian George)
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,10000

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,0,"FREE FLIGHT ORIENTATION"
	center text 320,25,"If you Have any H.O.T.A.S System ,"
   center text 320,50,"Use the Joystick to Pitch Up and Down"
	center text 320,70,"Use Your H.O.T.A.S. Rudders to Roll"
	center text 320,90,"Use Your Joystick Throttle to Move"
	center text 320,110,"Use SPACE to Reset"

	rem Control free flight object
	if joystick up() then pitch object up 2,5
	if joystick down() then pitch object down 2,5
	if joystick twist z()=1000  then turn object left 2,5
	if joystick twist z()=-1000 then turn object right 2,5
	if joystick left()= 1 then roll object left 2,5
	if joystick right()= 1 then roll object right 2,5
	if joystick z()=-1000 then move camera 20 : move object 2,20
  	if spacekey()=1 then rotate object 2,0,0,0

	rem Get back position of object for camera 
	pitch object down 2,11
	move object 2,-150
	position object 3,object position x(2),object position y(2),object position z(2)
	move object 2,150
	pitch object up 2,11

	rem Place camera and set orientation to object
	position camera object position x(3),object position y(3),object position z(3)
	set camera to object orientation 2

	rem Update screen
	sync

loop

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 19th Dec 2003 18:41

Link

these should also work with joystick ,throttle and pedal's so if you have old Thrustmaster serial gear or you have expensive CHproduct gear it should also work with those

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 20th Dec 2003 02:10

Link

and here is the good old, plain old joystick and keyboard version

rem ==========================================
rem DARK BASIC EXAMPLE PROGRAM 18
rem ==========================================
rem This program shows free flight movement
rem ------------------------------------------
rem modified by Vampyre
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,10000

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"
	center text 320,35,"Use ARROW KEYS to Turn and Pitch"
	center text 320,60,"Use [<] and [>] to Roll"
	center text 320,85,"Use LMB 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 leftkey()=1 then roll object left 2,5
	if rightkey()=1 then roll object right 2,5
	if upkey()=1 then move camera 20 : move object 2,20
	if spacekey()=1 then rotate object 2,0,0,0

rem Get back position of object for camera 
	pitch object down 2,11
	move object 2,-150
	position object 3,object position x(2),object position y(2),object position z(2)
	move object 2,150
	pitch object up 2,11

rem Place camera and set orientation to object
	position camera object position x(3),object position y(3),object position z(3)
	set camera to object orientation 2

rem Update screen
	sync

loop

+ Code Snippet

rem ==========================================
rem DARK BASIC EXAMPLE PROGRAM 18
rem ==========================================
rem This program shows free flight movement
rem ------------------------------------------
rem modified by Vampyre
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,10000

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"
	center text 320,35,"Use ARROW KEYS to Turn and Pitch"
	center text 320,60,"Use [<] and [>] to Roll"
	center text 320,85,"Use LMB 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 leftkey()=1 then roll object left 2,5
	if rightkey()=1 then roll object right 2,5
	if upkey()=1 then move camera 20 : move object 2,20
	if spacekey()=1 then rotate object 2,0,0,0

	rem Get back position of object for camera 
	pitch object down 2,11
	move object 2,-150
	position object 3,object position x(2),object position y(2),object position z(2)
	move object 2,150
	pitch object up 2,11

	rem Place camera and set orientation to object
	position camera object position x(3),object position y(3),object position z(3)
	set camera to object orientation 2

	rem Update screen
	sync

loop

Back to top

Profile PM

Colin

21

Years of Service

User Offline

Joined: 17th Sep 2003

Location:

Posted: 28th Dec 2003 11:41

Link

Nice

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 28th Dec 2003 22:15

Link

Thanks Colin, it's nothing much though, needs a 1st person and 3rd person view to really make it good

Back to top

Profile PM

Kain the Second

20

Years of Service

User Offline

Joined: 9th Jan 2004

Location:

Posted: 10th Jan 2004 03:31

Link

this is damn familiar

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 15th Jan 2004 05:53

Link

Oh dear, sorry, thought I said it was a modification of the free flight example, still that is what it is , although I will try to make a 1st person view with a Joyhat controlled camera

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / Space[lane & Aircraft H.O.T.A.S flight code here

Sorry your browser is not supported!

Code Snippets / Space[lane &amp; Aircraft H.O.T.A.S flight code here

Code Snippets / Space[lane & Aircraft H.O.T.A.S flight code here