Triggers

// Deplacement - Spell for exchange the position of 2 units

// Jass version with local variables
// This version supports multiple instances of the spell.
// Requires 1.13 version of WTFT
// For use it in your map do this ...
// 1- Copy the ability "deplacement" to your map
// 2- Make a new detonator and "convert to text"
// 3- Change the text for this trigger
// 4- Make the "Deplacement_ab" var of type ability
//  and inizializate with the spell copied.

// I hope It be usefull for you

function Trig_Deplacement_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == udg_Deplacement_ab ) ) then
        return false
    endif
    return true
endfunction

function Trig_Deplacement_Actions takes nothing returns nothing
    local real Deplacement_pause
    local unit Cast_caster
    local unit Cast_target
    local real Posx
    local real Posy
    local effect Eff1
    local effect Eff2
    local fogmodifier Deplacement_vis1
    local fogmodifier Deplacement_vis2

    if ( GetUnitAbilityLevelSwapped(udg_Deplacement_ab, GetTriggerUnit()) == 1 ) then
        set Deplacement_pause = 5.00
    else
        if ( GetUnitAbilityLevelSwapped(udg_Deplacement_ab, GetTriggerUnit()) == 2 ) then
            set Deplacement_pause = 2.50
        else
            set Deplacement_pause = 0.50
        endif
    endif
    set Cast_caster = GetSpellAbilityUnit()
    set Cast_target = GetSpellTargetUnit()
    set Posx = GetLocationX(GetUnitLoc(Cast_caster))
    set Posy = GetLocationY(GetUnitLoc(Cast_caster))
    call AddSpecialEffectTargetUnitBJ( "origin", Cast_caster, "Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl" )
    set Eff1 = GetLastCreatedEffectBJ()
    call AddSpecialEffectTargetUnitBJ( "origin", Cast_target, "Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl" )
    set Eff2 = GetLastCreatedEffectBJ()
    call PauseUnitBJ( true, Cast_target )
    call SetUnitFlyHeightBJ( Cast_caster, 0.00, ( GetUnitFlyHeight(Cast_caster) / 0.60 ) )
    call SetUnitFlyHeightBJ( Cast_target, 0.00, ( GetUnitFlyHeight(Cast_target) / 0.60 ) )
    call TriggerSleepAction( 0.60 )
    call AddSpecialEffectLocBJ( GetUnitLoc(Cast_caster), "Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl" )
    call TriggerSleepAction( 0.20 )
    call DestroyEffectBJ( Eff1 )
    set Eff1 = GetLastCreatedEffectBJ()
    call AddSpecialEffectLocBJ( GetUnitLoc(Cast_target), "Abilities\\Spells\\Undead\\Darksummoning\\DarkSummonTarget.mdl" )
    call TriggerSleepAction( 0.20 )
    call DestroyEffectBJ( Eff2 )
    set Eff2 = GetLastCreatedEffectBJ()
    call CreateFogModifierRadiusLocBJ( true, GetOwningPlayer(Cast_caster), FOG_OF_WAR_VISIBLE, GetUnitLoc(Cast_caster), 300.00 )
    set Deplacement_vis1 = GetLastCreatedFogModifier()
    call FogModifierStart( Deplacement_vis1 )
    call CreateFogModifierRadiusLocBJ( true, GetOwningPlayer(Cast_target), FOG_OF_WAR_VISIBLE, GetUnitLoc(Cast_target), 300.00 )
    set Deplacement_vis2 = GetLastCreatedFogModifier()
    call FogModifierStart( Deplacement_vis2 )
    call ShowUnitHide( Cast_caster )
    call ShowUnitHide( Cast_target )
    call TriggerSleepAction( Deplacement_pause )
    call SetUnitPositionLoc( Cast_caster, GetUnitLoc(Cast_target) )
    call SetUnitPositionLoc( Cast_target, Location(Posx, Posy) )
    call TriggerSleepAction( Deplacement_pause )
    call ShowUnitShow( Cast_target )
    call ShowUnitShow( Cast_caster )
    call DestroyFogModifier( Deplacement_vis1 )
    call DestroyFogModifier( Deplacement_vis2 )
    call PauseUnitBJ( false, Cast_target )
    call SetUnitFlyHeightBJ( Cast_caster, GetUnitDefaultFlyHeight(Cast_caster), ( GetUnitDefaultFlyHeight(Cast_caster) / 0.60 ) )
    call SetUnitFlyHeightBJ( Cast_target, GetUnitDefaultFlyHeight(Cast_target), ( GetUnitDefaultFlyHeight(Cast_target) / 0.60 ) )
    call TriggerSleepAction( 0.60 )
    call DestroyEffectBJ( Eff1 )
    call DestroyEffectBJ( Eff2 )
endfunction

//===========================================================================
function InitTrig_Deplacement takes nothing returns nothing
    set gg_trg_Deplacement = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Deplacement, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Deplacement, Condition( function Trig_Deplacement_Conditions ) )
    call TriggerAddAction( gg_trg_Deplacement, function Trig_Deplacement_Actions )
endfunction

function Trig_Mental_domination_JASS_Conditions takes nothing returns boolean
    if ( not ( GetSpellAbilityId() == udg_Mental_domination ) ) then
        return false
    endif
    return true
endfunction

function Trig_Mental_domination_JASS_Actions takes nothing returns nothing
    local unit Unidad_d
    local player Owner
    local effect mdom_effect
    set Unidad_d = GetSpellTargetUnit()
    set Owner = GetOwningPlayer(Unidad_d)
    call AddSpecialEffectTargetUnitBJ( "origin", Unidad_d, "Abilities\\Spells\\Items\\AIsp\\SpeedTarget.mdl" )
    set mdom_effect = GetLastCreatedEffectBJ()
    call TriggerSleepAction( 20.00 )
    call SetUnitOwner( Unidad_d, Owner, true )
    call DestroyEffectBJ( mdom_effect )
    call AddSpecialEffectTargetUnitBJ( "origin", Unidad_d, "Abilities\\Spells\\Other\\Charm\\CharmTarget.mdl" )
    set mdom_effect = GetLastCreatedEffectBJ()
    call TriggerSleepAction( 3.00 )
    call DestroyEffectBJ( mdom_effect )
endfunction

//===========================================================================
function InitTrig_Mental_domination_JASS takes nothing returns nothing
    set gg_trg_Mental_domination_JASS = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Mental_domination_JASS, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Mental_domination_JASS, Condition( function Trig_Mental_domination_JASS_Conditions ) )
    call TriggerAddAction( gg_trg_Mental_domination_JASS, function Trig_Mental_domination_JASS_Actions )
endfunction