Airplane style movement(DBP)no media

Author

Message

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 12th Apr 2007 01:23

Link

here is my code for airplane style movement

cubepositionx as integer=20
cubepositionz as integer=20
cubepositiony as integer=20
load object "media/plane.x", 7
load sound "media/jet_loop.wav", 1
make camera 1
set current camera 0
load image "media/fsdfsfsfsd.bmp",1
cuberotatey=0
cuberotatex=0
position object 7, cubepositionx,cubepositiony,cubepositionz
xrotate object 7, 270
Set Camera View 1,0,0,0,0
make matrix 9, 100,100,100,100
position matrix 9, object position x(7),object position y(7),0
do
if keystate(32)=1 then inc cuberotatey , 1
if keystate(30)=1 then dec cuberotatey , 1
if upkey()=1 then inc cubepositiony, 1
if downkey()=1 then dec cubepositiony, 1
yrotate object 7, cuberotatey
xrotate object 7, cuberotatex
if keystate(27)=1 then inc cuberotatex, 1
if keystate(26)=1 then dec cuberotatex, 1
MovePlane()
UpdateCamera()
sync
position camera 1, object position x(7),-5,object position z(7)
loop
function MovePlane
if keystate(17) then move object 7, -1
if keystate(31) then move object 7, 1
endfunction
function UpdateCamera()
   set camera to follow object position x(7),object position y(7),object position z(7), object angle y(7)+980, 40, 20, 10,1
endfunction

+ Code Snippet

cubepositionx as integer=20
cubepositionz as integer=20
cubepositiony as integer=20
load object "media/plane.x", 7
load sound "media/jet_loop.wav", 1
make camera 1
set current camera 0
load image "media/fsdfsfsfsd.bmp",1
cuberotatey=0
cuberotatex=0
position object 7, cubepositionx,cubepositiony,cubepositionz
xrotate object 7, 270
Set Camera View 1,0,0,0,0
make matrix 9, 100,100,100,100
position matrix 9, object position x(7),object position y(7),0
do
if keystate(32)=1 then inc cuberotatey , 1
if keystate(30)=1 then dec cuberotatey , 1
if upkey()=1 then inc cubepositiony, 1
if downkey()=1 then dec cubepositiony, 1
yrotate object 7, cuberotatey
xrotate object 7, cuberotatex
if keystate(27)=1 then inc cuberotatex, 1
if keystate(26)=1 then dec cuberotatex, 1
MovePlane()
UpdateCamera()
sync
position camera 1, object position x(7),-5,object position z(7)
loop
function MovePlane
if keystate(17) then move object 7, -1
if keystate(31) then move object 7, 1
endfunction
function UpdateCamera()
   set camera to follow object position x(7),object position y(7),object position z(7), object angle y(7)+980, 40, 20, 10,1
endfunction

enjoy

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

dark coder

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 12th Apr 2007 03:07

Link

Quote: "no media"

+ Code Snippet

load object "media/plane.x", 7
load sound "media/jet_loop.wav", 1
load image "media/fsdfsfsfsd.bmp",1

Also you don't need to create any extra cameras as DBP by default has a camera 0. Also your code is quite inconsistent as you declare one function without brackets and another with, your media ID handles are rather random and you have indented one line only, but it's better than nothing I'd suggest cleaning it up as said above to make it useful for other users.

Back to top

Profile PM Email

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 12th Apr 2007 03:23 Edited at: 12th Apr 2007 21:43

Link

sory forgot to take that out

+ Code Snippet

cubepositionx as integer=20
cubepositionz as integer=20
cubepositiony as integer=20
make object cube 7, 20
make camera 1
autocam off
set current camera 0
hide mouse
xrotate object 7, cuberotatex
cuberotatey=0
yrotate object 7, cuberotatey
cuberotatex=0
position object 7, cubepositionx,cubepositiony,cubepositionz
Set Camera View 1,0,0,0,0
make matrix 9, 100,100,100,100
do
if upkey()=1 then inc cubepositiony, 1
if downkey()=1 then dec cubepositiony, 1
if keystate(27)=1 then inc cuberotatey, 1
if keystate(26)=1 then dec cuberotatey, 1
MovePlane()
set camera to follow 0, Object position x(7), Object position y(7), object position z(7), Object angle y(7)+900, 40, 20, 10, 1
point camera object position x(7),object position y(7),object position z(7)
sync
loop

