Große Probleme mit einem Kleinen Spiel!

[axelf98]

Delphi-Quellcode:

function Istgetroffen(GeschossX,GeschossY:integer;SpielerX,SpielerY:integer): boolean;
var X : real;
begin
X :=  SQRT(SQR(GeschossX-SpielerX)+SQR(GeschossY-SpielerY)); // Abstandsformel
if X < 5 then result := true  ELSE result := false;
// wenn der Abstand zwischen Geschoss und Spieler kleiner als 5 ist, dann knallts
end;

Aufruf wäre dann:
if Istgetroffen(Geschoss1.left,Spieler2.Left,Geschoss1.top,spieler2.top) then showmessage('Spieler 2 getroffen')