function Trig_qwr_Func001C takes nothing returns boolean
    if ( ( UnitHasItemOfTypeBJ(udg_MainHero[GetConvertedPlayerId(Player(0))], 'I00K') == true ) ) then
        return true
    endif
    if ( ( UnitHasItemOfTypeBJ(udg_MainHero[GetConvertedPlayerId(Player(1))], 'I00K') == true ) ) then
        return true
    endif
    if ( ( UnitHasItemOfTypeBJ(udg_MainHero[GetConvertedPlayerId(Player(2))], 'I00K') == true ) ) then
        return true
    endif
    if ( ( UnitHasItemOfTypeBJ(udg_MainHero[GetConvertedPlayerId(Player(3))], 'I00K') == true ) ) then
        return true
    endif
    return false
endfunction

function Trig_qwr_Conditions takes nothing returns boolean
    if ( not Trig_qwr_Func001C() ) then
        return false
    endif
    return true
endfunction

function Trig_qwr_Func002Func001Func001Func004001001003001 takes nothing returns boolean
    return ( IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(udg_Arrow[udg_Arrow_Integer])) == true )
endfunction

function Trig_qwr_Func002Func001Func001Func004001001003002001 takes nothing returns boolean
    return ( IsUnitType(GetFilterUnit(), UNIT_TYPE_STRUCTURE) == false )
endfunction

function Trig_qwr_Func002Func001Func001Func004001001003002002001 takes nothing returns boolean
    return ( IsUnitAliveBJ(GetFilterUnit()) == true )
endfunction

function Trig_qwr_Func002Func001Func001Func004001001003002002002 takes nothing returns boolean
    return ( IsUnitType(GetFilterUnit(), UNIT_TYPE_FLYING) == false )
endfunction

function Trig_qwr_Func002Func001Func001Func004001001003002002 takes nothing returns boolean
    return GetBooleanAnd( Trig_qwr_Func002Func001Func001Func004001001003002002001(), Trig_qwr_Func002Func001Func001Func004001001003002002002() )
endfunction

function Trig_qwr_Func002Func001Func001Func004001001003002 takes nothing returns boolean
    return GetBooleanAnd( Trig_qwr_Func002Func001Func001Func004001001003002001(), Trig_qwr_Func002Func001Func001Func004001001003002002() )
endfunction

function Trig_qwr_Func002Func001Func001Func004001001003 takes nothing returns boolean
    return GetBooleanAnd( Trig_qwr_Func002Func001Func001Func004001001003001(), Trig_qwr_Func002Func001Func001Func004001001003002() )
endfunction

function Trig_qwr_Func002Func001Func001C takes nothing returns boolean
    if ( not ( CountUnitsInGroup(GetUnitsInRangeOfLocMatching(50.00, GetUnitLoc(udg_Arrow[udg_Arrow_Integer]), Condition(function Trig_qwr_Func002Func001Func001Func004001001003))) > 0 ) ) then
        return false
    endif
    return true
endfunction

function Trig_qwr_Func002Func001C takes nothing returns boolean
    if ( not ( IsUnitInGroup(udg_Arrow[udg_Arrow_Integer], udg_Arrow_Group) == true ) ) then
        return false
    endif
    return true
endfunction

function Trig_qwr_Func004A takes nothing returns nothing
    call SetUnitPathing( GetEnumUnit(), false )
    call SetUnitPositionLoc( GetEnumUnit(), PolarProjectionBJ(GetUnitLoc(GetEnumUnit()), I2R(udg_Speed), GetUnitFacing(GetEnumUnit())) )
endfunction

function Trig_qwr_Actions takes nothing returns nothing
    set udg_Arrow_Integer = 1
    loop
        exitwhen udg_Arrow_Integer > udg_AI
        if ( Trig_qwr_Func002Func001C() ) then
            if ( Trig_qwr_Func002Func001Func001C() ) then
                // Kill Arrow
                call KillUnit( udg_Arrow[udg_Arrow_Integer] )
                call EnableTrigger( gg_trg_Arrow_DiesSpas1 )
            else
            endif
        else
        endif
        set udg_Arrow_Integer = udg_Arrow_Integer + 1
    endloop
    // Move Unit
    call ForGroupBJ( udg_Arrow_Group, function Trig_qwr_Func004A )
endfunction

//===========================================================================
function InitTrig_qwr takes nothing returns nothing
    set gg_trg_qwr = CreateTrigger(  )
    call DisableTrigger( gg_trg_qwr )
    call TriggerRegisterTimerEventPeriodic( gg_trg_qwr, 0.02 )
    call TriggerAddCondition( gg_trg_qwr, Condition( function Trig_qwr_Conditions ) )
    call TriggerAddAction( gg_trg_qwr, function Trig_qwr_Actions )
endfunction