DMS_Exile/@ExileServer/addons/a3_dms/scripts/fn_OnKilled.sqf

/*
	DMS_fnc_OnKilled
	Created by eraser1 and Defent
	Influenced by WAI

	Usage:
	[
		_killedUnit,
		_killer
	] call DMS_fnc_OnKilled;
	***Designed for use with the ArmA "MPKilled" EH. This function should not be explicitly called otherwise.***
*/
if (DMS_DEBUG) then
{
	(format ["OnKilled :: Logging AI death with parameters: %1",_this]) call DMS_fnc_DebugLog;
};

params
[
	"_unit",
	"_killer"
];
private _side 			= _unit getVariable ["DMS_AI_Side", "bandit"];
private _type 			= _unit getVariable ["DMS_AI_Type", "soldier"];
private _launcher 		= secondaryWeapon _unit;
private _launcherVar	= _unit getVariable ["DMS_AI_Launcher",""];
private _playerObj		= objNull;

_unit call ([missionNamespace getVariable [_unit getVariable ["DMS_AI_CustomOnKilledFnc",""],{}]] param [0,{},[{}]]);

// Some of the previously used functions work with non-local argument. Some don't. BIS is annoying
private _removeAll =
{
	{_this removeWeaponGlobal _x;} forEach (weapons _this);
	{_this unlinkItem _x;} forEach (assignedItems _this);
	{_this removeItem _x;} forEach (items _this);

	removeAllItemsWithMagazines 	_this;
	removeHeadgear 					_this;
	removeUniform 					_this;
	removeVest 						_this;
	removeBackpackGlobal 			_this;
};

moveOut _unit;

_unit removeAllEventHandlers "HandleDamage";
_unit enableSimulationGlobal true;

// Remove gear according to configs
if ((_unit getVariable ["DMS_clear_AI_body",DMS_clear_AI_body]) && {(random 100) <= (_unit getVariable ["DMS_clear_AI_body_chance",DMS_clear_AI_body_chance])}) then
{
	_unit call _removeAll;
};

if ((_unit getVariable ["DMS_ai_remove_launchers",DMS_ai_remove_launchers]) && {(_launcherVar != "") || {_launcher != ""}}) then
{
	// Because arma is stupid sometimes
	if (_launcher isEqualTo "") then
	{
		_launcher = _launcherVar;

		diag_log "sneaky launchers...";

		_unit spawn
		{
			sleep 0.5;

			{
				_holder = _x;
				{
					if (_x isKindOf ["LauncherCore", configFile >> "CfgWeapons"]) exitWith
					{
						deleteVehicle _holder;
						diag_log "gotcha";
					};
				} forEach (weaponCargo _holder);
			} forEach (nearestObjects [_this, ["GroundWeaponHolder","WeaponHolderSimulated"], 5]);
		};
	};

	_unit removeWeaponGlobal _launcher;

	{
		if (_x isKindOf ["CA_LauncherMagazine", configFile >> "CfgMagazines"]) then
		{
			_unit removeMagazineGlobal _x;
		};
	} forEach (magazines _unit);
};

if (_unit getVariable ["DMS_RemoveNVG",DMS_RemoveNVG]) then
{
	_unit unlinkItem "NVGoggles";
};

private _grp = group _unit;
private _grpUnits = (units _grp) - [_unit];
// Give the AI a new leader if the killed unit was the leader
if (!(_grpUnits isEqualTo []) && {(leader _grp) isEqualTo _unit}) then
{
	_grp selectLeader (selectRandom _grpUnits);
};

