Minesweeper

[Popov]

Zitat von BadenPower:

In diesem Beispiel wird auf Feld(1,2) mit der Raute geklick.
geöffnet werden:
(0,2),(1,2),(0,3),(1,3) UND (2,1),(3,1),(2,0),(3,0)

Beispiel siehe Bild in Post #82.

Das Bild in Post #82 unterstützt deine Aussage nicht.

[Sir Rufo]

Zitat von Popov:

Zitat von BadenPower:

In diesem Beispiel wird auf Feld(1,2) mit der Raute geklick.
geöffnet werden:
(0,2),(1,2),(0,3),(1,3) UND (2,1),(3,1),(2,0),(3,0)

Beispiel siehe Bild in Post #82.

Das Bild in Post #82 unterstützt deine Aussage nicht.

Doch, sogar zweimal, allerdings musst du das Bild um 180° drehen, damit es zu deiner Beschreibung passt und somit diese widerlegt.

[Popov]

Wo siehst du auf dem Bild #82 sich berührende Flächen über Eck?

Hier ein Beispiel wie ich es meine:

[Sir Rufo]

Zitat von Popov:

Wo siehst du auf dem Bild #82 sich berührende Flächen über Eck?

Kuckst du, mit deiner überlagerten Aussage (und passend gedreht, für alle, die das im Kopf nicht hinbekommen )

[Popov]

Na gut, dann ist der Algorithmus für MineSweeper nicht wirklich eine Herausforderung.

Wer die Regel nicht will kann aus meinem Beispiel diese Zeilen löschen:

Delphi-Quellcode:

              if not ((a = 0) or (b = 0)) then
                Continue;

Sie verhindern die Öffnung benachbarter Flächen über Eck. So simpel die zwei Zeilen auch aussehen, ich hab da fast 3/4 Stunde dran gesessen. Das war das einzig komplizierte. Der Rest ist in fünf bis zehn Minuten gemacht.

[Bjoerk]

Zitat von Popov:

Na gut, dann ist der Algorithmus für MineSweeper nicht wirklich eine Herausforderung. [..]

Ich kenn das Spiel ja quasi erst seit gestern aber kann es sein daß wir das vergessen haben? "Wenn man auf ein leeres Feld klickt, öffnen sich alle anschliessenden leeren Felder + das erste mit einer Zahl belegten Feld" (aus einem VB Forum). Oder stimmt das nicht?

Also zusätzlich zur Rekursion noch den Code nach den ???

Delphi-Quellcode:

procedure TMinesweeperForm.Play(X, Y: integer); // PanelsMouseUp, Button mbLeft;
var
  I, J, K, L: integer;
begin
  // Wenn zu tun:
  // Wenn im Raster und noch nicht aufgedeckt und leeres Feld bzw. Feld mit einer pos. Zahl drin; (Mine = -1);
  if InPanelGrid(X, Y) and FPanels[X, Y].Enabled and (FPanels[X, Y].FlankingMinesCount >= 0) then
  begin
    if FPanels[X, Y].FlankingMinesCount > 0 then // Wenn Zahl > Null;
      FPanels[X, Y].Caption := IntToStr(FPanels[X, Y].FlankingMinesCount)
    else
      FPanels[X, Y].Caption := ''; // Null;
    FPanels[X, Y].Color := clWindow; // farblich kennzeichnen und
    FPanels[X, Y].Enabled := false; // -> aufdecken;
    for I := -1 to 1 do
      for J := -1 to 1 do
        if ((I <> 0) or (J <> 0)) // Alle außer 0 / 0;
          and InPanelGrid(X + I, Y + J) // Wenn im Raster;
          and FPanels[X + I, Y + J].Enabled // Wenn noch nicht aufgedeckt;
          and (FPanels[X + I, Y + J].FlankingMinesCount = 0) // Wenn leer
          and (FPanels[X + I, Y + J].Caption <> cFlagSign) then // und keine Fahne;
        begin
          Play(X + I, Y + J); // Rekursion;
          // Angrenzende Felder des leeren Feldes die eine Zahl haben ebenfalls aufdecken ???
          for K := -1 to 1 do
            for L := -1 to 1 do
              if ((K <> 0) or (L <> 0)) // Alle außer 0 / 0;
                and InPanelGrid(X + K, Y + L) // Wenn im Raster;
                and (FPanels[X + K, Y + L].FlankingMinesCount > 0) // Wenn Zahl > 0;
                and (FPanels[X + K, Y + L].Caption <> cFlagSign) then // und keine Fahne;
              begin
                FPanels[X + K, Y + L].Caption := IntToStr(FPanels[X + K, Y + L].FlankingMinesCount);
                FPanels[X + K, Y + L].Color := clWindow; // farblich kennzeichnen und
                FPanels[X + K, Y + L].Enabled := false; // -> aufdecken;
              end;
        end;
  end;
end;

[Sir Rufo]

Zitat von Bjoerk:

Zitat von Popov:

Na gut, dann ist der Algorithmus für MineSweeper nicht wirklich eine Herausforderung. [..]

Ich kenn das Spiel ja quasi erst seit gestern aber kann es sein daß wir das vergessen haben? "Wenn man auf ein leeres Feld klickt, öffnen sich alle anschliessenden leeren Felder + das erste mit einer Zahl belegten Feld" (aus einem VB Forum). Oder stimmt das nicht?

S. Beitrag #89

Zitat:

Wenn ein Feld aufgedeckt wird, dass keine Mine im Nachbarfeld hat, dann werden auch alle Nachbarfelder aufgedeckt.

[BadenPower]

Zitat von Popov:

Wo siehst du auf dem Bild #82 sich berührende Flächen über Eck?

Sogar gleich zweimal.

[Sir Rufo]

Wikipedia meint

Zitat:

Eine Sonderrolle spielen Felder, die keine Minen in ihrer Nachbarschaft aufweisen: Solche zeigen zum einen nicht etwa eine 0, sondern sie werden farblich anders dargestellt. Zum anderen werden alle noch verdeckten Felder in ihrer Nachbarschaft automatisch aufgedeckt. Ist ein so neu aufdecktes Feld ebenfalls ein Null-Feld, so wird dieser Prozess rekursiv weitergeführt.

[saii]

Ich habs mal rekursiv versucht und hab mal den Vorschlag von Mavarik umgeschrieben.

Jetzt bekomme ich beim Anklicken von Panels, die keine benachbarte Mine haben, eine Exception der Klasse EStackOverflow

Delphi-Quellcode:

procedure TForm1.CannonFire(var A,B,m:integer; Sender: TObject);
var h,j:integer;
begin
        Panel:=TPanel(Sender);
        A:=StrToInt(Copy(Panel.Name, 3,2));
        B:=StrToInt(Copy(Panel.Name, 6,2));

        if IntA[A,B]<>9 then
        begin
                m:=IntA[A,B];
                if IntA[A,B]=0 then
                FindeLeer(v,w);
        end;
        
        if IntA[A,B]=9 then
        begin
                ShowMessage('Du hast Verloren!');
                close;
        end;
end;

Procedure TForm1.FindeLeer(v,w:integer);
begin
  if (v < 0) or (w < 0) or (v > 14) or (w > 14) then
    Exit;

  if (IntA[v,w] = 0) then
    begin
      PanelA[v,w].Caption:=IntToStr(IntA[v,w]);
      FindeLeer(v+1,w);
      FindeLeer(v-1,w);
      FindeLeer(v,w+1);
      FindeLeer(v,w-1);
    end;
end;