1007210.sqf

dnicearr_update = {
    private["_arr", "_key", "_val", "_upd", "_i"];
    _arr = _this select 0;
    _key = _this select 1;
    _val = _this select 2;
    _upd = false;
    for [{_i=0}, {_i < (count _arr)}, {_i=_i+1}] do {
        if ( ((_arr select _i) select 0) == _key ) exitWith {
            (_arr select _i) SET [1, _val];
            _upd = true;
            
        };
    };
    if (!_upd) then {
        _arr = _arr + [ [_key, _val] ];
        
    };
    _arr
};

dnicearr_length = {
    (count _this)
};

dnicearr_keys = {
    private["_result", "_i"];
    _result = [];
    for [{_i=0}, {_i < (count _this)}, {_i=_i+1}] do {
        _result = _result + [ ((_this select _i) select 0)];
    };
    _result
};

dnicearr_values = {
    private["_result", "_i"];
    _result = [];
    for [{_i=0}, {_i < (count _this)}, {_i=_i+1}] do {
        _result = _result + [ ((_this select _i) select 1)];
    };
    _result
};

dnicearr_hasKey = {
    (  (_this select 1) in ((_this select 0) call dnicearr_keys)  )
};

dnicearr_delete = {
    private["_arr", "_key", "_del", "_i"];
    _arr = _this select 0;
    _key = _this select 1;
    for [{_i=0}, {_i <(count _arr)}, {_i=_i+1}] do {
        if ( ((_arr select _i) select 0) == _key ) exitWith {
            _arr SET [_i, ""];
            _arr = _arr - [""];
        };   
    };
    _arr
};

dnicearr_equals = {
    (  (format["%1", _this select 0]) == (format["%1", _this select 1])  )
};

dnicearr_getValue = {
    private ["_c", "_arr", "_key"];
    _arr = _this select 0;
    _key = _this select 1;
    for [{_c=0}, {_c < (count _arr)}, {_c=_c+1}] do {
        if (((_arr select _c) select 0) == _key) exitWith {
            ((_arr select _c) select 1)
        };
    };
};

dnicearr_countMultiple = {
    private ["_c", "_Farr", "_Fval", "_Fcount"];
    _Farr   = _this select 0;
    _Fval   = _this select 1;
    _Fcount = 0;
    for [{_c=0}, { _c < (count _Farr)}, {_c=_c+1}] do {
        if ( (typeName (_Farr select _c)) == (typeName _Fval) ) then {
            if ((_Farr select _c) == _Fval) then {
                _Fcount = _Fcount + 1;
                
            };
        };
    };
    _Fcount
};