Epoch/Sources/epoch_code/gui/scripts/dynamenu/Epoch_dynamicMenu.sqf

/*
	Author: Raimonds Virtoss - EpochMod.com

    Contributors: He-Man

	Description:
	DESC-TBA

    Licence:
    Arma Public License Share Alike (APL-SA) - https://www.bistudio.com/community/licenses/arma-public-license-share-alike

    Github:
    https://github.com/EpochModTeam/Epoch/tree/release/Sources/epoch_code/gui/scripts/dynamenu/Epoch_dynamicMenu.sqf
*/
disableSerialization;
//[[[cog import generate_private_arrays ]]]
private ["_iconcode","_action","_arr","_buttonSettings","_c","_cfg","_checkConfigs","_config","_configs","_dName","_display","_entries","_hasTarget","_icon","_in","_selfOrTarget","_subclasses","_tTip","_tooltip","_tooltipcode","_x"];
//[[[end]]]
_in = [_this, 0, "",[""]] call BIS_fnc_param;

_display = findDisplay 66600;
_cfg = "CfgActionMenu" call EPOCH_returnConfig;
_arr = [];
_buttonSettings = [];

/** Variable Defines **/
{
	call compile (format ["%1 = %2;",configName _x,getText _x]);
} count (configProperties [(_cfg >> "variableDefines"),"true",false]);

_hasTarget = !(dyna_cursorTarget isEqualTo objNull);

if (isNull _display && dialog) exitWith {false call Epoch_dynamicMenuCleanup; false};

if (isNull _display) then {
	if!(visibleMap)then{
		if (_hasTarget) then {
			createDialog "rmx_dynamenu";
		} else {
			findDisplay 46 createDisplay "rmx_dynamenu";
		}
	} else {
		findDisplay 12 createDisplay "rmx_dynamenu";
	};
};

