Игра "Самоцветы" (Bejeweled теперь и в 1С) + звук

20.06.11

Bejeweled -Самоцветы - красивая логическая игра,
смысл которой заключается собрать три и более одинаковых самоцвета (в вертикальной или горизонтальной строке). Первый клик выбираете самоцвет, второй клик выбираете место куда его переместить, перемещать можно только из соседних строк и столбцов.
Развивает внимательность и память.
Найденные и выбранные группы самоцветов исчезают, а на их место опускаются новые.

Бесплатные

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Бесплатно
Bejeweledfor1C8v3.epf .epf 113,49Kb 616	616	Скачать бесплатно

Файлы

Наименование	Скачано	Купить файл (только для физ. лиц)	По подписке PRO
Bejeweled for 1C8.2.epf .epf 269,21Kb 280	280	1 850 руб. Купить	1 SM Скачать

Bejeweled -Самоцветы - красивая логическая игра,
смысл которой заключается собрать три и более одинаковых самоцвета (в вертикальной или горизонтальной строке). Первый клик выбираете самоцвет, второй клик выбираете место куда его переместить, перемещать можно только из соседних строк и столбцов.
Развивает внимательность и память.
Найденные и выбранные группы самоцветов исчезают, а на их место опускаются новые.

Два режима игры - классическая и на время.

Без использования внешних компонент.

Обработка с открытым кодом - пользуйтесь на здоровье - дополняйте , улучшайте.

Приятной игры и нескучного игрового процесса.

Bejeweledfor1C8v3.epf от 22.10.2010 15:30

Bejeweled for 1C8.2.epf от 17.05.11 17:00

(толстый клиент) со звуком.

Вступайте в нашу телеграмм-группу Инфостарт

+95 –

См. также

Сапер

Игры 1С v8.3 Бесплатно (free)

Моя реализация игры "Сапер" на 1С.

15.04.2025 1087 92 Caliban 5

Сапёр на 1С

Игры 1С v8.3 Россия Бесплатно (free)

Игра "Сапёр" на 1С. Три уровня.

04.04.2025 1777 122 user2015123 9

Игра "Змейка"

Игры 1С v8.3 Бесплатно (free)

Игра Змейка на объектах форм, а ля ООП, или что можно сотворить за час )))

20.02.2025 1967 89 starik-2005 9

Пятнашки: игра на ООП в 1С

Игры 1С v8.3 Бесплатно (free)

Когда охота "настоящего" ООП, но не знаешь, как его взять в 1С. Массив форм в форме нам поможет )))

18.02.2025 1702 71 starik-2005 14

Игра "Футбольный менеджер" на 1С

Игры 1С v8.3 Бесплатно (free)

Знакомы с серией игр Football Manager? Вся суть подобных симуляторов состоит в том, чтобы путем грамотного управления и контроля за спортивным, инфраструктурным и финансовым учетом привести свой футбольный клуб к успехам. Это ли не задача для платформы 1С - помочь в контроле учета предприятия (читай футбольного клуба)?

10.01.2025 4503 120 KamranV21 4

Вариация классической игры Линес в честь года змеи 2025

Игры 1С v8.3 Управляемые формы 1C:Бухгалтерия Бесплатно (free)

Вариация классической игры Линес в честь года змеи 2025 на шестиугольном поле, с препятствиями, для сборки змейки из 7 шаров.

29.12.2024 978 47 miniogn 0

Как мы перенесли игру «Герои меча и магии III» на 1С

Игры 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Я Федор, ведущий разработчик 1С. На хакатоне компании команда под моим руководством перенесла игру «Герои меча и магии III» на платформу 1С. Расскажу, как устроена конфигурация «1С: Герои меча и магии» с технической точки зрения.

10.10.2024 53791 PROSTO-1C 56

175

Морской бой

Игры 1С v8.3 Управляемые формы 1C:Бухгалтерия 1С:Бухгалтерия 3.0 Россия Бесплатно (free)

Классическая игра Морской бой, с необычным дизайном. Из особенностей: Поле игрока формируется автоматически, но есть возможность корректировать расстановку фигур. Пример игры в приложенном видео.

29.07.2024 1913 114 user1693438 5

