Покерок для 7.7

Сообщество - Игры

Тестим игру в Оазис покер... v.1.1

"Оазис-покер" - одна из самых популярных разновидностей покера в казино.
Покер возник в Европе полтысячи лет назад, так что за это время появилось множество вариантов правил.
Во всех разновидностях игры в покер, главным остаётся одно - получить самую удачную комбинацию карт.

Данная программа - реализация такой игры.
Пока раздача на один бокс.
Возможна замена 1,2 карт.
Начальный счет - 100$
Всё управление в игре с помощью мыши, скорость в игре - клавишами 1,2,3, переключение языка - пробел.
В любой момент можете закрыть игру, при открытии начнёте играть с этого места.
Для начала, попробуйте выиграть >500$ или всё проиграть.

ЗЫ: В обновленной версии сохраняется последняя игра при закрытии.

Скачать файлы

Наименование Файл Версия Размер
-
.1222257660 560,19Kb
01.11.12
578
.1222257660 560,19Kb 578 Скачать бесплатно

См. также

Комментарии
1. miandrew (miandrew) 24.09.08 16:04 Сейчас в теме
2. Андрей Скляров (coder1cv8) 3308 24.09.08 16:42 Сейчас в теме
Ну ёлки! Почему под семерку-то?! Где ж её взять в наше-то время?... )
3. Ёпрст (Ёпрст) 1021 24.09.08 16:43 Сейчас в теме
Под снеговика не интересно..
4. Олег Пономаренко (O-Planet) 6711 24.09.08 16:46 Сейчас в теме
Только под семерку! Снеговиков - в ацтойник...
5. Андрей Зайцев (zaic) 112 24.09.08 17:38 Сейчас в теме
Любители снеговика обзавидуйтесь..)
Только карта как всегда не прет и начальные 100 у.е. быстро кончаются...
Вот это вещь...
6. Саша (Хряк) 142 24.09.08 18:12 Сейчас в теме
7. Оракул Айметдинов (jhfrek) 164 24.09.08 20:52 Сейчас в теме
Круто!!! Молодец! Ты гений!
Плюс однозначно!
8. Armando Armando (Armando) 1382 24.09.08 23:30 Сейчас в теме
Ух ты!))) Мне, как бывшему дилеру, вдвойне приятно шпилить в оазис, да еще и в 1ске))
9. Доржи Цыденов (support) 4533 25.09.08 00:00 Сейчас в теме
Впечатляет, что можно сделать в 1С 7.7, просто мастер работы с формой!
10. Lomok (lomok) 25.09.08 08:02 Сейчас в теме
11. Ёпрст (Ёпрст) 1021 25.09.08 09:09 Сейчас в теме
Найдена куча ошибок, скоро кину новую версию.
12. NoMAx (NoMax) 232 25.09.08 10:03 Сейчас в теме
Ага еще надо и СтрипПокерок :)
13. Ёпрст (Ёпрст) 1021 25.09.08 10:54 Сейчас в теме
Исправил ошибочки, тестим дальше
По просьбе Чучундера, добавил русские названия игр.
14. rw.spb (Cifer) 25.09.08 11:39 Сейчас в теме
Такого в 1С я еще не видел!
15. Евгений Мартыненков (JohnyDeath) 290 25.09.08 11:39 Сейчас в теме
Афигеть! Вот это с формой действительно поработали! Отлично!
16. shurik (Shurik) 25.09.08 15:02 Сейчас в теме
17. Петр Власюк (Tempus) 94 25.09.08 15:15 Сейчас в теме
Просто супер!!!!

