Snake Spiel

[Cueppi]

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;