[Gandjubasische]

Если напишу глупость или не в тот раздел не судите строго, а просто раскажите как надо!!!
---------
Язык-Delphi7
Помогите написать игру "Парные картинки" смысл игры - поле 6х6 замостить туда картинки, скрыть, при открытии 2х одинаковых они исчезают....желательно использовать StringGrid.....Если кто может или знает как нписать или видел где исходники отпишитесь пожалуйста!!!

[lmikle]

Не использовать StringGrid вообще. Используй TPaintBox и на нем все отрисовывай. Нужный квадрат элементарно вычисляется по координатам клика в событии OnMouseUp. Ну и для хранения информации - соответсвующий массив.

[Gandjubasische]

Извините, но без StringGrid не как нельзя обойтись он должен присутствовать по условию задачи...

[Gandjubasische]

я вставил картинки но не могу сделать проверку на использование одной картинки более 2х раз...Помогите советом

[Страдалецъ]

Заведите для каждого имиджа 3 состояния, Видимый,Невидимый,Выбраный

Код:

1 2	Type  TCellImageState = (isVisible,isHiden,isMarked);

и при клике на картинку/ячейку грида проверяйте состояние текущего имиджа.
1. Если Скрытый то сменить состояние на Видимый
1.1. Если ему есть пара среди видимых, то сменить его и его пары состояние на Выбраный.
1.2. Если нет пары то сменить его и его пары состояние на Скрытый.
2. Ничего не делать с теми у которых состояние Выбраный.
Наверное так.

[Gandjubasische]

Спасибо за идею, но как мне сделать чтоб картинки из массива токо 2 раза брались? Если мона код.Массив обыкновенные integer овский

[lmikle]

Заполнять массив "по умному". Не пытаться генерить номер картинки, а генерить ее положение. Допустим у нас есть массив 6х6. Сначала заполняем его нулями, картинки при этом нумеруются с 1. Теперь берем и генерируем расположение картинки в массиве. Если место уже занято (в соотв. ячейке не 0), то просто сдвигаем по кругу. далее еще раз повторяем этот алгоритм для парной картинки. Далее переходим к картинке номер 2. Для примера - на одномерном массиве (на свой перепишешь сам) для массива из 4х элементов и 2х рактинок (т.е. всего картинок будет 4):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

var   A : Array [1..4] Of Integer;   procedure Generate;     procedure GenPlace(No : Integer);   var     N, I : Integer;   begin      N := Random(4) + 1; // от 1 до 4;      If A[N] = 0        Then A[N] := No  // место пустое        Else // место уже занято - начинаем сдвигать, пока не найдем пустое          Begin             I := N + 1;            While I <= 4 Do               Begin                 If A[i] = 0                   Then A[i] := No  // место пустое                   Else                     Begin                       Inc(I);                       If I > 4 Then I := 1;                     End;               End;          End;   end;   var   I : Integer; begin   // сначала очищаем массив   For I := 1 To 4 Do A[i] := 0;     // Теперь поехали генерить места картинок.   // Внешний цикл - картинки. У нас их 2.   For I := 1 To 2 Do     Begin        GenPlace(I); // первая из пары        GenPlace(I); // вторая     End; end;

Как-то так. Код можно оптимизировать, то так более понятен алгоритм.

[Страдалецъ]

Люблю я форум. Небыло печали, так ведь завлекла меня эта добрая игруля, вот теперь сижу кодю. Спрашивается, а оно мне надо было? Так ведь нет, теперь самому интересно, что из этого получится.

[Страдалецъ]

В общем кому интересно, вот что у меня получилось по данной теме.
http://depositfiles.com/files/l2hynod6o
Исходники здесь:http://depositfiles.com/files/fy3iqk19g но за паролем, ко мне в личку.

[Gandjubasische]

Страдалецъ конечно молодец, что так оригинально реализовал игру, токо исходники у меня не пошли, заругались на модули ss, а когда их ликвидировал, то прога отказалась робить. Подскажите народ где мона скачать ети модули...а то очень хочется посмотреть как ЕТО всё робит....

[nastyaolen]

Ребят, пожалуйста, кто нибудь....
Мне нужна игра парные картинки
У меня что-то не получается....
Я уже не знаю что делать=((((
Мне нужна игра парные картинки, чтобы пользователь сам вводил размер поля, чтобы игра шла на время и чтобы за откртытые картинки начислялись очки...
помогите пожалуйста....