Nochmal kurz
Mir fiel auf, die Schlange startete immer oben Links, das habe ich geändert
(kopf := Point(Random(BSB), Random(HSB))
Jedoch startet sie auch immer nur in Richtung unten!!
Das möchte ich auch unterschiedlich haben ...
vorschläge ?
Delphi-Quellcode:
procedure TForm1.Initialisierung;
var
X, Y: Integer;
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
ende := False;
Timer1.Enabled := True;
Startbild.Visible:=false;
ZPunkte.Visible:=true;
APunkte.Visible:=true;
BtnHoch.Visible:=True;
BtnLinks.Visible:=True;
BtnRechts.Visible:=True;
BtnUnten.Visible:=True;
end;