align verts on hotkey

macroScript flattentest2 category:"tools" toolTip:"flattentest2"
(
 
	(
function getModKey =
	(
	local resultData = #none
 
	if ( (not keyboard.shiftPressed) and (not keyboard.controlPressed) and (not keyboard.altPressed) and (not keyboard.escPressed) ) then
		resultData = #none
	else if ( (keyboard.shiftPressed) and (not keyboard.controlPressed) and (not keyboard.altPressed) and (not keyboard.escPressed) ) then
		resultData = #shift
	else if ( (not keyboard.shiftPressed) and (keyboard.controlPressed) and (not keyboard.altPressed) and (not keyboard.escPressed) ) then
		resultData = #ctrl
	else if ( (not keyboard.shiftPressed) and (not keyboard.controlPressed) and (keyboard.altPressed) and (not keyboard.escPressed) ) then
		resultData = #alt
	else if ( (keyboard.shiftPressed) and (keyboard.controlPressed) and (not keyboard.altPressed) and (not keyboard.escPressed) ) then
		resultData = #shiftctrl
	else if ( (not keyboard.shiftPressed) and (keyboard.controlPressed) and (keyboard.altPressed) and (not keyboard.escPressed) ) then
		resultData = #ctrlalt
	else if ( (keyboard.shiftPressed) and (keyboard.controlPressed) and (keyboard.altPressed) and (not keyboard.escPressed) ) then
		resultData = #shiftctrlalt
 
	return resultData
	)
 
 
fn getObj =
	(
	if selection.count == 1 then obj = selection[1] else undefined --if selection count is one then obj= selected
	)
 
 
fn getoffset x y =
	(
		d = y-x
 
		if x > y then
		(
			if d > 0 then d else -d
		)
		else
		(
			if d > 0 then -d else d
		)
	)
 
 
if getObj() != undefined do with undo "Align Vertices" on with redraw off --if object is not undefined
	nKey = getModKey() 
	testModifier = classOf $
			(	
			if testModifier == Editable_Poly then 
					(
						selectedVert = polyOp.getVertSelection obj as array
					)
			else if testModifier == PolyMeshObject do
					(
						selectedVert = obj.Edit_Poly.GetSelection #Vertex as array
					)	
		max undo 
 
	testModifier = classOf $
			if testModifier == Editable_Poly then 
					(
						selectedVert2 = polyOp.getVertSelection obj as array
						firstV= for i in selectedVert where finditem selectedVert2 i == 0 collect i
						firstVXYZ = polyOp.getVert obj firstvert[1] 
					)
			else if testModifier == PolyMeshObject do
					(
						selectedVert2 = obj.Edit_Poly.GetSelection #Vertex as array
						FirstV = for i in selectedVert where finditem selectedVert2 i == 0 collect i
						FirstVXYZ = obj.GetVertex firstvert[1] 
					)	
 
					print FirstV
					print FirstVXYZ
		max redo
			)
 
 
		vertSel = obj.selectedVerts  --selected vertlist
 
			--Get the intended plane axis
			case nkey of (
					#none: n = [0,0,0]  
					#shift: n = [1,0,0]  --x?
					#ctrl:  n = [0,1,0]  --y?
					#alt:   n = [0,0,1]  --z?
								)
 
			polyop.moveVertsToPlane obj vertSel n 0.0  --flatten  selection, vertlist, n=xy, orz 
 
			vert1 = pGetVert obj vertSel[1].index --defines vert1 as average of vert
 
			case nkey of (--offset based on average vs first vert
					#none: offset = [0,0,0]  
					#shift: offset = [(getoffset FirstV.x vert1.x),0,0]  -x?
					#ctrl:  offset = [0,(getoffset FirstV.y vert1.y),0] --y?
					#alt:   offset = [0,0,(getoffset FirstV.z vert1.z)] --z?
							)
 
			polyop.moveVert obj vertSel offset --move selcted vert selection by offset
	)
)