Graphics3D 1280, 720, 32

Dim cube(30) ,cx#(30), cy#(30) ,cz#(30), cxx#(30), cyy#(30) ,czz#(30)

For a=0 To 29
	czz#(a)=0.05
Next 


For a=0 To 29
	cx#(a)=-5 : cy#(a)=-4 
	hilfxx#=Rnd(3,12) : hilfyy#=Rnd(3,12)
	cxx#(a)=hilfxx#/100  : cyy#(a)=hilfyy#/100
Next

cz#(0)=2.8 : cx#(0)=0 : cy#(0)=0

For a=1 To 29
	cz#(a)=3
Next



Dim x(60),y(60),xx(60),yy(60),ball(60)
zeit=0 : anzahl=1 anzahlcube=0




cubex#=0:cubey#=0:cubez#=0

For a=0 To 59
	x(a)=0 : y(a)=0 : 
	xx(a)=Rnd(3,12): yy(a)=Rnd(3,12)
	If xx(a)=yy(a) Then xx(a)=xx(a)+1 ; Zufällige Geschwindigkeit der einzelnen Bälle
Next


camera = CreateCamera()
light = CreateLight()

;Bälle malen
For a=0 To 59 
	
 	ball(a) = CreateImage (100,100)
	SetBuffer ImageBuffer (ball(a)) 
	Color Rnd(60,255),Rnd(60,255),Rnd(60,255) ; jeder ball andere zufallsfarbe
	Oval 0, 0, 100, 100, 1
Next

texture = CreateTexture(1024,1024,256) ;256 für speichern in V-Ram

For a=0 To 29
	cube(a) = CreateCube()
	EntityTexture cube(a), texture
Next




While Not KeyHit(1) 
		
	SetBuffer TextureBuffer(texture)
	Cls	
	ClsColor 50,50,100
	For a=1 To anzahl
		DrawImage ball(a),x(a),y(a)
		x(a)=x(a)+xx(a)
		y(a)=y(a)+yy(a)
		If x(a)<0 Or x(a)>924 Then xx(a)=xx(a)*-1 
		If y(a)<0 Or y(a)>924 Then yy(a)=yy(a)*-1 
	Next
	If anzahlcube=29 Then Gosub cubebewegung: Goto peter2
	If zeit=1800 Then anzahlcube=anzahlcube+1:zeit=zeit-35:Gosub cubebewegung : Goto peter1
	If zeit>1749 And zeit<1800 Then Gosub cubebewegung: Goto peter1
	If cz#(0)=>8 Then Goto peter1
	If zeit=1500 Then cz#(0)=cz#(0)+0.01 :Goto peter2
	If zeit=1200 Then cubex#=1:cubey#=0.5:cubez#=1:Goto peter1 
	If anzahl=59 Then zeit=zeit+1:Goto peter2
	
	If zeit=300 Then anzahl=4
	If zeit=600 Then anzahl =8
	If zeit=900 Then anzahl=anzahl+1:zeit=zeit-10
.peter1
	zeit=zeit+1
.peter2	
	SetBuffer BackBuffer()
	For a=0 To anzahlcube
		TurnEntity Cube(a),cubex#,cubey#,cubez#
		PositionEntity cube(a), cx#(a),cy#(a),cz#(a)
	Next

	RenderWorld
	Flip
Wend
End
	
	
.cubebewegung
    For a=0 To anzahlcube
		cx#(a)=cx#(a)+cxx#(a)
		cy#(a)=cy#(a)+cyy#(a)
		cz#(a)=cz#(a)+czz#(a)
		If cx#(a)<-7 Or cx#(a)>7 Then cxx#(a)=cxx#(a) *-1 
		If cy#(a)<-6 Or cy#(a)>6 Then cyy#(a)=cyy#(a) *-1
		If cz#(a)<3 Or cz(a)>35 Then czz#(a)=czz#(a) *-1

	Next 
Return