habe es jetzt hinbekommen beide sachen in einen timer zu packen, in dem auch bei jeder abfrage jede variable deklariert ist..
mein letztes problem ist somit die kollisionsabfrage:
ich habe es, wie in den vorherigen posts sichtbar, mit abs probiert, allerdings geht das nicht. es passiert einfach nichts..
gibts eine alternativbefehl für eine kollisionsabfrage?
Delphi-Quellcode:
FOR i:= 1 TO nummer DO
begin
FOR u:= 1 TO n DO
begin
IF Raumschiff[u] <> nil
THEN
begin
Raumschiff[u].GoRight;
ShRaumschiff[u].Left := Raumschiff[u].xCoord;
IF Raumschiff[u].xCoord > 700
THEN
begin
Raumschiff[u].xCoord := -50;
ShRaumschiff[u].Left := Raumschiff[u].xCoord;
end;
end;
IF Kugel[i] <> nil
THEN
begin
Kugel[i].GoUp;
ShKugel[i].Top := Kugel[i].yCoord;
end;
IF (Raumschiff[u] <> nil) AND (Kugel[i] <> nil)
THEN
begin
// kollisionsabfrage
end;
end;
end;