Просмотреть всю тему "Soft Speed Test (покер)" »»
Re: Soft Speed Test   ID:25008   ответ на 24894 Ср, 14 марта 2007 15:45 [#]
Fabrica Форумы CasinoGames
Не хотелось бы огорчать г-на Коровина, но я тут исправил ошибки у себя в программе и вот результаты:

<img src="http://forum.cgm.ru/attachments/casino_soft/49718-soft_speed_test_-poker-pt.jpg" border="0" alt="Название: PT.jpg
Просмотров: 327

Размер: 167.4 Кб" style="margin: 2px" />

При полной колоде я отстаю от Grey, а при не полной - почему-то опережаю, не могу объяснить этот феномен.
<img src="http://forum.cgm.ru/attachments/casino_soft/49720-soft_speed_test_-poker-pt1.jpg" border="0" alt="Название: PT1.jpg
Просмотров: 327

Размер: 73.0 Кб" style="margin: 2px" />

Кстати, выделил процедуру подсчета (<,>,=,нет игры) в отдельный unit для Delphi, могу отправить интересующимся. Тока надо написать help нему с параметрами всех процедур, которые можно из него вызвать. В главной процедуре на входе 5-ка карт игрока, карта дилера, отсутствующие карты - на выходе 3 числа - >, <, =. Дальше в зависимости от параметров оплаты можно все посчитать. Начал делать для русского с двойными комбинациями, но пока не доделал.

Вложение: STest4.exe
(Размер: 601.50KB, Загружено 781 раз)