Помогите сделать тетрис!

[sid]

Хочу сделать тетрис. Ну создам я фигурки, ну заставлю я их двигаться... Как сделать проверку на эту линейность, чтобы прога понимала, когда надо удалять верхний слой ???

[AVer]

Создай поле - двоичный двухмерный массив и проверяй построчно.

[Flash_]

Представь фигурки не как сложные фигуры, а условно разбей их на квадраты. А далее, AVer верно подсказал - создаешь двумерный массив, в котором каждому элементу соответствует либо "1" - квадрат фигуры, либо "0" свободное игровое пространство. =) Ну а затем примерно так:

procedure LineChecking;
var i,k,z: integer;
     A: array [1..n,1..m] of integer;
{n - количество строк, m - количество столбцов}
     C: array [1..n] of integer;
begin
for i:=1 to n do
c[i] := 0;
 
for k := 1 to n do
begin
for i := 1 to m do
if a[i,k] = 1 then c[i] := c[i]+1;
if c[i] = m then begin
                     for z:=1 to m do
                     a [i,z] := 0; 
{здесь наверно вся часть массива "находящаяся выше" должна спускаться вниз - не буду писать как это делается - думаю догадаешься}
                     Application.ProcessMessages;
                     end;
 
end;
end.

[-=DeS=-]

Держи тетрис...Разберись в коде...

[sid]

Всем спасибо! Как я сразу не догадался создать массив!???

[игорь Вдовика]

С помощью кокой прграмы вы создайоте игры?

[какtus]

Сообщение от игорь Вдовика

С помощью кокой прграмы вы создайоте игры?

В данном случае при помощи Delphi.

[игорь Вдовика]

Сообщение от какtus

В данном случае при помощи Delphi.

Спосибо!Теперь буду знать!...

[phomm]

Сообщение от -=DeS=-

Держи тетрис...Разберись в коде...

У меня этот код на дельфи7 сразу не запустился, поглядел, увидел что надо заменить

const
  FigureWorkSheet: TFigureWorksheet=

на

var
  FigureWorkSheet: TFigureWorksheet=

[игорь Вдовика]

Можете кто нибуть расказать как пользоватса етой програмй или дать видео-урок?