Реферат Розробка ігрової системи "Тетріс"

"> Form1.Canvas.TextOut (70,160, 'Кінець гри!');

Form1.Canvas.Font.Size: = 10;

Form1.Canvas.TextOut (120,210, 'Ахметов І.Р., 2012');

form1.timer2.Enabled: = False;

clock: = 0;

Form1.Caption: = 'Парні картинки';

end;

;

TForm1.Timer2Timer (Sender: TObject);

clock: = clock +1;

Form1.Caption: = 'Парні картинки [Гра йде! '+ Intt ostr (clock) + 'Секунд' + ']';

if clock> level then

begin

Timer2.Enabled: = False;

Form1.Caption: = 'Парні картинки';

ShowMessage ('Час вийшло!');

end;;

// вибір в меню команди Нова гра

procedure TForm1.N1Click (Sender: TObject);

Pole [open1.col, open1.row]: = Pole [open1.col, open1.row] + 100;

Pole [open2.col, open2.row]: = Pole [open2.col, open2.row] + 100;

count: = 0;

// отрісовать клітини

Kletka (open2.col, open2.row);

Kletka (open1.col, open1.row);

// зупинка таймера

Form1.Timer1.Enabled: = False;

Canvas.Rectangle (0,0, ClientWidth, ClientHeight);

NewGame;

clock: = 0;

;

TForm1.N4Click (Sender: TObject);. Show;;

TForm1.N6Click (Sender: TObject);: = 50;;

TForm1.N7Click (Sender: TObject);: = 30;;

TForm1.N8Click (Sender: TObject);: = 18;;

TForm1.N3Click (Sender: TObject);. Show;;

.