Arma3_Epoch/ACE3
1
0
Fork 0
mirror of https://github.com/acemod/ACE3.git synced 2024-08-30 18:23:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #2550 from acemod/commoncleanup10

Browse Source 
common code cleanup part 10, close #2319
This commit is contained in:
commy2
2015-09-21 15:09:56 +02:00
parent ef099861a3 df3211cc42
commit 414151de38
32 changed files with 478 additions and 466 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
addons/common/XEH_preInit.sqf
View File

@ -208,6 +208,7 @@ PREP(getConfigGunner);
PREP(getConfigCommander); PREP(getConfigCommander);
PREP(getHitPoints); PREP(getHitPoints);
PREP(getHitPointsWithSelections); PREP(getHitPointsWithSelections);
PREP(getSelectionsWithoutHitPoints);
PREP(getReflectorsWithSelections); PREP(getReflectorsWithSelections);
PREP(getLightProperties); PREP(getLightProperties);
PREP(getLightPropertiesWeapon); PREP(getLightPropertiesWeapon);

34
addons/common/functions/fnc_getFirstObjectIntersection.sqf
View File

@ -1,23 +1,31 @@
/** /*
* fn_getFirstIntersection.sqf * Author: Ruthberg
* @Descr: Returns the the first intersection with an object between two positions * Returns the the first intersection with terrain between two positions. @todo rewrite using lineIntersectsSurfaces?
* @Author: Ruthberg
* *
* @Arguments: [position PositionASL, position PositionASL, accuracy FLOAT] * Arguments:
* @Return: [intersects BOOL, intersection PositionASL] * 0: PositionASL <ARRAY>
* @PublicAPI: true * 1: PositionATL <ARRAY>
* 2: Accuracy <NUMBER>
*
* Return Value:
* 0: Intersects <BOOL>
* 1: Intersection Position ASL <ARRAY>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_distance", "_lower", "_upper", "_mid", "_intersections", "_result", "_dir"]; params ["_source", "_destination", "_accuracy"];
PARAMS_3(_source,_destination,_accuracy); private ["_result", "_distance"];
_result = [false, [0, 0, 0]]; _result = [false, [0, 0, 0]];
_distance = _source vectorDistance _destination; _distance = _source vectorDistance _destination;
if (count (lineIntersectsWith [_source, _destination]) > 0) then { if !(lineIntersectsWith [_source, _destination] isEqualTo []) then {
private ["_lower", "_upper", "_mid", "_dir"];
_lower = 0; _lower = 0;
_upper = 1; _upper = 1;
_mid = 0.5; _mid = 0.5;
@ -27,9 +35,7 @@ if (count (lineIntersectsWith [_source, _destination]) > 0) then {
while {(_upper - _lower) * _distance > _accuracy} do { while {(_upper - _lower) * _distance > _accuracy} do {
_mid = _lower + (_upper - _lower) / 2; _mid = _lower + (_upper - _lower) / 2;
_intersections = count (lineIntersectsWith [_source, _source vectorAdd (_dir vectorMultiply (_mid * _distance))]); if !(lineIntersectsWith [_source, _source vectorAdd (_dir vectorMultiply (_mid * _distance))] isEqualTo []) then {
if (_intersections > 0) then {
_upper = _mid; _upper = _mid;
} else { } else {
_lower = _mid; _lower = _mid;

30
addons/common/functions/fnc_getFirstTerrainIntersection.sqf
View File

@ -1,23 +1,31 @@
/** /*
* fn_getFirstIntersection.sqf * Author: Ruthberg
* @Descr: Returns the the first intersection with an object between two positions * Returns the the first intersection with an object between two positions. @todo rewrite using lineIntersectsSurfaces?
* @Author: Ruthberg
* *
* @Arguments: [position PositionASL, position PositionASL, accuracy FLOAT] * Arguments:
* @Return: [intersects BOOL, intersection PositionASL] * 0: PositionASL <ARRAY>
* @PublicAPI: true * 1: PositionATL <ARRAY>
* 2: Accuracy <NUMBER>
*
* Return Value:
* 0: Intersects <BOOL>
* 1: Intersection Position ASL <ARRAY>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_distance", "_lower", "_upper", "_mid", "_intersection", "_result", "_dir"]; params ["_source", "_destination", "_accuracy"];
PARAMS_3(_source,_destination,_accuracy); private ["_result", "_distance"];
_result = [false, [0, 0, 0]]; _result = [false, [0, 0, 0]];
_distance = _source vectorDistance _destination; _distance = _source vectorDistance _destination;
if (terrainIntersectASL [_source, _destination]) then { if (terrainIntersectASL [_source, _destination]) then {
private ["_lower", "_upper", "_mid", "_dir"];
_lower = 0; _lower = 0;
_upper = 1; _upper = 1;
_mid = 0.5; _mid = 0.5;
@ -27,9 +35,7 @@ if (terrainIntersectASL [_source, _destination]) then {
while {(_upper - _lower) * _distance > _accuracy} do { while {(_upper - _lower) * _distance > _accuracy} do {
_mid = _lower + (_upper - _lower) / 2; _mid = _lower + (_upper - _lower) / 2;
_intersection = terrainIntersectASL [_source, _source vectorAdd (_dir vectorMultiply (_mid * _distance))]; if (terrainIntersectASL [_source, _source vectorAdd (_dir vectorMultiply (_mid * _distance))]) then {
if (_intersection) then {
_upper = _mid; _upper = _mid;
} else { } else {
_lower = _mid; _lower = _mid;

55
addons/common/functions/fnc_getHitPoints.sqf
View File

@ -1,56 +1,19 @@
/* /*
* Author: commy2 * Author: commy2
* * Returns all hitpoints and their selections of any vehicle. Might contain duplicates if the turrets contain non unique hitpoints with different selection names.
* Returns all hitpoints of any vehicle. Non unique hitpoints in turrets are ignored.
* *
* Arguments: * Arguments:
* 0: A vehicle, not the classname (Object) * 0: Vehicle <OBJECT>
* *
* Return Value: * Return Value:
* The hitpoints (Array) * Hitpoints <ARRAY>
*
* Public: Yes
*
* Deprecated
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_config", "_hitpoints", "_i"]; params ["_vehicle"];
PARAMS_1(_vehicle); (getAllHitPointsDamage _vehicle select 0) - [""]
_config = configFile >> "CfgVehicles" >> typeOf _vehicle;
_hitpoints = [];
// get all classes that can contain hitpoints
private "_hitpointClasses";
_hitpointClasses = [_config >> "HitPoints"];
{
private "_class";
_class = ([_config, _x] call FUNC(getTurretConfigPath)) >> "HitPoints";
if (isClass _class) then {
_hitpointClasses pushBack _class;
};
} forEach allTurrets _vehicle;
// iterate through all classes with hitpoints and their parents
{
private "_class";
_class = _x;
while {isClass _class} do {
for "_i" from 0 to (count _class - 1) do {
private "_entry";
_entry = configName (_class select _i);
if (!(_entry in _hitpoints) && {!isNil {_vehicle getHitPointDamage _entry}}) then {
_hitpoints pushBack _entry;
};
};
_class = inheritsFrom _class;
};
} forEach _hitpointClasses;
_hitpoints

62
addons/common/functions/fnc_getHitPointsWithSelections.sqf
View File

@ -1,61 +1,25 @@
/* /*
* Author: commy2 * Author: commy2
* * Returns all hitpoints and their respective selections of any vehicle. Might contain duplicates for non unique hitpoints in turrets.
* Returns all hitpoints and their selections of any vehicle. Might contain duplicates if the turrets contain non unique hitpoints with different selection names.
* *
* Arguments: * Arguments:
* 0: A vehicle, not the classname (Object) * 0: Vehicle <OBJECT>
* *
* Return Value: * Return Value:
* The hitpoints with selections. Format: [hitpoints, selections]. They correspond by index. (Array) * 0: Hitpoints <ARRAY>
* 1: Selections <ARRAY>
*
* Public: Yes
*
* Deprecated
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_config", "_hitpoints", "_selections", "_i"]; params ["_vehicle"];
PARAMS_1(_vehicle); private "_hitPointsWithSelections";
_hitPointsWithSelections = getAllHitPointsDamage _vehicle;
_config = configFile >> "CfgVehicles" >> typeOf _vehicle; _hitPointsWithSelections resize 2;
_hitpoints = []; _hitPointsWithSelections
_selections = [];
// get all classes that can contain hitpoints
private "_hitpointClasses";
_hitpointClasses = [_config >> "HitPoints"];
{
private "_class";
_class = ([_config, _x] call FUNC(getTurretConfigPath)) >> "HitPoints";
if (isClass _class) then {
_hitpointClasses pushBack _class;
};
} forEach allTurrets _vehicle;
// iterate through all classes with hitpoints and their parents
{
private "_class";
_class = _x;
while {isClass _class} do {
for "_i" from 0 to (count _class - 1) do {
if (isClass (_class select _i)) then {
private ["_entry", "_selection"];
_entry = configName (_class select _i);
_selection = getText (_class select _i >> "name");
if (!(_selection in _selections) && {!isNil {_vehicle getHit _selection}}) then {
_hitpoints pushBack _entry;
_selections pushBack _selection;
};
};
};
_class = inheritsFrom _class;
};
} forEach _hitpointClasses;
[_hitpoints, _selections]

118
addons/common/functions/fnc_getMGRSdata.sqf
View File

@ -1,28 +1,28 @@
/* /*
* Author: VKing * Author: VKing
* Gets the current map's MGRS grid zone designator and 100km square. * Gets the current map's MGRS grid zone designator and 100km square.
* Also gets longitude, latitude and altitude offset for the map * Also gets longitude, latitude and altitude offset for the map.
* Writes return values to GVAR(MGRS_data) if run on the current map.
* *
* Argument: * Argument:
* 0: Optional: Map name, if undefined the current map is used (String) * 0: Map name (default: worldName) <STRING>
* *
* Return value: * Return Value:
* 0: Grid zone designator (String) * 0: Grid zone designator <STRING>
* 1: 100km square (String) * 1: 100km square <STRING>
* 2: GZD + 100km sq. as a single string (String) * 2: GZD + 100km sq. as a single string <STRING>
* Writes return values to GVAR(MGRS_data) if run on the current map *
* Public: No
*/ */
// #define DEBUG_MODE_FULL
#include "script_component.hpp" #include "script_component.hpp"
private ["_zone","_band","_GZD","_long","_lat","_UTM","_easting","_northing", "_altitude"]; params [["_map", worldName]];
DEFAULT_PARAM(0,_map,worldName); private ["_long", "_lat", "_altitude", "_UTM", "_easting", "_northing", "_zone", "_band", "_GZD"];
_long = getNumber (ConfigFile >> "CfgWorlds" >> _map >> "longitude"); _long = getNumber (configFile >> "CfgWorlds" >> _map >> "longitude");
_lat = getNumber (ConfigFile >> "CfgWorlds" >> _map >> "latitude"); _lat = getNumber (configFile >> "CfgWorlds" >> _map >> "latitude");
_altitude = getNumber (ConfigFile >> "CfgWorlds" >> _map >> "elevationOffset"); _altitude = getNumber (configFile >> "CfgWorlds" >> _map >> "elevationOffset");
if (_map in ["Chernarus", "Bootcamp_ACR", "Woodland_ACR", "utes"]) then { _lat = 50; _altitude = 0; }; if (_map in ["Chernarus", "Bootcamp_ACR", "Woodland_ACR", "utes"]) then { _lat = 50; _altitude = 0; };
if (_map in ["Altis", "Stratis"]) then { _lat = 40; _altitude = 0; }; if (_map in ["Altis", "Stratis"]) then { _lat = 40; _altitude = 0; };
@ -46,11 +46,10 @@ if (_map in ["lingor"]) then { _lat = -4; _altitude = 0; };
if (_map in ["Panthera3"]) then { _lat = 46; _altitude = 0; }; if (_map in ["Panthera3"]) then { _lat = 46; _altitude = 0; };
if (_map in ["Kunduz"]) then { _lat = 37; _altitude = 400; }; if (_map in ["Kunduz"]) then { _lat = 37; _altitude = 400; };
_UTM = [_long,_lat] call BIS_fnc_posDegToUTM; _UTM = [_long,_lat] call BIS_fnc_posDegToUTM;
_easting = _UTM select 0; _easting = _UTM select 0;
_northing = _UTM select 1; _northing = _UTM select 1;
// _zone = _UTM select 2; //_zone = _UTM select 2;
TRACE_4("",_UTM,_easting,_northing,_zone); TRACE_4("",_UTM,_easting,_northing,_zone);
/* /*
@ -76,9 +75,11 @@ _band = switch (true) do {
case (_lat>8): {"P"}; case (_lat>8): {"P"};
case (_lat>=0): {"N"}; case (_lat>=0): {"N"};
}; };
*/ */
_zone = 1 + (floor ((_long + 180) / 6)); _zone = 1 + (floor ((_long + 180) / 6));
_band = "Z"; _band = "Z";
if (_lat <= -80) then { if (_lat <= -80) then {
_band = "A"; _band = "A";
} else { } else {
@ -86,13 +87,13 @@ if (_lat <= -80) then {
_band = "CDEFGHJKLMNPQRSTUVWXX" select [(floor ((_lat / 8) + 10)), 1]; _band = "CDEFGHJKLMNPQRSTUVWXX" select [(floor ((_lat / 8) + 10)), 1];
}; };
}; };
if (_map == "VR") then {_zone = 0; _band = "RV";}; if (_map == "VR") then {_zone = 0; _band = "RV";};
_GZD = format ["%1%2",_zone,_band]; _GZD = format ["%1%2",_zone,_band];
TRACE_3("",_zone,_band,_GZD); TRACE_3("",_zone,_band,_GZD);
private ["_set1", "_set2", "_set3", "_set4", "_set5", "_set6", "_metaE", "_metaN", "_letterE", "_letterN", "_grid100km"];
private ["_set1","_set2","_set3","_set4","_set5","_set6","_metaE","_metaN","_letterE","_letterN","_grid100km"];
_set1 = [1,7,13,19,25,31,37,43,49,55]; _set1 = [1,7,13,19,25,31,37,43,49,55];
_set2 = [2,8,14,20,26,32,38,44,50,56]; _set2 = [2,8,14,20,26,32,38,44,50,56];
@ -102,25 +103,25 @@ _set5 = [5,11,17,23,29,35,41,47,53,59];
_set6 = [6,12,18,24,30,36,42,48,54,60]; _set6 = [6,12,18,24,30,36,42,48,54,60];
switch (true) do { switch (true) do {
case (_zone in _set1): {_metaE = 1; _metaN = 1;}; case (_zone in _set1): {_metaE = 1; _metaN = 1;};
case (_zone in _set2): {_metaE = 2; _metaN = 2;}; case (_zone in _set2): {_metaE = 2; _metaN = 2;};
case (_zone in _set3): {_metaE = 3; _metaN = 1;}; case (_zone in _set3): {_metaE = 3; _metaN = 1;};
case (_zone in _set4): {_metaE = 1; _metaN = 2;}; case (_zone in _set4): {_metaE = 1; _metaN = 2;};
case (_zone in _set5): {_metaE = 2; _metaN = 1;}; case (_zone in _set5): {_metaE = 2; _metaN = 1;};
case (_zone in _set6): {_metaE = 3; _metaN = 2;}; case (_zone in _set6): {_metaE = 3; _metaN = 2;};
}; };
TRACE_2("",_metaE,_metaN); TRACE_2("",_metaE,_metaN);
switch (true) do { switch (true) do {
case (_zone == 0): {_letterE = "E"}; case (_zone == 0): {_letterE = "E"};
case (_easting > 800000): {LOG("E8"); switch (_metaE) do {case 1: {_letterE="H"}; case 2: {_letterE="R"}; case 3: {_letterE="Z"}; }; }; case (_easting > 800000): {LOG("E8"); switch (_metaE) do {case 1: {_letterE="H"}; case 2: {_letterE="R"}; case 3: {_letterE="Z"}; }; };
case (_easting > 700000): {LOG("E7"); switch (_metaE) do {case 1: {_letterE="G"}; case 2: {_letterE="Q"}; case 3: {_letterE="Y"}; }; }; case (_easting > 700000): {LOG("E7"); switch (_metaE) do {case 1: {_letterE="G"}; case 2: {_letterE="Q"}; case 3: {_letterE="Y"}; }; };
case (_easting > 600000): {LOG("E6"); switch (_metaE) do {case 1: {_letterE="F"}; case 2: {_letterE="P"}; case 3: {_letterE="X"}; }; }; case (_easting > 600000): {LOG("E6"); switch (_metaE) do {case 1: {_letterE="F"}; case 2: {_letterE="P"}; case 3: {_letterE="X"}; }; };
case (_easting > 500000): {LOG("E5"); switch (_metaE) do {case 1: {_letterE="E"}; case 2: {_letterE="N"}; case 3: {_letterE="W"}; }; }; case (_easting > 500000): {LOG("E5"); switch (_metaE) do {case 1: {_letterE="E"}; case 2: {_letterE="N"}; case 3: {_letterE="W"}; }; };
case (_easting > 400000): {LOG("E4"); switch (_metaE) do {case 1: {_letterE="D"}; case 2: {_letterE="M"}; case 3: {_letterE="V"}; }; }; case (_easting > 400000): {LOG("E4"); switch (_metaE) do {case 1: {_letterE="D"}; case 2: {_letterE="M"}; case 3: {_letterE="V"}; }; };
case (_easting > 300000): {LOG("E3"); switch (_metaE) do {case 1: {_letterE="C"}; case 2: {_letterE="L"}; case 3: {_letterE="U"}; }; }; case (_easting > 300000): {LOG("E3"); switch (_metaE) do {case 1: {_letterE="C"}; case 2: {_letterE="L"}; case 3: {_letterE="U"}; }; };
case (_easting > 200000): {LOG("E2"); switch (_metaE) do {case 1: {_letterE="B"}; case 2: {_letterE="K"}; case 3: {_letterE="T"}; }; }; case (_easting > 200000): {LOG("E2"); switch (_metaE) do {case 1: {_letterE="B"}; case 2: {_letterE="K"}; case 3: {_letterE="T"}; }; };
case (_easting > 100000): {LOG("E1"); switch (_metaE) do {case 1: {_letterE="A"}; case 2: {_letterE="J"}; case 3: {_letterE="S"}; }; }; case (_easting > 100000): {LOG("E1"); switch (_metaE) do {case 1: {_letterE="A"}; case 2: {_letterE="J"}; case 3: {_letterE="S"}; }; };
default {_letterE="@"}; default {_letterE="@"};
}; };
TRACE_1("",_letterE); TRACE_1("",_letterE);
@ -129,37 +130,38 @@ _northing = _northing mod 2000000;
TRACE_1("",_northing); TRACE_1("",_northing);
switch (true) do { switch (true) do {
case (_zone == 0): {_letterN = "N"}; case (_zone == 0): {_letterN = "N"};
case (_northing > 1900000): {LOG("N19"); switch (_metaN) do {case 1: {_letterN = "V"}; case 2: {_letterN = "E"}; }; }; case (_northing > 1900000): {LOG("N19"); switch (_metaN) do {case 1: {_letterN = "V"}; case 2: {_letterN = "E"}; }; };
case (_northing > 1800000): {LOG("N18"); switch (_metaN) do {case 1: {_letterN = "U"}; case 2: {_letterN = "D"}; }; }; case (_northing > 1800000): {LOG("N18"); switch (_metaN) do {case 1: {_letterN = "U"}; case 2: {_letterN = "D"}; }; };
case (_northing > 1700000): {LOG("N17"); switch (_metaN) do {case 1: {_letterN = "T"}; case 2: {_letterN = "C"}; }; }; case (_northing > 1700000): {LOG("N17"); switch (_metaN) do {case 1: {_letterN = "T"}; case 2: {_letterN = "C"}; }; };
case (_northing > 1600000): {LOG("N16"); switch (_metaN) do {case 1: {_letterN = "S"}; case 2: {_letterN = "B"}; }; }; case (_northing > 1600000): {LOG("N16"); switch (_metaN) do {case 1: {_letterN = "S"}; case 2: {_letterN = "B"}; }; };
case (_northing > 1500000): {LOG("N15"); switch (_metaN) do {case 1: {_letterN = "R"}; case 2: {_letterN = "A"}; }; }; case (_northing > 1500000): {LOG("N15"); switch (_metaN) do {case 1: {_letterN = "R"}; case 2: {_letterN = "A"}; }; };
case (_northing > 1400000): {LOG("N14"); switch (_metaN) do {case 1: {_letterN = "Q"}; case 2: {_letterN = "V"}; }; }; case (_northing > 1400000): {LOG("N14"); switch (_metaN) do {case 1: {_letterN = "Q"}; case 2: {_letterN = "V"}; }; };
case (_northing > 1300000): {LOG("N13"); switch (_metaN) do {case 1: {_letterN = "P"}; case 2: {_letterN = "U"}; }; }; case (_northing > 1300000): {LOG("N13"); switch (_metaN) do {case 1: {_letterN = "P"}; case 2: {_letterN = "U"}; }; };
case (_northing > 1200000): {LOG("N12"); switch (_metaN) do {case 1: {_letterN = "N"}; case 2: {_letterN = "T"}; }; }; case (_northing > 1200000): {LOG("N12"); switch (_metaN) do {case 1: {_letterN = "N"}; case 2: {_letterN = "T"}; }; };
case (_northing > 1100000): {LOG("N11"); switch (_metaN) do {case 1: {_letterN = "M"}; case 2: {_letterN = "S"}; }; }; case (_northing > 1100000): {LOG("N11"); switch (_metaN) do {case 1: {_letterN = "M"}; case 2: {_letterN = "S"}; }; };
case (_northing > 1000000): {LOG("N10"); switch (_metaN) do {case 1: {_letterN = "L"}; case 2: {_letterN = "R"}; }; }; case (_northing > 1000000): {LOG("N10"); switch (_metaN) do {case 1: {_letterN = "L"}; case 2: {_letterN = "R"}; }; };
case (_northing > 900000): {LOG("N09"); switch (_metaN) do {case 1: {_letterN = "K"}; case 2: {_letterN = "Q"}; }; }; case (_northing > 900000): {LOG("N09"); switch (_metaN) do {case 1: {_letterN = "K"}; case 2: {_letterN = "Q"}; }; };
case (_northing > 800000): {LOG("N08"); switch (_metaN) do {case 1: {_letterN = "J"}; case 2: {_letterN = "P"}; }; }; case (_northing > 800000): {LOG("N08"); switch (_metaN) do {case 1: {_letterN = "J"}; case 2: {_letterN = "P"}; }; };
case (_northing > 700000): {LOG("N07"); switch (_metaN) do {case 1: {_letterN = "H"}; case 2: {_letterN = "N"}; }; }; case (_northing > 700000): {LOG("N07"); switch (_metaN) do {case 1: {_letterN = "H"}; case 2: {_letterN = "N"}; }; };
case (_northing > 600000): {LOG("N06"); switch (_metaN) do {case 1: {_letterN = "G"}; case 2: {_letterN = "M"}; }; }; case (_northing > 600000): {LOG("N06"); switch (_metaN) do {case 1: {_letterN = "G"}; case 2: {_letterN = "M"}; }; };
case (_northing > 500000): {LOG("N05"); switch (_metaN) do {case 1: {_letterN = "F"}; case 2: {_letterN = "L"}; }; }; case (_northing > 500000): {LOG("N05"); switch (_metaN) do {case 1: {_letterN = "F"}; case 2: {_letterN = "L"}; }; };
case (_northing > 400000): {LOG("N04"); switch (_metaN) do {case 1: {_letterN = "E"}; case 2: {_letterN = "K"}; }; }; case (_northing > 400000): {LOG("N04"); switch (_metaN) do {case 1: {_letterN = "E"}; case 2: {_letterN = "K"}; }; };
case (_northing > 300000): {LOG("N03"); switch (_metaN) do {case 1: {_letterN = "D"}; case 2: {_letterN = "J"}; }; }; case (_northing > 300000): {LOG("N03"); switch (_metaN) do {case 1: {_letterN = "D"}; case 2: {_letterN = "J"}; }; };
case (_northing > 200000): {LOG("N02"); switch (_metaN) do {case 1: {_letterN = "C"}; case 2: {_letterN = "H"}; }; }; case (_northing > 200000): {LOG("N02"); switch (_metaN) do {case 1: {_letterN = "C"}; case 2: {_letterN = "H"}; }; };
case (_northing > 100000): {LOG("N01"); switch (_metaN) do {case 1: {_letterN = "B"}; case 2: {_letterN = "G"}; }; }; case (_northing > 100000): {LOG("N01"); switch (_metaN) do {case 1: {_letterN = "B"}; case 2: {_letterN = "G"}; }; };
case (_northing > 0): {LOG("N00"); switch (_metaN) do {case 1: {_letterN = "A"}; case 2: {_letterN = "F"}; }; }; case (_northing > 0): {LOG("N00"); switch (_metaN) do {case 1: {_letterN = "A"}; case 2: {_letterN = "F"}; }; };
}; };
TRACE_1("",_letterN); TRACE_1("",_letterN);
_grid100km = _letterE+_letterN; _grid100km = _letterE + _letterN;
TRACE_1("",_grid100km); TRACE_1("",_grid100km);
if (_map == worldName) then { if (_map == worldName) then {
GVAR(MGRS_data) = [_GZD,_grid100km,_GZD+_grid100km]; GVAR(MGRS_data) = [_GZD, _grid100km, _GZD + _grid100km];
GVAR(mapAltitude) = _altitude; GVAR(mapAltitude) = _altitude;
GVAR(mapLatitude) = _lat; GVAR(mapLatitude) = _lat;
GVAR(mapLongitude) = _long; GVAR(mapLongitude) = _long;
}; };
[_GZD,_grid100km,_GZD+_grid100km]
[_GZD, _grid100km, _GZD + _grid100km]

