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


Call Main()
Sub Main()
	'declare the variables for the script.
	Dim strObject, dblSize, intDir

	'user input - identify the object to move
	strObject = Rhino.GetObject( "Select an object to move" )
	If IsNull(strObject) Then Exit Sub

	' user input (a "double" is a real number  ex: 3.1459)
	dblSize = Rhino.GetReal("enter distance to move the box", 10)

	' user input (an "integer" is a whole number ex: 4 - no decimal fraction)
	intDir = Rhino.GetInteger("direction to move the box: X=0, Y=1, Z=2", 0, 0, 2)
	' the numbers at the end of this statement are limiters, this means:
	' ask the user for a number,  Default num=0, min num=0, max num = 2)


	' This is a conditional statement: It allows for multiple choices.
	If intDir = 0 Then
		Rhino.MoveObject strObject, Array(0,0,0), Array(dblSize,0,0)
		' this is the move if the user inputs 0  - for an X move)

	ElseIf intDir = 1 Then 
		Rhino.MoveObject strObject, Array(0,0,0), Array(0,dblSize,0)
		' this is the move if the user inputs 1  - for an Y move)

	Else
		Rhino.MoveObject strObject, Array(0,0,0), Array(0,0,dblSize)
		' this is the move if the user inputs 2  - for an Z move)

	End If



End Sub