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 пуль
куча логики
...

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

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