local F=_Tune.FinalDrive*_Tune.FDMult local x=(F*30)/math.pi local k=(workspace.Gravity*_Tune.InclineComp)/32.2 local A=(wDia*math.pi)/60 local R=CFrame.Angles(math.pi/2,-math.pi/2,0)local v=CFrame.Angles(0,math.pi,0)local m=.70710678118655 local M=_Tune.Horsepower/100 local q=_Tune.PeakRPM/1000 local B=_Tune.PeakSharpness local p=_Tune.CurveMult function FGC(F)F=F/1000 return(-(F-q)^2*math.min(M/q^2,p^(q/M))+M)*(F-F^B/(B*q)^(B-1))end local r=FGC(_Tune.PeakRPM)function GetCurve(x,k)local A=math.max((FGC(x)*_Tune.Horsepower)/r,0)return A,(((A*(_Tune.EqPoint/x))*_Tune.Ratios[k+2])*F)*hpScaling end local O=true local P={}local b=100 if O then for F,x in pairs(_Tune.Ratios)do local k={}for x=math.floor(_Tune.IdleRPM/b),math.ceil((_Tune.PeakRPM+100)/b),1 do local A={}A.Horsepower,A.Torque=GetCurve(x*b,F-2)hp1,tq1=GetCurve((x+1)*b,F-2)A.HpSlope=(hp1-A.Horsepower)/(b/1000)A.TqSlope=(tq1-A.Torque)/(b/1000)k[x]=A end table.insert(P,k)end end function RPM()if _CGear==0 then _ClutchOn=false end local F=_Tune.IdleRPM if not _IsOn then F=0 _CGear=0 _ClutchOn=false _GThrot=_Tune.IdleThrottle/100 end local k=0 for F,x in pairs(Drive)do if x.RotVelocity.Magnitude>k then k=x.RotVelocity.Magnitude end end if _ClutchOn then local A=math.max(math.min((k*_Tune.Ratios[_CGear+2])*x,_Tune.PeakRPM+100),F)local R=math.min(math.abs(A-_RPM)/_Tune.ClutchTol,.9)_RPM=_RPM*R+A*(1-R)else if _GThrot-_Tune.IdleThrottle/100>0 then if _RPM>_Tune.PeakRPM then _RPM=_RPM-_Tune.RevBounce*2 else _RPM=math.min(_RPM+_Tune.RevAccel*_GThrot,_Tune.PeakRPM+100)end else _RPM=math.max(_RPM-_Tune.RevDecay,F)end end _spLimit=(_Tune.PeakRPM+100)/(x*_Tune.Ratios[_CGear+2])if _RPM>_Tune.PeakRPM then if _CGear<#_Tune.Ratios-2 then _RPM=_RPM-_Tune.RevBounce else _RPM=_RPM-_Tune.RevBounce*.5 end end end function Engine()local M=0 for F,x in pairs(Drive)do if x.RotVelocity.Magnitude>M then M=x.RotVelocity.Magnitude end end if _ClutchOn then if O then local F=P[_CGear+2][math.floor(math.min(_Tune.PeakRPM,math.max(_Tune.IdleRPM,_RPM))/b)]_HP=F.Horsepower+(F.HpSlope*(_RPM-math.floor(_RPM/b)))/1000 _OutTorque=F.Torque+(F.TqSlope*(_RPM-math.floor(_RPM/b)))/1000 else _HP,_OutTorque=GetCurve(_RPM,_CGear)end local F=car.DriveSeat.CFrame.lookVector.y*k if _CGear==-1 then F=-F end _OutTorque=_OutTorque*math.max(1,1+F)else _HP,_OutTorque=0,0 end if _TMode=="\065\117\116\111"and _IsOn then _ClutchOn=true if _CGear==0 then _CGear=1 end if _CGear>=1 then if _CGear==1 and(_GBrake>0 and car.DriveSeat.Velocity.Magnitude<20)then _CGear=-1 else if _Tune.AutoShiftMode=="\082\080\077"then if _RPM>_Tune.PeakRPM+_Tune.AutoUpThresh then _CGear=math.min(_CGear+1,#_Tune.Ratios-2)elseif math.max(math.min((M*_Tune.Ratios[_CGear+1])*x,_Tune.PeakRPM+100),_Tune.IdleRPM)<_Tune.PeakRPM-_Tune.AutoDownThresh then _CGear=math.max(_CGear-1,1)end else if car.DriveSeat.Velocity.Magnitude>math.ceil(((A*(_Tune.PeakRPM+_Tune.AutoUpThresh))/_Tune.Ratios[_CGear+2])/F)then _CGear=math.min(_CGear+1,#_Tune.Ratios-2)elseif car.DriveSeat.Velocity.Magnitude<math.ceil(((A*(_Tune.PeakRPM-_Tune.AutoDownThresh))/_Tune.Ratios[_CGear+1])/F)then _CGear=math.max(_CGear-1,1)end end end else if _GThrot-_Tune.IdleThrottle/100>0 and car.DriveSeat.Velocity.Magnitude<20 then _CGear=1 end end end local q=0 local B=0 local p=0 local r=0 for F,x in pairs(car.Wheels:GetChildren())do if x.Name=="\070\076"or x.Name=="\070\082"or x.Name=="\070"then q=q+x.RotVelocity.Magnitude B=B+1 elseif x.Name=="\082\076"or x.Name=="\082\082"or x.Name=="\082"then p=p+x.RotVelocity.Magnitude r=r+1 end end q=q/B p=p/r local X=(q+p)/2 for F,x in pairs(car.Wheels:GetChildren())do local k=(CFrame.new(x.Position-(x.Arm.CFrame*R).lookVector,x.Position)*v).lookVector local A=1 local M=1 if x.Name=="\070\076"or x.Name=="\082\076"then A=-1 end if _Tune.Config=="\065\087\068"then _OutTorque=_OutTorque*m end if x.Name=="\070\076"or x.Name=="\070\082"then M=math.max(0,math.min(1,1+(((x.RotVelocity.Magnitude-q)/q)/(math.max(_Tune.FDiffSlipThres,1)/100))*((_Tune.FDiffLockThres-50)/50)))if _Tune.Config=="\065\087\068"then M=math.max(0,math.min(1,M*(1+(((q-X)/X)/(math.max(_Tune.CDiffSlipThres,1)/100))*((_Tune.CDiffLockThres-50)/50))))end elseif x.Name=="\082\076"or x.Name=="\082\082"then M=math.max(0,math.min(1,1+(((x.RotVelocity.Magnitude-p)/p)/(math.max(_Tune.RDiffSlipThres,1)/100))*((_Tune.RDiffLockThres-50)/50)))if _Tune.Config=="\065\087\068"then M=math.max(0,math.min(1,M*(1+(((p-X)/X)/(math.max(_Tune.CDiffSlipThres,1)/100))*((_Tune.CDiffLockThres-50)/50))))end end _TCSActive=false _ABSActive=false if _PBrake and(_Tune.Config~="\070\087\068"and((x.Name=="\070\076"or x.Name=="\070\082")and car.DriveSeat.Velocity.Magnitude<20 or(x.Name=="\082\082"or x.Name=="\082\076")and car.DriveSeat.Velocity.Magnitude>=20)or _Tune.Config=="\070\087\068"and(x.Name=="\082\082"or x.Name=="\082\076"))then x["\035\065\086"].maxTorque=Vector3.new(math.abs(k.x),math.abs(k.y),math.abs(k.z))*PBrakeForce x["\035\065\086"].angularvelocity=Vector3.new()else if(_TMode=="\077\097\110\117\097\108"or _TMode=="\083\101\109\105")and _GBrake==0 or _TMode=="\065\117\116\111"and(_CGear>-1 and _GBrake==0 or _CGear==-1 and _GThrot-_Tune.IdleThrottle/100==0)then local F=false for k,A in pairs(Drive)do if A==x then F=true end end if F then local F=1 if not script.Parent.IsOn.Value then F=0 end local R=_GThrot if _TMode=="\065\117\116\111"and _CGear==-1 then R=_GBrake end local v=1 if _TCS then v=1-math.min(math.max(0,math.abs(x.RotVelocity.Magnitude*(x.Size.x/2)-x.Velocity.Magnitude)-_Tune.TCSThreshold)/_Tune.TCSGradient,1)*(1-_Tune.TCSLimit/100)end if v<1 then _TCSActive=true end local m=1 if _CGear==-1 then m=-1 end x["\035\065\086"].maxTorque=(((((Vector3.new(math.abs(k.x),math.abs(k.y),math.abs(k.z))*_OutTorque)*(1+(x.RotVelocity.Magnitude/60)^1.15))*R)*v)*M)*F x["\035\065\086"].angularvelocity=((k*A)*_spLimit)*m else x["\035\065\086"].maxTorque=Vector3.new()x["\035\065\086"].angularvelocity=Vector3.new()end else local F=_GBrake if _TMode=="\065\117\116\111"and _CGear==-1 then F=_GThrot end local A=1 if _ABS and math.abs(x.RotVelocity.Magnitude*(x.Size.x/2)-x.Velocity.Magnitude)-_Tune.ABSThreshold>0 then A=0 end if A<1 then _ABSActive=true end if x.Name=="\070\076"or x.Name=="\070\082"or x.Name=="\070"then x["\035\065\086"].maxTorque=((Vector3.new(math.abs(k.x),math.abs(k.y),math.abs(k.z))*FBrakeForce)*F)*A else x["\035\065\086"].maxTorque=((Vector3.new(math.abs(k.x),math.abs(k.y),math.abs(k.z))*RBrakeForce)*F)*A end x["\035\065\086"].angularvelocity=Vector3.new()end end end end


	local fFD = _Tune.FinalDrive*_Tune.FDMult
	local fFDr = fFD*30/math.pi
	local cGrav = workspace.Gravity*_Tune.InclineComp/32.2
	local wDRatio = wDia*math.pi/60
	local cfWRot = CFrame.Angles(math.pi/2,-math.pi/2,0)
	local cfYRot = CFrame.Angles(0,math.pi,0)
	local rtTwo = (2^.5)/2

	--Horsepower Curve
	local fgc_h=_Tune.Horsepower/100
	local fgc_n=_Tune.PeakRPM/1000
	local fgc_a=_Tune.PeakSharpness
	local fgc_c=_Tune.CurveMult
	
	function FGC(x)
		x=x/1000
		return (((-(x-fgc_n)^2)*math.min(fgc_h/(fgc_n^2),fgc_c^(fgc_n/fgc_h)))+fgc_h)*(x-((x^fgc_a)/((fgc_a*fgc_n)^(fgc_a-1))))
	end
	local PeakFGC = FGC(_Tune.PeakRPM)
	
	--Plot Current Horsepower
	function GetCurve(x,gear)
		local hp=math.max((FGC(x)*_Tune.Horsepower)/PeakFGC,0)
		return hp,hp*(_Tune.EqPoint/x)*_Tune.Ratios[gear+2]*fFD*hpScaling
	end
	
	--Output Cache
	local CacheTorque = true
	local HPCache = {}
	local HPInc = 100
	
	if CacheTorque then
		for gear,ratio in pairs(_Tune.Ratios) do
			local hpPlot = {}
			for rpm = math.floor(_Tune.IdleRPM/HPInc),math.ceil((_Tune.PeakRPM+100)/HPInc) do
				local tqPlot = {}
				tqPlot.Horsepower,tqPlot.Torque = GetCurve(rpm*HPInc,gear-2)
				hp1,tq1 = GetCurve((rpm+1)*HPInc,gear-2)
				tqPlot.HpSlope = (hp1 - tqPlot.Horsepower)/(HPInc/1000)
				tqPlot.TqSlope = (tq1 - tqPlot.Torque)/(HPInc/1000)
				hpPlot[rpm] = tqPlot
			end
			table.insert(HPCache,hpPlot)
		end
	end
	
	--Powertrain
	
	--Update RPM
	function RPM()
		--Neutral Gear
		if _CGear==0 then _ClutchOn = false end
	
		--Car Is Off
		local revMin = _Tune.IdleRPM
		if not _IsOn then 
			revMin = 0 
			_CGear = 0
			_ClutchOn = false
			_GThrot = _Tune.IdleThrottle/100
		end
		
		--Determine RPM
		local maxSpin=0
		for i,v in pairs(Drive) do
			if v.RotVelocity.Magnitude>maxSpin then maxSpin = v.RotVelocity.Magnitude end
		end
		if _ClutchOn then
			local aRPM = math.max(math.min(maxSpin*_Tune.Ratios[_CGear+2]*fFDr,_Tune.PeakRPM+100),revMin)
			local clutchP = math.min(math.abs(aRPM-_RPM)/_Tune.ClutchTol,.9)
			_RPM = _RPM*clutchP  +  aRPM*(1-clutchP)
		else
			if _GThrot-(_Tune.IdleThrottle/100)>0 then
				if _RPM>_Tune.PeakRPM then
					_RPM = _RPM-_Tune.RevBounce*2
				else
					_RPM = math.min(_RPM+_Tune.RevAccel*_GThrot,_Tune.PeakRPM+100)
				end
			else
				_RPM = math.max(_RPM-_Tune.RevDecay,revMin)
			end
		end
		
		--Rev Limiter
		_spLimit = (_Tune.PeakRPM+100)/(fFDr*_Tune.Ratios[_CGear+2])
		if _RPM>_Tune.PeakRPM then 
			if _CGear<#_Tune.Ratios-2 then
				_RPM = _RPM-_Tune.RevBounce
			else
				_RPM = _RPM-_Tune.RevBounce*.5
			end
		end
	end
	
	--Apply Power
	function Engine()
		--Get Torque
		local maxSpin=0
		for i,v in pairs(Drive) do
			if v.RotVelocity.Magnitude>maxSpin then maxSpin = v.RotVelocity.Magnitude end
		end
		if _ClutchOn then
			if CacheTorque then
				local cTq = HPCache[_CGear+2][math.floor(math.min(_Tune.PeakRPM,math.max(_Tune.IdleRPM,_RPM))/HPInc)]
				_HP = cTq.Horsepower+(cTq.HpSlope*(_RPM-math.floor(_RPM/HPInc))/1000)
				_OutTorque = cTq.Torque+(cTq.TqSlope*(_RPM-math.floor(_RPM/HPInc))/1000)
			else
				_HP,_OutTorque = GetCurve(_RPM,_CGear)
				
			end
			local iComp =(car.DriveSeat.CFrame.lookVector.y)*cGrav
			if _CGear==-1 then iComp=-iComp end
			_OutTorque = _OutTorque*math.max(1,(1+iComp))
		else
			_HP,_OutTorque = 0,0
		end
		
		--Automatic Transmission
		if _TMode == "Auto" and _IsOn then
			_ClutchOn = true
			if _CGear == 0 then _CGear = 1 end
			if _CGear >= 1 then
				if _CGear==1 and _GBrake > 0  and car.DriveSeat.Velocity.Magnitude < 20 then
					_CGear = -1
				else
					if _Tune.AutoShiftMode == "RPM" then
						if _RPM>(_Tune.PeakRPM+_Tune.AutoUpThresh) then
							_CGear=math.min(_CGear+1,#_Tune.Ratios-2) 
						elseif math.max(math.min(maxSpin*_Tune.Ratios[_CGear+1]*fFDr,_Tune.PeakRPM+100),_Tune.IdleRPM)<(_Tune.PeakRPM-_Tune.AutoDownThresh) then
							_CGear=math.max(_CGear-1,1)
						end
					else
						if car.DriveSeat.Velocity.Magnitude > math.ceil(wDRatio*(_Tune.PeakRPM+_Tune.AutoUpThresh)/_Tune.Ratios[_CGear+2]/fFD) then
							_CGear=math.min(_CGear+1,#_Tune.Ratios-2)
						elseif car.DriveSeat.Velocity.Magnitude < math.ceil(wDRatio*(_Tune.PeakRPM-_Tune.AutoDownThresh)/_Tune.Ratios[_CGear+1]/fFD) then
							_CGear=math.max(_CGear-1,1)
						end
					end
				end
			else
				if _GThrot-(_Tune.IdleThrottle/100) > 0 and car.DriveSeat.Velocity.Magnitude < 20 then
					_CGear = 1
				end
			end
		end 
		
		--Average Rotational Speed Calculation
		local fwspeed=0
		local fwcount=0
		local rwspeed=0
		local rwcount=0
		
		for i,v in pairs(car.Wheels:GetChildren()) do
			if v.Name=="FL" or v.Name=="FR" or v.Name == "F" then
				fwspeed=fwspeed+v.RotVelocity.Magnitude
				fwcount=fwcount+1
			elseif v.Name=="RL" or v.Name=="RR" or v.Name == "R" then
				rwspeed=rwspeed+v.RotVelocity.Magnitude
				rwcount=rwcount+1
			end
		end
		fwspeed=fwspeed/fwcount
		rwspeed=rwspeed/rwcount	
		local cwspeed=(fwspeed+rwspeed)/2
		
		--Update Wheels
		for i,v in pairs(car.Wheels:GetChildren()) do
			--Reference Wheel Orientation
			local Ref=(CFrame.new(v.Position-((v.Arm.CFrame*cfWRot).lookVector),v.Position)*cfYRot).lookVector
			local aRef=1
			local diffMult=1
			if v.Name=="FL" or v.Name=="RL" then aRef=-1 end
			
			--AWD Torque Scaling
			if _Tune.Config == "AWD" then _OutTorque = _OutTorque*rtTwo end
			
			--Differential/Torque-Vectoring
			if v.Name=="FL" or v.Name=="FR" then
				diffMult=math.max(0,math.min(1,1+((((v.RotVelocity.Magnitude-fwspeed)/fwspeed)/(math.max(_Tune.FDiffSlipThres,1)/100))*((_Tune.FDiffLockThres-50)/50))))
				if _Tune.Config == "AWD" then
					diffMult=math.max(0,math.min(1,diffMult*(1+((((fwspeed-cwspeed)/cwspeed)/(math.max(_Tune.CDiffSlipThres,1)/100))*((_Tune.CDiffLockThres-50)/50)))))
				end
			elseif v.Name=="RL" or v.Name=="RR" then
				diffMult=math.max(0,math.min(1,1+((((v.RotVelocity.Magnitude-rwspeed)/rwspeed)/(math.max(_Tune.RDiffSlipThres,1)/100))*((_Tune.RDiffLockThres-50)/50))))
				if _Tune.Config == "AWD" then
					diffMult=math.max(0,math.min(1,diffMult*(1+((((rwspeed-cwspeed)/cwspeed)/(math.max(_Tune.CDiffSlipThres,1)/100))*((_Tune.CDiffLockThres-50)/50)))))
				end
			end
			
			_TCSActive = false
			_ABSActive = false
			--Output
			if _PBrake and ((_Tune.Config ~= "FWD" and (((v.Name=="FL" or v.Name=="FR") and car.DriveSeat.Velocity.Magnitude<20) or ((v.Name=="RR" or v.Name=="RL") and car.DriveSeat.Velocity.Magnitude>=20))) or (_Tune.Config == "FWD" and (v.Name=="RR" or v.Name=="RL"))) then
				--PBrake
				v["#AV"].maxTorque=Vector3.new(math.abs(Ref.x),math.abs(Ref.y),math.abs(Ref.z))*PBrakeForce
				v["#AV"].angularvelocity=Vector3.new()
			else
				--Apply Power
				if ((_TMode == "Manual" or _TMode == "Semi") and _GBrake==0) or (_TMode == "Auto" and ((_CGear>-1 and _GBrake==0 ) or (_CGear==-1 and _GThrot-(_Tune.IdleThrottle/100)==0 )))then
					local driven = false
					for _,a in pairs(Drive) do if a==v then driven = true end end
					if driven then
						local on=1
						if not script.Parent.IsOn.Value then on=0 end
						local throt = _GThrot
						if _TMode == "Auto" and _CGear==-1 then throt = _GBrake end
						
						--Apply TCS
						local tqTCS = 1
						if _TCS then
							tqTCS = 1-(math.min(math.max(0,math.abs(v.RotVelocity.Magnitude*(v.Size.x/2) - v.Velocity.Magnitude)-_Tune.TCSThreshold)/_Tune.TCSGradient,1)*(1-(_Tune.TCSLimit/100)))
						end
						if tqTCS < 1 then
							_TCSActive = true
						end
						
						--Update Forces
						local dir = 1
						if _CGear==-1 then dir = -1 end
						v["#AV"].maxTorque=Vector3.new(math.abs(Ref.x),math.abs(Ref.y),math.abs(Ref.z))*_OutTorque*(1+(v.RotVelocity.Magnitude/60)^1.15)*throt*tqTCS*diffMult*on
						v["#AV"].angularvelocity=Ref*aRef*_spLimit*dir
					else
						v["#AV"].maxTorque=Vector3.new()
						v["#AV"].angularvelocity=Vector3.new()
					end
					
				--Brakes
				else
					local brake = _GBrake
					if _TMode == "Auto" and _CGear==-1 then brake = _GThrot end
					
					--Apply ABS
					local tqABS = 1
					if _ABS and math.abs(v.RotVelocity.Magnitude*(v.Size.x/2) - v.Velocity.Magnitude)-_Tune.ABSThreshold>0 then
						tqABS = 0
					end
					if tqABS < 1 then
						_ABSActive = true
					end
					
					--Update Forces
					if v.Name=="FL" or v.Name=="FR" or v.Name=="F" then
						v["#AV"].maxTorque=Vector3.new(math.abs(Ref.x),math.abs(Ref.y),math.abs(Ref.z))*FBrakeForce*brake*tqABS
					else
						v["#AV"].maxTorque=Vector3.new(math.abs(Ref.x),math.abs(Ref.y),math.abs(Ref.z))*RBrakeForce*brake*tqABS
					end
					v["#AV"].angularvelocity=Vector3.new()
				end
			end
		end
	end


