function Trig_Flamethrower_Actions takes nothing returns nothing
local unit u
local effect array s
local integer i
local real a
local location p

if ( GetUnitTypeId(GetAttacker()) != udg_Ft) then
       return
   else
       call DoNothing(  )
   endif

    set u = GetAttacker()
    set a = ( AngleBetweenPoints(GetUnitLoc(GetAttacker()), GetUnitLoc(GetAttackedUnitBJ())))
set p = GetUnitLoc(u)
call MoveLocation(p, GetLocationX(p) + 50 * CosBJ(a), GetLocationY(p) + 50 * SinBJ(a))
    set i=0
loop
 exitwhen i>4      
set i=i+1
...
endfunction

function AngleBetweenCord takes real AX, real AY, real BX, real BY returns real
    return bj_RADTODEG * Atan2(BY - AY, BX - AX)
endfunction

function Trig_Flamethrower_Actions takes nothing returns nothing
    local unit u = GetAttacker()
    local effect array s
    local integer i = 0         
    local real X = GetUnitX(u) + 50 * Cos(a * bj_DEGTORAD)
    local real Y = GetUnitY(u) + 50 * Sin(a * bj_DEGTORAD)
    local real a  = AngleBetweenCord(X, Y, GetUnitX(GetTriggerUnit()), GetUnitY(GetTriggerUnit()))
    if GetUnitTypeId(u) != udg_Ft then
        return
    endif
    loop
        exitwhen i>4
        set i = i + 1
        ...
endfunction

function AngleBetweenCordRad takes real AX, real AY, real BX, real BY returns real
    return Atan2(BY - AY, BX - AX)
endfunction

function Trig_Flamethrower_Actions takes nothing returns nothing
    local unit u = GetAttacker()
    local effect array s
    local integer i = 0
    local real a  = AngleBetweenCordRad(X, Y, GetUnitX(GetTriggerUnit()), GetUnitY(GetTriggerUnit())) 
    local real X = GetUnitX(u) + 50 * Cos(a)
    local real Y = GetUnitY(u) + 50 * Sin(a)
    if GetUnitTypeId(u) != udg_Ft then
        return
    endif
    set a = a * bj_RADTODEG
    loop
        exitwhen i>4
        set i = i + 1
        ...
endfunction

function Trig_Flamethrower_Actions takes nothing returns nothing
    local unit u = GetAttacker()
    local effect array s
    local integer i = 0     
    local real X = GetUnitX(u)
    local real Y = GetUnitY(u)    
    local real a  = Atan2(GetUnitY(GetTriggerUnit()) - Y, GetUnitX(GetTriggerUnit()) - X)
    if GetUnitTypeId(u) != udg_Ft then
        return
    endif       
    set X = X + 50 * Cos(a)
    set Y = Y + 50 * Sin(a)
    set a = a * bj_RADTODEG
    loop
        exitwhen i>4
        set i = i + 1
        ...
endfunction

function flameTowerStart takes unit u returns nothing
 ... // тут уже идет код
endfunction

function flameTower takes nothing returns nothing
 if GetUnitTypeId(GetAttacker())==udg_Ft then
  call flameTowerStart(GetAttacker())
 endif
endfunction