Нужно изменить код программы чтобы в пункте Новая игра был выбор размера поля

@_Pavelx_ · Регистрация: 12.05.2012

Студворк — интернет-сервис помощи студентам

Нужно изменить код программы чтобы в пункте Новая игра был выбор поле 4*4,5*5,6*6,7*7,8*8.

Размер указывается в описании констант...

И да , я нуб..

Delphi

unit main;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    procedure ButClicked(Sender: TObject);
    procedure CreatFishkas();
    procedure KillOldFihkas();
    function position(const x, y: integer): integer;
    procedure victopia();
    { Private declarations }
  public
    { Public declarations }
  end;
 
type Tfish = TButton; // указываем тип наших фишек, не нравится бутон - укажите другой
 
const
  W = 80; // ширина фишки
  D = 10; // растояние между фишками
  L = D + W; // растояние между "х" у фишек
  NXM = 4; // размер поля 4х4
  N = 1; M = 16; // размерность массива фишек
  POLET = 10; POLEL = 10; //начальные позиции поля фишек на форме
  prefix = 'Fishka';
 
var
  Form1: TForm1;
  btn: array[N..M] of Tfish;
  sorseAr: array[N..M] of boolean;
  zeroX, zeroY: integer;
  XYmatrix: array[1..M, 1..2] of integer;
 
implementation
 
{$R *.dfm}
 
//размер формы
 
procedure FormSize;
begin
  Form1.Width := (POLEL * 2) + (L * NXM);
  Form1.Height := (L * NXM) + POLET + 50;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i, ty, lx: integer;
begin
  randomize; i := 0;
   // заполняем массив коорденатами на которые будут случайным образом ставиться
   // фишки при начале новой игры
  ty := POLET; lx := POLEL;
  for i := N to M do begin
    XYmatrix[i, 1] := lx;
    XYmatrix[i, 2] := ty;
    lx := lx + L;
    if i mod NXM = 0 then begin
      ty := ty + L;
      lx := POLEL;
    end;
  end;
  FormSize();
end;
 
 
procedure TForm1.FormShow(Sender: TObject);
begin
  CreatFishkas();
end;
 
// клик по пункту меню - "новая игра"
 
procedure TForm1.N1Click(Sender: TObject);
begin
  KillOldFihkas();
  FormSize();
  CreatFishkas();
end;
 
{ сбрасывает все элементы массива в true,
 массив отвечает за неповторяющиеся порядковые номера фишек
 которые выбираются случайным образом
нужно при иницилизации новой игры}
 
function dump(): boolean;
var i: integer;
begin
  i := 0;
  for i := N to M do
    sorseAr[i] := true; ;
end;
 
// непосредственно алгоритм выборки неповторяющихся значений случайным образом
 
function choose(): integer;
var i: integer;
begin
  i := 0;
  result := random(M) + 1;
  while sorseAr[result] = false do
    result := random(M) + 1;
  sorseAr[result] := false;
end;
 
procedure TForm1.CreatFishkas;
// НОВАЯ ИГРА, создание игрового поля
var
  i, ty, lx, ch: integer;
begin
  randomize;
  dump();
 // But.Enabled:=false; BitBtn1.Enabled:=true; BitBtn2.Enabled:=true;
  ty := POLET; lx := POLEL;
  for i := N to M do begin
 
    btn[i] := Tfish.Create(Self);
    btn[i].Width := W;
    btn[i].Height := W;
    btn[i].Font.Size := 26;
    btn[i].Font.Style := [fsBold];
 
    ch := choose(); // получаем случайным образом число 1-16, числа не повторяются
 
    btn[i].Left := XYmatrix[ch, 1]; // получаем коорденату Х
    btn[i].Top := XYmatrix[ch, 2]; // получаем коорденату У
    btn[i].Tag := ch; // в Tag будем держать текущее положение фишки
    btn[i].Name := prefix + inttostr(i);
 
    if i <> M then begin
      btn[i].Caption := inttostr(i);
      btn[i].OnClick := ButClicked;
    end else begin // это пустая кнопка, без каптион и обработчика OnClick
      btn[i].Caption := '';
      zeroX := btn[i].Left; zeroY := btn[i].Top;
    end;
 
    btn[i].Parent := Self;
 
  end;
