Игра Змейка с автопилотом

&НаКлиенте
Процедура А0_ГоловнойАвтомат(е) 
	у = Состояния.у0;
	
	ИмяА= "А0_ГоловнойАвтомат";
	ЛогНачалоА(ИмяА, у, е);
	
	Если у = "1_Игра" Тогда 
		А3_ОбработкаСобытийИгры(е);
		
		Если е = "е7_НажатаКнопкаЗавершитьИгру" Или Состояния.у2 = "2_ТелоЗмейки" Или Состояния.у2 = "3_Препятствие" Тогда
			у = "0_Стоп";
			
		ИначеЕсли Состояния.у2 = "1_Яблоко" И х4_СледующийУровень() Тогда
			у = "3_СледующийУровень";
			
		ИначеЕсли е = "е5_НажатаКнопкаИграть" Тогда
			у = "2_Пауза";
			
		Иначе
			z7_Обработчик_Ожидания(1);
			
		КонецЕсли;
		
	ИначеЕсли у = "0_Стоп" Тогда 
		
		Если е = "е5_НажатаКнопкаИграть" И Не х5_ЭтоПервыйУровень() Тогда
			z11_ДиалогОСледующемУровне(1);
			
		ИначеЕсли е = "е5_НажатаКнопкаИграть" Или е = "е9_ПродолжитьТекущийУровень" Тогда 
			у = "1_Игра";
			z9_УстановитьДоступностьКнопкиЗавершить(1);
			z10_Игра(2);
			
		ИначеЕсли е = "е10_НачатьСначала" Тогда
			у = "1_Игра";
			z9_УстановитьДоступностьКнопкиЗавершить(1);
			z10_Игра(0);
			z10_Игра(2);
			
		ИначеЕсли е = "е0_Инициализировать" Тогда 
			z10_Игра(0);
			
		КонецЕсли;
		
	ИначеЕсли у = "2_Пауза" Тогда 
		
		Если е = "е7_НажатаКнопкаЗавершитьИгру" Или Состояния.у2 = "2_ТелоЗмейки" Или Состояния.у2 = "3_Препятствие" Тогда
			у = "0_Стоп";
			
		ИначеЕсли е = "е5_НажатаКнопкаИграть" Тогда
			у = "1_Игра";
			
		КонецЕсли;
		
	ИначеЕсли у = "3_СледующийУровень" Тогда 
		
		Если е = "е8_НачатьСледующийУровень" Тогда
			у = "1_Игра";
			z10_Игра(1);
			z10_Игра(2);
			
		Иначе
			у = "0_Стоп";
		КонецЕсли;
		
	Иначе 
		Лог(СтрШаблон("Ошибка в автомате %1: неизвестный номер состояния! - %2", ИмяА, у));
	КонецЕсли;
	
	Если у <> Состояния.у0 Тогда ЛогПереходА(ИмяА, Состояния.у0, у);
		Состояния.у0 = у;
		
		Если у = "1_Игра" Тогда 
			А3_ОбработкаСобытийИгры("е0_Инициализировать");
			z8_ОтбразитьНадписьНаКнопкеИграть(2);
			z7_Обработчик_Ожидания(1);
			
		ИначеЕсли у = "0_Стоп" Тогда 
			z7_Обработчик_Ожидания(0);
			z8_ОтбразитьНадписьНаКнопкеИграть(1);
			z9_УстановитьДоступностьКнопкиЗавершить(0);
			
		ИначеЕсли у = "2_Пауза" Тогда 
			z7_Обработчик_Ожидания(0);
			z8_ОтбразитьНадписьНаКнопкеИграть(3);
			
		ИначеЕсли у = "3_СледующийУровень" Тогда 
			z7_Обработчик_Ожидания(0);
			z11_ДиалогОСледующемУровне(0);
			
		Иначе 
			Лог(СтрШаблон("Ошибка в автомате %1: неизвестный номер состояния! - %2", ИмяА, у));
		КонецЕсли;
		
	КонецЕсли; 
	
	ЛогКонецА(ИмяА, е, у);
	
КонецПроцедуры 