28
addons/common/functions/fnc_getMapGridData.sqf
View File

@ -1,12 +1,13 @@
/* /*
* Author: PabstMirror (ideas from Nou's mapGridToPos and BIS_fnc_gridToPos) * Author: PabstMirror
* Finds real x/y offset and map step for a 10 digit grid * Finds real x/y offset and map step for a 10 digit grid
* Save time by preparing data one time at startup * Save time by preparing data one time at startup
* Ideas from Nou's mapGridToPos and BIS_fnc_gridToPos
* *
* Argument: * Arguments:
* None * None
* *
* Return values: * Return Value:
* None * None
* *
* Example: * Example:
@ -16,10 +17,10 @@
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private["_cfgGrid", "_formatX", "_formatY", "_heightOffset", "_offsetX", "_offsetY", "_originGrid", "_realOffsetY", "_startGrid", "_stepX", "_stepY", "_zoom", "_zoomMax", "_letterGrid"];
GVAR(mapGridData) = []; GVAR(mapGridData) = [];
private ["_cfgGrid", "_offsetX", "_offsetY", "_zoomMax", "_formatX", "_formatY", "_stepX", "_stepY", "_zoom", "_letterGrid", "_heightOffset", "_startGrid", "_originGrid", "_realOffsetY"];
//--- Extract grid values from world config (Borrowed from BIS_fnc_gridToPos) //--- Extract grid values from world config (Borrowed from BIS_fnc_gridToPos)
_cfgGrid = configFile >> "CfgWorlds" >> worldName >> "Grid"; _cfgGrid = configFile >> "CfgWorlds" >> worldName >> "Grid";
_offsetX = getNumber (_cfgGrid >> "offsetX"); _offsetX = getNumber (_cfgGrid >> "offsetX");
@ -29,6 +30,7 @@ _formatX = "";
_formatY = ""; _formatY = "";
_stepX = 1e10; _stepX = 1e10;
_stepY = 1e10; _stepY = 1e10;
{ {
_zoom = getnumber (_x >> "zoomMax"); _zoom = getnumber (_x >> "zoomMax");
if (_zoom < _zoomMax) then { if (_zoom < _zoomMax) then {
@ -38,11 +40,14 @@ _stepY = 1e10;
_stepX = getNumber (_x >> "stepX"); _stepX = getNumber (_x >> "stepX");
_stepY = getNumber (_x >> "stepY"); _stepY = getNumber (_x >> "stepY");
}; };
} foreach configProperties [_cfgGrid, "isClass _x", false]; false
} count configProperties [_cfgGrid, "isClass _x", false];
_letterGrid = false; _letterGrid = false;
if (((toLower _formatX) find "a") != -1) then {_letterGrid = true};
if (((toLower _formatY) find "a") != -1) then {_letterGrid = true}; if (toLower _formatX find "a" != -1) then {_letterGrid = true};
if (toLower _formatY find "a" != -1) then {_letterGrid = true};
if (_letterGrid) exitWith { if (_letterGrid) exitWith {
ACE_LOGWARNING_3("Map Grid Warning (%1) - Map uses letter grids [%2, %3]",worldName,_formatX,_formatY); ACE_LOGWARNING_3("Map Grid Warning (%1) - Map uses letter grids [%2, %3]",worldName,_formatX,_formatY);
}; };
@ -51,13 +56,14 @@ if (_letterGrid) exitWith {
_heightOffset = 500; _heightOffset = 500;
_startGrid = mapGridPosition [0, _heightOffset]; _startGrid = mapGridPosition [0, _heightOffset];
_originGrid = _startGrid; _originGrid = _startGrid;
while {_startGrid == _originGrid} do { while {_startGrid == _originGrid} do {
_heightOffset = _heightOffset + 1; _heightOffset = _heightOffset + 1;
_originGrid = mapGridPosition [0, _heightOffset]; _originGrid = mapGridPosition [0, _heightOffset];
}; };
//Calculate the real y offset //Calculate the real y offset
_realOffsetY = parseNumber (_originGrid select [(count _formatX), (count _formatY)]) * _stepY + _heightOffset - 1; _realOffsetY = (parseNumber (_originGrid select [count _formatX, count _formatY])) * _stepY + _heightOffset - 1;
//Calculate MGRS 10digit step - they should both be 1 meter: //Calculate MGRS 10digit step - they should both be 1 meter:
_stepXat5 = _stepX * 10 ^ ((count _formatX) - 5); _stepXat5 = _stepX * 10 ^ ((count _formatX) - 5);
@ -66,10 +72,12 @@ _stepYat5 = -1 * _stepY * 10 ^ ((count _formatY) - 5);
if (_stepYat5 < 0) then { if (_stepYat5 < 0) then {
ACE_LOGWARNING_1("Map Grid Warning (%1) - Northing is reversed.",worldName); ACE_LOGWARNING_1("Map Grid Warning (%1) - Northing is reversed.",worldName);
}; };
if (_stepXat5 != 1) then { if (_stepXat5 != 1) then {
ACE_LOGWARNING_2("Map Grid Warning (%1) - MGRS 10 digit grid does not equal 1 meter: (%2) for x.",worldName,_stepXat5); ACE_LOGWARNING_2("Map Grid Warning (%1) - MGRS 10 digit grid does not equal 1 meter: (%2) for x.",worldName,_stepXat5);
}; };
if ((_stepYat5 != 1) && {_stepYat5 != -1}) then {
if (_stepYat5 != 1 && {_stepYat5 != -1}) then {
ACE_LOGWARNING_2("Map Grid Warning (%1) - MGRS 10 digit grid does not equal 1 meter: (%2) for y.",worldName,_stepXat5); ACE_LOGWARNING_2("Map Grid Warning (%1) - MGRS 10 digit grid does not equal 1 meter: (%2) for y.",worldName,_stepXat5);
}; };

33
addons/common/functions/fnc_getMapGridFromPos.sqf
View File

@ -2,57 +2,58 @@
* Author: VKing, PabstMirror * Author: VKing, PabstMirror
* Gets a 10-digit map grid for the given world position * Gets a 10-digit map grid for the given world position
* *
* Argument: * Arguments:
* 0: Position (2D Position) <ARRAY> * 0: Position (2D Position) <ARRAY>
* 1: Return type; false for array of easting and northing, true for single string <Bool> * 1: Return type; false for array of easting and northing, true for single string (default: false) <BOOL>
* *
* Return values: * Return Value:
* 0: Easting <String> * 0: Easting <String>
* 1: Northing <String> * 1: Northing <String>
* *
* Example: * Example:
* [(getPos player)] call ace_common_fnc_getMapGridFromPos; * [getPos player] call ace_common_fnc_getMapGridFromPos
* *
* Public: Yes * Public: Yes
*/ */
// #define DEBUG_MODE_FULL
#include "script_component.hpp" #include "script_component.hpp"
PARAMS_1(_pos); params ["_pos", ["_returnSingleString", false]];
DEFAULT_PARAM(1,_returnSingleString,false);
private["_count", "_easting", "_nativeGrid", "_northing"]; private ["_nativeGrid", "_count", "_easting", "_northing"];
//Fallback, when map data is weird (letters) //Fallback, when map data is weird (letters)
if ((count GVAR(mapGridData)) == 0) exitWith { if (GVAR(mapGridData) isEqualTo []) exitWith {
_nativeGrid = mapGridPosition _pos; _nativeGrid = mapGridPosition _pos;
if (_returnSingleString) then { if (_returnSingleString) then {
_nativeGrid _nativeGrid
} else { } else {
_count = floor ((count _nativeGrid) / 2); _count = floor ((count _nativeGrid) / 2);
[(_nativeGrid select [0, _count]), (_nativeGrid select [_count, _count])] [_nativeGrid select [0, _count], _nativeGrid select [_count, _count]]
}; };
}; };
EXPLODE_4_PVT(GVAR(mapGridData),_offsetX,_realOffsetY,_stepXat5,_stepYat5); GVAR(mapGridData) params ["_offsetX", "_realOffsetY", "_stepXat5", "_stepYat5"];
_easting = floor (((_pos select 0) - _offsetX) / _stepXat5); _easting = floor (((_pos select 0) - _offsetX) / _stepXat5);
_northing = floor (((_pos select 1) - _realOffsetY) / _stepYat5); _northing = floor (((_pos select 1) - _realOffsetY) / _stepYat5);
//Attempt to handle negative east/north (e.g.: moving west of map bounds) //Attempt to handle negative east/north (e.g.: moving west of map bounds)
if (_easting > 0) then { if (_easting > 0) then {
_easting = str _easting; _easting = str _easting;
while {count _easting < 5} do {_easting = "0" + _easting;}; while {count _easting < 5} do {_easting = "0" + _easting};
} else { } else {
_easting = str abs _easting; _easting = str abs _easting;
while {count _easting < 4} do {_easting = "0" + _easting;}; while {count _easting < 4} do {_easting = "0" + _easting};
_easting = "-" + _easting; _easting = "-" + _easting;
}; };
if (_northing > 0) then { if (_northing > 0) then {
_northing = str _northing; _northing = str _northing;
while {count _northing < 5} do {_northing = "0" + _northing;}; while {count _northing < 5} do {_northing = "0" + _northing};
} else { } else {
_northing = str abs _northing; _northing = str abs _northing;
while {count _northing < 4} do {_northing = "0" + _northing;}; while {count _northing < 4} do {_northing = "0" + _northing};
_northing = "-" + _northing; _northing = "-" + _northing;
}; };
@ -60,4 +61,4 @@ if (_returnSingleString) then {
_easting + _northing _easting + _northing
} else { } else {
[_easting, _northing] [_easting, _northing]
}; }; // return

