Medical - Support Magazine Treatment Items

addons/arsenal/functions/fnc_addRightPanelButton.sqf

@@ -66,7 +66,8 @@ _items = _items select {
     _x isKindOf ["CBA_MiscItem", _cfgWeapons] && {getNumber (_configItemInfo >> "type") in [TYPE_MUZZLE, TYPE_OPTICS, TYPE_FLASHLIGHT, TYPE_BIPOD]} ||
     {getNumber (_configItemInfo >> "type") in [TYPE_FIRST_AID_KIT, TYPE_MEDIKIT, TYPE_TOOLKIT]} ||
     {getText (_cfgWeapons >> _x >> "simulation") == "ItemMineDetector"} ||
-    {getNumber (_cfgMagazines >> _x >> "ACE_isUnique") == 1}
+    {getNumber (_cfgMagazines >> _x >> "ACE_isUnique") == 1} ||
+    {getNumber (_cfgMagazines >> _x >> "ACE_asItem") == 1}
 };
 
 GVAR(customRightPanelButtons) set [_position, [_items apply {_x call EFUNC(common,getConfigName)}, _picture, _tooltip, _moveOnOverwrite]];

addons/arsenal/functions/fnc_scanConfig.sqf

@@ -160,7 +160,7 @@ private _magazineMiscItems = createHashMap;
 
 {
     _magazineMiscItems set [configName _x, nil];
-} forEach ((toString {getNumber (_x >> "ACE_isUnique") == 1}) configClasses _cfgMagazines);
+} forEach ((toString {getNumber (_x >> "ACE_isUnique") == 1 || getNumber (_x >> "ACE_asItem") == 1}) configClasses _cfgMagazines);
 
 // Remove invalid/non-existent entries
 _grenadeList deleteAt "";

addons/common/XEH_PREP.hpp

@@ -13,6 +13,7 @@ PREP(addLineToDebugDraw);
 PREP(addSwayFactor);
 PREP(addToInventory);
 PREP(addWeapon);
+PREP(adjustMagazineAmmo);
 PREP(assignedItemFix);
 PREP(assignObjectsInList);
 PREP(ambientBrightness);

addons/common/functions/fnc_adjustMagazineAmmo.sqf

@@ -0,0 +1,63 @@
+#include "..\script_component.hpp"
+/*
+ * Author: Katalam, Blue, Brett Mayson
+ * Handle adjusting a magazine's ammo
+ *
+ * Arguments:
+ * 0: Vehicle or Unit <OBJECT>
+ * 1: Item <STRING>
+ * 2: Count <NUMBER>
+ *
+ * Return Value:
+ * Empty mag <BOOLEAN> - true if the magazine is empty after the ammo is consumed
+ *
+ * Example:
+ * [player, "30Rnd_556x45_Stanag", 1] call ace_commone_fnc_adjustMagazineAmmo;
+ *
+ * Public: No
+ */
+
+params ["_unit", "_item", ["_count", -1]];
+
+private _lowestCount = 999;
+private _lowestIndex = 0;
+
+if (_unit isKindOf "CAManBase") then {
+    private _magazines = [];
+    {
+        _x params ["_class", "_ammo", "_loaded", "", "_location"];
+        if (_class == _item && !_loaded) then {
+            _magazines pushBack _x;
+            if (_ammo < _lowestCount) then {
+                _lowestCount = _ammo;
+                _lowestIndex = count _magazines - 1;
+            };
+        };
+    } forEach (magazinesAmmoFull _unit);
+    if (_magazines isEqualTo []) exitWith {};
+    _unit removeMagazines _item;
+    (_magazines select _lowestIndex) params ["_class", "_ammo", "_loaded", "", "_location"];
+    _magazines set [_lowestIndex, [_class, _ammo + _count, _loaded, "", /* tolower _location - no command, will always go to first empty container */ ""]];
+    {
+        _x params ["_class", "_ammo", "_loaded", "", "_location"];
+        if (_ammo > 0) then {
+            [_unit, _class, _location, _ammo] call FUNC(addToInventory);
+        };
+    } forEach _magazines;
+    _ammo + _count <= 0
+} else {
+    private _cargoMags = magazinesAmmoCargo _unit;
+    private _itemIndex = _cargoMags findIf {_x select 0 isEqualTo _item};
+    if (_itemIndex == -1) exitWith {};
+    clearMagazineCargoGlobal _unit;
+    {
+        if (_forEachIndex == _itemIndex) then {
+            if (((_x select 1) + _count) > 0) then {
+                _unit addMagazineAmmoCargo [_x select 0, 1, ((_x select 1) + _count)];
+            };
+        } else {
+            _unit addMagazineAmmoCargo [_x select 0, 1, _x select 1];
+        };
+    } forEach _cargoMags;
+    ((_cargoMags select _itemIndex) select 1) + _count <= 0
+};

