1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;

    procedure FormCreate(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Steine: TBitmap;
  acounter, bcounter: integer;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
 begin
  Screen.Cursor := crHandPoint;        //Mauszeigerdesign verändern
  Image2.Picture.LoadfromFile('Play_.bmp');    //Playimage laden
  Image3.Picture.LoadFromFile('Options_.bmp');
  Image4.Picture.LoadFromFile('Quit_.bmp');    //Beendenimage laden
  acounter:=0;
 end;


procedure TForm1.Image4Click(Sender: TObject);
 begin
  close;                                       //schließen
 end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
   var e: integer;
    begin
     randomize;
     e:=random(6);
     Steine:=TBitmap.Create;
     Steine.LoadfromFile(InttoStr(e)+'.bmp');                     //Edelsteine als bmp laden
     stringgrid1.Canvas.Draw(Rect.Left, Rect.Top, (steine));     //StringGrid fülle
     inc(acounter);                                             //Zähler für Anzahl der Züge zählen
     Edit1.Text:=InttoStr(132-(acounter DIV 2));                       //Ausgabe Anzahl der Züge
     if Edit1.Text ='0' then begin
     ShowMessage('Spiel vorbei!');
     StringGrid1.Destroy;                                   //Spielfeld enfernen
     Image4.Destroy;
     Image2.Destroy;
     exit;
   end;
   end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:

CheckStones(XPosition, YPosition), Ergebnis = Integer (Anzahl der berühten Steine)
  Ergebnis ist 1
  wenn es einen Stein links neben dem Aktuellen gibt, dann
    wenn der Stein links neben dem Aktuellen Stein der gleiche ist, dann
      erhöhe das Ergebnis um den RückgabeWert von CheckStones(Parameter des linken Steins)
  wenn es einen Stein rechts neben dem aktuellen gibt, dann
    [...]
END-CheckStones					

1:
2:
3:
4:
5:
6:
7:
8:

DeleteStones(XPosition, YPosition)
  setze den aktuellen Stein auf "kein Stein"
  wenn es einen Stein links neben dem Aktuellen gibt, dann
    wenn der Stein links neben dem Aktuellen Stein der gleiche ist, dann  
      DeleteStones(Paramter des linken Steins)    
  wenn es einen Stein rechts neben dem aktuellen gibt, dann
    [...]
END-DeleteStones					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

NewStones
  alle Spalten zurchzählen
    alle Steine der Spalte von unten nach oben durchzählen
      wenn der Stein gleich "kein Stein" ist, dann 
  tausche den aktuellen Stein mit dem darüber

  alle Spalten zurchzählen
    alle Steine der Spalte durchzählen
      wenn der Stein gleich "kein Stein" ist, dann
    neuer Random-Stein  
END-NewStones