[Maestro]

MoKa, все бы ничего, только у меня не коллизия... вот на всякий случай код: (кубики все изчезают, а звуки переодически звенят)

SetBuffer BackBuffer()

Type kami
 Field modeli
End Type
Type walls
 Field model
End Type

Global k.kami,w.walls

   boomSound=LoadSound("select.mp3")

cam=CreateCamera()
PositionEntity cam,0,60,0
TurnEntity cam,90,0,0

lit=CreateLight()
TurnEntity lit,70,70,0

pivot=CreatePivot()
createkami(10,50)
Createwalls(10,pivot,50)

Repeat

TurnEntity pivot,0,.5,0


 For k.kami=Each kami
  For w.walls=Each walls
   If EntityDistance (k\modeli,w\model)<4 Then
    HideEntity k\modeli
    PlaySound boomSound
;    FreeEntity k\modeli
   EndIf
  Next
 Next

 For k.kami=Each kami
      If KeyDown(31) Then MoveEntity k\modeli,0,0,.5
    If KeyDown(30) Then TurnEntity k\modeli,0,3,0
    If KeyDown(17) Then MoveEntity k\modeli,0,0,-.5
    If KeyDown(32) Then TurnEntity k\modeli,0,-3,0
 Next

UpdateWorld()
RenderWorld()

Flip
Until KeyHit(1)

Function CreateKami(kol,razbros)
 For i=1 To kol
  k.kami=New kami
  k\modeli=CreateCube()
    PositionEntity k\modeli,Rnd(-razbros,razbros),2,Rnd(-razbros,razbros)
  EntityColor k\modeli,0,200,200
 ScaleEntity k\modeli,2,1,2
  EntityRadius k\modeli,2.5
 Next
End Function

Function CreateWalls(tn,pivot$,razbros)
 For i=1 To tn
  w.walls=New walls
  w\model=CreateCube(pivot$)
      PositionEntity w\model,Rnd(-razbros,razbros),2,Rnd(-razbros,razbros)
  ScaleEntity w\model,2,1,2
  EntityColor w\model,200,200,0
  EntityParent w\model,pivot$
 Next
End Function

а вот то же самое в архиве (со звуком)