- procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
- Shift: TShiftState);
- begin
- case Key of
- VK_LEFT: mainchar.richtung := 0;
- VK_RIGHT: mainchar.richtung := 2;
- VK_UP: mainchar.richtung := 3;
- VK_DOWN: mainchar.richtung := 1;
- end;
- walking := false;
- case mainchar.richtung of
- 0: begin
- if collide.Canvas.Pixels[mainchar.x+4-2,mainchar.y+16] = clWhite then
- begin
- walking := true;
- Mouse.CursorPos := Point(mainchar.x+4-2,mainchar.y+16);
- end;
- end;
- 1: if collide.Canvas.Pixels[mainchar.x+8,mainchar.y+64+2] = clWhite then walking := true;
- 2: if collide.Canvas.Pixels[mainchar.x+40+2,mainchar.y+8] = clWhite then walking := true;
- 3: if collide.Canvas.Pixels[mainchar.x+8,mainchar.y+16-2] = clWhite then walking := true;
- end;
- end;