scope Example initializer init
//================================================================================  ===========================================
globals
 private constant string TargetEffect="Abilities\\Spells\\NightElf\\MoonWell\\MoonWellCasterArt.mdl"
endglobals
//================================================================================  ===========================================
private function Example_condition takes nothing returns boolean
 return GetSpellAbilityId()=='A00J' and GetUnitAbilityLevel(GetSpellTargetUnit(),'B006')==0
endfunction
//================================================================================  ===========================================
private struct ExampleDTB
 unit u
 trigger trg
 method motion takes nothing returns nothing
  if GetUnitAbilityLevel(.u,'B006')==0 then
   call SetHeroStr(.u,GetHeroStr(.u,false)+1,true)
   call SetHeroAgi(.u,GetHeroAgi(.u,false)+1,true)
   call SetHeroInt(.u,GetHeroInt(.u,false)+1,true)
   set .active=false
  endif
 endmethod
 method endmotion takes nothing returns nothing
  set .u=null 
  call DestroyTrigger(.trg)
  set .trg=null
  call .destroy()
 endmethod
 //! runtextmacro CostumMotion("ExampleDTB","motion","endmotion","0.25")
endstruct

private function Example_subaction takes nothing returns nothing
 local unit u=GetSpellAbilityUnit()
 call DestroyEffect(AddSpecialEffectTarget(TargetEffect,u,"chest"))
 set u=null
endfunction

private function Example_action takes nothing returns nothing
 local trigger trg=CreateTrigger()
 local unit u=GetSpellTargetUnit()
 local ExampleDTB mc=ExampleDTB.create()
 call TriggerRegisterUnitEvent(trg,u,EVENT_UNIT_SPELL_EFFECT)
 call TriggerAddAction(trg,function Example_subaction)
 set mc.u=u
 set mc.trg=trg
 call ExampleDTB.addMotion(mc)
 set u=null
 set trg=null
endfunction
//================================================================================  ===========================================
private function init takes nothing returns nothing
 local integer i=0
 set gg_trg_Example=CreateTrigger()
 loop
  call TriggerRegisterPlayerUnitEvent(gg_trg_Example,Player(i),EVENT_PLAYER_UNIT_SPELL_  EFFECT,Filter(function DebugFilter))
  set i=i+1
  exitwhen i==bj_MAX_PLAYER_SLOTS
 endloop
 call TriggerAddCondition(gg_trg_Example,Condition(function Example_condition))
 call TriggerAddAction(gg_trg_Example,function Example_action)
 call Preload(TargetEffect)
endfunction
//================================================================================  ===========================================
endscope