function StructGold takes nothing returns nothing
    if IsUnitType(GetEnemyUnit(),UNIT_TYPE_SCTRUCTURE) and GetUnitTypeId(GetEnemyUnit(),'HFOO') then
        set bj_loopAindex=bj_loopAindex+1
    endif
endfunction

function GoldStruct takes nothing returns nothing
    local integer c=0 //Количество зданий
    set bj_loopAindex=0
    set bj_lastCreatedGroup=CreateGroup()
    call GroupEnemyInRange(lastCreatedGroup,0,0,99999,null) //Вбиваем в группу всех юнитов с карты
    call ForGroup(lastCreatedGroup,function StructGold)
    call SetGoldPlayer(Player(0),bj_loopAindex*1)
    call DestroyGroup( bj_lastCreatedGroup)
endfunction