function ExThunderBolt takes nothing returns nothing
       local timer t = GetExpiredTimer()
       local integer id = GetHandleId(t)
       local integer ip = LoadInteger( udg_H, id, 0)
       local integer i = 0
       local integer end = 0
          
       loop
           exitwhen i == 15
           if udg_ThunderBoltCharge[i+ip*15] != 0 then
               set udg_ThunderBoltCharge[i+ip*15] = udg_ThunderBoltCharge[i+ip*15]  - 1
               set end = end + 1
           endif
           set i = i + 1
           endloop
          
       if end == 0 then
          call DestroyTimer(t)
          set udg_ThunderBoltTimer[ip] = null
          call FlushChildHashtable( udg_H, id )
              
       endif
          
       set t = null
endfunction

function RegThunderBoltDmgUp takes unit u returns nothing
       local integer i = 0
       local integer en = GetPlayerId(GetOwningPlayer(u))
       local boolean b = false
       local timer t = udg_ThunderBoltTimer[en]
       if t != null then
           loop
           exitwhen i == 15 or b
           set udg_ThunderBoltDamageStuck[en] = udg_ThunderBoltDamageStuck[en] + 50.
           if udg_ThunderBoltCharge[i+en*15] == 0 then
               set udg_ThunderBoltCharge[i+en*15] = udg_ThunderBoltCharge[i+en*15]  + 20
               set b = true  
           endif
           set i = i + 1
           endloop
       else
           set t = CreateTimer()
           set i = GetHandleId(t)
           call SaveTimerHandle( udg_H, GetHandleId(u), 127, t )
           call SaveInteger(  udg_H, i, 0, GetPlayerId(GetOwningPlayer(u)) )
          call SaveUniHandlet(  udg_H,i, 1, u )
           set udg_ThunderBoltCharge[i+en*15] = udg_ThunderBoltCharge[en*15]  + 20
           call TimerStart( t, 1., true, function ExThunderBolt)
       endif
          
       set t = null
endfunction