function Timer_ArcBolt_Expired takes nothing returns nothing
    local timer t = GetExpiredTimer( )
    local integer id = GetHandleId( t )
    local unit cast = LoadUnitHandle( HashData, id, 0 )
    local unit targ = LoadUnitHandle( HashData, id, 1 )
    local integer max = LoadInteger( HashData, id, 4 )
    local integer cur = LoadInteger( HashData, id, 5 )
    local group grp = LoadGroupHandle( HashData, id, ExChainGroup )
    local unit enemy = null

    call UnitDamageTarget( cast, targ, LoadReal( HashData, id, 3 ), false, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_FIRE, WEAPON_TYPE_WHOKNOWS )
    call DestroyEffect( AddSpecialEffectTarget( "Abilities\\Weapons\\Bolt\\BoltImpact.mdl", targ, "chest" ) )

    call GroupAddUnit( grp, targ )
    call GroupClear( bj_TempGroup )
    set bj_groupEnumOwningPlayer = GetOwningPlayer( cast )
    set bj_ChainGroup = grp
    call GroupEnumUnitsInRange( bj_TempGroup, GetUnitX( targ ), GetUnitY( targ ), RMaxBJ( LoadReal( HashData, id, 6 ), 200.00 ), Condition( function Only_Visibly_Enemy_No_Immune_NoReply_Unit ) )
    call GroupRemoveUnit( bj_TempGroup, targ )
    set enemy = GroupPickRandomUnit( bj_TempGroup )

    if enemy == null or cur >= max then
        call PauseTimer( t )
        call ReleaseTimer( t )
        call FlushChildHashtable( HashData, id )
        call NSI( grp )
    else
        call SaveInteger( HashData, id, 5, cur + 1 )
        call SaveUnitHandle( HashData, id, 1, enemy )
        call CreateBolt( targ, enemy, "CLSB", 1.50, false )
    endif

    set cast = null
    set targ = null
    set enemy = null
    set grp = null
    set t = null
endfunction

function Trig_ArcLightning_Actions takes nothing returns nothing
    local unit cast = GetSpellAbilityUnit( )
    local unit targ = GetSpellTargetUnit( )
    local integer level = GetUnitAbilityLevel( cast, 'A020' )
    local integer max = 3 + 2 * level
    local timer t = NewTimer( )
    local integer id = GetHandleId( t )

    if level == 4 then
        set max = 15
    endif

    call SaveUnitHandle( HashData, id, 0, cast )
    call SaveUnitHandle( HashData, id, 1, targ )
    call SaveReal( HashData, id, 3, 50.00 + 30.00 * level )
    call SaveInteger( HashData, id, 4, max )
    call SaveInteger( HashData, id, 5, 1 )
    call SaveGroupHandle( HashData, id, ExChainGroup, NTI( ) )
    call SaveReal( HashData, id, 6, 525 )

    call CreateBolt( cast, targ, "CLPB", 1.50, true )

    call TimerStart( t, 0.25, true, function Timer_ArcBolt_Expired )

    set cast = null
    set targ = null
    set t = null
endfunction

function Trig_ArcLightning_Conditions takes nothing returns boolean
    if GetSpellAbilityId( ) == 'A020' and not IsUnitHasNegation( GetSpellTargetUnit( ) ) then
        call Trig_ArcLightning_Actions( )
    endif
    return false
endfunction

//==== Init Trigger NewTrigger ====
function InitTrig_ArcLightning takes nothing returns nothing
    local trigger trg = CreateTrigger( )
    local integer nIndex = 1

    call TriggerAddCondition( trg, Condition( function Trig_ArcLightning_Conditions ) )

    loop
        exitwhen nIndex > 11
        if IsSlotPlayer( Player( nIndex ) ) then
            call TriggerRegisterPlayerUnitEvent( trg, Player( nIndex ), EVENT_PLAYER_UNIT_SPELL_EFFECT, OnlyHero )
        endif
        set nIndex = nIndex + 1
    endloop

    set trg = null
endfunction

function AQ1 takes nothing returns nothing
    local unit enum = GetEnumUnit( )
    local real d = DistBetweenCords( GetUnitX( enum ), GetUnitY( enum ), PJ, QJ )
    if d < RJ then
        set RJ = d
        set TJ = enum
    endif
    set enum = null
endfunction

function AU1 takes group g, real x, real y returns unit
    set RJ = 999999
    set TJ = null
    set PJ = x
    set QJ = y
    call ForGroup( g, function AQ1 )
    return TJ
