Курсовая работа: Создание сетевой игры

Bitmap1->LoadFromResourceName((unsigned int)HInstance,"KUB"+IntToStr(ZnachKub2)+strCat);

Kubiki1[1]->Picture->Bitmap=Bitmap1;

Kubiki1[1]->Left=XKub2;

Kubiki1[1]->Top=YKub2;

Kubiki1[1]->Visible=true;

MyCurOch=ZnachKub1+ZnachKub2;

MyWholeOch=MyWholeOch+MyCurOch;

strcpy(strSend,DannieToChar(1, MyCurOch, MyWholeOch, ZnachKub1, XKub1, YKub1, ZnachKub2, XKub2, YKub2));

}

else if (KolKub==3)

{

int ZnachKub1, XKub1, YKub1, ZnachKub2, XKub2, YKub2, ZnachKub3, XKub3, YKub3;

randomize();

ZnachKub1 = random(6)+1;

XKub1=random(126)+14;

YKub1=random(27)+14;

Bitmap1->LoadFromResourceName((unsigned int)HInstance,"KUB"+IntToStr(ZnachKub1)+strCat);

Kubiki1[0]->Picture->Bitmap=Bitmap1;

Kubiki1[0]->Left=XKub1;

Kubiki1[0]->Top=YKub1;

Kubiki1[0]->Visible=true;

ZnachKub2 = random(6)+1;

XKub2=random(126)+14;

YKub2=random(27)+63;

Bitmap1->LoadFromResourceName((unsigned int)HInstance,"KUB"+IntToStr(ZnachKub2)+strCat);

Kubiki1[1]->Picture->Bitmap=Bitmap1;

Kubiki1[1]->Left=XKub2;

Kubiki1[1]->Top=YKub2;

Kubiki1[1]->Visible=true;