Dein verkürzter Quelltext ist zwar syntaktisch korrekt und sicherlich "besser" als das Original: Aber er enthält weiterhin den gleichen Fehler: Ist Links einmal True, bleibt Links = True (dito für die drei anderen Variabeln).
Delphi-Quellcode:
procedure TForm1.TiGameEngineTimer (Sender: TObject);
begin
IF (Links = True) and (Kopf.GetZXPosition > 0) Then
begin
Kopf.bewege_links();
end;
...
Ist der Kopf einmal links, bleibt er immer links.
[/QUOTE]
Bei Snake soll die Schlange doch auch durchgehend in diese Richtung verlaufen