Snake

[lbccaleb]

Bei mir hat er sich auch aufgehangen siehe Screenshot

[himitsu]

Hast du eventuell eine Code/Schleide, der/die verhindern soll, daß das neue Kästchen in der Schlange erstellt wird?
Eventuell hast du dir dort eine Endlosschleife geschaffen.

[Neitsch]

Das hier ist der Code...

Code:

procedure TForm1.SpawnFood();
var x,y, i:Integer; found: Boolean;
begin
found:= false;
while(not found) do begin  //solange kein geeigneter Ort gefunden wurde wiederholen
found:= true;
x:= Random(breite);
y:= Random(hoehe);
if(x= Kopf.X) or (y = Kopf.Y) then found := false;;
for i:= 0 to BodyLength-1 do begin
if(x= Teile[i].X) or (y = Teile[i].Y) then found := false; //prüft, ob der Platz frei ist
end;
end;
Essen := TFood.Create(x,y); //erstell
end;

Jetzt wo ihr es sagt, sehe ich meinen Fehler, ganz dumm >.<
Ich habe jeweils "or" geschrieben. Wenn also eine Reihe vollständig von einer Schlange besetzt ist, gehts in die Endlosschleife
Habe ich jetzt gefixt!
Vielen Dank!

[Coffeecoder]

Hi,
ich habe noch einmal dein Projekt angeguckt. Das Problem mit dem Aufhängen beim 20 oder 30 oder mehr ist weg.
Das mit dem Speichern hast du schon Recht, dass es unnötig ist da das Spiel eigentlich recht schnell vorbei ist.
Mich stören diese ShowMessage des Scores und dann noch den Highscore. Da du ja wie von mir gebeten den Score unten eingebaut hast, kannst du auf beide Showmessages verzichten. Meinetwegen kannst du den Highscore auch neben den aktuellen Score anzeigen.

Zitat von himitsu:

P=Start und O=Pause ... Warum nicht P wie Pause?

Ich finde, das sollst du wirklich ändern. P als Start ist sehr verwirrend. Mach es L=Start und P=Pause.

Eine weitere Frage stellt sich mir ob es viele Nutzer bei Snake gibt die mit WASD spielen?
So könntest du dich nur auf die Pfeiltasten konzentrieren und S wird Start

[Add] - P.S.: Sonst finde ich das Snake toll gemacht. Super weiter so

[Neitsch]

Habt ihr dennnoch Verbesserungsvorschläge (ausser ein Labyrinth)?

[Coffeecoder]

Eine spontante Idee wäre:
Spezialfutter was in einem 10 Punktetakt auftaucht und nur ein paar Sekunden da ist. > Gibt dann ka 3 Punkte.

[Neitsch]

Danke erstmal für das Lob!!

Deine Vorschläge werde ich sofort umsetzen