A little problem with my F-16 - GameCreators Forum

Author

Message

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 2nd Feb 2004 06:14

Link

I'm in a little hurry, so I'll explain faster:

I'm using the "Joystick Flight Sim" code snippet controls (great help!) but when I try to align the plane to the matrix (so you can't crash (for testing and "beginner mode" code)) and use "xrotate object 1,0" doesn't work, because my plane always align to the left (or to the 0 x rotation) so I need help on that...anyone?

thanks in advance

::Â·Â· Intel Pentium II 300 Mhz, Sound Blaster AWE 32, 5 Gb HD, SiS 8 Mb video card, Windows 98 and 64 Mb RAM Â·Â·::

Back to top

Profile PM Email

Travis

21

Years of Service

User Offline

Joined: 9th Nov 2003

Location: West Aust.

Posted: 2nd Feb 2004 10:40

Link

ill jsut beat everyone to say this... we need to look at your code so we can help you...

Back to top

Profile PM Email

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 2nd Feb 2004 15:05

Link

Alright, no prob

. Here it is:

rem declare "global" variables
dim View(0)
dim CamRot1#(0)

rem set initial graphics mode and variables
set display mode 640,480,16
autocam off
set mipmap mode 2
hide mouse
sync on
sync rate 0

rem load resources
load image "textures2.bmp",1
load image "sky2.bmp",10
load image "cockpit2.bmp",100

rem set camera values
set camera range 1,64000
rem Create fog and ambience
set ambient light 40
if fog available()=1
rem   fog on : fog distance 18000 : fog color rgb(150,150,150)
   FogColor=rgb(150,150,150)
   fog on : fog distance 24000 : fog color FogColor
endif

rem make scenery
make matrix 1,100000,100000,20,20
prepare matrix texture 1,1,3,3
set matrix tile 1,5,5,4
set matrix tile 1,6,5,5
set matrix tile 1,7,5,6
set matrix tile 1,5,4,7
set matrix tile 1,6,4,8
set matrix tile 1,7,4,9
set matrix texture 1,1,1
update matrix 1

rem Create spherical sky
load object "skysphere.3ds",100
set object collision off 100
scale object 100,60000,60000,60000
set object 100,1,1,1,1,1,1,1
texture object 100,10
rem scale object texture 100,1,2
rem fade object 100,0
rem backdrop off

rem make cockpit
sprite 1,0,0,100
set sprite 1,0,1

rem load player
load object "f-16-h.3ds",1
position object 1,250,10,250
load object "f-16-h-wnd.3ds",2
rem position object 2,250,get ground height(1,250,250),250
ghost object on 2
glue object to limb 2,1,0
hide object 1
view(0)=0
make object sphere 150,0.1
scale object 150,0.1,0.1,0.1

rem Small ground of perimitor trees
load image "tree1.bmp",4
make object plain 52,2,4 : make mesh from object 52,52
add limb 52,1,52 : rotate limb 52,1,0,90,0
make mesh from object 52,52 : delete object 52
make object 52,52,0
range=50000
halfrange=range/2
for t=1 to 100
   rx=0+rnd(50000)
   rz=0+rnd(50000)
   add limb 52,t,52
   offset limb 52,t,rx,0,rz
next t
make mesh from object 52,52 : delete object 52 : make object 52,52,4
scale object 52,300,300,300
position object 52,0,6,0
set object 52,1,0,0
position object 1,25000,2,25000

do

rem   backdrop on
   color backdrop FogColor

set cursor 0,0
   print screen fps(),"/32 Max FPS"
   set cursor 0,14
   print "Cursor keys, A/Z = Speed, X/C = Turning, 1/2/3/4 = Camera views"

playerx#=object position x(1)
   playery#=object position y(1)
   playerz#=object position z(1)
   playerangx#=object angle x(1)
   playerangy#=object angle y(1)
   playerangz#=object angle z(1)

