Тренировка реакции(Terrorist WIN v1.1)

7476
GOLD0Respect1
Сообщений29DisRespect5
Расположение:
Ukraine
Вот новая версия игры!!! И эта игра проверина на ВТ https://www.virustotal.com/file/fe0cf0b6dc84f3c2ce72aab1092f24e18ff38f00193ab42cc19fd12148d5b3fe/analysis/
15 Январь 2013, 21:56  #1
Оффлайн
*
3920
Rating
GOLD8Respect40
Сообщений738DisRespect132
Counter-strike
Расположение:
Ukraine, Чернигов
ребята не качайте
Trojandownloader detected
15 Январь 2013, 23:59  #2
wtf !? kak tak
GOLD0Respect1
Сообщений29DisRespect5
Расположение:
Ukraine
Если ты не видео то мы кинули сылку ВТ, для того чтобы люди знали что в этой игре нет каких вирусов.И если тебе чтото не нравится можеш не качать!                                                                                                                                                                                                                                                                                                       И пожалуйста кто качает игру оставляйте свои комментарии
Редактирование: 17 Январь 2013, 14:38 от [email protected]  #3
GOLD0Respect0
Сообщений6DisRespect1
Counter-Strike
Расположение:
Ukraine, Kherson
ребята не качайте
Trojandownloader detected
hAoS specially for you!
Скрытый текст
unit Unit1;


interface


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


type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    GroupBox1: TGroupBox;
    Image11: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image6: TImage;
    GroupBox2: TGroupBox;
    Image12: TImage;
    GroupBox3: TGroupBox;
    Image13: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Timer3: TTimer;
    Panel1: TPanel;
    Edit1: TEdit;
    Button5: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    Image21: TImage;
    Image22: TImage;
    Image23: TImage;
    Image24: TImage;
    Image25: TImage;
    Image26: TImage;
    Image27: TImage;
    Image28: TImage;
    Image29: TImage;
    Image30: TImage;
    Image31: TImage;
    Image32: TImage;
    Image33: TImage;
    Image34: TImage;
    Image35: TImage;
    Image36: TImage;
    Image37: TImage;
    Image38: TImage;
    Image39: TImage;
    Image40: TImage;
    Image41: TImage;
    Image42: TImage;
    Image43: TImage;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Image44: TImage;
    Image45: TImage;
    Image46: TImage;
    Image47: TImage;
    Image48: TImage;
    Image49: TImage;
    Image50: TImage;
    Image51: TImage;
    Image52: TImage;
    Image53: TImage;
    Image54: TImage;
    Image55: TImage;
    Image56: TImage;
    Image57: TImage;
    Image58: TImage;
    Image59: TImage;
    Image60: TImage;
    Image61: TImage;
    Image62: TImage;
    Image63: TImage;
    Image64: TImage;
    Image65: TImage;
    Image66: TImage;
    Image67: TImage;
    Image68: TImage;
    Image69: TImage;
    Image70: TImage;
    Image71: TImage;
    Image72: TImage;
    Image73: TImage;
    Label10: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Panel2: TPanel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    CheckBox1: TCheckBox;
    Button6: TButton;
    Panel3: TPanel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    Label69: TLabel;
    Label70: TLabel;
    Label71: TLabel;
    Label72: TLabel;
    Label73: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Image43MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image38MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image42MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image41MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image40MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image39MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button3Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button6Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  i, y, tw: boolean;
  j, s, p: byte;
  g, d, t, b, lh, rh, ll, rl, m: integer;
  im: array [1..10] of TImage;
  Stat: array [1..11, 1..4] of String;
  Stats: TextFile;


implementation


uses Unit2;


{$R *.dfm}


procedure TForm1.Timer1Timer(Sender: TObject);
begin
if y = True then
if j <= 5 then
begin


  if Im[j].Top = 152 then  i := True;
  if Im[j].Top = 0 then    i := False;


