/*
------------------------------------------------
Using single one hotkey of Collapse. Works with:
Edit Poly
Editable poly
UnwrapUVW
------------------------------------------------
Script: UniAttach-Detacher
Ver. 1.0
Author: Nikolay Litvinov
*/

macroScript UniCollapse
Category:"Niklit Scripts" 
Tooltip:"UniCollapse"
(
----------------------------------------
--FUNCTIONS
----------------------------------------
fn UVConnectCollapse curObj = (
curObj.scaleSelectedVerticesCenter 0 0
curObj.WeldSelectedShared())
----------------------------------------
--SCRIPTS
----------------------------------------
	(
 	if getCommandPanelTaskMode() != #modify then (max modify mode)
	local curObj = modPanel.getCurrentObject()
 		Case classOf curObj of 
 		(
	unwrap_uvw: UVConnectCollapse curObj
   	 Edit_Poly: (Case subobjectLevel of
					(	1: (curObj.ButtonOp #ConnectVertices
							curObj.ButtonOp #CollapseVertex)
						2:	curObj.ButtonOp #CollapseEdge
						3:	curObj.ButtonOp #CollapseEdge
						4:	curObj.ButtonOp #CollapseFace
					)
				)

Editable_poly: (Case subobjectLevel of
				(
					1:	(macros.run "Editable Polygon Object" "EPoly_Connect"
						macros.run "Editable Polygon Object" "EPoly_Collapse"
						max select)
					2:	macros.run "Editable Polygon Object" "EPoly_Collapse"
					3:	macros.run "Editable Polygon Object" "EPoly_Collapse"
					4:	macros.run "Editable Polygon Object" "EPoly_Collapse"
				)
			)
 		)
	)
)
messagebox("Actions are stored in Category: \"Niklit Scripts\"")