standrad light to vray sun convert

try(destroydialog ::AlignVRSUN) catch() 
rollout AlignVRSUN "VrSun Align"
(
	fn check obj = isValidNode obj and obj.Target != undefined
	button avrsun "Align VRay Sun" pos:[5,5] width:110 height:20
	on avrsun pressed do
	(
		local vrsun = (for s in lights where classof s == VRaySun collect s)[1]
		if vrsun == undefined then (messagebox "VRay Sun don't exist." title:"Note" beep:false) else
		(
			if selection.count != 1 then (messagebox "Select a object first!" title:"Note" beep:false) else
			(
				local targObj = selection[1] 
				if check targObj == false then (messagebox "Select a node which have a target" title:"Note" beep:false) else
				(
					vrsun.target.transform = targObj.target.transform
					vrsun.transform = targObj.transform
				)
			)
		)
	)
)
createDialog AlignVRSUN 120 30 style:#(#style_titlebar, #style_sysmenu, #style_toolwindow)