Покерок для 7.7

Публикация № 16423

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

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

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

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

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

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

Наименование Файл Версия Размер
-

.1222257660 560,19Kb
928
.1222257660 560,19Kb 928 Скачать бесплатно

Специальные предложения

Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. miandrew 24.09.08 16:04 Сейчас в теме
2. coder1cv8 3496 24.09.08 16:42 Сейчас в теме
Ну ёлки! Почему под семерку-то?! Где ж её взять в наше-то время?... )
3. Ёпрст 1048 24.09.08 16:43 Сейчас в теме
Под снеговика не интересно..
4. O-Planet 6920 24.09.08 16:46 Сейчас в теме
Только под семерку! Снеговиков - в ацтойник...
5. zaic 125 24.09.08 17:38 Сейчас в теме
Любители снеговика обзавидуйтесь..)
Только карта как всегда не прет и начальные 100 у.е. быстро кончаются...
Вот это вещь...
6. Хряк 67 24.09.08 18:12 Сейчас в теме
7. jhfrek 185 24.09.08 20:52 Сейчас в теме
Круто!!! Молодец! Ты гений!
Плюс однозначно!
8. Armando 1395 24.09.08 23:30 Сейчас в теме
Ух ты!))) Мне, как бывшему дилеру, вдвойне приятно шпилить в оазис, да еще и в 1ске))
9. support 4535 25.09.08 00:00 Сейчас в теме
Впечатляет, что можно сделать в 1С 7.7, просто мастер работы с формой!
10. Vitek 25.09.08 08:02 Сейчас в теме
11. Ёпрст 1048 25.09.08 09:09 Сейчас в теме
Найдена куча ошибок, скоро кину новую версию.
12. NoMax 232 25.09.08 10:03 Сейчас в теме
Ага еще надо и СтрипПокерок :)
13. Ёпрст 1048 25.09.08 10:54 Сейчас в теме
Исправил ошибочки, тестим дальше
По просьбе Чучундера, добавил русские названия игр.
14. Cifer 25.09.08 11:39 Сейчас в теме
Такого в 1С я еще не видел!
15. JohnyDeath 299 25.09.08 11:39 Сейчас в теме
Афигеть! Вот это с формой действительно поработали! Отлично!
16. Shurik 25.09.08 15:02 Сейчас в теме
17. Tempus 94 25.09.08 15:15 Сейчас в теме
Просто супер!!!!

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

Ну вот можно же делать "плавающие окошки" в 7-ке, на синьёре есть примерчик, правда вот где применить, пока неизвестно...
Хоткеи навешиваются и т.д...
Вот и хотелось бы, поправить мальца компаунд, чтоб, флажок, например, вообще был невидимым, или к примеру, сделать круглую, или хотя бы трапециидальную кнопку..
32. JohnyDeath 299 26.09.08 13:53 Сейчас в теме
(31) Ну вот можно же делать "плавающие окошки" в 7-ке, на синьёре есть примерчик, правда вот где применить, пока неизвестно...
А можешь ткнуть носом в этот примерчик? А применение мы найдём! ;) (например в журнале документов открывается плавающее окошко с графом подчиненности текущего дока. Юзер клацает на один док в этом графе - в журнале он становится текущим, клацает на другой - теперь "другой" текущий)
33. JohnyDeath 299 26.09.08 13:54 Сейчас в теме
+(32) АЛьФ в FormEx-е делал плавающие окна, но, к сожелению, они крайне нестабильны.
34. Ёпрст 1048 26.09.08 13:55 Сейчас в теме
35. JohnyDeath 299 26.09.08 14:11 Сейчас в теме
(34) прикольно... правда не более того. Оно ж плавающее только для текущего окна. А настоящее плавающее - оно ж над всеми окнами текущего приложения плавает.
А как сделано? Я что-то не понял фишки.. (
36. Ёпрст 1048 26.09.08 14:14 Сейчас в теме
(35) В компаунде поправлен параметр один, не помню какой уже :(
Можно сравнить с любой обычной ert-кой - там сразу видно.
Вот тоже баловался. пока добился только того, чтоб текстовое поле с формы в пофигураторе не удаляется... да и так, по мелочи.
28. const000 88 26.09.08 12:05 Сейчас в теме
ТАКОЕ оформление заслуживает плюса!!! Браво!
37. Abadonna 3889 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 3889 26.09.08 14:22 Сейчас в теме
+(37) Ага! Так и есть. Так что я и пофигураторе удалил ;))))
39. Ёпрст 1048 26.09.08 14:28 Сейчас в теме
(37) Это были мои поиски в ковырянии компаунда :)
(38) Так и есть, это чтоб тект не удалялся..
А про фреймы - там тоже изменен параметр, тоже легко ищется.
41. Abadonna 3889 26.09.08 14:40 Сейчас в теме
(39) Жаль только, что нельзя заблокировать изменение самого текста. А то можно было бы демки для ламеров с непечатными словами делать ;) А при покупке - высылать пилюлю
42. Ёпрст 1048 26.09.08 14:42 Сейчас в теме
(41) Можно прятать в мокселе, тоже упарятся искать )
43. JohnyDeath 299 26.09.08 14:51 Сейчас в теме
(42) нукась, поделись идеей.
мне оно, конечно, нафиг не надо, но ради спортивного интереса, хочется посмотреть как люди извращаются ;)
45. Ёпрст 1048 26.09.08 15:01 Сейчас в теме
(43) Ну ё... Посмотри, где в в том же покерке все картинки, и куда делось всё присвоение глобальных переменных...В том числе заполнение таблицы значений самими картинками, и т.д и т.п...
:)

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

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

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

