Harry.pas

unit Harry;

interface

uses
  Windows, Forms,
  Dialogs, jpeg, StdCtrls, Controls, Classes, ExtCtrls;

type
  THappy = class(TForm)
    Image1: TImage;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Happy: THappy;
  b:integer=0;

implementation
 uses Main, param, Games;

{$R *.dfm}

procedure THappy.Button1Click(Sender: TObject);
begin
 Close;
end;

procedure THappy.Button3Click(Sender: TObject);
begin
If money>=50 then begin
 If (Month<5) or (month>9) then
  Application.MessageBox('Çàãîðàòü? Â òàêóþ-òî õîëîäèíó!','Ïîìîùü!',MB_ICONINFORMATION)
 else
  begin
   If random(2)=1 then begin
    Application.MessageBox('Çàãîðåëè, èñêóïàëèñü, âåðíóëèñü äîâîëüíûìè äîìîé!','Ïîìîùü!',MB_ICONINFORMATION);
    money:=money-50;
    nastr:=nastr+random(7);
   end
   else
    begin
     Application.MessageBox('Ñîëíöå, ïåñîê, âîäà... ׸ âàì åù¸ íóæíî?','Ïîìîùü!',MB_ICONINFORMATION);
     money:=money-50;
    end;
  end;
 end
 else
  Application.MessageBox('Íåõâàòàåò äåíüæàò...','Ïîìîùü!',MB_ICONSTOP);
end;

procedure THappy.Button2Click(Sender: TObject);
begin
 If Money>=20 then begin
  If (Vozrast>=65) and (Random(7)=5) then begin
    Application.MessageBox('Âû ïîøëè â áàíþ... Ïîïàðèëèñü... È âäðóã âàñ ñõâàòèë èíôàðêò...','Ïîìîùü!',MB_ICONSTOP);
    Application.Terminate;
  end;
  If Random(4)<>2 then begin
   Application.MessageBox('Âû ïîøëè â áàíþ. Õîðîøåíüêî ïîìûëèñü, ïîïàðèëèñü. È âàøå íàñòðîåíèå çàìåòíî óëó÷øèëîñü!','Ïîìîùü!',MB_ICONINFORMATION);
   money:=money-20;
   nastr:=nastr+random(5);
  end
  else
   begin
    Application.MessageBox('Âû ïîøëè â áàíþ. Ïîïàðèëèñü, ïîìûëèñü. Íî âàøå íàñòðîåíèå ïî÷åìó-òî îñòàëîñü ïðåæíèì!','Ïîìîùü!',MB_ICONINFORMATION);
    money:=money-20;
   end;
  end
  else
   Application.MessageBox('Íåõâàòàåò äåíüæàò...','Ïîìîùü!',MB_ICONSTOP);
 end;
procedure THappy.Button4Click(Sender: TObject);
begin
If money>=100 then begin
 If random(3)<>1 then begin
  Application.MessageBox('Ñâåæåå ìÿñî, äûìîê... Àõ, êàê âêóñíî!','Ïîìîùü!',MB_ICONINFORMATION);
  money:=money-100;
  nastr:=nastr+random(10);
 end
 else
  begin
   Application.MessageBox('Òî ëè ìÿñî áûëî æåñòêîå... Òî ëè äðîâ íå áûëî...','Ïîìîùü!',MB_ICONINFORMATION);
   money:=money-100;
  end;
 end
 else
  Application.MessageBox('Íåõâàòàåò äåíüæàò...','Ïîìîùü!',MB_ICONSTOP);
end;

procedure THappy.Button5Click(Sender: TObject);
begin
If (money>=1000) then begin
 If (Application.MessageBox('Êðóãîñâåòíîå ïóòåøåñòâèå áóäåò äëèòüñÿ öåëûé ìåñÿö! Ïîåäåì?','Ïîìîùü!',MB_ICONQUESTION+MB_YESNO)=IDYES) then begin
  MainForm.Timer1.Enabled:=false;
  If month<12 then
   inc(month)
  else
   begin
    month:=1;
    inc(year);
    inc(vozrast);
   end;
  If random(2)=0 then begin
   Application.MessageBox('Çàõâàòûâàþùå, âîëíóþùåå äóøó ïóòåøåñòâèå íå ïðîøëî äëÿ âàñ äàðîì!','Ïîìîùü!',MB_ICONINFORMATION);
   money:=money-1000;
   vlasti:=vlasti+3;
   nastr:=nastr+random(25);
  end
  else
   begin
    Application.MessageBox('Äà äî ëàìïî÷êè âàì ýòî ïóòåøåñòâèå!','Ïîìîùü!',MB_ICONINFORMATION);
    vlasti:=vlasti+2;
    money:=money-1000;
   end;
  end;
 end
 else
  Application.MessageBox('Íåõâàòàåò äåíüæàò...','Ïîìîùü!',MB_ICONSTOP);
 MainForm.Timer1.Enabled:=true;
end;

procedure THappy.FormActivate(Sender: TObject);
begin
  If MainForm.Label22.Caption='Íåò' then
   Button7.Enabled:=false
  else
   If MainForm.Label24.Caption='Íåò' then
    Button7.Enabled:=false
   else
    If MainForm.Label23.Caption='Íåò' then
     Button7.Enabled:=false
    else
     If MainForm.Label25.Caption='Íåò' then
      Button7.Enabled:=false
     else
      If MainForm.Label27.Caption='Íåò' then
       Button7.Enabled:=false
      else
       If MainForm.Label69.Caption='Íåò' then
        Button7.Enabled:=false
       else
        If MainForm.Label70.Caption='Íåò' then
         Button7.Enabled:=false
        else
         If MainForm.Label77.Caption='Íåò' then
          Button7.Enabled:=false
         else
          Button7.Enabled:=true;
 If (vozrast>40) or (vozrast<12) then
  Button6.Enabled:=false
 else
  Button6.Enabled:=true;
 If b<2 then
  inc(b);
 If b=1 then
  Application.MessageBox('Îòäûõàòü ìîæíî è íóæíî!','Ïîìîùü!',MB_ICONINFORMATION);
end;

procedure THappy.Button6Click(Sender: TObject);
begin
If money>=75 then begin
 begin
  If random(4)<>1 then begin
   Application.MessageBox('Âû ïîêîðèëè ñåðäöå ñâîåé ëþáèìîé!','Ïîìîùü!',MB_ICONINFORMATION);
   money:=money-75;
   nastr:=nastr+random(20);
  end
  else
   begin
    Application.MessageBox('Ãóëÿÿ ñ ëþáèìîé äåâóøêîé, íà âàñ íàïàëè íåèçâåñòíûå. Íå ñóìåâ çàùèòèòüñÿ, îíè çàáðàëè ó âàñ áóìàæíèê è èçáèëè!','Ïîìîùü!',MB_ICONINFORMATION);
    nastr:=nastr-7;
    money:=money-75;
   end;
 end;
end
else
 Application.MessageBox('Íåõâàòàåò äåíüæàò...','Ïîìîùü!',MB_ICONSTOP);
end;

procedure THappy.Button7Click(Sender: TObject);
begin
 Game.Showmodal;
end;

procedure THappy.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 If (key=VK_ESCAPE) then
  Button1.OnClick(self);
end;

end.