AddCSLuaFile()
local SligWolf_Addons = SligWolf_Addons

if not SligWolf_Addons then
	return
end

if not SLIGWOLF_ADDON then
	SligWolf_Addons.AutoLoadAddon(function() end)
	return
end

local SligWolf_Addons = SligWolf_Addons

local CONSTANTS = SligWolf_Addons.Constants

local LIBThirdperson = SligWolf_Addons.Thirdperson
local LIBPosition = SligWolf_Addons.Position
local LIBEntities = SligWolf_Addons.Entities
local LIBVehicle = SligWolf_Addons.Vehicle
local LIBPhysics = SligWolf_Addons.Physics

function SLIGWOLF_ADDON:MakeVehicle(spawnname, plyOwner, parent, name)
	local ent = LIBVehicle.MakeVehicle(spawnname, plyOwner, parent, name, self.Addonname)
	if not ent then
		return nil
	end

	return ent
end

function SLIGWOLF_ADDON:MakeVehicleEnsured(spawnname, plyOwner, parent, name)
	local ent = self:MakeVehicle(spawnname, plyOwner, parent, name)
	if not IsValid(ent) then
		self:RemoveFaultyEntities(
			{parent},
			"Couldn't create '%s' vehicle entity named '%s' for %s. Removing entities.",
			tostring(spawnname),
			tostring(name or "<unnamed>"),
			parent
		)

		return
	end

	return ent
end

function SLIGWOLF_ADDON:GuessFallbackVehicleSpawnname(model)
	model = tostring(model or "")
	if model == "" then return nil end

	local registerdVehicleSpawnnamesByModel = self.RegisterdVehicleSpawnnamesByModel
	if not registerdVehicleSpawnnamesByModel then return nil end

	local vehicleSpawnname = registerdVehicleSpawnnamesByModel[model]
	if not vehicleSpawnname then return nil end

	return vehicleSpawnname
end

function SLIGWOLF_ADDON:ValidateVehicleTable(vehicle, vehicleTable)
	if not IsValid(vehicle) then return false end
	if not vehicle:IsVehicle() then return false end

	if not vehicleTable then return false end
	if not vehicleTable.Is_SLIGWOLF then return false end

	if vehicleTable.SLIGWOLF_Addonname ~= self.Addonname then
		-- Make sure this vehicle belongs to our addon
		return false
	end

	local tableName = vehicleTable.Name

	local vehicleClass = vehicle:GetClass() or ""
	local tableClass = vehicleTable.Class or ""

	if vehicleClass ~= tableClass then
		self:ErrorNoHalt(
			"Class missmatch in vehicle: %s (%s)\n  Expected: '%s'\n  Got: '%s'.\n  Ignoring vehicle for spawn setup.\n",
			tableName,
			vehicle,
			tableClass,
			vehicleClass
		)

		return false
	end

	if SERVER then
		local vehicleKeyValues = LIBEntities.GetKeyValues(vehicle)
		local tableKeyValues = vehicleTable.KeyValues or {}

		local vehicleScript = vehicleKeyValues.vehiclescript or ""
		local tableScript = tableKeyValues.vehiclescript or ""

		if vehicleScript ~= tableScript then
			self:ErrorNoHalt(
				"Vehicle script missmatch in vehicle: %s (%s)\n  Expected: '%s'\n  Got: '%s'.\n  Ignoring vehicle for spawn setup.\n",
				tableName,
				vehicle,
				tableScript,
				vehicleScript
			)

			return false
		end
	end

	local vehicleModel = vehicle:GetModel() or ""
	local tableModel = vehicleTable.Model or ""

	if vehicleModel ~= tableModel then
		self:ErrorNoHalt(
			"Model missmatch in vehicle: %s (%s)\n  Expected: '%s'\n  Got: '%s'.\n  Ignoring vehicle for spawn setup.\n",
			tableName,
			vehicle,
			tableModel,
			vehicleModel
		)

		return false
	end

	return true
end

function SLIGWOLF_ADDON:HandleVehicleSpawnAddVehicleType(vehicle, customSpawnProperties)
	local addonname = self.Addonname
	vehicle.sligwolf_addonname = addonname

	vehicle["sligwolf_is_" .. addonname] = true

	local vehicleType = tostring(customSpawnProperties.vehicleType or "")
	vehicleType = string.lower(vehicleType)

	if vehicleType ~= "" then
		customSpawnProperties.vehicleType = vehicleType

		vehicle["sligwolf_is_" .. addonname .. "_" .. vehicleType] = true
		vehicle["sligwolf_isType_" .. vehicleType] = true

		self:AddToEntList("vehicles_" .. vehicleType, vehicle)
	else
		vehicleType = nil
		customSpawnProperties.vehicleType = nil
	end

	vehicle.sligwolf_vehicle_type = vehicleType

	self:AddToEntList("vehicles", vehicle)
