ACE3/addons/common/functions/fnc_getMapGridFromPos.sqf
VKing 39e851df03 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
2015-05-10 17:26:28 +02:00

98 lines
2.6 KiB
Plaintext

/*
* Author: VKing
*
* Gets a 10-digit map grid for the given world position
*
* Argument:
* 0: Position (2D Position)
*
* Return values:
* 0: Easting (String)
* 1: Northing (String)
*/
// #define DEBUG_MODE_FULL
#include "script_component.hpp"
// private "_pos";
// _pos = getPos player;
// TRACE_1("",_pos);
PARAMS_1(_pos);
private ["_posX","_posY","_northingReversed","_mapsize","_originGrid","_originArray","_length","_offsetX","_offsetY","_offsetPadding","_gridX","_gridY"];
// _northingReversed = [] call CBA_fnc_northingReversed;
_northingReversed = false;
if(isNil "cba_common_mapReversed") then {
_test = getNumber (configFile >> "CfgWorlds" >> worldName >> "Grid" >> "Zoom1" >> "stepY");
if(_test > 0) then {
_northingReversed = true;
};
cba_common_mapReversed = _northingReversed;
} else {
_northingReversed = cba_common_mapReversed;
};
_mapsize = [] call bis_fnc_mapSize;
TRACE_2("",_northingReversed,_mapsize);
if (_northingReversed) then {
_originGrid = mapGridPosition [0,_mapsize,0];
} else {
_originGrid = mapGridPosition [0,0,0];
};
// _originGrid = "123456";
TRACE_1("",_originGrid);
if (count _originGrid == 10) exitWith {
TRACE_1("",mapGridPosition _pos);
[mapGridPosition _pos select [0,5], mapGridPosition _pos select [5,5]]
};
_originArray = toArray _originGrid;
_length = (count _originArray);
_length = _length/2;
_offsetPadding = switch (_length) do {
case 1: {"0000"};
case 2: {"000"};
case 3: {"00"};
case 4: {"0"};
default {};
};
_offsetX = parseNumber (toString (_originArray select [0,_length]) + _offsetPadding);
_offsetY = parseNumber (toString (_originArray select [_length,_length]) + _offsetPadding);
TRACE_2("",_offsetX,_offsetY);
TRACE_2("",_pos select 0, _pos select 1);
_posX = ceil(_pos select 0) + _offsetX;
if (_posX < 0) then {_posX = 100000 + _posX};
TRACE_1("",_posX);
_posX = format ["%1",_posX];
if (_northingReversed) then {
_posY = _mapSize - ceil(_pos select 1) + _offsetY -100;
} else {
_posY = ceil(_pos select 1) + _offsetY;
};
TRACE_1("",_posY);
if (_posY < 0) then {_posY = 100000 + _posY};
_posY = format["%1",_posY];
TRACE_2("",_posX,_posY);
_posX = switch (count _posX) do {
case 1: {"0000"+_posX};
case 2: {"000"+_posX};
case 3: {"00"+_posX};
case 4: {"0"+_posX};
default {_posX};
};
_posY = switch (count _posY) do {
case 1: {"0000"+_posY};
case 2: {"000"+_posY};
case 3: {"00"+_posY};
case 4: {"0"+_posY};
default {_posY};
};
TRACE_3("",mapGridPosition _pos,_posX,_posY);
[_posX,_posY]