Отзывы

71. Tatitutu 3850 08.10.16 23:13 Сейчас в теме

(70) baykovsky, Только что проверил и на 8.2 и на 8.3
все штатно. вот без звука рабочая

Прикрепленные файлы:

Bejeweled.epf

Остальные комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. Tatitutu 3850 20.10.10 17:42 Сейчас в теме

Bejeweled теперь и в 1С - без комментариев...
комментируйте вы , все для вас и для вашего досуга !

2. Широкий 693 21.10.10 12:34 Сейчас в теме

У разделителей поставь доступность=Ложь

4. Tatitutu 3850 21.10.10 12:42 Сейчас в теме

(2) изменил.Спасибо

3. Широкий 693 21.10.10 12:36 Сейчас в теме

ПолеКартинки = ЭлементыФормы.Добавить(Тип("ПолеКартинки"), ИмяКартинки, ИСТИНА);
Плохо!!! Утечка памяти!!
Меняй просто изображение

5. 21.10.10 21:16 Сейчас в теме

Не понятно, как играть то? В одном ряду подряд 3 одинаковых не выпадают, два подряд и один не рядом, нажимаешь на любой из перечисленных, ничего не меняется и ничего не исчезает. Подсказка показывает на камушек и тоже ничего. Что я делаю не так?

6. Tatitutu 3850 22.10.10 09:26 Сейчас в теме

(5) В одном ряду подряд 3 одинаковых не выпадают
правильно - они и не должны выпадать
Ваша задача собрать по вертикали или горизонали группу фигур >=3
для этого Вам нужно сделать 2 клика
1 клик по той фигуре которую хотите переместить
2 клик по тому месту куда ее хотите переместить
если сделали правильно поле с одинаковыми фигурами удалится

7. 22.10.10 09:42 Сейчас в теме

(6) Вооот, теперь все ясно, спасибо :) (в том числе и за доступ - ВСЕ)

8. Ёпрст 1068 22.10.10 10:52 Сейчас в теме

Остаются артефакты от старых картинок, + тормоза..

10. Tatitutu 3850 22.10.10 11:01 Сейчас в теме

(8) ничего не остается
(9) у меня они падают - т.е. 3 удаляются и на место их падают другие сверху
тормозов не замечено.Странно

9. Ёпрст 1068 22.10.10 10:54 Сейчас в теме

Ну и "пробелы" между самоцветами - а должны падать по идее, + происходит не замена одного на другой, а тупо 1 перемещаем, а на месте второго - "дырка" остаётся..
Что-то недоделано, не помню, как оно в оригинале было ужо.

11. Ёпрст 1068 22.10.10 11:16 Сейчас в теме

Артефакт:

Пустые клетки, + перемещаем...

Было:

Стало:

Ну и куда делся красный квадрат + почему висят все остальные кристаллы ?

14. Tatitutu 3850 22.10.10 11:31 Сейчас в теме

(11) Согласен. Перезалил обработку
добавил еще одну проверку на перемещение фигур из разных столбцов и строк. Исправил и время
(13) почему у тебя появляются горизонтальная и вертикальная полоса прокрутки не понял.

15. 22.10.10 11:42 Сейчас в теме

(14) Видимо потому, что камни перемещаются за поле.

16. Tatitutu 3850 22.10.10 11:53 Сейчас в теме

(15) Скачайте заново файл и проверьте пожалуйста. Вроде все устранил.

17. Ёпрст 1068 22.10.10 11:54 Сейчас в теме

(16) теперь половина не работает - не перемещаются элементы..

18. Tatitutu 3850 22.10.10 11:59 Сейчас в теме

(17) все работает.
Перемещать можно только из соседник строк или столбцов

19. Ёпрст 1068 22.10.10 12:04 Сейчас в теме

(18) ??

Раньше было с любого места в любое.
Правила на ходу меняешь ?
Сделай нормальное описалово тогда.

22. Tatitutu 3850 22.10.10 14:11 Сейчас в теме

