Игра "Девятнадцать"

19.01.23

Задачи пользователя - Игры

+30 –1
> >
  • logo.PNG
  • p.PNG
  • game.gif
Представляю вашему вниманию игру из школьных времен - "девятнадцать". Когда-то не один десяток листков в клеточку были исписаны во время этой игры...

Скачать файл

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

Наименование По подписке [?] Купить один файл
Игра "Девятнадцать":
.erf 12,47Kb
12
12 Скачать (1 SM) Купить за 1 850 руб.

Мастеръ Гамбсъ этимъ полукресломъ начинаетъ новую партiю мебели. Автор начинает серию статей, посвященных играм на 1С. Каждый месяц в течение года предполагается публикация новой игры. Открывает серию представитель класса "TimeKiller" - игра-головоломка "Девятнадцать".

 
 Зачем игры на 1С, почему и как?

 

Правила игры:

Игра предназначена для одного игрока. Прямоугольное поле случайным образом заполняется цифрами от 1 до 9. Необходимо вычеркивать пары одинаковых цифр или пары цифр, дающих в сумме 10, если они стоят на одной горизонтали или вертикали и между ними нет других цифр. Также можно вычеркивать такие же пары цифр, если одна из них - последняя в строке, а другая первая в следующей строке. 

 

 

На картинке цветом выделены три пары цифр, которые можно убрать.

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

 
 Пример игры

В игре можно настроить ширину игрового поля, выбрать один из трех уровней сложности. Текущая игра сохраняется при закрытии, ее можно продолжить впоследствии (некоторые игры растягиваются на несколько дней). 

Игра тестировалось на платформе 8.3.21.1393, но разрабатывалась в основном два года назад, поэтому должна работать и на более старых версиях платформы.

Как всегда, приветствуются замечания / дополнения / комментарии.

PS: уже подготовив публикацию, я увидел аналог игры: "Циферки", в сети также встречаются названия "Чиселки" и "Семечки". Почему у нас она называлась "Девятнадцать" - неизвестно, "Семечки" более точно описывает увлеченность игровым процессом)).

 

 
 Некоторые из прочих моих публикаций

 

Игра девятнадцать циферки чиселки семечки

+30 –1

См. также

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

Игры Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

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

10.10.2024    46632    PROSTO-1C    52    

159
Морской бой

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

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

29.07.2024    1049    68    user1693438    3    

7
Крестики-нолики

Игры Платформа 1С v8.3 Конфигурации 1cv8 Россия Бесплатно (free)

Простейшие крестики-нолики с маленьким полем.

24.07.2024    960    68    user2015123    0    

6
Пасьянс паук

Игры Платформа 1С v8.3 Конфигурации 1cv8 1С:Бухгалтерия 3.0 Бесплатно (free)

Классическая игра пасьянс Паук, на платформе 1С.

15.04.2024    1767    98    user1693438    3    

18
Змейка на 1С

Игры Пользователь Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Бесплатно (free)

Игра "Змейка" в классическом варианте на управляемых формах в 1С. Собирайте яблоки и ставьте рекорд!

09.02.2024    4557    269    emilyabochkova    15    

29
Внешняя обработка "Помощник с ключвордами"

Игры Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Создавайте новые ключворды или разгадывайте существующие.

1 стартмани

05.02.2024    2165    1    alexpvs    0    

7
Игра "5 Букв"

Игры Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Абонемент ($m)

Игра "5 Букв", сделанная на 1С. В игре загадано слово, существительное в единственном числе. Нужно отгадать загаданное слово.

1 стартмани

29.12.2023    2126    4    APTEM_SLV    9    

7
Игра пятнашки

Игры Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Цель - обучение хитростям нашей всеми любимой 1С.

28.11.2023    1299    51    user1834118    0    

