Tipps und Ratschläge für Spiel & für effizientes Programmieren

[Glados]

Probier mal negaH's Delay aus. Vielleicht bringts ja was. http://www.delphipraxis.net/6620-delay.html

[Danny92]

Ich habe noch einen Fehler gefunden, aber ich weiß noch nicht, wie der zustande kommt. Setzt man die spielfeldgröße auf 5x5 Felder (spinedit. Max in der form2 muss evtl auf 5 gesenkt werden), und benutzt 1 fünfer Schiff sowie 1 dreier Schiff, so kommt es beim spielstart beim Klick auf zufällig in ca 10% der Fälle dass das fünfer Schiff nicht erscheint, sondern nur das kleine. Weiß jemand, wieso? Ich hab nicht den blassesten Schimmer und weiß auch nicht, wie man den Fehler schnell und einfach finden kann. Das passiert ja nur relativ selten...

[Danny92]

Der Case-Zweig in SetzeFlotte musste wie folgt abgeändert werden:

Delphi-Quellcode:

            case k of
            0: if a.Y >= i then
                 b := Point(a.X, a.Y - i + 1)
                else
                  richtungProbiert[0]:=True;
            1: if a.Y + i - 1 <= feldgroesse then
                 b := Point(a.X, a.Y + i - 1)
               else
                 richtungProbiert[1]:=True;
            2: if a.X >= i then
                 b := Point(a.X - i + 1, a.Y)
               else
                 richtungProbiert[2]:=True;
            3: if a.X + i - 1 <= feldgroesse then
                 b := Point(a.X + i - 1, a.Y)
               else
                 richtungProbiert[3] := True;
            else

            end;