asPriem [8];
Kubiki2 [1] -> Visible = true;
Bitmap2-> LoadFromResourceName ((unsigned int) HInstance, "KUB" + IntToStr (MasPriem [9]) + strCat);
Kubiki2 [2] -> Picture-> Bitmap = Bitmap2;
Kubiki2 [2] -> Left = MasPriem [10];
Kubiki2 [2] -> Top = MasPriem [11];
Kubiki2 [2] -> Visible = true;
Bitmap2-> LoadFromResourceName ((unsigned int) HInstance, "KUB" + IntToStr (MasPriem [12]) + strCat);
Kubiki2 [3] -> Picture-> Bitmap = Bitmap2;
Kubiki2 [3] -> Left = MasPriem [13];
Kubiki2 [3] -> Top = MasPriem [14];
Kubiki2 [3] -> Visible = true;
}
HisWholeOch = MasPriem [2];
lbHisWholeOch-> Caption = IntToStr (MasPriem [2]);
delete Bitmap2;
}
// ----------- прийшли дані суперника --------------------------------------------
void __ fastcall TMainForm :: Priem (int * MasPriem)
{
if (MasPriem [0] == 0)// перший відповідь сервера клієнту
{
AnsiString mess;
mess = "Ваш суперник вибрав наступні параметри гри: nКолічество кубиків: "+ IntToStr (MasPriem [1]) +" nМаксімальное кількість очок: "+ IntToStr (MasPriem [2]);
IsVisitApplicationBox = true;
Application-> MessageBoxA (mess.c_str (), "Параметри ігри", MB_OK);
KolKub = MasPriem [1];
MaxOch = MasPriem [2];
InterfaceBeginNewGame ();
ChangeInterfacePerehodHoda (0);
IsVisitApplicationBox = false;
}
else if (MasPriem [0] == 1)// суперник кинув
{
shapeBrosil-> Brush-> Color = 0x0000CE00;
OtobrazhDannihSopernika (MasPriem);
if (! IsServer)
{
NomHoda + +;
}
enum TypeDannihForTabl DannieForTabl;
DannieForTabl = hebrosil;
ZapolnTabl (DannieForTabl);
if (IsYaFixed && HisWholeOch> MyWholeOch && HisWholeOch <= MaxOch)
{
ViProigrali ();
}
else if (HisWholeOch> MaxOch)
{
lbHisWholeOch-> Font-> Color = clRed;
ViViigrali ();
}
else if (IsYaFixed && HisWholeOch <= MyWholeOch)
{
ChangeInterfacePerehodHoda (0);
}
else
{
ChangeInterfacePerehodHoda (1);
}
}
else if (MasPriem [0] == 2)// суперник зафіксував
{
IsHeFixed = true;
lbHisWholeOch-> Font-> Color = clRed;
shapeFixed-> Brush-> Color = 0x000000CE;
if (! IsServer)
{
NomHoda + +;
}
enum TypeDannihForTabl DannieForTabl;
DannieForTabl = hefixed;
ZapolnTabl (DannieForTabl);
if (IsYaFixed && MyWholeOch == HisWholeOch)
{
Nichia ();
}
else if (MyWholeOch> HisWholeOch)
{
ViViigrali ();
}
else
{
ChangeInterfacePerehodHoda (1);
}
}
else if (MasPriem [0] == 3)// суперник розірвав з'єднання
{
IsVisitApplicationBox = true;
Application-> MessageBoxA ("Ваш суперник розірвав з'єднання. NІгра закінчена.", "Розрив з'єднання", MB_OK),
switch (choosenProt)
{
case 0:
IPXCloseConnection ();
break;
case 1:
TCPIPCloseConnection ();
break;
case 2:
NetBiosCloseConnection ();
break;
case 3:
MailSlotCloseConnection ();
break;
case 4:
PipeCloseConnection ();
break;
}
for (int i = 0; i
{
delete Kubiki1 [i];
delete Kubiki2 [i];
}
IsIgrayut = false;
InterfaceBezIgri ();
IsVi sitApplicationBox = false;
}
delete [] MasPriem;
}
// ---------------- процедура заповнення таблиці ----------------------------------
void __ fastcall TMainForm :: ZapolnTabl (enum TypeDannihForTabl DannieForTabl)
{
if (IsServer)
{
if (DannieForTabl == yabrosil)
{
listboxOchki-> Items-> Add (" "+ IntToStr (NomHoda) +"; "+ IntToStr (MyCurOch));
listboxOchki-> TopIndex = NomHoda-1;
if (NomHoda == 9)
{
listboxOchki-> Width = 236;
listboxOchki-> Left = 14;
}
}
else if (DannieForTabl == yafixed)
{
listboxOchki-> Items-> Add (" "+ IntToStr (NomHoda) +"; 0 ");
listboxOchki-> TopIndex = NomHoda-1;
if (NomHoda == 9)
{
listboxOchki-> Width = 236;
listboxOchki-> Left = 14;
}
}
else if (DannieForTabl == hebrosil)
{
listboxOchki-> SetItemPart (NomHoda-1, 2, " "+ IntToStr (MasPriem [1]));
listboxOchki-> TopIndex = NomHoda-1; ...
