жив цел орел

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Button1: TButton;
    System: TTimer;
    Generator1: TTimer;
    Generator2: TTimer;
    Handler1: TTimer;
    Handler2: TTimer;
    Sputnik: TTimer;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    procedure SystemTimer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Generator1Timer(Sender: TObject);
    procedure SputnikTimer(Sender: TObject);
    procedure Handler1Timer(Sender: TObject);
    procedure Generator2Timer(Sender: TObject);
    procedure Handler2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  work: boolean;
  buffer1: array[1..2] of boolean;
  buffer2: array[1..2] of boolean;
  sputnik_free: boolean;
  sputnik_time: integer;

implementation

uses Math;

{$R *.dfm}

procedure CalculateSputnik();
var
  count: integer;
begin
  count := StrToInt(Form1.Label8.Caption);
  count := count + 1;
  Form1.Label8.Caption := IntToStr(count);
  if (sputnik_free = false) then
  begin
    count := StrToInt(Form1.Label10.Caption);
    count := count + 1;
    Form1.Label10.Caption := IntToStr(count);
  end else
  begin
    sputnik_free := false;
    Form1.Sputnik.Interval := RandomRange(50,150);
    sputnik_time := sputnik_time + Form1.Sputnik.Interval;
    Form1.Sputnik.Enabled := true;
  end;
end;

procedure TForm1.SystemTimer(Sender: TObject);
begin
   work:=false;
   label12.Caption := FloatToStr(StrToInt(Label10.Caption)/ 60);
   Label14.Caption := FloatToStr((sputnik_time / 600000) * 100);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  work:=true;
  System.Enabled := true;
  Generator1.Interval := RandomRange(70, 130);
  Generator2.Interval := RandomRange(70, 130);
  Generator1.Enabled := true;
  Generator2.Enabled := true;
  buffer1[1] := false;
  buffer1[2] := false;
  buffer2[1] := false;
  buffer2[2] := false;
  sputnik_free := true;
  Label8.Caption := '0';
  Label10.Caption := '0';
  sputnik_time := 0;
end;

procedure TForm1.Generator1Timer(Sender: TObject);
begin
    Generator1.Interval := RandomRange(70, 130);
    if (work=false) then
      Generator1.Enabled := false
    else if ((buffer1[1] = true) AND (buffer1[2] = true)) then
    begin
      ListBox1.Items.Add('Iaeao ioi?aaeai ia niooieeiao? eeie?');
      CalculateSputnik;
    end
    else if (buffer1[1]=false) then
    begin
      buffer1[1] := true;
      Label3.Color := clRed;
      ListBox1.Items.Add('Iaeao caianai a 1 ?aaeno?');
      if (Handler1.Enabled = false) then
         Handler1.Enabled := true;
    end else
    begin
      buffer1[2] := true;
      Label4.Color := clRed;
      ListBox1.Items.Add('Iaeao caianai a 2 ?aaeno?');
      if (Handler1.Enabled = false) then
      begin
         Handler1.Enabled := true;
      end;
    end;
end;

procedure TForm1.SputnikTimer(Sender: TObject);
begin
  sputnik_free := true;
  Sputnik.Enabled := false;
end;

procedure TForm1.Handler1Timer(Sender: TObject);
begin
  if (buffer1[2] = true) then
  begin
    buffer1[2] := false;
    Label4.Color := clGreen;
    ListBox1.Items.Add('Cia?aiea 2 ?aaeno?a ia?aaioaii');
  end
  else if (buffer1[1] = true) then
  begin
    buffer1[1] := false;
    Label3.Color := clGreen;
    ListBox1.Items.Add('Cia?aiea 1 ?aaeno?a ia?aaioaii');
  end;

  if ((buffer1[1] = false) AND (buffer1[2] = false)) then
    Handler1.Enabled := false;

end;

procedure TForm1.Generator2Timer(Sender: TObject);
begin
    Generator2.Interval := RandomRange(70, 130);
    if (work=false) then
      Generator2.Enabled := false
    else if ((buffer2[1] = true) AND (buffer2[2] = true)) then
    begin
      ListBox2.Items.Add('Iaeao ioi?aaeai ia niooieeiao? eeie?');
      CalculateSputnik;
    end
    else if (buffer2[1]=false) then
    begin
      buffer2[1] := true;
      Label5.Color := clRed;
      ListBox2.Items.Add('Iaeao caianai a 1 ?aaeno?');
      if (Handler2.Enabled = false) then
         Handler2.Enabled := true;
    end else
    begin
      buffer2[2] := true;
      Label6.Color := clRed;
      ListBox2.Items.Add('Iaeao caianai a 2 ?aaeno?');
      if (Handler2.Enabled = false) then
      begin
         Handler2.Enabled := true;
      end;
    end;
end;

procedure TForm1.Handler2Timer(Sender: TObject);
begin
  if (buffer2[2] = true) then
  begin
    buffer2[2] := false;
    Label6.Color := clGreen;
    ListBox2.Items.Add('Cia?aiea 2 ?aaeno?a ia?aaioaii');
  end
  else if (buffer2[1] = true) then
  begin
    buffer2[1] := false;
    Label5.Color := clGreen;
    ListBox2.Items.Add('Cia?aiea 1 ?aaeno?a ia?aaioaii');
  end;

  if ((buffer2[1] = false) AND (buffer2[2] = false)) then
    Handler2.Enabled := false;
end;

end.