also
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);
dann noch ne If abfrage, die so aussieht ?
if x:= +1 = true then richtung :=(Random(BSB);
if y:= +1 = true then richtung _=(Random(HSB);
tut mir leid, sonst lass ich das programm einfach liegen und probiers morgen nochmal, sitze heute seit 8 Uhr daran !