Mouselook flight revisted - GameCreators Forum

Author

Message

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 22nd Sep 2006 23:28 Edited at: 22nd Sep 2006 23:29

Link

I think that this might work but at the moment can't get Dark Basic to compile and run the program as I have a bit of a crappy hard drive, still I will put it up.

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Mouse Flight 3
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
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 load hovercraft object
load object "Testbox.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

X# = object position X(2)
Z# = object position Z(2)
Y# = Get ground height(1,X#,Z#)
Position object 2,X#,Y#,Z#
AngleY# = 3.0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,5000,5000,5000
cammode = 0

do
  rem movement
   if mousemovey()>0 then pitch object up 2,20
   if mousemovey()<0 then pitch object down 2,20
   if mousemovex()>0 then turn object left 2,20
   if mousemovex()<0 then turn object right 2,20
   if leftkey()=1 then roll object left 2,5
   if rightkey()=1 then roll object right 2,5
   if upkey()=1 then move camera 25 : move object 2,5
   if downkey()=1 then move camera -25 : move object 2,5

rem *********************************************************************
rem  Player Take Off and Landing 
rem *********************************************************************

if jumpb=1
   height#=height#-.7
endif
if mouseclick()=2 or spacekey()=1 or  joystick fire x(4) and ajump=1
   jumpb=1
   height#=150
endif
if height#<-13 then height#=-13
if object position y(2)>100 then ajump=0 else ajump=1
position object 2,object position x(2),object position y(2)+height#,object position z(2)
if object position y(2)<100
   jumpb=0
   height#=0
endif
  
 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)+40,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

+ Code Snippet

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Mouse Flight 3
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
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 load hovercraft object
load object "Testbox.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

X# = object position X(2)
Z# = object position Z(2)
Y# = Get ground height(1,X#,Z#)
Position object 2,X#,Y#,Z#
AngleY# = 3.0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,5000,5000,5000
cammode = 0

do
  rem movement
   if mousemovey()>0 then pitch object up 2,20
   if mousemovey()<0 then pitch object down 2,20
   if mousemovex()>0 then turn object left 2,20
   if mousemovex()<0 then turn object right 2,20
   if leftkey()=1 then roll object left 2,5
   if rightkey()=1 then roll object right 2,5
   if upkey()=1 then move camera 25 : move object 2,5
   if downkey()=1 then move camera -25 : move object 2,5



rem *********************************************************************
rem  Player Take Off and Landing 
rem *********************************************************************

if jumpb=1
   height#=height#-.7
endif
if mouseclick()=2 or spacekey()=1 or  joystick fire x(4) and ajump=1
   jumpb=1
   height#=150
endif
if height#<-13 then height#=-13
if object position y(2)>100 then ajump=0 else ajump=1
position object 2,object position x(2),object position y(2)+height#,object position z(2)
if object position y(2)<100
   jumpb=0
   height#=0
endif
  
 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)+40,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

hope it works you have to get your own media and model

Back to top

Profile PM

DarkMasta

18

Years of Service

User Offline

Joined: 21st Apr 2006

Location: Typed on your screen.

Posted: 26th Sep 2006 17:36

Link

I'll have a look at it.

Wherever you plan to go,
it's the next step you never know.

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 26th Sep 2006 21:42

Link

Thanks DarkMasta

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 27th Sep 2006 19:27

Link

@DarkMasta, did it work then?

Back to top

Profile PM

lower logic

18

Years of Service

User Offline

Joined: 15th Jun 2006

Location:

Posted: 28th Sep 2006 02:57

Link

I had to change a few lines to make the turn and pitch work:

+ Code Snippet

   rem movement
   mmy=mousemovey()
   mmx=mousemovex()
   if mmy>0 then pitch object up 2,2.0
   if mmy<0 then pitch object down 2,2.0
   if mmx<0 then turn object left 2,2.0
   if mmx>0 then turn object right 2,2.0

Since mousemovex() and mousemovey() get the change in mouse position since the last time they were called, it is best to store the values in variables, calling each only once each frame.

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 28th Sep 2006 06:01

Link

Oh OK lower logic thanks.

When I get my PC working I shall test it.

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 13th Nov 2006 17:47 Edited at: 13th Nov 2006 22:41

Link

OK Got my lousy PC to work well stupid ME to work half decent (Lousy OS) and here is a version where you can straffe left and right, rotate left and right and move foward and backward.

