Игра "Сапер" by STivO (v.1.2)

18.03.13

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

+28 –
> > > >
  • Поле игры
  • Параметры
  • Поле игры
  • Меню
  • О программе
Написана максимально приближенно к оригиналу игры "Сапер" для Windows

Скачать файл

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

Наименование По подписке [?] Купить один файл
Сапер by STivO v.1.2.epf
.epf 118,68Kb
28
28 Скачать (1 SM) Купить за 1 850 руб.
Сапер by STivO v.1.1.epf
.epf 117,02Kb
8
8 Скачать (1 SM) Купить за 1 850 руб.
Сапер by STivO v.1.0.epf
.epf 123,42Kb
25
25 Скачать (1 SM) Купить за 1 850 руб.

Кто не знаком с этой игрой, можете почитать тут http://ru.wikipedia.org/wiki/Сапёр_(игра)

Изменения в версии 1.2:

- Устранены баги при открытии ячеек

Изменения в версии 1.1:

- Открытие ячейки щелчком ЛКМ

- Установка флажков/вопросов щелчком ПКМ

P.S. Идея "отлова" нажатия ЛКМ, ПКМ была взята из статьи Ввод щелчком мыши: правым, левым, двойным


 

Все замечания и предложения приветствуются!

+28 –

См. также

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

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

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

20.02.2025    1388    55    starik-2005    8    

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

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

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

18.02.2025    1179    38    starik-2005    14    

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

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

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

10.01.2025    3899    95    KamranV21    4    

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

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

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

29.12.2024    697    37    miniogn    0    

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

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

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

10.10.2024    50954    PROSTO-1C    55    

171
Морской бой

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

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

29.07.2024    1549    90    user1693438    3    

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

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

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

24.07.2024    1547    112    user2015123    0    

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

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

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

15.04.2024    2129    101    user1693438    3    

18
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Serj1C 483 19.04.12 12:43 Сейчас в теме
Мне понравилось. Единственное, что пришлось поправить - открытие поля одним щелчком мыши (при Активизации Ячейки а не при Выборе)
+ – Ответить
2. STivO 60 19.04.12 12:48 Сейчас в теме
(1) Serj1C, Спасибо. Да, изначально так и было, но в данном случае невозможно было бы установить флажок/метку. Хотя есть те, кто их не используют.
+ – Ответить
3. _apelsin4ik 28.06.12 11:08 Сейчас в теме
Вообще, вполне играбельная программа. Мне понравилась)
+ – Ответить
4. ShantinTD 91 15.08.12 11:17 Сейчас в теме
реально продумал. молодец. борись за правую кнопку.
+ – Ответить
5. codmal 65 18.09.12 10:51 Сейчас в теме
По поводу нерешённой проблемы с управлением (не отлавливается событие ПКМ) :
она решена в публикациях "Ввод щелчком мыши: правым, левым, двойным" и "Игра «Сапёр»"
http://infostart.ru/public/62233/
http://infostart.ru/public/62411/
+ – Ответить
6. DrAku1a 1755 02.01.13 18:51 Сейчас в теме
Предлагаю алгоритм автоматического решателя: 
//--- DrAku1a
// анализ игрового поля, открытие 100% пустых клеток и установка флажков.
// с высокой вероятностью - выигрыш
Функция ОткрытьСмежныеЯчейки(Поле, ЭлементПоле) Экспорт
	фл=ложь;
	Пока СостояниеИгры=1 Цикл
		фл=ложь;
		Для x = 0 по ВысотаПоля - 1 Цикл
			Для y = 0 по ШиринаПоля - 1 Цикл
				чм = Поле[x][y];
				Если (чм>0) и (чм<9) Тогда
					чя = 0;
					Для dx=-1 По 1 Цикл
						Для dy=-1 По 1 Цикл
							xx = x + dx; yy = y + dy;
							Если (dx=0 и dy=0) или (xx<0) или (xx>=ВысотаПоля) или (yy<0) или (yy>=ШиринаПоля) Тогда
								Продолжить;
							КонецЕсли;
							Если Поле[xx][yy]=0 Тогда
								чя = чя + 1;
							ИначеЕсли Поле[xx][yy]=9 Тогда
								чм = чм - 1;
							КонецЕсли;
						КонецЦикла;
					КонецЦикла;				
					Если (чя=чм) и (чм>0) и (чм<9) Тогда
						фл = Истина;
						Для dx=-1 По 1 Цикл
							Для dy=-1 По 1 Цикл
								xx = x + dx; yy = y + dy;
								Если (dx=0 и dy=0) или (xx<0) или (xx>=ВысотаПоля) или (yy<0) или (yy>=ШиринаПоля) Тогда
									Продолжить;
								КонецЕсли;
								Если Поле[xx][yy]=0 Тогда
									Поле[xx][yy]=9;
								КонецЕсли;
							КонецЦикла;
						КонецЦикла;
					ИначеЕсли чм=0 Тогда
						Для dx=-1 По 1 Цикл
							Для dy=-1 По 1 Цикл
								xx = x + dx; yy = y + dy;
								Если (dx=0 и dy=0) или (xx<0) или (xx>=ВысотаПоля) или (yy<0) или (yy>=ШиринаПоля) Тогда
									Продолжить;
								КонецЕсли;
								Если Поле[xx][yy]=0 Тогда
									фл=Истина;
									ЭлементПоле.ТекущаяСтрока = Поле[xx];
									ЭлементПоле.ТекущаяКолонка = ЭлементПоле.Колонки[yy];
									ОткрытьЯчейку();
									Если СостояниеИгры=0 Тогда
										Сообщить("Ой...");
										ИзобразитьЧислоМин();
										Возврат истина;
									КонецЕсли;
								КонецЕсли;
							КонецЦикла;
						КонецЦикла;
					КонецЕсли;
				КонецЕсли;
			КонецЦикла;
		КонецЦикла;	
		Если не фл Тогда
			Прервать;
		КонецЕсли;
	КонецЦикла;
	ИзобразитьЧислоМин();
	Возврат фл;
