function Trig_SahterRudokop_Func001Func001Func002Func002A takes nothing returns nothing
	set udg_item01 = GetEnumItem( )
    
	if GetItemType( udg_item01 ) == ITEM_TYPE_POWERUP and GetItemTypeId( udg_item01 ) == 'I000' or GetItemTypeId( udg_item01 ) == 'I002' and UnitInventorySize( udg_unit01 ) - UnitInventoryCount( udg_unit01 ) > 0 then // Только 2 предмета не ITEM_TYPE_POWERUP
		call IssueTargetOrder( udg_unit01, "smart", udg_item01 )
		set udg_integer01 = 2
	endif
endfunction

function Trig_SahterRudokop_Func001Func001Func002Func003Func002A takes nothing returns nothing
	local real x
    local real y
    local real x1
    local real y1
    local real x2
    local real y2
    set udg_destructable01 = GetEnumDestructable( ) // udg_destructable01 - все нужные разрушаемые объекты
	
    if GetDestructableTypeId( udg_destructable01 ) != 'B003' and GetDestructableLife( udg_destructable01 ) > 0.00 then // Ненужный объект
		set x  = GetUnitX( udg_unit01 )
        set y  = GetUnitY( udg_unit01 )
        set x1 = GetDestructableX( udg_destructable01 )
        set y1 = GetDestructableY( udg_destructable01 )
        set x2 = GetDestructableX( udg_destructable03 )
        set y2 = GetDestructableY( udg_destructable03 )
        
        if SquareRoot( ( x - x1 ) * ( x - x1 ) + ( y - y1 ) * ( y - y1 ) ) < SquareRoot( ( x - x2 ) * ( x - x2 ) + ( y - y2 ) * ( y - y2 ) ) then
			set udg_integer01 = 1
			set udg_destructable03 = udg_destructable01
		endif
	endif
endfunction

function Trig_SahterRudokop_Func001Func001A takes nothing returns nothing
    local integer i
    local rect r
    local rect r1
    local real x
    local real y
    local real x1
    local real y1
	set udg_unit01 = GetEnumUnit( )
    
	if GetUnitCurrentOrder( udg_unit01 ) == 0 and ( GetUnitAbilityLevel( udg_unit01, 'BUF1' ) > 0 or GetUnitAbilityLevel( udg_unit01, 'BUF2' ) > 0 or GetUnitAbilityLevel( udg_unit01, 'BUF3' ) > 0 ) then // Баф на юните при вкл.скила
		set udg_integer01 = 0
		set i = GetUnitTypeId( udg_unit01 )
        set x = GetUnitX( udg_unit01 )
        set y = GetUnitY( udg_unit01 )
        set r = Rect( x - 300.00, y - 300.00, x + 300.00, y + 300.00 )
        
        if i == 'UNT1' or i == 'UNT2' or i == 'UNT3' then // около 20 юнитов
            call EnumItemsInRect( r, null, function Trig_SahterRudokop_Func001Func001Func002Func002A )
		endif
		
        if udg_integer01 == 0 then
            set r1 = Rect( x - 700.00, y - 700.00, x + 700.00, y + 700.00 )
            set bj_enumDestructableCenter = Location( x, y )
            set bj_enumDestructableRadius = 700.00
            
            call EnumDestructablesInRect( r, filterEnumDestructablesInCircleBJ, function Trig_SahterRudokop_Func001Func001Func002Func003Func002A )
            
            call RemoveLocation( bj_enumDestructableCenter )
            call RemoveRect( r1 )
            set r1 = null
        endif
		
        if udg_integer01 == 0 then
			call IssuePointOrder( udg_unit01, "move", x + GetRandomReal( -300.00, 300.00 ), y + GetRandomReal( -300.00, 300.00 ) )
		elseif udg_integer01 == 1 then
            set x1 = GetDestructableX( udg_destructable03 )
            set y1 = GetDestructableY( udg_destructable03 )
            
			if SquareRoot( ( x - x1 ) * ( x - x1 ) + ( y - y1 ) * ( y - y1 ) ) < 250.00 then
				call IssueTargetOrder( udg_unit01, "attack", udg_destructable03 )
			else
				call IssuePointOrder( udg_unit01, "move", x1, y1 )
			endif
		endif
        
        call RemoveRect( r )
        set r = null
	endif
endfunction

function Trig_SahterRudokop_Actions takes nothing returns nothing  //  Автодобыча для всех игроков ( скилл только у некоторых юнитов )
	local integer i = 11
    local group g = CreateGroup( )
    
    loop
        call GroupEnumUnitsOfPlayer( g, Player( i ), null )
        call ForGroup( g, function Trig_SahterRudokop_Func001Func001A )
        call GroupClear( g )
        
        set i = i - 1
        exitwhen i < 1
    endloop
    
    call DestroyGroup( g )
    
    set g = null
endfunction

//===========================================================================
function InitTrig_SahterRudokop takes nothing returns nothing
    set gg_trg_SahterRudokop = CreateTrigger(  )
    call TriggerRegisterTimerEvent(gg_trg_SahterRudokop, 0.50, true)
    call TriggerAddAction( gg_trg_SahterRudokop, function Trig_SahterRudokop_Actions )
endfunction