Хелп ми плиз With Lines Опции

[Falcon 00*5]

Срочно нужны исходники игры Lines , это которая шарики и все такое.. Сам сделал процентов на 40 , но хотелось бы еще увидеть ваши варианты, может быть у кого то уже есть эта игра?

[XaMMaX]

Ну ээ... может я не правильно понимаю игру lines Там вроде в ряд должно совпасть и я говорю о проверки совпало или нет =) Наверное я чего-то путаю

[Michael_Rybak]

Проверить совпало или нет очень просто. Идешь по строкам-столцам-диагоналям да проверяешь. Примерно так:

//не проверял

const dx: array[0..2] of integer = (1, 1, 0);
const dy: array[0..2] of integer = (0, 1, 1);

var a: array[1 .. 10, 1 .. 10] of integer; //поле: 0 если пусто, цвет шарика если шарик

...

procedure FindLines()

  var will_delete[1 .. 10, 1.. 10] of boolean; //здесь будем отмечать все шарики, которые пропадут за ход
      i, j, dir, k, len, color: integer;

begin

  for i := 1 to 10 do
    for j := 1 to 10 do
      will_delete[i, j] := false;

  for i := 1 to 10 do
    for j := 1 to 10 do
      for dir := 0 to 2 do begin //направление: вправо, по диаголи или вниз

        len := 1;
        color := a[i, j];
        if color = 0 then
          continue;

        //идем по направлению, пока не вылезем за поле/не встретим другой цвет
        while (i + len * dy[dir] <= 10) and (j + len * dx[dir] <= 10) and
              (a[i + len * dy[dir], j + len * dx[dir]] = color) do
          Inc(len);

        if (len >= 5)
          for k := 0 to len - 1 do
            will_delete[i + k * dy[dir], j + k * dx[dir]] := true;

      end;


  for i := 1 to 10 do
    for j := 1 to 10 do
      if will_delete[i, j] then
        a[i, j] := 0;
        
end;

Сообщение отредактировано: Michael_Rybak - 18.11.2006 14:28