ЗЫ вот до чего доводит административный запрет на установку игр :-D
18. Михаил (ILM) 232 25.09.08 17:24 Сейчас в теме
19. Аркадий Кучер (Abadonna) 3687 25.09.08 17:27 Сейчас в теме
(18) А найти просто прогу "Покер" для винды - слабо?
Объясните дураку: зачем игры ВНУТРИ 1С?
20. Ёпрст (Ёпрст) 1021 25.09.08 17:39 Сейчас в теме
(18) Неа...
(19) Не в игре дело, а в штатной возможности ловли клика мыши ... может, кому и сгодится.
А это так, баловство от безделья, пока конец квартала не подойдёт.
21. Аркадий Кучер (Abadonna) 3687 25.09.08 17:45 Сейчас в теме
(20) >а в штатной возможности ловли клика мыши
Тады плюс :)))
23. Ёпрст (Ёпрст) 1021 25.09.08 17:47 Сейчас в теме
(21) Один минус... В не модальной форме нужно как-то "избавится" от флажка...Пока не придумал как :(
Не растягивается он за пределы формы...
64. david (dav405) 104 15.05.09 10:51 Сейчас в теме
(20) От безделья, говоришь ...
А что тогда у эттих рюских получаться, если они НЕ безделничать?
Их бин в полный аут ... +
22. Ёпрст (Ёпрст) 1021 25.09.08 17:45 Сейчас в теме
Да и в общем, лепить в учетной программе вещи, не предназначенные для этого, тоже, иногда полезно...:)
Xonix,шахматы,питоны,тетрисы,15-ки, даже герои на 1с написаны... У меня коллекция >50 игр где то валяется.
Вот и "пополнил" ряды ..
52. Альтаир (Altair777) 639 02.10.08 12:27 Сейчас в теме
(22) > даже герои на 1с написаны
А какие Герои? Меча и Магии? :-)
53. Ёпрст (Ёпрст) 1021 02.10.08 12:49 Сейчас в теме
(52) Да. Могу кинуть, если надо.
24. Ёпрст (Ёпрст) 1021 25.09.08 17:52 Сейчас в теме
Хотя нет, если правильно кинуть за многострочную часть - улетает за пределы формы. Так что, можно лепить свои кнопки, к примеру.
25. Оракул Айметдинов (jhfrek) 164 25.09.08 21:49 Сейчас в теме
Это действительно круто. Когда пишут игры именно на 1С. На языке которая в основном рассчитана только для бухгалтерского учёта.
26. AlexanderSM AlexanderSM (AlexanderSM) 101 26.09.08 10:59 Сейчас в теме
Часа три резался, впечатляет!!!
27. Михаил Семенов (Shaman100M) 1180 26.09.08 12:00 Сейчас в теме
Просто нет слов. Супер!!! Так просто ловить клик мышки... флажком! Ну, я пробовал кнопкой, но она вылезает наверх все равно. Абалдеть!
29. Ёпрст (Ёпрст) 1021 26.09.08 12:18 Сейчас в теме
(27) Как бы его еще так в компаунде самом поправить, чтоб его вообще невидно было :)
Пока сделал только так, чтоб текстовое поле вообще не удаляется в пофигураторе с формы. :))
Попробуйте удалить копирайт "Ёпрст" ...
30. Аркадий Кучер (Abadonna) 3687 26.09.08 13:32 Сейчас в теме
(29)>Попробуйте удалить копирайт "Ёпрст" ...
Удалил ;) Но не в пофигураторе
31. Ёпрст (Ёпрст) 1021 26.09.08 13:35 Сейчас в теме
(30) Ну, не в пофигураторе я и сам горазд...:)

Ну вот можно же делать "плавающие окошки" в 7-ке, на синьёре есть примерчик, правда вот где применить, пока неизвестно...
Хоткеи навешиваются и т.д...
Вот и хотелось бы, поправить мальца компаунд, чтоб, флажок, например, вообще был невидимым, или к примеру, сделать круглую, или хотя бы трапециидальную кнопку..
32. Евгений Мартыненков (JohnyDeath) 290 26.09.08 13:53 Сейчас в теме
(31) Ну вот можно же делать "плавающие окошки" в 7-ке, на синьёре есть примерчик, правда вот где применить, пока неизвестно...
А можешь ткнуть носом в этот примерчик? А применение мы найдём! ;) (например в журнале документов открывается плавающее окошко с графом подчиненности текущего дока. Юзер клацает на один док в этом графе - в журнале он становится текущим, клацает на другой - теперь "другой" текущий)
33. Евгений Мартыненков (JohnyDeath) 290 26.09.08 13:54 Сейчас в теме
+(32) АЛьФ в FormEx-е делал плавающие окна, но, к сожелению, они крайне нестабильны.
34. Ёпрст (Ёпрст) 1021 26.09.08 13:55 Сейчас в теме
35. Евгений Мартыненков (JohnyDeath) 290 26.09.08 14:11 Сейчас в теме
(34) прикольно... правда не более того. Оно ж плавающее только для текущего окна. А настоящее плавающее - оно ж над всеми окнами текущего приложения плавает.
А как сделано? Я что-то не понял фишки.. (
36. Ёпрст (Ёпрст) 1021 26.09.08 14:14 Сейчас в теме
(35) В компаунде поправлен параметр один, не помню какой уже :(
Можно сравнить с любой обычной ert-кой - там сразу видно.
Вот тоже баловался. пока добился только того, чтоб текстовое поле с формы в пофигураторе не удаляется... да и так, по мелочи.
28. Константин (const000) 88 26.09.08 12:05 Сейчас в теме
ТАКОЕ оформление заслуживает плюса!!! Браво!
37. Аркадий Кучер (Abadonna) 3687 26.09.08 14:20 Сейчас в теме
(35,36)
"ЗАМЕНИТЬ","STATIC","1342177793","191","320","75","16","0","0"
"©Ёпрст","STATIC","1342177280","274","21","39","13","-1","-1"
Скорее всего два последних нуля на две минус единицы
38. Аркадий Кучер (Abadonna) 3687 26.09.08 14:22 Сейчас в теме
+(37) Ага! Так и есть. Так что я и пофигураторе удалил ;))))
39. Ёпрст (Ёпрст) 1021 26.09.08 14:28 Сейчас в теме
(37) Это были мои поиски в ковырянии компаунда :)
(38) Так и есть, это чтоб тект не удалялся..
А про фреймы - там тоже изменен параметр, тоже легко ищется.
41. Аркадий Кучер (Abadonna) 3687 26.09.08 14:40 Сейчас в теме
(39) Жаль только, что нельзя заблокировать изменение самого текста. А то можно было бы демки для ламеров с непечатными словами делать ;) А при покупке - высылать пилюлю
42. Ёпрст (Ёпрст) 1021 26.09.08 14:42 Сейчас в теме
(41) Можно прятать в мокселе, тоже упарятся искать )
43. Евгений Мартыненков (JohnyDeath) 290 26.09.08 14:51 Сейчас в теме
(42) нукась, поделись идеей.
мне оно, конечно, нафиг не надо, но ради спортивного интереса, хочется посмотреть как люди извращаются ;)
45. Ёпрст (Ёпрст) 1021 26.09.08 15:01 Сейчас в теме
(43) Ну ё... Посмотри, где в в том же покерке все картинки, и куда делось всё присвоение глобальных переменных...В том числе заполнение таблицы значений самими картинками, и т.д и т.п...
:)