6
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. RustIG 1748 19.01.23 10:49 Сейчас в теме
(0) молодец, что развиваешь тему игр! я очень рад
+ – Ответить
2. Alxby 1114 19.01.23 11:12 Сейчас в теме
(1)Ждите еще как минимум 11 штук в течение года)
+ – Ответить
3. Lem0n 425 19.01.23 11:49 Сейчас в теме
(2) герои будут?
ardn; user621724_Dimav1979; +2 – Ответить
4. Alxby 1114 19.01.23 11:52 Сейчас в теме
(3)Если имеется в виду HMM - то нет, не в моих это возможностях. А если героями считать тех, кто сможет с первого раза выиграть во все планируемые игры, то может быть и будут.
Ingraf; ixijixi; +2 – Ответить
22. sifftsov 25 23.01.23 11:47 Сейчас в теме
(4) HMM были реализованы ещё на 1С 7.7. У меня где-то лежал архив с играми на семёрке. Там, наверное десятка два игр было.... Причем в HMM была анимация, что меня несколько поразило.))))
+ – Ответить
23. Alxby 1114 23.01.23 15:14 Сейчас в теме
(22)Если найдете - дайте ссылку. Вообще, в 77 многие вещи, в том числе и игры, делаются проще...
+ – Ответить
5. kembrik 10 19.01.23 14:32 Сейчас в теме
(3) Есть King's Bounty)
https://infostart.ru/public/1448104/
erutan; +1 – Ответить
6. Alxby 1114 19.01.23 14:38 Сейчас в теме
(5)Да, это колоссальный труд. В статье тоже ее упомянул.
+ – Ответить
7. gooket 19.01.23 17:39 Сейчас в теме
Я джва года хочу такую игру.
user621724_Dimav1979; pavlov_dv; +2 – Ответить
8. Alxby 1114 19.01.23 17:49 Сейчас в теме
(7)только корованы здесь грабить нельзя...
gooket; +1 – Ответить
11. user621724_Dimav1979 410 20.01.23 11:42 Сейчас в теме
(7) а можно в ней грабить корованы?
+ – Ответить
15. gooket 20.01.23 13:03 Сейчас в теме
(11) Пользователь может играть лесными эльфами, охраной дворца и злодеем. И если пользователь играет эльфами то эльфы в лесу, домики деревяные набигают солдаты дворца и злодеи. Можно грабить корованы... И эльфу раз лесные то сделать так что там густой лес... А движок можно поставить так что вдали деревья картинкой, когда подходиш они преобразовываются в 3-хмерные деревья. Можно покупать и т.п. возможности как в Daggerfall. И враги 3-хмерные тоже, и труп тоже 3д. Можно прыгать и т.п. Если играть за охрану дворца то надо слушаться командира, и защищать дворец от злого (имя я не придумал) и шпионов, партизанов эльфов, и ходит на набеги на когото из этих (эльфов, злого…). Ну а если за злого… то значит шпионы или партизаны эльфов иногда нападают, пользователь сам себе командир может делать что сам захочет прикажет своим войскам с ним самим напасть на дворец и пойдет в атаку. Всего в игре 4 зоны. Т.е. карта и на ней есть 4 зоны, 1 - зона людей (нейтрал), 2- зона императора (где дворец), 3-зона эльфов, 4 - зона злого… (в горах, там есть старый форт…)
+ – Ответить
16. Alxby 1114 20.01.23 13:19 Сейчас в теме
(15)...Так же чтобы в игре могли не только убить но и отрубить руку и если пользователя не вылечат то он умрет, так же выколоть глаз но пользователь может не умереть а просто пол экрана не видеть, или достать или купить протез, если ногу тоже либо умреш либо будеш ползать либо на коляске котаться, или самое хорошее... поставить протез. Сохранятся можно...
+ – Ответить
9. Obertone 77 19.01.23 18:44 Сейчас в теме
Отличная идея! Создавал на 1С подобную игру с числами «NERDLE» в шестикратном варианте: https://infostart.ru/public/1640276/
RustIG; +1 – Ответить
10. sanek_kop 15 20.01.23 10:32 Сейчас в теме
Согласен, что игры интереснее писать нежели какие-то стандартные "программистские дела". Когда-то решил написать 2048 на 7.7 (https://infostart.ru/public/401256/), пришлось поломать голову над алгоритмом немного.
Alxby; +1 – Ответить
14. Alxby 1114 20.01.23 12:02 Сейчас в теме
(10)Интересно было бы узнать о каком алгоритме речь
+ – Ответить
17. sanek_kop 15 20.01.23 15:22 Сейчас в теме
(14) Про алгоритм "схлопывания" чисел. После написания в лоб, выяснилась ошибка при которой не все "схлопывалось", что должно. На просторах инфостарта находил игру, где это выдавалось за "фичу" игры.
+ – Ответить
18. Alxby 1114 20.01.23 15:25 Сейчас в теме
(17)Понятно. А не думали над алгоритмом появления новых чисел, чтобы затруднить или облегчить игру?
+ – Ответить
20. sanek_kop 15 20.01.23 15:52 Сейчас в теме
(14)
(18)Именно затруднить или облегчить, нет. Я игрался с вероятность появления 2 и 4, чтобы органично игралось. В первых вариантах она была одинаковая и сильно заметно было, что что-то не так с игрой.
+ – Ответить
21. sanek_kop 15 20.01.23 15:54 Сейчас в теме
(20)У меня изначально идея была понять на сколько реально дойти до конца игры. Потому я и сделал сохранения, чтобы в случае ошибки можно было откатиться и переиграть.
+ – Ответить
12. ASDF2 288 20.01.23 11:50 Сейчас в теме
Даешь больше игр! Делал когда-то такую же на обычных формах https://infostart.ru/public/18316/
Alxby; +1 – Ответить
13. Alxby 1114 20.01.23 11:57 Сейчас в теме
(12)Надо же, "Шпиль" - еще одно название
+ – Ответить
19. Alexei_Siva 203 20.01.23 15:27 Сейчас в теме
Плюс за тему игр.
Полтора месяца назад опубликовал игру, идею о которой вынашивал больше 10 лет, но что-то плюсов собрала)
Obertone; +1 – Ответить
24. RustIG 1748 30.01.23 15:26 Сейчас в теме
(0) Позволите немного рефакторинга кода? 
Процедура НачалоНаКлиенте()
	...
	Генератор = Новый ГенераторСлучайныхЧисел(ТекущаяУниверсальнаяДатаВМиллисекундах());	
	
	Для с = 1 По 3 * НастройкиИгры.ШиринаПоля Цикл  		
		Данные.Добавить(Цифры[Генератор.СлучайноеЧисло(0, ?(НастройкиИгры.Сложность = 0, 3, ?(НастройкиИгры.Сложность = 1, 5, 8)))]);
	КонецЦикла;
	
	....
