globals
    unit array lbcaster
    unit array lbdummy
    real array lbdist
    real array lbrx
    real array lbry
    lightning array lbln
endglobals

function LBallMove takes nothing returns nothing
    local integer i  = get_object_iparam(GetExpiredTimer(),"LIndex")
    local unit    b  = lbdummy[i]
    local unit    gu
    local group   g
    local real    d
    local real    a
    local real    rx
    local real    ry
    
    set lbdist[i] = lbdist[i] + 1
    call SetUnitX(b, GetUnitX(b) + 3 * Cos(.0174 * GetUnitFacing(b)))
    call SetUnitY(b, GetUnitY(b) + 3 * Sin(.0174 * GetUnitFacing(b)))
    
    if (lbdist[i] - I2R(R2I(lbdist[i] / 30)) * 30) == 0 then
        call DestroyLightning(lbln[i])
        set g = CreateGroup()
        set d = GetRandomReal(0, 500)
        set a = GetRandomReal(0, 359)
        set lbrx[i] = GetUnitX(b)+ d * Cos(a * .0174)
        set lbry[i] = GetUnitY(b)+ d * Sin(a * .0174)
        set lbln[i] = AddLightningEx("CHIM", true, GetUnitX(b), GetUnitY(b), 260, lbrx[i], lbry[i], GetLocationZ(Location(lbrx[i],lbry[i])))
        call DestroyEffect(AddSpecialEffect("Abilities\\Weapons\\Bolt\\BoltImpact.mdl",lbrx[i],lbry[i]))
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Items\\AIlb\\AIlbSpecialArt.mdl",lbrx[i],lbry[i]))
        call GroupEnumUnitsInRange(g, lbrx[i], lbry[i], 200, null)
        loop
            set gu = FirstOfGroup(g)
            exitwhen gu == null
            call GroupRemoveUnit(g,gu)
            ...
        endloop
        call DestroyGroup(g)
    endif
    call MoveLightningEx(lbln[i], true, GetUnitX(b), GetUnitY(b), 260, lbrx[i], lbry[i], GetLocationZ(Location(lbrx[i],lbry[i])))
    if lbdist[i] > 500 then
        call DestroyLightning(lbln[i])
        call RemoveUnit(lbdummy[i])
        set lbcaster[i] = null
        set lbdummy[i]  = null
        set lbln[i]     = null
        call flush_object(GetExpiredTimer())
        call DestroyTimer(GetExpiredTimer())
    endif
    set g = null
    set b = null
endfunction

function CreateLightningBall takes nothing returns nothing
    local timer   t = CreateTimer()
    local integer i = 0
    loop
        exitwhen lbdummy[i] == null
        set i = i + 1
    endloop
    call BJDebugMsg(I2S(i))
    set lbcaster[i] = GetTriggerUnit()
    set lbdummy[i] = CreateUnit(GetOwningPlayer(lbcaster[i]), 'e000', GetUnitX(lbcaster[i]), GetUnitY(lbcaster[i]), GetUnitFacing(lbcaster[i]))
    call SetUnitScale(lbdummy[i], 4, 0, 0)
    call AddSpecialEffectTarget("Abilities\\Spells\\Human\\ManaFlare\\ManaFlareTarget.mdl", lbdummy[i], "chest")
    call AddSpecialEffectTarget("Abilities\\Weapons\\FarseerMissile\\FarseerMissile.mdl", lbdummy[i], "chest")
    set lbdist[i] = 0
    call set_object_iparam(t, "LIndex", i)
    call TimerStart(t, 0.02, true, function LBallMove)
    set t = null
endfunction