if leftkey()=1 then fr#=fr#+2
   if rightkey()=1 then fr#=fr#-2
   if downkey()=1 then fu#=fu#+2
   if upkey()=1 then fu#=fu#-2
   ` hat switch commands
   if inkey$()="x" then turn object left 1, 1
   if inkey$()="c" then turn object right 1, 1

set cursor 0,26
    print "Rot z: ",fr#
    set cursor 0,26+(10+4)
    print "Rot x: ",fu#

if fr#>0 then fr#=fr#-0.5
   if fr#<0 then fr#=fr#+0.5
rem   fr2#=curvevalue(fr#,fr2#,10)
   if fr#>=8 then fr#=8
   if fr#<=-8 then fr#=-8

if fu#>0 then fu#=fu#-0.5
   if fu#<0 then fu#=fu#+0.5
   if fu#>8 then fu#=8
   if fu#<-8 then fu#=-8

roll object left 1,fr#/5
   pitch object up 1, fu#/8

if inkey$()="1"
      view(0)=0
      show sprite 1
      hide object 1
   endif
   if inkey$()="2"
      view(0)=1
      hide sprite 1
      show object 1
   endif
   if inkey$()="3"
      view(0)=2
      hide sprite 1
      show object 1
   endif
   if inkey$()="4"
      view(0)=3
      hide sprite 1
      show object 1
   endif

if inkey$()="a" then thrust#=thrust#+.25
   if thrust#>50 then thrust#=50
   if inkey$()="z" then thrust#=thrust#-.5
   if thrust#<0 then thrust#=0

speed#=curvevalue(thrust#,speed#,25)

move object 1, speed#
   remstart
   `stall
   if speed#<12 then position object 1, playerx#, playery#-(15-speed#), playerz#
   if speed#<7 then position object 1, playerx#, playery#-(9-speed#),playerz#
   set cursor 1,1
   print "STALL!"
   set cursor 50,1
   remend

altitude#=playery#
   set cursor 0,54
   print "Speed: ",speed#
   set cursor 0,68
   print "Altitude: ",altitude#

if playery#<get ground height(1,playerx#,playerz#)+2
      playery#=get ground height(1,playerx#,playerz#)+2
      position object 1,playerx#,playery#,playerz#
   endif

if view(0)=0
      position camera playerx#,playery#,playerz#
      set camera to object orientation 1
   endif
   if view(0)=1
      chase_cam(1)
   endif
   if view(0)=2
      chase_cam2(1)
   endif
   if view(0)=3
      chase_cam3(1)
   endif

scroll object texture 100,0.0002,0
   position object 100,playerx#,0,playerz#

sync
loop

`---------
`chase cam
`---------
function chase_cam(id)

` camera controls
` get drone pos.
pitch object down 1,8
move object 1,-20
position object 150, object position x(1),object position y(1),object position z(1)
move object 1,20
pitch object up 1,8
if object position y(150)<get ground height(1,object position x(150),object position z(150))
   position object 150,object position x(150),get ground height(1,object position x(150),object position z(2))+1,object position z(150)
endif
` move camera
position camera object position x(150),object position y(150), object position z(150)
set camera to object orientation 1

endfunction

`---------
`chase cam
`---------
function chase_cam2(id)

CamRot1#(0)=CamRot1#(0)+1

`work out the angle of the object being chased
rem   yAng#=curveangle(object angle y(id),yAng#,10)

`grab the objects current position
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)

`other variables
   camDist=18
   camHeight=2

`work out new position
   xCamPos#=newxvalue(xPos#,yAng#,camDist)
   zCamPos#=newzvalue(zPos#,yAng#,camDist)

xCamPos#=curvevalue(xCamPos#,object position x(id),8)
   yCamPos#=curvevalue(yCamPos#,object position y(id),8)
   zCamPos#=curvevalue(zCamPos#,object position z(id),8)

yCamPos#=object position y(id)+camheight

`update camera position
   position camera xCamPos#,yCamPos#,zCamPos#
   point camera xPos#,yPos#+camheight,zPos#
   move camera 0+camDist
   point camera xPos#,yPos#,zPos#

endfunction

`---------
`chase cam
`---------
function chase_cam3(id)

CamRot1#(0)=CamRot1#(0)+1

`work out the angle of the object being chased
   yAng#=curveangle(wrapvalue(object angle y(id)+CamRot1#(0)),yAng#,10)

`grab the objects current position
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)

`other variables
   camDist=18
   camHeight=2

`work out new position
   xCamPos#=newxvalue(xPos#,yAng#,camDist)
   zCamPos#=newzvalue(zPos#,yAng#,camDist)

xCamPos#=curvevalue(xCamPos#,object position x(id),8)
   yCamPos#=curvevalue(yCamPos#,object position y(id),8)
   zCamPos#=curvevalue(zCamPos#,object position z(id),8)

yCamPos#=object position y(id)+camheight

`update camera position
   position camera xCamPos#,yCamPos#,zCamPos#
   point camera xPos#,yPos#+camheight,zPos#
   move camera 0+camDist
   point camera xPos#,yPos#,zPos#

endfunction

+ Code Snippet

rem declare "global" variables
dim View(0)
dim CamRot1#(0)

rem set initial graphics mode and variables
set display mode 640,480,16
autocam off
set mipmap mode 2
hide mouse
sync on
sync rate 0

