/*
 * Author: commy2
 *
 * Add an addAction event to a unit. Used to handle multiple addAction events and add a action to the mouse wheel menu. Global arguments, local effects. Does only work for player controlled units.
 *
 * Argument:
 * 0: Unit the action should be assigned to (Object)
 * 1: Menu title of the action (String)
 * 2: Name of the action, e.g. "DefaultAction" (String)
 * 3: Condition (Code or String)
 * 4: Code to execute by the action (Code or String)
 * 5: Condition for the menu action (Code or String)
 * 6: Code to execute from the menu (Code or String)
 * 7: Priority of the action (Number, optional default: 0)
 *
 * Return value:
 * ID of the action (used to remove it later).
 */
#include "script_component.hpp"

private ["_name", "_actionsVar", "_id", "_actionIDs", "_actions", "_nameVar", "_addAction", "_actionID"];
//IGNORE_PRIVATE_WARNING("_target");

PARAMS_8(_unit,_displayName,_action,_condition,_statement,_condition2,_statement2,_priority);

if (isNil "_priority") then {_priority = 0};

if (typeName _condition == "STRING") then {
    _condition = compile _condition;
};

if (typeName _statement == "STRING") then {
    _statement = compile _statement;
};

if (typeName _condition2 == "STRING") then {
    _condition2 = compile _condition2;
};

if (typeName _statement2 == "STRING") then {
    _statement2 = compile _statement2;
};

_name = format ["ACE_ActionMenu_%1", _action];

_actionsVar = _unit getVariable [_name, [-1, [], []]];

_id = (_actionsVar select 0) + 1;
_actionIDs = _actionsVar select 1;
_actions = _actionsVar select 2;

_nameVar = format ["%1_ID%2", _name, _id];
missionNamespace setVariable [_nameVar, [_condition, _statement, _condition2, _statement2]];

_actionIDs pushBack _id;

_addAction = call compile format [
    "[
      '%2',
      {if (inputAction '%1' == 0) then {if (_this call (%3 select 2)) then {_this call (%3 select 3)}} else {_this call (%3 select 1)}},
      nil,
      %4,
      false,
      true,
      '%1',
      ""if (_this != ACE_player || {vehicle _this != _target}) exitWith {false}; [_target, _this] call (%3 select 0)""
    ]",
    _action,
    _displayName,
    _nameVar,
    _priority
];

_actionID = _unit addAction _addAction;

_actions pushBack [_actionID, _nameVar];

_unit setVariable [_name, [_id, _actionIDs, _actions], false];

_id