Реферат: Игра Мозайка на Делфи Delphi
end;
end;
end;
// ход в соседнюю пустую клетку
procedure Go(clickx,clicky:integer);
var
r:integer;
begin
if not ((abs(clickx-zx)=1) and (clicky-zy=0) or // проверка на возможность хода
(abs(clicky-zy)=1) and (clickx-zx=0))
then exit;
pole[zy,zx]:=Pole[clicky,clickx]; // осуществим переход из [x,y] в [zx,zy]
pole[clicky,clickx]:=0;
zx:=clickx;
zy:=clicky;
Form1.Load; // перерисовка поля
if GameOver then
begin
pole[4,4]:=16;
Form1.Load;
r:=MessageDlg('Вы выиграли!'+ #13+'Сыграем ещё?',mtInformation,[mbYes,mbNo],0);
if r=mrNo then Form1.Close;
Form1.New;
end;
end;
// клик по клетке
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X,Y:Integer);
var