rem load resources
load image "textures2.bmp",1
load image "sky2.bmp",10
load image "cockpit2.bmp",100

rem set camera values
set camera range 1,64000
rem Create fog and ambience
set ambient light 40
if fog available()=1
rem   fog on : fog distance 18000 : fog color rgb(150,150,150)
   FogColor=rgb(150,150,150)
   fog on : fog distance 24000 : fog color FogColor
endif

rem make scenery
make matrix 1,100000,100000,20,20
prepare matrix texture 1,1,3,3
set matrix tile 1,5,5,4
set matrix tile 1,6,5,5
set matrix tile 1,7,5,6
set matrix tile 1,5,4,7
set matrix tile 1,6,4,8
set matrix tile 1,7,4,9
set matrix texture 1,1,1
update matrix 1


rem Create spherical sky
load object "skysphere.3ds",100
set object collision off 100
scale object 100,60000,60000,60000
set object 100,1,1,1,1,1,1,1
texture object 100,10
rem scale object texture 100,1,2
rem fade object 100,0
rem backdrop off

rem make cockpit
sprite 1,0,0,100
set sprite 1,0,1

rem load player
load object "f-16-h.3ds",1
position object 1,250,10,250
load object "f-16-h-wnd.3ds",2
rem position object 2,250,get ground height(1,250,250),250
ghost object on 2
glue object to limb 2,1,0
hide object 1
view(0)=0
make object sphere 150,0.1
scale object 150,0.1,0.1,0.1

rem Small ground of perimitor trees
load image "tree1.bmp",4
make object plain 52,2,4 : make mesh from object 52,52
add limb 52,1,52 : rotate limb 52,1,0,90,0
make mesh from object 52,52 : delete object 52
make object 52,52,0
range=50000
halfrange=range/2
for t=1 to 100
   rx=0+rnd(50000)
   rz=0+rnd(50000)
   add limb 52,t,52
   offset limb 52,t,rx,0,rz
next t
make mesh from object 52,52 : delete object 52 : make object 52,52,4
scale object 52,300,300,300
position object 52,0,6,0
set object 52,1,0,0
position object 1,25000,2,25000

do

rem   backdrop on
   color backdrop FogColor

   set cursor 0,0
   print screen fps(),"/32 Max FPS"
   set cursor 0,14
   print "Cursor keys, A/Z = Speed, X/C = Turning, 1/2/3/4 = Camera views"

   playerx#=object position x(1)
   playery#=object position y(1)
   playerz#=object position z(1)
   playerangx#=object angle x(1)
   playerangy#=object angle y(1)
   playerangz#=object angle z(1)

   if leftkey()=1 then fr#=fr#+2
   if rightkey()=1 then fr#=fr#-2
   if downkey()=1 then fu#=fu#+2
   if upkey()=1 then fu#=fu#-2
   ` hat switch commands
   if inkey$()="x" then turn object left 1, 1
   if inkey$()="c" then turn object right 1, 1

    set cursor 0,26
    print "Rot z: ",fr#
    set cursor 0,26+(10+4)
    print "Rot x: ",fu#

   if fr#>0 then fr#=fr#-0.5
   if fr#<0 then fr#=fr#+0.5
rem   fr2#=curvevalue(fr#,fr2#,10)
   if fr#>=8 then fr#=8
   if fr#<=-8 then fr#=-8

   if fu#>0 then fu#=fu#-0.5
   if fu#<0 then fu#=fu#+0.5
   if fu#>8 then fu#=8
   if fu#<-8 then fu#=-8

   roll object left 1,fr#/5
   pitch object up 1, fu#/8

   if inkey$()="1"
      view(0)=0
      show sprite 1
      hide object 1
   endif
   if inkey$()="2"
      view(0)=1
      hide sprite 1
      show object 1
   endif
   if inkey$()="3"
      view(0)=2
      hide sprite 1
      show object 1
   endif
   if inkey$()="4"
      view(0)=3
      hide sprite 1
      show object 1
   endif

   if inkey$()="a" then thrust#=thrust#+.25
   if thrust#>50 then thrust#=50
   if inkey$()="z" then thrust#=thrust#-.5
   if thrust#<0 then thrust#=0

   speed#=curvevalue(thrust#,speed#,25)

   move object 1, speed#
   remstart
   `stall
   if speed#<12 then position object 1, playerx#, playery#-(15-speed#), playerz#
   if speed#<7 then position object 1, playerx#, playery#-(9-speed#),playerz#
   set cursor 1,1
   print "STALL!"
   set cursor 50,1
   remend

   altitude#=playery#
   set cursor 0,54
   print "Speed: ",speed#
   set cursor 0,68
   print "Altitude: ",altitude#

   if playery#<get ground height(1,playerx#,playerz#)+2
      playery#=get ground height(1,playerx#,playerz#)+2
      position object 1,playerx#,playery#,playerz#
   endif

   if view(0)=0
      position camera playerx#,playery#,playerz#
      set camera to object orientation 1
   endif
   if view(0)=1
      chase_cam(1)
   endif
   if view(0)=2
      chase_cam2(1)
   endif
   if view(0)=3
      chase_cam3(1)
   endif

   scroll object texture 100,0.0002,0
   position object 100,playerx#,0,playerz#

