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

[Falcon 00*5]

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

[Falcon 00*5]

Люди! Помогите с волновым алгоритмом! ПЛZ!Уже второй день мучаюсь ! есть массив 9x9 есть точка х1у1 с которой начинать отсчет и точка ху до которой надо дойти.... как мне его сделать ??? функцией если можно.... мои наработки вот :

function volna(a:mas; x1,y1,x,y:integer):integer;
var b:mas; i,j:integer; ni,nk:integer; rez:integer;
begin
ni:=0;nk:=81;rez:=0;
for i:=1 to 9 do
 for j:=1 to 9 do begin
  if a[i,j]=0 then b[i,j]:=254;
  if a[i,j]>0 then b[i,j]:=255;
  if (i=x1) and (j=y1) then b[i,j]:=253;
  if (i=x) and (j=y) then b[i,j]:=0;
 end;

 repeat
 for i:=1 to 9 do begin
  for j:=1 to 9 do begin
  if b[i,j]=ni then begin
   if b[i+1,j]=254 then b[i+1,j]:=ni+1;
   if b[i+1,j]=253 then begin volna:=1;exit;end;
   if b[i-1,j]=254 then b[i-1,j]:=ni+1;
   if b[i-1,j]=253 then begin volna:=1;exit;end;
   if b[i,j+1]=254 then b[i,j+1]:=ni+1;
   if b[i,j+1]=253 then begin volna:=1;exit;end;
   if b[i,j-1]=254 then b[i,j-1]:=ni+1;
   if b[i,j-1]=253 then begin volna:=1;exit;end;
  end;
 end;inc(ni);
 end;
 until ni<=nk;
end; 

Но только почему то не работает .... результат работы функции не 1 или 0 а 3 или даж 254 ... не понимаю(((