детская игра -подбери парную куртинку? как?

[tatiana74]

подскажите как такое сделать? есть игрушки для маленьких-в дощечке вырезаны круги,квадраты итд., вот нужно подобрать подходящую фигуру.
То есть --по форме разбросаны объекты-нужно подобрать пару?

за основу взяла пятнашки-но не то

[Vago]

Простите, а можно более чёткое ТЗ? А то пока непонятно, что, всё-таки, нужно сделать. Полностью написать игру? С хорошей графикой?.. Или хотя бы создать библиотеку классов, которая будет ядром будущей игрушки?... Или ответить на какие-то технические вопросы?..

Да... И что такое "парные"? Квадратики - к квадратикам, кружочки к кружочкам? Потому как в живой природе - немного по другому...

[Alt]

Допустим на объекте TImage фигура...
Кликаем по кружку, в переменную заносится значение "кружок".
Если кликаем по квадратику - то в переменную записываем "квадратик".
Потом если опять кликаем, то проверяем, соответствует ли это записаной переменной.

[L_M]

Сообщение от Alt

Допустим на объекте TImage фигура...
Кликаем по кружку, в переменную заносится значение "кружок".
Если кликаем по квадратику - то в переменную записываем "квадратик".
Потом если опять кликаем, то проверяем, соответствует ли это записаной переменной.

А что непонятно? Мне кажется, что тут уже все описано, осталось лишь перевести это в код)) В чем проблема-то?

[Alt]

Сообщение от L_M

А что непонятно? Мне кажется, что тут уже все описано, осталось лишь перевести это в код)) В чем проблема-то?

Ну это ты у автора спроси а не у меня)
Если ты к автору обращался, то это как бы я ему подсказал, а он мог до этого не знать))

[tatiana74]

я в отличии от вас совсем далеко не профи (а мне очень надо)
мне б кусочек этого кода ,если не сложно

[Alt]

Сообщение от tatiana74

я в отличии от вас совсем далеко не профи (а мне очень надо)
мне б кусочек этого кода ,если не сложно

var
buf: byte;
//Процедура для кружочков
procedure Image1Click;
begin
if buf<>0
then begin
       if buf=1 then showmessage('Правильно!')
                  else showmessage('Ошибка!');
       buf:=0;                   
       end
else buf:=1;
end;
//Процедура для квадратиков
procedure Image2Click;
begin
if buf<>0
then begin
       if buf=2 then showmessage('Правильно!')
                  else showmessage('Ошибка!');
       buf:=0;                   
       end
else buf:=2;
end;

[L_M]

Нужен массив со значениями фигур, допустим обозначенных цифрами: 1 - первая фигура, 2 - вторая фигура и тд. Собственно вначале его нужно сгенерировать случайно для поля 4*4 и 4-х видов фигур(2 пары фигур):

var 
    map:array[1..4,1..4] of byte;

function Generate:boolean;
var
    i,x,y:integer;
begin
    result:=false;
    for i:=1 to 16 do begin   //надо распределить в 16 клеток фигуры
        repeat                        //генерирование случайных координат пустой(!) клетки
            x:=random(4)+1;
            y:=random(4)+1;
        until a[x,y]=0;
        map[x,y]:=trunc(i/4)+1;     //в случайную клетку записывается фигура, идущая по-порядку. 
                                         //То есть в первые 4 случайные клетки запишется число 1, далее в 4 - число 2 и тд.
    end;
end;

Далее нужно их нарисовать на поле каким-нибудь способом.

Если рисовать на канве, тогда нужно на onClick объекта написать

i:=trunc(x/rx);   //x - координата нажатия, rx - размер одной картинки
j:=trunc(y/ry);   //аналогично
if buf=0 then   //ранее не было нажато ни одной картинки
    buf:=a[i,j]
else
    if a[i,j]=buf then begin
        ShowMessage('TRUE');  //какой-то код, например пропадание картинок
         buf:=0;
    end else begin
        ShowMessage('FALSE');  //какой-то код
    end;

Теперь все понятно? Если нет, тогда нужно переходить уже к конкретным вопросам, а не

кусочек этого кода

Что непонятно?

[tatiana74]

Alt, спасибо - получилось!!!!!Работает!

L_M спасибо-но ваш вариант сложнее мне до такого далеко. Только если все подробно.