40. Ёпрст (Ёпрст) 1021 26.09.08 14:32 Сейчас в теме
Вообще , ковырялся с параметрами в компаунде, нашел, где хранятся галки типа "невидимый" и т.д, менял всё на всё от балды...
Пытался сделать кнопку невидимой, но чтоб событие она ловила как надо. Сначала вроде успех - кнопки нет, тыркаешь - есть событие, но кнопка тварь появилась на форме :(((

А потом чисто случайно обратил внимание на флажок... вот собственно отсюда и родился покерок.
44. Евгений Мартыненков (JohnyDeath) 290 26.09.08 14:53 Сейчас в теме
Ёпрст, если тебе неприятно то, что мы все отвлеклись от "покерка" и вдарились в извращения над формой, ты только свистни, мы сразу отвалимся.
46. Ёпрст (Ёпрст) 1021 26.09.08 15:02 Сейчас в теме
(44) Наоборот, мот еще кто чего полезного подкинет.
47. Аркадий Кучер (Abadonna) 3687 30.09.08 04:12 Сейчас в теме
(0) Написал бы статейку для продвинутых:
1. Что какой флаг означает в Dialog Stream?
2. Как что-то спрятать в мокселе?
и т.д ;)
48. Ёпрст (Ёпрст) 1021 30.09.08 15:42 Сейчас в теме
(48) Писатель из меня хреновый, я даже описание к игре написать не могу... да и лень впереди планеты всей :)
49. andrey P (andrey314) 10 01.10.08 11:58 Сейчас в теме
50. aa_214 (Попытка1С) 01.10.08 14:35 Сейчас в теме
Очень круто!
Жаль что я играю только в безлимитный холдем =))
51. Ёпрст (Ёпрст) 1021 01.10.08 15:06 Сейчас в теме
(50) Тогда нужно было бы писать игру как минимум за комп, или по сетке как-то прикручивать...

