function Trig_A_Conditions takes nothing returns boolean
     if (not(GetSpellAbilityId() == 'A000')) then
         return false
     endif
     return true
endfunction
function Trig_A_Actions takes nothing returns nothing
  local integer i =1
  local unit caster = GetSpellAbilityUnit()
   loop
    exitwhen i>5
    call AddSpecialEffectLocBJ((GetUnitLoc (caster)),"Abilities\\Spells\\Human\\ThunderClap\\ThunderClapCaster.mdl")
    call DestroyEffectBJ(GetLastCreatedEffectBJ())
    set i=i+1  
    call TriggerSleepAction(0.5)
   endloop
endfunction
function InitTrig_A takes nothing returns nothing
     set gg_trg_A = CreateTrigger()
     call TriggerRegisterAnyUnitEventBJ( gg_trg_A, EVENT_PLAYER_UNIT_SPELL_EFFECT )
     call TriggerAddAction(gg_trg_A, function Trig_A_Actions)
     call TriggerAddCondition(gg_trg_A,Condition(function Trig_A_Conditions))
endfunction

function Timer takes nothing returns nothing
   local timer tim2=GetExpiredTimer()
   local integer h2=GetHandleId(tim2)
   local unit sc2=LoadUnitHandle(udg_hash,h2,1)
   local unit st2=LoadUnitHandle(udg_hash,h2,2)
   local real sx2=LoadReal(udg_hash,h2,3)
   local real sy2=LoadReal(udg_hash,h2,4)
   local effect sef =AddSpecialEffect("Abilities\\Spells\\Human\\Banish\\BanishTarget.mdl",sx2,sy2)
   call SetUnitPosition(sc2,sx2,sy2)
   call DestroyEffect(sef)
   call FlushChildHashtable(udg_hash,h2)
   set tim2=null
   set sc2=null
   set st2=null
   set sef=null
endfunction
function Actions takes nothing returns nothing
   local unit sc=GetSpellAbilityUnit()
   local unit st=GetSpellTargetUnit()
   local timer tim=CreateTimer()
   local integer h=GetHandleId(tim)
   local real sx=GetUnitX(st)
   local real sy=GetUnitY(st)
   call SaveUnitHandle(udg_hash,h,1,sc)
   call SaveUnitHandle(udg_hash,h,2,st)
   call SaveReal(udg_hash,h,3,sx)
   call SaveReal(udg_hash,h,4,sy)
   call TimerStart(tim,0.1,false,function Timer)
   set sc = null
   set st = null
   set tim=null
endfunction

    local unit Lightningu=GetSpellAbilityUnit()
    local real Lightningx=GetSpellTargetX()
    local real Lightningy=GetSpellTargetY()
    local integer LightningI=0
    local group Lightningg=CreateGroup()
    local unit Lightningu2
    local real Lightningd=GetUnitAbilityLevel(Lightningu,'AOfs')*75.00
    local player Lightningp=GetOwningPlayer(Lightningu)
    local string LightningString="Abilities\\Weapons\\Bolt\\BoltImpact.mdl"
    local string LightningString2="Abilities\\Spells\\Other\\Monsoon\\MonsoonBoltTarget.mdl"
    local string LightningString3="Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl"
    call GroupEnumUnitsInRange(Lightningg,Lightningx,Lightningy,350.,null)
  loop   
      set Lightningu2 = FirstOfGroup(Lightningg)
    if IsUnitEnemy(Lightningu,Lightningp) == true then
      call UnitDamageTarget(Lightningu,Lightningu2,Lightningd,false,false,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_NORMAL,null)
    endif
      call GroupRemoveUnit(Lightningg,Lightningu2)
    exitwhen Lightningu2 == null
  endloop
    call DestroyEffect(AddSpecialEffect(LightningString2,Lightningx,Lightningy))
    call DestroyEffect(AddSpecialEffect(LightningString3,Lightningx,Lightningy))
    loop
       exitwhen LightningI == 12
         call DestroyEffect(AddSpecialEffect(LightningString,Lightningx+350.00*Cos(30*LightningI*bj_DEGTORAD),Lightningy+350.00*Sin(30*LightningI*bj_DEGTO RAD)))
         set LightningI = LightningI + 1
    endloop
    call DestroyGroup(Lightningg)
    set LightningString=null
    set LightningString2=null
    set LightningString3=null
    set Lightningu=null
    set Lightningg=null
    set Lightningu2=null
    set Lightningp=null