globals
    unit array gtu
    timer array gtt
    location array gtl
endglobals

function Trig_Gtravel_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A020'
endfunction

function moveone takes nothing returns nothing
    call SetUnitPositionLoc(GetEnumUnit(),gtl[2])
    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Banish\\BanishTarget.mdl",GetEnumUnit(),"chest"))
endfunction

function Gtravel_g takes nothing returns boolean
    return  IsUnitAliveBJ(GetFilterUnit()) == true  and GetFilterUnit()!=gtu[1] and GetFilterUnit()!=gtu[2] and IsUnitAlly(GetFilterUnit(), GetOwningPlayer(gtu[3]))
endfunction

function Gtravel_gDamage takes nothing returns boolean
    return  IsUnitAliveBJ(GetFilterUnit()) == true  and GetFilterUnit()!=gtu[1] and GetFilterUnit()!=gtu[2] and IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(gtu[3]))
endfunction

function enterTact takes nothing returns nothing
  if TimerGetRemaining(gtt[1]) > 0.00 then
    call ForGroupBJ(GetUnitsInRangeOfLocMatching(100, gtl[1], Condition(function Gtravel_g)),function moveone)
  else
    call DestroyTimer(gtt[1])
    call DestroyTimer(gtt[2])
    call RemoveUnit(gtu[1])
    call RemoveUnit(gtu[2])
    set gtu[1]=null
    set gtu[2]=null
    set gtu[3]=null
    call RemoveLocation(gtl[1])
    call RemoveLocation(gtl[2])
    set gtl[1]=null
    set gtl[2]=null
  endif
    endfunction

function Trig_Gtravel_Actions takes nothing returns nothing
    local real time = 5.00*GetUnitAbilityLevel(GetTriggerUnit(),'A020') //gt duration
    local real gtdmg = 100*GetUnitAbilityLevel(gtu[3],'A020') //blow damage
    local location loc = GetSpellTargetLoc()
    local group g
    local unit u
  if DistanceBetweenPoints(GetUnitLoc(GetTriggerUnit()),loc)<=400 then
    call DisplayTextToForce(GetForceOfPlayer(GetOwningPlayer(GetTriggerUnit())),"|cffffcc00It's too close for placing portals.|r")
    call IssueImmediateOrderBJ( GetTriggerUnit(), "stop" )
  else
    set gtu[1] = CreateUnit(GetOwningPlayer(GetTriggerUnit()),'h00H',GetUnitX(GetTriggerUnit()),G  etUnitY(GetTriggerUnit()),GetRandomDirectionDeg())
    set gtu[2] = CreateUnit(GetOwningPlayer(GetTriggerUnit()),'h00H',GetLocationX(loc),GetLocatio  nY(loc),GetRandomDirectionDeg())
    set gtu[3] = GetTriggerUnit()
    set gtl[1] = GetUnitLoc(gtu[1])
    set gtl[2] = GetUnitLoc(gtu[2])
    set gtt[1] = CreateTimer()
    set gtt[2] = CreateTimer()
    call KillUnit(CreateUnit(GetOwningPlayer(GetTriggerUnit()),'h00H',GetUnitX(gtu[2]),GetUnitY(gtu[2]),GetRandomDirectionDeg()))
    set g = GetUnitsInRangeOfLocMatching(400, gtl[2], Condition(function Gtravel_gDamage))
    loop
    set u = FirstOfGroup(g)
      exitwhen u == null
        call UnitDamageTargetBJ(gtu[3],u,gtdmg,ATTACK_TYPE_NORMAL, DAMAGE_TYPE_UNIVERSAL)
        call GroupRemoveUnit(g,u)
    endloop
    call StartTimerBJ(gtt[1],false,time)
    call TimerStart(gtt[2],0.25,true,function enterTact)
    call RemoveLocation(loc)
    set loc = null
    call DestroyGroup(g)
    set g = null
  endif
endfunction

//===========================================================================
function InitTrig_Gtravel takes nothing returns nothing
    set gg_trg_Gtravel = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Gtravel, EVENT_PLAYER_UNIT_SPELL_CAST )
    call TriggerAddCondition( gg_trg_Gtravel, Condition( function Trig_Gtravel_Conditions ) )
    call TriggerAddAction( gg_trg_Gtravel, function Trig_Gtravel_Actions )
endfunction