ACE3/addons/medical_treatment/functions/fnc_litterHandleCreate.sqf
2016-09-19 17:52:16 +02:00

66 lines
1.8 KiB
Plaintext

/*
* Author: Glowbal
* handle Litter Create
*
* Arguments:
* 0: Litter Class <STRING>
* 1: Position <ARRAY>
* 2: Unit <OBJECT>
*
* Return Value:
* None
*
* Public: No
*/
#include "script_component.hpp"
params ["_litterClass", "_position", "_direction"];
TRACE_3("params",_litterClass,_position,_direction);
//IGNORE_PRIVATE_WARNING(_values);
if (isNil QGVAR(allCreatedLitter)) then {
GVAR(allCreatedLitter) = [];
GVAR(litterPFHRunning) = false;
};
private _model = getText (configFile >> "CfgVehicles" >> _litterClass >> "model");
if (_model == "") exitWith {TRACE_2("no model",_litterClass,_model)};
// createSimpleObject expects a path without the leading slash
if (_model select [0,1] == "\") then {
_model = _model select [1];
};
private _litterObject = createSimpleObject [_model, [0,0,0]];
TRACE_2("created",_litterClass,_litterObject);
_litterObject setDir _direction;
_litterObject setPosASL _position;
// Move the litter next frame to get rid of HORRIBLE spacing, fixes #1112
[{
params ["_object", "_position"];
_object setPosASL _position;
}, [_litterObject, _position]] call CBA_fnc_execNextFrame;
private _maxLitterCount = getArray (configFile >> "ACE_Settings" >> QEGVAR(medical,litterSimulationDetail) >> "_values") select EGVAR(medical,litterSimulationDetail);
if (count GVAR(allCreatedLitter) > _maxLitterCount) then {
// gank the first litter object, and spawn ours.
private _oldLitter = GVAR(allCreatedLitter) deleteAt 0;
{
deleteVehicle _x;
} forEach (_oldLitter select 1);
};
GVAR(allCreatedLitter) pushBack [CBA_missionTime, [_litterObject]];
if (!GVAR(litterPFHRunning) && {GVAR(litterCleanUpDelay) > 0}) then {
// Start the litter cleanup loop
GVAR(litterPFHRunning) = true;
call FUNC(litterCleanupLoop);
};