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

}

else

{

if (sum < x)

{

Memo1->Lines->Add ("Âû âûèãðàëè!! = (");

ns=ns+st;

Animate1->Visible=true;

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

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

v=v+1;

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

Memo1->Lines->Add ("Êîëè÷åñòâî ïîðàæåíèé: "+IntToStr (l));

}

}

if (sum > x)

{

Memo1->Lines->Add ("Âû ïðîèãðàëè!! =)");

ns=ns-st;

Animate1->Visible=true;

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

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

l=l+1;

Memo1->Lines->Add ("Êîëè÷åñòâî ïîðàæåíèé: "+IntToStr (l));

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

}

Edit1->Text=IntToStr (ns);

if (ns<=0) {

Form3->ShowModal ();