См. также

Грибочки (по мотивам Boulder Dash) для 7.7 без ВК ! Промо

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Ностальгия... Попытка создания Boulder Dash (и им подобные) на 1с

20.01.2009    19880    973    Ёпрст    39    

Игра для 7.7 - Сокобан

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Бесплатно (free)

Внешний отчет для 1С:Предприятия 7.7. Классическая логическая игрушка. Прилагаются уровни. Совместима с Visual Sokoban 1.2.

05.04.2010    12326    19    ketr    2    

Муравьи для 7.7 (Теперь и скрин сейвер!)

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Муравьи бегают за курсором мыши. Теперь и скринсейвер!

06.01.2010    16205    293    Ёпрст    30    

Арканоид для 7.7

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Реализация игры арканоид для клюшечек.

23.09.2009    21811    209    Ёпрст    28    

Бомбер для 7.7 Промо

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Ностальгия... ремейк популярной игры для спектрумов и иже с ними.

20.08.2009    20178    289    Ёпрст    66    

ПЯТНАШКИ!!! (99 строк) ;) на 1С 7.7

Игры v7.7 1cv7.md Россия Бесплатно (free)

ПЯТНАШКИ!!!

10.07.2009    16453    54    spy-83    10    

Новогодняя лотерея :)

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Обработка симулирует процесс игры в лотерею "50х50" и предназначена в основном для снижения самооценки дамочек, щеголяющих своей якобы женской интуицией :))) Написана по просьбе жены, но оказалось, что желающих попробовать свои экстрасенсорные способности гораздо больше. В связи с чем принято решение выложить на суд общественности.

04.01.2009    11039    145    MaxDavid    6    

Виртуальный помощник "Вика" v1.02

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

(Из старого... Далекий 2003 год... 7.7 ;)) Данная обработка имитирует виртуального собеседника, которому можно задавать вопросы. Данный "бот" был мною написан для IRC каналов и я решил его перенести в 1С в качестве виртуального помощника. Пока даю первую версию данного произведения :) С ним можно поболтать. Он самообучается, знает порядка 3000 фраз, которым научился в чатах и порядка 300 слов.

06.11.2008    20137    178    Душелов    10    

Сборник игр разных авторов для 7.7

Игры v7.7 1cv7.md Россия Бесплатно (free)

Сборник игр разных авторов для 7.7.

03.10.2008    18394    1435    Ёпрст    45    

Тетрис. Новый взгляд. Теперь он - головоломка...

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Можно ли увидеть что-то новое в старом, добром "Тетрисе"?..

06.08.2008    18811    332    O-Planet    4    

Разбор лога "Quake III Team Arena"

Игры v77::БУ 1С7:Бух Россия Бесплатно (free)

Сами знаете почему, иногда есть время погамица в кваку. У нас потом возникает интерес: кто, когда, кого, чем и сколько раз замочил? Вот и наваял. Теперь все видно и прозрачно. А на диаграмме еще виднее и прозрачнее.

05.12.2007    11711    64    whtblck    1    

1С читает Ваши мысли 2 !

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

1С угадывает задуманную Вами карту.

21.11.2007    13728    604    defini    16    

Игра Сокобан

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Игра Sokoban - толкаем перед собой ящики по лабиринту. Игрушка не моя - просто у меня в коллекции есть, а здесь нет. К сожалению, у меня нет никакой информации о копирайтах. Эта игра включена в сборник игр http://infostart.ru/profile/3864/projects/1571/

19.08.2007    14008    311    v.l.    6    

Игра Судоку

Игры v77::БУ 1С7:Бух Россия Бесплатно (free)

Не все сложные судоку (пропало настроение доделывать), но большинство можно отгадать. А простые отгадывает на 100%.

25.04.2007    9131    1119    justme    0    

Крестики-Нолики 15Х15 5 в ряд

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

[b]PlimBot 2.05[/b] Очередная реализация игры Крестики-Нолики на платформе 1С:Предприятие 7.7.

04.02.2007    29313    916    Pavlovsky    14    

Игра "Тетрис"

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Написана с использованием только встроенных возможностей 1С

04.10.2006    12806    932    a.kuznetsov    8    

Игра "Реверси"

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Игра "Реверси" (пока лучшего алгоритма не видел) В случае если Вы легко выигаете у компьютера, просьба прислать по почте файл КаталогИБ()+"ExtForms\Rev4.txt для анализа ситуации и корректировки алгоритма программы.

21.09.2006    13796    704    vovan519    20    

Магическая матрица

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

1С читает Ваши мысли!

11.08.2006    13685    653    defini    8    

Покер-автомат

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Игра покер-автомат

05.05.2006    13192    515    defini    9    

Шахматы под 1С 7.7

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Программа для игры человека в шахматы с компьютером.

27.07.2005    25226    1762    NS    27    

Xonix под 1С 7.7

Игры v77::ОУ v77::БУ v77::Расчет 1cv7.md Россия Бесплатно (free)

Классическая игра, необходимо отсекать (ловить) нолики и закрашивать территорию.

27.07.2005    18177    594    NS    10