function DLK takes nothing returns nothing
    local integer i
    local timer t = GetExpiredTimer()
    local integer h = GetHandleId(t)
    local lightning l = LoadLightningHandle(udg_GHT,h,1)
    local real r = GetLightningColorR(l)
    local real g = GetLightningColorG(l)
    local real b = GetLightningColorB(l)
    call BJDebugMsg(I2S(i))
    if i <=31 then
    set i = i+1
    set r = r-5
    set g = g-5
    set b = b-5
    call SetLightningColor(l,r,g,b,GetLightningColorA(l))
    call BJDebugMsg(I2S(i))
    else
    call DestroyLightning(l)
    call DestroyTimer(t)
    call FlushChildHashtable(udg_GHT,h)
    endif
    set t = null
    set l = null
endfunction

function DL takes lightning l, real r returns nothing
    local timer t = CreateTimer()
    local integer h = GetHandleId(t)
    call SaveLightningHandle(udg_GHT,h,1,l)
    //call TimerStart(t,r,false,function DLK_old)
    call TimerStart(t,r/30,true,function DLK)
    set t = null
    set l = null
endfunction

У меня в голову приходит только одна идея реализации - сделать даммиков под героем на каждого юнита, кастовать абилку-пустышку с навесной траэкторией и автонаведением, и путём отлова урона от этого каждого даммика пускать эффект молнии в связанную с ним цель.

function t2a takes nothing returns nothing
    local unit u = GetEventDamageSource() // Кто нанёс урон (имя)
    local real r = GetEventDamage() // Сколько урона
    call BJDebugMsg(GetUnitName(u)+" = Attacker") // Отображение игроку
    call BJDebugMsg(R2S(r)+" = Damage") // Отображение игроку
endfunction

//===========================================================================
function InitTrig_t2 takes nothing returns nothing
    local unit u = gg_unit_H000_0000 // Вот наш юнит, можешь заменить на глобалку
    set gg_trg_t2 = CreateTrigger()
    call TriggerRegisterUnitEvent(gg_trg_t2,u,EVENT_UNIT_DAMAGED) //Юнит продамажен
    call TriggerAddAction( gg_trg_t2, function t2a )
endfunction

function t2a takes nothing returns nothing
    local unit u = GetEventDamageSource() // Кто нанёс урон (имя)
    local real r = GetEventDamage() // Сколько урона
    call BJDebugMsg(GetUnitName(u)+" = Attacker") // Отображение игроку
    call BJDebugMsg(R2S(r)+" = Damage") // Отображение игроку
	set u = null  // Это вот должно быть тут
endfunction

//===========================================================================
function InitTrig_t2 takes nothing returns nothing
    local unit u = gg_unit_H000_0000 // Вот наш юнит, можешь заменить на глобалку
    set gg_trg_t2 = CreateTrigger()
    call TriggerRegisterUnitEvent(gg_trg_t2,u,EVENT_UNIT_DAMAGED) //Юнит продамажен
    call TriggerAddAction( gg_trg_t2, function t2a )
endfunction