gifts2017

Покерок для 7.7

Опубликовал Епрст (Ёпрст) в раздел Сообщество - Игры

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

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

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

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

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

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

См. также

Подписаться Добавить вознаграждение

Комментарии

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

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

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

А потом чисто случайно обратил внимание на флажок... вот собственно отсюда и родился покерок.
41. Аркадий Кучер (Abadonna) 26.09.08 14:40
(39) Жаль только, что нельзя заблокировать изменение самого текста. А то можно было бы демки для ламеров с непечатными словами делать ;) А при покупке - высылать пилюлю
42. Епрст (Ёпрст) 26.09.08 14:42
(41) Можно прятать в мокселе, тоже упарятся искать )
43. Евгений Мартыненков (JohnyDeath) 26.09.08 14:51
(42) нукась, поделись идеей.
мне оно, конечно, нафиг не надо, но ради спортивного интереса, хочется посмотреть как люди извращаются ;)
44. Евгений Мартыненков (JohnyDeath) 26.09.08 14:53
Ёпрст, если тебе неприятно то, что мы все отвлеклись от "покерка" и вдарились в извращения над формой, ты только свистни, мы сразу отвалимся.
45. Епрст (Ёпрст) 26.09.08 15:01
(43) Ну ё... Посмотри, где в в том же покерке все картинки, и куда делось всё присвоение глобальных переменных...В том числе заполнение таблицы значений самими картинками, и т.д и т.п...
:)

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

52. Альтаир (Altair777) 02.10.08 12:27
(22) > даже герои на 1с написаны
А какие Герои? Меча и Магии? :-)
53. Епрст (Ёпрст) 02.10.08 12:49
(52) Да. Могу кинуть, если надо.
54. Альтаир (Altair777) 03.10.08 09:22
Надо!
На почту или здесь выложите?
Если бы еще и Линейку.... :-)
56. Альтаир (Altair777) 03.10.08 11:16
57. А Р (p1l1gr1m) 11.10.08 17:24
Это жесть как она есть, все что могу сказать.
58. Епрст (Ёпрст) 13.10.08 09:08
59. vkr (vkr) 30.10.08 16:17
(58) В смысле - "Тихо, шифером шурша, крыша едет, не спеша..."
Смена шифера на жесть... :)
-----
А вот интересно, если бы кто сляпал аналог виндовозной cards.dll, то, зная алгоритмы разных пасьянсов
(они давно известны), можно было бы склепать 1С-ный аналог, скажем, знаменитого пакета SolSuite 2008... :)
60. Епрст (Ёпрст) 30.10.08 16:39
(59)
Всё можно, если лень перебороть...
61. Andrey (kentavr27) 26.12.08 20:28
Впечатлило, улыбнуло :)
Теперь осталось покопаться, как оно все нарисовано. С первого взгляда пока не нашел.
Сама логика игрушки где-то упущена. Со временем (выиграл 2300$) игрушка
начинает жутко тормозить и на цифре 2300 1С ка вывалилась с критической
ошибкой...
62. Епрст (Ёпрст) 03.01.09 11:18
(61)
"Сама логика игрушки где-то упущена"
Да нет там вообще логики никакой...Тупой рандом при раздаче и подсчет очков кратный 500 ... всё.
63. Валерий Корженко (motogon) 13.03.09 18:10
А нет, еще не добил... и это возьмем, клас, молодцы авторы!
64. david (dav405) 15.05.09 10:51
(20) От безделья, говоришь ...
А что тогда у эттих рюских получаться, если они НЕ безделничать?
Их бин в полный аут ... +
65. Игорь Исхаков (Ish_2) 21.08.09 09:39
Мама дорогая !!
Это даже не увлечение программированием.
Это - страсть.
Я бы даже сказал "нездоровая" страсть.
66. Александр Рытов (Арчибальд) 21.08.09 09:46
(65) Это показательный мастер-класс с красочными иллюстрациями.
Слушай Ёпрста (с) Чебур.
67. Епрст (Ёпрст) 21.08.09 09:57
(65) Это ностальгия... по казино..
68. Никита Уколов (zzerro) 24.08.09 14:44
Ильич улыбнул :) плюс однозначно
69. Баклага 17.10.09 11:36
Пасьянчик бы, хотя бы YUCON
70. DarkAn DarkAn (DarkAn) 06.11.09 18:01
ППЦ, где картинки? У меня крыша едет...
Про перехват клика - идея понравилась :)
их вообще штатными средствами найти можно?
71. Епрст (Ёпрст) 09.11.09 16:55
(70) Конечно можно..
Там вообше всё штатно сделано.
72. Епрст (Ёпрст) 09.11.09 16:56
+71 не найдешь - кричи.. покажу..
73. Oleg Aver'kov (Oleg_46) 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. Епрст (Ёпрст) 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. Иваныч Иванов (Иваныч) 10.05.14 16:53
Скачаю Шефу, он в интернете сидит за покером, а так хоть посмотрит, как дела в фирме идут
85. Евгений Н (enamchuk) 18.05.15 19:33
Можно модифицировать покер, раз он работает в 1С - играть на зарплату :))) Ставки делать с зарплаты :) Здорово же)
86. Сергей Шахов (Gvozdod) 01.06.15 08:47
Не понятно из описания. Игра с ботами или можно с коллегами на работе рубануться?
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа