function Trig_a_Conditions takes nothing returns boolean
     return  GetSpellAbilityId() == 'A000'
endfunction

function Trig_Asuma_Spell_1_Cast_Actions takes nothing returns nothing
     local unit u = GetSpellAbilityUnit()
     local real array a
     set a[1] = GetUnitX(u)
     set a[2] = GetUnitY(u)
     set a[3] = GetLocationX(GetSpellTargetLoc())
     set a[4] = GetLocationX(GetSpellTargetLoc())
     local real angle = Atan2(loc[3] - loc[1], loc[4] - loc[2])
     set a[5] = (a[1] + 50. * Cos(angle))
     set a[6] = (a[2] + 50. * Sin(angle))
     local player p = GetOwningPlayer(u)
     local unit dummy = CreateUnit (p, 'h001', a[5], a[6], angle)
      
endfunction

//===========================================================================
function InitTrig_Asuma_Spell_1_Cast takes nothing returns nothing
     set gg_trg_Asuma_Spell_1_Cast = CreateTrigger(  )
     call TriggerRegisterAnyUnitEventBJ( gg_trg_Asuma_Spell_1_Cast, EVENT_PLAYER_UNIT_SPELL_EFFECT )
     call TriggerAddCondition( gg_trg_Asuma_Spell_1_Cast, Condition( function Trig_Asuma_Spell_1_Cast_Conditions ) )
     call TriggerAddAction( gg_trg_Asuma_Spell_1_Cast, function Trig_Asuma_Spell_1_Cast_Actions )
endfunction