end;
 
 
// определяет позицию на которой стоит фишка в данный момент по ее коорденатам
 
function TForm1.position(const x, y: integer): integer;
var i: integer;
begin
  i := 0;
  result := -32;
  for i := N to M do begin
    if ((XYmatrix[i, 1] = x) and (XYmatrix[i, 2] = y)) then begin
      result := i; break;
    end;
  end;
end;
 
 
// перемешение фишки на новую позицию
 
procedure TForm1.ButClicked(Sender: TObject);
var X, Y, ps: integer;
begin
  X := Tfish(Sender).left; Y := Tfish(Sender).Top;
  if ((X = zeroX + L) and (Y = zeroY)) or
    ((X = zeroX - L) and (Y = zeroY)) or
    ((X = zeroX) and (Y = zeroY + L)) or
    ((X = zeroX) and (Y = zeroY - L)) then begin
 
    Tfish(Sender).Left := zeroX;
    Tfish(Sender).Top := zeroY;
 
    Tfish(FindComponent(prefix + inttostr(M))).left := X;
    Tfish(FindComponent(prefix + inttostr(M))).top := Y;
 
    ps := position(zeroX, zeroY);
    if ps <> -32 then
      Tfish(Sender).Tag := ps else
      ShowMessage('Ошибка в логике проги. КООРДЕНАТЫ');
 
    zeroX := X; zeroY := Y;
 
    victopia(); // проверка - ПОБЕДА или играем дальше
  end;
end;
 
// проверка - ПОБЕДА или играем дальше...
 
procedure TForm1.victopia;
var i: integer; b: boolean;
begin
  b := true; i := 0;
  for i := N to M - 1 do
  begin
    if strtoint(Tfish(FindComponent(prefix + inttostr(i))).Caption) <>
      Tfish(FindComponent(prefix + inttostr(i))).Tag then
    begin
      b := false; break;
    end;
  end;
  if b then ShowMessage('Вы побелили');
end;
 
 
procedure TForm1.KillOldFihkas;
// уничтожаем кнопки-фишки, нужно перед началом новой игры
var i: integer;
begin
  for i := N to M do
    FreeAndNil(btn[i]);
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
  Application.Terminate();
end;
 
end.

Добавлено через 3 часа 53 минуты
апчик(10)))

Добавлено через 3 часа 13 минут
поднимаю вверх

@_Pavelx_ · 07.06.2012, 23:51 **[ТС]**

Одиночка, Спасибо,очень помог!

Добавлено через 19 часов 53 минуты
Слушай, решил добавить еще в меню 3*3, все ок, его создает, но после выбора , например поля 5*5, потом не могу выбрать 3*3 и приходиться перезапускать прогу, в твоем варианте 4*4, работала отлично, что не так делаю?

Добавлено через 3 часа 43 минуты
Все, разобрался сам)

@_Pavelx_ · 08.06.2012, 15:01 **[ТС]**

1)Как добавить в игру таблицу результатов по времени, и чтобы лучший результат заменял предыдущий?
2)Нужно осуществить нормальное управление клавиатурой. Щас оно работает только так : по полю двигаться не можем сами, работает только следующая цифра и предыдущая, это не удобно.
3)Что посоветуете изменить для красоты в стиле?

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3x31: TMenuItem;
    N4x41: TMenuItem;
    N5x51: TMenuItem;
    N6x61: TMenuItem;
    N7x71: TMenuItem;
    N8x81: TMenuItem;
    N3: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
 
  
  private
    procedure ButClicked(Sender: TObject);
    procedure CreatFishkas();
    procedure KillOldFihkas();
    function position(const x, y: integer): integer;
    procedure victopia();
    { Private declarations }
  public
    { Public declarations }
  end;
 
