[DelphiX] Relative Figur-Bewegung

[Die Muhkuh]

Moinchen,

Delphi-Quellcode:

procedure TAuto.DoMove(MoveCount: Integer);
begin
  inherited DoMove(MoveCount);

  if isUp in Form1.Input.States then
  begin
    X := X + cos256(Angle) * (MoveCount);
    Y := Y + sin256(Angle) * (MoveCount);
  end;

  if isDown in Form1.Input.States then
  begin
    X := X - cos256(Angle) * MoveCount;
    Y := Y - sin256(Angle) * MoveCount;
  end;

  if isLeft in Form1.Input.States then
    Angle := Angle - 1;

  if isRight in Form1.Input.States then
    Angle := Angle + 1;
end;

(Auszug aus meinem Source)