Also ich habe noch eine gute erweiterung des Codes. So kann man auch durch wände gehen wie im richtigen Snake.
Delphi-Quellcode:
if (kopf.X<0) then
Kopf.X:= kopf.X + Breite + 1;
if Kopf.Y < 0 then
Kopf.Y := kopf.Y + Hoehe + 1;
if Kopf.X > Breite then
Kopf.X := Kopf.x - Breite - 1;
if Kopf.Y > Hoehe then
Kopf.Y := Kopf.Y - Hoehe - 1;
Das muss man einfach in calc_snake reinschreiben.
Freundliche Grüsse
Mars