MEGD

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    GroupBox3: TGroupBox;
    Label11: TLabel;
    ComboBox2: TComboBox;
    Label10: TLabel;
    GroupBox4: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure imgclick(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Label9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label15Click(Sender: TObject);
    procedure Label15MouseEnter(Sender: TObject);
    procedure Label15MouseLeave(Sender: TObject);
    procedure Label16MouseEnter(Sender: TObject);
    procedure Label16MouseLeave(Sender: TObject);
    procedure Label9MouseEnter(Sender: TObject);
    procedure Label7MouseEnter(Sender: TObject);
    procedure Label9MouseLeave(Sender: TObject);
    procedure Label7MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1 : TForm1;
  pataikyti, visi, nepataikyti,
  atsiradimas, dingimas : integer;
  i     : Integer=0;
  img   : array[1..100] of TImage;
  Vidutinis : string;

implementation

{$R *.dfm}
{$R res.res}

Procedure Pabaiga;
var visuma : integer;
begin
FreeAndNil(img[strtoint(form1.ComboBox2.Text)+1]);

form1.Timer1.Enabled:=false;
form1.Timer2.Enabled:=false;
form1.GroupBox4.Visible:=true;
form1.Label13.Caption:='Tu uzmusiai ' +inttostr(pataikyti)+ ' EMO, tai reiskias, kad gavai ' +inttostr(pataikyti)+ 'KG dzemo!';
visuma:=strtoint(form1.ComboBox2.Text)-pataikyti;
if visuma > 0 then
form1.Label14.Caption:='Neuzmusiai ' +inttostr(visuma)+ ' EMO, bet jie nusizude patys :('
else form1.Label14.Caption:='Ir beja tu uzmusiai visus '+form1.ComboBox2.Text+' EMO!';

form1.Label1.Caption:= 'Atsiradusiu EMO: '+inttostr(i-1);
end;

Procedure lengvas;
begin
atsiradimas:=1800;
dingimas:=1800;
end;

Procedure vidutiniss;
begin
atsiradimas:=900;
dingimas:=900;
end;

Procedure sunkus;
begin
atsiradimas:=600;
dingimas:=600;
end;

Procedure neimanoma;
begin
atsiradimas:=300;
dingimas:=1500;
end;

Procedure TForm1.imgclick(Sender: TObject);
var nr : integer;
begin
nr:= img[(sender as TImage).Tag].Tag;

with img[nr] do begin
 enabled:=false;
 Picture.Bitmap.LoadFromResourceName(HInstance,'DEAD');
 inc(pataikyti);
 end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var click : TMethod;
begin
inc(i);
visi:=nepataikyti+pataikyti;
Label2.Caption:= 'Tu uzmusiai: '+inttostr(pataikyti);
Label3.Caption:= 'Nepataikiai: '+inttostr(nepataikyti);
Label4.Caption:= 'Isviso soviai: '+inttostr(visi);
Label1.Caption:= 'Atsiradusiu EMO: '+inttostr(i);

img[i] := TImage.Create(form1);
 with img[i] do begin
 Picture.Bitmap.LoadFromResourceName(HInstance,'LIVE');
 Width:= picture.Width;
 Height:= picture.Height;
 Randomize;
 Top:= Random(310)+4;
 Left:=Random(360)+4;
 Tag:=i;
 Parent:= form1;
 end;

click.Code:= @TForm1.imgclick;
img[i].OnClick:= TNotifyEvent(click);

if i = strtoint(ComboBox2.Text)+1 then pabaiga;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
 var r : integer;
begin
  for r:=1 to i do begin
   FreeAndNil(img[r]);
  end;
end;

procedure TForm1.FormClick(Sender: TObject);
 begin
  inc(Nepataikyti);
 end;

procedure TForm1.Label7Click(Sender: TObject);
begin
if ComboBox1.Text='Lengvas' then lengvas;
if ComboBox1.Text='Vidutinis' then vidutiniss;
if ComboBox1.Text='Sunkus' then sunkus;
if ComboBox1.Text='Tiesiog neimanoma' then neimanoma;

GroupBox3.Visible:=false;
GroupBox1.Visible:=true;
Timer1.Enabled:=true;
Timer2.Enabled:=true;
Timer1.Interval:= atsiradimas;
Timer2.Interval:= dingimas;
end;

procedure TForm1.Label9Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
const CrTaikinys : integer = 5;
begin
GroupBox4.Visible:=false;
Top:= 250;
Left:= 300;
Screen.Cursors[CrTaikinys]:= LoadCursor(HInstance, 'TAIKINYS');
Screen.Cursor := CrTaikinys;
end;

procedure TForm1.Label15Click(Sender: TObject);
begin
GroupBox4.Visible:=false;
GroupBox1.Visible:=false;
GroupBox3.Visible:=true;
pataikyti:=0;
visi:=0;
nepataikyti:=0;
i:=0;

end;

procedure TForm1.Label15MouseEnter(Sender: TObject);
begin
label15.Font.Style:= [fsbold];
end;

procedure TForm1.Label15MouseLeave(Sender: TObject);
begin
label15.Font.Style:= [];
end;

procedure TForm1.Label16MouseEnter(Sender: TObject);
begin
label16.Font.Style:= [fsBold];
end;

procedure TForm1.Label16MouseLeave(Sender: TObject);
begin
label16.Font.Style:= [];
end;

procedure TForm1.Label9MouseEnter(Sender: TObject);
begin
label9.Font.Style:= [fsBold];
end;

procedure TForm1.Label7MouseEnter(Sender: TObject);
begin
label7.Font.Style:= [fsBold];
end;

procedure TForm1.Label9MouseLeave(Sender: TObject);
begin
label9.Font.Style:= [];
end;

procedure TForm1.Label7MouseLeave(Sender: TObject);
begin
label7.Font.Style:= [];
end;

end.