function Trig_QLoop_Func009Func001C takes nothing returns boolean
     local unit dummy
     set Dummy = LoadUnitHandleBJ(1, 2, udg_Hash)
     if ( not ( IsUnitEnemy(GetEnumUnit(), ConvertedPlayer(n)) == true ) ) then
         return false
     endif
     return true
endfunction

function Trig_QLoop_Func009A takes nothing returns nothing
     local integer K
     call SaveIntegerBJ( K, 1, 5, udg_Hash )     
     if ( Trig_QLoop_Func009Func001C() ) then
         set K = 1
     else
     endif
endfunction

function Trig_QLoop_Func010Func002A takes nothing returns nothing
     local unit dummy
     local integer n
     set n = GetHandleIdBJ(LoadPlayerHandleBJ(1, 1, udg_Hash))
     set Dummy = LoadUnitHandleBJ(1, 2, udg_Hash)
     call UnitDamageTargetBJ( Dummy, GetEnumUnit(), 100.00, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL )
     call AddSpecialEffectTargetUnitBJ( "chest", udg_Target[n], "Objects\\Spawnmodels\\Human\\HumanBlood\\HumanBloodFootman.mdl" )
     call DestroyEffectBJ( GetLastCreatedEffectBJ() )
endfunction

function Trig_QLoop_Func010C takes nothing returns boolean
     local unit dummy
     set Dummy = LoadUnitHandleBJ(1, 2, udg_Hash)
     local location TPoint
     set TPoint = LoadLocationHandleBJ(1, 4, udg_Hash)
     local integer K
     set K = GetHandleIdBJ(LoadPlayerHandleBJ(1, 5, udg_Hash))   
     if ( not ( DistanceBetweenPoints(GetUnitLoc(Dummy), TPoint) >= 50.00 ) ) then
         return false
     endif
     if ( not ( K == 0 ) ) then
         return false
     endif
     return true
endfunction

function Trig_QLoop_Actions takes nothing returns nothing
     local unit dummy
     local integer n
     local real Angle
     local location TPoint
     local integer K
     set n = GetHandleIdBJ(LoadPlayerHandleBJ(1, 1, udg_Hash))
     set Dummy = LoadUnitHandleBJ(1, 2, udg_Hash)
     set Angle = LoadRealBJ(1, 3, udg_Hash)
     set TPoint = LoadLocationHandleBJ(1, 4, udg_Hash)
     call ForGroupBJ( GetUnitsInRangeOfLocAll(50.00, GetUnitLoc(Dummy)), function Trig_QLoop_Func009A )
     set K = GetHandleIdBJ(LoadPlayerHandleBJ(1, 5, udg_Hash))     
     if ( Trig_QLoop_Func010C() ) then
         call SetUnitPositionLocFacingLocBJ( Dummy, PolarProjectionBJ(GetUnitLoc(Dummy), 50.00, Angle), TPoint )
     else
         call DisableTrigger( GetTriggeringTrigger() )
         call ForGroupBJ( GetUnitsInRangeOfLocAll(70.00, GetUnitLoc(Dummy)), function Trig_QLoop_Func010Func002A )
         call RemoveUnit( Dummy )
     endif
     call SaveIntegerBJ( n, 1, 1, udg_Hash )
     call SaveUnitHandleBJ( Dummy, 1, 2, udg_Hash )
     call SaveRealBJ( Angle, 1, 3, udg_Hash )
     call SaveLocationHandleBJ( TPoint, 1, 4, udg_Hash )
     call SaveIntegerBJ( K, 1, 5, udg_Hash )     
endfunction

//===========================================================================
function InitTrig_QLoop takes nothing returns nothing
     set gg_trg_QLoop = CreateTrigger(  )
     call TriggerRegisterTimerEventPeriodic( gg_trg_QLoop, 0.02 )
     call TriggerAddAction( gg_trg_QLoop, function Trig_QLoop_Actions )
endfunction