ign="justify">: TForm (Owner)
{();
// q.fl = 0;
// q.fl2 = 0;
-> Enabled = true; * f;
= fopen (В«1.txtВ», В«rВ»);
(В«font PERTIBD.ttfВ»); (В«font PERTILI_0.ttfВ»); -> Picture-> LoadFromFile (ExtractFilePath (Application-> ExeName) + В» ico gg.bmp В»); -> Picture-> LoadFromFile (ExtractFilePath (Application-> ExeName) +В» ico . bmp В»); -> Picture-> LoadFromFile (ExtractFilePath (Application-> ExeName) + В» ico background.bmpВ»); -> Picture-> LoadFromFile (ExtractFilePath (Application-> ExeName) + В» ico final.bmpВ»); -> Picture-> LoadFromFile (ExtractFilePath ( Application-> ExeName) + В«ico 7.bmpВ»); p-> Picture-> LoadFromFile (ExtractFilePath (Application-> ExeName) + В«ico pause.bmpВ»); p-> Width = 200; p-> Height = 100; p-> Left = 60; p-> Top = 100;
// if (f = fopen ((ExtractFilePath (Application-> ExeName) + В«1.txtВ»). c_str (), В«rВ»))
{for (int i = 0; i <10; i + +)
{(int j = 0; j <11; j + +)
{t = fgetc (f); (t)
{'0 ': ma [i] [j] = 0; break; '1': ma [i] [j] = 1; break; '2 ': ma [i] [ j] = 2; break; '3 ': ma [i] [j] = 3; break; '4': ma [i] [j] = 4; break; '5 ': ma [i] [j] = 5; break;
}
}
}
}// рандомноє заповнення першого лівіла (int i = 0; i <10; i + +)
for (int j = 0; j <11; j + +)
{if (i == 1) ((j> 2) && (j <7)) {ma [i] [j] = random (2);} (i = = 2) ((j> 0) && (j <7)) {ma [i] [j] = random (2);} (i == 5) ((j == 6) | | ( j == 7)) {ma [i] [j] = random (2);} (i == 6) (j == 6) {ma [i] [j] = random (2);}
}
(f);. test (Form1, & m);
}
// -
__fastcall TForm1: FormKeyDown (TObject * Sender, WORD & Key, Shift)
{(m.payse == 0) {-> Enabled = true; -> Enabled = true; -> Enabled = true;
}. check (CheckBox1, Form1, & ob); -> Visible = false; -> Visible = true;// картинка-фоон
Label11-> Font-> Name = В«Perpetua Titling MTВ»; -> Font-> Name = В«Perpetua Titling MTВ»; -> Font-> Name = В«Perpetua Titling MT В»; -> Font-> Name =В« Perpetua Titling MT В»; -> Font-> Name =В« Perpetua Titling MT В»; -> Font-> Name =В« Perpetua Titling MT В»; - > Font-> Name = В«Perpetua Titling MTВ»; -> Font-> Name = В«Perpetua Titling MTВ»; -> Font-> Name = В«Perpetua Titling MTВ»; s-> Font- > Name = В«Perpetua Titling
(m.mod) {(Key) {VK_LEFT: {if (m.payse == 0) {ob.left = true; ob.right = false; ob.up = false; ob . down = false; break;}} VK_RIGHT: {if (m.payse == 0) {ob.l...