endfunction

	struct LightningData
    private static constant timer period = CreateTimer( )
    private thistype prev
    private thistype next
    private lightning bolt
    private unit a1
    private unit a2
    private real ax1
    private real ay1
    private real ax2
    private real ay2
    private real alpha
    private real ticks
    private real time
    private boolean flag


    private stub method destroy takes nothing returns nothing

    call SetLightningColor( this.bolt, 0.00, 0.00, 0.00, 0.00 )
    call DestroyLightning( this.bolt )
    set this.a1 = null
    set this.a2 = null
    set this.bolt = null
    set this.alpha = 0.00

    set this.prev.next = this.next
    set this.next.prev = this.prev

    if ( thistype( 0 ).next == 0 ) then
        call PauseTimer( thistype.period )
    endif

    call thistype.deallocate( this )
endmethod
        
private static method iterate takes nothing returns nothing
    local thistype this = thistype( 0 ).next

    loop
        exitwhen ( this == 0 )
                
        if not IsUnitDead( this.a1 ) then
            set this.ax1 = GetUnitX( this.a1 )
            set this.ay1 = GetUnitY( this.a1 )
            if this.flag then
                set this.ax1 = this.ax1 + 25.00
                set this.ay1 = this.ay1 - 25.00
            endif
        endif
                    
        if not IsUnitDead( this.a2 ) then
            set this.ax2 = GetUnitX( this.a2 )
            set this.ay2 = GetUnitY( this.a2 )
        endif
                
        set TempAZ = GetLocationZ( bj_TempPoint ) + GetUnitFlyHeight( this.a1 ) + GetUnitHeight( this.a1 )
        call MoveLocation( bj_TempPoint, this.ax2, this.ay2 )
        set TempBZ = GetLocationZ( bj_TempPoint ) + GetUnitFlyHeight( this.a2 ) + GetUnitHeight( this.a2 )
        call MoveLightningEx( this.bolt, true, this.ax1, this.ay1, TempAZ, this.ax2, this.ay2, TempBZ )
                    
        if GetLightningColorA( this.bolt ) > this.alpha then
            call SetLightningColor( this.bolt, GetLightningColorR( this.bolt ), GetLightningColorG( this.bolt ), GetLightningColorB( this.bolt ), GetLightningColorA( this.bolt ) - this.alpha )
        endif
                    
        set this.ticks = ( this.ticks + 0.03125 ) * 1.00
        if this.ticks > this.time then
            call this.destroy( )
        endif
                    
        set this = this.next
    endloop

endmethod

static method CreateBolt takes unit a, unit b, string CodeName, real timeout, boolean IsCaster returns thistype
    local thistype this = thistype.allocate( )

    set this.next = thistype( 0 )
    set this.prev = thistype( 0 ).prev
    set this.next.prev = this
    set this.prev.next = this
    set this.a1 = a
    set this.a2 = b
    set this.ax1 = GetUnitX( this.a1 )
    set this.ay1 = GetUnitY( this.a1 )
    set this.ax2 = GetUnitX( this.a2 )
    set this.ay2 = GetUnitY( this.a2 )
    set this.alpha = ( 1.00 / ( timeout / 0.03125 ) )
    set this.ticks = 0
    set this.time = timeout
    set this.flag = IsCaster
            
    call MoveLocation( bj_TempPoint, this.ax1, this.ay1 )
    set TempAZ = GetLocationZ( bj_TempPoint ) + GetUnitFlyHeight( this.a1 ) + GetUnitHeight( this.a1 )
    call MoveLocation( bj_TempPoint, this.ax2, this.ay2 )
    set TempBZ = GetLocationZ( bj_TempPoint ) + GetUnitFlyHeight( this.a2 ) + GetUnitHeight( this.a2 )
    if this.flag then
        set this.ax1 = this.ax1 + 25.00
        set this.ay1 = this.ay1 - 25.00
    endif
    set this.bolt = AddLightningEx( CodeName, true, this.ax1, this.ay1, TempAZ, this.ax2, this.ay2, TempBZ )
    if ( this.prev == 0 ) then
        call TimerStart( thistype.period, 0.03125, true, function thistype.iterate )
    endif
    return this
endmethod
endstruct

function aow_GetApxExpBounty takes unit u returns real
return SquareRoot((GetUnitState(u, UNIT_STATE_MAX_LIFE) + GetUnitState(u, UNIT_STATE_MAX_MANA)) * GetUnitLevel(u)) * 2
endfunction