case j of
1:
begin
  if i = True then
  begin
    Image43.Top := Image43.Top - s;
    Image38.Top := Image38.Top - s;
    Image42.Top := Image42.Top - s;
    Image41.Top := Image41.Top - s;
    Image40.Top := Image40.Top - s;
    Image39.Top := Image39.Top - s;
  end;


  if i = False then
  begin
    Image43.Top := Image43.Top + s;
    Image38.Top := Image38.Top + s;
    Image42.Top := Image42.Top + s;
    Image41.Top := Image41.Top + s;
    Image40.Top := Image40.Top + s;
    Image39.Top := Image39.Top + s;
  end;
end;
2:
begin
  if i = True then
  begin
    Image35.Top := Image35.Top - s;
    Image32.Top := Image32.Top - s;
    Image34.Top := Image34.Top - s;
    Image33.Top := Image33.Top - s;
    Image37.Top := Image37.Top - s;
    Image36.Top := Image36.Top - s;
  end;


  if i = False then
  begin
    Image35.Top := Image35.Top + s;
    Image32.Top := Image32.Top + s;
    Image34.Top := Image34.Top + s;
    Image33.Top := Image33.Top + s;
    Image37.Top := Image37.Top + s;
    Image36.Top := Image36.Top + s;
  end;
end;
3:
begin
  if i = True then
  begin
    Image27.Top := Image27.Top - s;
    Image26.Top := Image26.Top - s;
    Image31.Top := Image31.Top - s;
    Image28.Top := Image28.Top - s;
    Image30.Top := Image30.Top - s;
    Image29.Top := Image29.Top - s;
  end;


  if i = False then
  begin
    Image27.Top := Image27.Top + s;
    Image26.Top := Image26.Top + s;
    Image31.Top := Image31.Top + s;
    Image28.Top := Image28.Top + s;
    Image30.Top := Image30.Top + s;
    Image29.Top := Image29.Top + s;
  end;
end;
4:
begin
  if i = True then
  begin
    Image23.Top := Image23.Top - s;
    Image21.Top := Image21.Top - s;
    Image22.Top := Image22.Top - s;
    Image20.Top := Image20.Top - s;
    Image24.Top := Image24.Top - s;
    Image25.Top := Image25.Top - s;
  end;


  if i = False then
  begin
    Image23.Top := Image23.Top + s;
    Image21.Top := Image21.Top + s;
    Image22.Top := Image22.Top + s;
    Image20.Top := Image20.Top + s;
    Image24.Top := Image24.Top + s;
    Image25.Top := Image25.Top + s;
  end;
end;
5:
begin
  if i = True then
  begin
    Image19.Top := Image19.Top - s;
    Image16.Top := Image16.Top - s;
    Image17.Top := Image17.Top - s;
    Image18.Top := Image18.Top - s;
    Image14.Top := Image14.Top - s;
    Image15.Top := Image15.Top - s;
  end;


  if i = False then
  begin
    Image19.Top := Image19.Top + s;
    Image16.Top := Image16.Top + s;
    Image17.Top := Image17.Top + s;
    Image18.Top := Image18.Top + s;
    Image14.Top := Image14.Top + s;
    Image15.Top := Image15.Top + s;
  end;
end;
end;


  if i = True then  Im[j].Top := Im[j].Top - s;
  if i = False then Im[j].Top := Im[j].Top + s;
end else
begin


  if Im[j].Top = 472 then    i := True;
  if Im[j].Top = 312 then    i := False;


case j of
6:
 begin
  if i = True then
  begin
    Image47.Top := Image47.Top - s;
    Image44.Top := Image44.Top - s;
    Image48.Top := Image48.Top - s;
    Image49.Top := Image49.Top - s;
    Image46.Top := Image46.Top - s;
    Image45.Top := Image45.Top - s;
  end;


  if i = False then
  begin
    Image47.Top := Image47.Top + s;
    Image44.Top := Image44.Top + s;
    Image48.Top := Image48.Top + s;
    Image49.Top := Image49.Top + s;
    Image46.Top := Image46.Top + s;
    Image45.Top := Image45.Top + s;
  end;
 end;