КонецФункции
Показать

(Прошу прощения за названия переменных)

Далее - в форме - переделываем процедуру 
Процедура ПолеВыбор(Элемент, ВыбраннаяСтрока, Колонка, СтандартнаяОбработка)

	ОткрытьЯчейку();
	
	//DrAku1a ---
	ОткрытьСмежныеЯчейки(Поле, ЭлементыФормы.Поле);
	
КонецПроцедуры
Показать


Всё! Теперь после клика на ячейку - будет открыта часть поля, затем анализируются клетки окружения, выставляются флажки и открываются клетки... Т.е., компьютер уже думает за нас :)
AerinSwift; dimidron1; STivO; +3 – Ответить
7. STivO 60 03.01.13 10:22 Сейчас в теме
(6) DrAku1a, Весьма забавно получилось) С первого хода несколько раз выигрывал, "читерство" получается))
dimidron1; +1 – Ответить
8. пользователь 20.03.13 00:51
Сообщение было скрыто модератором.
...
9. alean 35 23.05.13 11:39 Сейчас в теме
понравилось.
прекрасно реализовано!
+ – Ответить
10. Gendalf_beliy 04.09.14 14:10 Сейчас в теме
я так понял эта обработка для платформы 7.7?
+ – Ответить
11. Ёпрст 1067 04.09.14 13:49 Сейчас в теме
(10) нет, это для снеговика
+ – Ответить
12. STivO 60 04.09.14 14:31 Сейчас в теме
(10) Gendalf_beliy, для 8.2
+ – Ответить
13. Gendalf_beliy 08.09.14 17:56 Сейчас в теме
(10) Gendalf_beliy, для 8.2
(12)
Спасибо за ответ, тогда скачаю.
Просто показалось, что цветовой оформление такое же как у 1с 7.7.
Ксати создание сапер, это одно из заданий обучения 1с для школьников ))
+ – Ответить
Оставьте свое сообщение