type Tfish = TButton; // указываем тип наших фишек
 
const
  W = 80; // ширина фишки
  D = 10; // растояние между фишками
  L = D + W; // растояние между "х" у фишек
  N = 1; // размерность массива фишек
  POLET = 10; POLEL = 10; //начальные позиции поля фишек на форме
  prefix = 'Fishka';
 
var
  NXM : Integer = 3; // размер поля 3х3 (начальное)
  M : Integer = 9;  // размерность массива фишек
 
  Form1: TForm1;
  btn: array[N..64] of Tfish;
  sorseAr: array[N..64] of boolean;
  zeroX, zeroY: integer;
  XYmatrix: array[1..64, 1..2] of integer;
 
implementation
 
{$R *.dfm}
 
//размер формы
 
procedure FormSize;
begin
  Form1.Width := (POLEL * 2) + (L * NXM);
  Form1.Height := (L * NXM) + POLET + 50;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i, ty, lx: integer;
begin
  randomize;
   // заполняем массив координатами на которые будут случайным образом ставиться
   // фишки при начале новой игры
  ty := POLET; lx := POLEL;
  for i := N to M do
  begin
    XYmatrix[i, 1] := lx;
    XYmatrix[i, 2] := ty;
    lx := lx + L;
    if i mod NXM = 0 then
    begin
      ty := ty + L;
      lx := POLEL;
    end;
  end;
  FormSize;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  CreatFishkas;
end;
 
// клик по пункту меню - "новая игра"
procedure TForm1.N1Click(Sender: TObject);
begin
  KillOldFihkas;
 
  If (Sender is TmenuItem) Then
  NXM:=(Sender as TmenuItem).Tag Else NXM:=3;
  M:=NXM*NXM;
 
  Form1.OnCreate(Self);
//  FormSize;
  CreatFishkas;
end;
 
// сбрасывает все элементы массива в true,
// массив отвечает за неповторяющиеся порядковые номера фишек
// которые выбираются случайным образом
// нужно при иницилизации новой игры}
Procedure dump;
var i: integer;
begin
  for i := N to M do
  sorseAr[i] := true; ;
end;
 
// непосредственно алгоритм выборки неповторяющихся значений случайным образом
function choose: integer;
begin
  result := random(M) + 1;
  while sorseAr[result] = false do
  result := random(M) + 1;
  sorseAr[result] := false;
end;
 
// НОВАЯ ИГРА, создание игрового поля
procedure TForm1.CreatFishkas;
var
  i, ch: integer;
begin
  randomize;
  dump;
  for i := N to M do begin
    btn[i] := Tfish.Create(Self);
    btn[i].Width := W;
    btn[i].Height := W;
    btn[i].Font.Size := 26;
    btn[i].Font.Style := [fsBold];
 
    ch := choose; // получаем случайным образом число 1-16, числа не повторяются
 
    btn[i].Left := XYmatrix[ch, 1]; // получаем коорденату Х
    btn[i].Top := XYmatrix[ch, 2]; // получаем коорденату У
    btn[i].Tag := ch; // в Tag будем держать текущее положение фишки
    btn[i].Name := prefix + inttostr(i);
 
    if i <> M then
    begin
      btn[i].Caption := inttostr(i);
      btn[i].OnClick := ButClicked;
    end else
    begin // это пустая кнопка, без каптион и обработчика OnClick
      btn[i].Caption := '';
      zeroX := btn[i].Left; zeroY := btn[i].Top;
    end;
 
    btn[i].Parent := Self;
  end;
end;
 
