Алгоритм игры Lines

Hello, World!
Некоторые еще помнят те времена, когда компьютеры встречались в редких ведомствах. Это были 286, 386, 486 компы с MS-DOS. Печатали тогда в Лексиконе, считали в SuperCalk 4, а из игр у всех стояли PackMan'ы и Lines, причем Lines пользовался гораздо большей популярностью, чем PackMan. С появлением Windows 3.1 Lines сменили пасьянсы.:stop:
Были попытки (мне они известны) сделать Windows Lines, однако ни одна версия не вернула себе ту популярность, что была у Dos Lines.
Я решил попробывать сделать Lines для Windows средствами OpenGL и пока у меня дела идут отлично. С графикой проблем нет, однако алгоритма, по которому Lines работает у меня нет.
Так вот: может у кто знает принцип этого алгоритма, или у кого завалялись исходники того, досовского Lines. (Они были по-моему на pascal).:)

С графикой проблем нет

может у кто знает принцип этого алгоритма, или у кого завалялись исходники того, досовского Lines.

---

Функция Нажатие_На_Кнопку_Мыши
{
  определяем, в какую клетку тыкнули мышкой;
  если(ни один шарик не выбран)
  {
      если(клетка не пустая)
              запоминаем, какой шарик выбрали;
  }
  иначе
  {
      если(клетка пустая)
      {
            перемещаем в нее шарик;
            проверяем, не выстроилась ли линия из 5 шариков;
            если(линия выстроилась)
                    убираем линию;
            иначе
            {
                  добавляем несколько шариков в пустые ячейки;
                  проверяем, не выстроилась ли линия из 5 шариков;
                  если(линия выстроилась)
                        убираем линию;
            }
      }
      иначе
            запоминаем координаты нового выбранного шарика;
  }
}

---

Сообщение от WaReZ_MEN Незнаю почему мои пост стерли но если тебе нужны исходники у меня есть на Delphi

Вот сдесь скачаи http://delphigfx.narod.ru/game.htm

у мну оно не работает у мну страница открывается , но у мну оно не качается мну растроился

:SOS: ВСЕМ, ВСЕМ, ВСЕМ!

Привет всем.
Может, кто знает, почему ниже приведенный цикл, исспользуемый мной для поиска собранных линий и их удаления выполняется до бесконечности! Вроде бы я все проверил: явных ерроров нет. Дебаггер при проходе этого цикла выдает следующее:

First-chance exception in 3D Lines 2007.exe (GDI32.DLL): 0xC0000005: Access Violation.

А вот и сам цикл:

---

//Проверяем наличае собранных линий в колличестве 5 и более
int vsp;
//По горизонтали вправо
for (i1=1;i1<14;i1++)
{
for (int i2=1;i2<14;i2++)
{
if (g[i1][i2]==g[i1+1][i2]==g[i1+2][i2]==g[i1+3][i2]==g[i1+4][i2]&&g[i1][i2]!=0&&g[i1+1][i2]!=0&&g[i1+2][i2]!=0&&g[i1+3][i2]!=0&&g[i1+4][i2]!=0)//Найдена линия из 5 шаров
{
vsp=g[i1][i2];//Получаем в переменную vsp тип шариков
//Присваиваим этим клеткам значение "0", то есть удаляем шары
g[i1][i2]=g[i1+1][i2]=g[i1+2][i2]=g[i1+3][i2]=g[i1+4][i2]=0;
//А может в линии шаров больше, чем пять? Проверим и это!
for (int p=5;p<14;p++)
{
if (g[i1+p][i2]==vsp);
{
g[i1+p][i2]=0;//Удаляем и этот шар.
}
if (g[i1+p][i2]!=vsp);
{
break;
}
}
}
}
}

---

:)