function MovePlane
if keystate(17) then move object 7, -1
if keystate(31) then move object 7, 1
if keystate(32)=1 then turn object right 7, 0.5
if keystate(30)=1 then  turn object left 7, 0.5
endfunction

@dark coder, i see a lot worse coding practicing than this

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 12th Apr 2007 14:20

Link

Well I made this a few days back whilst trying to help someone so I may aswell post it here in case you find it useful.

rem Set screen resolution
set display mode 800,600,32

rem Hide loading
sync on
sync rate 0
sync
center text 400,300,"LOADING"
sync

rem Hide the cursor
hide mouse

rem Correct lighting
set normalization on

rem Disable autocam
autocam off

rem Make a simple terrain
make matrix 1,1000,1000,50,50
randomize matrix 1,50
update matrix 1

rem Make a simple plane
make object box 1,10,10,10
make object box 2,30,2,8
glue object to limb 2,1,0

rem Types
type XYZFloat
   X as float
   Y as float
   Z as float
endtype
type Player
   Position as XYZFloat
   Angle as XYZFloat
   Velocity as float
endtype
type Camera
   Position as XYZFloat
   Angle as XYZFloat
   Mode as integer
endtype

rem Declare variables
global Player as Player
global Camera as Camera

rem Set values
Camera.Mode=1

rem Lock frame rate
sync on
sync rate 60

rem Start the main loop
do

rem Display hints
   text 0,0,"W,A,S+D to steer."
   text 0,20,"Space to accelerate."

rem Control player
   W=keystate(17)
   A=keystate(30)
   S=keystate(31)
   D=keystate(32)
   Space=spacekey()
   if W=1
      if S=0
         Player.Angle.X=Player.Angle.X+3
      endif
   else
      if S=1
         Player.Angle.X=Player.Angle.X-3
      endif
   endif
   if D=1
      if A=0
         Player.Angle.Y=Player.Angle.Y+3
         Player.Angle.Z=curveangle(300,Player.Angle.Z,30)
      endif
   else
      if A=1
         Player.Angle.Y=Player.Angle.Y-3
         Player.Angle.Z=curveangle(60,Player.Angle.Z,30)
      endif
   endif
   if (D+A)<>1
      Player.Angle.Z=curveangle(0,Player.Angle.Z,30)
   endif
   if Space=1
      Player.Velocity=Player.Velocity+0.1
   else
      Player.Velocity=curvevalue(0,Player.Velocity,30)
   endif
   if Player.Velocity>5.0
      Player.Velocity=5.0
   endif
   Player.Position.X=Player.Position.X+(sin(Player.Angle.Y)*(Player.Velocity*cos(Player.Angle.X)))
   Player.Position.Y=Player.Position.Y+(-sin(Player.Angle.X)*Player.Velocity)
   Player.Position.Z=Player.Position.Z+(cos(Player.Angle.Y)*(Player.Velocity*cos(Player.Angle.X)))

rem Control camera
   if Camera.Mode=1
      Camera.Position.X=curvevalue(Player.Position.X-(sin(Player.Angle.Y)*(30.0*cos(Player.Angle.X))),Camera.Position.X,5)
      Camera.Position.Y=curvevalue(Player.Position.Y-(-sin(Player.Angle.X)*30.0),Camera.Position.Y,5)
      Camera.Position.Z=curvevalue(Player.Position.Z-(cos(Player.Angle.Y)*(30.0*cos(Player.Angle.X))),Camera.Position.Z,5)
      Camera.Angle.X=curveangle(Player.Angle.X,Camera.Angle.X,5)
      Camera.Angle.Y=curveangle(Player.Angle.Y,Camera.Angle.Y,5)
      Camera.Angle.Z=curveangle(-Player.Angle.Z,Camera.Angle.Z,5)
   endif

rem Update player object
   position object 1,Player.Position.X,Player.Position.Y,Player.Position.Z
   rotate object 1,Player.Angle.X,Player.Angle.Y,0
   rotate limb 1,0,0,0,Player.Angle.Z

rem Update camera
   position camera Camera.Position.X,Camera.Position.Y,Camera.Position.Z
   rotate camera Camera.Angle.X,Camera.Angle.Y,0