sync
loop

`---------
`chase cam
`---------
function chase_cam(id)

` camera controls
` get drone pos.
pitch object down 1,8
move object 1,-20
position object 150, object position x(1),object position y(1),object position z(1)
move object 1,20
pitch object up 1,8
if object position y(150)<get ground height(1,object position x(150),object position z(150))
   position object 150,object position x(150),get ground height(1,object position x(150),object position z(2))+1,object position z(150)
endif
` move camera
position camera object position x(150),object position y(150), object position z(150)
set camera to object orientation 1

endfunction

`---------
`chase cam
`---------
function chase_cam2(id)

   CamRot1#(0)=CamRot1#(0)+1

   `work out the angle of the object being chased
rem   yAng#=curveangle(object angle y(id),yAng#,10)

   `grab the objects current position
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)

   `other variables
   camDist=18
   camHeight=2

   `work out new position
   xCamPos#=newxvalue(xPos#,yAng#,camDist)
   zCamPos#=newzvalue(zPos#,yAng#,camDist)

   xCamPos#=curvevalue(xCamPos#,object position x(id),8)
   yCamPos#=curvevalue(yCamPos#,object position y(id),8)
   zCamPos#=curvevalue(zCamPos#,object position z(id),8)

   yCamPos#=object position y(id)+camheight

   `update camera position
   position camera xCamPos#,yCamPos#,zCamPos#
   point camera xPos#,yPos#+camheight,zPos#
   move camera 0+camDist
   point camera xPos#,yPos#,zPos#

endfunction

`---------
`chase cam
`---------
function chase_cam3(id)

   CamRot1#(0)=CamRot1#(0)+1

   `work out the angle of the object being chased
   yAng#=curveangle(wrapvalue(object angle y(id)+CamRot1#(0)),yAng#,10)

   `grab the objects current position
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)

   `other variables
   camDist=18
   camHeight=2

   `work out new position
   xCamPos#=newxvalue(xPos#,yAng#,camDist)
   zCamPos#=newzvalue(zPos#,yAng#,camDist)

   xCamPos#=curvevalue(xCamPos#,object position x(id),8)
   yCamPos#=curvevalue(yCamPos#,object position y(id),8)
   zCamPos#=curvevalue(zCamPos#,object position z(id),8)

   yCamPos#=object position y(id)+camheight

   `update camera position
   position camera xCamPos#,yCamPos#,zCamPos#
   point camera xPos#,yPos#+camheight,zPos#
   move camera 0+camDist
   point camera xPos#,yPos#,zPos#

endfunction

::Â·Â· Intel Pentium II 300 Mhz, Sound Blaster AWE 32, 5 Gb HD, SiS 8 Mb video card, Windows 98 and 64 Mb RAM Â·Â·::

Back to top

Profile PM Email

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 3rd Feb 2004 03:36

Link

:bump: anyone here?

::Â·Â· Intel Pentium II 300 Mhz, Sound Blaster AWE 32, 5 Gb HD, SiS 8 Mb video card, Windows 98 and 64 Mb RAM Â·Â·::

Back to top

Profile PM Email

Mucky Muck Ninja

21

Years of Service

User Offline

Joined: 4th Sep 2003

Location: im not entirely sure

Posted: 3rd Feb 2004 03:58

Link

Lol your gonna have to wait more than a few hours. Anyway, This is a guess but if your model isn't rotated the way you want it when you load it. EX: its facing left instead of forward before you change the rotation then you need to fix its pivot. For example if its pointing down when you load it you have to change its default rotation to be facing forward
Load object "Your jet.3ds",ObjNumber
Xrotate object ObjNumber,270
Fix object pivot ObjNumber

Am I an Idiot...or is everyone else just really smart?

Back to top

Profile PM Email Website

Doucan

21

Years of Service

User Offline

Joined: 26th Nov 2003

Location: Vermont USA

Posted: 4th Feb 2004 03:49 Edited at: 4th Feb 2004 03:51

Link

