function Trig_ttg_Actions takes nothing returns nothing
local unit a = GetTriggerUnit()
local group gr = CreateGroup()
local location loc = GetUnitLoc(a)
local location loc2 = GetUnitLoc(gg_unit_hfoo_0000)
local location order
local real r = AngleBetweenPoints(loc,loc2)
local real r2
local real r3
if GetBooleanAnd(r >=45,r <= 178) then
BJDebugMsg("niz")
order = PolarProjectionBJ(GetUnitLoc(gg_unit_hfoo_0000), 800, 1)
IssuePointOrderLoc(a,"move",order)
r2 = DistanceBetweenPoints(GetUnitLoc(gg_unit_hfoo_0000),order) / 350
call PolledWait(r2)
RemoveLocation(loc)
loc = null
order = PolarProjectionBJ(GetUnitLoc(gg_unit_hfoo_0000), 800, 90)
IssuePointOrderLoc(a,"move",order)
r3 = DistanceBetweenPoints(GetUnitLoc(gg_unit_hfoo_0000),order) / 350
call PolledWait(r3)
RemoveLocation(loc)
loc = null
else 
if GetBooleanAnd(r >=-178,r <= -45) then
BJDebugMsg("verx")
order = PolarProjectionBJ(GetUnitLoc(gg_unit_hfoo_0000), 800, 180)
IssuePointOrderLoc(a,"move",order)
r2 = DistanceBetweenPoints(GetUnitLoc(gg_unit_hfoo_0000),order) / 350
call PolledWait(r2)
RemoveLocation(loc)
loc = null
order = PolarProjectionBJ(GetUnitLoc(gg_unit_hfoo_0000), 800, 270)
IssuePointOrderLoc(a,"move",order)
r3 = DistanceBetweenPoints(GetUnitLoc(gg_unit_hfoo_0000),order) / 350
call PolledWait(r3)
RemoveLocation(loc)
loc = null
else
if GetBooleanAnd(r >=-45,r <= 45) then
BJDebugMsg("verh")
order = PolarProjectionBJ(GetUnitLoc(gg_unit_hfoo_0000), 800, 270)
IssuePointOrderLoc(a,"move",order)
r2 = DistanceBetweenPoints(GetUnitLoc(gg_unit_hfoo_0000),order) / 350
call PolledWait(r2)
RemoveLocation(loc)
loc = null
order = PolarProjectionBJ(GetUnitLoc(gg_unit_hfoo_0000), 800, 0)
IssuePointOrderLoc(a,"move",order)
r3 = DistanceBetweenPoints(GetUnitLoc(gg_unit_hfoo_0000),order) / 350
call PolledWait(r3)
RemoveLocation(loc)
loc = null
else
if GetBooleanAnd(r >=179,r <=-179) then
BJDebugMsg("pravo")
else
BJDebugMsg(R2S(r))
endif
endif
endif
endif
endfunction
 
//===========================================================================
function InitTrig_ttg takes nothing returns nothing
    set gg_trg_ttg = CreateTrigger(  )
call TriggerRegisterUnitInRangeSimple( gg_trg_ttg, 600.00,gg_unit_hfoo_0000 )
call TriggerAddAction( gg_trg_ttg, function Trig_ttg_Actions )
endfunction