Python (Snake) Verbesserungsvorschläge

[netscanner]

Hi Leute,
ich habe für die Schule eine Snake Version programmiert (s. Anhang)
Nun meine Frage: Habt ihr Verbesserungsvorschläge??? :mrgreen:

[Matze]

Hi

Zitat:

Zitat von netscanner

Habt ihr Verbesserungsvorschläge??? :mrgreen:

Ähm, Tippfehler ausbessern :stupid:

Zitat:

---------------------------
Python
---------------------------
Dich hat`s erwisch!
---------------------------
OK
---------------------------

erwisch => erwischt
` => '

Wenn man die Schlange schneller "kriechen" lässt, sollte es pro Steinchen, das man einsammelt, mehr Punkte geben, als wenn die Schlange langsam läuft.
Dann halt das Übliche, wie Festergröße fix lassen oder das Spiel eben skalieren.

Sonst ganz nett.

[NormanNG]

Hi,

Zitat:

Zitat von netscanner

Nun meine Frage: Habt ihr Verbesserungsvorschläge??? :mrgreen:

(1) Warum kann man in die Felder "Punkte" und "Rekord" etwas eingeben?
(2) Wenn die Schlange an der Bande anschlägt, sollte das Spiel zu Ende sein.

Sonst ganz nett!

[netscanner]

Zitat:

Zitat von NormanNG

Hi,

Zitat:

Zitat von netscanner

Nun meine Frage: Habt ihr Verbesserungsvorschläge??? :mrgreen:

(1) Warum kann man in die Felder "Punkte" und "Rekord" etwas eingeben?
(2) Wenn die Schlange an der Bande anschlägt, sollte das Spiel zu Ende sein.

Sonst ganz nett!

zu1) In die Felder kann man nur am Anfang was eingeben - dann nicht mehr ^^ - wird aber geändert :)
zu2) Das ist die 2. Snake Version. Sieht genauso aus aber auch mit Banden aus....



Kleine Frage: Wie fixiere ich das Fenster?

[Matze]

Zitat:

Zitat von netscanner

Kleine Frage: Wie fixiere ich das Fenster?

Suche bemühen würde auch helfen:
- BorderStyle auf bsSingle
- BorderIcons: biMaximize auf false

[cruiser]

Da ich selber einen Snake-Clone in der Mache hab erkenn ich einen meiner ersten Bugs wieder: Schnelle Wende innerhalb eines Zyklus führt zum Crash.

Passiert zum beispiel, wenn du dich nach unten bewegst und schnell nach oben willst (natürlich neben der Schlange) also schnell links und hoch, leider zu schnell (innerhalb dess Takts) und Crash. Wenn es nach unten geht sollt der Befehl nach oben geblockt werden ;) just my 2 cent.

[netscanner]

wie würdest du das problem am besten lösen - also wie soll ichs blocken?

[cruiser]

Ich hab mir nen eigenen Typ deklariert...

Delphi-Quellcode:

TRichtung = (riLinks, riRechts, riHoch, riRunter);

bei einem Step wird dann einfach geprüft ob die Richtung die 'gewählt' wurde entgegengesetzt der alten (zwischengespeicherten) Richtung ist und dann passiert einfach nichts bzw. er macht den Schritt nach links oder so noch. Asynchrone Tastenabfrage ist hier wohl das Schlüsselwort. So bekommst du raus Welche Tasten gedrückt wurden und das im Timer. Bei OnKey die Richtung zu setzen hat da entscheidende Nachteile wie ich feststellen musste. Das sollt auch mit Integers oder Sting funzen eigentlich ;) aber 'n eigener Typ ist im Code einfach wesentlich übersichtlicher.

[netscanner]

also ivh habs jetzt so gemacht:

Delphi-Quellcode:

if  (key = VK_UP) then begin
if richtung.Y=0 then richtung := Point(0, -1);
end
else if (key = VK_down) then begin
if richtung.Y=0 then richtung := Point(0, 1);
end
else if (key = VK_right) then begin
if richtung.X=0 then richtung := Point(1, 0);
end
else if (key = VK_left) then begin
if richtung.X=0 then richtung := Point(-1, 0);
end

geht das oder ist da ein fehler drinnen???

[cruiser]

Siehe oben... auf die Weise bekommst du nicht raus in welche Richtung der User bei dem Step eigentlich wollte. Darum asynchron im Timer abfragen statt auf OnKeyDown

[netscanner]

passiert der fehler eigentl. nur weil rechner zu langsam oder wegen was anderem???

[eisblock]

Zum Highscore: wenn man den knackt, soll man seinen Namen ja ohne Leerzeichen eingeben:
1. wieso?
2. wenn man doch eins eingibt oder wenn man Zahlen eingibt, wird ein Delphi-Fehler angezeigt und der eigene Highscore wird überhaupt nicht angezeigt und auch nicht gespeichert > lässt sich deutlich besser lösen
3. warum verbietest du nicht einfach die Eingabe eines Leerzeichens, z.B. mit

Delphi-Quellcode:

procedure TForm1.EditXKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['A'..'Z', 'a'..'z', Char(VK_BACK)]) then
  Key := #0;
end;

Das EditXKeypress natürlich noch auf deine Nummer des Edits anpassen.
4. Wenn man dann seinen Namen eingegeben hat, wird der neue Highscore nicht sofort in der Anzeige aktualisiert, sondern erst, wenn man ein neues Spiel mit ENTER begonnen hat.
5. Man kann bei der Eingabe des Namens einen unendlich langen Namen eingeben. Ich würde die maximale Eingabelänge des Edits mit dem MaxLength-Wert setzen
6. Bei der Frage nach der Zeit in Millisekunden kann man auch Buchstaben eingeben. Deshalb analog zu oben bitte folgenden Code im Keypress-Event verwenden:

Delphi-Quellcode:

procedure TForm1.EditXKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', Char(VK_BACK)]) then
  Key := #0;
end;

Außerdem würde ich dann nochmal vom Programm prüfen lassen, ob wirklich nur Nummern eingegeben wurden.

Aber ansonsten ist dein Programm wirklich gut :thumb:

[netscanner]

@
cruiser:

ich finde zu deinem punkt absolut nix...
könntest du mir mal einen teil vom code (zur tasetnabfrage) per PM oder so schicken?

[cruiser]

Mal sehn wie man das auf die schnelle adaptieren könnte... bei nem TPoint ist der Nachteil, dass du's nicht direkt im case nutzen kannst :/

wenn isKeyPressed eine Funktion ist die prüft ob in der Zwischenzeit eine bestimmte Taste gedrückt wurde (Die Arbeit nehm ich dir nicht ab ;) ) könnt mans etwa so machen (und zwar im OnTimer):

Delphi-Quellcode:

// Deklarationen:
// richtung : globalevariable vom typ TRichtung
// bLeft etc. : lokale Variable vom typ Boolean

if isKeyPressed(VK_Left) then bLeft := true;
// wiederholen für die anderen Richtungen
// => du weisst welche Tasten gedrückt wurden

case Richtung of
  riLeft : begin
    if bHoch then richtung := riHoch; 
    if bRunter then richtung := riRunter;
  end;
  // wiederholen für die anderen 3 Fälle
end;

// auf richtung reagieren und entsprechend zeichnen

Das ist nicht geprüft aber so müsst es sauber gehn ;)

[netscanner]

lass mich raten und die procedure
isKeyPressed


muss mit GetAsyncKeyState gemacht werden oder :)

[cruiser]

Geraten, suche benutzt oder PM gelesen? :twisted:

[netscanner]

immer diese verdammten besserwisser ;)