// определяет позицию на которой стоит фишка в данный момент по ее коорденатам
function TForm1.position(const x, y: integer): integer;
var i: integer;
begin
  result := -32;
  for i := N to M do
  if ((XYmatrix[i, 1] = x) and (XYmatrix[i, 2] = y)) then
  begin result := i; break; end;
end;
 
// перемешение фишки на новую позицию
procedure TForm1.ButClicked(Sender: TObject);
var X, Y, ps: integer;
begin
  X := Tfish(Sender).left; Y := Tfish(Sender).Top;
  if ((X = zeroX + L) and (Y = zeroY)) or
  ((X = zeroX - L) and (Y = zeroY)) or
  ((X = zeroX) and (Y = zeroY + L)) or
  ((X = zeroX) and (Y = zeroY - L)) then
  begin
    Tfish(Sender).Left := zeroX;
    Tfish(Sender).Top := zeroY;
 
    Tfish(FindComponent(prefix + inttostr(M))).left := X;
    Tfish(FindComponent(prefix + inttostr(M))).top := Y;
 
    ps := position(zeroX, zeroY);
    if ps <> -32 then
    Tfish(Sender).Tag := ps else
    ShowMessage('Ошибка в логике проги. КООРДИНАТЫ');
 
    zeroX := X; zeroY := Y;
 
    victopia; // проверка - ПОБЕДА или играем дальше
  end;
end;
 
// проверка - ПОБЕДА или играем дальше...
procedure TForm1.victopia;
var i: integer; b: boolean;
begin
  b := true;
  for i := N to M - 1 do
  if strtoint(Tfish(FindComponent(prefix + inttostr(i))).Caption) <>
  Tfish(FindComponent(prefix + inttostr(i))).Tag then
  begin b := false; break; end;
 
  if b then ShowMessage('Вы побелили');
end;
 
procedure TForm1.KillOldFihkas;
// уничтожаем кнопки-фишки, нужно перед началом новой игры
var i: integer;
begin
  for i := N to M do
  FreeAndNil(btn[i]);
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
  Application.Terminate();
end;
 
 
end.

Одиночка · 08.06.2012, 23:09

Насчет клавиатуры, я не понял. Сейчас, по-моему, она не учавствует.
Для красоты в стиле попробуй просто поставить XPManifest - вкладка Win32. Может этого будет достаточно

@_Pavelx_ · 08.06.2012, 23:30 **[ТС]**

Сообщение от Одиночка

Насчет клавиатуры, я не понял. Сейчас, по-моему, она не учавствует.
Для красоты в стиле попробуй просто поставить XPManifest - вкладка Win32. Может этого будет достаточно

Клава работает, выбор на стрелках , но от 1 цифры, тоесть 1>2>3>4 и так далее , или в обратном порядке, пробел перемещает этот элемент. Но очень долго надо искать компонент который находиться рядом с пустой клеткой.

Я тоже не нашел где прописано на клавиатуру, но работает)

Одиночка · 09.06.2012, 03:00

Стрелкой указываешь откуда перемещаться на пустую клетку. Если что, разберёшься - поменяешь.

@_Pavelx_ · 11.06.2012, 16:11 **[ТС]**

Сообщение от Одиночка

Стрелкой указываешь откуда перемещаться на пустую клетку. Если что, разберёшься - поменяешь.

А что с рекордами? Щас потестил - не сохраняет

Одиночка · 11.06.2012, 16:16

Я не проверил, так как не смог пройти быстро, а время не хотелось тратить. Щас гляну.

@_Pavelx_ · 11.06.2012, 16:45 **[ТС]**

Сообщение от Одиночка

Я не проверил, так как не смог пройти быстро, а время не хотелось тратить. Щас гляну.

3*3 за 46 секунд собрал)

Одиночка · 11.06.2012, 16:47

Ну ты крут. Я не люблю думать. Мне больше по душе сапёр. Там разминирую на автомате.

@_Pavelx_ · 11.06.2012, 16:49 **[ТС]**