КонецПроцедуры
Показать


Я завис на такой конструкции, разбирая код. Воспринимается очень сложно часть внутри цикла.

Такой код можно заменить на следующий: 
Процедура НачалоНаКлиенте()
	...
	Генератор = Новый ГенераторСлучайныхЧисел(ТекущаяУниверсальнаяДатаВМиллисекундах());	
	
	Сложность = СоответствиеУровняСложности.Получить(НастройкиИгры.Сложность);
	Для с = 1 По 3 * НастройкиИгры.ШиринаПоля Цикл  		
		Данные.Добавить(Цифры[Генератор.СлучайноеЧисло(0, Сложность)]);
	КонецЦикла;
	
	...
КонецПроцедуры

//Раздел инициализации переменных
СоответствиеУровняСложности = Новый Соответствие;
СоответствиеУровняСложности.Вставить(0, 3);
СоответствиеУровняСложности.Вставить(1, 5);
СоответствиеУровняСложности.Вставить(2, 8);
Показать


В моем виде код легче читаем, быстрее адаптируем, и переменную Сложность рассчитываем один раз, а не внутри цикла.
О подобном способе программирования я написал в своей публикации https://infostart.ru/1c/articles/1768304/
+ – Ответить
28. Alxby 1114 01.02.23 17:42 Сейчас в теме
(24)Согласен, только вместо соответствия лучше использовать массив. А еще лучше - просто вынести тернарный оператор за цикл и заменить его на Если, и не связываться с дополнительными коллекциями. Это не тот случай, когда требуется оставлять возможность кастомизации))).
+ – Ответить
31. RustIG 1748 01.02.23 20:23 Сейчас в теме
(28)
Это не тот случай, когда требуется оставлять возможность кастомизации))).