private _av = _unit getVariable ["DMS_AssignedVeh",objNull];
if (!isNull _av) then
{
	if!(dynamicSimulationEnabled _av)then
	{
		_av enableSimulationGlobal true;
	};

	// Determine whether or not the vehicle has any active crew remaining.
	private _memCount = {[(alive _x),false] select (_unit isEqualTo _x);} count (crew _av);


	// Destroy the vehicle and add it to cleanup if there are no active crew members of the vehicle.
	if (_memCount isEqualTo 0) then
	{
		/*
		This is some pretty funky code because this is about the fastest way to do the task.
		An "if-statement" inside another "if-statement" is almost as fast, but it isn't as slick ;)
		*/
		if
		(
			call
			([
				{	(random 100)<(_av getVariable ["DMS_DestructionChance",DMS_AI_destroyVehicleChance])	},
				{	DMS_AI_destroyStaticWeapon && {(random 100)<(_av getVariable ["DMS_DestructionChance",DMS_AI_destroyStaticWeapon_chance])}	}
			] select (_av isKindOf "StaticWeapon"))
		) then
		{
			_av setDamage 1;
			_av setVariable ["ExileDiedAt",time];

			[if (_av isKindOf "Air") then {30} else {5}, {_this enableSimulationGlobal false}, _av, false, false] call ExileServer_system_thread_addTask;


			if (DMS_DEBUG) then
			{
				(format["OnKilled :: Destroying used AI vehicle %1, and disabling simulation.",typeOf _av]) call DMS_fnc_DebugLog;
			};
		}
		else
		{
			if (local _av) then
			{
				_av lock 1;
			}
			else
			{
				[_av, 1] remoteExecCall ["lock", _av];
			};

			if!(dynamicSimulationEnabled _av)then
			{
				_av call ExileServer_system_simulationMonitor_addVehicle;
				_av enableSimulationGlobal true;
			};
			_av setVariable ["ExileMoney",0,true];
			_av setVariable ["ExileIsPersistent", false];
			_av addMPEventHandler ["MPKilled", { if (isServer) then {_this call ExileServer_object_vehicle_event_onMPKilled;};}];
			_av addEventHandler ["GetIn", {_this call ExileServer_object_vehicle_event_onGetIn}];

			if (!isNil "AVS_Version") then
			{
				_av call AVS_fnc_sanitizeVehicle;
			};

			if (DMS_DEBUG) then
			{
				(format["OnKilled :: Unlocking used AI vehicle (%1).",typeOf _av]) call DMS_fnc_DebugLog;
			};
		};
	}
	else
	{
		// Only check for this stuff for ground vehicles that have guns...
		if ((_av isKindOf "LandVehicle") && {(count (weapons _av))>0}) then
		{
			private _gunner = gunner _av;
			private _driver = driver _av;


			// The fact that I have to do this in the FUCKING ONKILLED EVENTHANDLER is a testament to why ArmA will make me die prematurely
			private _gunnerIsAlive = alive _gunner;
			private _driverIsAlive = alive _driver;

			if (_unit isEqualTo _gunner) then
			{
				_gunnerIsAlive = false;
			};
			if (_unit isEqualTo _driver) then
			{
				_driverIsAlive = false;
			};

			// If the gunner is dead but the driver is alive, then the driver becomes the gunner.
			// Helps with troll AI vehicles driving around aimlessly after the gunner is shot off. More realistic imo
			if (!_gunnerIsAlive && {_driverIsAlive}) then
			{
				[_driver,_av,_killer] spawn
				{
					params
					[
						"_driver",
						"_av",
						"_killer"
					];

					private _grp 		= group _driver;
					private _owner 		= groupOwner _grp;

					_grp setVariable ["DMS_LockLocality",true];

					// The AI has to be local in order for these commands to work, so I reset locality, just because it's really difficult to deal with otherwise
					if !(_owner in [2,0]) then
					{
						diag_log format ["DMS Seat Switcher :: Temporarily setting owner of %1 to server from %2. Success: %3",_grp,_owner,_grp setGroupOwner 2];
					};

					sleep 5+(random 3); // 5 to 8 seconds delay after gunner death

					if !(alive _driver) exitWith {};

					unassignVehicle _driver;
					moveOut _driver;

					_driver disableCollisionWith _av;

					_av setVehicleAmmoDef 1;

					waitUntil
					{
						unassignVehicle _driver;
						doGetOut _driver;
						moveOut _driver;
						(vehicle _driver)==_driver
					};

					_driver assignAsGunner _av;
					[_driver] orderGetIn true;

					sleep 1.5;
					if !(alive _driver) exitWith {};

					_driver moveInGunner _av;

					_driver enableCollisionWith _av;

					if (DMS_DEBUG) then
					{
						(format["OnKilled :: Switched driver of AI Vehicle (%1) to gunner.",typeOf _av]) call DMS_fnc_DebugLog;
					};

					if !(_owner in [2,0]) then
					{
						private _start = time;

						// Controlling AI... yes. I have to do this
						waitUntil
						{
							_driver assignAsGunner _av;
							[_driver] orderGetIn true;

							_driver moveInGunner _av;

							(((gunner _av) isEqualTo _driver) || {(time-_start)>30})
						};

						sleep 3;

						_start = time;

						waitUntil
						{
							_driver assignAsGunner _av;
							[_driver] orderGetIn true;

							_driver moveInGunner _av;

							(((gunner _av) isEqualTo _driver) || {(time-_start)>30})
						};

						_driver doTarget _killer;
						_driver doFire _killer;

						sleep 15;

						diag_log format ["DMS Seat Switcher :: Resetting ownership of %1 to %2. Success: %3",_grp,_owner,_grp setGroupOwner _owner];
					};

					_grp setVariable ["DMS_LockLocality",false];
				};
			};
		};
	};
};