7:
 begin
  if i = True then
  begin
    Image72.Top := Image72.Top - s;
    Image64.Top := Image64.Top - s;
    Image70.Top := Image70.Top - s;
    Image71.Top := Image71.Top - s;
    Image65.Top := Image65.Top - s;
    Image66.Top := Image66.Top - s;
  end;


  if i = False then
  begin
    Image72.Top := Image72.Top + s;
    Image64.Top := Image64.Top + s;
    Image70.Top := Image70.Top + s;
    Image71.Top := Image71.Top + s;
    Image65.Top := Image65.Top + s;
    Image66.Top := Image66.Top + s;
  end;
 end;
8:
 begin
  if i = True then
  begin
    Image69.Top := Image69.Top - s;
    Image61.Top := Image61.Top - s;
    Image67.Top := Image67.Top - s;
    Image68.Top := Image68.Top - s;
    Image63.Top := Image63.Top - s;
    Image62.Top := Image62.Top - s;
  end;


  if i = False then
  begin
    Image69.Top := Image69.Top + s;
    Image61.Top := Image61.Top + s;
    Image67.Top := Image67.Top + s;
    Image68.Top := Image68.Top + s;
    Image63.Top := Image63.Top + s;
    Image62.Top := Image62.Top + s;
  end;
 end;
9:
 begin
  if i = True then
  begin
    Image73.Top := Image73.Top - s;
    Image56.Top := Image56.Top - s;
    Image58.Top := Image58.Top - s;
    Image57.Top := Image57.Top - s;
    Image60.Top := Image60.Top - s;
    Image59.Top := Image59.Top - s;
  end;


  if i = False then
  begin
    Image73.Top := Image73.Top + s;
    Image56.Top := Image56.Top + s;
    Image58.Top := Image58.Top + s;
    Image57.Top := Image57.Top + s;
    Image60.Top := Image60.Top + s;
    Image59.Top := Image59.Top + s;
  end;
 end;
10:
 begin
  if i = True then
  begin
    Image51.Top := Image51.Top - s;
    Image50.Top := Image50.Top - s;
    Image53.Top := Image53.Top - s;
    Image52.Top := Image52.Top - s;
    Image55.Top := Image55.Top - s;
    Image54.Top := Image54.Top - s;
  end;


  if i = False then
  begin
    Image51.Top := Image51.Top + s;
    Image50.Top := Image50.Top + s;
    Image53.Top := Image53.Top + s;
    Image52.Top := Image52.Top + s;
    Image55.Top := Image55.Top + s;
    Image54.Top := Image54.Top + s;
  end;
 end;
end;


  if i = True then  Im[j].Top := Im[j].Top - s;
  if i = False then Im[j].Top := Im[j].Top + s;
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var si, sj: byte;
begin
AssignFile(Stats,'Info.dat');
Reset(Stats);


for si := 1 to 11 do
  for sj := 1 to 4 do
    Readln(Stats, Stat[si, sj]);


  Label34.Caption := Stat[1, 1];
  Label44.Caption := Stat[1, 2];
  Label54.Caption := Stat[1, 3];
  Label64.Caption := Stat[1, 4];


  Label35.Caption := Stat[2, 1];
  Label45.Caption := Stat[2, 2];
  Label55.Caption := Stat[2, 3];
  Label65.Caption := Stat[2, 4];


  Label36.Caption := Stat[3, 1];
  Label46.Caption := Stat[3, 2];
  Label56.Caption := Stat[3, 3];
  Label66.Caption := Stat[3, 4];


  Label37.Caption := Stat[4, 1];
  Label47.Caption := Stat[4, 2];
  Label57.Caption := Stat[4, 3];
  Label67.Caption := Stat[4, 4];


  Label38.Caption := Stat[5, 1];
  Label48.Caption := Stat[5, 2];
  Label58.Caption := Stat[5, 3];
  Label68.Caption := Stat[5, 4];


  Label39.Caption := Stat[6, 1];
  Label49.Caption := Stat[6, 2];
  Label59.Caption := Stat[6, 3];
  Label69.Caption := Stat[6, 4];


  Label40.Caption := Stat[7, 1];
  Label50.Caption := Stat[7, 2];
  Label60.Caption := Stat[7, 3];
  Label70.Caption := Stat[7, 4];


  Label41.Caption := Stat[8, 1];
  Label51.Caption := Stat[8, 2];
  Label61.Caption := Stat[8, 3];
  Label71.Caption := Stat[8, 4];


  Label42.Caption := Stat[9, 1];
  Label52.Caption := Stat[9, 2];
  Label62.Caption := Stat[9, 3];
  Label72.Caption := Stat[9, 4];


  Label43.Caption := Stat[10, 1];
  Label53.Caption := Stat[10, 2];
  Label63.Caption := Stat[10, 3];
  Label73.Caption := Stat[10, 4];


