Не могу прикрепить обьект к обьекту

[somebody94]

У меня проблема такая:
корабль и снаряд.Как мне зделать штоб при выпуске снаряда во первых он всегда выходил из корабля.А во вторых не знаю как зделать штоб я смог использовать снаряд ешё раз как он улетел.Што мне делать нада?Заранее благадарю....

[260526052605]

какой это вообще язык?
а просто по логике - каждый раз перед "выстрелом" устанавливать координаты снаряда к координатам корабля

[somebody94]

а как ето зделать?Вот ето я хочю узнать.

[260526052605]

я и спрашиваю, ты на каком языке пишешь? как я тебе код напишу, если я язык не знаю?

[somebody94]

а извини delphi 7.

[Carbon]

А проблема в чём: как координаты выставить, отобразить или как хранить данные?

[somebody94]

можно ито и другое показать?Я только начала заниматся.

[260526052605]

procedure Vistrel;
begin
Snaryad.Left:=Korabl.Left;
Snaryad.Top:=Korabl.Top;
// дальше команды полета снаряда, тут уже посложнее, если так
// хочешь, могу кинуть

end;

[somebody94]

да если можна...

[260526052605]

///Возвращает угол от одной точки к другой
function AngleTo(x,y,x1,y1: Integer): Real;
begin
If (x1<x) and (y1<y) then result:=270*pi/180-arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));
If (x1<x) and (y1>y) then result:=270*pi/180+arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));
If (x1>x) and (y1<y) then result:=90*pi/180+arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));
If (x1>x) and (y1>y) then result:=90*pi/180-arcsin(abs(y-y1)/sqrt(sqr(x-x1)+sqr(y-y1)));

If (x1=x) and (y1<y) then result:=pi;     // 180
If (x1=x) and (y1>y) then result:=0;      // 0
If (x1<x) and (y1=y) then result:=1.5*pi; // 270
If (x1>x) and (y1=y) then result:=0.5*pi; // 90
end;

procedure Vistrel(xx,yy: Integer); // Параметры - координаты цели
var a,r,x,y: Real;
begin
Snaryad.Left:=Korabl.Left; // Снаряд перемещаем
Snaryad.Top:=Korabl.Top; // к кораблю
a:=AngleTo(Snaryad.Left,Snaryad.Top,xx,yy); // Вычисляем угол между снарядом и целью
r:=0;
x:=Snaryad.Left; y:=Snaryad.Top; // Запоминаем начальные координаты
while r<sqrt(sqr(Snaryad.Left-xx)+sqr(Snaryad.Top-yy)) do begin // Пока не долетели до цели...
Snaryad.Left:=Round(x+r*sin(a));  // Приближаемся
Snaryad.Top:=Round(y+r*cos(a)); // к цели
r:=r+1; 
Application.ProcessMessages; // Чтобы увидеть результат
Sleep(10); // Небольшая задержка для красоты
end;

end;