2D Game

[dominikkv]

ich würde das so machen:

Delphi-Quellcode:

const
  Speed = 5;

procedure TForm1.tmr1Timer(Sender: TObject);
var
  SpeedX, SpeedY: Integer;
begin
  SpeedX := 0;
  SpeedY := 0;

  if GetAsyncKeyState(VkKeyScan('d')) <> 0 then
    Inc(SpeedX, Speed);
  if GetAsyncKeyState(VkKeyScan('a')) <> 0 then
    Dec(SpeedX, Speed);
  if GetAsyncKeyState(VkKeyScan('s')) <> 0 then
    Inc(SpeedY, Speed);
  if GetAsyncKeyState(VkKeyScan('w')) <> 0 then
    Dec(SpeedY, Speed);

  shp1.Left := shp1.Left + SpeedX;
  shp1.Top  := shp1.Top  + SpeedY;
end;