(19)(21) Нет ! Во первых не я придумал правила и не мне их менять.
Да и подумать - если как вы предлагаете - играть было бы не интересно со всем - что такое набрать нужное количество одинаковых фигур, а тут самая перчинка в том что нужно НАЙТИ на поле где можно сделать ход. Посмотрите под этим углом и все станет на свои места.
посмотрите в сети полно версий этой игрушки , у меня такая есть на телефоне - было интересно продумать ее алгоритм и реализовать на 1С
Время поборол. Файл перезалил. Спасибо за комментарии

23. Ёпрст 1068 22.10.10 14:31 Сейчас в теме

(22) у тебя так было изначально.
А правила ты нигде не удосужился описать..
А как там в оригинале было, я уже не помню..
например.

21. 22.10.10 12:24 Сейчас в теме

(18) >Перемещать можно только из соседник строк или столбцов.
Да, теперь работает. Но все же интереснее и приятнее было бы из любых мест перемещать (на дальнейшее развитие игры).
Таймер все таки не отключается. Вернее с определенного количества ходов он запускается и "финиш".

12. Ёпрст 1068 22.10.10 11:18 Сейчас в теме

+11 + игра всё время на время, в не зависимости от галки.

13. 22.10.10 11:21 Сейчас в теме

У меня вот так было:

Прикрепленные файлы:

20. Ёпрст 1068 22.10.10 12:06 Сейчас в теме

Ну и на время так и осталось, ничего не делаешь и .. Финиш

24. Tatitutu 3850 22.10.10 14:43 Сейчас в теме

(24) Правила добавил в описание, более расширенные
Игра сама по себе [:|||||:] уже не нова, по простоте душевной думал что правила давно известны.

25. Ёпрст 1068 22.10.10 14:52 Сейчас в теме

(24) теперь кнопка доступный ход хню показывает..

26. Tatitutu 3850 22.10.10 14:57 Сейчас в теме

(25) Не знаю, у тебя называется хню
у меня показывает все правильно как и было задумано
или что переставить или место куда переставить
"такой большой и подсказками пользуешся :D "

27. Ёпрст 1068 22.10.10 15:01 Сейчас в теме

+ Иногда дает недопустимый ход..

28. Ёпрст 1068 22.10.10 15:03 Сейчас в теме

да и не подсказками пользуюсь, а твои ошибки тестю..
:)

29. Tatitutu 3850 22.10.10 15:04 Сейчас в теме

(28) не может быть, сам посмотри алгоритм проверки
если ходов нет то поле перерисовывается и заново ищет.
просто иногда кажется , что хода нет

30. Tatitutu 3850 22.10.10 15:05 Сейчас в теме

(28) ну за это отдельное спасибо.

31. Ёпрст 1068 22.10.10 15:05 Сейчас в теме

+ неверно показывается рамка, какие ячейки будут удалены для вертикальных кубиков - всегда горизонтальная "полоска"

33. Tatitutu 3850 22.10.10 15:33 Сейчас в теме

Bejeweledfor1C8v3.epf от 22.10.2010 15:30 увечил значение задержки - шарики изменили свое движение (странно вчера на 300 тупило, сегодня на 800 летает - взаимосвязь не могу понять)
(31) что за рамка ? количество очков ? она всегда горизонтальная - примерно по центру удаленных

34. Ёпрст 1068 22.10.10 15:38 Сейчас в теме

(31) нет, рамка подсветки удаленных кристаллов - нужно у вертикальных вертикальную лепить, у горизонтальных - горизонтальную.. и на 2 кристалла, а не на 1..

35. Tatitutu 3850 22.10.10 15:41 Сейчас в теме

(34) честое слово , не могу понять про какую рамку удаленных кристалов ты говоришь. Про "доступный ход" ?

32. Ёпрст 1068 22.10.10 15:07 Сейчас в теме

+31 и только на 1 кристалле, а не на 2-х..

А при горизонтальном "удалении", рамка съехана в сторону.

36. Ёпрст 1068 22.10.10 15:42 Сейчас в теме

Нет, когда кристаллы удаляются - ты подсвечиваешь их рамкой желтой..

39. Tatitutu 3850 22.10.10 16:04 Сейчас в теме

(36) я (38) пост скрыл, только из-за того что косяк с картинкой - долго не отображается
да я понял о чем ты говоришь
но посмотри в конфигураторе - это НЕ РАМКА
и на разных компах она ведет себя совершенно по разному ))))