end

function SLIGWOLF_ADDON:HandleVehicleSpawnAddDenyToolReload(vehicle, customSpawnProperties)
	local denyToolReload = customSpawnProperties.denyToolReload
	if not denyToolReload then
		denyToolReload = {
			"weld",
			"nocollide",
			"remover",
		}
	end

	local denyToolReloadIndexed = {}

	for k, v in pairs(denyToolReload) do
		if isstring(k) then
			denyToolReloadIndexed[k] = tobool(v)
			continue
		end

		denyToolReloadIndexed[v] = true
	end

	vehicle.sligwolf_denyToolReload	= denyToolReloadIndexed
	customSpawnProperties.denyToolReload = denyToolReloadIndexed
end

function SLIGWOLF_ADDON:HandleVehicleSpawn(vehicle)
	if not IsValid(vehicle) then return end
	if not vehicle:IsVehicle() then return end

	local vehicleSpawnname = LIBVehicle.GetVehicleSpawnnameFromVehicle(vehicle)
	if not vehicleSpawnname then
		vehicleSpawnname = self:GuessFallbackVehicleSpawnname(vehicle:GetModel())
	end

	if not vehicleSpawnname then
		return
	end

	local vehicleTable = LIBVehicle.GetVehicleTableFromSpawnname(vehicleSpawnname)
	if not vehicleTable then
		return
	end

	if not self:ValidateVehicleTable(vehicle, vehicleTable) then
		-- Ensure the vehicle has the right properties and matches to the vehicle table
		return
	end

	-- Copy the vehicle table to make sure nothing can accidentally change the original
	vehicleTable = table.Copy(vehicleTable)

	local isSpawnedByEngine = LIBVehicle.IsSpawnedByEngine(vehicle)

	local keyValues = vehicleTable.KeyValues or {}
	local class = vehicleTable.Class
	local members = vehicleTable.Members
	local customSpawnProperties = vehicleTable.SLIGWOLF_Custom or {}

	local entTable = vehicle:SligWolf_GetTable()

	vehicle.sligwolf_entity = true
	vehicle.sligwolf_vehicle = true
	vehicle.sligwolf_headVehicle = true

	self:HandleVehicleSpawnAddVehicleType(vehicle, customSpawnProperties)
	self:HandleVehicleSpawnAddDenyToolReload(vehicle, customSpawnProperties)

	LIBThirdperson.SetThirdpersonParameters(vehicle, customSpawnProperties.thirdperson)

	local spawnOffset = customSpawnProperties.spawnOffset
	local spawnOffsetDupe = customSpawnProperties.spawnOffsetDupe or customSpawnProperties.spawnOffset

	LIBPhysics.InitializeAsPhysEntity(vehicle)

	if isSpawnedByEngine then
		-- We must not change the vehicle script after spawn
		keyValues.vehiclescript = nil

		LIBVehicle.SetupVehicleKeyValues(vehicle, keyValues)
	end

	vehicle.VehicleName = vehicleSpawnname
	vehicle.VehicleTable = vehicleTable

	entTable.customSpawnProperties = customSpawnProperties

	if isSpawnedByEngine then
		if vehicle.SetVehicleClass and SERVER then
			vehicle:SetVehicleClass(vehicleSpawnname)
		end

		vehicle.ClassOverride = class

		if members then
			table.Merge(vehicle, members)

			if SERVER then
				duplicator.StoreEntityModifier(vehicle, "VehicleMemDupe", members)
			end
		end
	end

	LIBEntities.EnableMotion(vehicle, false)

	self:HandleSpawnFinishedEvent(vehicle)

	local spawnVehicle = function(thisVehicle)
		local vat = self:GetEntityTable(thisVehicle)

		self:CallAddonFunctionWithErrorNoHalt(
			"SpawnVehicle",
			entTable.spawnerPlayer,
			thisVehicle,
			vat,
			customSpawnProperties
		)
	end

	local callsback = false
	local isDupe = entTable.isDuped

	if SERVER and not isSpawnedByEngine then
		local pos = vehicle:GetPos()
		local ang = vehicle:GetAngles()

		local newpos = nil
		local newang = nil

		if not isDupe and spawnOffset then
			newpos, newang = LocalToWorld(spawnOffset.pos or CONSTANTS.vecZero, spawnOffset.ang or CONSTANTS.angZero, pos, ang)
		elseif isDupe and spawnOffsetDupe then
			newpos, newang = LocalToWorld(spawnOffsetDupe.pos or CONSTANTS.vecZero, spawnOffsetDupe.ang or CONSTANTS.angZero, pos, ang)
		end

		if newpos and newang then
			callsback = LIBPosition.SetPosAng(vehicle, newpos, newang, spawnVehicle)
		end
	end

	if not callsback then
		spawnVehicle(vehicle)
	end
end

return true