kommt der sache schon nährer. Die zahlen liegen jetzt unter 100.
Also ist 5 zu klein. Wenn ich es richtig verstehe.
ich habe versuch den mittelpunkt zu berechnen und zwar so:
Delphi-Quellcode:
mx1:=s1.left+(s1.Width div 2);
my1:=s1.top+(s1.Height div 2);
mx2:=s2.left+(s2.Width div 2);
my2:=s2.top+(s2.Height div 2);
t:=sqr(mx1-mx2)+sqr(my1-my2);
s4.SpriteImage.Canvas.Brush.color:=clRed;
s4.SpriteImage.Canvas.FillRect(0,0,100,20);
s4.SpriteImage.Canvas.textout(0,0,Format('%f',[sqrt(t)]));
s4.DrawSprite;
if sqrt(t) <= 6 then begin
ShotMove;
end;
aber das scheint keine Auswirkung zu haben
Aufjeden Fall vielen dank schonmal an alle die mir geholfen haben.