Zitat von
Robert Marquardt:
Der uebliche Trick fuehrt ueber den Modulo Operator
mod.
Das Array der Tiles sollte ab 0 indiziert sein.
Delphi-Quellcode:
// Anfangsinitialisierung
I := 0;
// in der Schleife
Inc(I);
I := I mod 13;
Damit laeuft I immer von 0 bis 12.
Ich kann es jetzt leider nicht testen, aber I soll ja eben
nicht immer von 0-12 laufen, sondern (Durchlauf bedeutet in diesem Fall, dass ein Tile komplett um 64 Pixel nach unten geschoben wurde):
1. Durchlauf
0,1,2,3,4,5,6,7,8,9,10,11,12
2. Durchlauf
12,0,1,2,3,4,5,6,7,8,9,10,11
3. Durchlauf
11,12,0,1,2,3,4,5,6,7,8,9,10
usw.
und nach dem 13. Durchlauf wieder bei "0" anfangen (wie im 1. Durchlauf).