function MBGold_Add takes nothing returns nothing
    local group groupA = CreateGroup()
    local unit unitA
    local integer indexA = 0
    call GroupEnumUnitsInRange(groupA, 0, 0, 10000, Condition(function MBGold_Filter))
    loop
        set unitA=FirstOfGroup(groupA)
        exitwhen unitA==null
        set indexA = 0 // ЕСЛИ ЭТО УБРАТЬ ИГРА ВЫЛЕТЕТ С КРИТОМ
        loop
            if IsPlayerAlly(Player(indexA),GetOwningPlayer(unitA)) then // А если убрать и это, то перестанет вылетать
                call SetPlayerState(Player(indexA),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(Player(i  ndexA),PLAYER_STATE_RESOURCE_GOLD)+3) // А если убрать и это, то перестанет вылетать
            endif // А если убрать и это, то перестанет вылетать
            set indexA=indexA+1
            exitwhen indexA==12
        endloop
        call GroupRemoveUnit(groupA,unitA)
    endloop
    call DestroyGroup(groupA)
    set groupA = null
    set unitA = null
endfunction