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

Animate1. FileName: = ('loose. avi');

Edit3. Text: =inttostr (ns);

p: =p+1;

end;

if (sum<x) then begin

ns: =ns+st;

Memo1. Lines. Add ('Вы выиграли ! =) ');

Animate1. Visible: =true;

Animate1. FileName: = ('win. avi');

Edit3. Text: =inttostr (ns);

v: =v+1;

end;

Memo1. Lines. add ('Всего бросков : ' + Inttostr (k));

Memo1. Lines. add ('Из них выигрышей /проигрышей : ' + Inttostr (v) + ' / '+Inttostr (p));

if ns<=0 then

begin

form3. Showmodal;

end;

end;

procedure TForm2. N2Click (Sender: TObject);

begin

Form2. Hide;

form1. Show;

Button2. Enabled: =false;

Button2. Enabled: =false;

Memo1. Clear;

Edit3. Text: = ('100');

Edit1. text: = ('32');

Edit2. text: = ('6');