54. Альтаир (Altair777) 639 03.10.08 09:22 Сейчас в теме
Надо!
На почту или здесь выложите?
Если бы еще и Линейку.... :-)
55. Ёпрст (Ёпрст) 1021 03.10.08 10:25 Сейчас в теме
56. Альтаир (Altair777) 639 03.10.08 11:16 Сейчас в теме
57. А Р (p1l1gr1m) 11.10.08 17:24 Сейчас в теме
Это жесть как она есть, все что могу сказать.
58. Ёпрст (Ёпрст) 1021 13.10.08 09:08 Сейчас в теме
59. vkr (vkr) 101 30.10.08 16:17 Сейчас в теме
(58) В смысле - "Тихо, шифером шурша, крыша едет, не спеша..."
Смена шифера на жесть... :)
-----
А вот интересно, если бы кто сляпал аналог виндовозной cards.dll, то, зная алгоритмы разных пасьянсов
(они давно известны), можно было бы склепать 1С-ный аналог, скажем, знаменитого пакета SolSuite 2008... :)
60. Ёпрст (Ёпрст) 1021 30.10.08 16:39 Сейчас в теме
(59)
Всё можно, если лень перебороть...
61. Andrey (kentavr27) 74 26.12.08 20:28 Сейчас в теме
Впечатлило, улыбнуло :)
Теперь осталось покопаться, как оно все нарисовано. С первого взгляда пока не нашел.
Сама логика игрушки где-то упущена. Со временем (выиграл 2300$) игрушка
начинает жутко тормозить и на цифре 2300 1С ка вывалилась с критической
ошибкой...
62. Ёпрст (Ёпрст) 1021 03.01.09 11:18 Сейчас в теме
(61)
"Сама логика игрушки где-то упущена"
Да нет там вообще логики никакой...Тупой рандом при раздаче и подсчет очков кратный 500 ... всё.
63. Валерий Корженко (motogon) 13.03.09 18:10 Сейчас в теме
А нет, еще не добил... и это возьмем, клас, молодцы авторы!
65. Игорь Исхаков (Ish_2) 985 21.08.09 09:39 Сейчас в теме
Мама дорогая !!
Это даже не увлечение программированием.
Это - страсть.
Я бы даже сказал "нездоровая" страсть.
66. Александр Рытов (Арчибальд) 2660 21.08.09 09:46 Сейчас в теме
(65) Это показательный мастер-класс с красочными иллюстрациями.
Слушай Ёпрста (с) Чебур.
67. Ёпрст (Ёпрст) 1021 21.08.09 09:57 Сейчас в теме
(65) Это ностальгия... по казино..
68. Никита Уколов (zzerro) 270 24.08.09 14:44 Сейчас в теме
Ильич улыбнул :) плюс однозначно
69. Баклага 17.10.09 11:36 Сейчас в теме
Пасьянчик бы, хотя бы YUCON
70. Иван Филимонов (DarkAn) 373 06.11.09 18:01 Сейчас в теме
ППЦ, где картинки? У меня крыша едет...
Про перехват клика - идея понравилась :)
их вообще штатными средствами найти можно?
71. Ёпрст (Ёпрст) 1021 09.11.09 16:55 Сейчас в теме
(70) Конечно можно..
Там вообше всё штатно сделано.
72. Ёпрст (Ёпрст) 1021 09.11.09 16:56 Сейчас в теме
+71 не найдешь - кричи.. покажу..
73. Oleg Aver'kov (Oleg_46) 60 31.12.09 12:30 Сейчас в теме
Да, Сильная вещь. Для меня много нового.
74. Иван Сорокотяга (zk96) 09.09.10 01:10 Сейчас в теме
76. qwerty qwerty (vamleshka) 13.01.12 17:50 Сейчас в теме
Ну чувак ты крут, придумал же. Я бы тоже хотел писать игры на 1с - не, но за это никто не платит. Респект !!!!
77. Master07 (Master07) 27.02.12 11:50 Сейчас в теме
Даже не думал что это возможно.
78. Олег Хижов (khizhov) 29.08.13 10:34 Сейчас в теме
79. mgmac mgmac (mgmac) 08.10.13 11:59 Сейчас в теме
Давай напишем на 1С покерного бота, я скажу как он должен играть а ты будешь писать код)
80. Ёпрст (Ёпрст) 1021 09.10.13 13:29 Сейчас в теме
(79) я слишком ленивый для этого..
Да и.. Для какой из 1000 разновидностей покера будем писать бота ?
Для техаса ?
81. Андрей (anv77) 18.11.13 18:36 Сейчас в теме
82. Eugen Krivylia (EugenLiquor) 14.02.14 18:53 Сейчас в теме
Ха-ха, прикольно) Люблю играть в покер на покерстарс, но не думал, что запилят в 1ску)
83. Master07 (Master07) 28.02.14 10:16 Сейчас в теме
Ет просто гениально, всегда любил в покер поиграть ....
84. Иваныч Иванов (Иваныч) 22 10.05.14 16:53 Сейчас в теме
Скачаю Шефу, он в интернете сидит за покером, а так хоть посмотрит, как дела в фирме идут
85. Евгений Н (enamchuk) 18.05.15 19:33 Сейчас в теме
Можно модифицировать покер, раз он работает в 1С - играть на зарплату :))) Ставки делать с зарплаты :) Здорово же)
86. Сергей Шахов (Gvozdod) 89 01.06.15 08:47 Сейчас в теме
Не понятно из описания. Игра с ботами или можно с коллегами на работе рубануться?
Оставьте свое сообщение