Dead;

[Die Muhkuh]

Hi,

im Quelltext von dir steht:

Delphi-Quellcode:

procedure TAnimation.DoMove(MoveCount: integer);
begin
  // (1.) 
  if FMove = true then
  begin
    inherited DoMove(MoveCount);  // Das muss zu (1.)

    if (IsUp in Form1.DXInput1.States) and (Y >= 0) then
      Y := Y-vY;
    if (IsDown in Form1.DXInput1.States) and (Y+Height <= Form1.DXDraw1.Height) then
      Y := Y+vY;
    if (IsLeft in Form1.DXInput1.States) and (X >= 0) then
      X := X-vX;
    if (ISRight in Form1.DXInput1.States) and (X+Width <= Form1.DXDraw1.Width) then
      X := X+vX;


    AnimCount := 4;
    AnimLooped := true;
    AnimSPeed := 24/100;
    AnimStart := 0;

    Collision;
  end
  else
    if FCollision then
    begin
      if AnimPos = 3 then
        Dead;
    end;
end;

So steht das. Und das geht ja nich.