Panel1.BringToFront;


  y := False;
  j := 1;
  d := 0;
  m := 0;


  im[1] := Image1;
  im[2] := Image2;
  im[3] := Image3;
  im[4] := Image4;
  im[5] := Image5;
  im[6] := Image6;
  im[7] := Image7;
  im[8] := Image8;
  im[9] := Image9;
  im[10] := Image10;


CloseFile(Stats);
end;


procedure TForm1.Timer2Timer(Sender: TObject);
begin
if y = True then
  if (Im[j].Top = 152) or (Im[j].Top = 472) then  j := random(10) + 1;
if CheckBox1.Checked = True then CheckBox1.Caption := 'Sound ON' else CheckBox1.Caption := 'Sound OFF';
end;


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


procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
if Panel1.Visible = True then Panel1.Visible := False
  else Panel1.Visible := True;


end;


procedure TForm1.Button5Click(Sender: TObject);
begin
Panel1.Visible := False;
Panel2.Visible := False;
Button4.Enabled := False;
TW := True;


if CheckBox1.Checked = True then  PlaySound('go.wav', 0, SND_ASYNC);


y := True;
g := StrToInt(Edit1.Text);
if RadioButton1.Checked = True then
begin
  s := 1;
  Label11.Caption := 'Speed: Very slow';
end;
if RadioButton2.Checked = True then
begin
  s := 2;
  Label11.Caption := 'Speed: Slow';
end;
if RadioButton3.Checked = True then
begin
  s := 4;
  Label11.Caption := 'Speed: Normal';
end;
if RadioButton4.Checked = True then
begin
  s := 8;
  Label11.Caption := 'Speed: Fast';
end;


Label4.Caption := 'Total hits: 0';
t := 0;
Label3.Caption := 'Head: 0';
d := 0;
Label5.Caption := 'Body: 0';
b := 0;
Label6.Caption := 'Left-hand: 0';
lh := 0;
Label7.Caption := 'Right-hand: 0';
rh := 0;
Label8.Caption := 'Left-leg: 0';
ll := 0;
Label9.Caption := 'Right-leg: 0';
rl := 0;
Label12.Caption := 'Total misses: 0';
m := 0;
Label13.Caption := 'Total time: ' + Edit1.Text;
end;


procedure TForm1.Timer3Timer(Sender: TObject);
var k, l: byte;
    buf: array [1..4] of string;
begin
if y = True then
begin
  Label1.Caption := 'Time left: ' + IntToStr(g);
  g:= g - 1;
end;


if (g = 0) and (TW = True) then
begin
if CheckBox1.Checked = True then PlaySound('terwin.wav', 0, SND_ASYNC);


  Label14.Caption := Label13.Caption;
  Label15.Caption := Label11.Caption;
  Label16.Caption := Label4.Caption;
  Label17.Caption := Label3.Caption;
  Label18.Caption := Label5.Caption;
  Label19.Caption := Label6.Caption;
  Label20.Caption := Label7.Caption;
  Label21.Caption := Label8.Caption;
  Label22.Caption := Label9.Caption;
  Label23.Caption := Label12.Caption;


  Stat[11, 1] := Label16.Caption;
  Stat[11, 2] := Label14.Caption;
  Stat[11, 3] := Label15.Caption;
  Stat[11, 4] := Label23.Caption;


