Realistic space ship flight - GameCreators Forum

Author

Message

tokyomage

15

Years of Service

User Offline

Joined: 26th Sep 2010

Location: on your roof

Posted: 22nd Jan 2012 16:05

Link

Hey guys,

Im creating a space game in DBPro
and have gotten a cool effect with
the joystick commands. Though I have
not much code done on the flight part
itself, its somewhat good... But not
what I was in visioning

. So all
I ask of you is some code giving a cube
a smooth flight in the air. Also, if possible using
the set camera to follow command on the cube.

Thanks guys,
-Tokyomage

.....the feel of solitude hurts inside....

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 22nd Jan 2012 17:06

Link

Check out my library of useful functions, it has an example in it with an aeroplane flying around:

http://forum.thegamecreators.com/?m=forum_view&t=190374&b=1

This is a stripped down version of the code:

+ Code Snippet

   if upkey()=1 then ax#=curveangle(90,ax#,30)
   if downkey()=1 then ax#=curveangle(270,ax#,30)
   if leftkey()=1 then ay#=wrapvalue(ay#-5):az#=curveangle(90,az#,10)
   if rightkey()=1 then ay#=wrapvalue(ay#+5):az#=curveangle(-90,az#,10)
      
   rem barrel roll
   if spacekey()=1 then az#=wrapvalue(az#+20)

   rem reset angles
   ax#=curveangle(0,ax#,50)
   az#=curveangle(0,az#,20)

   rem update aeroplane rotations
   rotate object 1,ax#,ay#,0
   zrotate object 2,az#
   
   rem move the aeroplane
   move object 1,4

   rem control camera
   set camera to follow object position x(1),object position y(1),object position z(1),ay#,140,10,10,0
   point camera object position x(1),object position y(1),object position z(1)

What's set up here is you have a core object, object 1, and your actual model object, object 2, which is glued to limb 0 of object 1. What this does is it allows us to zrotate the model local to the rotations of the core object. The best way to set something like that up is like this:

+ Code Snippet

rem make a core object
make object plain 1 , 0 , 0

rem load our aeroplane model
load object "plane.x" , 2

rem glue our model to the core object
glue object to limb 2 , 1 , 0

TheComet

Timeplan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

tokyomage

15

Years of Service

User Offline

Joined: 26th Sep 2010

Location: on your roof

Posted: 22nd Jan 2012 20:40

Link

Hi,

Thanks but it did not work as well as it seemed.
Its kind of hard to explain... Anyway, what im trying to do
is to get the camera to follow the back of the space craft. I already got down the whole turning left and turning right thing done, I just need the camera to move along with the object at the same speed of pitching as the object. So yeah.

-Tokyomage

.....the feel of solitude hurts inside....

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 22nd Jan 2012 21:41

Link

This should do it:

+ Code Snippet

rem control camera
set camera to follow PlayerX# , PlayerY# , PlayerZ# , PlayerAngleY# , distance# , height# , smooth# , collision
point camera PlayerX# , PlayerY# , PlayerZ#

TheComet

Timeplan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 23rd Jan 2012 08:49

Link

Interesting this will be something for me to look back on for one of my small projects

Hi you two

Back to top

Profile PM

tokyomage

15

Years of Service

User Offline

Joined: 26th Sep 2010

Location: on your roof

Posted: 23rd Jan 2012 21:33

Link

Hi,

Sadly it still did not work, heres what I put as
variables for the code you gave me:

+ Code Snippet

set camera to follow PlayerX# , PlayerY# , PlayerZ# , PlayerAngleY# , distance# , height# , smooth# , collision
point camera 0, PlayerX# , PlayerY# , PlayerZ#

PlayerAngleY# = -180
distance# =100
height# =30
smooth# =25
collision = 0

thanks,

-Tokyomage

.....the feel of solitude hurts inside....

Back to top

Profile PM Email Website

tokyomage

15

Years of Service

User Offline

Joined: 26th Sep 2010

Location: on your roof

Posted: 23rd Jan 2012 21:34

Link

And by chance, could you
use your code (make an example) in an example?
I think that would let me understand it way better.

thanks,

-Tokyomage

.....the feel of solitude hurts inside....

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 23rd Jan 2012 23:27

Link

rem Free flight example
rem by TheComet

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem user defined types
type vec3
   x# as float
   y# as float
   z# as float
endtype

type PlayerVT
   pos as vec3
   angle as vec3
endtype

