Rotierendes Array

[Igotcha]

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).