Игростроение - Создание игр

Graphics3D 1024,800,32,2

Global info1$="Race"

Const GRAVITY#=-.01

Const BODY=1,WHEEL=2,SCENE=3

Collisions BODY,SCENE,2,3
Collisions WHEEL,SCENE,2,3

terr=LoadTerrain( "heightmap_256.bmp" )
ScaleEntity terr,1000/TerrainSize(terr),70,1000/TerrainSize(terr)
TerrainDetail terr,1000,True
TerrainShading terr,True
PositionEntity terr,-500,0,-500

plane=CreatePlane()  
tex=LoadTexture( "sky1.jpg" )
PositionEntity plane,180,500,180  
ScaleTexture tex,1600,1600
RotateEntity plane,0,0,180
EntityTexture plane,tex

tex=LoadTexture( "terrain-1.jpg" )
ScaleTexture tex,20,20
EntityTexture terr,tex
EntityType terr,SCENE
plane=CreatePlane()
PositionEntity plane,20,20,2
tex=LoadTexture("terrain-1.jpg")
ScaleTexture tex,90,90
EntityTexture plane,tex
EntityType plane,SCENE
car=LoadMesh( "care.3DS" )
ScaleMesh car,1,1,-1

FlipMesh car
FitMesh car,-3,-0,-6,5,4,12
PositionEntity car,0,70,0
EntityShininess car,1
EntityType car,BODY

Global wheels[4]  

cnt=1  
For z#=1.5 To -1.5 Step -3  
For x#=-1 To 1 Step 2  
  wheels[cnt]=CreateSphere( 8,car )  
  EntityAlpha wheels[cnt],.10  
  ScaleEntity wheels[cnt],.10,.10,.10  
  EntityRadius wheels[cnt],.10  
  PositionEntity wheels[cnt],x,0,z  
  EntityType wheels[cnt],WHEEL  
  cnt=cnt+1  
Next  
Next  

light=CreateLight()
TurnEntity light,45,45,0
AmbientLight 255,255,255
target=CreatePivot( car )  
PositionEntity target,0,5,-12  

camera=CreateCamera()
CameraRange camera,.1,10000

CameraFogMode camera,1
CameraFogColor camera,255,255,255
CameraFogRange camera,2000,8000
CameraClsColor camera,255,255,255
    
speed#=0  
x_vel#=0:prev_x#=EntityX( car )  
y_vel#=0:prev_y#=EntityY( car )  
z_vel#=0:prev_z#=EntityZ( car )

While Not KeyHit(1)

  ;align car to wheels
  zx#=(EntityX( wheels[2],True )+EntityX( wheels[4],True ))/2
  zx=zx-(EntityX( wheels[1],True )+EntityX( wheels[3],True ))/2
  zy#=(EntityY( wheels[2],True )+EntityY( wheels[4],True ))/2
  zy=zy-(EntityY( wheels[1],True )+EntityY( wheels[3],True ))/2
  zz#=(EntityZ( wheels[2],True )+EntityZ( wheels[4],True ))/2
  zz=zz-(EntityZ( wheels[1],True )+EntityZ( wheels[3],True ))/2
  AlignToVector car,zx,zy,zz,1
   
  zx#=(EntityX( wheels[1],True )+EntityX( wheels[2],True ))/2
  zx=zx-(EntityX( wheels[3],True )+EntityX( wheels[4],True ))/2
  zy#=(EntityY( wheels[1],True )+EntityY( wheels[2],True ))/2
  zy=zy-(EntityY( wheels[3],True )+EntityY( wheels[4],True ))/2
  zz#=(EntityZ( wheels[1],True )+EntityZ( wheels[2],True ))/2
  zz=zz-(EntityZ( wheels[3],True )+EntityZ( wheels[4],True ))/2
  AlignToVector car,zx,zy,zz,3
   
  ;calculate car velocities  
  cx#=EntityX( car ):x_vel=cx-prev_x:prev_x=cx
  cy#=EntityY( car ):y_vel=cy-prev_y:prev_y=cy
  cz#=EntityZ( car ):z_vel=cz-prev_z:prev_z=cz
   
  ;resposition wheels
  cnt=1
  For z=1.5 To -1.5 Step -3
  For x=-1 To 1 Step 2
;  PositionEntity wheels[cnt],0,0,0
;  ResetEntity wheels[cnt]
   PositionEntity wheels[cnt],x,-1,z
   cnt=cnt+1
  Next
  Next

  ;move car
  If KeyDown(203) TurnEntity car,0,3,0
  If KeyDown(205) TurnEntity car,0,-3,0
  If EntityCollided( car,SCENE )
   If KeyDown(200)
    speed=speed+.02
    If speed>.7 speed=.7
   Else If KeyDown(208)
    speed=speed-.02
    If speed<-.5 speed=-.5
   Else
    speed=speed*.9
   EndIf
   MoveEntity car,0,0,speed
   TranslateEntity car,0,GRAVITY,0
  Else
   TranslateEntity car,x_vel,y_vel+GRAVITY,z_vel
  EndIf

  ;update camera
  If speed>=0  
   dx#=EntityX( target,True )-EntityX( camera )
   dy#=EntityY( target,True )-EntityY( camera )
   dz#=EntityZ( target,True )-EntityZ( camera )
   TranslateEntity camera,dx*.1,dy*.1,dz*.1
  EndIf
  PointEntity camera,car
   
  UpdateWorld
  RenderWorld
  Flip
Wend

End

Graphics3D 800,600,32,1  
SetBuffer BackBuffer()  

light=CreateLight()
TurnEntity light,45,45,0
AmbientLight 255,255,255
target=CreatePivot( air )  
PositionEntity target,0,5,-12  

camera=CreateCamera()
CameraRange camera,.1,10000

CameraFogMode camera,1
CameraFogColor camera,255,255,255
CameraFogRange camera,2000,8000
CameraClsColor camera,255,255,255

air=LoadMesh("air.3ds")  

Repeat  

speed#=0  
x_vel#=0:prev_x#=EntityX( air )  
y_vel#=0:prev_y#=EntityY( air )  
z_vel#=0:prev_z#=EntityZ( air )

While Not KeyHit(1)

UpdateWorld  
RenderWorld  

Flip  
Wend

Until KeyHit(1)  

End