Snake Spiel

[Cueppi]

ja super clevere aussage!

Delphi-Quellcode:

begin
     BtnStart.Enabled := False;
     PunkteZaehler:= 0;
     for X:=0 to BSB do
     for Y:=0 to HSB do
     map[X, Y] := 0;
     Kopf:= Point(Random(BSB), Random(HSB));
     laengesnake := 4;
     richtung := Point( 0, 1);
     map[kopf.X, kopf.Y] := laengesnake;
     neuesfressen;
     bewegungSchlange;
     AktiviereButtons(True);

hab ich da stehen!
Wenn ich

Delphi-Quellcode:

begin
     BtnStart.Enabled := False;
     PunkteZaehler:= 0;
     for X:=0 to BSB do
     for Y:=0 to HSB do
     map[X, Y] := 0;
     Kopf:= Point(Random(BSB), Random(HSB));
     laengesnake := 4;
     richtung := Point(Random(BSB), Random(HSB));
     map[kopf.X, kopf.Y] := laengesnake;
     neuesfressen;
     bewegungSchlange;
     AktiviereButtons(True);

also bei richtung auch änder, dann flipt mir die schlange rum und das programm beendet sich!!!