40. 22.10.10 16:26 Сейчас в теме

(39) В процедуре УдаляемПоле() Сделай Выигрыш.Видимость = Ложь; В обоих блоках.

41. Tatitutu 3850 22.10.10 16:30 Сейчас в теме

(40) поконткретнее если можно, где ?
там есть в обоих блоках пробовал и так и сяк

чтобы хоть как то видно было

Н=0;
для сч =1 по 1000 цикл
Выигрыш.ПорядокОтображения = 93;
Выигрыш.Видимость=Истина;
Н=Н+1;
КонецЦикла;
Выигрыш.Видимость=Ложь;

37. Tatitutu 3850 22.10.10 15:47 Сейчас в теме

(37) :D :D :D да нет, это не подсветка удаленного
это по идее рамка с очками за удаленные фигуры
(рамка желтая, фон красный, и цифры) но иногда только одна рамка вылезает

я постил тему:
Вчера на досуге написал игру Bejeweled
вроде все красиво получилось, но осталось два вопроса
1.объект ПолеКартинки с прозрачным фоном (сама картинка тоже с прозрачным фоном) красиво смотрится на форме, но при наложении на другой объект ПолеКартинки - прозрачность пропадает (ни руками, ни программно не получилось сделать) т.е. картинка по форме "скользит" красиво, но если на ее пути попадается другой объект прозрачность проподает.
2. Кнопка "Подсказка" или после окончании хода (нужно же проверить если еще ходы для игрока).
вот вопрос есть заполненный цифрами массив (8,8),т.е. поле 8х8 , как наиболее быстро найти возможный ход (чтобы образовалось поле по горизонтали или вертикали >3 фигур)

38. пользователь 22.10.10 15:54

Сообщение было скрыто модератором.

...

42. 22.10.10 16:36 Сейчас в теме

Н=0;
для сч =1 по 1000 цикл
Выигрыш.ПорядокОтображения = 93;
Выигрыш.Видимость ~~Истина~~;
Н=Н+1;
КонецЦикла;
Выигрыш.Видимость=Ложь;

43. 22.10.10 16:37 Сейчас в теме

+42. Ни при каких условиях эту рамку не должно быть видно, счет баллов от этого не пострадает.

44. Tatitutu 3850 22.10.10 16:46 Сейчас в теме

(43) что не пострадает счет - это понятно
хотел сделать как в оригинале
если поле сходится - шары "взрываются" и исчезают и появлеяется поле с заработанными очками.
Еще раз повторяю - раз на раз не приходится (иногда все отлично кажет, иногда только рамка) почему не знаююю....
а показывать нужно

45. 22.10.10 17:02 Сейчас в теме

(44) Тогда вот так:

			для сч =1 по 1000 цикл
				Выигрыш.Заголовок=БаллыЗаКлик;
				Выигрыш.ПорядокОтображения = 93;
				Выигрыш.Видимость=Истина;
				Н=Н+1;
			КонецЦикла;

А вверху заремить.

46. 22.10.10 17:08 Сейчас в теме

+45 И попробуй число ПорядкаОтображения повысить, например до 150, тогда всегда сверху будет, и вообще идеально все будет.

47. Tatitutu 3850 22.10.10 17:15 Сейчас в теме

(46) да вот..... нет
сначала так и думал, что оно так будет отрабатывать
но нет....максимальное число = количество элементов на форме
попробуй сам проверить
Выигрыш.ПорядокОтображения = 100;
Сообщить(Выигрыш.ПорядокОтображения);
"приятно" удивишся

49. 22.10.10 17:39 Сейчас в теме