rem Update the screen
   sync

rem End the loop
loop

+ Code Snippet

rem Set screen resolution
set display mode 800,600,32

rem Hide loading
sync on
sync rate 0
sync
center text 400,300,"LOADING"
sync

rem Hide the cursor
hide mouse

rem Correct lighting
set normalization on

rem Disable autocam
autocam off

rem Make a simple terrain
make matrix 1,1000,1000,50,50
randomize matrix 1,50
update matrix 1

rem Make a simple plane
make object box 1,10,10,10
make object box 2,30,2,8
glue object to limb 2,1,0

rem Types
type XYZFloat
   X as float
   Y as float
   Z as float
endtype
type Player
   Position as XYZFloat
   Angle as XYZFloat
   Velocity as float
endtype
type Camera
   Position as XYZFloat
   Angle as XYZFloat
   Mode as integer
endtype

rem Declare variables
global Player as Player
global Camera as Camera

rem Set values
Camera.Mode=1

rem Lock frame rate
sync on
sync rate 60

rem Start the main loop
do

   rem Display hints
   text 0,0,"W,A,S+D to steer."
   text 0,20,"Space to accelerate."

   rem Control player
   W=keystate(17)
   A=keystate(30)
   S=keystate(31)
   D=keystate(32)
   Space=spacekey()
   if W=1
      if S=0
         Player.Angle.X=Player.Angle.X+3
      endif
   else
      if S=1
         Player.Angle.X=Player.Angle.X-3
      endif
   endif
   if D=1
      if A=0
         Player.Angle.Y=Player.Angle.Y+3
         Player.Angle.Z=curveangle(300,Player.Angle.Z,30)
      endif
   else
      if A=1
         Player.Angle.Y=Player.Angle.Y-3
         Player.Angle.Z=curveangle(60,Player.Angle.Z,30)
      endif
   endif
   if (D+A)<>1
      Player.Angle.Z=curveangle(0,Player.Angle.Z,30)
   endif
   if Space=1
      Player.Velocity=Player.Velocity+0.1
   else
      Player.Velocity=curvevalue(0,Player.Velocity,30)
   endif
   if Player.Velocity>5.0
      Player.Velocity=5.0
   endif
   Player.Position.X=Player.Position.X+(sin(Player.Angle.Y)*(Player.Velocity*cos(Player.Angle.X)))
   Player.Position.Y=Player.Position.Y+(-sin(Player.Angle.X)*Player.Velocity)
   Player.Position.Z=Player.Position.Z+(cos(Player.Angle.Y)*(Player.Velocity*cos(Player.Angle.X)))

   rem Control camera
   if Camera.Mode=1
      Camera.Position.X=curvevalue(Player.Position.X-(sin(Player.Angle.Y)*(30.0*cos(Player.Angle.X))),Camera.Position.X,5)
      Camera.Position.Y=curvevalue(Player.Position.Y-(-sin(Player.Angle.X)*30.0),Camera.Position.Y,5)
      Camera.Position.Z=curvevalue(Player.Position.Z-(cos(Player.Angle.Y)*(30.0*cos(Player.Angle.X))),Camera.Position.Z,5)
      Camera.Angle.X=curveangle(Player.Angle.X,Camera.Angle.X,5)
      Camera.Angle.Y=curveangle(Player.Angle.Y,Camera.Angle.Y,5)
      Camera.Angle.Z=curveangle(-Player.Angle.Z,Camera.Angle.Z,5)
   endif

   rem Update player object
   position object 1,Player.Position.X,Player.Position.Y,Player.Position.Z
   rotate object 1,Player.Angle.X,Player.Angle.Y,0
   rotate limb 1,0,0,0,Player.Angle.Z

   rem Update camera
   position camera Camera.Position.X,Camera.Position.Y,Camera.Position.Z
   rotate camera Camera.Angle.X,Camera.Angle.Y,0

   rem Update the screen
   sync

rem End the loop
loop

Back to top

Profile PM Email

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 13th Apr 2007 02:58

Link

no one else

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

Dabbler

17

Years of Service

User Offline

Joined: 3rd Mar 2007

Location: Minnesota

Posted: 13th Apr 2007 05:11

Link

@bass guy1669
Perhaps more like some sort of hover craft.

