TheGameCreators - CodeBase - H.O.T.A.S Joystick,Joystick & Mouse flight control

Category: 3D

Version: 1.13

Information

Uploaded: 1st Jul 2007 11:06

Modified: 1st Jul 2007 11:30

Author: vampyre

Summary

Basically this is a combination flight control program you can use the mouse ,keyboards and joystick controls to fly your VTOL fighter,or bomber aircraft, might need a bit of work to make it into a commercial jet airliner (although I would just take out the VTOL Commands and make the aircraft not be able to take off unless it reached 150 miles an hour) not too much for a private plane though there you go

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM ***************************************************************

REM  Flight VTOL USB

REM  Author :Ian George aka  Vampyre

REM ****************************************************************

autocam off

hide mouse

sync rate 60

sync on

Make matrix 1,10000,10000,20,20

Rem texture matrix

Load image "grass09.bmp",1

Prepare matrix texture 1,1,1,1

Fill matrix 1,0,1

rem Randomize the matrix

randomize matrix 1,125

update matrix 1

X#=5000

Z#=5000

rem Make drone to mark a back position

make object sphere 3,10

hide object 3

rem Aircraft Object

load object "AIRPL043.X", 2

rem Rotate and fix data so character faces right way

xrotate object 2,0

yrotate object 2,180

zrotate object 2,0

fix object pivot 2

position object 2,x,150,z

rem scaling

scale object 2,1000,1000,1000

cammode = 0

rem Set text font

set text font "Westminister"

ink rgb(200,255,0),0

set text size 15

rem movement

mmy=mousemovey()

mmx=mousemovex()

if mmy>0 then pitch object up 2,5

if mmy<0 then pitch object down 2,5

if mmx<0 then turn object left 2,5

if mmx>0 then turn object right 2,5

if upkey()=1 then move object 2,40

if downkey()=1 then move object 2,-40

if scancode()=17 then move object 2,40

if scancode()=32 then move object 2,-40

if inkey$() = "q" then roll object left 2,5

if inkey$() = "e" then roll object right 2,5

if scancode()=211 then roll object left 2,5

if scancode()=209 then roll object right 2,5

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 object 2,40

if joystick slider a()=65535 then move object 2,-40

REM Straffe Left

if joystick fire x(8)=1

turn object left 2,90 : move object 2,20 : turn object right 2,90

endif

REM Straffe Right

if joystick  fire x(9)=1

turn object right 2,90 : move object 2,20 : turn object left 2,90

endif

REM Straffe Left

if scancode()=30

turn object left 2,90 : move object 2,20 : turn object right 2,90

endif

REM Straffe Right

if scancode()=32

turn object right 2,90 : move object 2,20 : turn object left 2,90

endif

REM Straffe Left

if leftkey()=1

turn object left 2,90 : move object 2,20 : turn object right 2,90

endif

REM Straffe Right

if rightkey()=1

turn object right 2,90 : move object 2,20 : turn object left 2,90

endif

rem VTOL take off and landing

if controlkey()=1 or joystick fire x(6)

position object 2,object position x(2),object position y(2)+height,object position z(2)

height=10

endif

if spacekey()=1 or joystick fire x(7)

position object 2,object position x(2),object position y(2)-10,object position z(2)

height=height-1

endif

rem HAT control

jhat=joystick hat angle(0)

print westminster

text 10,10,"HAT signal: "+str$(jhat)

text 10,20,"Joystick:   "+str$(jx)+"/"+str$(jy)

text 10,30,"Slider:     "+str$(joystick slider a())

text 10,40,"FPS:        "+str$(screen fps())

intspeed=int(speed#*150)

intspeed=int(speed#-150)

if timer()>t

rem then we add another half second to t

t=timer()+500

rem so the IF part of this bit will only be true when timer() is equal to t

endif

rem Set the hat look flags to nothing

lookUp = 0: lookLeft = 0: lookRight = 0: lookBack = 0

if jhat = 0 then lookUp = 1

if jhat=9000 or jhat=4500 or jhat=13500 then lookRight = 1

if jhat=31500 or jhat=27000 or jhat=22500 then lookLeft = 1

if jhat = 18000 then lookBack = 1

If InKey$() = "1" Then cammode = 1 : ` third person

If InKey$() = "2" Then cammode = 0 : ` first person

If cammode = 0

rem Place camera and set orientation to object for FPS

position camera object position x(2),object position y(2),object position z(2)

set camera to object orientation 2

if lookRight = 1 then turn camera right 90.0

if lookLeft = 1  then turn camera left 90.0

if lookUp = 1    then pitch camera up 45.0

if lookBack = 1  then turn camera right 180.0

else

rem Place as over head for 3rd person

move object 2,-150

position object 3,object position x(2),object position y(2),object position z(2)

move object 2,150

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

Endif

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	vampyre
CodeBase Entries:	7

CodeBase - H.O.T.A.S Joystick,Joystick &amp; Mouse flight control

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

CodeBase - H.O.T.A.S Joystick,Joystick & Mouse flight control