Я не понял, почему не нужно кастомизировать алгоритм и одновременно использовать нечто для хранения данных?

Я рассуждаю так: если игра на одного человека, то массив для хранения данных не нужен - табличный документ выполняет одновременно роль хранителя данных и представления данных.
Если игра локальная на двоих или троих людей, тогда массив для хранения данных будет обязательным для перерисовки/новой отрисовки табличного поля у каждого игрока после очередного хода другого игрока - то есть массив это буфер данных. А в этом случае интересно будет усложнить настройки игры - расширить поле, расширить уровень сложности (сделать вариантов 10 и больше). Для 10 вариантов уровней сложности писать Если/Тогда будет не комильфо.
Использовать массив вместо соответствия можно лишь для числовых уровней: 0,1,2 и т.д. А если рассмотреть уровни "слабый", "новичок", "профи", "средний" - то подойдет коллекция Соответствие. Универсально для всех случаев.
+ – Ответить
34. Alxby 1114 01.02.23 21:19 Сейчас в теме
(31)И снова Вы правы, но... Все-таки это не та игра, где гибкие настройки значительно повысят качество/интерес/реиграбельность. А для казуальных игр (как эта) обилие настроек, вообще говоря, - зло. Игроку достаточно 2-3 варианта, а не 10-20, он не должен думать над настройками, а должен поскорее начать играть. Отдельный массив для данных нужен, вспомним про MVC. Здесь массив данных - M, а табличный документ - V. Вдобавок я уверен, что доступ для чтения к элементу массива многократно быстрее, чем к ячейке документа, плюс - защита от "повреждения" текста в ячейках документа, плюс - возможность переделки ТабДок на другой вид отображения. Использовать Соответствие для уровней сложности, заданных в текстовом виде - самый правильный вариант, но зачем их создавать в текстовом виде? Преимущества минимальны, но зато мы лишимся упорядочивания (чем больше номер, тем сложнее). И опять же - не та игра, чтобы так усложнять. Если же говорить о качественной архитектуре программного модуля, то самым правильным способом будет вынести в отдельную функцию получение нужного значения в зависимости от настроек сложности. И назвать переменную не "Сложность", а "ИндексКоличестваВариантовДоступныхЦифр" - это более правильно описывает смысл этого значения. Что будет внутри такой функции - каскад "Если" (аналог switch...case), чтение из Соответствия, или что-то другое - уже не так важно. Кстати, именно каскад "Если" - наиболее универсальный вариант.
+ – Ответить
37. RustIG 1748 02.02.23 09:25 Сейчас в теме
(34)
Все-таки это не та игра, где гибкие настройки значительно повысят качество/интерес/реиграбельность.

Да-да, все верно. Буду ждать следующих ваших игр, чтобы развивать мысль.
Я на основе вашей игры стал учить программированию своего сына. Он загорелся, видя что может управлять параметрами игры. Складывать два числа, чтобы в сумме было 10 - это легко. Посложнее это когда надо получить 23 - при этом у игроков игра будет развивать внимательность, счет в уме и т.д. Играть в паре интереснее - из-за соревновательности и непредсказуемости - "твое" число вдруг "съедает" другой игрок - приходится начинать поиск подходящей пары чисел снова.

Полагаю, что на табДоке можно реализовать игру Мемо для всей семьи.
+ – Ответить
25. RustIG 1748 30.01.23 20:12 Сейчас в теме
(0) Значение в ячейке можно получить через конструкцию Число(Таб.ТекущаяОбласть.Текст).
Не понятно, зачем использовать массив для хранения значений ячеек?

Если не использовать массив, то можно игровое поле делать квадратным или вообще любой длины и высоты.
+ – Ответить
26. RustIG 1748 31.01.23 10:10 Сейчас в теме
(25)
можно игровое поле делать квадратным или вообще любой длины и высоты

