Sorry your browser is not supported!

REM Project: Demo
REM Created: 7/11/2007 7:31:49 PM
REM
REM ***** Main Source File *****
REM
   sync on
   sync rate 60

   hide mouse


   load object "xwing.x",1
   load object "star_destroyer.x",2
   load object "awing.x",3
   load object "bwing.x",4
   load object "corellian.x",5
   load object "executor.x",6
   load object "executor_bridge.x",7
   load object "executor_energy_pod.x",8
   load object "falcon.x",9
   load object "missile.x",10
   load object "nebulonb.x",11
   load object "star_destroyer_energy_pod.x",12
   load object "transport.x",13
   load object "tie.x",14
   load object "ywing.x",15
   load object "tie_interceptor.x",16
   clone object 17,1
   clone object 18,12
   clone object 19,8
   load image "stars4.bmp",1,1
   load music "battle_1_4.mp3",1
   load sound "xwing_engine.wav",1

   set global collision on

   set camera range 10,8000

   position camera 0,0,-60

   texture object 18,1
   texture object 17,1
   texture object 16,1
   texture object 15,1
   texture object 14,1
   texture object 13,1
   texture object 12,1
   texture object 11,1
   texture object 10,1
   texture object 9,1
   texture object 6,1
   texture object 5,1
   texture object 4,1
   texture object 3,1
   texture object 2,1
   texture object 1,1

   loop music 1

   loop sound 1

   position object 19,2980,370,-1867
   position object 18,-220,365,-1420
   position object 17,-6400,0,-1000
   position object 16,-7300,0,-1000
   position object 15,-5500,0,-1000
   position object 14,-9100,0,-1000
   position object 13,-1900,0,-1000
   position object 12,20,365,-1420
   position object 11,-1000,0,-1000
   position object 10,-10000,0,-1000
   position object 9,-3700,0,-1000
   position object 8,2825,370,-1867
   position object 7,2900,326,-1842
   position object 6,2900,0,-1000
   position object 5,-2800,0,-1000
   position object 4,-4600,0,-1000
   position object 3,-8200,0,-1000
   position object 2,-100,0,-1000
   position object 1,0,0,0


set normalization on


autocam off




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


global Player as Player
global Camera as Camera

Camera.Mode=1

do


   text 0,0,"W,A,S,D to steer."
   text 0,20,"Space to accelerate."
   text 0,40,"Yes, the textures are weird, but that is"
   text 0,60,"because i didn't have any :P. Oh, and you"
   text 0,80,"guys need to make some ;). I thought this "
   text 0,100,"flight engine would do well in the BoE game"
   text 0,120,"It gives you more freedom, and can be adapted"
   text 0,140," to first person. Please give feedback"


   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)))


   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


   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


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


   sync


loop