Joystick H.O.T.A.S Question (again)

Author

Message

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 8th Dec 2003 12:27 Edited at: 8th Dec 2003 18:07

Link

OK Sorry to ask this but how do I do a slider pot for throttle's? and how can I get the joystick rocker switch or foot pedal's or ball or whatever to straffe left and right for a hovercraft or to rotate for a space fighter? I have tried the Joystick slider A and B commands and they just don't work at all, I have all my model's for my game and I have bought Bryce 5 for landscaping (although I really want Mojoworld editor so I can make cyberplanet's which would be far more realistic for my game) and about 90%-100% of my model's I made using the Doga L Serie's, the thing is I wasted a lot of time and money on 3D RAD and that has proved far from satisfactory.

I did get a reply before including the comment about fancy joystick's but I have bought most of my H.O.T.A.S systems secondhand and I got a Thrustmaster Afterburner Forcefeedback Mk2 USB joystick for Â£20.00 on Ebay , I also got a Thrustmaster attack throttle for Â£5.00 and the Thrustmaster Top Gun Joystick that goe's with it for a Â£5.00.

I got a bit of bad luck buying the Rudder Control System for Â£40.00 and I also bought a Saitek X36 USB for Â£40.00 and rebought a Thrustmaster Afterburner Mk2 USB (not the Forcefeedback version) for Â£30.00, the thing is , if I can do it and I have only started buying lately and I worked as a Cleaner and Cleaner's do not get much money ,then I am sure there are thousands of PC owner's out there getting H.O.T.A.S systems to play with their game's I wish to program my games so everyone can play them, from the people would won't play anything unless it is with a mouse and keyboard and I mean a PS1 mouse and keyboard right up to a people like me who are discovering H.O.T.A.S system's (Hands On Throttle And Stick).

First of all how can I get the code for this? is there going to be a new update for Dark Basic which will include these instructions that actually work and when will it be out also don't worry , I have an old USB Trust Predator which is definately not a H.O.T.A.S system I bought this year new which only cost me Â£15.00 as it was ex-demo for Office World and that has all the axise's as the fancy H.O.T.A.S Stick's, (just that it is bloody horrible to use) please help I really don't fancy going to University to learn C++ to get the game that I want but I will if I have too.

Back to top

Profile PM

waffle

22

Years of Service

User Offline

Joined: 9th Sep 2002

Location: Western USA

Posted: 8th Dec 2003 15:35

Link

did you read the manual on how to read the joystick? Its pretty straight forward. It works just like reading the keyboard.
In fact, thats how I test things.

internet gaming group

Back to top

Profile PM Email Website

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 8th Dec 2003 18:05 Edited at: 8th Dec 2003 18:11

Link

Yes I did I was experimenting with the free flight example and put the joystick instruction's exactly as is and they didn't work I will put them up in this thread so you can see them, when I get home from the library I am in at the moment. I was at home earlier, I should have put the code up then people could see where I was going wrong

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 9th Dec 2003 14:47 Edited at: 12th Dec 2003 09:34

Link

This the code I have been trying , the funny thing is, Dark Basic read's the axises but when I write them down like this they simply don't work, can anyone help here? or can anyone tell me where I am going wrong?

Sorry that I didn't put this up earlier, I was busy yesterday

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,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 y()=1 then pitch object up 2,5
	if joystick y()=2 then pitch object down 2,5
	if joystick x()=1 then turn object left 2,5
	if joystick x()=2 then turn object right 2,5
	if joystick slider b()=1  then roll object left 2,5
	if joystick slider b()=2 then roll object right 2,5
	if joystick slider a()=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 ------------------------------------------
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 y()=1 then pitch object up 2,5
	if joystick y()=2 then pitch object down 2,5
	if joystick x()=1 then turn object left 2,5
	if joystick x()=2 then turn object right 2,5
	if joystick slider b()=1  then roll object left 2,5
	if joystick slider b()=2 then roll object right 2,5
	if joystick slider a()=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

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 9th Dec 2003 15:01 Edited at: 12th Dec 2003 09:35

Link

And I have even tried the code like this and it still doesn't work

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,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 y()=1 then pitch object up 2,5
	if joystick y()=1 then pitch object down 2,5
	if joystick x()=1 then turn object left 2,5
	if joystick x()=1 then turn object right 2,5
	if joystick slider b()=0  then roll object left 2,5
	if joystick slider b()=0 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 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 ------------------------------------------
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 y()=1 then pitch object up 2,5
	if joystick y()=1 then pitch object down 2,5
	if joystick x()=1 then turn object left 2,5
	if joystick x()=1 then turn object right 2,5
	if joystick slider b()=0  then roll object left 2,5
	if joystick slider b()=0 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 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: 9th Dec 2003 15:03 Edited at: 12th Dec 2003 09:39

Link

Also tried it like this as well

and it still dosen't work

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,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 y()=1 then pitch object up 2,5
	if joystick y()=1 then pitch object down 2,5
	if joystick x()=1 then turn object left 2,5
	if joystick x()=1 then turn object right 2,5
	if joystick slider b()=1  then roll object left 2,5
	if joystick slider b()=1 then roll object right 2,5
	if joystick slider a()=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 ------------------------------------------
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 y()=1 then pitch object up 2,5
	if joystick y()=1 then pitch object down 2,5
	if joystick x()=1 then turn object left 2,5
	if joystick x()=1 then turn object right 2,5
	if joystick slider b()=1  then roll object left 2,5
	if joystick slider b()=1 then roll object right 2,5
	if joystick slider a()=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

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 9th Dec 2003 15:04

Link

Can anyone work this out, prferably can the maker's tell me what I am doing wrong?

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 9th Dec 2003 15:05

Link

Can anyone work this out, preferably can the maker's tell me what I am doing wrong?

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 9th Dec 2003 15:05

Link

Sorry for the double post

Back to top

Profile PM

waffle

22

Years of Service

User Offline

Joined: 9th Sep 2002

Location: Western USA

Posted: 9th Dec 2003 16:00

Link

I don't have a jotstick with a slider, but
have you tried simply reading the values and seeing what they are?

internet gaming group

Back to top

Profile PM Email Website

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 9th Dec 2003 16:35 Edited at: 12th Dec 2003 09:36

Link

Yes I did check the values, listen I know you are trying to help waffle so don't take this the wrong way but you can't really help that much if you don't have a stick with a slider can you? I mean do you have a joystick at all?

Still I got it to work except now the joystick spins and rotate's all over the place, if I put in value's that are equal they just cancel out

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,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 y()=1 then pitch object up 2,5
	if joystick y()=0 then pitch object down 2,5
	if joystick x()=1 then turn object left 2,5
	if joystick x()=0 then turn object right 2,5
	if joystick slider b()=1 then roll object left 2,5
	if joystick slider b()=0 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 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 ------------------------------------------
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 y()=1 then pitch object up 2,5
	if joystick y()=0 then pitch object down 2,5
	if joystick x()=1 then turn object left 2,5
	if joystick x()=0 then turn object right 2,5
	if joystick slider b()=1 then roll object left 2,5
	if joystick slider b()=0 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 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

anyone have an idea on how I make the joystick stop spiining and just go to the direction commanded?

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 9th Dec 2003 17:09 Edited at: 12th Dec 2003 09:33

Link

Sorry I think I managed to work it out except the Joyslider B I can't get it to stop rolling in one direction , I think a Joystick rotate command is need for this but the rest I got

here it is:

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,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() then pitch object up 2,5
	if joystick down() then pitch object down 2,5
	if joystick left() then turn object left 2,5
	if joystick right() then turn object right 2,5
	if joystick slider b()=1 then roll object left 2,5
	if joystick slider b()=0 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 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 ------------------------------------------
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() then pitch object up 2,5
	if joystick down() then pitch object down 2,5
	if joystick left() then turn object left 2,5
	if joystick right() then turn object right 2,5
	if joystick slider b()=1 then roll object left 2,5
	if joystick slider b()=0 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 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

Still can anyone help me in working out how to use the rudder's better?

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 9th Dec 2003 17:46

Link

The problem seems to be that I can't get to roll left or roll right and have it in control on an axis, namely the slider B axis, if I could get get that axis I could then work out how to use that axis for straffing I think it would be RZ but has Dark Basic got an RZ axis at all?

I mean, is slider B equivalent to the RZ axis?

Back to top

Profile PM

JoelJ

21

Years of Service

User Offline

Joined: 8th Sep 2003

Location: UTAH

Posted: 10th Dec 2003 04:58

Link

put your code in the code flags
[*code]
your code here
[*/code]

just remove the starts

Back to top

Profile PM Website

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 10th Dec 2003 22:39 Edited at: 11th Dec 2003 13:08

Link

Yeah OK Darwin, thanks still is there anyone that an help me with this problem ? as I would like to be able to rotate the flying object with the Joystick Slider B command does anyone know the formula on how to do it?

I need it so I can use the rocker switch which act's as foot rudders to rotate the craft on it's axis, ,how doI do these please? Pleae help , I am so close to making a decent H.O.T.A.S control system so that I can do flight or space simulator's, I am very deparate

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 11th Dec 2003 13:09 Edited at: 12th Dec 2003 10:46

Link

I will if I get that equation, share the code with anyone who needs to know how to do it, please help

Back to top

Profile PM

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 12th Dec 2003 05:31

Link

Go back through your post's and edit them, so that the code you have put in is between the code tags that Darwin said to use, ie:

[*code]
your code here
[*/code]

( wihtout the stars * )

To edit your post, got to the one you want to edit, then go to the left and underneath where your name, and under where it has Joined and Location, there's a blue text that says Edit, click it...

DO that, and then people will be willign to read your posts, otherwise, like me, we just couldn't be bothered wading through so much code at one time, it's extremely annoying...

Hope I Helped...

Team EOD :: Programmer/Logical Engineer/All-Round Nice Guy

Back to top

Profile PM Email Website

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 12th Dec 2003 10:07 Edited at: 12th Dec 2003 11:30

Link

OK that's is done , happy now everyone? still I think I know what I did wrong I didn't upgrade my 1.08 copy to 1.13 and I thought I had,(what a klux) still I will try it now

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 12th Dec 2003 11:29

Link

Ha,ha,ha silly me solved it

Now I just need to find out how to make the throttle go backward's and forwards and how to make the joystick twist z straffe from side to side and steer, how stupid of me to waste my time with 3D RAD, should have stuck to Dark Basic all along

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 12th Dec 2003 11:38

Link

By the way, here is the code, you need Dark Basic 1.13 and an X36 USB to make it work, I will get up one for H.O.T.A.S joysticks that use Joystick slider a (namely the cheaper but very good Thrustmaster Afterburner Joystick's) this code should also work with older systems like the Thrustmaster Attack Throttle, Quickshot Sky Commander and the X36 Gameport

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,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() then pitch object up 2,5
	if joystick down() then pitch object down 2,5
	if joystick left() then turn object left 2,5
	if joystick right() 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 ==========================================
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,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() then pitch object up 2,5
	if joystick down() then pitch object down 2,5
	if joystick left() then turn object left 2,5
	if joystick right() 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: 12th Dec 2003 13:28 Edited at: 12th Dec 2003 14:34

Link

Actually just tested it with the Thrustmaster Afterburner's and, you can use this code with any H.O.T.A.S system, here is the newer code:

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,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 left() then turn object left 2,5
	if joystick right() 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 ==========================================
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,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 left() then turn object left 2,5
	if joystick right() 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: 16th Dec 2003 16:42

Link

Absolutely stunning Dark Basic, I just worked out how to make the throttle go forward and backward and how to make the joystick twist z straffe from side to side exactly like the keyboard, not only that I worked how to give the play dual controls so that the player can use just the mouse and keyboard, just need to know how to pitch the joystick upwards and turn left and right and to pitch it a little downwards but not too much so when the player is in the hovertank he can shoot at enemy A.I on the ground, fantastic Dark Basic do you know how much trouble I have had to get that type of movement in the very useless 3D RAD or even Blitz Basic 3D?

OK Blitz Basic 3D might be all that good but I haven't really had the help in getting it to work, more importantly, I haven't had any good examples to really modify and learn how to do a H.O.T.A.S system for flight or for a hovertank, and I can't get the help of the forum at all but I looked at your 1st person shooter example and had a hunch, tried and it worked , first time and it was very easy, very easy indeed, the next thing I need to work ourt is selecting weapon's and getting into and out of vehicles(though I think somehow the limb example might already be helping me to do this) I really wish I had been using Dark Basic all along, thank you very much for such a product, now I can worry about other things with my game instead of basic movement controls, Is Dark Basic Pro this easy? I shall definately be buying it

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Joystick H.O.T.A.S Question (again)