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

[Falcon 00*5]

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

[XaMMaX]

Не чень мне понятно:

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;

И чего за dir ? Для чего он? Оргаментируй там каждую строчку плиз, а то я тупой очень(само критика рулит) =) И ты уверен что твой способ не ресурсо ёмкий? мои рамки сильно ограничены =(

[Michael_Rybak]

И чего за dir ? Для чего он?

Алгоритм такой. Берем каждую непустую клетку, и от нее пытаемся идти до упора вправо, пока не встретим шарик другого цвета, или не упремся в границу поля. Потом проверяем, что длина найденного ряда шариков одинакового цвета больше или равна пяти, и если это так - удаляем (точнее не удаляем, а запоминаем, что их надо в конце удалить, т.к. ряды могут пересекаться).

Потом делаем то же самое, но идем не вправо, а по диагонали. А потом - вниз. Переменная dir задает направление движения, определяемое смещением dy[dir], dx[dir]. Когда dir = 0, получается dx = 1, dy = 0, т.е. движемся вправо. И т.д.

И ты уверен что твой способ не ресурсо ёмкий? мои рамки сильно ограничены =(

Этот способ не самый оптимальный, но летать будет даже на Поиске.