ACE3/TO_MERGE/agm/Interaction/functions/fn_removeInteractionSelf.sqf

36 lines
695 B
Plaintext

/*
* Author: commy2
*
* Remove an AGM self action from the player.
*
* Argument:
* 0: ID of the action (Number)
*
* Return value:
* None.
*/
private ["_id", "_actionsVar", "_currentID", "_actionIDs", "_actions"];
_id = _this select 0;
_actionsVar = AGM_player getVariable ["AGM_InteractionsSelf", [-1, [], []]];
_currentID = _actionsVar select 0;
_actionIDs = _actionsVar select 1;
_actions = _actionsVar select 2;
_id = _actionIDs find _id;
if (_id == -1) exitWith {};
_actionIDs set [_id, -1];
_actionIDs = _actionIDs - [-1];
_actions set [_id, []];
_actions = _actions - [[]];
AGM_player setVariable ["AGM_InteractionsSelf", [_currentID, _actionIDs, _actions], false];