//Условие

function Trig_Disincome_OV_Func001Func004002 takes nothing returns boolean
    return GetWidgetLife( GetFilterUnit( ) ) >= 0.405 and GetOwningPlayer( GetFilterUnit( ) ) == bj_groupEnumOwningPlayer and not IsUnitType( GetFilterUnit( ), UNIT_TYPE_STRUCTURE )
endfunction

// Каждый юнит

function Trig_Disincome_OV_Func001Func006A takes nothing returns nothing
    set udg_Kol_voUnitod = udg_Kol_voUnitod + 1
    
    if not IsUnitType( GetEnumUnit( ), UNIT_TYPE_HERO ) then
        set udg_GoldCost = udg_GoldCost + 100.00
    else
        set udg_Price = GetUnitGoldCost( GetUnitTypeId( GetEnumUnit( ) ) )
        set udg_GoldCost = udg_GoldCost + udg_Price * 0.10
        // ---------------------------Особые условия-----------------------------          +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        // ---------------------------Топливо гоблинов-----------------------------
        if GetUnitAbilityLevel( 'A0A5', GetEnumUnit( ) ) > 0 then
            set udg_GoldCost = udg_GoldCost + udg_Price * 0.10 * ( 1.60 - GetUnitAbilityLevel( 'A0A5', GetEnumUnit( ) ) * 0.10 )
        endif
        // ---------------------------Топливо гоблинов закончилось-----------------------------
    endif
endfunction


//Каждый игрок

function Trig_Disincome_OV_Func001A takes nothing returns nothing
    set udg_GoldCost = 0.00
    set udg_Kol_voUnitod = 0
    set udg_LocalInteger = 0
    set udg_Boolexpr = Condition( function Trig_Disincome_OV_Func001Func004002 )
    
    set bj_groupEnumOwningPlayer = GetEnumPlayer( )
    call GroupEnumUnitsInRect( udg_LocalOtrad2, bj_mapInitialPlayableArea, udg_Boolexpr )
    call ForGroup( udg_LocalOtrad2, function Trig_Disincome_OV_Func001Func006A )
    call GroupClear( udg_LocalOtrad2 )
    call SetPlayerState( bj_groupEnumOwningPlayer, PLAYER_STATE_RESOURCE_GOLD, GetPlayerState( bj_groupEnumOwningPlayer, PLAYER_STATE_RESOURCE_GOLD ) - R2I( udg_GoldCost ) )
    set udg_LocalText2 = "|cffff0000Расходы:|r " + I2S( R2I( udg_GoldCost ) )
    call DisplayTextToPlayer( bj_groupEnumOwningPlayer, 0.00, 0.00, udg_LocalText2 )
    // -------
    // ---------------------------Система сверхпотребления-----------------------------
    set udg_LocalInteger = R2I( udg_Kol_voUnitod / 50.00 )
    call SetPlayerState( bj_groupEnumOwningPlayer, PLAYER_STATE_RESOURCE_GOLD, GetPlayerState( bj_groupEnumOwningPlayer, PLAYER_STATE_RESOURCE_GOLD ) + udg_LocalInteger * -500 )
    set udg_LocalText2 = "|cffff0000Логистика:|r " + I2S( udg_LocalInteger * 500 ) + "(" + I2S( udg_LocalInteger ) + "x)"
    call DisplayTextToPlayer( bj_groupEnumOwningPlayer, 0.00, 0.00, udg_LocalText2 )
    set udg_Kol_voUnitod = 0
    set udg_LocalInteger = 0
    // ---------------------------Система сверхпотребления конец-----------------------------
    // -------
    // ---------------------------Система коррупции-----------------------------
    if GetPlayerTechCount( bj_groupEnumOwningPlayer, 'R04O', true ) > 0 then
        set udg_GoldCost = udg_GoldCost * GetPlayerTechCount( bj_groupEnumOwningPlayer, 'R04O', true ) * 0.15
        call SetPlayerState( bj_groupEnumOwningPlayer, PLAYER_STATE_RESOURCE_GOLD, GetPlayerState( bj_groupEnumOwningPlayer, PLAYER_STATE_RESOURCE_GOLD ) + R2I( udg_GoldCost ) )
        set udg_LocalText2 = "|cff800000Наворовано бюджета: |r" + R2S( udg_GoldCost )
        call DisplayTextToPlayer( bj_groupEnumOwningPlayer, 0.00, 0.00, udg_LocalText2 )
    endif
    // ---------------------------Система коррупции конец-----------------------------
endfunction

// Основа
function Trig_Disincome_OV_Actions takes nothing returns nothing
    call ForForce( udg_AllPlayers, function Trig_Disincome_OV_Func001A )
endfunction

//===========================================================================
function InitTrig_Disincome_OV takes nothing returns nothing
    set gg_trg_Disincome_OV = CreateTrigger(  )
    call TriggerRegisterTimerExpireEventBJ( gg_trg_Disincome_OV, udg_IncomeTimerSecond )
    call TriggerAddAction( gg_trg_Disincome_OV, function Trig_Disincome_OV_Actions )
endfunction