scope BlinkStrike initializer Init
    globals
        private constant integer SpellID            = '----' 
        private constant string  CasterEffect       = "--" 
        private constant string  TargetEffect       = "--" 
        private constant real    ImpactDamagePerLvl = 100
        private constant real    GroupDamagePerLvl  = 50
        private constant real    GroupAoE           = 300
    endglobals

    private function UnitsAoE takes unit target returns boolean
        return (GetWidgetLife(target) > 0.405) and (IsUnitType(target, UNIT_TYPE_STRUCTURE) == false) and (IsUnitType(target, UNIT_TYPE_MAGIC_IMMUNE) == false) and (IsUnitType(target, UNIT_TYPE_MECHANICAL) == false) and (IsUnitEnemy(target, GetTriggerPlayer()) == true)
    endfunction
    globals
        private boolexpr b
    endglobals
    
    private function Conditions takes nothing returns boolean
        return GetSpellAbilityId() == SpellID
    endfunction

    private function Targets takes nothing returns boolean
        return UnitsAoE(GetFilterUnit())
    endfunction
    
    private function GroupDamage takes nothing returns nothing
        call UnitDamageTarget(GetTriggerUnit(), GetEnumUnit(), GroupDamagePerLvl, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
    endfunction
    
    private function Actions takes nothing returns nothing
        local unit c = GetSpellAbilityUnit()
        local unit t = GetSpellTargetUnit()
        local real x = GetUnitX(c)
        local real y = GetUnitY(c)
        local group g = CreateGroup()
        call DestroyEffect(AddSpecialEffect(CasterEffect,x,y))
        set x = GetUnitX(t)
        set y = GetUnitY(t)
        call SetUnitX(c, x)
        call SetUnitY(c, y)
        call DestroyEffect(AddSpecialEffect(TargetEffect,x,y))
        if IsUnitEnemy(t, GetTriggerPlayer()) then
            call UnitDamageTarget(c, t, I2R(GetUnitAbilityLevel(c,SpellID))*ImpactDamagePerLvl, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_UNKNOWN, WEAPON_TYPE_WHOKNOWS)
            else
        endif
        call GroupEnumUnitsInRange(g, x, y, GroupAoE, b) 
        call ForGroup(g, function GroupDamage)
        set c = null
        set t = null
    endfunction

    private constant function NoLeakFilter takes nothing returns boolean
        return true
    endfunction

    private function Init takes nothing returns nothing
        local trigger t = CreateTrigger(  )
        local integer i = 0
        local filterfunc ff = Filter(function NoLeakFilter)
        loop
            call TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, ff)
            set i = i + 1
            exitwhen i == bj_MAX_PLAYER_SLOTS
        endloop
        set i = 0
        set b = Condition(function Targets)
        call TriggerAddCondition( t, Condition( function Conditions ) )
        call TriggerAddAction( t, function Actions )
        call Preload(CasterEffect)
        call Preload(TargetEffect)
        call PreloadStart()
        call DestroyFilter(ff)
        set ff = null
    endfunction
endscope