You can also use the mouse to steer, thanks lower logic for the adjutments, however you can only use the rudders when you come to a stop unfortunately but I trust those who are clever enogh will work out a way to improve on what I call mouselook mousespaceflight a
lot better than the Freelancer system I think. Actually I have I think a better version now I come to think of it.

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Mouse Flight 3
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
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 load hovercraft object
load object "TESTBOX.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

X# = object position X(2)
Z# = object position Z(2)
Y# = Get ground height(1,X#,Z#)
Position object 2,X#,Y#,Z#
AngleY# = 3.0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,5000,5000,5000
cammode = 0

do
  rem movement
   mmy=mousemovey()
   mmx=mousemovex()
   if mmy>0 then pitch object up 2,2.0
   if mmy<0 then pitch object down 2,2.0
   if mmx<0 then turn object left 2,2.0
   if mmx>0 then turn object right 2,2.0
   if upkey()=1 then  move object 2,40
   if downkey()=1 then move object 2,-40
   if scancode()=211 then roll object left 2,5
   if scancode()=209 then roll object right 2,5
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 *********************************************************************
rem  Player Take Off and Landing 
rem *********************************************************************

if jumpb=1
   height#=height#-.7
endif
if spacekey()=1 and ajump=1
   jumpb=1
   height#=150
endif
if height#<-13 then height#=-13
if object position y(2)>100 then ajump=0 else ajump=1
position object 2,object position x(2),object position y(2)+height#,object position z(2)
if object position y(2)<100
   jumpb=0
   height#=0
endif
  
  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)+20
     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,-250
    position object 3,object position x(2),object position y(2),object position z(2)
    move object 2,250

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

+ Code Snippet

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Mouse Flight 3
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
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 load hovercraft object
load object "TESTBOX.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

X# = object position X(2)
Z# = object position Z(2)
Y# = Get ground height(1,X#,Z#)
Position object 2,X#,Y#,Z#
AngleY# = 3.0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,5000,5000,5000
cammode = 0

do
  rem movement
   mmy=mousemovey()
   mmx=mousemovex()
   if mmy>0 then pitch object up 2,2.0
   if mmy<0 then pitch object down 2,2.0
   if mmx<0 then turn object left 2,2.0
   if mmx>0 then turn object right 2,2.0
   if upkey()=1 then  move object 2,40
   if downkey()=1 then move object 2,-40
   if scancode()=211 then roll object left 2,5
   if scancode()=209 then roll object right 2,5
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 *********************************************************************
rem  Player Take Off and Landing 
rem *********************************************************************

if jumpb=1
   height#=height#-.7
endif
if spacekey()=1 and ajump=1
   jumpb=1
   height#=150
endif
if height#<-13 then height#=-13
if object position y(2)>100 then ajump=0 else ajump=1
position object 2,object position x(2),object position y(2)+height#,object position z(2)
if object position y(2)<100
   jumpb=0
   height#=0
endif
  
  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)+20
     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,-250
    position object 3,object position x(2),object position y(2),object position z(2)
    move object 2,250



   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

Here it is

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Mouse Flight 3
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
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 load aircraft object
load object "Testbox.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

X# = object position X(2)
Z# = object position Z(2)
Y# = Get ground height(1,X#,Z#)
Position object 2,X#,Y#,Z#
AngleY# = 3.0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,5000,5000,5000
cammode = 0

do
  rem movement
   mmy=mousemovey()
   mmx=mousemovex()
   if mmy>0 then pitch object up 2,2.0
   if mmy<0 then pitch object down 2,2.0
   if mmx<0 then turn object left 2,2.0
   if mmx>0 then turn object right 2,2.0
   if upkey()=1 then  move object 2,40
   if scancode()=17 then move object 2,40
   if downkey()=1 then move object 2,-40
   if scancode()= 31 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

REM STRAFFE LEFT  
if leftkey()=1
  turn object left 2,90 : move object 2,20 : turn object right 2,90
  endif
REM STRAFFE LEFT WASD KEYS
if scancode()=30 
 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 STRAFFE RIGHT WASD KEYS
if scancode()=32 
  turn object right 2,90 : move object 2,20 : turn object left 2,90
endif
rem VTOL take off and landing
if controlkey()=1 
   position object 2,object position x(2),object position y(2)+height,object position z(2)
  height=10
endif
if spacekey()=1  
   position object 2,object position x(2),object position y(2)-10,object position z(2)
  height=height-1
endif

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)+20
     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,-250
    position object 3,object position x(2),object position y(2),object position z(2)
    move object 2,250

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

+ Code Snippet

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Mouse Flight 3
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
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 load aircraft object
load object "Testbox.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

