RPG Spiel - Flackern bei mehreren Grafiken

[Pryoxer]

ok danke schon mal für den Tipp mit der Image list (wusste zwar das es so was gibt aber net das man sie so verwendet )

Zu den anderen fehler wenn ich das mal erfolgreich integriert habe

Gruß
Lukas

[Pryoxer]

So ok ich hab das ganze jetzt mit der Imagelist gemacht wie du es gesagt hast (jetzt flackert es auch nicht mehr , danke )

Du hast aber auch gesagt im meinem Code seien noch ein paar Fehler. Könntest du mir sagen was?

Danke im Voraus

Mfg
Lukas

[sx2008]

Du bist ja ganz schön fix.

Also das Problem ist die procedure pause .
Innerhalb dieser Procedure wird Application.ProcessMessages aufgerufen.

Wenn der Spieler Pfeil-nach-oben drückt, wird PlayerMoveUp aufgerufen.
Dann wird eine Animation mit 5 Zuständen gestartet mit dazwischen 4 * pause.
Während dieser Zeit könnte der Spieler wieder eine andere Taste drücken.

Wie ich jetzt gesehen habe, verriegelst du weitere Richtungs-Tasten mit dem Boolean-Flag Move .
So wie's jetzt ist, ist es etwas unschön aber ich würd's jetzt nicht mehr als Fehler betrachten.
Damit kann der Spieler aber nicht auf halben Wege umdrehen.
Es kommt natürlich auf das Spiel an, ob man das überhaupt zulassen möchte.

Würdest du dir die Richtung und die Nummer der Animationssequenz merken, dann könntest du statt der procedure pause auch einen Timer verwenden.
Im Timer-Event OnTimer könnest du die Animationssequenznr hochzählen und jeweils das Spielerbild anpassen.
Würde der Spieler zurück wollen, könntest du die Animation umkehren.
Das ist natürlich etwas schwieriger als die Lösung, die du z.Zt. hast.


Ansonsten solltest du den Block mit Variablen:

Delphi-Quellcode:

var RunUp,RunLeft,RunRight,RunDown:boolean;
    Move:boolean;
    Speed:integer;

in die Klasse TForm1 unter private verschieben. Schlüsselwort var entfällt dann.