Hi, hab vorhin (endlich) mal ein Tutorial für DelphiX gefunden. Jetzt häng ich an einem Problem der Spriteanimation... Also erstmal hier der Code

zusammenfalten · markieren

Delphi-Quellcode:

TAnimation = class(TImageSprite);

var
  Form1: TForm1;
  Animation: TAnimation;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Animation := TAnimation.Create(DXSpriteEngine1.Engine);
  with Animation do begin
   Image := Form1.DXImageList1.Items.Find('Player');
   X := 0;
   Y := 0;
   Z := 0;
   Width := Animation.Image.Width;
   Height := Animation.Image.Height;
   AnimCount := 4;
   AnimLooped := True;
   AnimSpeed := 50/1000;
   AnimStart := 0;
  end;
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
  DXSpriteEngine1.Move(1);
  DXDraw1.Surface.Fill(0);
  DXSpriteEngine1.Draw;
  DXDraw1.Flip;
end;
end.

Da ich leider nich weiß, wie ich gute Sprites schnell erstelle (Geht ja sicher anderster, als jedes Bild einzel malen) hab ich jetzt einfach 2 Bilder jeder 32x32px in ein 64x32px gepackt.. Müsste ja normal jetzt zwischen den beiden hinundhewechseln, tut sich aber nix
Kann mir evtl. einer weiterhelfen? Danke schonmal im Vorraus.
Mfg Spessi

Du solltest die Methode Move des TImageSprite in deinem TAnimation überschreiben und vielleicht dort die AnimPos einstellen.

markieren

Delphi-Quellcode:

TAnimation = class(TImageSprite)
public
  procedure Move(MoveCount:Integer);
end;

procedure TAnimation.Move(MoveCount:Integer);
begin
  // hier die Funktion für die AnimPos
  AnimPos:=f(MoveCount);
end;

So hab' ich das in einigen von meinen Projekten mit DelphiX gemacht.
Bei der automatischen Animation müsstest du vielleicht irgendwas auf True setzen.