// cx, cy, cz - координаты кастера.
// tx, ty, tz - координаты конечной точки.
// x, y - следующие координаты shot'а.
// n_dist - сколько снаряд уже пролетел.

tan = Atan2(tz-cz, DistanceBetweenCoords(cx, cy, tx, ty))
ang = AngleBetweenCoords (cx, tx, cy, ty)
x = cx+speed*Cos(ang*bj_DEGTORAD)
y = cy+speed*Sin(ang*bj_DEGTORAD)
n_dist+=speed
if tan > 0
{
	SetUnitFlyHeight(shot, cz-GetPointZ(x, y)+n_dist*tan, 0.)
else
	SetUnitFlyHeight(shot, cz-GetPointZ(x, y)-n_dist*tan, 0.)
}

// Переменные, которые получают правильные (нужные) значения:
// cx, cy, cz, tx, ty, tz, ang, n_dist.
// tan принимает значения, близкие к желаемым. Вроде правильные.

	private location x_loc = Location(0., 0.)
        real GetPointZ (real x, real y)
        {
            MoveLocation(x_loc, x, y)
            return GetLocationZ(x_loc)
        }