19
addons/common/functions/fnc_getMapPosFromGrid.sqf
View File

@ -2,9 +2,9 @@
* Author: PabstMirror * Author: PabstMirror
* Gets position from grid cords * Gets position from grid cords
* *
* Argument: * Arguments:
* 0: Grid Cords <STRING> * 0: Grid Cords <STRING>
* 1: Get Center or bottom right <BOOL><OPTIONAL> * 1: Grid center (true), Grid Bottom Right (false) (default: true) <BOOL>
* *
* Return values: * Return values:
* Position <ARRAY> * Position <ARRAY>
@ -16,24 +16,23 @@
*/ */
#include "script_component.hpp" #include "script_component.hpp"
PARAMS_1(_inputString); params ["_inputString", ["_getCenterOfGrid", true]];
DEFAULT_PARAM(1,_getCenterOfGrid,true);
private["_countInput", "_countInputHalf", "_xPart", "_xPos", "_yPart", "_yPos"]; if (count GVAR(mapGridData) == 0) exitWith {
if ((count GVAR(mapGridData)) == 0) exitWith {
ERROR("Map has bad data, falling back to BIS_fnc_gridToPos"); ERROR("Map has bad data, falling back to BIS_fnc_gridToPos");
(_this call BIS_fnc_gridToPos) select 0 (_this call BIS_fnc_gridToPos) select 0
}; };
EXPLODE_4_PVT(GVAR(mapGridData),_offsetX,_realOffsetY,_stepXat5,_stepYat5); GVAR(mapGridData) params ["_offsetX", "_realOffsetY", "_stepXat5", "_stepYat5"];
private ["_countInput", "_countInputHalf", "_xPart", "_yPart", "_xPos", "_yPos"];
_countInput = count _inputString; _countInput = count _inputString;
_countInputHalf = floor (_countInput / 2); _countInputHalf = floor (_countInput / 2);
//Split string, ignoring middle //Split string, ignoring middle
_xPart = _inputString select [0, _countInputHalf]; _xPart = _inputString select [0, _countInputHalf];
_yPart = _inputString select [(ceil (_countInput / 2)), _countInputHalf]; _yPart = _inputString select [ceil (_countInput / 2), _countInputHalf];
_xPos = ((parseNumber _xPart) * _stepXat5 * 10 ^ (5 - _countInputHalf)) + _offsetX; _xPos = ((parseNumber _xPart) * _stepXat5 * 10 ^ (5 - _countInputHalf)) + _offsetX;
_yPos = ((parseNumber _yPart) * _stepYat5 * 10 ^ (5 - _countInputHalf)) + _realOffsetY; _yPos = ((parseNumber _yPart) * _stepYat5 * 10 ^ (5 - _countInputHalf)) + _realOffsetY;
@ -43,4 +42,4 @@ if (_getCenterOfGrid) then {
_yPos = _yPos + 0.5 * _stepYat5 * 10 ^ (5 - _countInputHalf); _yPos = _yPos + 0.5 * _stepYat5 * 10 ^ (5 - _countInputHalf);
}; };
[_xPos, _yPos, 0]; [_xPos, _yPos, 0]

