function WisdomCon takes nothing returns boolean
local group g=CreateGroup()
local unit u=GetSpellAbilityUnit()
call GroupEnumUnitsInRange(g,GetUnitX(u),GetUnitY(u),700.,null)
call BJDebugMsg("Begin")
loop
set u=FirstOfGroup(g)
if GetUnitAbilityLevel(u,'A003')>0 then
return true
call BJDebugMsg("Succes")
call DestroyGroup(g)
set g=null
set udg_u=u
set u=null
endif
call GroupRemoveUnit(g,u)
set u=null
exitwhen g==null
endloop
call DestroyGroup(g)
call BJDebugMsg("Fail")
return false
endfunction
function Wisdom takes nothing returns nothing
local unit u=udg_u
local integer i=GetUnitAbilityLevel(u,'A003')
call BJDebugMsg("At trig")
call SetHeroInt(u,GetHeroInt(u,false)+i,true)
call PolledWait(GetRandomReal(4.,14.))
call SetHeroInt(u,GetHeroInt(u,false)-i,true)
set u=null
endfunction
function InitTrig_Wisdom takes nothing returns nothing
local trigger tr=CreateTrigger()
call TriggerRegisterAnyUnitEventBJ(tr,EVENT_PLAYER_UNIT_SPELL_EFFECT)
call TriggerAddCondition(tr,Condition(function WisdomCon))
call TriggerAddAction(tr, function Wisdom)
set tr=null
endfunction

loop
set u=FirstOfGroup(g)
if GetUnitAbilityLevel(u,'A003')>0 then
return true
call BJDebugMsg("Succes")

if GetUnitAbilityLevel(u,'A003')>0 then
  call BJDebugMsg("Succes")
  call DestroyGroup(g)
  set g=null
  set udg_u=u
  set u=null
endif