@TEH_CODERER
This is more like it. I may have to dabble with this for a while.
Drag, lift, rudder, aileron, elevator and of course thrust. Just for starters.

Hey, thanks for the start.

Whatever...

Back to top

Profile PM

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 13th Apr 2007 11:43

Link

No problem Dabbler. Glad it helped someone!

Back to top

Profile PM Email

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 21st Apr 2007 21:00

Link

here is the current version of the code

cubepositionx as integer=20
cubepositionz as integer=20
cubepositiony as integer=20
advance=0
noob=0
input "easy controls?>", control$
if control$= "yes"
noob=1
endif
if control$="no"
advance=1
endif
make object cube 7, 20
make camera 1
make matrix 9, 100,100,100,100
autocam off
sync
sync rate 0
set current camera 0
hide mouse
xrotate object 7, cuberotatex
cuberotatey=0

randomize matrix 9, 200
yrotate object 7, cuberotatey
cuberotatex=0
position object 7, cubepositionx,cubepositiony,cubepositionz
Set Camera View 1,0,0,0,0
do
rotate camera 0, object angle x(7), object angle y(7),0
set camera to follow 0, Object position x(7), Object position y(7), object position z(7), Object angle y(7)+900, 40, 20, 10, 1
point camera 0, object position x(7),object position y(7),object position z(7)
if upkey()=1 then inc cubepositiony, 1
if downkey()=1 then dec cubepositiony, 1
if keystate(27)=1 then inc cuberotatey, 1
if keystate(26)=1 then dec cuberotatey, 1
if advance=1 then MovePlane()
if noob=1 then Noobcontrol()
text 0,20,"FPS: "+str$(screen fps())
text 0,30, "welcome to the flight demo."
text 0,40, "Use W,A,S,D to turn and move."
text 0,50, "I'm working on changing controls."
text 0,60, "Thanks for trying:"
text 0,70, "Bass guy1669."
loop
function MovePlane()
if keystate(17) then move object 7, -1
if keystate(31) then move object 7, 1
if keystate(32) then turn object right 7, 1
if keystate(30) then  turn object left 7, 1
if keystate(32) then pitch object down 7,.5
if keystate(30) then pitch object up 7, -.5
endfunction
function Noobcontrol()
if keystate(17) then move object 7, -1
if keystate(31) then move object 7, 1
if keystate(32) then turn object right 7, 3
if keystate(30) then  turn object left 7, 3
endfunction

+ Code Snippet

cubepositionx as integer=20
cubepositionz as integer=20
cubepositiony as integer=20
advance=0
noob=0
input "easy controls?>", control$
if control$= "yes"
noob=1
endif
if control$="no"
advance=1
endif
make object cube 7, 20
make camera 1
make matrix 9, 100,100,100,100
autocam off
sync
sync rate 0
set current camera 0
hide mouse
xrotate object 7, cuberotatex
cuberotatey=0

randomize matrix 9, 200
yrotate object 7, cuberotatey
cuberotatex=0
position object 7, cubepositionx,cubepositiony,cubepositionz
Set Camera View 1,0,0,0,0
do
rotate camera 0, object angle x(7), object angle y(7),0
set camera to follow 0, Object position x(7), Object position y(7), object position z(7), Object angle y(7)+900, 40, 20, 10, 1
point camera 0, object position x(7),object position y(7),object position z(7)
if upkey()=1 then inc cubepositiony, 1
if downkey()=1 then dec cubepositiony, 1
if keystate(27)=1 then inc cuberotatey, 1
if keystate(26)=1 then dec cuberotatey, 1
if advance=1 then MovePlane()
if noob=1 then Noobcontrol()
text 0,20,"FPS: "+str$(screen fps())
text 0,30, "welcome to the flight demo."
text 0,40, "Use W,A,S,D to turn and move."
text 0,50, "I'm working on changing controls."
text 0,60, "Thanks for trying:"
text 0,70, "Bass guy1669."
loop
function MovePlane()
if keystate(17) then move object 7, -1
if keystate(31) then move object 7, 1
if keystate(32) then turn object right 7, 1
if keystate(30) then  turn object left 7, 1
if keystate(32) then pitch object down 7,.5
if keystate(30) then pitch object up 7, -.5
endfunction
function Noobcontrol()
if keystate(17) then move object 7, -1
if keystate(31) then move object 7, 1
if keystate(32) then turn object right 7, 3
if keystate(30) then  turn object left 7, 3
endfunction

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 21st Apr 2007 22:25