Сообщение от Одиночка

Ну ты крут. Я не люблю думать. Мне больше по душе сапёр. Там разминирую на автомате.

А вот сапер, увы, не для меня) Там долго рассчитывать надо)

Одиночка · 11.06.2012, 16:53

Найди в своём коде такую строку:

Delphi

1	If ArrRecords[NXM].Time>TimeGame Then

и замени её на :

Delphi

1	If ((ArrRecords[NXM].Time>TimeGame) Or (ArrRecords[NXM].Time=0)) Then

@_Pavelx_ · 12.06.2012, 13:19 **[ТС]**

Нужно доработать таблицу результатов:

Чтобы под каждый вариант поля было по 10 результатов

Рекорды:
3*3
4*4
5*5
6*6
7*7
8*8

И еще если можно , сказали, дизайн по красивее сделать...

Спасибо.

Одиночка · 12.06.2012, 19:53

Извини, смогу помочь не раньше, чем завтра вечером. Может кто другой возьмётся. Там уже всё достаточно просто.
А насчёт оформления. У меня вариантов нет. Я не дизайнер. Придумай сам как это должно выглядеть.

@_Pavelx_ · 13.06.2012, 13:28 **[ТС]**

Сообщение от Одиночка

Извини, смогу помочь не раньше, чем завтра вечером. Может кто другой возьмётся. Там уже всё достаточно просто.
А насчёт оформления. У меня вариантов нет. Я не дизайнер. Придумай сам как это должно выглядеть.

Хорошо, если сможешь, то помоги

Одиночка · 14.06.2012, 08:37

Вот. Только свой файл Records.dat сюда уже не пристёгивай - немного поменялся формат.

@_Pavelx_ · 14.06.2012, 18:21 **[ТС]**

Каким образом осуществить такое?

Нужно чтобы в пятнашках не было нерешаемых комбинаций

Типa такого:

1 2 3
4 5 6
8 7 _

@_Pavelx_ · 14.06.2012, 19:37 **[ТС]**

Вот дизайн:

Одиночка · 15.06.2012, 23:55

Я вот подумал. А если поставить ещё на форму кнопку: "перемешать". И по щелчке по ней прямо на глазах всё будет перемешиваться.
А ну ответь.

@_Pavelx_ · 16.06.2012, 00:07 **[ТС]**

Сообщение от Одиночка

Я вот подумал. А если поставить ещё на форму кнопку: "перемешать". И по щелчке по ней прямо на глазах всё будет перемешиваться.
А ну ответь.

А почему бы и нет) В нете видел что-то похожее.

Без кнопки тяжелей осуществить?

Одиночка · 16.06.2012, 00:16

