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

тини) на формі

dst: = Bounds (x, y, HK-2, WK-2);

// вивести картинку в клітку

Form1.Canvas.CopyRect (dst, Pictures.Canvas, src);

// встановити колір кордону та цифри

Form1.Canvas.Pen.Color: = clBlack;

Form1.Canvas.Font.Color: = clBlack;

Form1.Canvas.Brush.Style: = bsClear;

end;

if (Pole [col, row]> 0) and (Pole [col, row] <100) then

// клітина закрита, малюємо тільки контур

begin

Form1.Canvas.Brush.Color: = clBtnFace;

Form1.Canvas.Pen.Color: = clBlack;

Form1.Canvas.Font.Color: = clBtnFace;

end;

// отрісовать клітку

Form1.Canvas.Rectangle (x, y, x + WK-2, y + HK-2);

// Form1.Canvas.TextOut (x +15, y +15, IntToStr (Pole [col, row]));

Form1.Canvas.Brush.Color: = clBtnFace;

;

// отрісовиваєт полеShowPole;

row, col: integer;

for row: = 1 to H do

for col: = 1 to W do

Kletka (row, col);;

// нова іграNewGame;

var

k: integer;// кількість парних картинок

r: integer;// випадкове число

buf: array [1 .. MAX_SIZE] of integer;

// в buf [i] записуємо, скільки чисел i

// записали в масив Pole

i, j: integer;// індекси масивів

begin

Randomize;

k: = Trunc (H * W/2);

for i: = 1 to k do

buf [i]: = 0;

// запишемо в масив Pole випадкові числа

// від 1 до 2

// кожне число має бути записано два рази

for i: = 1 to H do

for j: = 1 to W do

begin

repeat

r: = random (k) + 1;

until buf [r] <2;

Pole [i, j]: = r;// код картинки

inc (buf [r]);

end;

// тут поле згенеровано

n: = 0;

ShowPole;

;

// створення формиTForm1.FormClick (Sender: TObject);. timer2.Enabled: = True;// clock: = 0;;

TForm1.FormCreate (Sender: TObject);

va...