68
addons/common/functions/fnc_getMarkerType.sqf
View File

@ -1,19 +1,20 @@
/* /*
* Author: KoffeinFlummi * Author: KoffeinFlummi
*
* Get the apropriate marker for a group. * Get the apropriate marker for a group.
* *
* Arguments: * Arguments:
* 0: Group * 0: Group
* *
* Return Value: * Return Value:
* Marker Type (string) * Marker Type <STRING>
*
* Public: No
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_leader","_vehicle","_side"]; params ["_group"];
PARAMS_1(_group); private ["_leader", "_vehicle", "_side"];
_leader = leader _group; _leader = leader _group;
_vehicle = vehicle _leader; _vehicle = vehicle _leader;
@ -21,56 +22,61 @@ _side = side _leader;
if (_vehicle == _leader) exitWith { if (_vehicle == _leader) exitWith {
if ( if (
(getNumber (configFile >> "CfgVehicles" >> (typeOf _leader) >> "detectSkill") > 20) or getNumber (configFile >> "CfgVehicles" >> typeOf _leader >> "detectSkill") > 20 ||
(getNumber (configFile >> "CfgVehicles" >> (typeOf _leader) >> "camouflage") < 1) or getNumber (configFile >> "CfgVehicles" >> typeOf _leader >> "camouflage") < 1 ||
(getText (configFile >> "CfgVehicles" >> (typeOf _leader) >> "textsingular") == "diver") getText (configFile >> "CfgVehicles" >> typeOf _leader >> "textsingular") == "diver"
) then { ) then {
["n_recon", "b_recon", "o_recon"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) ["n_recon", "b_recon", "o_recon"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
} else { } else {
["n_inf", "b_inf", "o_inf"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) ["n_inf", "b_inf", "o_inf"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
}; };
}; };
if (getNumber (configFile >> "CfgVehicles" >> (typeOf _vehicle) >> "attendant") == 1) exitWith { if (getNumber (configFile >> "CfgVehicles" >> typeOf _vehicle >> "attendant") == 1) exitWith {
["n_med", "b_med", "o_med"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) ["n_med", "b_med", "o_med"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
}; };
if ( if (
(getNumber (configFile >> "CfgVehicles" >> (typeOf _vehicle) >> "transportRepair") > 0) or getNumber (configFile >> "CfgVehicles" >> typeOf _vehicle >> "transportRepair") > 0 ||
(getNumber (configFile >> "CfgVehicles" >> (typeOf _vehicle) >> "transportFuel") > 0) or getNumber (configFile >> "CfgVehicles" >> typeOf _vehicle >> "transportFuel") > 0 ||
(getNumber (configFile >> "CfgVehicles" >> (typeOf _vehicle) >> "transportAmmo") > 0) or getNumber (configFile >> "CfgVehicles" >> typeOf _vehicle >> "transportAmmo") > 0 ||
(getNumber (configFile >> "CfgVehicles" >> (typeOf _vehicle) >> "ACE_canRepair") > 0) or getNumber (configFile >> "CfgVehicles" >> typeOf _vehicle >> "ACE_canRepair") > 0 ||
(getNumber (configFile >> "CfgVehicles" >> (typeOf _vehicle) >> "ACE_fuelCapacityCargo") > 0) getNumber (configFile >> "CfgVehicles" >> typeOf _vehicle >> "ACE_fuelCapacityCargo") > 0
) exitWith { ) exitWith {
["n_maint", "b_maint", "o_maint"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) ["n_maint", "b_maint", "o_maint"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
}; };
if (_vehicle isKindOf "Plane") exitWith { if (_vehicle isKindOf "Plane") exitWith {
["n_plane", "b_plane", "o_plane"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) ["n_plane", "b_plane", "o_plane"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
}; };
if (_vehicle isKindOf "Air") exitWith { if (_vehicle isKindOf "Air") exitWith {
["n_air", "b_air", "o_air"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) ["n_air", "b_air", "o_air"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
}; };
if (_vehicle isKindOf "StaticMortar") exitWith { if (_vehicle isKindOf "StaticMortar") exitWith {
["n_mortar", "b_mortar", "o_mortar"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) ["n_mortar", "b_mortar", "o_mortar"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
}; };
if (getNumber (configFile >> "CfgVehicles" >> (typeOf _vehicle) >> "artilleryScanner") == 1) exitWith {
["n_art", "b_art", "o_art"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) if (getNumber (configFile >> "CfgVehicles" >> typeOf _vehicle >> "artilleryScanner") == 1) exitWith {
["n_art", "b_art", "o_art"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
}; };
if (_vehicle isKindOf "Car") exitWith { if (_vehicle isKindOf "Car") exitWith {
["n_motor_inf", "b_motor_inf", "o_motor_inf"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) ["n_motor_inf", "b_motor_inf", "o_motor_inf"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
};
if ((_vehicle isKindOf "Tank") and (getNumber (configFile >> "CfgVehicles" >> (typeOf _vehicle) >> "transportSoldier") > 0)) exitWith {
["n_mech_inf", "b_mech_inf", "o_mech_inf"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0)
}; };
if (_vehicle isKindOf "Tank") exitWith { if (_vehicle isKindOf "Tank") exitWith {
["n_armor", "b_armor", "o_armor"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) if (getNumber (configFile >> "CfgVehicles" >> typeOf _vehicle >> "transportSoldier") > 0) then {
["n_mech_inf", "b_mech_inf", "o_mech_inf"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
} else {
["n_armor", "b_armor", "o_armor"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
};
}; };
if (_vehicle isKindOf "Ship") exitWith { if (_vehicle isKindOf "Ship") exitWith {
["n_naval", "b_naval", "o_naval"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) ["n_naval", "b_naval", "o_naval"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)
}; };
// generic marker // generic marker
["n_unknown", "b_unknown", "o_unknown"] select ((["GUER", "WEST", "EAST"] find (str _side)) max 0) ["n_unknown", "b_unknown", "o_unknown"] select ((["GUER", "WEST", "EAST"] find str _side) max 0)

18
addons/common/functions/fnc_getNumberFromMissionSQM.sqf
View File

@ -1,18 +1,16 @@
/* /*
* Author: commy2 * Author: commy2
*
* Get a number from the mission.sqm file. Mission has to be saved in the Editor. * Get a number from the mission.sqm file. Mission has to be saved in the Editor.
* On non-existing entries, it might return 0 or the value of an entry with the same name of another calss.
* *
* Argument: * Arguments:
* 0: Path of the entry in the mission.sqm (Array) * 0: Path of the entry in the mission.sqm <ARRAY>
* *
* Return value: * Return Value:
* Value of the entry. Note: If the entry does not exist, it might return 0 or an entry with the same name of another class! (Number) * Entry value <NUMBER>
*
* Public: No
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private "_number"; parseNumber (_this call FUNC(getStringFromMissionSQM)) // return
_number = _this call FUNC(getStringFromMissionSQM);
parseNumber _number;

28
addons/common/functions/fnc_getNumberMagazinesIn.sqf
View File

@ -1,26 +1,30 @@
/** /*
* fn_getNumberMagazinesIn.sqf * Author: Glowbal
* @Descr: * Count magazines of unit.
* @Author: Glowbal
* *
* @Arguments: [] * Arguments:
* @Return: * 0: Unit <OBJECT>
* @PublicAPI: true * 1: Magazine <STRING>
*
* Return Value:
* Magazine amount <NUMBER>
*
* Public: No
*/ */
#include "script_component.hpp" #include "script_component.hpp"
PARAMS_2(_unit,_magazine); params ["_unit", "_magazine"];
private ["_return"];
private "_return";
_return = 0; _return = 0;
if (_unit isKindOf "CAManBase") then { if (_unit isKindOf "CAManBase") then {
_return = {_x == _magazine} count magazines _unit; _return = {_x == _magazine} count magazines _unit;
} else { } else {
{ {
_return = _return + {_x == _magazine} count magazines _x; _return = _return + {_x == _magazine} count magazines _x;
} forEach (crew _unit); false
} count crew _unit;
_return = _return + ({_x == _magazine} count getMagazineCargo _unit); _return = _return + ({_x == _magazine} count getMagazineCargo _unit);
}; };

