function GetSCurve(r,f)local a=math.max(CurveS(r)/(PeakCurveS/HP_S),0)*100 return a,((((a*(EQ/r))*_Tune.Ratios[f+2])*fFD)*hpScaling)*1000 end

function GetSCurve(x,gear)
	local hp=(math.max(CurveS(x)/(PeakCurveS/HP_S),0))*100
	return hp,((hp*(EQ/x))*_Tune.Ratios[gear+2]*fFD*hpScaling)*1000
end	

