Need a script for a box animation

-------------------
-- SETUP
-------------------
-- 1/ function to resize the boxes
-- you can use also "scale" but see and this metod
fn cube obj size =
(obj.length = obj.width = obj.height = size)
-- 2/ function to collect the boxes as array
theBoxes = #()
fn theArray = (theBoxes = selection as array)
-- 3/ set large enough animation range
animationRange = interval 0 2000 -- 2000.0/30 = 66.6667 sec.
-------------------
-- CREATION
-------------------
-- create array of boxes (6 * 6 * 6), total = 216
b = box() -- create box
select b -- select it
cube $ 10 -- resize it calling "cube" function
-- copy it 5 times and move by X
-- if to say you want distance between them to be 1
-- end use above size value 10, then use 11
for i = 1 to 5 do
(
	c = copy b -- copy
	c.pos.x += i * 11 -- move 11 by X
	selectMore c -- append to selection
)
theArray() -- collect selection
-- now the same as above but copy all 6 boxes and move them by Y
for i = 1 to 5 do
( -- as you see in inside loop FOR i use "j" instead of "i" to avoid conflict
	for j in theBoxes do
	(
		c = copy j
		c.pos.y += i * 11
		selectMore c
	)
)
theArray()
-- now the same as above but copy all 36 boxes and move them by Z
for i = 1 to 5 do
(
	for j in theBoxes do
	(
		c = copy j
		c.pos.z += i * 11
		selectMore c
	)
)
theArray()
theBoxes.wirecolor = green -- change wirecolor to green
-------------------
-- ANIMATION
-------------------
-- first SETUP once to make into animation
select theBoxes -- if not selected, but should be
animate on
	at time 100
		cube theBoxes 0
-- END SETUP intro here
-------------------------------------------
-- the CORE Animation Part -----------
for t in 200 to 2000 by 200 do
(
	at time t
	(
		sliderTime = t -- move slider
		clearSelection() -- clear selection
		-- and make new random selection:
		for i in 1 to (random 1 theBoxes.count) do
		(selectMore theBoxes[random 1 theBoxes.count])
		animate on
			cube $ 10 -- grow
	)
	at time (t += 100)
	(
		sliderTime = t -- move slider
		animate on
			cube $ 0 -- scale down the same selection
	)
)
-- Well Done! The real Happy End is here :))
-- Happy scripting!
-- Regards, Anubis