Реферат Створення мережевої гри

new TImage (this);

Kubiki2 [i] -> Parent = panPole2;

Kubiki2 [i] -> Transparent = true;

}

panParam-> Visible = true;

lbNomPartia-> Visible = true;

panSchetPoPartiam-> Visible = true;

gbPole1-> Top = 80;

gbTabl-> Top = 80;

gbPole2-> Top = 80;

this-> Height = 470;

lbKolKub-> Caption = IntToStr (KolKub);

lbMaxOch-> Caption = IntToStr (MaxOch);

lbMaxOch2-> Caption = IntToStr (MaxOch);

lbNomPartia-> Caption = "Партія № 1";

lbSchetPoPartiam-> Caption = "0: 0";

NomPartia = 1;

IsIgrayut = true;

}

// --------------------------------------------- ------------

void __ fastcall TMainForm :: ChangeInterfacePerehodHoda (bool HozhuYa)

{

if (HozhuYa)

{

btBrosit-> Enabled = true;

btFix-> Enabled = true;

btBrosit-> Color = clCream;

btFix-> Color = clCream;

shapeBrosil-> Caption-> Font-> Color = clWhite;

shapeFixed-> Caption-> Font-> Color = clWhite;

lbStat-> Caption = "Твій хід ...";

if (MyWholeOch> MaxOch-KolKub)

{

IsVisitApplicationBox = true;

Application-> MessageBoxA ("Єдино вірний варіант для Вас зараз - зафіксувати очки!", "Попередження", MB_OK + MB_ICONEXCLAMATION);

IsVisitApplicationBox = false;

}

}

else

{

btBrosit-> Enabled = false;

btFix-> Enabled = false;

shapeBrosil-> Brush-> Color = clSilver;

shapeFixed-> Brush-> Color = clSilver;

shapeBrosil-> Caption-> Font-> Color = clBlack;

shapeFixed-> Caption-> Font-> Color = clBlack;

lbStat-> Caption = "Хід суперника ...";

}

}

// --------------------------------------------- -----------------------------

void __ fastcall TMainForm :: InterfaceIgraemDalshe (void)

{

NomPartia + +;

MyWholeOch = 0;

HisWholeOch = 0;

MyCurOch = 0;

NomHoda = 0;

IsYaFixed = false;

IsHeFixed = false;

IsIgrayut = true;

В 

lbNomPartia-> Caption = "Партія №" + IntToStr (NomPartia);

lbSchetPoPartiam-> Caption = IntToStr (MyWinPoPartiam) + ": "+ IntToStr (HisWinPoPartiam);

listboxOchki-> Clear ();

listboxOchki-> Width = 218;

listboxOchki-> Left = 23;

lbMyWholeOch-> Caption = "0";

lbHisWholeOch-> Caption = "0";

lbMyWholeOch-> Font-> Color = clGreen;

lbHisWholeOch-> Font-> Color = clGreen;

btBrosit-> Color = clCream;

btFix-> Color = clCream;

shapeBrosil-> Brush-> Color = clSilver;

shapeFixed-> Brush-> Color = clSilver;

for (int i = 0; i

{

Kubiki1 [i] -> Visible = false;

Kubiki2 [i] -> Visible = false;

}

if (IsServer)

{

ChangeInterfacePerehodHoda (1);

}

else

{

ChangeInterfacePerehodHoda (0);

}

}

// ----------------------- Завершення гри -------------------- -------------------

void __ fastcall TMainForm :: menuStopClick (TObject * Sender)

{

IsVisitApplicationBox = true;

if (Application-> MessageBoxA ("Ви дійсно хочете завершити гру?", "Завершення гри", MB_YESNO) == IDYES)

{

for (int i = 0; i

{

delete Kubiki1 [i];

delete Kubiki2 [i];

}

В 

switch (choosenProt)

{

case 0:

IPXSend ("3;");

IPXCloseConnection ();

break;

case 1:

TCPIPSend ("3;");

TCPIPCloseConnection ();

break;

case 2:

NetBiosSend ("3;");

NetBiosCloseConnection ();

break;

case 3:

MailSlotSend ("3;");

MailSlotCloseConnection ();

break;

case 4:

PipeSend ("3;");

PipeCloseConnection ();

break;

}

IsIgrayut = false;

InterfaceBezIgri ();

}

IsVisitApplicationBox = false;

}

// --------------------------------------------- ------------------------------

void __ fastcall TMainForm :: menuQuitClick (TObject * Sender)

{

Close ();

}

// --------------------------------------------- ------------------------------

void __ fastcall TMainForm :: FormCloseQuery (TObject * Sender, bool & CanClose)

{

if (IsIgrayut)

{

menuStopClick (this);

if (IsIgrayut) CanClose = false;

}

}

// ------------------- службові функції перетворення типів ---------------------

char * __ fastcall TMainF...