I didn't read your code because I'm a beginner but I did make a flighing game (If you could call it a game

) My plane kept banking when I didn't want it to. If that's your problem then just
put code in the loop that sets it's x and z angles at zero.

Of course, If your game's actually remotely realistic (unlike mine) , the angle of the plane would always turn unless you were yawing.

...How do you manage on a 5 GB hard Drive...

Doucan...

Completed Doucan movies: Doucan year of the Monkey, Doucan II: the revenge of Mortakia. Current project: Doucan movie DVD resoration. Progress: 20%

Back to top

Profile PM

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 4th Feb 2004 19:24 Edited at: 4th Feb 2004 19:25

Link

no no no no no............that's not the problem.....

it's this:

Plane angle: 45Âº

Ok, that's the plane angle...now I want that it aligns to the matrix but keeping the same angle. When I use "xrotate object 1,0" it puts like this:

New angle: 0Âº

It's always like this...and the model rotates correctly when I rotate it (turn object and so) so the model isn't the problem...

Quote: "...How do you manage on a 5 GB hard Drive..."

haha that's funny...I have W98 and DB installed...3DSMax 3..Heroes of Might and magic III, Messiah...and I've got free space!

::Â·Â· Intel Pentium II 300 Mhz, Sound Blaster AWE 32, 5 Gb HD, SiS 8 Mb video card, Windows 98 and 64 Mb RAM Â·Â·::

Back to top

Profile PM Email

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 5th Feb 2004 14:36

Link

:bump again: anyoneeeeeee?

::Â·Â· Intel Pentium II 300 Mhz, Sound Blaster AWE 32, 5 Gb HD, SiS 8 Mb video card, Windows 98 and 64 Mb RAM Â·Â·::

Back to top

Profile PM Email

Doucan

21

Years of Service

User Offline

Joined: 26th Nov 2003

Location: Vermont USA

Posted: 6th Feb 2004 01:07

Link

I don't uderstand your problem

(Everyone's stupid in their own way, and the stupidest ones don't even know it)

Completed Doucan movies: Doucan year of the Monkey, Doucan II: the revenge of Mortakia. Current project: Doucan movie DVD resoration. Progress: 20%

Back to top

Profile PM

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 6th Feb 2004 14:57 Edited at: 6th Feb 2004 14:58

Link

alright alright I'll explain in pictures: my plane is a 315Âº in the air (image 1). When the plane reachs the ground, I don't want it in the ground but aiming down (like image 2), I want it correctly alignated (like image 3), but keeping the same direction he was in the air, but in the ground. The problem is that when I use "xrotate object 1,0", ok, it gets aligned to the ground (like image 3) BUT it resets his orientation and it ends bad (like image 4).

I hope everyone understands now

.

(oh and, please forgive the "kiddish" pictures...

)

Image 1:

Image 2:

Image 3:

Image 4:

::Â·Â· Intel Pentium II 300 Mhz, Sound Blaster AWE 32, 5 Gb HD, SiS 8 Mb video card, Windows 98 and 64 Mb RAM Â·Â·::

Back to top

Profile PM Email

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 6th Feb 2004 15:30

Link

The difference between image 1, and image 4 shouldn't happen as that is the Y-axis, it is not effected in any way by the X or even the Z-axies.

What you want to be doing is first finding the angle the plain has with the x-axis, then find the angle it has with the z-axis, and compare them, and act acoordingly.

ie, you need to rotate the object slightly on BOTH axies untill the object ends up in the correct position ( as you need to compensate for both Pitch AND Roll, otherwise, there's no point really ).

That's about the limit of my knowledge I'm afraid.

Hope I Heleped...
Jess.

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

Back to top

Profile PM Email Website

Van B

Moderator

22

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 6th Feb 2004 18:00

Link

Well, take all those bloomin XRotate and ZRotate commands and get rid.

ROTATE LIMB

Does a much better job because you can rotate your main object, then rotate the limb on the other axis giving you mathematical control over your angles. For instance if you used the ROTATE OBJECT to rotate on the Y axis, you could rotate on the X and Z axis with ROTATE LIMB. You might need to check over your model planes to make sure the limb pivot is centred and all extra limbs are attached. Also - centre your model on the centre of gravity, often a schematic will show this, but you could probably guess quite near to the mark just by looking at the plane.

Van-B

The nature of Monkey was irrepressible!.

Back to top

Profile PM Email

kevil

22

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Netherlands

Posted: 6th Feb 2004 20:15

Link

I made a flight sim once and I found out that it was easier to use the pitch/turn/roll commands instead of the rotate commands. They're much more suitable for flying games.

Kevil

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / A little problem with my F-16