type auto
field entity
end type

for a.auto =each auto
  moveentity auto\entity,0.1,0.1,0.1
next

terrain_m1# = (TerrainY(terrain, EntityX(car1), EntityY(car1), EntityZ(car1)) - TerrainY(terrain, EntityX(cam), EntityY(cam), EntityZ(cam))) / (EntityX(car1) - EntityX(cam))

Tan(terrain_m1#) = terrain_m#

RotateEntity car1, terrain_m#, 0, 0

Type auto   ;Unser Auto-Type
   Field karosserie   ;Die Karosserie
   Field raeder[4]   ;4 Räder
End Type

Graphics3D 800,600,32,2

boden = CreatePlane()   ;Boden
cam = CreateCamera()   ;Kamera
light = CreateLight()   ;Licht

PositionEntity cam, 0,5,5   ;Kamera positionieren
PositionEntity light, 0,10,-10   ;Licht positionieren
PointEntity cam, boden   ;Kamera auf den Boden zielen lassen
EntityColor boden, 100,100,100   ;Boden einfärben
;Hauptschleife
While Not KeyHit(1)
   If KeyHit(57)   ;Tastendruck 57 (Leertaste) abfragen
      a.auto = New auto   ;Neue Auto-Instanz erstellen
      a\karosserie = CreateCube()   ;Einen Würfel für die Karosserie erstellen
      ScaleEntity a\karosserie, 1,0.5,1.5   ;n'Auto ist ja nicht Würfelförmig, also etwas skalieren
      EntityColor a\karosserie, 255,0,0   ;Wer will schon kein Rotes Auto?
      For i = 1 To 4   ;Diese Schleife wird 4 mal ausgeführt
         a\raeder[i] = CreateCylinder()   ;Das aktuelle Rad erstellen
         ScaleEntity a\raeder[i], 0.5,0.1,0.5   ;Räder sind ja nicht länglich, oder?
         RotateEntity a\raeder[i], 0,0,90   ;Rad richtig drehen
         EntityParent a\raeder[i], a\karosserie   ;Jetzt gehört das Rad zur Karosserie, also wenn sich die Karosserie bewegt, bewegt sich auch das Rad
         EntityColor a\raeder[i], 50,50,50   ;Färbt noch die Räder.
      Next
      ;Nun werden wir die Räder auch richtig positionieren.
      PositionEntity a\raeder[1], 1.1,-0.25,-1.0
      PositionEntity a\raeder[2], 1.1,-0.25,1.0
      PositionEntity a\raeder[3], -1.1,-0.25,-1.0
      PositionEntity a\raeder[4], -1.1,-0.25,1.0
      
      ;Nun werden wir die Karosserie auch noch irgendwohin positionieren! Die Räder werden dank EntityParent mitbewegt, und behalten ihre relative Position bei!
      PositionEntity a\karosserie, Rand(0,10),1,Rand(0,10)
   EndIf
   If KeyHit(2) Then
      PointEntity cam, a\karosserie   ;Rotiert die Kamera beim Tastendruck der Taste 1 zum letztgesetzten Auto
   EndIf
   
   RenderWorld
   Flip
   Cls
Wend
End

   ;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

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],.5
   ScaleEntity wheels[cnt],.5,.5,.5
   EntityRadius wheels[cnt],.5
   PositionEntity wheels[cnt],x,0,z
   EntityType wheels[cnt],WHEEL
   cnt=cnt+1
Next
Next

Dim a(10)
Dim speed#(10)

for i=0 to 10
 a(i)=loadmesh("auto.3ds")
 speed(i)=2 + rnd(1.0)
next

...
repeat
for i=0 to 10
 moveentity a(i),0,0,speed(i)
next
...