rem global variables
global CamDist# as float
global CamHeight# as float
global CamSmooth# as float
global PlayerSpeed# as float
global Player as PlayerVT

rem make spaceship
make object plain 1 , 0 , 0 : rem core object
make object box 2 , 10 , 10 , 50
glue object to limb 2 , 1 , 0

rem add wings
make object box 3 , 50 , 5 , 5
make mesh from object 1 , 3
delete object 3
add limb 2 , 1 , 1
delete mesh 1

rem make some random scenery objects
for n = 3 to 50
   make object sphere n , rnd(300)+50
   position object n , rnd(1000) - 500 , rnd(1000) - 500 , rnd(1000) - 500
   set object wireframe n , 1
next n

rem set values
CamDist# = 120
CamHeight# = 10
CamSmooth# = 3
PlayerSpeed# = 5

rem main loop
do

rem get input from user
   if upkey() then Player.angle.x# = curveangle(80 , Player.angle.x# , 20)
   if downkey() then Player.angle.x# = curveangle(-80 , Player.angle.x# , 20)
   if leftkey() then Player.angle.y# = wrapvalue(Player.angle.y# - 5) : Player.angle.z# = curveangle(60 , Player.angle.z# , 20)
   if rightkey() then Player.angle.y# = wrapvalue(Player.angle.y# + 5) : Player.angle.z# = curveangle(-60 , Player.angle.z# , 20)
   
   rem reset angles
   Player.angle.x# = curveangle(0 , Player.angle.x# , 20)
   Player.angle.z# = curveangle(0 , Player.angle.z# , 15)
   
   rem rotate player
   rotate object 1 , Player.angle.x# , Player.angle.y# , 0
   rotate object 2 , 0 , 0 , Player.angle.z#
   
   rem move player
   move object 1 , PlayerSpeed#
   
   rem get player positions
   Player.pos.x# = object position x(1)
   Player.pos.y# = object position y(1)
   Player.pos.z# = object position z(1)
   
   rem control camera
   set camera to follow Player.pos.x# , Player.pos.y# , Player.pos.z# , Player.angle.y# , CamDist# , CamHeight# , CamSmooth# , 0
   point camera Player.pos.x# , Player.pos.y# , Player.pos.z#
   
   rem refresh screen
   sync
   
rem end of main loop
loop

rem end
end

+ Code Snippet

rem Free flight example
rem by TheComet

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem user defined types
type vec3
   x# as float
   y# as float
   z# as float
endtype

type PlayerVT
   pos as vec3
   angle as vec3
endtype

rem global variables
global CamDist# as float
global CamHeight# as float
global CamSmooth# as float
global PlayerSpeed# as float
global Player as PlayerVT

rem make spaceship
make object plain 1 , 0 , 0 : rem core object
make object box 2 , 10 , 10 , 50
glue object to limb 2 , 1 , 0

rem add wings
make object box 3 , 50 , 5 , 5
make mesh from object 1 , 3
delete object 3
add limb 2 , 1 , 1
delete mesh 1

rem make some random scenery objects
for n = 3 to 50
   make object sphere n , rnd(300)+50
   position object n , rnd(1000) - 500 , rnd(1000) - 500 , rnd(1000) - 500
   set object wireframe n , 1
next n

rem set values
CamDist# = 120
CamHeight# = 10
CamSmooth# = 3
PlayerSpeed# = 5

rem main loop
do

   rem get input from user
   if upkey() then Player.angle.x# = curveangle(80 , Player.angle.x# , 20)
   if downkey() then Player.angle.x# = curveangle(-80 , Player.angle.x# , 20)
   if leftkey() then Player.angle.y# = wrapvalue(Player.angle.y# - 5) : Player.angle.z# = curveangle(60 , Player.angle.z# , 20)
   if rightkey() then Player.angle.y# = wrapvalue(Player.angle.y# + 5) : Player.angle.z# = curveangle(-60 , Player.angle.z# , 20)
   
   rem reset angles
   Player.angle.x# = curveangle(0 , Player.angle.x# , 20)
   Player.angle.z# = curveangle(0 , Player.angle.z# , 15)
   
   rem rotate player
   rotate object 1 , Player.angle.x# , Player.angle.y# , 0
   rotate object 2 , 0 , 0 , Player.angle.z#
   
   rem move player
   move object 1 , PlayerSpeed#
   
   rem get player positions
   Player.pos.x# = object position x(1)
   Player.pos.y# = object position y(1)
   Player.pos.z# = object position z(1)
   
   rem control camera
   set camera to follow Player.pos.x# , Player.pos.y# , Player.pos.z# , Player.angle.y# , CamDist# , CamHeight# , CamSmooth# , 0
   point camera Player.pos.x# , Player.pos.y# , Player.pos.z#
   
   rem refresh screen
   sync
   
