Покерок для 7.7

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

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

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

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

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

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

100

См. также

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

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

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

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

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

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

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

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

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

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

Игра Судоку

Игра Сокобан

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

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

Комментарии

Сохранить

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 Сейчас в теме

Автор, а для 8-ки нет? ;-)

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 Сейчас в теме

(32) http://www.sinor.ru/%7Efilez/frames.ert
вот применить, ну пока никак :)

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 Сейчас в теме

(54) качай http://infostart.ru/projects/2631/

56. Альтаир (Altair777) 639 03.10.08 11:16 Сейчас в теме

Пасиба!

57. А Р (p1l1gr1m) 11.10.08 17:24 Сейчас в теме

Это жесть как она есть, все что могу сказать.

58. Ёпрст (Ёпрст) 1021 13.10.08 09:08 Сейчас в теме

(57) В каком смысле ?

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С ка вывалилась с критической
ошибкой...