1:
2:
3:
4:
5:
6:
7:
8:
9:

procdure TPlayer.DoMove(MoveCount: Integer);
begin
  if isButton1 in Form1.Input.States then
  begin
     Player.Y := Y-1;
     if Player.Y = 25 then
       Player.Y := Player.Y+1;
   end;
end;                    

1:
2:
3:
4:
5:
6:

var
  Form1: TForm1;
  xorig:integer = 150;
  yorig:integer = 150;
  x,y:integer;
  druck:boolean;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.FormCreate(Sender: TObject);
begin
  x:=xorig;
  y:=yorig;
  druck:=true;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
  DXDraw1.Surface.Fill(0);
  DXImageList1.Items[0].Draw(DXDraw1.Surface,x,y,0);
  DXDraw1.Flip;
  DXInput1.Update;
  If isUp in DXInput1.States Then
  Begin
    if druck = true Then
    Begin
       Repeat
         DXDraw1.Surface.Fill(0);
         y:=y-3;
         DXImageList1.Items[0].Draw(DXDraw1.Surface,x,y,0);
         DXDraw1.Flip;
       Until y<=yorig-100;
      druck:=false;
    End;
    if y<=yorig-90 Then
      Begin
        Repeat
          DXDraw1.Surface.Fill(0);
          y:=y+3;
          DXImageList1.Items[0].Draw(DXDraw1.Surface,x,y,0);
          DXDraw1.Flip;
        Until y>=yorig;
      druck:=true;    
      End;
  End;
  DXDraw1.Flip;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  kreis.Top := 300-parabelfunct(ix);
  kreis.Left := ix+abs;
  ix := ix + 3;
  if parabelfunct(ix) < 0 then
    begin
      abs := abs+ix;
      ix := 1;
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if isButton1 in Form1.Input1.States then
         begin
            // Animation starten      
            Player.Image := Form1.DXImageList1.Items.Find('1');
            Player.X := 0;
            Player.Y := 0;
            Player.Width := Player.Image.Width;
            Player.Height := Player.Image.Height;
            Player.AnimCount := 5;
            Player.AnimLooped := True;
            Player.AnimSpeed := 20/1000;
            Player.AnimStart := 0;
       end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

{$R *.DFM}

type
  TSpielerSprite = class(TImageSprite)
  protected
    procedure DoMove(MoveCount: Integer); override;
  public
    constructor Create(AParent: TSprite); override;
  end;



constructor TPlayerSprite.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  Image := MainForm.ImageList.Items.Find('Player1.bmp');
  Width := Image.Width;
  Height := Image.Height;

  X := MapSize;
  Y := MapSize;
  Z := 2; // schlicht die Z-Koordinate, bei mehreren Sprites nützlich
end;


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

      if isUp in Form1.DXInput.States then Y := Y - (250/1000)*MoveCount;
      if isLeft in Form1.DXInput.States then X := X - (250/1000)*MoveCount;
      if isRight in Form1.DXInput.States then X := X + (250/1000)*MoveCount;
end;