rem end of main loop
loop

rem end
end

TheComet

Timeplan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

tokyomage

15

Years of Service

User Offline

Joined: 26th Sep 2010

Location: on your roof

Posted: 24th Jan 2012 01:25

Link

Hi,

@The comet thanks, looks great. I like it
a lot

. If possible, can the plane have free direction
of flight as in it can turn all the way instead of having
the limitation of height? I mean like if you press the down key
you know how the plan flys down? well Im trying to get the
plane to keep going down and enable it to go in a complete
circle and have the camera follow it no matter what angle.
Thanks a lot

.

-Tokyomage

.....the feel of solitude hurts inside....

Back to top

Profile PM Email Website

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 24th Jan 2012 07:04

Link

Thinking again EZRotate has a demo flight sim... and does precisely what you are looking for...

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 24th Jan 2012 09:35

Link

All you need to do is take out the xrotate limits. Something like this:

+ Code Snippet

   if upkey() then Player.angle.x# = wrapvalue(Player.angle.x# + 5)
   if downkey() then Player.angle.x# = wrapvalue(-Player.angle.x# - 5)

And then take away this line so it doesn't reset to 0:

+ Code Snippet

   Player.angle.x# = curveangle(0 , Player.angle.x# , 20)

I'm not going to spoon feed you. You need to experiment yourself with it. If you aren't able to, then you're probably not ready for a 3D space flight game.

TheComet

Timeplan : https://docs.google.com/spreadsheet/ccc?key=0AmuAKJolqASndEVYOWMxb3l2OWV0UkV1anRSczZScHc

Back to top

Profile PM Email Website

Captain Chucky

14

Years of Service

User Offline

Joined: 5th Feb 2012

Location:

Posted: 5th Feb 2012 09:55

Link

I usually use one of these methods. This first is a lot smoother, but the axis gets reversed after doing a 180 loop. This code goes inside the loop.

+ Code Snippet



`LEFT/RIGHT
if leftkey()=1 then plyr_turn# = curvevalue(-2, plyr_turn#, 10)
if rightkey()=1 then plyr_turn# = curvevalue(2, plyr_turn#, 10)
if mx# = 0 then plyr_turn# = curvevalue(0, plyr_turn#, 10)
yrotate object 10,wrapvalue(object angle y(10)+plyr_turn#)

`UP/DOWN
if upkey()=1 then plyr_tilt# = curvevalue(1, plyr_tilt#, 20)
if downkey()=1 then plyr_tilt# = curvevalue(-1, plyr_tilt#, 20)
if my# = 0 then plyr_tilt# = curvevalue(0, plyr_tilt#, 10)
xrotate object 10,wrapvalue(object angle x(10)+plyr_tilt#)

`SMOOTH BANKING  default 50
if leftkey()=1 then plyr_bank# = curvevalue(50, plyr_bank#, 25)
if rightkey()=1 then plyr_bank# = curvevalue(-50, plyr_bank#, 25)
if mx# = 0 then plyr_bank# = curvevalue(0, plyr_bank#, 25)
yrotate object OURID,plyr_bank#

+ Code Snippet

`Movement# in my case is .1 or .01, slows it down.

if downkey()= 1
pitch object down 10, upkey() - downkey()* Movement#
pitch camera down upkey() - downkey()*Movement
endif
if upkey()= 1
pitch object up 10, downkey() - upkey() * Movement#
pitch camera up downkey() - upkey() * Movement#
endif

`un-comment this if you want to turn left/right
`turn object left 10, keystate(44) - keystate(45)
`turn camera left keystate(44) - keystate(45)

if rightkey() = 1
roll object left 10, leftkey() - rightkey() * Movement#
roll camera left leftkey() - rightkey() * Movement#
endif
if leftkey() = 1
roll object right 10, rightkey() - leftkey() * Movement#
roll camera right rightkey() - leftkey() * Movement#
endif
`camera
set camera to object orientation 10
position camera object position x(10),object position y(10),object position z(10)
move camera (-50)
`skybox rolls over cam so you never run into it
position object 666, camera position x(), camera position y(), camera position z()

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Realistic space ship flight