Подумал и понял, как можно это делать для любой размерности. Для любого массива.
+ – Ответить
29. Alxby 1114 01.02.23 17:46 Сейчас в теме
(25)Методически не очень хорошо использовать табличный документ (т.е. средство представления результата) в качестве хранилища данных. И, да, массив может содержать данные для поля любого размера и соотношения сторон.
+ – Ответить
30. RustIG 1748 01.02.23 19:07 Сейчас в теме
(29) ясно, хорошо, понял вас и согласен
+ – Ответить
27. sifftsov 25 01.02.23 12:51 Сейчас в теме
(23) https://infostart.ru/public/16481/
Alxby; +1 – Ответить
33. RustIG 1748 01.02.23 20:35 Сейчас в теме
(27) исходники можете вытащить? а то у меня платформы 7.7 нет.
+ – Ответить
36. Alxby 1114 01.02.23 21:36 Сейчас в теме
(33) может UnPack подойти
+ – Ответить
38. RustIG 1748 02.02.23 09:31 Сейчас в теме
(36) у меня и анпак нет. Представляете весь этот процесс погружения в неизвестность - найти и изучить анпак, затем залезть в исходники 7.7 - чтобы среди многого что-то интересное и полезное вытащить - сложный алгоритм чего-либо....этот процесс - для меня болото, для другого человека возможно нет. Экономика быстрее развивается, когда каждый вносит свой небольшой вклад. Не обращайте внимание на лирику, тут смысл сказанного важен.
+ – Ответить
40. sifftsov 25 02.02.23 09:53 Сейчас в теме
(33)
(38)
Неее. Исходники - это уже сами доставайте. У меня та же проблема. Найти где-то в архивах платформу 7.7, поставить, И повытаскивать исходники. А мне оно надо? У меня на работе сейчас веселье, перетащить данные из УТ 10.3 в УТ 11.4. Если уж по правильному, допустим вы хотите портировать какую-нибудь игру из 7.7 в 8.3 - нужно её запустить в оригинале, посмотреть, как оно работает, и уже потом кодить на 8.3. Например, HMM (Герои Меча и Магии) на 7.7 реализованы интерактивно. Там также движется герой, такие-же подобия лесов, такие-же подобия врагов, встречаясь с которыми ты сражаешься. (Вот только, собственно, сами сражения не реализованы, но это уже мелочи). Вообще, она меня весьма приколола. Может, конечно, убого по сравнению с оригинальными Героями, но всё же...
Так что, всё сами....
Тем более, изначально, вы просили ссылку на игры. Ссылку я дал. )
+ – Ответить
32. RustIG 1748 01.02.23 20:34 Сейчас в теме
Я добавил в игру поле для задания параметра - у вас по умолчанию сумма чисел должна быть равной 10 - я же задаю параметр. Плюс научился подсвечивать ячейки - выделять цветом и толстой рамкой, какие ячейки дают в сумме 10 - как раз для этих целей удобен массив для хранения данных...
...Плюс думаю в сторону представления двумерных массивов через табличный документ: хранение в массивах, представление в табличном поле, как у вас в игре...
+ – Ответить
35. Alxby 1114 01.02.23 21:23 Сейчас в теме
(32)Мне, с одной стороны, приятно, что моя игра дала толчок для таких модификаций, но, право же, есть гораздо более интересные игры для этого, в том числе и на этой площадке. А подсвечивание ячеек слишком облегчает игру, делая ее менее интересной))))
+ – Ответить
39. RustIG 1748 02.02.23 09:34 Сейчас в теме
(35)
Мне, с одной стороны, приятно, что моя игра дала толчок для таких модификаций, но, право же, есть гораздо более интересные игры для этого, в том числе и на этой площадке. А подсвечивание ячеек слишком облегчает игру, делая ее менее интересной))))

да-да , все понимаю. вы хотите понять мой интерес? - у меня их несколько - и они сошлись в одном месте - один из интересов научить ребенка программированию. Я вижу как "подсвечивание" ячеек помогает в этом процессе.
+ – Ответить
Оставьте свое сообщение