[DStalk]

Function CreateCubes()
	
	For i = 1 To 10
		cube.T_cubes = New T_cubes
		cube\ent = CreateCube()
		cube\x = i * 3 - 15
		cube\y = 0
		cube\z = 20
		cube\hndl = Handle(cube.T_cubes)
		
		If i > 1
			n=n+1:if n=4 then n=1
		Else			
			n = Rand(1,3)
		EndIf
		
		Select n
			Case 1:cube\col="red":EntityColor cube\ent,255,0,0
			Case 2:cube\col="green":EntityColor cube\ent,0,0,255
			Case 3:cube\col="blue":EntityColor cube\ent,0,0,255
		EndSelect

		PositionEntity cube\ent,cube\x,cube\y,cube\z
	Next
End Function