CompEvo4/EntWork.pas at main · OldGames-Open-Source-DevGroup/CompEvo4 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
unit EntWork;

interface

uses
  Windows, Forms,
  ActnList, param, ExtCtrls, Classes, ComCtrls, Controls, StdCtrls;

type
  TExt = class(TForm)
    Image1: TImage;
    Memo1: TMemo;
    Button1: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Memo2: TMemo;
    Button2: TButton;
    Button3: TButton;
    ProgressBar1: TProgressBar;
    Button4: TButton;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Timer1: TTimer;
    procedure Action1Execute(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
 Ext: TExt;
 rnd:integer;

implementation

uses Main;

{$R *.dfm}

procedure TExt.Action1Execute(Sender: TObject);
var
 vac:textfile;
 i:integer;
 s:string;
begin
 If InetTraffic>=1 then begin
  memo2.Lines.Clear;
  Button4.Enabled:=true;
  assignfile(vac,dir+'\Inf\Text.inf');
  reset(vac);
  rnd:=random(9);
  for i:=0 to rnd do
   readln(vac,s);
  Memo2.Lines.Add(s);
  closefile(vac);
  InetTraffic:=InetTraffic-1;
  Action2.Execute;
 end
 else
  begin
   InetTraffic:=0;
   Application.MessageBox('Çàêîí÷èëñÿ ïðåîïëà÷åííûé òðàôèê çà èíòåðíåò. Êóïèòå áîëüøå òðàôèêà äëÿ ïðîäîëæåíèÿ ðàáîòû!','Ïîìîùü!',MB_ICONSTOP);
   Close;
  end;
end;

procedure TExt.Button4Click(Sender: TObject);
begin
 Action1.Execute;
end;

procedure TExt.FormActivate(Sender: TObject);
begin
 MainForm.Timer1.Enabled:=false;
 Action1.Execute;
 ProgressBar1.SetFocus;
end;

procedure TExt.Button1Click(Sender: TObject);
begin
 Timer1.Enabled:=false;
 ProgressBar1.Position:=0;
 Close;
end;

procedure TExt.Action2Execute(Sender: TObject);
begin
 Button2.Enabled:=false;
 Button3.Enabled:=false;
 If (rnd=2) or (rnd=3) or (rnd=8) or (rnd=5) or (rnd=9) or (rnd=10) or (rnd=11) then
  Button2.Enabled:=true;
 If (rnd=1) or (rnd=4) or (rnd=0) or (rnd=6) or (rnd=7) or (rnd=4) then
  Button3.Enabled:=true;
end;

procedure TExt.Button2Click(Sender: TObject);
begin
 If MainForm.Label74.Caption<>'Íåò' then begin
  If InetTraffic>=2 then begin
   if (1000-3-printing*25) < 0 then
    Timer1.Interval:=1
   else
    Timer1.Interval:=1000-3-printing*25;
   Button2.Enabled:=false;
   Button3.Enabled:=false;
   Button4.Enabled:=false;
   InetTraffic:=InetTraffic-2;
   Timer1.Enabled:=true;
  end
  else
   Application.MessageBox('Çàêàç÷èê õî÷åò ïåðåñëàòü ôàéëû ðàçìåðîì 2 Ìá. Ó âàñ íåäîñòàòî÷íî ïðåîïëà÷åííîãî òðàôèêà äëÿ ïîäîáíîé çàãðóçêè!','Ïîìîùü!',MB_ICONSTOP);
 end
 else
  Application.MessageBox('Òàê íåìà ó âàñ ïðèíòåðà!','Ïîìîùü!',MB_ICONSTOP);
end;

procedure TExt.Button3Click(Sender: TObject);
begin
 If MainForm.Label75.Caption<>'Íåò' then begin
  If InetTraffic>=5 then begin
   If (1000-3-scanning*25) < 0 then
    Timer1.Interval:=1
   else
    Timer1.Interval:=1000-3-scanning*25;
   Button2.Enabled:=false;
   Button3.Enabled:=false;
   Button4.Enabled:=false;
   InetTraffic:=InetTraffic-5;
   timer1.Enabled:=true;
  end
  else
   Application.MessageBox('Çàêàç÷èê õî÷åò ïåðåñëàòü ôàéëû ðàçìåðîì 5 Ìá. Ó âàñ íåäîñòàòî÷íî ïðåîïëà÷åííîãî òðàôèêà äëÿ ïîäîáíîé çàãðóçêè!','Ïîìîùü!',MB_ICONSTOP);
 end
 else
  Application.MessageBox('À ÷åì ýòî âû ñîáèðàåòåñü ñêàíèðîâàòü?','Ïîìîùü!',MB_ICONSTOP);
end;

procedure TExt.Timer1Timer(Sender: TObject);
begin
 If ProgressBar1.Position<100 then
  ProgressBar1.Position:=ProgressBar1.Position+2
 else
  begin
   Timer1.Enabled:=false;
   GroupBox2.Enabled:=true;
   ProgressBar1.Position:=0;
   If random(5)<>2 then begin
    Application.MessageBox('Âîò ÷òî çíà÷èò âçàèìíîå óâàæåíèå!','Ïîìîùü!',MB_ICONINFORMATION);
    money:=money+300;
    Action1.Execute;
   end
   else
    begin
     Application.MessageBox('Äà. Îáìàíùèêîâ âåçäå õâàòàåò.','Ïîìîùü!',MB_ICONINFORMATION);
     Action1.Execute;
    end;
  end;
end;

procedure TExt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 MainForm.Timer1.Enabled:=true;
end;

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

end.