2
addons/common/functions/fnc_getPitchBankYaw.sqf
View File

@ -14,6 +14,6 @@
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_vehicle"]; params ["_vehicle"];
(_vehicle call BIS_fnc_getPitchBank) + [getDir _vehicle] (_vehicle call BIS_fnc_getPitchBank) + [getDir _vehicle]

11
addons/common/functions/fnc_getReflectorsWithSelections.sqf
View File

@ -6,16 +6,19 @@
* They behave like having an armor value of 0. * They behave like having an armor value of 0.
* *
* Arguments: * Arguments:
* 0: A vehicle, not the classname (Object) * 0: Vehicle <OBJECT>
* *
* Return Value: * Return Value:
* The light names and selections (Array) * 0: Light Hitpoints <ARRAY>
* 1: Selections <ARRAY>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_config", "_hitpoints", "_selections", "_i"]; params ["_vehicle"];
PARAMS_1(_vehicle); private ["_config", "_hitpoints", "_selections"];
_config = configFile >> "CfgVehicles" >> typeOf _vehicle; _config = configFile >> "CfgVehicles" >> typeOf _vehicle;

28
addons/common/functions/fnc_getSelectionsWithoutHitPoints.sqf Normal file
View File

@ -0,0 +1,28 @@
/*
* Author: commy2
*
* Returns all damageable selections without hitpoints of any vehicle.
*
* Arguments:
* 0: A vehicle, not the classname (Object)
*
* Return Value:
* The selections without hitpoints, i.e. reflectors. (Array)
*/
#include "script_component.hpp"
params ["_vehicle"];
private ["_hitPointsFull", "_allSelectionsWithoutHitpoints"];
_hitPointsFull = getAllHitPointsDamage _vehicle;
_allSelectionsWithoutHitpoints = [];
{
if (_x == "") then {
_allSelectionsWithoutHitpoints pushBack (_hitPointsFull select 1 select _forEachIndex);
};
} forEach (_hitPointsFull select 0);
_allSelectionsWithoutHitpoints

