fix DAL menu

Author: tbox1911

core.liberation/GREUH/Scripts/GREUH_version.sqf

@@ -197,3 +197,14 @@ player createDiaryRecord ["MapInfo", ["MapInfo", format ["This Map: %1<br/>was p
 player createDiaryRecord ["MapInfo", ["MapInfo", format ["The East faction <font color='#f80000'>%1</font><br/>was made by: <font color='%3'>%2</font>.", GRLIB_mod_east, GRLIB_east_modder, call _getRandomColor]]];
 player createDiaryRecord ["MapInfo", ["MapInfo", format ["The West faction <font color='#0000f8'>%1</font><br/>was made by: <font color='%3'>%2</font>.", GRLIB_mod_west, GRLIB_west_modder, call _getRandomColor]]];
 player createDiaryRecord ["MapInfo", ["MapInfo", format ["-= Map Information =-"]]];
+
+private _briefing = [
+    localize "STR_RPL_DALE_INTRO_1",
+    localize "STR_RPL_DALE_INTRO_2",
+    localize "STR_RPL_DALE_INTRO_3",
+    localize "STR_RPL_DALE_INTRO_4",
+    localize "STR_RPL_DALE_INTRO_5",
+    "<br />"
+];
+player createDiarySubject ["DALE", "DALE"];
+player createDiaryRecord ["DALE", ["DALE", _briefing joinString "<br />"]];

core.liberation/addons/SDB_DALE/CfgFunctions.hpp

@@ -1,13 +1,10 @@
 class Dale {
 	class Init {
 		file = "addons\SDB_DALE\functions";
-		class actLoadout {};
 		class addPylonLoadout {};
 		class clearPylonLoadout {};
 		class getPylonTurret {};
 		class getTurretPylons {};
-		class initBriefing {postInit = 1;};
-		class initDALE {postInit = 1;};
 		class pylonRearm {};
 		class pylonRearmRemote {};
 		class setPylonLoadout {};

core.liberation/addons/SDB_DALE/functions/fn_actLoadout.sqf

@@ -19,6 +19,7 @@ while {true} do {
 		GRLIB_player_near_fuelbarrel = ([player, "REFUEL_DISP", GRLIB_ActionDist_10, false] call F_check_near);
 		GRLIB_player_near_repair = ([player, "REPAIR", GRLIB_ActionDist_10, false] call F_check_near);
 		GRLIB_player_near_repairbox = ([player, "REPAIR_BOX", GRLIB_ActionDist_5, false] call F_check_near);
+		GRLIB_player_near_reammo = ([player, "REAMMO", 30] call F_check_near);
 		GRLIB_player_near_repaint = ([player, "REPAINT", 30] call F_check_near);
 	};
 

core.liberation/addons/SDB_DALE/functions/fn_initBriefing.sqf

@@ -62,6 +62,13 @@ while {true} do {
 			_vehicle addAction ["<t color='#009000'>" + localize "STR_HALO_VEH" + "</t> <img size='1' image='res\ui_redeploy.paa'/>", "scripts\client\spawn\do_halo.sqf","",-507,false,true,"","[_target, _this] call GRLIB_checkAction_Halo", GRLIB_ActionDist_10];
 		};
 
+		if (_vehicle isKindOf "Air") then {
+			private _cfgComponent = configOf _vehicle >> "Components" >> "TransportPylonsComponent";
+			if (!isClass _cfgComponent) exitWith {};
+			private _actionID = _vehicle addAction ["", DALE_fnc_dlgLoadoutOpen, nil, 20, false, true, "", "[_target, _this] call GRLIB_DALE_actionCond"];
+			_vehicle setUserActionText [_actionID, "<t color='#009000'>" + localize "STR_DALE_Actions_Loadout" + "</t> <img size='1' image='a3\ui_f\data\IGUI\Cfg\Actions\reammo_ca.paa'/>"];
+		};
+
 		if (_class == FOB_truck_typename) then {
 			_vehicle addAction ["<t color='#FF6F00'>" + localize "STR_FOB_ACTION" + "</t> <img size='1' image='res\ui_deployfob.paa'/>","scripts\client\actions\do_build_fob.sqf","",-981,false,true,"","[_target, _this] call GRLIB_checkBuildFOB", GRLIB_ActionDist_5];
 		};

core.liberation/addons/SDB_DALE/functions/fn_initDALE.sqf

@@ -1,3 +1,8 @@
+GRLIB_DALE_actionCond = {
+	params ["_target", "_unit"];
+    ((round (getPos _target select 2) <= 0) && (_unit == driver _target) && (speed vehicle _target < 1) && GRLIB_player_near_reammo)
+};
+
 GRLIB_checkAction_Lock = {
 	params ["_target", "_unit"];
 	(GRLIB_player_is_menuok && alive _target && count (crew _target) == 0 && (GRLIB_permission_vehicles && [_unit, _target] call is_owner) && locked _target < 2 && GRLIB_vehicle_lock)

core.liberation/scripts/client/actions/action_manager_player.sqf

@@ -52,7 +52,6 @@ if (_list == "LHD") exitWith { (_vehpos distance2D lhd <= _dist) };
 // Supply Always ON
 private _ignore_disabled = (_list in ["MEDIC","ARSENAL","REFUEL""REAMMO","REAMMO_AI","REPAIR","REPAIR_BOX"]);
 
-diag_log format ["%1 %2", _list, "search"];
 // Search
 private _near = 0;
 if (typeName (_classlist select 0) == "STRING") then {