addons/common/functions/fnc_getCountOfItem.sqf

@@ -1,6 +1,6 @@
 #include "..\script_component.hpp"
 /*
- * Author: Dedmen
+ * Author: Dedmen, Blue
  * Return how many items of type _itemType the player has in his containers (Uniform, Vest, Backpack)
  * Doesn't count assignedItems, weapons, weapon attachments, magazines in weapons
  *
@@ -20,12 +20,21 @@
 params ["_unit", "_itemType"];
 
 private _countItemsInContainer = {
-    (getItemCargo _this) params ["_itemTypes", "_itemCounts"];
+    params ["_itemType", "_container"];
 
-    private _index = _itemTypes find _itemType;
-    _itemCounts param [_index, 0]
+    if ((_itemType call BIS_fnc_itemType) select 0 isEqualTo "Magazine") then {
+        (getMagazineCargo _container) params ["_itemTypes", "_itemCounts"];
+
+        private _index = _itemTypes find _itemType;
+        _itemCounts param [_index, 0]
+    } else {
+        (getItemCargo _container) params ["_itemTypes", "_itemCounts"];
+
+        private _index = _itemTypes find _itemType;
+        _itemCounts param [_index, 0]
+    };
 };
 
-((uniformContainer _unit) call _countItemsInContainer) +
-((vestContainer _unit) call _countItemsInContainer) +
-((backpackContainer _unit) call _countItemsInContainer)
+([_itemType, uniformContainer _unit] call _countItemsInContainer) +
+([_itemType, vestContainer _unit] call _countItemsInContainer) +
+([_itemType, backpackContainer _unit] call _countItemsInContainer)

addons/common/functions/fnc_uniqueItems.sqf

@@ -1,37 +1,84 @@
 #include "..\script_component.hpp"
 /*
- * Author: mharis001
- * Returns list of unique items in a unit's inventory.
- * Items are cached if unit is ACE_player.
+ * Author: mharis001, Blue, Brett Mayson
+ * Returns list of unique items in the target's inventory.
  *
  * Arguments:
- * 0: Unit <OBJECT>
+ * 0: Target <OBJECT>
+ * 1: Include magazines <NUMBER>
+ *   0: No (default)
+ *   1: Yes
+ *   2: Only magazines
  *
  * Return Value:
  * Items <ARRAY>
  *
  * Example:
- * [player] call ace_common_fnc_uniqueItems
+ * [player, 2] call ace_common_fnc_getUniqueItems
  *
  * Public: No
  */
 
-params ["_unit"];
+params ["_target", ["_includeMagazines", 0]];
 
 private _fnc_getItems = {
-    private _items = (getItemCargo uniformContainer _unit) select 0;
-    _items append ((getItemCargo vestContainer _unit) select 0);
-    _items append ((getItemCargo backpackContainer _unit) select 0);
+    private _items = [];
+
+    private _inventoryItems = [];
+
+    _inventoryItems append ((getItemCargo uniformContainer _target) select 0);
+    _inventoryItems append ((getItemCargo vestContainer _target) select 0);
+    _inventoryItems append ((getItemCargo backpackContainer _target) select 0);
+
+    _items set [0, _inventoryItems];
+    _items set [1, (magazines _target)];
 
     _items arrayIntersect _items
 };
 