29
addons/common/functions/fnc_getSettingData.sqf
View File

@ -3,29 +3,32 @@
* Returns the metadata of a setting if it exists * Returns the metadata of a setting if it exists
* *
* Arguments: * Arguments:
* 0: Name of the setting (String) * 0: Setting Name <STRING>
* *
* Return Value: * Return Value:
* Setting Data (Array) * Setting Data (Array)
* 0: _name * 0: Name <STRING>
* 1: _typeName * 1: Type Name <STRING>
* 2: _isClientSetable * 2: Is Client Settable <BOOL>
* 3: _localizedName * 3: Localized Name <STRING>
* 4: _localizedDescription * 4: Localized Description <STRING>
* 5: _possibleValues * 5: Possible Values <ARRAY>
* 6: _isForced * 6: Is Forced <BOOL>
* 7: _defaultValue * 7: Default Value <ANY>
* 8: Localized Category <STRING>
* *
* Public: No * Public: No
*/ */
#include "script_component.hpp" #include "script_component.hpp"
PARAMS_1(_name); params ["_name"];
private ["_value"]; private "_value";
_value = []; _value = [];
{ {
if ((_x select 0) == _name) exitWith {_value = _x}; if (_x select 0 == _name) exitWith {_value = _x};
} forEach GVAR(settings); false
} count GVAR(settings);
_value _value

26
addons/common/functions/fnc_getStringFromMissionSQM.sqf
View File

@ -1,28 +1,34 @@
/* /*
* Author: commy2 * Author: commy2
* Get a string from the mission.sqm file. Mission has to be saved in the Editor.
* The string cannot contain the ; character.
* If the entry does not exist, it might return an empty string or an entry with the same name of another class!
* *
* Get a string from the mission.sqm file. Mission has to be saved in the Editor. The string cannot contain the ; character. * Arguments:
* 0: Path of the entry in the mission.sqm <ARRAY>
* *
* Argument: * Return Value:
* 0: Path of the entry in the mission.sqm (Array) * Value of the entry. <STRING>
* *
* Return value: * Public: No
* Value of the entry. Note: If the entry does not exist, it might return an empty string or an entry with the same name of another class! (String)
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_path", "_mission", "_a", "_class", "_index", "_array", "_b", "_entry"]; private ["_path", "_mission", "_class", "_index", "_array", "_entry"];
_path = _this; _path = _this;
if (missionName == "") exitWith {""}; if (missionName == "") exitWith {""};
_mission = toArray toLower loadFile "mission.sqm"; _mission = toArray toLower loadFile "mission.sqm";
_mission resize 65536; _mission resize 65536;
{ {
if (_x < 33) then { if (_x < 33) then {
_mission set [_forEachIndex, -1]; _mission set [_forEachIndex, -1];
} }
} forEach _mission; } forEach _mission;
_mission = toString (_mission - [-1]); _mission = toString (_mission - [-1]);
{_path set [_forEachIndex, toLower _x]} forEach _path; {_path set [_forEachIndex, toLower _x]} forEach _path;
@ -33,9 +39,11 @@ for "_a" from 0 to (count _path - 2) do {
_index = _mission find _class; _index = _mission find _class;
_array = toArray _mission; _array = toArray _mission;
for "_b" from 0 to (_index + count toArray _class - 1) do { for "_b" from 0 to (_index + count toArray _class - 1) do {
_array set [_b, -1]; _array set [_b, -1];
}; };
_array = _array - [-1]; _array = _array - [-1];
_mission = toString _array; _mission = toString _array;
@ -43,16 +51,20 @@ for "_a" from 0 to (count _path - 2) do {
_entry = format ["%1=", _path select (count _path - 1)]; _entry = format ["%1=", _path select (count _path - 1)];
_index = _mission find _entry; _index = _mission find _entry;
if (_index == -1) exitWith {""}; if (_index == -1) exitWith {""};
_array = toArray _mission; _array = toArray _mission;
for "_b" from 0 to (_index + count toArray _entry - 1) do { for "_b" from 0 to (_index + count toArray _entry - 1) do {
_array set [_b, -1]; _array set [_b, -1];
}; };
_mission = toString (_array - [-1]); _mission = toString (_array - [-1]);
_index = _mission find ";"; _index = _mission find ";";
_mission = toArray _mission; _mission = toArray _mission;
_mission resize _index; _mission resize _index;
format ["%1", toString _mission];
format ["%1", toString _mission] // return

13
addons/common/functions/fnc_getTargetAzimuthAndInclination.sqf
View File

@ -1,14 +1,15 @@
/* /*
* Author: commy2 * Author: commy2
* Get players viewing direction and slope.
* *
* Get players viewing direction and slope * Arguments:
* None
* *
* Argument: * Return Value:
* None. * 0: Azimuth <NUMBER>
* 1: Inclination <NUMBER>
* *
* Return value: * Public: Yes
* 0: Azimuth (Number)
* 1: Inclination or 'slope' (Number)
*/ */
#include "script_component.hpp" #include "script_component.hpp"

21
addons/common/functions/fnc_getTargetDistance.sqf
View File

