fnc_repair_tree

if !(isClass(configFile>>'CfgPatches'>>'cba_main')) then
{
    fnc_defaultParam = {
        /* ----------------------------------------------------------------------------
        Function: CBA_fnc_defaultParam

        Description:
            Gets a value from parameters list (usually _this) with a default.

        Example (direct use of function):
        (begin code)
            private "_frog";
            _frog = [_this, 2, 12] call CBA_fnc_defaultParam;
        (end code)

        Example (macro):
        (begin code)
            #include "script_component.hpp"
            DEFAULT_PARAM(2,_frog,12);
        (end code)

        Parameters:
            _params - Array of parameters, usually _this [Array]
            _index - Parameter index in the params array [Integer: >= 0]
            _defaultValue - Value to use if the array is too short [Any]

        Returns:
            Value of parameter [Any]
        ---------------------------------------------------------------------------- */
        _params = _this select 0;
        _index = _this select 1;
        _defaultValue = _this select 2;

        private "_value";

        if (!isNil "_defaultValue") then {
            _value = _defaultValue;
        };

        if (!isNil "_params" && {(typeName _params) == "ARRAY"} && {count _params > _index} && {!isNil { _params select _index }}) then {
            _value = _params select _index;
        };

        // Return.
        if (isNil "_value") then {
            nil;
        } else {
            _value;
        };
    };
    fnc_find = {
        /* ----------------------------------------------------------------------------
        Function: CBA_fnc_find

        Description:
            Finds a string within another string.

        Parameters:
            _haystack - String in which to search [String or ASCII char array]
            _needle - String to search for [String or ASCII char array]
            _initialIndex - Initial character index within _haystack to start the
            search at [Number: 0+, defaults to 0].

        Returns:
            First position of string. Returns -1 if not found [Number]

        Examples:
            (begin example)
                _result = ["frog-headed fish", "f"] call CBA_fnc_find;
                // _result => 0

                _result = ["frog-headed fish", "f", 5] call CBA_fnc_find;
                // _result => 12

                _result = ["frog-headed fish", "fish"] call CBA_fnc_find;
                // _result => 12
            (end)

        Author:
            Xeno
        ---------------------------------------------------------------------------- */
        _haystack = _this select 0;
        _needle = _this select 1;
        _initialIndex = [_this, 2, 0] call fnc_defaultParam;
        private ["_haystackCount", "_needleCount", "_foundPos",
        "_needleIndex", "_doexit", "_notfound"];

        if (typeName _haystack == "STRING") then {
            _haystack = toArray _haystack;
        };

        if (typeName _needle == "STRING") then {
            _needle = toArray _needle;
        };

        _haystackCount = count _haystack;
        _needleCount = count _needle;
        _foundPos = -1;

        if ((_haystackCount - _initialIndex) < _needleCount) exitWith {_foundPos};

        _needleIndex = 0;
        _doexit = false;
        for "_i" from _initialIndex to (_haystackCount - 1) do {
            if (_haystack select _i == _needle select _needleIndex) then {
                if (_needleCount == 1) exitWith {
                    _foundPos = _i;
                    _doexit = true;
                };
                if (_haystackCount - _i < _needleCount) exitWith {_doexit = true};
                _needleIndex = (_needleIndex) + 1;
                _notfound = false;
                for "_j" from (_i + 1) to (_i + _needleCount - 1) do {
                    if (_haystack select _j != _needle select _needleIndex) exitWith
                    {
                        _notfound = true;
                    };
                    _needleIndex = (_needleIndex) + 1;
                };
                if (_notfound) then
                {
                    _needleIndex = 0;
                } else {
                    _foundPos = _i;
                    _doexit = true;
                };
            };
            if (_doexit) exitWith {};
        };

        _foundPos
    };
    // ==========================================================//
    private ["_debug", "_trees"];
    _debug = false;

    _trees = [];
    {
        if (([str _x, ": t_"] call fnc_find) > -1 || {([str _x, "palm"] call fnc_find) > -1}) then
        {
            _trees set [count _trees,_x];

        };
    } forEach _this;
    if _debug then
    {
        hint str _trees;
        copyToClipboard str _trees;
        {_x setdamage 1;} foreach _trees;
        sleep 5;
    };
    {
        if ((damage _x) > 0) then
        {
            _x setdamage 0;
        };
    } foreach _trees;
}else{
    private ["_debug", "_trees"];
    _debug = false;

    _trees = [];
    {
        if (([str _x, ": t_"] call CBA_fnc_find) > -1 || {([str _x, "palm"] call CBA_fnc_find) > -1}) then
        {
            _trees set [count _trees,_x];

        };
    } forEach _this;
    if _debug then
    {
        hint str _trees;
        copyToClipboard str _trees;
        {_x setdamage 1;} foreach _trees;
        sleep 5;
    };
    {
        if ((damage _x) > 0) then
        {
            _x setdamage 0;
        };
    } foreach _trees;
};