-// Use cached items list if unit is ACE_player
-if (_unit isEqualTo ACE_player) then {
+// Cache items list if unit is ACE_player
+if (_target isEqualTo ACE_player) then {
     if (isNil QGVAR(uniqueItemsCache)) then {
         GVAR(uniqueItemsCache) = call _fnc_getItems;
     };
-    +GVAR(uniqueItemsCache)
+
+    switch (_includeMagazines) do {
+        case 0: {
+            GVAR(uniqueItemsCache) select 0;
+        };
+        case 1: {
+            (GVAR(uniqueItemsCache) select 1) + (GVAR(uniqueItemsCache) select 0);
+        };
+        case 2: {
+            GVAR(uniqueItemsCache) select 1;
+        };
+    };
 } else {
-    call _fnc_getItems;
+    if (_isVehicle) then {
+        private _items = switch (_includeMagazines) do {
+            case 0: {
+                itemCargo _target
+            };
+            case 1: {
+                (magazineCargo _target) + (itemCargo _target)
+            };
+            case 2: {
+                magazineCargo _target
+            };
+        };
+        _items arrayIntersect _items
+    } else {
+        private _items = call _fnc_getItems;
+        switch (_includeMagazines) do {
+            case 0: {
+                _items select 0;
+            };
+            case 1: {
+                (_items select 1) + (_items select 0);
+            };
+            case 2: {
+                _items select 1;
+            };
+        };
+    };
 };

addons/medical_gui/functions/fnc_countTreatmentItems.sqf

@@ -42,12 +42,31 @@ private _vehicle = [_patientVehicle, _medicVehicle] select (!isNull _medicVehicl
 
 if (!isNull _vehicle) then {
     _vehicleCount = 0;
-    (getItemCargo _vehicle) params ["_itemTypes", "_itemCounts"];
+    private _magazineItems = [];
+    private _itemItems = [];
     {
-        private _item = _x;
-        private _index = _itemTypes find _item;
-        _vehicleCount = _vehicleCount + (_itemCounts param [_index, 0]);
+        if ((_x call BIS_fnc_itemType) select 0 isEqualTo "Magazine") then {
+            _magazineItems pushBack _x;
+        } else {
+            _itemItems pushBack _x;
+        };
     } forEach _items;
+    if (_magazineItems isNotEqualTo []) then {
+        (getMagazineCargo _vehicle) params ["_itemTypes", "_itemCounts"];
+        {
+            private _item = _x;
+            private _index = _itemTypes find _item;
+            _vehicleCount = _vehicleCount + (_itemCounts param [_index, 0]);
+        } forEach _magazineItems;
+    };
+    if (_itemItems isNotEqualTo []) then {
+        (getItemCargo _vehicle) params ["_itemTypes", "_itemCounts"];
+        {
+            private _item = _x;
+            private _index = _itemTypes find _item;
+            _vehicleCount = _vehicleCount + (_itemCounts param [_index, 0]);
+        } forEach _itemItems;
+    };
 };
 
 [_medicCount, _patientCount, _vehicleCount]

addons/medical_treatment/CfgMagazines.hpp

@@ -0,0 +1,16 @@
+class CfgMagazines {
+    class CA_Magazine;
+    class ACE_painkillers: CA_Magazine {
+        scope = 2;
+        author = ECSTRING(common,ACETeam);
+        displayName = CSTRING(painkillers_Display);
+        model = "\A3\Structures_F_EPA\Items\Medical\PainKillers_F.p3d";
+        picture = QPATHTOF(ui\painkillers_ca.paa);
+        descriptionShort = CSTRING(painkillers_Desc_Short);
+        descriptionUse = CSTRING(painkillers_Desc_Use);
+        ACE_isMedicalItem = 1;
+        ACE_asItem = 1;
+        count = 10;
+        mass = 1;
+    };
+};

addons/medical_treatment/CfgVehicles.hpp

@@ -290,8 +290,8 @@ class CfgVehicles {
         displayName = CSTRING(painkillers_Display);
         author = "Alganthe";
         vehicleClass = "Items";
-        class TransportItems {
-            MACRO_ADDITEM(ACE_painkillers,1);
+        class TransportMagazines {
+            MACRO_ADDMAGAZINE(ACE_painkillers,1);
         };
     };
 
@@ -313,9 +313,11 @@ class CfgVehicles {
         model = QPATHTOF(data\ace_medcrate.p3d);
         editorPreview = QPATHTOF(data\ACE_medicalSupplyCrate.jpg);
         author = ECSTRING(common,ACETeam);
+        class TransportMagazines {
+            MACRO_ADDMAGAZINE(ACE_painkillers,25);
+        };
         class TransportItems {
             MACRO_ADDITEM(ACE_fieldDressing,50);
-            MACRO_ADDITEM(ACE_painkillers,25);
             MACRO_ADDITEM(ACE_morphine,25);
             MACRO_ADDITEM(ACE_epinephrine,25);
             MACRO_ADDITEM(ACE_bloodIV,15);
@@ -357,13 +359,15 @@ class CfgVehicles {
     };
     class ACE_medicalSupplyCrate_advanced: ACE_medicalSupplyCrate {
         displayName = CSTRING(medicalSupplyCrate_advanced);
+        class TransportMagazines {
+            MACRO_ADDMAGAZINE(ACE_painkillers,15);
+        };
         class TransportItems {
             MACRO_ADDITEM(ACE_fieldDressing,25);
             MACRO_ADDITEM(ACE_packingBandage,25);
             MACRO_ADDITEM(ACE_elasticBandage,25);
             MACRO_ADDITEM(ACE_tourniquet,15);
             MACRO_ADDITEM(ACE_splint,15);
-            MACRO_ADDITEM(ACE_painkillers,15);
             MACRO_ADDITEM(ACE_morphine,15);
             MACRO_ADDITEM(ACE_adenosine,15);
             MACRO_ADDITEM(ACE_epinephrine,15);

addons/medical_treatment/CfgWeapons.hpp

@@ -310,17 +310,4 @@ class CfgWeapons {
         hiddenSelectionsTextures[] = {QPATHTOF(data\bodybagItem_white_co.paa)};
         GVAR(bodyBagObject) = "ACE_bodyBagObject_white";
     };
-    class ACE_painkillers: ACE_ItemCore {
-        scope = 2;
-        author = "Alganthe";
-        displayName = CSTRING(painkillers_Display);
-        model = "\A3\Structures_F_EPA\Items\Medical\PainKillers_F.p3d";
-        picture = QPATHTOF(ui\painkillers_ca.paa);
-        descriptionShort = CSTRING(painkillers_Desc_Short);
-        descriptionUse = CSTRING(painkillers_Desc_Use);
-        ACE_isMedicalItem = 1;
-        class ItemInfo: CBA_MiscItem_ItemInfo {
-            mass = 1;
-        };
-    };
 };

addons/medical_treatment/config.cpp

@@ -30,5 +30,6 @@ class CfgPatches {
 #include "CfgVehicles.hpp"
 #include "CfgWeapons.hpp"
 #include "Cfg3DEN.hpp"
+#include "CfgMagazines.hpp"
 
 #endif

addons/medical_treatment/functions/fnc_hasItem.sqf

@@ -25,10 +25,11 @@ params ["_medic", "_patient", "_items"];
 private _fnc_checkItems = {
     params ["_unit"];
 
-    private _unitItems = _unit call EFUNC(common,uniqueItems);
+    private _unitItems = [_unit, 1] call EFUNC(common,uniqueItems);
     private _unitVehicle = objectParent _unit;
     if (!isNull _unitVehicle) then {
         _unitItems append (itemCargo _unitVehicle);
+        _unitItems append ((magazinesAmmoCargo _unitVehicle) apply { _x select 0 });
     };
     _items findIf {_x in _unitItems} != -1
 };

addons/medical_treatment/functions/fnc_medication.sqf

@@ -23,6 +23,7 @@
 params ["_medic", "_patient", "_bodyPart", "_classname", "", "_usedItem"];
 
 [_patient, _usedItem] call FUNC(addToTriageCard);
-[_patient, "activity", LSTRING(Activity_usedItem), [[_medic, false, true] call EFUNC(common,getName), getText (configFile >> "CfgWeapons" >> _usedItem >> "displayName")]] call FUNC(addToLog);
+private _cfg = ["CfgWeapons", "CfgMagazines"] select (_usedItem call BIS_fnc_itemType select 0 isEqualTo "Magazine");
+[_patient, "activity", LSTRING(Activity_usedItem), [[_medic, false, true] call EFUNC(common,getName), getText (configFile >> _cfg >> _usedItem >> "displayName")]] call FUNC(addToLog);
 
 [QGVAR(medicationLocal), [_patient, _bodyPart, _classname], _patient] call CBA_fnc_targetEvent;

addons/medical_treatment/functions/fnc_treatmentFailure.sqf

@@ -23,7 +23,11 @@ _args params ["_medic", "_patient", "_bodyPart", "_classname", "_itemUser", "_us
 
 // Return used item to user (if used)
 if (!isNull _itemUser) then {
-    [_itemUser, _usedItem] call EFUNC(common,addToInventory);
+    if !(((_usedItem call BIS_fnc_itemType) select 0) isEqualTo "Magazine") then {
+        [_itemUser, _usedItem] call EFUNC(common,addToInventory);
+    } else {
+        [_itemUser, _usedItem, 1] call EFUNC(common,adjustMagazineAmmo);
+    };
 };
 
 // Switch medic to end animation immediately