Гра "Перший мільйон", Детальна інформація

}

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

void nepravilno (int panel)

{

AnsiString sound="Gong.wav";

TColor color=clRed;

switch (panel)

{

case 1:Form1->Panel1->Color=color;break;

case 2:Form1->Panel2->Color=color;break;

case 3:Form1->Panel3->Color=color;break;

case 4:Form1->Panel4->Color=color;break;

}

play(sound);

EndGame->ShowModal();

save_rating ();

}

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

void verify (int p)

{

if (p==pr_otv)

{

int s=1;

TColor color=clGreen;

if (position==15)

{

summa=1000000;

save_rating();

score (s);

fmFinal->Show();