_selfOrTarget = if!(visibleMap)then{ if !(_hasTarget) then {"self"} else {"target"} } else {"map"};
_checkConfigs = {

	_config = switch (_in) do {
		case "build_upgrade":
		{
			_cfg = "CfgBaseBuilding" call EPOCH_returnConfig;
			(_cfg >> dyna_cursorTargetType)
		};
		case "PaintGarage":
		{
			private _garagevehs = nearestobjects [dyna_cursorTarget,["LandVehicle","AIR"],10];
			if (_garagevehs isEqualTo []) exitwith {
				["No Paintable Vehicle found in Garage",5] call Epoch_message;
				(_cfg >> _selfOrTarget)
			};
			private _cfgtmp = "CfgPainting" call EPOCH_returnConfig;
			_garageveh = _garagevehs select 0;
			private _isclass = isclass (_cfgtmp >> (typeof _garageveh));
			if (!_isclass && (("true" configClasses (configFile >> "CfgVehicles" >> (typeof _garageveh) >> "TextureSources")) isEqualTo [])) exitwith {
				["No Paintable Vehicle found in Garage",5] call Epoch_message;
				(_cfg >> _selfOrTarget)
			};
			dyna_Paintobj = _garageveh;
			if (_isclass) exitwith {
				(_cfgtmp >> (typeof _garageveh))
			};
				(_cfgtmp >> "DefaultVehicle")
		};
		case "":
		{
			(_cfg >> _selfOrTarget)
		};
		default
		{
			_c = format ["_cfg >> '%1'",_selfOrTarget];
			_arr = _this;
			{
				_c = _c + (format [" >> '%1'",_x]);
			} forEach _arr;

			(call compile _c)
		};
	};

	switch (_in) do {
		case "build_upgrade":
		{
			if !(isClass _config) exitWith {_in = "";};

			{
				_dName = getText(configfile >> "CfgVehicles" >> (_x select 0) >> "DisplayName");
				_tTip = "";
				_icon = "";
				{
					if !(_x isEqualType []) then {_x = [_x, 1]};
					_c = configfile >> "CfgMagazines" >> (_x select 0);
					_tTip = _tTip + format ["[%1 x %2] ", _x select 1, getText(_c >> "DisplayName")];
					if (_icon isEqualTo "") then {_icon = getText (_c >> "picture")};
				} forEach (_x select 1);

				_tooltip = format ["%1 >> %2 ",_dName,_tTip];
				_action = format ["[dyna_cursorTarget,%1] call EPOCH_upgradeBUILD; true call Epoch_dynamicMenuCleanup;",_forEachIndex];

				_buttonSettings pushBack [
					_icon,
					_tooltip,
					_action
				];

			} forEach (getArray (_config >> "upgradeBuilding"));


		};
		case "PaintGarage":
		{
			if !(isClass _config) exitWith {_in = "";};
			private _usedefaultcolors = tolower (gettext (_config >> "UseArmaDefaultColors"));
			_icon = gettext (_config >> "icon");
			if (_usedefaultcolors isEqualTo "true") then {
				{
					private _textures = getarray (_x >> "textures");
					_tooltip = gettext (_x >> "displayName");
					_iconcolor = [1,1,1,1];
					{
						if ((tolower _tooltip) find (_x select 0) > -1) exitwith {
							_iconcolor = _x select 1;
						};
					} foreach [
						["red",[1,0,0,1]],
						["green",[0,1,0,1]],
						["blue",[0,0,1,1]],
						["yellow",[1,1,0,1]],
						["white",[1,1,1,1]],
						["black",[0,0,0,1]],
						["grey",[0.5, 0.5, 0.5]],
						["orange",[1, 0.9, 0, 1]],
						["hex",[0.74, 0.72, 0.42, 1]],
						["sand",[1, 0.9, 0.8, 1]],
						["olive",[0.33, 0.42, 0.185, 1]]
					];
					_action = format ["[dyna_cursorTarget,dyna_Paintobj,%1] call EPOCH_vehicle_Paintgarage; true call Epoch_dynamicMenuCleanup;",_textures];
					_buttonSettings pushBack [
						_icon,
						_tooltip,
						_action,
						_iconcolor
					];
				} foreach ("true" configClasses (configFile >> "CfgVehicles" >> (typeof dyna_Paintobj) >> "TextureSources"));
			};
			{
				_tooltip = gettext (_x >> "ColorName");
				_iconcolor = getarray (_x >> "iconcolor");
				private _textures = getarray (_x >> "textures");
				if (_textures isEqualTo []) exitwith {_in = "";};
				_action = format ["[dyna_cursorTarget,dyna_Paintobj,%1] call EPOCH_vehicle_Paintgarage; true call Epoch_dynamicMenuCleanup;",_textures];
				_buttonSettings pushBack [
					_icon,
					_tooltip,
					_action,
					_iconcolor
				];
			} forEach (configProperties [_config, "isClass _x",true]);
		};
		default
		{
			_configs = "true" configClasses _config;
			{
				if (call compile (getText(_x >> "condition"))) then {

					if (_selfOrTarget in ["self","map"] || dyna_distance) then {

						_subclasses = configProperties [_x, "isClass _x",true];

						_action = if (_subclasses isEqualTo []) then {
							format ["%1; true call Epoch_dynamicMenuCleanup;",getText(_x >> "action")]
						} else {
							format ["%2 %1 call Epoch_dynamicMenu;",_arr + [(configName _x)],getText(_x >> "action")]
						};

						_tooltip = "";
						_tooltipcode = getText(_x >> "tooltipcode");
						if (_tooltipcode != "") then {
							_tooltip = [] call compile _tooltipcode;
						}
						else {
							_tooltip = getText(_x >> "tooltip");
						};
						
						_icon = "";
						_iconcode = getText(_x >> "iconcode");
						if (_iconcode != "") then {
							_icon = [] call compile _iconcode;
						}
						else {
							_icon = getText(_x >> "icon");
						};
						if (!(_icon isequaltype "") || _icon isequalto "") then {
							_icon = "x\addons\a3_epoch_code\Data\UI\buttons\player_inspect.paa";
						};

						_buttonSettings pushBack [
							_icon,
							_tooltip,
							_action
						];

					};
				};
			} forEach _configs;
		};
	};
};

call _checkConfigs;
if (_buttonSettings isEqualTo []) then {_selfOrTarget = if!(visibleMap)then{"self"}else{"map"}; call _checkConfigs;};

_entries = count _buttonSettings;
if !(_entries <= 0) then {
	[_entries, _buttonSettings] spawn epoch_dynamicMenuPopulate;
} else {
	true call Epoch_dynamicMenuCleanup;
};

true