@ -1,21 +1,22 @@
/* /*
* Author: commy2 * Author: commy2
*
* Get the distance to the next object the player is looking at. Used for laser distance measurements. * Get the distance to the next object the player is looking at. Used for laser distance measurements.
* *
* Argument: * Arguments:
* 0: How accurate will the measurement be? In meters. (Number) * 0: Messurement Accuracy <NUMBER>
* 1: Maximal distance to measure. (Number) * 1: Maximal messure distance <NUMBER>
* 2: Minimal distance to measure. (optional, Number) * 2: Minimal messure distance (default: nil) <NUMBER>
* *
* Return value: * Return Value:
* Measured distance in meters. Can return maximal or minimal distance (Number) * Distance in meters <NUMBER>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_position", "_laser", "_line", "_distance", "_iteration"]; params ["_interval", "_maxDistance", "_minDistance"];
PARAMS_3(_interval,_maxDistance,_minDistance); private ["_position", "_laser", "_line", "_distance", "_iteration"];
_position = ATLToASL positionCameraToWorld [0, 0, 0]; _position = ATLToASL positionCameraToWorld [0, 0, 0];
_position set [2, (_position select 2) - (getTerrainHeightASL _position min 0)]; _position set [2, (_position select 2) - (getTerrainHeightASL _position min 0)];
@ -42,6 +43,6 @@ _distance = _interval * round (_distance / _interval);
_distance = _distance min _maxDistance; _distance = _distance min _maxDistance;
if !(isNil "_minDistance") then {_distance = _distance max _minDistance}; if (!isNil "_minDistance") then {_distance = _distance max _minDistance};
_distance _distance

19
addons/common/functions/fnc_getTargetObject.sqf
View File

@ -1,19 +1,20 @@
/* /*
* Author: commy2 * Author: commy2
*
* Get the nearest object the player is looking at. Used for laser designator instead of cursorTarget. * Get the nearest object the player is looking at. Used for laser designator instead of cursorTarget.
* *
* Argument: * Arguments:
* 0: Maximal distance to search. (Number) * 0: Maximum search distance <NUMBER>
* *
* Return value: * Return Value:
* Nearest object directly in line of sight, if none objNull (Object) * Nearest object in line of sight, objNull if none are found <OBJECT>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_position", "_laser", "_intersects"]; params ["_maxDistance"];
PARAMS_1(_maxDistance); private ["_position", "_laser", "_intersects"];
_position = ATLToASL positionCameraToWorld [0, 0, 0]; _position = ATLToASL positionCameraToWorld [0, 0, 0];
_position set [2, (_position select 2) - (getTerrainHeightASL _position min 0)]; _position set [2, (_position select 2) - (getTerrainHeightASL _position min 0)];
@ -23,4 +24,6 @@ _laser set [2, (_laser select 2) - (getTerrainHeightASL _laser min 0)];
_intersects = lineIntersectsObjs [_position, _laser, objNull, objNull, true, 2]; _intersects = lineIntersectsObjs [_position, _laser, objNull, objNull, true, 2];
if (count _intersects == 0) then {objNull} else {_intersects select 0} if (_intersects isEqualTo []) exitWith {objNull};
_intersects select 0 // return

14
addons/common/functions/fnc_getTurnedOnLights.sqf
View File

@ -1,21 +1,22 @@
/* /*
* Author: commy2 * Author: commy2
*
* Returns all turned on lights of any vehicle or streetlamp. * Returns all turned on lights of any vehicle or streetlamp.
* *
* Arguments: * Arguments:
* 0: A vehicle, not the classname (Object) * 0: Vehicle <OBJECT>
* *
* Return Value: * Return Value:
* All burning lights (Array) * All burning lights <ARRAY>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
PARAMS_1(_vehicle); params ["_vehicle"];
if (!isLightOn _vehicle) exitWith {[]}; if (!isLightOn _vehicle) exitWith {[]};
private ["_reflectorsWithSelections", "_lights", "_hitpoints"]; private ["_reflectorsWithSelections", "_lights", "_hitpoints", "_turnedOnLights"];
_reflectorsWithSelections = [[_vehicle], FUNC(getReflectorsWithSelections), uiNamespace, format [QEGVAR(cache,%1_%2), QUOTE(DFUNC(getReflectorsWithSelections)), typeOf _vehicle], 1E11] call FUNC(cachedCall); _reflectorsWithSelections = [[_vehicle], FUNC(getReflectorsWithSelections), uiNamespace, format [QEGVAR(cache,%1_%2), QUOTE(DFUNC(getReflectorsWithSelections)), typeOf _vehicle], 1E11] call FUNC(cachedCall);
//_reflectorsWithSelections = [_vehicle] call FUNC(getReflectorsWithSelections); //_reflectorsWithSelections = [_vehicle] call FUNC(getReflectorsWithSelections);
@ -23,13 +24,12 @@ _reflectorsWithSelections = [[_vehicle], FUNC(getReflectorsWithSelections), uiNa
_lights = _reflectorsWithSelections select 0; _lights = _reflectorsWithSelections select 0;
_hitpoints = _reflectorsWithSelections select 1; _hitpoints = _reflectorsWithSelections select 1;
private "_turnedOnLights";
_turnedOnLights = []; _turnedOnLights = [];
{ {
if (_vehicle getHit _x <= 0.9) then { if (_vehicle getHit _x <= 0.9) then {
_turnedOnLights pushBack (_lights select _forEachIndex); _turnedOnLights pushBack (_lights select _forEachIndex);
}; };
} forEach _hitpoints; } forEach _hitpoints;
_turnedOnLights _turnedOnLights

42
addons/common/functions/fnc_getUavControlPosition.sqf
View File

@ -1,32 +1,34 @@
/* /*
Name: FUNC(getUavControlPosition) * Author: PabstMirror
* Returns the seat position of a UAV that the unit is activly controling.
Author: Pabst Mirror *
* Arguments:
Description: * 0: Unit <OBJECT>
Gets the seat position of a UAV that the unit is activly controlling. *
"" - not connected to anything or not activly controling * Return Value:
"DRIVER" * Position <STRING>
"GUNNER" * "" = not connected to anything or activly controling
* "DRIVER"
Parameters: * "GUNNER"
0: OBJECT - Unit *
* Example:
Returns: * [ACE_Player] call ace_common_fnc_getUavControlPosition
STRING - Position in the UAV that is currently being controled by the unit. *
* Public: Yes
Example: */
[ACE_Player] call FUNC(getUavControlPosition)
*/
#include "script_component.hpp" #include "script_component.hpp"
params ["_unit"];
private ["_uav", "_positionArray", "_playerIndex"]; private ["_uav", "_positionArray", "_playerIndex"];
PARAMS_1(_unit);
_uav = getConnectedUAV _unit; _uav = getConnectedUAV _unit;
if (isNull _uav) exitWith {""}; if (isNull _uav) exitWith {""};
_positionArray = UAVControl _uav; _positionArray = UAVControl _uav;
_playerIndex = _positionArray find _unit; _playerIndex = _positionArray find _unit;
if (_playerIndex == -1) exitWith {""}; if (_playerIndex == -1) exitWith {""};
_positionArray select (_playerIndex + 1) _positionArray select (_playerIndex + 1)

16
addons/common/functions/fnc_getVehicleCargo.sqf
View File

