macroScript IntakeNumber category:"Freespace"
(
	engineNumber = 1
	
	rollout rename_rollout "Intake Renumbering"
	(
		button ResetCount "Reset Intake Count"
		button RenameBase "Renumber Intake"

		on ResetCount pressed do
		(
			intakeNumber = 1
		)
			
		on RenameBase pressed do
		(
			changeCount = 0
			
			if (intakeNumber < 10) then
				newName = "Intake0" + intakeNumber as String
			else
				newName = "Intake" + intakeNumber as String
		
			for loop = 1 to selection.Count do
			(
				oldname = selection[loop].name
				if (findString oldName "intake" != undefined) then
				(
					if (findString oldName "-destroyed" == undefined) then
					(
						selection[loop].Name = newName
						changeCount = changeCount + 1
					)
					else
					(
						selection[loop].Name = newName + "-destroyed"
						changeCount = changeCount + 1
					)
				)
			)
			
			if (changeCount == 0) then
			(
				MessageBox "Nothing useable was selected"
			)				
			else
			(
				intakeNumber = intakeNumber + 1
			)
		)
		
	)--end rollout
	
	createDialog rename_rollout 

)