Реферат: Игра Мозайка на Делфи 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

К-во Просмотров: 511
Бесплатно скачать Реферат: Игра Мозайка на Делфи Delphi