eastern-flames/eastern flames/scripts/clampneg/clampneg.gml

function clampneg(val) {
	if val < 0 return -1
	else if val > 0 return 1
	else return 0
}