Link

bass guy1669:

I agree with comments about indentation - the lack of it looks tacky.

So, try this - you'll get less complaints!

http://forum.thegamecreators.com/?m=forum_view&t=104344&b=5

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 22nd Apr 2007 04:39 Edited at: 22nd Apr 2007 04:42

Link

Thanks TDK!! that helped alot
here is the updated code

cubepositionx as integer=20
cubepositionz as integer=20
cubepositiony as integer=20
advance=0
noob=0
input "easy controls?>", control$
if control$= "yes"
  noob=1
endif
if control$="no"
  advance=1
endif
make object cube 7, 20
make camera 1
make matrix 9, 100,100,100,100
autocam off
sync
sync rate 0
set current camera 0
hide mouse
xrotate object 7, cuberotatex
cuberotatey=0

randomize matrix 9, 200
yrotate object 7, cuberotatey
cuberotatex=0
position object 7, cubepositionx,cubepositiony,cubepositionz
Set Camera View 1,0,0,0,0
do
  rotate camera 0, object angle x(7), object angle y(7),0
  set camera to follow 0, Object position x(7), Object position y(7), object position z(7), Object angle y(7)+900, 40, 20, 10, 1
  point camera 0, object position x(7),object position y(7),object position z(7)
  if upkey()=1 then inc cubepositiony, 1
  if downkey()=1 then dec cubepositiony, 1
  if keystate(27)=1 then inc cuberotatey, 1
  if keystate(26)=1 then dec cuberotatey, 1
  if advance=1 then MovePlane()
  if noob=1 then Noobcontrol()
  text 0,20,"FPS: "+str$(screen fps())
  text 0,30, "welcome to the flight demo."
  text 0,40, "Use W,A,S,D to turn and move."
  text 0,50, "I'm working on changing controls."
  text 0,60, "Thanks for trying:"
  text 0,70, "Bass guy1669."
loop
function MovePlane()
  if keystate(17) then move object 7, -1
  if keystate(31) then move object 7, 1
  if keystate(32) then turn object right 7, 1
  if keystate(30) then  turn object left 7, 1
  if keystate(32) then pitch object down 7,.5
  if keystate(30) then pitch object up 7, -.5
endfunction
function Noobcontrol()
  if keystate(17) then move object 7, -1
  if keystate(31) then move object 7, 1
  if keystate(32) then turn object right 7, 3
  if keystate(30) then  turn object left 7, 3
endfunction

+ Code Snippet

cubepositionx as integer=20
cubepositionz as integer=20
cubepositiony as integer=20
advance=0
noob=0
input "easy controls?>", control$
if control$= "yes"
  noob=1
endif
if control$="no"
  advance=1
endif
make object cube 7, 20
make camera 1
make matrix 9, 100,100,100,100
autocam off
sync
sync rate 0
set current camera 0
hide mouse
xrotate object 7, cuberotatex
cuberotatey=0

randomize matrix 9, 200
yrotate object 7, cuberotatey
cuberotatex=0
position object 7, cubepositionx,cubepositiony,cubepositionz
Set Camera View 1,0,0,0,0
do
  rotate camera 0, object angle x(7), object angle y(7),0
  set camera to follow 0, Object position x(7), Object position y(7), object position z(7), Object angle y(7)+900, 40, 20, 10, 1
  point camera 0, object position x(7),object position y(7),object position z(7)
  if upkey()=1 then inc cubepositiony, 1
  if downkey()=1 then dec cubepositiony, 1
  if keystate(27)=1 then inc cuberotatey, 1
  if keystate(26)=1 then dec cuberotatey, 1
  if advance=1 then MovePlane()
  if noob=1 then Noobcontrol()
  text 0,20,"FPS: "+str$(screen fps())
  text 0,30, "welcome to the flight demo."
  text 0,40, "Use W,A,S,D to turn and move."
  text 0,50, "I'm working on changing controls."
  text 0,60, "Thanks for trying:"
  text 0,70, "Bass guy1669."
