--wrote by JokerMartini
-- additional edits by Anubis

rollout rlMassiveBending "Massive Bending"
(
	local BendMinValue = 0
	local BendMaxValue = 0
	local BendAngleValue = 30
	
	local DirectionMinValue = 0
	local DirectionMaxValue = 0
	local DirectionValue = 90
	
	groupbox gpbxBendAngle "Bend Angle" width:120 height:56 pos:[6,2]
	label lbInOrder "In Order: " pos:[16,38]
	label lbInOrderB "In Order: " pos:[16,98]
	spinner spnBendAngle "Angle: " fieldwidth:40 range:[-999999,99999,BendAngleValue] pos:[30,19]
	checkbox ckbxBendInOrder "" width:19 pos:[67,38]
	groupbox gpbxBendVariation "" width:110 height:56 pos:[125,2]
	spinner spnBendMin "Min: " fieldwidth:40 range:[-999999,99999,BendMinValue] pos:[150,14]
	spinner spnBendMax "Max: " fieldwidth:40 range:[-999999,99999,BendMaxValue] pos:[146,34]

	groupbox gpbxDirection "Direction Angle" width:120 height:56 pos:[6,62]
	spinner spnDirection "Direction: " fieldwidth:40 range:[-999999,99999,DirectionValue] pos:[15,79]
	checkbox ckbxDirectionInOrder "" width:19 pos:[67,98]
	groupbox gpbxDirtVariation "" width:110 height:56 pos:[125,62]
	spinner spnDirectionMin "Min: " fieldwidth:40 range:[-999999,99999,DirectionMinValue] pos:[150,74]
	spinner spnDirectionMax "Max: " fieldwidth:40 range:[-999999,99999,DirectionMaxValue] pos:[146,94]
	
	groupbox gpbxBendAxis "Bend Axis" width:120 height:56 pos:[6,122]
	radiobuttons rbtnBendAxis labels:#("X", "Y", "Z") pos:[20,146]
	
	button btnApply "Apply" width:105 height:50 pos:[130,128]
	
	--checkbox ckbxBendInOrder "Bend Obj's In Order" pos:[6,182]
	
	on spnBendMin changed value do -- Bend
	(
		BendMinValue = spnBendMin.value
	)
	
	on spnBendMax changed value do
	(
		BendMaxValue = spnBendMax.value
	)
	
	on spnBendAngle changed value do
	(
		BendAngleValue = spnBendAngle.value
	)
	
	on spnDirection changed value do -- Direction
	(
		DirectionValue = spnDirection.value
	)
	
	on spnDirectionMax changed value do
	(
		DirectionMaxValue = spnDirectionMax.value
	)
	
	on spnDirectionMin changed value do
	(
		DirectionMinValue = spnDirectionMin.value
	)
	
	on btnApply pressed do
	(
		userSel = getCurrentSelection ()
		if userSel.count > 0 then 
		(
			for i = 1 to selection.count do
			(
				Obj = selection[i]
				-- loop through the mod's to be sure there is Bend exist,
				-- also apply the value to all Bend mod's in the object:
				for m in Obj.modifiers where (classOf m == Bend) do
				if ckbxBendInOrder.state == true then
				(
					m.BendAngle = (i+(BendAngleValue)+(random MinValue MaxValue))
				)
				else
				(
					m.BendAngle = ((BendAngleValue)+(random BendMinValue BendMaxValue))	
				)
				
				if ckbxDirectionInOrder.state == true then
				(
					m.BendDir = (i+(DirectionValue)+(random DirectionMinValue DirectionMaxValue))
				)
				else
				(
					m.BendDir = ((DirectionValue)+(random DirectionMinValue DirectionMaxValue))	
				)
				
				case rbtnBendAxis.state of 
				(
					1: m.BendAxis = 0
					2: m.BendAxis = 1
					3: m.BendAxis = 2
				)
			)
		)
	)
	
)
createDialog rlMassiveBending 242 186