oflameron.pas

logic game in Delphi 2

unit Oflameron;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    StaticText11: TStaticText;
    StaticText12: TStaticText;
    StaticText13: TStaticText;
    StaticText14: TStaticText;
    StaticText15: TStaticText;
    StaticText16: TStaticText;
    StaticText17: TStaticText;
    StaticText18: TStaticText;
    StaticText19: TStaticText;
    StaticText20: TStaticText;
    StaticText21: TStaticText;
    StaticText22: TStaticText;
    StaticText23: TStaticText;
    StaticText24: TStaticText;
    StaticText25: TStaticText;
    StaticText26: TStaticText;
    StaticText27: TStaticText;
    StaticText28: TStaticText;
    StaticText29: TStaticText;
    StaticText30: TStaticText;
    StaticText31: TStaticText;
    StaticText32: TStaticText;
    StaticText33: TStaticText;
    StaticText34: TStaticText;
    StaticText35: TStaticText;
    StaticText36: TStaticText;
    StaticText37: TStaticText;
    StaticText38: TStaticText;
    StaticText39: TStaticText;
    StaticText40: TStaticText;
    StaticText41: TStaticText;
    StaticText42: TStaticText;
    StaticText43: TStaticText;
    StaticText44: TStaticText;
    StaticText45: TStaticText;
    StaticText46: TStaticText;
    StaticText47: TStaticText;
    StaticText48: TStaticText;
    StaticText56: TStaticText;
    StaticText49: TStaticText;
    StaticText50: TStaticText;
    StaticText51: TStaticText;
    StaticText52: TStaticText;
    StaticText53: TStaticText;
    StaticText54: TStaticText;
    StaticText55: TStaticText;
    procedure FormShow(Sender: TObject);
    procedure StaticText56Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  St: systemtime;
  field:  array[0..7, 0..5] of Integer; 
  i: byte;
  j: byte;
implementation

{$R *.DFM}

function FieldFill : integer;
begin

Randomize;
//StaticText7.Caption :=IntToStr(Random(20)); 


for i := 0 to 7 do
  for j := 0 to 5 do

   field[i, j] :=Random(20);