TW := False;


  for l := 1 to 10  do
    for k := 1 to 10 do
      if Stat[k, 1] < Stat[k + 1, 1] then
        begin
          buf[1] := Stat[k, 1];
          buf[2] := Stat[k, 2];
          buf[3] := Stat[k, 3];
          buf[4] := Stat[k, 4];


          Stat[k, 1] := Stat[k + 1, 1];
          Stat[k, 2] := Stat[k + 1, 2];
          Stat[k, 3] := Stat[k + 1, 3];
          Stat[k, 4] := Stat[k + 1, 4];


          Stat[k + 1, 1] := buf[1];
          Stat[k + 1, 2] := buf[2];
          Stat[k + 1, 3] := buf[3];
          Stat[k + 1, 4] := buf[4];
        end;
  Label34.Caption := Stat[1, 1];
  Label44.Caption := Stat[1, 2];
  Label54.Caption := Stat[1, 3];
  Label64.Caption := Stat[1, 4];


  Label35.Caption := Stat[2, 1];
  Label45.Caption := Stat[2, 2];
  Label55.Caption := Stat[2, 3];
  Label65.Caption := Stat[2, 4];


  Label36.Caption := Stat[3, 1];
  Label46.Caption := Stat[3, 2];
  Label56.Caption := Stat[3, 3];
  Label66.Caption := Stat[3, 4];


  Label37.Caption := Stat[4, 1];
  Label47.Caption := Stat[4, 2];
  Label57.Caption := Stat[4, 3];
  Label67.Caption := Stat[4, 4];


  Label38.Caption := Stat[5, 1];
  Label48.Caption := Stat[5, 2];
  Label58.Caption := Stat[5, 3];
  Label68.Caption := Stat[5, 4];


  Label39.Caption := Stat[6, 1];
  Label49.Caption := Stat[6, 2];
  Label59.Caption := Stat[6, 3];
  Label69.Caption := Stat[6, 4];


  Label40.Caption := Stat[7, 1];
  Label50.Caption := Stat[7, 2];
  Label60.Caption := Stat[7, 3];
  Label70.Caption := Stat[7, 4];


  Label41.Caption := Stat[8, 1];
  Label51.Caption := Stat[8, 2];
  Label61.Caption := Stat[8, 3];
  Label71.Caption := Stat[8, 4];


  Label42.Caption := Stat[9, 1];
  Label52.Caption := Stat[9, 2];
  Label62.Caption := Stat[9, 3];
  Label72.Caption := Stat[9, 4];


  Label43.Caption := Stat[10, 1];
  Label53.Caption := Stat[10, 2];
  Label63.Caption := Stat[10, 3];
  Label73.Caption := Stat[10, 4];
end;


if g < 0 then
begin
  y := False;
  Button4.Enabled := True;
  Panel2.Visible := True;


  Image1.Top := 152;
  Image2.Top := 152;
  Image3.Top := 152;
  Image4.Top := 152;
  Image5.Top := 152;
  Image19.Top := 152;
  Image23.Top := 152;
  Image27.Top := 152;
  Image35.Top := 152;
  Image43.Top := 152;


  Image18.Top := 192;
  Image20.Top := 192;
  Image28.Top := 192;
  Image33.Top := 192;
  Image41.Top := 192;


  Image16.Top := 184;
  Image21.Top := 184;
  Image26.Top := 184;
  Image32.Top := 184;
  Image38.Top := 184;


  Image17.Top := 200;
  Image22.Top := 200;
  Image31.Top := 200;
  Image34.Top := 200;
  Image42.Top := 200;


  Image15.Top := 256;
  Image25.Top := 256;
  Image29.Top := 256;
  Image36.Top := 256;
  Image39.Top := 256;


  Image14.Top := 248;
  Image24.Top := 248;
  Image30.Top := 248;
  Image37.Top := 248;
  Image40.Top := 248;


  Image6.Top := 472;
  Image10.Top := 472;
  Image9.Top := 472;
  Image8.Top := 472;
  Image7.Top := 472;
  Image47.Top := 472;
  Image51.Top := 472;
  Image73.Top := 472;
  Image69.Top := 472;
  Image72.Top := 472;


  Image48.Top := 512;
  Image53.Top := 512;
  Image58.Top := 512;
  Image67.Top := 512;
  Image70.Top := 512;


  Image44.Top := 504;
  Image50.Top := 504;
  Image56.Top := 504;
  Image61.Top := 504;
  Image64.Top := 504;


  Image49.Top := 520;
  Image52.Top := 520;
  Image57.Top := 520;
  Image68.Top := 520;
  Image71.Top := 520;


  Image46.Top := 576;
  Image55.Top := 576;
  Image60.Top := 576;
  Image63.Top := 576;
  Image65.Top := 576;


  Image45.Top := 568;
  Image54.Top := 568;
  Image59.Top := 568;
  Image62.Top := 568;
  Image66.Top := 568;
