auto vx = x2 - x1;
auto vy = y2 - y1;

auto len = sqrt(vx*vx + vy*vy); // находим длину вектора
// нужна проверка что длина не равна нулю
vx = vx/len;
vy = vy/len;

auto dx = vx * speed;
auto dy = vy * speed;

    k=1000;  // количество шагов до цели
   
    dx=(x1-x)/k;
    dy=(y1-x)/k;

       {в рабочем цикле}
        угол=-math.ArcTan2(x-цельX,y-цельY)/pi*180;  // по углу легко поворачивать спрайт
        x=x+sin(угол*pi/180)*скорость;
        y=y-cos(угол*pi/180)*скорость;

auto v = p2 - p1;
v.normalize();
v *= speed;

{
auto endpointx=pers->x+250, endpointy=pers->y-100;
auto vx = endpointx - x;
auto vy = endpointy - y;
auto len = sqrt(vx*vx + vy*vy);
     if(len!=0){
     vx = vx/len;
     vy = vy/len;

     auto dx = vx * 20;
     auto dy = vy * 20;
}
else {dx=0; dy=0;}

int endpointx=pers->x+250, endpointy=pers->y-100;
dx=(endpointx-x)/5;
dy=(endpointy-y)/5;
if(x>=endpointx-2&&x<=endpointx+2)trigger=RETURN;

if(trigger==RETURN)
        {
int endpointx=pers->x, endpointy=pers->y;
dx=(endpointx-x)/5;
dy=(endpointy-y)/5;

if(x>=endpointx-10&&x<=endpointx+10)trigger=IDLE;
        }

  {в рабочем цикле}   
          угол=-math.ArcTan2(x-цельX,y-цельY)/pi*180;  // по углу легко поворачивать спрайт   
          x=x+sin(угол*pi/180)*скорость;   
          y=y-cos(угол*pi/180)*скорость;

x:=startX+poz*cos(kamP-(pi*2+pi/2))*cos(kamN-(pi*2));
y:=startY+poz*sin(kamP-(pi*2+pi/2))*cos(kamN-(pi*2));
z:=-startZ+poz*sin(kamN-(pi*2));
result:=(x*xx+y*yy+z*zz)/((sqrt(sqr(x)+sqr(y)+sqr(z))+sqrt(sqr(xx)+sqr(yy)+sqr(zz))));
result:=sqrt(sqr(v.x)+sqr(v.y)+sqr(v.z));
result:=sqrt(sqr(xx-x)+sqr(yy-y));
result:=sqrt(sqr(xx-x)+sqr(yy-y)+sqr(zz-z));
x:=kamx+r*cos(kamp-ug);
y:=kamy+r*sin(kamp-ug);
просчет коллизий
массив на 500 пуль
куча логики
...