[Andorra 2D 0.2 ALPHA] Animationen

[Neutral General]

Hi,

Die Figurdatei (bmp) besteht aus 4*3 Animationsphasen, wobei

Delphi-Quellcode:

PatternWidth := 18;
PatternHeight := 28;

Delphi-Quellcode:

const
  ANIM_UP    = 0;
  ANIM_DOWN  = 6;
  ANIM_LEFT  = 9;
  ANIM_RIGHT = 3;


procedure TPlayer.DoMove(TimeGap: double);
begin
  inherited DoMove(TimeGap);
  if GetAsyncKeyState(VK_UP) < 0 then
  begin
    AnimStart := ANIM_UP;
    AnimStop := AnimStart + 2;
    y := y - 1;
  end
  else
  if GetAsyncKeyState(VK_DOWN) < 0 then
  begin
    AnimStart := ANIM_DOWN;
    AnimStop := AnimStart + 2;
    y := y + 1;
  end
  else
  if GetAsyncKeyState(VK_RIGHT) < 0 then
  begin
    AnimStart := ANIM_RIGHT;
    AnimStop := AnimStart + 2;
    x := x + 1;
  end
  else
  if GetAsyncKeyState(VK_LEFT) < 0 then
  begin
    AnimStart := ANIM_LEFT;
    AnimStop := AnimStart + 2;
    x := x - 1;
  end;
end;

In der Praxis gibt es das Problem das wenn ich grad nach oben am gehn war und dann nach unten drücke dann geht die Animation nicht direkt bei ANIM_DOWN los sondern da kommt erst das erste Bild von ANIM_RIGHT... dh das ganze sieht so aus:

^
|

->

|
v

statt

^
|

|
v

... Versteht ihr was das Problem ist? Bei DelphiX besteht dieses Problem irgendwie nicht.. Is das ein Fehler der Engine oder mache ich was falsch?

Im Anhang ist die exe...

Gruß
Neutral General

[g0rmed]

Also ich kann keinen fehler erkennen...
aber der bug könnte ja der sein, das in der Engine die Bild-indexe von eins losgezählt werden - nicht von null. das würde erklären, dass er erst nach rechts läuft (hab mir die exe jetzt net angeschaut...die dx-dll fehlt und ich bin net an meinem pc)

[Neutral General]

Hi,

Also ich bin mir sicher das die Indexe (falscher Plural ne?^^) bei 0 beginnen. Das hab ich schon ausprobiert.
Das komische ist ja das von unten nach oben gehen funkioniert o.O
Wo isn hier der Igel, der Experte ?

Gruß
Neutral General

[igel457]

Der ist hier...

Versuche mal noch AnimPos auf AnimStart zu sezten...

[Neutral General]

Simpel, logisch, funktioniert

Danke

Dadrauf hätt ich aber auch selbst mal kommen können

Gruß
Neutral General

[igel457]

Es wäre aber besser, wenn es automatisch funktionieren würde...

[Neutral General]

Hi,

Ja dann mach doch AnimPos readonly und Setz im Setter von AnimStart direkt FAnimPos auf FAnimStart

Gruß
Neutral General

[g0rmed]

was ist den der plural von index???

[angos]

Zitat von g0rmed:

was ist den der plural von index???

Indizes