unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Windows, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, ComCtrls, Menus, ActnList, Spin, FileCtrl;
type
{ TForm1 }
TForm1 =
class(TForm)
FloatSpinEdit1: TFloatSpinEdit;
Guthabenlb: TLabel;
s4: TLabel;
s5: TLabel;
s6: TLabel;
s7: TLabel;
s8: TLabel;
s9: TLabel;
Timer3: TTimer;
Winlb: TLabel;
Loselb: TLabel;
slotbn: TButton;
s1: TLabel;
s2: TLabel;
s3: TLabel;
Timer1: TTimer;
Timer2: TTimer;
procedure FormCreate(Sender: TObject);
procedure slotbnClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
private
{ private declarations }
FRollen :
array [0..2, 0..9]
of String;
public
{ public declarations }
end;
var
Form1: TForm1;
wins,loses : Integer;
guthaben : Double = 10;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.slotbnClick(Sender: TObject);
begin
Guthaben := Guthaben - 1.00;
Guthabenlb.Caption := FloatToStr(guthaben) + ('
€');
Timer1.Enabled := True;
Timer2.Enabled := True;
slotbn.Enabled := false;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
j: integer;
n: integer;
digits: TStringlist;
begin
Digits := TStringList.Create;
try
for i := low(FRollen)
to high(FRollen)
do
begin
for j := low(FRollen[i])
to high(FRollen[i])
do
Digits.Add(IntToStr(j));
for j := low(FRollen[i])
to high(FRollen[i])
do
begin
n := Random(Digits.Count);
FRollen[i, j] := Digits[n];
Digits.Delete(n);
end;
end
finally
Digits.Free;
end;
for i:=low(FRollen)
to high(FRollen)
do
begin
end;
end;
//==================================================================================================\\
// Drehen der Slots im Zufallsmodus
//==================================================================================================//
procedure TForm1.Timer1Timer(Sender: TObject);
begin
s1.Caption := IntToStr(Random(9));
s2.Caption := IntToStr(Random(9));
s3.Caption := IntToStr(Random(9));
s4.Caption := IntToStr(Random(9));
s5.Caption := IntToStr(Random(9));
s6.Caption := IntToStr(Random(9));
s7.Caption := IntToStr(Random(9));
s8.Caption := IntToStr(Random(9));
s9.Caption := IntToStr(Random(9));
end;
//==================================================================================================//
//===================================================================================================\\
// Gewonnen / Verloren abfrage
//===================================================================================================//
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Timer2.Enabled := false;
if (s1.Caption = s5.Caption)
and (s1.Caption = s9.Caption)
then
begin
Guthaben := Guthaben + 5.00;
Inc(wins);
end
else
if (s1.Caption = s4.Caption)
and (s1.Caption = s7.Caption)
then
begin
Guthaben := Guthaben + 5.00;
Inc(wins);
end
else
if (s2.Caption = s5.Caption)
and (s2.Caption = s8.Caption)
then
begin
Guthaben := Guthaben + 5.00;
Inc(wins);
end
else
if (s3.Caption = s6.Caption)
and (s3.Caption = s9.Caption)
then
begin
Guthaben := Guthaben + 5.00;
Inc(wins);
end
else
if (s3.Caption = s5.Caption)
and (s3.Caption = s7.Caption)
then
begin
Guthaben := Guthaben + 5.00;
Inc(wins);
end
else
Inc(loses);
slotbn.Enabled := True;
Loselb.Caption := '
Loses: ' + IntToStr(loses);
Winlb.Caption := '
Wins: ' + IntTostr(Wins);
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
if (guthaben = 0)
or (guthaben < 0)
then
begin
Timer3.Enabled := False;
MessageBox(
handle,'
Du hast verloren!','
Verlierer!',MB_OK);
close();
end;
end;
//======================================================================================================\\
end.