@ -1,19 +1,20 @@
/* /*
* Author: commy2 * Author: commy2
*
* Get the vehicle cargo positions. Codrivers and ffv positions are not listed. * Get the vehicle cargo positions. Codrivers and ffv positions are not listed.
* *
* Argument: * Arguments:
* 0: Vehicle type (String) * 0: Vehicle type <STRING>
* *
* Return value: * Return Value:
* Vehicle cargo positions. (Array) * Vehicle cargo positions <ARRAY>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_config", "_cargo", "_codrivers", "_index"]; params ["_vehicle"];
PARAMS_1(_vehicle); private ["_config", "_cargo", "_codrivers"];
_config = configFile >> "CfgVehicles" >> _vehicle; _config = configFile >> "CfgVehicles" >> _vehicle;
@ -25,4 +26,5 @@ for "_index" from 0 to (getNumber (_config >> "transportSoldier") - 1) do {
_cargo pushBack _index; _cargo pushBack _index;
}; };
}; };
_cargo _cargo

16
addons/common/functions/fnc_getVehicleCodriver.sqf
View File

@ -1,19 +1,20 @@
/* /*
* Author: commy2 * Author: commy2
*
* Get the vehicle codriver positions. * Get the vehicle codriver positions.
* *
* Argument: * Arguments:
* 0: Vehicle type (String) * 0: Vehicle type <STRING>
* *
* Return value: * Return Value:
* Vehicle codriver positions. (Array) * Vehicle codriver positions <ARRAY>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_config", "_cargo", "_codrivers", "_index"]; params ["_vehicle"];
PARAMS_1(_vehicle); private ["_config", "_cargo", "_codrivers"];
_config = configFile >> "CfgVehicles" >> _vehicle; _config = configFile >> "CfgVehicles" >> _vehicle;
@ -25,4 +26,5 @@ for "_index" from 0 to (getNumber (_config >> "transportSoldier") - 1) do {
_cargo pushBack _index; _cargo pushBack _index;
}; };
}; };
_cargo _cargo

41
addons/common/functions/fnc_getVehicleCrew.sqf
View File

@ -1,36 +1,37 @@
/* /*
* Author: commy2 * Author: commy2
*
* Returns array of crew member objects. * Returns array of crew member objects.
* *
* Argument: * Arguments:
* 0: Vehicle (Object) * 0: Vehicle <OBJECT>
* 1: Slot types. Can contain "driver", "commander", "gunner", "turret", "cargo" and "ffv". Case sensitive (Array) * 1: Slot types filter (default: ["driver", "commander", "gunner", "turret", "cargo", "ffv"]) <ARRAY>
* *
* Return value: * Return Value:
* Crew (Array) * Crew <ARRAY>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_crew"]; params ["_vehicle", ["_types", ["driver", "commander", "gunner", "turret", "cargo", "ffv"]]];
PARAMS_2(_vehicle,_types);
private "_crew";
_crew = []; _crew = [];
// iterate through all crew members // iterate through all crew members
{ {
// this unit is in a ffv position. check if we search for ffv. // this unit is in a ffv position. check if we search for ffv.
if (_x select 4) then { if (_x select 4) then {
if ("ffv" in _types) then { if ("ffv" in _types) then {
_crew pushBack (_x select 0); _crew pushBack (_x select 0);
};
} else {
// otherwise check if we search for that type. toLower, because fullCrew returns "driver" vs. "Turret".
if (toLower (_x select 1) in _types) then {
_crew pushBack (_x select 0);
};
}; };
} else { false
// otherwise check if we search for that type. toLower, because fullCrew returns "driver" vs. "Turret". } count fullCrew _vehicle;
if (toLower (_x select 1) in _types) then {
_crew pushBack (_x select 0);
};
};
} forEach fullCrew _vehicle;
_crew _crew

20
addons/common/functions/fnc_getVersion.sqf
View File

@ -1,11 +1,15 @@
/** /*
* fn_getVersion.sqf * Author: Glowbal
* @Descr: Get the version number of the current ACE Build * Get the version number of the current ACE build.
* @Author: Glowbal
* *
* @Arguments: [] * Arguments:
* @Return: STRING String containing the version * None
* @PublicAPI: true *
* Return Value:
* ACE Version <STRING>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
getText (configFile >> "cfgPatches" >> "ACE_main" >> "version");
getText (configFile >> "CfgPatches" >> "ACE_main" >> "version") // return

17
addons/common/functions/fnc_getWeaponAzimuthAndInclination.sqf
View File

@ -1,20 +1,21 @@
/* /*
* Author: commy2 * Author: commy2
* Get local players weapon direction and slope.
* *
* Get players weapon direction and slope * Arguments:
* 0: Weapon name <STRING>
* *
* Argument: * Return Value:
* 0: Weapon name (String) * 0: Azimuth <NUMBER>
* 1: Inclination <NUMBER>
* *
* Return value: * Public: Yes
* 0: Azimuth (Number)
* 1: Inclination or 'slope' (Number)
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_direction", "_azimuth", "_inclination"]; params ["_weapon"];
PARAMS_1(_weapon); private ["_direction", "_azimuth", "_inclination"];
_direction = ACE_player weaponDirection _weapon; _direction = ACE_player weaponDirection _weapon;

15
addons/common/functions/fnc_getWeaponIndex.sqf
View File

@ -1,20 +1,23 @@
/* /*
* Author: commy2 * Author: commy2
* Get the index of the weapon. * Get the index of the weapon.
* 0 = primary, 1 = secondary, 2 = handgun, -1 = other
* *
* Argument: * Arguments:
* 0: Unit <OBJECT> * 0: Unit <OBJECT>
* 1: Weapon <STRING> * 1: Weapon <STRING>
* *
* Return value: * Return Value:
* Weapon index <NUMBER> * Weapon index <NUMBER>
* 0 = primary
* 1 = secondary
* 2 = handgun
* -1 = other
* *
* Public: No * Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
PARAMS_2(_unit,_weapon); params ["_unit", "_weapon"];
if (_weapon == "") exitWith {-1}; if (_weapon == "") exitWith {-1};
@ -22,4 +25,4 @@ if (_weapon == "") exitWith {-1};
primaryWeapon _unit, primaryWeapon _unit,
secondaryWeapon _unit, secondaryWeapon _unit,
handgunWeapon _unit handgunWeapon _unit
] find _weapon ] find _weapon // return

24
addons/common/functions/fnc_getWeaponModes.sqf
View File

@ -1,30 +1,34 @@
/* /*
* Author: commy2 * Author: commy2
* Get the available firing modes of a weapon. Will ignore the AI helper modes.
* *
* Get the available firing modes of a weapon. Will ignore the ai helper modes. * Arguments:
* 0: Weapon <STRING>
* *
* Argument: * Return Value:
* 0: A weapon in cfgWeapons (String) * Firing Modes <ARRAY>
* *
* Return value: * Public: Yes
* All firing modes (Array)
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_modes"]; params ["_weapon"];
PARAMS_1(_weapon); private ["_config", "_modes"];
_config = configFile >> "CfgWeapons" >> _weapon;
_modes = []; _modes = [];
{ {
if (getNumber (configFile >> "CfgWeapons" >> _weapon >> _x >> "showToPlayer") == 1) then { if (getNumber (_config >> _x >> "showToPlayer") == 1) then {
_modes pushBack _x; _modes pushBack _x;
}; };
if (_x == "this") then { if (_x == "this") then {
_modes pushBack _weapon; _modes pushBack _weapon;
}; };
false
} forEach getArray (configfile >> "CfgWeapons" >> _weapon >> "modes"); } count getArray (_config >> "modes");
_modes _modes

16
addons/common/functions/fnc_getWeaponMuzzles.sqf
View File

@ -1,20 +1,20 @@
/* /*
* Author: commy2 * Author: commy2
*
* Get the muzzles of a weapon. * Get the muzzles of a weapon.
* *
* Argument: * Arguments:
* 0: A weapon in cfgWeapons (String) * 0: Weapon <STRING>
* *
* Return value: * Return Value:
* All weapon muzzles (Array) * All weapon muzzles <ARRAY>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_muzzles"]; params ["_weapon"];
PARAMS_1(_weapon);
private "_muzzles";
_muzzles = getArray (configFile >> "CfgWeapons" >> _weapon >> "muzzles"); _muzzles = getArray (configFile >> "CfgWeapons" >> _weapon >> "muzzles");
if ("this" in _muzzles) then { if ("this" in _muzzles) then {

54
addons/common/functions/fnc_getWeaponState.sqf
View File

@ -1,46 +1,28 @@
/* /*
* Author: commy2 * Author: commy2
*
* Return current state of the weapon. Attachments and magazines with ammo. * Return current state of the weapon. Attachments and magazines with ammo.
* *
* Argument: * Arguments:
* 0: A unit (Object) * 0: unit <OBJECT>
* 1: A weapon (String) * 1: weapon <STRING>
* *
* Return value: * Return Value:
* Weapon info, format: [attachments, muzzles, magazines, ammo] (Array) * 0: Attachements <ARRAY>
* 1: Muzzles <ARRAY>
* 2: Magazines <ARRAY>
* 3: Ammo <ARRAY>
*
* Public: Yes
*/ */
#include "script_component.hpp" #include "script_component.hpp"
PARAMS_2(_unit,_weapon); params ["_unit", "_weapon"];
private ["_muzzles", "_weaponInfo"];
private "_muzzles";
_muzzles = [_weapon] call FUNC(getWeaponMuzzles); _muzzles = [_weapon] call FUNC(getWeaponMuzzles);
private "_weaponInfo"; _weaponInfo = [["","","",""], primaryWeaponItems _unit, secondaryWeaponItems _unit, handgunItems _unit] select ((["", primaryWeapon _unit, secondaryWeapon _unit, handgunWeapon _unit] find _weapon) max 0);
_weaponInfo = [];
switch (_weapon) do {
case (primaryWeapon _unit): {
_weaponInfo pushBack primaryWeaponItems _unit;
};
case (secondaryWeapon _unit): {
_weaponInfo pushBack secondaryWeaponItems _unit;
};
case (handgunWeapon _unit): {
_weaponInfo pushBack handgunItems _unit;
};
default {
_weaponInfo pushBack ["","","",""];
};
};
// get loaded magazines and ammo // get loaded magazines and ammo
private ["_magazines", "_ammo"]; private ["_magazines", "_ammo"];
@ -51,7 +33,8 @@ _ammo = [];
{ {
_magazines pushBack ""; _magazines pushBack "";
_ammo pushBack 0; _ammo pushBack 0;
} forEach _muzzles; false
} count _muzzles;
{ {
if (_x select 2) then { if (_x select 2) then {
@ -63,7 +46,8 @@ _ammo = [];
_ammo set [_index, _x select 1]; _ammo set [_index, _x select 1];
}; };
}; };
} forEach magazinesAmmoFull _unit; false
} count magazinesAmmoFull _unit;
_weaponInfo append [_muzzles, _magazines, _ammo]; _weaponInfo append [_muzzles, _magazines, _ammo];

26
addons/common/functions/fnc_getWeaponType.sqf
View File

@ -1,19 +1,24 @@
/* /*
* Author: commy2 * Author: commy2
* Check what kind of weapon the given class name is.
* *
* Check what kind of weapon the given class name is. (primary, secondary or handgun) * Arguments:
* 0: Weapons <STRING>
* *
* Argument: * Return Value:
* 0: Class name of the weapon (String) * Slot index <NUMBER>
* 1 = primary
* 2 = secondary
* 3 = handgun
* -1 = other
* *
* Return value: * Public: Yes
* Slot index of the given class name, 1: primary, 2: secondary, 3: handgun, else: -1 (Number)
*/ */
#include "script_component.hpp" #include "script_component.hpp"
private ["_type", "_index"]; params ["_weapon"];
PARAMS_1(_weapon); private ["_type", "_index"];
_type = [getNumber (configFile >> "CfgWeapons" >> _weapon >> "type")] call FUNC(binarizeNumber); _type = [getNumber (configFile >> "CfgWeapons" >> _weapon >> "type")] call FUNC(binarizeNumber);
@ -23,9 +28,4 @@ while {!(_type select _index) && {_index < 16}} do {
_index = _index + 1; _index = _index + 1;
}; };
switch (_index) do { [-1, 1, 3, 2] select (([0, 1, 2] find _index) + 1) // return
case 0 : {1};
case 1 : {3};
case 2 : {2};
default {-1};
}