end;
//=============================================
function Color_Chars : integer;
begin
 for j := 0 to 5 do
  for i := 0 to 7 do

     if field[i, j] = 0  then
     Form1.StaticText56.Caption := '+1';
     if field[i, j] = 0  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 0  then
     Form1.StaticText56.Font.Color := $00ffffff;

     if field[i, j] = 1  then
     Form1.StaticText56.Caption := '-1';
     if field[i, j] = 1  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 1  then
     Form1.StaticText56.Font.Color := $00ffffff;

     if field[i, j] = 2  then
     Form1.StaticText56.Caption := '+5';
     if field[i, j] = 2  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 2  then
     Form1.StaticText56.Font.Color := $00ffffff;

     if field[i, j] = 3  then
     Form1.StaticText56.Caption := '-5';
     if field[i, j] = 3  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 3  then
     Form1.StaticText56.Font.Color := $00ffffff;

     if field[i, j] = 4  then
     Form1.StaticText56.Caption := '+10';
     if field[i, j] = 4  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 4  then
     Form1.StaticText56.Font.Color := $00ffffff;

     if field[i, j] = 5  then
     Form1.StaticText56.Caption := '-10';
     if field[i, j] = 5  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 5  then
     Form1.StaticText56.Font.Color := $00ffffff;

     if field[i, j] = 6  then
     Form1.StaticText56.Caption := '+15';
     if field[i, j] = 6  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 6  then
     Form1.StaticText56.Font.Color := $00ffffff;

     if field[i, j] = 7  then
     Form1.StaticText56.Caption := '-15';
     if field[i, j] = 7  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 7  then
     Form1.StaticText56.Font.Color := $00ffffff;

     if field[i, j] = 8  then
     Form1.StaticText56.Caption := '+25';
     if field[i, j] = 8  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 8  then
     Form1.StaticText56.Font.Color := $00ffffff;

     if field[i, j] = 9  then
     Form1.StaticText56.Caption := 'T';
     if field[i, j] = 9  then
     Form1.StaticText56.Color := $00ABCFBB;
     if field[i, j] = 9  then
     Form1.StaticText56.Font.Color := $80000008;

     if field[i, j] = 10  then
     Form1.StaticText56.Caption := 'P';
     if field[i, j] = 10  then
     Form1.StaticText56.Color := $00FFC0C0;
     if field[i, j] = 10  then
     Form1.StaticText56.Font.Color := $80000008;

     if field[i, j] = 11  then
     Form1.StaticText56.Caption := 'B';
     if field[i, j] = 11  then
     Form1.StaticText56.Color := $0080FFFF;
     if field[i, j] = 11  then
     Form1.StaticText56.Font.Color := $80000008;

     if field[i, j] = 12  then
     Form1.StaticText56.Caption := 'Z';
     if field[i, j] = 12  then
     Form1.StaticText56.Color := $00000000;
     if field[i, j] = 12  then
     Form1.StaticText56.Font.Color := $00FFFFFF;

     if field[i, j] = 13  then
     Form1.StaticText56.Caption := 'Z';
     if field[i, j] = 13  then
     Form1.StaticText56.Color := $00000000;
     if field[i, j] = 13  then
     Form1.StaticText56.Font.Color := $00FFFFFF;

     if field[i, j] = 14  then
     Form1.StaticText56.Caption := 'End';
     if field[i, j] = 14  then
     Form1.StaticText56.Color := $000F0FFF;
     if field[i, j] = 14  then
     Form1.StaticText56.Font.Color := $00FFFFFF;

     if field[i, j] = 15  then
     Form1.StaticText56.Caption := '-10';
     if field[i, j] = 15  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 15  then
     Form1.StaticText56.Font.Color := $80000008;

     if field[i, j] = 16  then
     Form1.StaticText56.Caption := '-5';
     if field[i, j] = 16  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 16  then
     Form1.StaticText56.Font.Color := $80000008;

     if field[i, j] = 17  then
     Form1.StaticText56.Caption := '-1';
     if field[i, j] = 17  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 17  then
     Form1.StaticText56.Font.Color := $80000008;

     if field[i, j] = 18  then
     Form1.StaticText56.Caption := '+1';
     if field[i, j] = 18  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 18  then
     Form1.StaticText56.Font.Color := $80000008;

     if field[i, j] = 19  then
     Form1.StaticText56.Caption := '+5';
     if field[i, j] = 19  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 19  then
     Form1.StaticText56.Font.Color := $80000008;

      if field[i, j] = 20  then
     Form1.StaticText56.Caption := '-25';
     if field[i, j] = 20  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 20  then
     Form1.StaticText56.Font.Color := $80000008;




end;
//=============================================
function Field_Fill : integer;  
begin

     if field[i, j] = 0  then
     Form1.StaticText56.Caption := '+1';
     if field[i, j] = 0  then
     Form1.StaticText56.Color := $00BBECF4;
     if field[i, j] = 0  then
     Form1.StaticText56.Font.Color := $00ffffff;


end;
//=============================================

procedure TForm1.FormShow(Sender: TObject);
begin

StaticText49.Height :=8;  
StaticText50.Height :=8;
StaticText51.Height :=8;
StaticText52.Height :=8;
StaticText53.Height :=8;
StaticText54.Height :=8;
StaticText55.Height :=8;

StaticText49.Width :=32;  
StaticText50.Width :=32;
StaticText51.Width :=32;
StaticText52.Width :=32;
StaticText53.Width :=32;
StaticText54.Width :=32;
StaticText55.Width :=32;

FieldFill();  
Color_Chars(); 

StaticText7.Caption :=IntToStr(field[1,1]);
StaticText8.Caption :=IntToStr(field[1,2]);
StaticText9.Caption :=IntToStr(field[1,3]);
StaticText10.Caption :=IntToStr(field[1,4]);
StaticText11.Caption :=IntToStr(field[1,5]);
StaticText12.Caption :=IntToStr(field[1,6]);

end;
//=============================================







procedure TForm1.StaticText56Click(Sender: TObject);
begin
FieldFill();  
Color_Chars(); 

end;

end.