Erstellen eines Minesweeper-Spiels

[RBen]

Guten Tag liebe Member des Forums,

ich habe geplant ein „Minesweeper“-Programm in Lazarus (Pascal) zu erstellen. Allerdings sind meine Kenntnisse in Lazarus sehr beschränkt und es scheitert schon bei der Erstellung der Oberfläche des Programms.
Bomben sollen hierbei das Spiel beenden und um eine Zufällig generierte Bombe müssen –wie beim richtigem Spiel- Zahlen erstellt werden, welche die Anzahl der umliegenden Bomben wiederspiegelt. Ich habe sozusagen das Konzept bereit, doch kann es nicht in Lazarus umsetzen.

Meine Vorstellung:
 15*15 Feld
 20% Bomben
 Start Knopf
 „Loosing“-Screen
 (Anpassung der schwierigkeit)

Ich wäre euch sehr Dankbar, wenn ihr mir –vorallem beim Anfang helfen könntet.

[six1]

Hu... also wenn du nur die Vorstellung hast, ein Spiel zu programmieren und gar keine Idee, wie du das Spielfeld erstellen kannst, wird es irgendwie hart werden.
Hört sich irgendwie nach Ausbildungsaufgbe an

So würde ich es angehen:

Struktur für das Spielfeld erstellen.
Es gibt Eigenschaften für das Spielfeld als Ganzes und Eigenschaften der einzelnen Felder, die alle gleich sind.

Also zuerst die Eigenschaften eines Feldes:

Code: Alles auswählen

  Type TFeld = Record
	Panel:TPanel;
	Picture:TImage;
	Caption:TLabel;
   end;

Dann benötigst du das Spielfeld;

Code: Alles auswählen

  Type TSpielFeld = Record
	Fields:array of array of TFeld;
	SizeFields:integer; // width and height
	space:integer;  // Abstand der Felder zueinander
	CountX:integer;
	CountY:integer;
   end;

Dann erzeugst du eine Variable für das Spielfeld

Code: Alles auswählen

.....
private
  Spielfeld:TSpielFeld ;
public

end;

Nach dem Start legst du z.B. im OnCreate der Form ein paar Variablen fest mit der Größe der Felder usw.
Dies kannst du auch aus der Form Size berechnen.
Jetzt kannst du mit den Vorgaben das Spielfeld erzeugen...

Code: Alles auswählen

  Spielfeld.SizeFields:=60;
  Spielfeld.Space:=2;
  Spielfeld.CountX:=15;
  Spielfeld.CountY:=15;
  setlength(Spielfeld.Fields, Spielfeld.CountY);
  for y := 0 to  Spielfeld.CountY-1 do
  begin
    setlength(Spielfeld.Fields[y], Spielfeld.CountX);
    for x := 0 to  Spielfeld.CountX-1 do
    begin
         Spielfeld.Fields[y][x].Panel:=TPanel.create(nil);
         Spielfeld.Fields[y][x].Panel.Parent:=Form1;
         Spielfeld.Fields[y][x].width:=Spielfeld.SizeFields;
         Spielfeld.Fields[y][x].height:=Spielfeld.SizeFields;
         ...usw.
    end;
  end; 

...obiges ist Freihand gepinselt und soll als Anstoß dienen

[Winni]

Hi!

Was Six1 anbietet ist ja die "Turbo-Pascal-Schule für Fortgeschrittene". Oder so.

Ich werf mal in die Runde:

Ein DrawGrid nehmen, das erspart viel Arbeit.

Allerdings ist der Code von Six1 eine gute Anfängerschulung.
Kommt drauf an, was der Fragende so kann.

Winni

[six1]

also ich bin fertig Ben, wie siehts aus?
Es sind nur260 Zeilen Code bis end.

Zeig mal ein bisschen von dem, was du bis jetzt hast...

[nevermore2k]

six1 würde gerne mal das Minesweeper Projekt von dir sehen.

[six1]

Anbei das Projekt

MinesSweeper.zip

(1.9 MiB) 171-mal heruntergeladen

[nevermore2k]

danke

[siro]

Schick gemacht.

Deine .exe wird bei mir vom Windows Defender als schwerwiegender Virus ausgegeben.

virus_defender.jpg (13.45 KiB) 2602 mal betrachtet

Wenn ich neu compiliere und meine exe benutze, kein Problem.

[sstvmaster]

Bei mir das gleiche.

[six1]

Habe meine Exe mit UPX gepackt...
Da ist kein Virus drin...

[af0815]

Dann schmeisst die Exe raus. Der Source reicht doch.

Sehr viele Virenscanner gehen auf FPC kompilierte Dateien los, da sie gewissen Mustern entsprechen. Alles was nicht von bestimmten Compileren erzeugt wird ist einmal verdächtig. Manchmal reichen Debuginfos aus um positive false zu werden. Ganz arg ist es, falls du auch noch Strip drüber laufen lässt Zumindest eine Zeitlang wurde das automatisch als Virulent qualifiziert.

[Roland Chastain]

Hallo ! Hier ist (falls jemand interessiert ist) ein Minesweeper, den ich vor ein paar Jahren gemacht habe. Es ist ein Windows-Programm.