function Trig_Attack_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == 'A001' ) ) then
        return false
    endif
    return true
endfunction

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

function AC0 takes nothing returns boolean
    return ( IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(Shot)) == true )
endfunction

function AC takes nothing returns boolean
    return GetBooleanAnd( AC0(), AC1() )
endfunction

function PA takes nothing returns nothing
endfunction

function Shot_Action takes nothing returns nothing
    local location loc=GetUnitLoc(Shot)
    local group g
    call MoveLocation(loc, GetLocationX(p) + 30 * CosBJ(facing), GetLocationY(loc) + 30 * SinBJ(facing))
    call SetUnitPosition(Shot,GetLocationX(loc),GetLocationY(loc))
    set g=GetUnitsInRangeOfLocMatching(40.00, GetRectCenter(GetUnitLoc(Shot)), Condition(function AC()))
        call ForGroupBJ(g, function PA() )
    call DestroyGroup(g)
    call RemoveLocation(loc)
endfunction

function Trig_Attack_Actions takes nothing returns nothing
    local trigger APS=CreateTrigger()
    local unit Shot
    local real X=GetUnitX(GetTriggerUnit())
    local real Y=GetUnitY(GetTriggerUnit())
    local real facing=AngleBetweenPoints(GetUnitLoc(GetTriggerUnit(),GetSpellTargetLoc()))
    CreateUnit(Player(GetOwningPlayer(GetTriggerUnit())),'SHOT',X,Y,facing)
    set Shot=GetLastCreatedUnit()
    call TriggerRegisterTimerEventPeriodic(APS, 0.05 )
    call TriggerAddAction(APS, Shot_Action())
    set X=null
    set Y=null
endfunction

//===========================================================================
function InitTrig_Attack takes nothing returns nothing
    set gg_trg_Attack = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Attack, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Attack, Condition( function Trig_Attack_Conditions ) )
    call TriggerAddAction( gg_trg_Attack, function Trig_Attack_Actions )
endfunction