mirror of
https://github.com/acemod/ACE3.git
synced 2024-08-30 18:23:18 +00:00
Added functions to create MGRS grid zone designator and 100km grid for given world.
*probably* not very accurate, but it should be close enough for fluff
This commit is contained in:
VKing
parent
c6dbe6d39d
commit
39e851df03
@ -68,6 +68,7 @@ PREP(getGunner);
|
||||
PREP(getInPosition);
|
||||
PREP(getMapGridFromPos);
|
||||
PREP(getMarkerType);
|
||||
PREP(getMGRSzone);
|
||||
PREP(getName);
|
||||
PREP(getNumberFromMissionSQM);
|
||||
PREP(getNumberMagazinesIn);
|
||||
|
||||
142
addons/common/functions/fnc_getMGRSzone.sqf
Normal file
142
addons/common/functions/fnc_getMGRSzone.sqf
Normal file
@ -0,0 +1,142 @@
|
||||
/*
|
||||
* Author: VKing
|
||||
*
|
||||
* Gets the current map's MGRS grid zone designator and 100km square.
|
||||
*
|
||||
* Argument:
|
||||
* None
|
||||
*
|
||||
* Return value:
|
||||
* 0: Grid zone designator (String)
|
||||
* 1: 100km square (String)
|
||||
*/
|
||||
|
||||
#define DEBUG_MODE_FULL
|
||||
#include "script_component.hpp"
|
||||
|
||||
private ["_zone","_band","_GZD","_long","_lat","_UTM","_easting","_northing"];
|
||||
|
||||
_long = getNumber (ConfigFile >> "CfgWorlds" >> worldName >> "longitude");
|
||||
_lat = getNumber (ConfigFile >> "CfgWorlds" >> worldName >> "latitude");
|
||||
|
||||
// if (!isNil QEGVAR(weather,Latitude)) then {_lat = EGVAR(weather,Latitude)};
|
||||
|
||||
if (worldName in ["Chernarus", "Bootcamp_ACR", "Woodland_ACR", "utes"]) then { _lat = 50; };
|
||||
if (worldName in ["Altis", "Stratis"]) then { _lat = 40; };
|
||||
if (worldName in ["Takistan", "Zargabad", "Mountains_ACR"]) then { _lat = 35; };
|
||||
if (worldName in ["Shapur_BAF", "ProvingGrounds_PMC"]) then { _lat = 35; };
|
||||
if (worldName in ["fallujah"]) then { _lat = 33; };
|
||||
if (worldName in ["fata", "Abbottabad"]) then { _lat = 30; };
|
||||
if (worldName in ["sfp_wamako"]) then { _lat = 14; };
|
||||
if (worldName in ["sfp_sturko"]) then { _lat = 56; };
|
||||
if (worldName in ["Bornholm"]) then { _lat = 55; };
|
||||
if (worldName in ["Imrali"]) then { _lat = 40; };
|
||||
if (worldName in ["Caribou"]) then { _lat = 68; };
|
||||
if (worldName in ["Namalsk"]) then { _lat = 65; };
|
||||
if (worldName in ["MCN_Aliabad"]) then { _lat = 36; };
|
||||
if (worldName in ["Clafghan"]) then { _lat = 34; };
|
||||
if (worldName in ["Sangin", "hellskitchen"]) then { _lat = 32; };
|
||||
if (worldName in ["Sara"]) then { _lat = 40; };
|
||||
if (worldName in ["reshmaan"]) then { _lat = 35; };
|
||||
if (worldName in ["Thirsk"]) then { _lat = 65; };
|
||||
if (worldName in ["lingor"]) then { _lat = -4; };
|
||||
if (worldName in ["Panthera3"]) then { _lat = 46; };
|
||||
if (worldName in ["Kunduz"]) then { _lat = 37; };
|
||||
|
||||
|
||||
_UTM = [_long,_lat] call BIS_fnc_posDegToUTM;
|
||||
_easting = _UTM select 0;
|
||||
_northing = _UTM select 1;
|
||||
_zone = _UTM select 2;
|
||||
TRACE_4("",_UTM,_easting,_northing,_zone);
|
||||
|
||||
_band = switch (true) do {
|
||||
case (_lat<-72): {"C"};
|
||||
case (_lat<-64): {"D"};
|
||||
case (_lat<-56): {"E"};
|
||||
case (_lat<-48): {"F"};
|
||||
case (_lat<-40): {"G"};
|
||||
case (_lat<-32): {"H"};
|
||||
case (_lat<-24): {"J"};
|
||||
case (_lat<-16): {"K"};
|
||||
case (_lat<-8): {"L"};
|
||||
case (_lat<0): {"M"};
|
||||
case (_lat>72): {"X"};
|
||||
case (_lat>64): {"W"};
|
||||
case (_lat>56): {"V"};
|
||||
case (_lat>48): {"U"};
|
||||
case (_lat>40): {"T"};
|
||||
case (_lat>32): {"S"};
|
||||
case (_lat>24): {"R"};
|
||||
case (_lat>16): {"Q"};
|
||||
case (_lat>8): {"P"};
|
||||
case (_lat>=0): {"N"};
|
||||
};
|
||||
if (worldName == "VR") then {_zone = 0; _band = "VR";};
|
||||
|
||||
_GZD = format ["%1%2",_zone,_band];
|
||||
TRACE_3("",_zone,_band,_GZD);
|
||||
|
||||
|
||||
private ["_set1","_set2","_set3","_set4","_set5","_set6","_metaE","_metaN","_letterE","_letterN","_grid100km"];
|
||||
|
||||
_set1 = [1,7,13,19,25,31,37,43,49,55];
|
||||
_set2 = [2,8,14,20,26,32,38,44,50,56];
|
||||
_set3 = [3,9,15,21,27,33,39,45,51,57];
|
||||
_set4 = [4,10,16,22,28,34,40,46,52,58];
|
||||
_set5 = [5,11,17,23,29,35,41,47,53,59];
|
||||
_set6 = [6,12,18,24,30,36,42,48,54,60];
|
||||
|
||||
switch (true) do {
|
||||
case (_zone in _set1): {_metaE = 1; _metaN = 1;};
|
||||
case (_zone in _set2): {_metaE = 2; _metaN = 2;};
|
||||
case (_zone in _set3): {_metaE = 3; _metaN = 1;};
|
||||
case (_zone in _set4): {_metaE = 1; _metaN = 2;};
|
||||
case (_zone in _set5): {_metaE = 2; _metaN = 1;};
|
||||
case (_zone in _set6): {_metaE = 3; _metaN = 2;};
|
||||
};
|
||||
|
||||
switch (true) do {
|
||||
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 > 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 > 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 > 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"}; }; };
|
||||
default {_letterE="@"};
|
||||
};
|
||||
TRACE_1("",_letterE);
|
||||
|
||||
_northing = _northing mod 2000000;
|
||||
TRACE_1("",_northing);
|
||||
|
||||
switch (true) do {
|
||||
case (_northing > 1900000): {switch (_metaN) do {case 1: {_letterN = "V"}; case 2: {_letterN = "E"}; }; };
|
||||
case (_northing > 1800000): {switch (_metaN) do {case 1: {_letterN = "U"}; case 2: {_letterN = "D"}; }; };
|
||||
case (_northing > 1700000): {switch (_metaN) do {case 1: {_letterN = "T"}; case 2: {_letterN = "C"}; }; };
|
||||
case (_northing > 1600000): {switch (_metaN) do {case 1: {_letterN = "S"}; case 2: {_letterN = "B"}; }; };
|
||||
case (_northing > 1500000): {switch (_metaN) do {case 1: {_letterN = "R"}; case 2: {_letterN = "A"}; }; };
|
||||
case (_northing > 1400000): {switch (_metaN) do {case 1: {_letterN = "Q"}; case 2: {_letterN = "V"}; }; };
|
||||
case (_northing > 1300000): {switch (_metaN) do {case 1: {_letterN = "P"}; case 2: {_letterN = "U"}; }; };
|
||||
case (_northing > 1200000): {switch (_metaN) do {case 1: {_letterN = "N"}; case 2: {_letterN = "T"}; }; };
|
||||
case (_northing > 1100000): {switch (_metaN) do {case 1: {_letterN = "M"}; case 2: {_letterN = "S"}; }; };
|
||||
case (_northing > 1000000): {switch (_metaN) do {case 1: {_letterN = "L"}; case 2: {_letterN = "R"}; }; };
|
||||
case (_northing > 900000): {switch (_metaN) do {case 1: {_letterN = "K"}; case 2: {_letterN = "Q"}; }; };
|
||||
case (_northing > 800000): {switch (_metaN) do {case 1: {_letterN = "J"}; case 2: {_letterN = "P"}; }; };
|
||||
case (_northing > 700000): {switch (_metaN) do {case 1: {_letterN = "H"}; case 2: {_letterN = "N"}; }; };
|
||||
case (_northing > 600000): {switch (_metaN) do {case 1: {_letterN = "G"}; case 2: {_letterN = "M"}; }; };
|
||||
case (_northing > 500000): {switch (_metaN) do {case 1: {_letterN = "F"}; case 2: {_letterN = "L"}; }; };
|
||||
case (_northing > 400000): {switch (_metaN) do {case 1: {_letterN = "E"}; case 2: {_letterN = "K"}; }; };
|
||||
case (_northing > 300000): {switch (_metaN) do {case 1: {_letterN = "D"}; case 2: {_letterN = "J"}; }; };
|
||||
case (_northing > 200000): {switch (_metaN) do {case 1: {_letterN = "C"}; case 2: {_letterN = "H"}; }; };
|
||||
case (_northing > 100000): {switch (_metaN) do {case 1: {_letterN = "B"}; case 2: {_letterN = "G"}; }; };
|
||||
case (_northing > 0): {switch (_metaN) do {case 1: {_letterN = "A"}; case 2: {_letterN = "F"}; }; };
|
||||
};
|
||||
TRACE_1("",_letterN);
|
||||
|
||||
_grid100km = _letterE+_letterN;
|
||||
TRACE_1("",_grid100km);
|
||||
|
||||
[_GZD,_grid100km]
|
||||
@ -6,8 +6,9 @@
|
||||
* Argument:
|
||||
* 0: Position (2D Position)
|
||||
*
|
||||
* Return value:
|
||||
* Easting and Northing as strings (Array)
|
||||
* Return values:
|
||||
* 0: Easting (String)
|
||||
* 1: Northing (String)
|
||||
*/
|
||||
|
||||
// #define DEBUG_MODE_FULL
|
||||
|
||||
Loading…
Reference in New Issue
Block a user