trial implementation

description.ext

@@ -95,7 +95,9 @@ class Params
 
 
 // CfgFunctions
-#include "framework\CfgFunctions.hpp"
+class CfgFunctions {
+	#include "framework\CfgFunctions.hpp"
+};
 
 
 

framework/CfgFunctions.hpp

@@ -1,37 +1,39 @@
 #include "script_mod.hpp"
 
-class CfgFunctions {
-
-	class DOUBLES(PREFIX,init) {
+class DOUBLES(PREFIX,init) {
 	class functions {
 		file = "framework\init\functions";
 		class initServer { postInit = 1;};
 		class initClient { postInit = 1;};
-			class setDefaults { postInit = 1; };
-			class addAARChatHandler { postInit = 1; };
-			class addRespawnChatHandler { postInit = 1; };
-		};
+		class setDefaults {};
+		class addAARChatHandler {};
+		class addRespawnChatHandler {};
+		class checkMissionSettings {};
 	};
+};
 
-	class PREFIX {	
+class PREFIX {	
 	class ambience {
 		file = "framework\ambience";
 		class flakInitVehicle {};
 		class flakEH {};
 	};
-	};
+};
 
-	class DOUBLES(PREFIX,client) {
+class DOUBLES(PREFIX,client) {
 	class functions {
 		file = "framework\client\functions";
-			class bindEmptyGroupGarbageCleanup { postInit = 1; };
-			class bindEventHandlers { postInit = 1; };
-			class bindVehicleActions { postInit = 1; };
-			class addZenModules {postInit = 1;};
-		};
+		class initClient {};
+		class addMicroDAGRWaypoints {};
+		class addZenModules {};
+		class bindEmptyGroupGarbageCleanup {};
+		class bindEventHandlers {};
+		class bindUnconsciousListener {};
+		class bindVehicleActions {};
 	};
+};
 
-	class DOUBLES(PREFIX,common) {
+class DOUBLES(PREFIX,common) {
 	class functions {
 		file = "framework\common\functions";
 		class addCBASettings { preInit = 1; };
@@ -48,9 +50,9 @@ class CfgFunctions {
 		class padString {};
 		class recurseSubclasses {};
 	};
-	};
+};
 
-	class DOUBLES(PREFIX,fbcb2_assets) {
+class DOUBLES(PREFIX,fbcb2_assets) {
 	class functions {
 		file = "framework\fbcb2_assets\functions";
 		class addCBASettings {preInit=1;};
@@ -72,9 +74,9 @@ class CfgFunctions {
 		class updateAssetDiary {};
 		class updateAssetsByBase {};
 	};
-	};
+};
 
-	class DOUBLES(PREFIX,fbcb2_main) {
+class DOUBLES(PREFIX,fbcb2_main) {
 	class functions {
 		file = "framework\fbcb2_main\functions";
 		class initClient {};
@@ -87,9 +89,9 @@ class CfgFunctions {
 		class formatRadioElementForDiary {};
 		class generateElementFrequencyRecordText {};
 	};
-	};
+};
 
-	class DOUBLES(PREFIX,mapcopy) {
+class DOUBLES(PREFIX,mapcopy) {
 	class functions {
 		file = "framework\mapcopy\functions";
 		class addCBASettings {preInit=1;};
@@ -99,9 +101,9 @@ class CfgFunctions {
 		class mapMarkerToString {};
 		class stringToMapMarker {};
 	};
-	};
+};
 
-	class DOUBLES(PREFIX,performance) {
+class DOUBLES(PREFIX,performance) {
 	class functions {
 		file = "framework\performance\functions";
 		class addCBASettings {preInit=1;};
@@ -113,9 +115,9 @@ class CfgFunctions {
 		class addServerStatsPFH {};
 		class calculateServerStats {};
 	};
-	};
+};
 
-	class DOUBLES(PREFIX,reinsert) {
+class DOUBLES(PREFIX,reinsert) {
 	class functions {
 		file = "framework\reinsert\functions";
 		class addCBASettings {preInit=1;};
@@ -136,9 +138,9 @@ class CfgFunctions {
 		class addCheckQueueSelfAction {};
 		class requestShowQueue {};
 	};
-	};
+};
 
-	class DOUBLES(PREFIX,resupply) {
+class DOUBLES(PREFIX,resupply) {
 	class functions {
 		file = "framework\resupply\functions";
 		class addCBASettings {preInit=1;};
@@ -147,9 +149,9 @@ class CfgFunctions {
 		class getSupplyCratesCfg {};
 		class addArsenalObjectSpawnBoxActions {};
 	};
-	};
+};
 
-	class DOUBLES(PREFIX,triageIcons) {
+class DOUBLES(PREFIX,triageIcons) {
 	class functions {
 		file = "framework\triageIcons\functions";
 		class addCBASettings {preInit=1;};
@@ -158,9 +160,9 @@ class CfgFunctions {
 		class addGetEntitiesPFH {};
 		class updateColors {};
 	};
-	};
+};
 
-	class DOUBLES(PREFIX,vehicleFlags) {
+class DOUBLES(PREFIX,vehicleFlags) {
 	class functions {
 		file = "framework\vehicleFlags\functions";
 		class initClient {};
@@ -168,13 +170,12 @@ class CfgFunctions {
 		class getVehicleFlagsCfg {};
 		class isClassExcluded {};
 	};
-	};
+};
 
-	class DOUBLES(PREFIX,zeus) {
+class DOUBLES(PREFIX,zeus) {
 	class functions {
 		file = "framework\zeus\functions";
 		class initClient {};
 		class addZenModules {};
 	};
-	};
 };

framework/client/functions/fn_addMicroDAGRWaypoints.sqf

@@ -0,0 +1,59 @@
+#include "..\script_component.hpp"
+
+// adds default base locations to players' microDAGR as waypoints
+
+if (!hasInterface) exitWith {};
+
+[{!isNull player}, {
+
+	// add base locations (respawn modules)
+	{
+		private _wpName = [_x] call EFUNC(common,getNameOfBase);
+		private _posASL = getPosASL _x;
+		[_wpName, _posASL] call ace_microdagr_fnc_deviceAddWaypoint;
+	} forEach GVARMAIN(baseObjects);
+
+	// add custom waypoints from mission_settings.hpp
+	private _customWaypoints = [missionConfigFile >> "custom_microdagr_waypoints", "ARRAY", []] call CBA_fnc_getConfigEntry;
+	{
+		_x params [
+			["_wpName", ""],
+			["_pos", [0, 0, 0], [[], ""]],
+			["_object", "", [""]]
+		];
+		private _realPos = nil;
+		// if pos was provided, process
+		if (count _pos > 0) then {
+			if (typeName _pos == "STRING") then {
+				_realPos = [_pos, true] call ACE_common_fnc_getMapPosFromGrid;
+				_realPos set [2, getTerrainHeightASL _realPos];
+			} else {_realPos = _pos;};
+		};
+		// if object was provided, process and override any pos
+		if (count _object > 0) then {
+			// object is provided as a string variable name
+			private _realObject = missionNamespace getVariable _object;
+			if (isNull _realObject) then {
+				[
+					LEVEL_WARNING,
+					QUOTE(COMPONENT),
+					format["Invalid object for custom microDAGR waypoint: %1", _wpName],
+				[["name", _wpName], ["pos", _pos], ["object", _object]]] call EFUNC(common,log);
+				continue;
+			};
+			_realPos = getPosASL (missionNamespace getVariable _object);
+		};
+		if (isNil "_realPos") then {
+			[
+				LEVEL_WARNING,
+				QUOTE(COMPONENT),
+				format["Invalid waypoint position for custom microDAGR waypoint: %1", _wpName],
+			[["name", _wpName], ["pos", _pos], ["object", _object]]] call EFUNC(common,log);
+			continue;
+		};
+
+		[_wpName, _realPos] call ace_microdagr_fnc_deviceAddWaypoint;
+	} forEach _customWaypoints;
+}] call CBA_fnc_waitUntilAndExecute;
+
+nil;

framework/client/functions/fn_bindEventHandlers.sqf

@@ -7,11 +7,20 @@ player addEventHandler["Respawn",
 		params ["_unit", "_corpse"];
 		private _killer = _corpse getVariable ["ace_medical_causeOfDeath", "#scripted"];
 		if (_killer == "respawn_button") then {
+			private _timeWentUnconscious = _unit getVariable [QGVARMAIN(lastTimeKnockedOut), -1];
+			private _durationSpentUnconscious = diag_tickTime - _timeWentUnconscious;
 			[
 				LEVEL_INFO,
 				QUOTE(COMPONENT),
 				"RESPAWNED WHILE UNCONSCIOUS",
-				[_unit] call EFUNC(common,addPlayerInfoToArray)
+				[_unit, [[
+					"durationSpentUnconscious", 
+					(if (_timeWentUnconscious > - 1) then {
+						_durationSpentUnconscious
+					} else {
+						-1
+					})
+				]]] call EFUNC(common,addPlayerInfoToArray)
 			] remoteExec [QEFUNC(common,log), 2];
 		//	format["%1 was unconscious then clicked the respawn button", name _unit] remoteExec["systemChat", 0];
 		};

framework/client/functions/fn_bindUnconsciousListener.sqf

@@ -0,0 +1,13 @@
+#include "..\script_component.hpp"
+
+if (!hasInterface) exitWith {};
+
+["ace_medical_knockOut", { // local event that's also used directly by the ACE medical statemachine
+	private _unit = _this;
+	_this setVariable [QGVARMAIN(lastTimeKnockedOut), diag_tickTime];
+}] call CBA_fnc_addEventHandler;
+
+["ace_medical_WakeUp", { // local event that's also used directly by the ACE medical statemachine
+	private _unit = _this;
+	_this setVariable [QGVARMAIN(lastTimeKnockedOut), nil];
+}] call CBA_fnc_addEventHandler;

framework/client/functions/fn_initClient.sqf

@@ -0,0 +1,24 @@
+#include "..\script_component.hpp"
+
+
+if (!hasInterface) exitWith {};
+
+call FUNC(addMicroDAGRWaypoints);
+call FUNC(addZenModules);
+call FUNC(bindEmptyGroupGarbageCleanup);
+call FUNC(bindEventHandlers);
+call FUNC(bindVehicleActions);
+
+// add listener that tracks when the player goes unconscious and saves a variable with time
+call FUNC(bindUnconsciousListener);
+
+[
+	LEVEL_DEBUG,
+	QUOTE(COMPONENT),
+	"initClient complete",
+	[]
+] call EFUNC(common,log);
+
+localNamespace setVariable [QGVAR(complete), true];
+
+nil;

framework/init/functions/fn_addAARChatHandler.sqf

@@ -1,5 +1,7 @@
 #include "..\script_component.hpp"
 
+if (!hasInterface) exitWith {};
+
 [
 	"saveaar", 
 	{

framework/init/functions/fn_addRespawnChatHandler.sqf

@@ -1,17 +1,29 @@
 #include "..\script_component.hpp"
 
+if (!hasInterface) exitWith {};
+
 [
 	"respawn", 
 	{
 		_clientID = _thisArgs select 0;
 		player setDamage 1;
 
+		private _timeWentUnconscious = player getVariable [QGVARMAIN(lastTimeKnockedOut), -1];
+		private _durationSpentUnconscious = diag_tickTime - _timeWentUnconscious;
+
 		// log to server RPT
 		[
 			LEVEL_INFO,
 			QUOTE(COMPONENT),
 			"CHAT COMMAND RESPAWN",
-			[player] call EFUNC(common,addPlayerInfoToArray)
+			[player, [[
+				"durationSpentUnconscious", 
+				(if (_timeWentUnconscious > - 1) then {
+					_durationSpentUnconscious
+				} else {
+					-1
+				})
+			]]] call EFUNC(common,addPlayerInfoToArray)
 		] remoteExec [QEFUNC(common,log), 2];
 
 		// systemChat to all remote machines

framework/init/functions/fn_checkMissionSettings.sqf

@@ -0,0 +1,41 @@
+#include "..\script_component.hpp"
+
+if (!hasInterface || !is3DENPreview) exitWith {};
+
+private _warningText = [];
+
+if (getText(missionConfigFile >> "author") in ["MISSION AUTHOR", ""]) then {
+	_warningText pushBack "<t font='EtelkaMonospacePro' size='0.7'>mission_settings\author</t> is blank or default!";
+};
+if (getText(missionConfigFile >> "onLoadName") in ["THIS APPEARS ON TOP OF THE LOADING SCREEN IMAGE", ""]) then {
+	_warningText pushBack "<t font='EtelkaMonospacePro' size='0.7'>mission_settings\onLoadName</t> is blank or default!";
+};
+
+if (getText(missionConfigFile >> "briefingName") in ["THIS IS THE NAME ON THE #MISSIONS LIST", ""]) then {
+	_warningText pushBack "<t font='EtelkaMonospacePro' size='0.7'>mission_settings\briefingName</t> is blank or default!";
+};
+if (getText(missionConfigFile >> "overviewText") in ["THIS IS WHERE YOU DESCRIBE THE MISSION IN THE #MISSION LIST", ""]) then {
+	_warningText pushBack "<t font='EtelkaMonospacePro' size='0.7'>mission_settings\overviewText</t> is blank or default!";
+};
+
+if (getText(missionConfigFile >> "missionSeries") in ["MY SERIES NAME", ""]) then {
+	_warningText pushBack "<t font='EtelkaMonospacePro' size='0.7'>mission_settings\missionSeries</t> is blank or default!";
+};
+
+if (count GVARMAIN(baseObjects) isEqualTo 0) then {
+	_warningText pushBack "No respawn points placed!";
+};
+
+if (count _warningText > 0) then {
+	[{
+        if (isNull (call BIS_fnc_displayMission)) exitWith {};
+
+        (_this#0) spawn {
+			[_this joinString "<br/>", "Issues found!", true, false] call BIS_fnc_guiMessage;
+		};
+        [_this#1] call CBA_fnc_removePerFrameHandler;
+
+    }, 1, _warningText] call CBA_fnc_addPerFrameHandler;
+};
+
+nil;

framework/init/functions/fn_initClient.sqf

@@ -1,6 +1,6 @@
 #include "..\script_component.hpp"
 
-if ( !hasInterface ) exitWith {};
+if (!hasInterface) exitWith {};
 
 ["milsim_logText", {
 	params [["_strArray", [""], [[]]]];
@@ -14,6 +14,13 @@ waitUntil {!isNil QGVARMAIN(complete)};
 
 ["InitializePlayer", [player, true]] call BIS_fnc_dynamicGroups;
 
+// run primary init functions
+call FUNC(addAARChatHandler);
+call FUNC(addRespawnChatHandler);
+call FUNC(setDefaults);
+call FUNC(checkMissionSettings);
+
+
 // Initialize a holder for managing local diary records
 // store records in format:
 // [subject, [
@@ -23,6 +30,7 @@ EGVAR(common,diaryRecords) = createHashMap;
 
 
 // initialize other modules
+call EFUNC(client,initClient);
 call EFUNC(mapcopy,initClient);
 call EFUNC(reinsert,initClient);
 call EFUNC(resupply,initClient);
@@ -33,6 +41,8 @@ call EFUNC(fbcb2_main,initClient);
 call EFUNC(fbcb2_assets,initClient);
 
 
+call FUNC(checkMissionSettings);
+
 [
 	LEVEL_DEBUG,
 	QUOTE(COMPONENT),

framework/init/functions/fn_setDefaults.sqf

@@ -1,5 +1,7 @@
 #include "..\script_component.hpp"
 
+if (!hasInterface) exitWith {};
+
 enableSaving[false, false];
 
 enableRadio false;

mission_settings.hpp

@@ -9,8 +9,21 @@ overviewText = "THIS IS WHERE YOU DESCRIBE THE MISSION IN THE #MISSION LIST";
 // The name for the series of missions of your campaign. Used for organizational and search purposes
 missionSeries = "MY SERIES NAME";
 
-// activate via #ace-fortify west base 2000
 
+// Add waypoints to players' MicroDAGR devices
+// respawn locations (bases) are added by default, don't put them here
+custom_microdagr_waypoints[] = {
+    // the first element is the waypoint name
+    // the second element is the position of the waypoint - you may use a string for map grid (up to 10 digit) or an array for {X, Y} coordinates
+    // the third element is optional - provide the variable name of an object if you want to use its initial position instead
+    // {"WAYPOINT NAME", {POSITION <[x,y]>}, OBJECT <objNull>},
+    // EXAMPLES:
+    //      {"KAVALA HOSPITAL", {1234.56, 7890.12}, ""},
+    //      {"CAMP TEMPEST", "03421460, ""},
+    //      {"MY CUSTOM OBJECT", {}, "myCustomObject"}
+};
+
+// activate via #ace-fortify west base 2000
 class ACEX_Fortify_Presets {
     class base {
         displayName = "Ken Custom";