end;


end;


procedure TForm1.Image43MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  d := d + 1;
  t:= t + 1;
  Label3.Caption := 'Head: ' + IntToStr(d);
  Label4.Caption := 'Total hits: ' + IntToStr(t);
  if CheckBox1.Checked = True then PlaySound('deagle-1.wav', 0, SND_ASYNC);
end;


procedure TForm1.Image38MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  b := b + 1;
  t:= t + 1;
  Label5.Caption := 'Body: ' + IntToStr(b);
  Label4.Caption := 'Total hits: ' + IntToStr(t);
  if CheckBox1.Checked = True then PlaySound('deagle-1.wav', 0, SND_ASYNC);
end;


procedure TForm1.Image42MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  lh := lh + 1;
  t:= t + 1;
  Label6.Caption := 'Left-hand: ' + IntToStr(lh);
  Label4.Caption := 'Total hits: ' + IntToStr(t);
  if CheckBox1.Checked = True then PlaySound('deagle-1.wav', 0, SND_ASYNC);
end;


procedure TForm1.Image41MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  rh := rh + 1;
  t:= t + 1;
  Label7.Caption := 'Right-hand: ' + IntToStr(rh);
  Label4.Caption := 'Total hits: ' + IntToStr(t);
  if CheckBox1.Checked = True then PlaySound('deagle-1.wav', 0, SND_ASYNC);
end;


procedure TForm1.Image40MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ll := ll + 1;
  t:= t + 1;
  Label8.Caption := 'Left-leg: ' + IntToStr(ll);
  Label4.Caption := 'Total hits: ' + IntToStr(t);
  if CheckBox1.Checked = True then PlaySound('deagle-1.wav', 0, SND_ASYNC);
end;


procedure TForm1.Image39MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  rl := rl + 1;
  t:= t + 1;
  Label9.Caption := 'Right-leg: ' + IntToStr(rl);
  Label4.Caption := 'Total hits: ' + IntToStr(t);
  if CheckBox1.Checked = True then PlaySound('deagle-1.wav', 0, SND_ASYNC);
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  y := False;
  Button4.Enabled := True;
  g := -1;


  if CheckBox1.Checked = True then PlaySound('ctwin.wav', 0, SND_ASYNC);
end;


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 m := m +1;
 Label12.Caption := 'Total misses: ' + IntToStr(m);
 if CheckBox1.Checked = True then PlaySound('deagle-1.wav', 0, SND_ASYNC);
end;


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
  '0'..'9',#8: ;
else Key := Chr(0);
end;
end;


procedure TForm1.Button6Click(Sender: TObject);
begin
  if Panel3.Visible = True then Panel3.Visible := False else Panel3.Visible := True;
end;


procedure TForm1.FormDestroy(Sender: TObject);
var si, sj: byte;
begin
AssignFile(Stats,'Info.dat');
Rewrite(Stats);


for si := 1 to 11 do
  for sj := 1 to 4 do
    Writeln(Stats, Stat[si, sj]);
CloseFile(Stats);
end;


end.


