library DetectMetamorphCastEndcast initializer Init

  #define StandartTypeId = 'Edem'
  #define MorphTypeId    = 'Edmm'

  function CastStart takes nothing returns nothing
  
    if ((GetUnitTypeId(GetTriggerUnit())) ==  (StandartTypeId)) then
      BJDebugMsg("MorphEffect")
    elseif ((GetUnitTypeId(GetTriggerUnit())) == (MorphTypeId)) then
      BJDebugMsg("MorphEndEffect")
    endif
    
  endfunction
 //=================================================================
  function Init takes nothing returns nothing
    trigger t = CreateTrigger()
    TriggerRegisterPlayerUnitEvent(t, Player(0), EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
    TriggerAddAction( t, function CastStart )
    t = null
  endfunction
endlibrary