С кнопкой. Я вот сейчас тестирую, - практически мгновенно это делается. Хотя я думал - это будет сильно заметно, поэтому изначально фишки выставляются в нормальном порядке, потом пользователь нажимает кнопку - и всё перемешивается. Т.е. это делается просто случайным выбором нажатия стрелки в одном из 4-х направлений. А если это в самом массиве делать - нужно вникать глубже в код. А мне бы этого не хотелось
Но если всё так быстро - можно и без кнопки.

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	08.06.2012, 23:30 [ТС]	24
	Сообщение от Одиночка Насчет клавиатуры, я не понял. Сейчас, по-моему, она не учавствует. Для красоты в стиле попробуй просто поставить XPManifest - вкладка Win32. Может этого будет достаточно Клава работает, выбор на стрелках , но от 1 цифры, тоесть 1>2>3>4 и так далее , или в обратном порядке, пробел перемещает этот элемент. Но очень долго надо искать компонент который находиться рядом с пустой клеткой. Я тоже не нашел где прописано на клавиатуру, но работает) 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	11.06.2012, 16:16	27
	Я не проверил, так как не смог пройти быстро, а время не хотелось тратить. Щас гляну. 1

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	11.06.2012, 16:47	29
	Ну ты крут. Я не люблю думать. Мне больше по душе сапёр. Там разминирую на автомате. 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	12.06.2012, 19:53	33
	Извини, смогу помочь не раньше, чем завтра вечером. Может кто другой возьмётся. Там уже всё достаточно просто. А насчёт оформления. У меня вариантов нет. Я не дизайнер. Придумай сам как это должно выглядеть. 1

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	13.06.2012, 13:28 [ТС]	34
	Сообщение от Одиночка Извини, смогу помочь не раньше, чем завтра вечером. Может кто другой возьмётся. Там уже всё достаточно просто. А насчёт оформления. У меня вариантов нет. Я не дизайнер. Придумай сам как это должно выглядеть. Хорошо, если сможешь, то помоги 0

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	07.06.2012, 23:51 [ТС]	21
	Одиночка, Спасибо,очень помог! Добавлено через 19 часов 53 минуты Слушай, решил добавить еще в меню 33, все ок, его создает, но после выбора , например поля 55, потом не могу выбрать 33 и приходиться перезапускать прогу, в твоем варианте 44, работала отлично, что не так делаю? Добавлено через 3 часа 43 минуты Все, разобрался сам) 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	08.06.2012, 23:09	23
	Насчет клавиатуры, я не понял. Сейчас, по-моему, она не учавствует. Для красоты в стиле попробуй просто поставить XPManifest - вкладка Win32. Может этого будет достаточно 1

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	11.06.2012, 16:11 [ТС]	26
	Сообщение от Одиночка Стрелкой указываешь откуда перемещаться на пустую клетку. Если что, разберёшься - поменяешь. А что с рекордами? Щас потестил - не сохраняет 0

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	11.06.2012, 16:45 [ТС]	28
	Сообщение от Одиночка Я не проверил, так как не смог пройти быстро, а время не хотелось тратить. Щас гляну. 3*3 за 46 секунд собрал) 0

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	11.06.2012, 16:49 [ТС]	30
	Сообщение от Одиночка Ну ты крут. Я не люблю думать. Мне больше по душе сапёр. Там разминирую на автомате. А вот сапер, увы, не для меня) Там долго рассчитывать надо) 0

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	12.06.2012, 13:19 [ТС]	32
	Нужно доработать таблицу результатов: Чтобы под каждый вариант поля было по 10 результатов Рекорды: 33 44 55 66 77 88 И еще если можно , сказали, дизайн по красивее сделать... Спасибо. 0

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	14.06.2012, 18:21 [ТС]	36
	Каким образом осуществить такое? Нужно чтобы в пятнашках не было нерешаемых комбинаций Типa такого: 1 2 3 4 5 6 8 7 _ 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	15.06.2012, 23:55	38
	Я вот подумал. А если поставить ещё на форму кнопку: "перемешать". И по щелчке по ней прямо на глазах всё будет перемешиваться. А ну ответь. 1

@_Pavelx_ 2 / 2 / 0 Регистрация: 12.05.2012 Сообщений: 26
	16.06.2012, 00:07 [ТС]	39
	Сообщение от Одиночка Я вот подумал. А если поставить ещё на форму кнопку: "перемешать". И по щелчке по ней прямо на глазах всё будет перемешиваться. А ну ответь. А почему бы и нет) В нете видел что-то похожее. Без кнопки тяжелей осуществить? 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	16.06.2012, 00:16	40
	С кнопкой. Я вот сейчас тестирую, - практически мгновенно это делается. Хотя я думал - это будет сильно заметно, поэтому изначально фишки выставляются в нормальном порядке, потом пользователь нажимает кнопку - и всё перемешивается. Т.е. это делается просто случайным выбором нажатия стрелки в одном из 4-х направлений. А если это в самом массиве делать - нужно вникать глубже в код. А мне бы этого не хотелось Но если всё так быстро - можно и без кнопки. 1