Graphics3D 640,480
SetBuffer BackBuffer()
Global camera=CreateCamera()
RotateEntity camera,45,0,0
PositionEntity camera,0,15,-10
light=CreateLight()
RotateEntity light,45,0,0

Global sphere=CreateSphere(32)
EntityType sphere,1
EntityRadius sphere,0.1
PositionEntity sphere,0,11,0

cube=CreateCube()
EntityType cube,2
EntityColor cube,0,100,0
PositionEntity cube,0,-5,0
ScaleEntity cube,10,10,10

cylinder=CreateCylinder(32)
EntityType cylinder,2
EntityColor cylinder,255,0,0
PositionEntity cylinder,0,7,0
ScaleEntity cylinder,2,2,2
Global punkte,dis#
Type obj
	Field model
End Type
For a=0 To 10
	createobjekt()
Next
Function createobjekt()
	obj.obj=New obj
	obj\model=CreateCube()
	ScaleEntity obj\model,0.5,0.5,0.5
	PositionEntity obj\model,Rand(-10,10),5,Rand(-10,10)
End Function

Function  updateobjekt()
	For obj.obj=Each obj
		dis#=EntityDistance(sphere,obj\model)
		If dis#<1Then  punkte=punkte+1 FreeEntity obj\model Delete obj
		
	Next
End Function

While Not KeyDown(1)
x#=0
y#=0
z#=0
If KeyDown(203)=1 Then x#=-0.1
If KeyDown(205)=1 Then x#=0.1
If KeyDown(208)=1 Then z#=-0.1
If KeyDown(200)=1 Then z#=0.1
MoveEntity sphere,x#,0,z#
TranslateEntity sphere,0,-0.5,0
Collisions 1,2,2,2

updateobjekt()
UpdateWorld
RenderWorld
Text 1,1,\"SCORE: \"+punkte

Flip
Wend
End