как то так....
Graphics3D 640, 480, 32, 2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
cam=CreateCamera()
PositionEntity cam,30,5,25
RotateEntity cam,15,90,0
light=CreateLight()
cub=CreateCube() : HideEntity cub
pos=0 : kof=5 : maxobj=10
timecreate=MilliSecs()+1000
While Not KeyDown(1)
If (timecreate<=MilliSecs()) And obj<>maxobj Then
newcub=CopyEntity (cub)
PositionEntity newcub,0,0,pos
EntityColor newcub,Rand(0,255),Rand(0,255),Rand(0,255)
pos=pos+kof
obj=obj+1
timecreate=MilliSecs()+1000
EndIf
RotateMesh cub,0.25,0.35,0.45
RenderWorld
Flip
Delay 1
Wend
End