loop
function MovePlane()
  if keystate(17) then move object 7, -1
  if keystate(31) then move object 7, 1
  if keystate(32) then turn object right 7, 1
  if keystate(30) then  turn object left 7, 1
  if keystate(32) then pitch object down 7,.5
  if keystate(30) then pitch object up 7, -.5
endfunction
function Noobcontrol()
  if keystate(17) then move object 7, -1
  if keystate(31) then move object 7, 1
  if keystate(32) then turn object right 7, 3
  if keystate(30) then  turn object left 7, 3
endfunction

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 22nd Apr 2007 05:21

Link

In these examples listed, you can even make the plane from primitive shapes etc..

http://forum.thegamecreators.com/?m=forum_view&t=16180&b=6

Back to top

Profile PM Email

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 22nd Apr 2007 05:35

Link

thanks i'm sure that will come in handy

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

Dabbler

17

Years of Service

User Offline

Joined: 3rd Mar 2007

Location: Minnesota

Posted: 5th May 2007 05:48

Link

I think that is rather easy to create an airplane from primitives. (Possibly enhanced)

Here is a simple plane: (Stealth Cube)

rem Standard Setup Code
sync on : sync rate 20 :
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 12 : set text transparent

rem make some texture
cls rgb(255,255,255)
ink rgb(127,127,127),0
box 10,10,245,122
box 10,132,245,245
line 0,256,256,256
line 256,0,256,256
get image 1,0,0,255,255

rem build a stealth plane from a cube
make object cube 1,10
texture object 1,1
   lock vertexdata for limb 1,0
   for j=get vertexdata vertex count()-1 to 0 step -1
      if get vertexdata position z(j)>0
         if get vertexdata position y(j)>0
            set vertexdata position j,get vertexdata position x(j)*0.05,get vertexdata position y(j)*0.3,get vertexdata position z(j)*0.4
            else
            set vertexdata position j,get vertexdata position x(j)*0.1,get vertexdata position y(j)*0.05,get vertexdata position z(j)
         endif
         else
         if get vertexdata position y(j)>0
            set vertexdata position j,get vertexdata position x(j)*0.1,get vertexdata position y(j)*0.04,get vertexdata position z(j)
            else
            set vertexdata position j,get vertexdata position x(j)*1.1,get vertexdata position y(j)*0.01,get vertexdata position z(j)
         endif
      endif
   next j
   unlock vertexdata

rem make a pair of tails
make object triangle 2,0,0,-2.5,0,0,-5,0,2.55,-5
make mesh from object 1,2
delete object 2
add limb 1,1,1
add limb 1,2,1
delete mesh 1
texture limb 1,1,1
texture limb 1,2,1
offset limb 1,1,0.5,0,0
offset limb 1,2,-0.5,0,0
rotate limb 1,1,0,0,-30
rotate limb 1,2,0,0,30
set object cull 1,0

position camera 0,0,0,-15

r=0
repeat
   r=wrapvalue(r+1)
   rotate object 1,r,r,r
   control camera using arrowkeys 0,1,1
   sync
until mouseclick()=2
end

+ Code Snippet

rem Standard Setup Code
sync on : sync rate 20 :
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 12 : set text transparent

rem make some texture
cls rgb(255,255,255)
ink rgb(127,127,127),0
box 10,10,245,122
box 10,132,245,245
line 0,256,256,256
line 256,0,256,256
get image 1,0,0,255,255

rem build a stealth plane from a cube
make object cube 1,10
texture object 1,1
   lock vertexdata for limb 1,0
   for j=get vertexdata vertex count()-1 to 0 step -1
      if get vertexdata position z(j)>0
         if get vertexdata position y(j)>0
            set vertexdata position j,get vertexdata position x(j)*0.05,get vertexdata position y(j)*0.3,get vertexdata position z(j)*0.4
            else
            set vertexdata position j,get vertexdata position x(j)*0.1,get vertexdata position y(j)*0.05,get vertexdata position z(j)
         endif
         else
         if get vertexdata position y(j)>0
            set vertexdata position j,get vertexdata position x(j)*0.1,get vertexdata position y(j)*0.04,get vertexdata position z(j)
            else
            set vertexdata position j,get vertexdata position x(j)*1.1,get vertexdata position y(j)*0.01,get vertexdata position z(j)
         endif
      endif
   next j
   unlock vertexdata

