Курсовая работа: Программа игры Кости

switch (a)

{

case 1: Image2->Picture->LoadFromFile ("1. jpg"); break;

case 2: Image2->Picture->LoadFromFile ("2. jpg"); break;

case 3: Image2->Picture->LoadFromFile ("3. jpg"); break;

case 4: Image2->Picture->LoadFromFile ("4. jpg"); break;

case 5: Image2->Picture->LoadFromFile ("5. jpg"); break;

case 6: Image2->Picture->LoadFromFile ("6. jpg"); break;

}

switch (b)

{

case 1: Image3->Picture->LoadFromFile ("1. jpg"); break;

case 2: Image3->Picture->LoadFromFile ("2. jpg"); break;

case 3: Image3->Picture->LoadFromFile ("3. jpg"); break;

case 4: Image3->Picture->LoadFromFile ("4. jpg"); break;

case 5: Image3->Picture->LoadFromFile ("5. jpg"); break;

case 6: Image3->Picture->LoadFromFile ("6. jpg"); break;

}

sum=a+b;

Memo1->Lines->Add ("Ñóììà êóáèêîâ = " + IntToStr (sum));

if (sum == x)

{

Memo1->Lines->Add ("Âû âûèãðàëè! Âàø âûéãðûøü óâåëè÷èí = (");

ns=ns+st*4;

Animate1->Visible=true;

Animate1->FileName= ("win. avi");

Animate1->Play (1,60,10000);

v=v+1;

Memo1->Lines->Add ("Êîëè÷åñòâî ïîáåä: "+IntToStr (v));