Wie funktioniert genau, was bewirkt genau, deine function?
berechnet es die Positionen zwischen den Punkten oder was?
Hab ich noch nicht ganz verstanden was diese bezwecken soll.
Hier die jetzige procedure die für das bewegen zuständig ist:
Delphi-Quellcode:
procedure TFigur.DoMove(TimeGap: double);
begin
inherited;
X := X + XSpeed*TimeGap;
if ((X > Engine.SurfaceRect.Right) and (XSpeed > 0)) or
((X < -96) and (XSpeed < 0)) then
begin
SetLine;
end;
end;
Dies ist nur auf das x bezogen.
Für x könnte man ja theoretisch auch Y nehmen.
Sagen wir mal die Figur ist auf Pos(100|100) und soll sich zu Pos(Pos.x|Pos.Y) bewegen.
Das die Figur bewegt klappt ja theoretisch schon nur die Richtung und das Ziel, wo sie stehen bleibt bzw. hingehen soll fehlt.