Кто увидит в этом коде хоть один намек на отправку какого-либо файла калим-либо способом злоумышленнику. "ПУСТЬ КИНЕТ В МЕНЯ КАМЕНЬ!" Это весь код программы, не совершенен, НО какой есть!
16 Январь 2013, 15:07  #4
Оффлайн
*
3920
Rating
GOLD8Respect40
Сообщений738DisRespect132
Counter-strike
Расположение:
Ukraine, Чернигов
Короче раньше он был и если вы куда то его запихнули то мне все равно я качать не буду да и сомневаюсь что кто то будет
16 Январь 2013, 16:30  #5
wtf !? kak tak
GOLD0Respect1
Сообщений29DisRespect5
Расположение:
Ukraine
Это твоё дело хочешь капай хочешь не качай!!Ты надоел если тебе чтото не нравется тогда не возникай!! :OMG: :OMG: :OMG: :OMG: :OMG: :OMG: :OMG:
16 Январь 2013, 18:10  #6
GOLD0Respect0
Сообщений6DisRespect1
Counter-Strike
Расположение:
Ukraine, Kherson
Короче раньше он был и если вы куда то его запихнули то мне все равно я качать не буду да и сомневаюсь что кто то будет


Тогда какого ххх...рена ты тут флудишь школьник недоделанный?!
16 Январь 2013, 23:12  #7
Оффлайн
*
1228
Rating
GOLD0Respect10
Сообщений269DisRespect7
Counter-Strike
Расположение:
Russian Federation, Владикавказ
Программка на delphi написана?
19 Январь 2013, 02:40  #8
GOLD0Respect1
Сообщений29DisRespect5
Расположение:
Ukraine
Да
19 Январь 2013, 17:00  #9
Оффлайн
*
1400
Rating
GOLD0Respect33
Сообщений302DisRespect56
Расположение:
Russian Federation
Программа хрень, мне не понравилась.
19 Январь 2013, 20:33  #10
GOLD0Respect1
Сообщений29DisRespect5
Расположение:
Ukraine
Попробуй сам создай, а потом только говори
20 Январь 2013, 19:32  #11
Оффлайн
*
1400
Rating
GOLD0Respect33
Сообщений302DisRespect56
Расположение:
Russian Federation
ой-ой-ой. Сперва добейся.
21 Январь 2013, 17:27  #12
Оффлайн
GOLD0Respect130
Сообщений961DisRespect89
RandomAlienwareCounter-strikeДева (Virgo)
Расположение:
Russian Federation
Программа хрень, мне не понравилась.
Аргументируй!
31 Январь 2013, 17:18  #13
GOLD0Respect1
Сообщений13DisRespect1
Counter-Strike
Расположение:
Ukraine
Программа хрень, мне не понравилась. [1]

07 Февраль 2013, 16:44  #14
PapaKILL
GOLD0Respect1
Сообщений29DisRespect5
Расположение:
Ukraine
Программа хрень, мне не понравилась. [1]
Что имено не понравелося?
07 Февраль 2013, 17:23  #15

Тренировка реакции(Terrorist WIN v1.1)

7476

0 Пользователей и 1 Гость просматривают эту тему.

Похожие Темы

Похожие Темы

 

Форум Natus Vincere

На форуме Na`Vi пользователи могут найти полезную информацию, касающуюся игровых дисциплин, в которые играют профессиональные игроки нашей команды. Почерпнуть для себя полезные советы и уроки из статей, написанных специально для того, чтобы каждый мог найти ответы на интересующие его вопросы. Также пользователи имеют возможность поделиться полезными сведениями и личным опытом, помочь друг другу и просто пообщаться на интересные темы.

Игровое сообщество «Natus Vincere» состоит из следующих разделов:

  • Natus Vincere
  • Counter-Strike: Global Offensive
  • Dota 2
  • Hearthstone
  • World of Tanks
  • Heroes of the Storm
  • Разное


Каждый из разделов киберфорума включает подразделы, в которых активно обсуждаются популярные игровые дисциплины, видеоматериалы и турнирные подробности, провайдеры и качество предоставляемого хостинга, игровые девайсы, технические проблемы, как с играми, так и с железом, а также другие важные для каждого геймера детали. Специальный раздел форума «Разное» содержит подразделы, в которых можно обсудить темы, не касающиеся игровых дисциплин, например, подраздел мувимейкинга поможет узнать тонкости создания красивых мувиков и хайлайтов, поделиться советами или найти для себя что-то новое.