Capping the resource removing events.

[TroelsPoul]

In the pre-revolution times I was anoyed at the machine-tools removing event preventing me from building the machine-tools factory... Now I decided to figure out how to remedy it, but can it be made more elegant?

		command = { type = resource which = cattle value = 1 } 		# Correcting for the minimum-change of 1 unit.
		command = { type = resource_perc which = cattle value = -67 } 	# -(1-Removed)
		command = { type = resource which = cattle value = 99965 } 	#99999-Max*Removed-1
		command = { type = resource which = cattle value = -99964.99 } 	#To prevent rounding errors
		command = { type = resource_perc which = cattle value = 67 } 	# (1-Removed)
		command = { type = resource which = cattle value = -1 }

This removes 33% of the cattle above 100...