Snake: Schwanz dem Kopf folgen lassen

[abi9]

Hallo,
ich bin gerade am Snake programmieren mit Delphi und mir fällt einfach nicht ein, wie ich den Schwanz der Schlange den Kopf genau folgen lassen könnte, d.h. wenn ich gerade bei einer Rechts-Bewegung bin und hoch lenke, dass der Schwanz noch einen Schritt nach rechts springt vor dem Hochsteuern.
MfG

mTKopf.pas

Unit1.pas

mTSchwanz.pas

[Sir Rufo]

Da ich jetzt keine Lust habe die Anhänge herunterzuladen, hier ein paar Gedanken:

Der Körper/Schwanz der Schlange besteht aus einzelnen Segmenten, die man in einer Liste verwaltet.
Jetzt fängt man von der Schwanzspitze an und setzt diese auf die Position des Segments davor.
Dieses Segment nimmt die Position des Segments davor, usw.
Das letzte Segment vor dem Kopf nimmt die Position des Kopfs ein und der Kopf wird in die neue Richtung bewegt.

Code:

.v12345.....
......6789>.

Code:

.123456.....
.v....789>..

Code:

.234567.....
.1....89>...
.v..........