&НаКлиенте
Процедура А3_ОбработкаСобытийИгры(е) 
	у = Состояния.у3;
	
	ИмяА= "А3_ОбработкаСобытийИгры";
	ЛогНачалоА(ИмяА, у, е);
	
	Если у = "0_РучноеУправление" Тогда 
		
		Если х6_УстановленАвтопилот() Тогда
			у = "1_Автопилот";
			z13_ПостроитьМаршрутДоЯблока();
			z14_ОбработатьНаправлениеПоМаршруту(е);
			
		Иначе
			z15_ОбработатьНаправлениеПоСобытию(е);
			
		КонецЕсли;
		
	ИначеЕсли у = "1_Автопилот" Тогда 
		
		Если Не х6_УстановленАвтопилот() Тогда
			у = "0_РучноеУправление";
			z15_ОбработатьНаправлениеПоСобытию(е);
			
		ИначеЕсли е = "е0_Инициализировать" Или Состояния.у2 = "1_Яблоко" Тогда
			z13_ПостроитьМаршрутДоЯблока();
			z14_ОбработатьНаправлениеПоМаршруту(е);
			
		Иначе
			z14_ОбработатьНаправлениеПоМаршруту(е);
			
		КонецЕсли;
		
	Иначе 
		Лог(СтрШаблон("Ошибка в автомате %1: неизвестный номер состояния! - %2", ИмяА, у));
	КонецЕсли;
	
	Если у <> Состояния.у3 Тогда ЛогПереходА(ИмяА, Состояния.у1, у);
		Состояния.у3 = у;
	КонецЕсли; 
	
	ЛогКонецА(ИмяА, е, у);
	
КонецПроцедуры 

&НаКлиенте
Процедура А1_НаправлениеЗмейки(е) 
	у = Состояния.у1;
	
	ИмяА= "А1_Движение";
	ЛогНачалоА(ИмяА, у, е);
	
	Если у = "1_Верх" Тогда 
		
		Если е = "е1_НажатаКнопкаВерх" Или е = "е6_СработалОбработчикОжидания" Тогда
			z1_СдвинутьКоординатыГоловы(1, у);
			z6_СделатьШаг();
			
		ИначеЕсли е = "е2_НажатаКнопкаПраво" Тогда у = "2_Право";
		ИначеЕсли е = "е3_НажатаКнопкаНиз" Тогда
		ИначеЕсли е = "е4_НажатаКнопкаЛево" Тогда у = "4_Лево";
		КонецЕсли;
		
	ИначеЕсли у = "2_Право" Тогда 
		
		Если е = "е1_НажатаКнопкаВерх" Тогда у = "1_Верх";
		ИначеЕсли е = "е2_НажатаКнопкаПраво" Или е = "е6_СработалОбработчикОжидания" Тогда
			z1_СдвинутьКоординатыГоловы(2, у);
			z6_СделатьШаг();
			
		ИначеЕсли е = "е3_НажатаКнопкаНиз" Тогда у = "3_Низ";
		ИначеЕсли е = "е4_НажатаКнопкаЛево" Тогда
		КонецЕсли;
		
	ИначеЕсли у = "3_Низ" Тогда 
		
		Если е = "е1_НажатаКнопкаВерх" Тогда
		ИначеЕсли е = "е2_НажатаКнопкаПраво" Тогда у = "2_Право";
		ИначеЕсли е = "е3_НажатаКнопкаНиз" Или е = "е6_СработалОбработчикОжидания" Тогда
			z1_СдвинутьКоординатыГоловы(3, у);
			z6_СделатьШаг();
			
		ИначеЕсли е = "е4_НажатаКнопкаЛево" Тогда у = "4_Лево";
		КонецЕсли;
		
	ИначеЕсли у = "4_Лево" Тогда 
		
		Если е = "е1_НажатаКнопкаВерх" Тогда у = "1_Верх";
		ИначеЕсли е = "е2_НажатаКнопкаПраво" Тогда
		ИначеЕсли е = "е3_НажатаКнопкаНиз" Тогда у = "3_Низ";
		ИначеЕсли е = "е4_НажатаКнопкаЛево" Или е = "е6_СработалОбработчикОжидания" Тогда
			z1_СдвинутьКоординатыГоловы(4, у);
			z6_СделатьШаг();
			
		КонецЕсли;
		
	Иначе 
		Лог(СтрШаблон("Ошибка в автомате %1: неизвестный номер состояния! - %2", ИмяА, у));
	КонецЕсли;
	
	Если у <> Состояния.у1 Тогда ЛогПереходА(ИмяА, Состояния.у1, у);
		Состояния.у1 = у;
		
		Если у = "1_Верх" Тогда 
			z1_СдвинутьКоординатыГоловы(1, у);
			z5_УстановитьВидГоловы(1, "A");
			z6_СделатьШаг();
			
		ИначеЕсли у = "2_Право" Тогда 
			z1_СдвинутьКоординатыГоловы(2, у);
			z5_УстановитьВидГоловы(2, ">");
			z6_СделатьШаг();
			
		ИначеЕсли у = "3_Низ" Тогда 
			z1_СдвинутьКоординатыГоловы(3, у);
			z5_УстановитьВидГоловы(3, "V");
			z6_СделатьШаг();
			
		ИначеЕсли у = "4_Лево" Тогда 
			z1_СдвинутьКоординатыГоловы(4, у);
			z5_УстановитьВидГоловы(4, "<");
			z6_СделатьШаг();
			
		Иначе 
			Лог(СтрШаблон("Ошибка в автомате %1: неизвестный номер состояния! - %2", ИмяА, у));
		КонецЕсли;
		
	КонецЕсли; 
	
	ЛогКонецА(ИмяА, е, у);
	