rem make a pair of tails
make object triangle 2,0,0,-2.5,0,0,-5,0,2.55,-5
make mesh from object 1,2
delete object 2
add limb 1,1,1
add limb 1,2,1
delete mesh 1
texture limb 1,1,1
texture limb 1,2,1
offset limb 1,1,0.5,0,0
offset limb 1,2,-0.5,0,0
rotate limb 1,1,0,0,-30
rotate limb 1,2,0,0,30
set object cull 1,0

position camera 0,0,0,-15

r=0
repeat
   r=wrapvalue(r+1)
   rotate object 1,r,r,r
   control camera using arrowkeys 0,1,1
   sync
until mouseclick()=2
end

What I am looking for is some simple aircraft physics. Not a full blown flight simulator. Not arcade type flight.

Just an easy flyer.

Whatever...

Back to top

Profile PM

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 5th May 2007 07:12

Link

is my code not worthy of a comment exept you Dark Coder, so that you feel compelled to post others code here so please review my code.

Bass guy1669

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

Dabbler

17

Years of Service

User Offline

Joined: 3rd Mar 2007

Location: Minnesota

Posted: 5th May 2007 23:31

Link

@bass guy1669
I am sorry if you think my previous post was an insult or an attempt to hijack your thread. The Stealth Cube was included as a gift to you(and others); yet another example of a non-media aircraft.

Just a couple of comments.

The following code:

+ Code Snippet

  if upkey()=1 then inc cubepositiony, 1
  if downkey()=1 then dec cubepositiony, 1
  if keystate(27)=1 then inc cuberotatey, 1
  if keystate(26)=1 then dec cuberotatey, 1

Keys are tested and variable changed, but they do nothing in the main loop or functions. You may want to remove this or add the rotation and altitude controls.

It may be personal preference, but I would put all movement control in a single function and pass the easy/advanced flag to it.

It's a good start, I hope you will continue to work on it.

Thank you.

Whatever...

Back to top

Profile PM

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 6th May 2007 00:37 Edited at: 6th May 2007 00:38

Link

its ok dabbler it was 10:30 PM when posted that so thanks for the sugjustions(sorry

) so what FPS did you get

i usally get 50-60 FPS

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

Dabbler

17

Years of Service

User Offline

Joined: 3rd Mar 2007

Location: Minnesota

Posted: 6th May 2007 04:11

Link

@bass guy1669
At present I am using a very old and slow computer. Just divide by three. I hope to get my other machine fixed soon, then maybe I can get some decent frame rates again.

Whatever...

Back to top

Profile PM

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 6th May 2007 04:43

Link

ouch thats about 20 FPS thats about as much as one of my FPSC games. Well good luck on fixing your other computer.

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 20th May 2007 06:25

Link

@teh_coder That's crazy awesome how do you know all that!?

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 20th May 2007 06:32

Link

yeah teh_coderer thanks but can someone please sa something about MY code not teh_coderer's thank you

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 20th May 2007 06:40

Link

Ok, i have one Q, why can't you dive? And it runs slow, but better than anything i could do

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 20th May 2007 06:56

Link

diving is being worked on. Runs slow? huh i get 60 FPS on my 6 year old comp. well i've bin using dbpro for less than a year.

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 20th May 2007 07:48

Link

by slow, i mean SLOOW. 30 fps, and the camera acts up.

Ling creckt tsi nocreckto havela? NASA chetallnar mo lu'ul nasding!

Back to top

Profile PM

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 20th May 2007 07:54

Link

the camera can't be fixed with my knowledge, i'm used to 30 fps i use FPSC but it shouldn't go THAT low hmmm

you can live with a man for all his days, but you really find what he really is like when hold him over a volcano

Back to top

Profile PM Email

Xsnip3rX

17

Years of Service

User Offline

Joined: 20th Feb 2007

Location: Washington State

Posted: 22nd Jun 2007 05:31

Link

im only getting 80-90 FPS

Back to top

Profile PM Email

bass guy1669

17

Years of Service

User Offline

Joined: 24th Mar 2007

Location: The Zone

Posted: 22nd Jun 2007 06:02

Link

i dropped this project a loooooooooong time ago, if you want to inprove it go right ahead.

come see night shift at http://forum.thegamecreators.com/?m=forum_view&t=106003&b=25 see you there

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / Airplane style movement(DBP)no media