Option Explicit
'Script written by Russell Loveridge
'Script copyrighted by <RAL: lapa.epfl.ch>

' This script demonstrates using random movements during a copy command

Call Main()


Sub Main()
	
	Dim strObject, dblSize, intDir, i, intCount, dblpos

	strObject = Rhino.GetObject( "Select an object to move" )
	If IsNull(strObject) Then Exit Sub
	
	dblSize = Rhino.GetReal("enter distance to copy the box", 2)
	

	intCount = Rhino.GetInteger("how many copies?")
	If (VarType(intCount) = vbNull Or (intCount <= 0)) Then Exit Sub

	' we can use the user input value and multiply it by a random factor between 0 and 1.
	' this SQUIGGLES the tower... 

	For i = 1 To intCount

		dblpos = (i*dblSize)
		Rhino.CopyObject strObject, Array(0,0,0), Array((rnd*0.5),(rnd*0.5),(dblpos*1.1))
		' note the Z value for the copy is 1.1 X the height - this allows us to see the individual boxes when shaded....

	Next


End Sub