Snake Spiel

[Cueppi]

viiel viiel tüffteln.
ich glaub ich sitz 20 stunden an dem projekt.
ich hab mich vertan.
man muss ja nichts schreiben, hab das mit den ereignissen überlesen :-[

[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;

[himitsu]

Dann wirst du wohl auch "richtung" ändern müssen?

[Cueppi]

und wie ?

[Matze]

Zitat von Cueppi:

und wie ?

Zitat von Cueppi:

Delphi-Quellcode:

// ...

kopf := Point(Random(BSB), Random(HSB));

// ...

richtung := Point(0, 1);

Da hast du's doch ganz ähnlich gemacht bzw. irgendwo her kopiert.
Langsam zweifle ich, dass du da viel selbst gemacht, geschweige denn verstanden hast.

[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!!!

[Matze]

Ich weiß nicht, was HSB und BSB sind. Du musst natürlich dafür sorgen, dass nur Werte zwischen 0 und 1 heraus kommen (evtl. auch negativ), falls das dein Problem sein sollte.

[Cueppi]

HSB = Höhe des Bereichs
BSB = Breite des Bereichs

also das Spielfeld ist gemeint

[Matze]

Eben.

[DeddyH]

Wenn Du wirklich so viel getüftelt hast, wirst Du Deinen eigenen Quelltext ja wohl am ehesten verstehen und wissen, was Du wieso gemacht hast. Für uns als Außenstehende ist das ungleich schwieriger.