X# = object position X(2)
Z# = object position Z(2)
Y# = Get ground height(1,X#,Z#)
Position object 2,X#,Y#,Z#
AngleY# = 3.0

rem scaling to 10% (YOU WILL NEED TO ADJUST THIS)
scale object 2,5000,5000,5000
cammode = 0

do
  rem movement
   mmy=mousemovey()
   mmx=mousemovex()
   if mmy>0 then pitch object up 2,2.0
   if mmy<0 then pitch object down 2,2.0
   if mmx<0 then turn object left 2,2.0
   if mmx>0 then turn object right 2,2.0
   if upkey()=1 then  move object 2,40
   if scancode()=17 then move object 2,40
   if downkey()=1 then move object 2,-40
   if scancode()= 31 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
 

REM STRAFFE LEFT  
if leftkey()=1
  turn object left 2,90 : move object 2,20 : turn object right 2,90
  endif
REM STRAFFE LEFT WASD KEYS
if scancode()=30 
 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 STRAFFE RIGHT WASD KEYS
if scancode()=32 
  turn object right 2,90 : move object 2,20 : turn object left 2,90
endif
rem VTOL take off and landing
if controlkey()=1 
   position object 2,object position x(2),object position y(2)+height,object position z(2)
  height=10
endif
if spacekey()=1  
   position object 2,object position x(2),object position y(2)-10,object position z(2)
  height=height-1
endif

  
  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)+20
     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,-250
    position object 3,object position x(2),object position y(2),object position z(2)
    move object 2,250



   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

Yes this has dual controls and you use the mouse to steer and look around (although not hatlike, want that get? a joystick with a hat look on ebay you can get great bargins on there) and you can use the q and e keys for rudders and the wasd to move forward and backward and straffe left and right and you can use the delete and page down keys for rudders and the cursor/arrow keys for straffing and moving forward and backward

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 27th Nov 2006 02:53 Edited at: 27th Nov 2006 02:59

Link

By the way I think I will also put a joystick , mouse keyboard and joystick throttle with straffing with all controls on this one id for the Thrustmaster Attack Throttle:

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Flight VTOL Thustmaster Attack Throttle & Z Axis throttle 
REM  control 2
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
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 "TESTBOX.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

do

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 z()=-1000 then move object 2,40
   if joystick z()=1000 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

+ Code Snippet

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Flight VTOL Thustmaster Attack Throttle & Z Axis throttle 
REM  control 2
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
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 "TESTBOX.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

do

  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 z()=-1000 then move object 2,40
   if joystick z()=1000 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

then this is for any USB joysick with throttles and rudders

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Flight VTOL USB
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
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

do

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

+ Code Snippet

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Flight VTOL USB
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
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

do

  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

And this is for the X36/X45 USB Sticks

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Flight VTOL X36/X45/X52 USB
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
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 "testbox.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

do

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()=0then move object 2,40
   if joystick Slider a()=65535 then move object 2,-40

REM Straffe Left
  if joystick slider c()=0
  turn object left 2,90 : move object 2,20 : turn object right 2,90
  endif

REM Straffe Right
  if joystick  slider c()=65535
  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

+ Code Snippet

REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM ***************************************************************
REM  Flight VTOL X36/X45/X52 USB
REM  Author :Ian George aka  Vampyre
REM ****************************************************************
REM ****************************************************************
REM ****************************************************************
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 "testbox.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

do

  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()=0then move object 2,40
   if joystick Slider a()=65535 then move object 2,-40

 REM Straffe Left
  if joystick slider c()=0
  turn object left 2,90 : move object 2,20 : turn object right 2,90
  endif

  REM Straffe Right
  if joystick  slider c()=65535
  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

And I might put on up for hovercraft so people can have a good basis for a hovercraft tank , show some class if you use this code in your game and at least give me a bit of credit

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 27th Nov 2006 03:00 Edited at: 15th Oct 2007 02:18

Link

OH yes testbox .x is for you to make so get your own media and model please, bye, unless you would like me to knock up one for you and that will mean a zip file

Back to top

Profile PM

vampyre

22

Years of Service

User Offline

Joined: 14th Nov 2002

Location:

Posted: 29th Nov 2006 17:02

Link

Oh yes sorry have to add this it might be best to cut either the cursur keys or the wasd contrl keys as there seems to be a strange problem with the straffing controls it seems I might be wrong but it seems that Dark Basic can only take two different straffing controls at a time

Back to top

Profile PM