КонецПроцедуры 

&НаКлиенте
Процедура А2_СделатьШаг() 
	у = Состояния.у2;
	
	ИмяА= "А2_СделатьШаг";
	ЛогНачалоА(ИмяА, у);
	
	// Определяем текущее состояние.
	Если у = "0_Пусто" Тогда 
		
		Если х1_ЭтоЯблоко() Тогда у = "1_Яблоко";
		ИначеЕсли х2_ЭтоТелоЗмейки() Тогда у = "2_ТелоЗмейки";
		ИначеЕсли х3_ЭтоПрепятствие() Тогда у = "3_Препятствие";
		КонецЕсли;
		
	ИначеЕсли у = "1_Яблоко" Тогда 
		
		Если х1_ЭтоЯблоко() Тогда
		ИначеЕсли х2_ЭтоТелоЗмейки() Тогда у = "2_ТелоЗмейки";
		ИначеЕсли х3_ЭтоПрепятствие() Тогда у = "3_Препятствие";
		Иначе у = "0_Пусто";
		КонецЕсли;
		
	ИначеЕсли у = "2_ТелоЗмейки" Тогда у = "0_Пусто";
	ИначеЕсли у = "3_Препятствие" Тогда у = "0_Пусто";
	Иначе 
		Лог(СтрШаблон("Ошибка в автомате %1: неизвестный номер состояния! - %2", ИмяА, у));
	КонецЕсли;
	
	Если у <> Состояния.у2 Тогда ЛогПереходА(ИмяА, Состояния.у2, у);
		Состояния.у2 = у;
	КонецЕсли; 
	
	// Выполняем действия в текущем состоянии.
	Если у = "0_Пусто" Тогда 
		z2_УдалитьХвост();
		z3_ВставитьГолову();
		
	ИначеЕсли у = "1_Яблоко" Тогда 
		z3_ВставитьГолову();
		z4_ДобавитьЯблоко();
		z12_ОбновитьОстатокЯблокДоСледующегоУровня();
		
	ИначеЕсли у = "2_ТелоЗмейки" Тогда 
		z5_УстановитьВидГоловы(5, "Х");
		z3_ВставитьГолову();
		ПоказатьПредупреждение(, "Змейка воткнулась в свое же тельце :(");
		
	ИначеЕсли у = "3_Препятствие" Тогда 
		z5_УстановитьВидГоловы(5, "Х");
		z3_ВставитьГолову();
		ПоказатьПредупреждение(, "Походу змейка убилась об стену. На этом конец :(");
		
	Иначе 
		Лог(СтрШаблон("Ошибка в автомате %1: неизвестный переход в номер состояния! - %2", ИмяА, у));
	КонецЕсли;
	
	ЛогКонецА(ИмяА, , у);
	
КонецПроцедуры