function MoveGeroi takes integer i returns nothing
        local real X
        local real Y
        local real Xm
        local real Ym
        local real Speed
        set Speed = ( GetUnitMoveSpeed(udg_Geroi) / 50.00 )
        set X = GetUnitX(udg_Geroi[i])+(85+Speed)*Cos(udg_Direction[i]*0.0175)
        set Y = GetUnitY(udg_Geroi[i])+(85+Speed)*Sin(udg_Direction[i]*0.0175)
        call SetUnitPosition(udg_MAYAK[i], X, Y)
        set Xm = GetUnitX(udg_MAYAK[i])
        set Ym = GetUnitY(udg_MAYAK[i])
    if (GetBooleanAnd(( X == Xm ),( Y == Ym ) )) then
        set X = GetUnitX(udg_Geroi[i])+Speed*Cos(udg_Direction[i]*0.0175)
        set Y = GetUnitY(udg_Geroi[i])+Speed*Sin(udg_Direction[i]*0.0175)
        call SetUnitPosition(udg_Geroi[i], X, Y)
        set udg_Stop[i] = false
    else
        set udg_Stop[i] = true
    endif
endfunction

function MoveGeroiNazad takes integer i returns nothing
        local real X
        local real Y
        local real Xm
        local real Ym
        local real Speed
        set Speed = ( GetUnitMoveSpeed(udg_Geroi[i]) / 75.00 )
        set X = GetUnitX(udg_Geroi[i])+(-85-Speed)*Cos(udg_Direction[i]*0.0175)
        set Y = GetUnitY(udg_Geroi[i])+(-85-Speed)*Sin(udg_Direction[i]*0.0175)
        call SetUnitPosition(udg_MAYAK[i], X, Y)
        set Xm = GetUnitX(udg_MAYAK[i])
        set Ym = GetUnitY(udg_MAYAK[i])
    if (GetBooleanAnd(( X == Xm ),( Y == Ym ) )) then
        set X = GetUnitX(udg_Geroi[i])+(-Speed)*Cos(udg_Direction[i]*0.0175)
        set Y = GetUnitY(udg_Geroi[i])+(-Speed)*Sin(udg_Direction[i]*0.0175)
        call SetUnitPosition(udg_Geroi[i], X, Y)
        set udg_Stop[i] = false
    else
        set udg_Stop[i] = true
    endif
endfunction