Предлагаю алгоритм автоматического решателя:
//--- 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 ---
ОткрытьСмежныеЯчейки(Поле, ЭлементыФормы.Поле);
КонецПроцедуры
Показать
Всё! Теперь после клика на ячейку - будет открыта часть поля, затем анализируются клетки окружения, выставляются флажки и открываются клетки... Т.е., компьютер уже думает за нас :)