private _roadKilled = false;

if (isPlayer _killer) then
{
	private _veh = vehicle _killer;

	_playerObj = _killer;


	// Fix for players killing AI from mounted vehicle guns
	if (!(_killer isKindOf "Exile_Unit_Player") && {!isNull (gunner _killer)}) then
	{
		_playerObj = gunner _killer;
	};


	if (!(_veh isEqualTo _killer) && {(driver _veh) isEqualTo _killer} && {(_killer distance _unit)<10}) then
	{
		_playerObj = driver _veh;

		_roadKilled = true;

		if (_unit getVariable ["DMS_explode_onRoadkill",DMS_explode_onRoadkill]) then
		{
			private _boom = createVehicle ["SLAMDirectionalMine_Wire_Ammo", [0,0,100], [], 0, "CAN_COLLIDE"];
			_boom setPosATL (getPosATL _playerObj);
			_boom setDamage 1;
			if (DMS_DEBUG) then
			{
				(format ["OnKilled :: %1 roadkilled an AI! Creating mine at the roadkilled AI's position!",name _killer]) call DMS_fnc_DebugLog;
			};
		};


		// Remove gear from roadkills if configured to do so
		if ((_unit getVariable ["DMS_remove_roadkill",DMS_remove_roadkill]) && {(random 100) <= (_unit getVariable ["DMS_remove_roadkill_chance",DMS_remove_roadkill_chance])}) then
		{
			_unit call _removeAll;
		};
	};

	_unit setVariable ["DMS_KillerID",owner _playerObj];


	// Reveal the killer to the AI units
	if (_unit getVariable ["DMS_ai_share_info",DMS_ai_share_info]) then
	{
		private _revealAmount = 3;

		private _muzzle = currentMuzzle _playerObj;

		if (_muzzle isEqualType "") then
		{
			private _silencer = _playerObj weaponAccessories _muzzle select 0;
			if (!isNil "_silencer" && {_silencer != ""}) then
			{
				_revealAmount = 1.5;
			};
		};

		private _shareInfoDistance = _unit getVariable ["DMS_ai_share_info_distance",DMS_ai_share_info_distance];
		{
			if ((_x distance2D _unit) <= _shareInfoDistance) then
			{
				_x reveal [_killer, _revealAmount];
			};
		} forEach _grpUnits;
	};
};


[_playerObj, _unit, _side, _type, _roadKilled] call DMS_fnc_PlayerAwardOnAIKill;


// Let Exile handle the AI Body cleanup.
_unit setVariable ["ExileDiedAt",time];
_unit setVariable ["DMS_KillerObj",[_playerObj,_killer] select (isNull _playerObj)];