(47) Да уж.. Совсем убрал - раз все равно никак не регулируется.
Вертикальные разделители накрывают, причем тогда, когда вылетает 2и более окошко с цифрами (((

48. 22.10.10 17:25 Сейчас в теме

+45 Правда пришлось ЗадержкаДвижения 500 поставить, иначе вертикальные разделители иногда накрывают края поля с цифрами.

50. Ish_2 1117 25.10.10 12:44 Сейчас в теме

Даешь каждую неделю по одной новой игре на 8-ке !
Что , Юра ? Слабо ?

51. Tatitutu 3850 25.10.10 12:50 Сейчас в теме

(51) да мне то не слабо... но хобби превращать в график - не по мне
игрушка должна быть от души и для души

52. Tatitutu 3850 17.05.11 17:02 Сейчас в теме

Bejeweled for 1C8.2.epf от 17.05.11 17:00
(толстый клиент) со звуком.

53. пользователь 14.03.12 23:47

Сообщение было скрыто модератором.

...

54. SergeyGladyshev 25.05.12 12:42 Сейчас в теме

Классная игра, автору респект!

55. пользователь 09.06.12 12:45

Сообщение было скрыто модератором.

...

56. baldorc 4 13.06.12 10:45 Сейчас в теме

Поставил бухгалтерам, так у них глаз выпал :) щас втихую играют
теперь жду пока директор игры в 1С запрещать начнет :D

57. Tatitutu 3850 13.06.12 11:01 Сейчас в теме

(56) Играть тоже нужно - стимулирует умственную деятельность.
Там же есть кнопочка "Шеф идет"
Пусть это останется нашей маленькой тайной

58. baldorc 4 13.06.12 12:23 Сейчас в теме

(57)
кнопкой пользуются :) но шила в мешке то не утаишь.когда-нибудь спАлит.:)
я думаю, наиграются, сами перестанут

59. ric-77 13.06.12 12:30 Сейчас в теме

Даже боюсь такое ставить засосёт невырвусь. И неувидит директор обещанного отчёта.

60. ilonnaa 13.06.12 18:39 Сейчас в теме

А сколько времени ушло на создание? Просто интересно очень))

61. LND_gaz69 19.06.12 17:19 Сейчас в теме

(60) ilonnaa,
плюсую. наверняка простые обработки автор пишет за получасы :)

62. ilonnaa 20.06.12 09:35 Сейчас в теме

(61) LND_gaz69, простые, то понятно) а на эту

63. Dr.DragoN 20.07.12 16:37 Сейчас в теме

Плюсанул за сам факт реализации, но от скачивания воздержусь. Боюсь затянет)

64. aximo 2366 23.11.12 07:44 Сейчас в теме

Спасибо, интересная реализация. Подчерпнул несколько идей.

65. Sagirus 02.09.13 14:30 Сейчас в теме

Автору +1. Хорошая реализация классического "убийцы времени". Попробую скачать и не втянуться :-)

66. AlexSunS 30.09.13 11:33 Сейчас в теме

(65) Sagirus, Пиаришься ?

67. Sagirus 30.09.13 11:41 Сейчас в теме

(66) AlexSunS, ошибочка... Вместо аватарки приложился файл к сообщению. Спасибо, что ткнул носом.

68. пользователь 02.12.13 14:16

Сообщение было скрыто модератором.

...

69. amalarius 12.08.16 15:56 Сейчас в теме

Здорово

70. baykovsky 08.10.16 14:24 Сейчас в теме

На какую версию платформы расчитана обработка?
На платформе 8.3.8 выдает ошибку "Ошибка чтения внешних метаданных..."

71. Tatitutu 3850 08.10.16 23:13 Сейчас в теме

(70) baykovsky, Только что проверил и на 8.2 и на 8.3
все штатно. вот без звука рабочая

Прикрепленные файлы:

Bejeweled.epf

72. Tatitutu 3850 25.09.18 17:48 Сейчас в теме

Почти 8 лет назад. А сегодня случайно увидел и партнеров и играют )

73. serverstar 70 07.06.22 17:21 Сейчас в теме

Прикольно интересно

Оставьте свое сообщение

E-mail:

Автор:

Юрий Тимофеев (Tatitutu)

Рейтинг: 3850

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 77137

Создание 20.10.10 17:41

Обновление 20.06.11 11:03

Статистика:

Просмотры 37551

Загрузки 280

Рейтинг 95

Комментарии 69

Характеристики:

Код открыт Не указано

Рубрики Игры

Кому Для всех

Тип файла Внешняя обработка (ert,epf)

Платформа 1С v8.3

Конфигурация 1C:Бухгалтерия

Операционная система Не имеет значения

Страна Россия

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Абонемент ($m)