|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.12.2007, 23:19 | #1 |
Пользователь
Регистрация: 05.12.2007
Сообщений: 13
|
игра про карты например (дурак)
надо сделать так чтоб я нажал на карту а противник ответил, причем
надо чтоб каждий раз отвечал по разному.подскажите pls????/////..,,, |
06.12.2007, 00:34 | #2 |
Инженер ИС
Старожил
Регистрация: 13.12.2006
Сообщений: 2,671
|
Алгоритм
Вот у нас 36 карт, пусть они пронумерованы по-порядку:
номера 0, 1, 2, 3, 4 - это 6, 7, 8, 9, 10 пик номера 5, 6, 7, 8 - это Валет, Дама, Король, Туз пик ...дальше по-порядку для всех мастей. К каждому номеру нужен рисуночек. Может это уже все сделано и ненужно разжевывать? В свойстве OnClick объекта (Image или сама форма) нужно написать следующее: procedure ........... Var rnd: Byte; Begin Randomize; // чтобы каждый раз было по-разному rnd:=Random(35); // присваиваем переменной случайное значение от 0 до 35 end; правила задаются условиями If .. then .. else
Руководитель проекта MMO 2D RPG: Настоящее имя Денис Стрижак (10.05.1981-6.02.2019) Мир духу его
Последний раз редактировалось Beermonza; 06.12.2007 в 00:42. |
06.12.2007, 15:53 | #3 |
Пользователь
Регистрация: 05.12.2007
Сообщений: 13
|
спасибо мне ето очень помогло
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание графиков(например декартов лист) | DUMOH | Компоненты Delphi | 10 | 21.12.2008 23:10 |
Как печатать в верхней подстроке в Delphi например 2 в квадрате | Moel | Общие вопросы Delphi | 3 | 19.06.2008 15:30 |
Карты для игр | L_M | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 3 | 16.05.2008 15:08 |
Дано четырехзначное число, заданное в символьном виде, например, '1954'. Напечатать его текстом, например | gred | Помощь студентам | 13 | 31.03.2008 22:24 |
как сделать в memo строку не 256 символов, а 1024 например. | Alar | Компоненты Delphi | 0 | 29.10.2006 18:46 |