Scaling for idiots

Something like this should do:

Function Scale_Mesh(mesh,scale#)

	If scale < 0 Then
		ScaleEntity mesh,1.0/Abs(scale),1.0/Abs(scale),1.0/Abs(scale)
	Else
		ScaleEntity mesh,scale,scale,scale
	End If

End Function