function DS_CCasted takes nothing returns boolean
    local boolean b = false
    local integer a = 0
    loop
      exitwhen a>udg_DS_Num or b == true
        set b = (GetSpellAbilityUnit() == udg_DS_Units[a] )
        set a = a + 1
    endloop
    return b
endfunction

//udg_DS_CTrigger : trigger - Õðàíèò â ñåáå òðèããåð, êîòîðûé îòëàâëèâàåò êàñò ñïåëëîâ ñðåäè ïðîêëÿòûõ âîèíîâ
//udg_DS_Units : array unit  - ññûëêè íà ïðîêëÿòûõ þíèòîâ
//udg_DS_Num : integer - êîëè÷åñòâî ïðîêëÿòûõ þíèòîâ
//udg_DS_Level : integer  - òåêóùèé óðîâåíü àáèëêè
//udg_DS_Timer : timer - äëÿ îò÷èñòêè íåíóæíîé ôèãíè


function DS_ClearA takes nothing returns nothing
    local integer a = 0
    loop
    exitwhen a>udg_DS_Num
        call RemoveUnit(udg_DS_Units[a])
        set udg_DS_Units[a] = null
        set a = a + 1
    endloop
    set udg_DS_Num = 0
    call DestroyTimer(udg_DS_Timer)
    set udg_DS_Timer = null
    set udg_DS_Level = 0
    call DestroyTrigger(udg_DS_CTrigger)
    set udg_DS_CTrigger=null
endfunction


function DS_ACasted takes nothing returns nothing
    call CreateUnit(Player(0),'h000', GetUnitX(udg_DS_Units[101]) , GetUnitY(udg_DS_Units[101]) , 1)
    call UnitDamageTargetBJ( GetLastCreatedUnit(), GetSpellAbilityUnit(), udg_DS_Level*40, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL )
    call IssuePointOrderLocBJ( GetLastCreatedUnit(), "silence", GetUnitLoc(GetSpellAbilityUnit()) )
    call PolledWait(0.05)
    call RemoveUnit(GetLastCreatedUnit() )
endfunction


function DS_CCasted takes nothing returns boolean
    local boolean b = false
    local integer a = 0
    loop
      exitwhen a>udg_DS_Num or b == true
        set b = (GetSpellAbilityUnit() == udg_DS_Units[a] )
        set a = a + 1
    endloop
    return b
endfunction


function DS_PUnits takes nothing returns nothing
    if (GetOwningPlayer(GetEnumUnit()) != GetOwningPlayer(udg_DS_Units[101]) ) and (PlayersAreCoAllied(GetOwningPlayer(GetEnumUnit()),udg_DS_Units[101]) == false)  then
        set udg_DS_Units[udg_DS_Num] = GetEnumUnit()
        set udg_DS_Num = udg_DS_Num + 1
    else
    endif
endfunction

function DS_Casting takes nothing returns nothing
    call DS_ClearA()
    set udg_DS_Num = 0
    set udg_DS_Units[101] = GetTriggerUnit()
    set udg_DS_Level = GetUnitAbilityLevel(udg_DS_Units[101], 'A001' )
    call ForGroupBJ( GetUnitsInRangeOfLocAll(udg_DS_Level*300, GetUnitLoc(udg_DS_Units[101])), function DS_PUnits )
    call DestroyGroup(bj_lastCreatedGroup)
    set udg_DS_CTrigger = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(udg_DS_CTrigger, EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(udg_DS_CTrigger, function DS_CCasted )
    call TriggerAddAction( udg_DS_CTrigger, function DS_ACasted )
endfunction

//udg_DS_CTrigger : trigger - Õðàíèò â ñåáå òðèããåð, êîòîðûé îòëàâëèâàåò êàñò ñïåëëîâ ñðåäè ïðîêëÿòûõ âîèíîâ
//udg_DS_Units : array unit  - ññûëêè íà ïðîêëÿòûõ þíèòîâ
//udg_DS_Num : integer - êîëè÷åñòâî ïðîêëÿòûõ þíèòîâ
//udg_DS_Level : integer  - òåêóùèé óðîâåíü àáèëêè
//udg_DS_Timer : timer - äëÿ îò÷èñòêè íåíóæíîé ôèãíè


function DS_ClearA takes nothing returns nothing
    local integer a = 0
    loop
    exitwhen a>udg_DS_Num
        call RemoveUnit(udg_DS_Units[a])
        set udg_DS_Units[a] = null
        set a = a + 1
    endloop
    set udg_DS_Num = 0
    call DestroyTimer(udg_DS_Timer)
    set udg_DS_Timer = null
    set udg_DS_Level = 0
    call DestroyTrigger(udg_DS_CTrigger)
    set udg_DS_CTrigger=null
endfunction


function DS_ACasted takes nothing returns nothing
    call CreateUnit(Player(0),'h000', GetUnitX(udg_DS_Units[101]) , GetUnitY(udg_DS_Units[101]) , 1)
    call UnitDamageTargetBJ( GetLastCreatedUnit(), GetSpellAbilityUnit(), udg_DS_Level*40, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL )
    call IssuePointOrderLocBJ( GetLastCreatedUnit(), "silence", GetUnitLoc(GetSpellAbilityUnit()) )
    call PolledWait(0.3)
    call RemoveUnit(GetLastCreatedUnit() )
endfunction



function DS_CCasted takes nothing returns boolean
    local boolean b = false
    local integer a = 0
    loop
      exitwhen a>udg_DS_Num or b == true
        set b = (GetSpellAbilityUnit() == udg_DS_Units[a] )
        set a = a + 1
    endloop
    return b
endfunction


function DS_PUnits takes nothing returns nothing
    if (GetOwningPlayer(GetEnumUnit() ) != GetOwningPlayer(udg_DS_Units[101]) ) and  (GetPlayerAlliance(GetOwningPlayer(GetEnumUnit() ),GetOwningPlayer(udg_DS_Units[101]),ALLIANCE_PASSIVE) ==false )  then
        set udg_DS_Units[udg_DS_Num] = GetEnumUnit()
        set udg_DS_Num = udg_DS_Num + 1
    endif
endfunction

function DS_Casting takes nothing returns nothing
    call DS_ClearA()
    set udg_DS_Num = 0
    set udg_DS_Units[101] = GetTriggerUnit()
    set udg_DS_Level = GetUnitAbilityLevel(udg_DS_Units[101], 'A001' )
    call ForGroupBJ( GetUnitsInRangeOfLocAll(udg_DS_Level*300, GetUnitLoc(udg_DS_Units[101])), function DS_PUnits )
    call DestroyGroup(bj_lastCreatedGroup)
    set udg_DS_CTrigger = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(udg_DS_CTrigger, EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(udg_DS_CTrigger, Condition(function DS_CCasted) )
    call TriggerAddAction(udg_DS_CTrigger, function DS_ACasted)
endfunction