trigger tgr_weder

function InitTriggers takes nothing returns nothing
	set tgr_weder = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(tgr_weder, EVENT_PLAYER_UNIT_SPELL_CAST )
	call TriggerAddCondition( tgr_weder, Condition( function weder ) )
	call TriggerAddAction(tgr_weder, function weder)
endfunction

function weder takes nothing returns nothing
    if GetSpellAbilityId() == 'A002' and if GetUnitTypeId(GetSpellAbilityUnit()) == 'h01Z' then
		call ReplaceUnitBJ( GetSpellAbilityUnit(), 'h036', bj_UNIT_STATE_METHOD_RELATIVE )
	elseif GetSpellAbilityId() == 'A002' and if GetUnitTypeId(GetSpellAbilityUnit()) == 'h04F' then
		call ReplaceUnitBJ( GetSpellAbilityUnit(), 'h04G', bj_UNIT_STATE_METHOD_RELATIVE )
	elseif GetSpellAbilityId() == 'A004' and if GetUnitTypeId(GetSpellAbilityUnit()) == 'h036' then
		call ReplaceUnitBJ( GetSpellAbilityUnit(), 'h01Z', bj_UNIT_STATE_METHOD_RELATIVE )
	elseif GetSpellAbilityId() == 'A004' and if GetUnitTypeId(GetSpellAbilityUnit()) == 'h04G' then
		call ReplaceUnitBJ( GetSpellAbilityUnit(), 'h04F', bj_UNIT_STATE_METHOD_RELATIVE )
	endif
endfunction