macroScript GiveThemProperties category:"Freespace"
(
	changeCount = 0 
	
	for i = 1 to selection.count do
	(
		test = ""
		dummyCount = 0 
		
		if (findString selection[i].name "helper" != undefined) then
			continue -- helper object
		else if (findString selection[i].name "thruster" != undefined) then
			continue -- thruster dummy points
		else if (findString selection[i].name "bank" != undefined) then
			continue -- missile, gun and glow banks
		else if (findString selection[i].name "eye" != undefined) then
			continue -- eyepoint
		else if (findString selection[i].name "-" != undefined) then
			continue -- turret arms, destroyed subsystems
		else if (findString selection[i].name "firepoint" != undefined) then
			continue -- firepoints
		test = "$special=subsystem\r\n$fov=180\r\n$name=" + selection[i].name
		changeCount = changeCount + 1

		setUserPropBuffer selection[i] test
	)
	
	if (changeCount == 0) then
	(
		MessageBox "Nothing useable was selected"
	)
)