ed

resources/[carscripts]/AdvancedParking/client/cl_utils.lua

@@ -0,0 +1,475 @@
+
+local math_min, math_max, math_floor = math.min, math.max, math.floor
+
+-- returns all tuning of a vehicle
+function GetVehicleTuning(vehicle)
+	-- main colors
+	local primaryColor, secondaryColor = GetVehicleColours(vehicle)
+	local pearlescentColor, wheelColor = GetVehicleExtraColours(vehicle)
+
+	-- custom colors
+	local customPrimaryColor, customSecondaryColor
+	if (GetIsVehiclePrimaryColourCustom(vehicle)) then
+		local r, g, b = GetVehicleCustomPrimaryColour(vehicle)
+		customPrimaryColor = { r, g, b }
+	end
+	if (GetIsVehicleSecondaryColourCustom(vehicle)) then
+		local r, g, b = GetVehicleCustomSecondaryColour(vehicle)
+		customSecondaryColor = { r, g, b }
+	end
+
+	-- tire smoke color
+	r, g, b = GetVehicleTyreSmokeColor(vehicle)
+	local tireSmokeColor = { r, g, b }
+
+	-- neon lights color
+	local r, g, b = GetVehicleNeonLightsColour(vehicle)
+	local neonLightsColor = { r, g, b }
+	local enabledNeonLights = {
+		IsVehicleNeonLightEnabled(vehicle, 0),
+		IsVehicleNeonLightEnabled(vehicle, 1),
+		IsVehicleNeonLightEnabled(vehicle, 2),
+		IsVehicleNeonLightEnabled(vehicle, 3),
+	}
+
+	return {
+		-- 1
+		GetVehicleNumberPlateText(vehicle),
+
+		-- 2
+		GetVehicleMods(vehicle),
+
+		-- 3
+		primaryColor,
+		-- 4
+		secondaryColor,
+		-- 5
+		pearlescentColor,
+		-- 6
+		wheelColor,
+		-- 7
+		customPrimaryColor,
+		-- 8
+		customSecondaryColor,
+		-- 9
+		GetVehicleInteriorColor(vehicle),
+		-- 10
+		GetVehicleDashboardColor(vehicle),
+		-- 11
+		tireSmokeColor,
+
+		-- 12
+		GetVehicleXenonLightsColour(vehicle),
+		-- 13
+		neonLightsColor,
+		-- 14
+		enabledNeonLights,
+
+		-- 15
+		GetVehicleExtras(vehicle),
+
+		-- 16
+		GetVehicleWheelType(vehicle),
+		-- 17
+		GetVehicleModVariation(vehicle, 23),
+		-- 18
+		GetVehicleModVariation(vehicle, 24),
+		-- 19
+		not GetVehicleTyresCanBurst(vehicle),
+		-- 20
+		(GetGameBuildNumber() >= 2372) and GetDriftTyresEnabled(vehicle),
+
+		-- 21
+		GetVehicleNumberPlateTextIndex(vehicle),
+
+		-- 22
+		GetVehicleWindowTint(vehicle),
+
+		-- 23
+		GetVehicleLivery(vehicle),
+
+		-- 24
+		GetVehicleRoofLivery(vehicle)
+	}
+end
+
+-- apply all vehicle tuning
+function SetVehicleTuning(vehicle, tuning)
+	SetVehicleModKit(vehicle, 0)
+
+	-- 16 wheelType
+	SetVehicleWheelType(vehicle, tuning[16])
+
+	-- 2 mods
+	SetVehicleMods(vehicle, tuning[2], tuning[17], tuning[18])
+
+	-- 3-4 primary/secondaryColor
+	SetVehicleColours(vehicle, tuning[3], tuning[4])
+	-- 5-6 pearlescent/wheelColor
+	SetVehicleExtraColours(vehicle, tuning[5], tuning[6])
+	-- 7 customPrimaryColor
+	if (tuning[7]) then
+		SetVehicleCustomPrimaryColour(vehicle, tuning[7][1], tuning[7][2], tuning[7][3])
+	end
+	-- 8 customSecondaryColor
+	if (tuning[8]) then
+		SetVehicleCustomSecondaryColour(vehicle, tuning[8][1], tuning[8][2], tuning[8][3])
+	end
+	-- 9 interiorColor
+	SetVehicleInteriorColor(vehicle, tuning[9])
+	-- 10 dashboardColor
+	SetVehicleDashboardColor(vehicle, tuning[10])
+	-- 11 tireSmokeColor
+	SetVehicleTyreSmokeColor(vehicle, tuning[11][1], tuning[11][2], tuning[11][3])
+
+	-- 12 xenonLightsColor
+	SetVehicleXenonLightsColour(vehicle, tuning[12])
+	-- 13 neonLightsColor
+	SetVehicleNeonLightsColour(vehicle, tuning[13][1], tuning[13][2], tuning[13][3])
+	-- 14 enabledNeonLights
+	for i = 0, 3, 1 do
+		SetVehicleNeonLightEnabled(vehicle, i, tuning[14][i + 1])
+	end
+
+	-- 15 extras
+	SetVehicleExtras(vehicle, tuning[15])
+
+	-- 19 bulletproofTires
+	SetVehicleTyresCanBurst(vehicle, not tuning[19])
+	-- 20 driftTires
+	if (GetGameBuildNumber() >= 2372) then
+		SetDriftTyresEnabled(vehicle, tuning[20])
+	end
+
+	-- 1 numberPlateText
+	SetVehicleNumberPlateText(vehicle, tuning[1])
+	-- 21 numberPlateTextIndex
+	SetVehicleNumberPlateTextIndex(vehicle, tuning[21])
+	-- 22 windowTint
+	SetVehicleWindowTint(vehicle, tuning[22])
+	-- 23 livery
+	SetVehicleLivery(vehicle, tuning[23])
+	-- 24 roofLivery
+	SetVehicleRoofLivery(vehicle, tuning[24])
+end
+
+-- returns the status values of a vehicle
+function GetVehicleStatus(vehicle)
+	return {
+		-- 1 entity health
+		math_max(math_min(GetEntityHealth(vehicle), 1000), 0),
+		-- 2 body health
+		math_floor(math_max(math_min(GetVehicleBodyHealth(vehicle), 1000.0), 0.0) * 10.0) / 10.0,
+		-- 3 engine health
+		math_floor(math_max(math_min(GetVehicleEngineHealth(vehicle), 1000.0), -4000.0) * 10.0) / 10.0,
+		-- 4 petrol tank health
+		math_floor(math_max(math_min(GetVehiclePetrolTankHealth(vehicle), 1000.0), -1000.0) * 10.0) / 10.0,
+
+		-- 5 dirt level
+		math_floor(GetVehicleDirtLevel(vehicle) * 10.0) / 10.0,
+		-- 6 fuel level
+		math_floor(GetFuelLevel(vehicle) * 10.0) / 10.0,
+
+		-- 7 lock status
+		GetVehicleDoorLockStatus(vehicle),
+
+		-- 8 tire states
+		GetVehicleTireStates(vehicle),
+		-- 9 door states
+		GetVehicleDoorStates(vehicle),
+		-- 10 window states
+		GetVehicleWindowStates(vehicle),
+	}
+end
+-- apply all vehicle status values
+function SetVehicleStatus(vehicle, status)
+	-- 1 entity health
+	SetEntityHealth(vehicle, math_floor(status[1]))
+	-- 2 body health
+	SetVehicleBodyHealth(vehicle, status[2] * 1.0)
+	-- 3 engine health
+	SetVehicleEngineHealth(vehicle, status[3] * 1.0)
+	-- 4 petrol tank health
+	SetVehiclePetrolTankHealth(vehicle, status[4] * 1.0)
+
+	-- 5 dirt level
+	SetVehicleDirtLevel(vehicle, status[5] * 1.0)
+	-- 6 fuel level
+	SetFuelLevel(vehicle, status[6] * 1.0)
+
+	-- 7 lock status
+	SetVehicleDoorsLocked(vehicle, status[7])
+
+	-- 8 tire states
+	SetVehicleTireStates(vehicle, status[8])
+	-- 9 door states
+	SetVehicleDoorStates(vehicle, status[9])
+	-- 10 window states
+	SetVehicleWindowStates(vehicle, status[10])
+end
+
+-- get additional values
+local function GetConvertibleRoofIsOpen(vehicle)
+	if (not IsVehicleAConvertible(vehicle)) then return false end
+
+	local state = GetConvertibleRoofState(vehicle)
+	return state == 1 or state == 2 or state == 6
+end
+local function GetLandingGearIsUp(vehicle)
+	if (not DoesVehicleHaveLandingGear(vehicle)) then return false end
+	
+	local state = GetLandingGearState(vehicle)
+	return state == 1 or state == 4
+end
+local function GetVtolMode(vehicle, model)
+	if (not IsThisModelAPlane(model)) then return false end
+
+	return GetVehicleFlightNozzlePosition(vehicle)
+end
+local function GetStubWingsAreDeployed(vehicle, model)
+	if (model ~= `akula` and model ~= `annihilator`) then return false end
+
+	return AreHeliStubWingsDeployed(vehicle)
+end
+local function GetBoatAnchorState(vehicle, model)
+	if (not IsThisModelABoat(model)) then return false end
+
+	return IsBoatAnchored(vehicle)
+end
+
+function GetVehicleExtraValues(vehicle)
+	local model = GetEntityModel(vehicle)
+
+	return {
+		engineState		= GetIsVehicleEngineRunning(vehicle) or nil,
+		roofState		= GetConvertibleRoofIsOpen(vehicle) or nil,
+		--outriggers		= AreOutriggerLegsDeployed(vehicle) or nil, -- no setter counterpart
+		landingGearUp	= GetLandingGearIsUp(vehicle) or nil,
+		vtolMode		= GetVtolMode(vehicle, model) or nil,
+		stubWings		= GetStubWingsAreDeployed(vehicle, model) or nil,
+		boatAnchor		= GetBoatAnchorState(vehicle, model) or nil,
+		-- hydraulics?
+	}
+end
+-- set additional values
+function SetVehicleExtraValues(vehicle, values)
+	if (values.engineState) then
+		SetVehicleEngineOn(vehicle, true, true, false)
+	end
+
+	if (values.roofState) then
+		LowerConvertibleRoof(vehicle, true)
+	end
+
+	if (values.landingGearUp) then
+		ControlLandingGear(vehicle, 3)
+	end
+
+	if (values.vtolMode) then
+		SetVehicleFlightNozzlePositionImmediate(vehicle, values.vtolMode)
+	end
+
+	if (values.stubWings) then
+		SetDeployHeliStubWings(vehicle, true, false)
+	end
+
+	if (values.boatAnchor) then
+		SetBoatRemainsAnchoredWhilePlayerIsDriver(vehicle, true)
+		SetBoatAnchor(vehicle, true)
+	end
+
+	-- hydraulics?
+end
+
+
+-- returns all non-stock vehicle mods
+function GetVehicleMods(vehicle)
+	local mods = {}
+
+	for i = 0, 49, 1 do
+		-- TODO check for 17, 19, 21 -- toggle or normal mods? -- currently not possible
+		if (i == 18 or i == 20 or i == 22) then
+			if (IsToggleModOn(vehicle, i)) then
+				mods[#mods + 1] = { 
+					-- 1 index
+					i, 
+					-- 2 isToggledOn
+					true 
+				}
+			end
+		else
+			local modIndex = GetVehicleMod(vehicle, i)
+			if (modIndex ~= -1) then
+				mods[#mods + 1] = { 
+					-- 1 index
+					i, 
+					-- 2 modIndex
+					modIndex 
+				}
+			end
+		end
+	end
+
+	return mods
+end
+-- apply all vehicle mods
+function SetVehicleMods(vehicle, mods, customFrontWheels, customRearWheels)
+	for i = 1, #mods do
+		local id = mods[i][1]
+
+		-- TODO check for 17, 19, 21 -- toggle or normal mods? -- currently not possible
+		if (id == 18 or id == 20 or id == 22) then
+			ToggleVehicleMod(vehicle, id, mods[i][2])
+		else
+			SetVehicleMod(vehicle, id, mods[i][2], (id == 24) and customRearWheels or customFrontWheels)
+		end
+	end
+end
+
+-- returns all vehicle extras
+function GetVehicleExtras(vehicle)
+	local extras = {}
+
+	for i = 0, 20 do
+		if (DoesExtraExist(vehicle, i)) then
+			if (IsVehicleExtraTurnedOn(vehicle, i)) then
+				extras[#extras + 1] = { 
+					-- 1 index
+					i, 
+					-- 2 isToggledOn
+					0 
+				}
+			else
+				extras[#extras + 1] = { 
+					-- 1 index
+					i, 
+					-- 2 isToggledOn
+					1 
+				}
+			end
+		end
+	end
+
+	return extras
+end
+-- apply all vehicle extras
+function SetVehicleExtras(vehicle, extras)
+	for i = 1, #extras do
+		SetVehicleExtra(vehicle, extras[i][1], extras[i][2])
+	end
+end
+
+-- returns all tire states
+function GetVehicleTireStates(vehicle)
+	local burstTires = {}
+
+	for i = 0, 5 do
+		if (IsVehicleTyreBurst(vehicle, i, true)) then
+			burstTires[#burstTires + 1] = { 
+				-- 1 index
+				i, 
+				-- 2 isBurst
+				true 
+			}
+		elseif (IsVehicleTyreBurst(vehicle, i, false)) then
+			burstTires[#burstTires + 1] = { 
+				-- 1 index
+				i, 
+				-- 2 isBurst
+				false 
+			}
+		end
+	end
+
+	return burstTires
+end
+-- apply all tire states
+function SetVehicleTireStates(vehicle, tireStates)
+	for i = 1, #tireStates do
+		SetVehicleTyreBurst(vehicle, tireStates[i][1], tireStates[i][2], 1000.0)
+	end
+end
+
+-- returns all door states
+function GetVehicleDoorStates(vehicle)
+	local doorStates = {}
+
+	for i = 0, 7 do
+		if (GetIsDoorValid(vehicle, i)) then
+			doorStates[#doorStates + 1] = {
+				-- 1 index
+				i,
+				-- 2 missing
+				IsVehicleDoorDamaged(vehicle, i),
+				-- 3 angle (unused, causes problems)
+				--GetVehicleDoorAngleRatio(vehicle, i)
+			}
+		end
+	end
+
+	return doorStates
+end
+-- apply all door states
+function SetVehicleDoorStates(vehicle, doorStates)
+	for i = 1, #doorStates do
+		if (doorStates[i][2]) then
+			SetVehicleDoorBroken(vehicle, doorStates[i][1], true)
+		--elseif (doorStates[i][3] > 0.0) then
+		--	SetVehicleDoorControl(vehicle, doorStates[i][1], 1000, doorStates[i][3])
+		end
+	end
+end
+
+-- returns all window states
+function GetVehicleWindowStates(vehicle)
+	if (AreAllVehicleWindowsIntact(vehicle)) then
+		return {}
+	end
+
+	local windowStates = {}
+
+	for i = 0, 13 do
+		if (not IsVehicleWindowIntact(vehicle, i)) then
+			windowStates[#windowStates + 1] = i
+		end
+	end
+
+	return windowStates
+end
+-- apply all window states
+function SetVehicleWindowStates(vehicle, windowStates)
+	for i = 1, #windowStates do
+		SmashVehicleWindow(vehicle, windowStates[i])
+	end
+end
+
+
+
+-- returns true if vehicle is blacklisted and should not be saved
+function IsVehicleBlacklisted(vehicle)
+	-- check class
+	local class = GetVehicleClass(vehicle)
+	for i = 1, #classesBlacklist do
+		if (class == classesBlacklist[i]) then
+			return true
+		end
+	end
+
+	-- check model
+	local modelHash = GetEntityModel(vehicle)
+	for i = 1, #vehiclesBlacklist do
+		if (modelHash == vehiclesBlacklist[i]) then
+			return true
+		end
+	end
+
+	-- check plate
+	local plate = GetVehicleNumberPlateText(vehicle)
+	for i = 1, #platesBlacklist do
+		if (plate:find(platesBlacklist[i]:upper())) then
+			return true
+		end
+	end
+
+	return false
+end