function Trig_Blood_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A002'
endfunction

function Trig_Blood_Actions takes nothing returns nothing
    local unit u = GetSpellAbilityUnit()
    local real x1
    local real y1
    local real x2 = GetUnitX(u)
    local real y2 = GetUnitY(u)
    local integer i = 0
    loop
        exitwhen i > 31
         set x1 = GetUnitX(u)
         set y1 = GetUnitY(u)
         if (( x1 != x2 ) or ( y1 != y2 )) then
          call TerrainDeformationRippleBJ( 1.00, true, GetUnitLoc(u), 0.00, 512.00, 128.00, 1, 512 )
          call CreateNUnitsAtLoc( 1, 'h000', Player(0), GetUnitLoc(u), bj_UNIT_FACING )
          call IssueImmediateOrderBJ( GetLastCreatedUnit(), "thunderclap" )
          call AddSpecialEffectLocBJ( GetUnitLoc(u), "Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl" )
          call TriggerSleepAction( 0.03 )
          call RemoveUnit( GetLastCreatedUnit() )
          call DestroyEffectBJ( GetLastCreatedEffectBJ() )
         else
          call TriggerSleepAction( 0.03 ) 
         endif
         set x2 = GetUnitX(u)
         set y2 = GetUnitY(u)
         call TriggerSleepAction( 0.20 )
         set i = i + 1
    endloop
    set x1 = 0
    set x2 = 0
    set y1 = 0
    set y2 = 0
    set u= null
endfunction

//===========================================================================
function InitTrig_Blood takes nothing returns nothing
    set gg_trg_Blood = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Blood, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Blood, Condition( function Trig_Blood_Conditions ) )
    call TriggerAddAction( gg_trg_Blood, function Trig_Blood_Actions )
    call Preload("Abilities\\Spells\\Orc\\WarStomp\\WarStompCaster.mdl")
endfunction