Dim haus(5)        ;klar, das haus
Dim energie(5)    ;die Energie jedes hauses
Dim rot(5)            ; der rote Anteil im Energiebalken des Hauses
Dim gr(5)             ;...grüne
Dim bl(5)             ;...blaue

Dim px(5)
Dim py(5)
Dim pz(5)

For i = 0 To 5
haus(i) = CreateCube()
PositionEntity haus(i),RND(-10,10),5,RND(-10,10)
ScaleEntity haus(i),Rand(2,4),Rand(5,7),Rand(3,5)

energie(i) = 100
rot(i) = 0
gr(i) = 255
bl(i) = 0
Next

;...
While Not(KeyHit(1))

;...

For j = 0 To 5

CameraProject(cam,EntityX(haus(j),1),EntityY(haus(j),1),EntityZ(haus(j),1))
px(j) = ProjectedX()
py(j) = ProjectedY()
pz(j) = ProjectedZ()

If explosion_irgendwo_in_der_nähe Then
energie(j) = energie(j) - 5
rot(j) = rot(j) + 2.5
gr(j) = gr(j) - 2.5
End If

Next

;...

RenderWorld

For k = 0 To 5
If pz(k) > 0 Then
Cls
Color Red(k),Gr(k),Bl(k)
Rect px(k),py(k),energie(k),5
Next
;...
Wend
End

Graphics3D 800,600,0,2
SetBuffer BackBuffer()

Global Kamera=CreateCamera()
PositionEntity Kamera,0,10,-20

Light=CreateLight()

Type Gebaeude
Field Build
Field Haus
Field Gesundheit
End Type

For Houses=1 To 10
   CreateHaus
Next


While Not KeyHit(1)
   Cls
   If MouseHit(1)
      CameraPick(Kamera,MouseX(),MouseY())
      If PickedEntity()<>0
         UpdateHouseHealth(PickedEntity())
      EndIf
   EndIf
   UpdateWorld
   RenderWorld
   UpdateHouses
   Flip
Wend
End

Function CreateHaus()
   Build.Gebaeude=New Gebaeude
   Build\Haus=CreateCube()
   EntityPickMode Build\Haus,2
   Build\Gesundheit=100
   PositionEntity Build\Haus,Rnd(-10,10),0,Rnd(-30,30)
End Function

Function UpdateHouseHealth(Entity)
   For Build.Gebaeude=Each Gebaeude
      If Build\Haus=Entity
         Build\Gesundheit=Build\Gesundheit-10
      EndIf
   Next
End Function


Function UpdateHouses()
   For Build.Gebaeude=Each Gebaeude
      If EntityInView(Build\Haus,Kamera)
         CameraProject(Kamera,EntityX(Build\Haus),EntityY(Build\Haus),EntityZ(Build\Haus))
         For Balken=0 To Build\Gesundheit
            Color 255-Balken*2.5,Balken*2.5,0
            Rect (ProjectedX#()+Balken-Build\Gesundheit/2),ProjectedY#(),5,10,1
         Next
      EndIf
      If Build\Gesundheit<1
         FreeEntity Build\haus
         Delete Build
      EndIf
   Next
End Function