Конкурс ко Дню программиста – разыгрываем бесплатное онлайн-участие в Infostart Event 2019!

Пока Орки.Количество() > 0 Цикл
     Если Ельф.Стрелы.Количество() >0 Тогда
          Цель = Ельф.НайтиБлижайшуюДоступнуюЦель(Орки);
          Если Цель <> неопределено Тогда
                 Ельф.Стрелять(Цель); //Считаем что эльф не промахивается и всегда убивает - для простоты
                 Если Орки.Количество()=0 Тогда
                      прервать;
                 КонецЕсли;
                 Враг = Ельф.НайтиБлижайшуюДоступнуюЦель(Орки);
                 Если Ельф.ВычислитьРасстояниеДоЦели(Враг) > Ельф.ВычислитьРасстояниеДоЦели(Цель) + мМинДопуск
                       И Ельф.ВычислитьРасстояниеДоЦели(Цель) <= мМинДопуск
                 Тогда
                        Ельф.Бежать(СтратегияБега.Напрямую, Цель);
                 Иначе
                        Ельф.Бежать(СтратегияБега.РадиальныйБегОт, Враг);
                 КонецЕсли;
                 Ельф.Память.Добавить(Цель); //Запмнили место последне жертвы  - там стрела
          Иначе
                 Враг = Ельф.НайтиБлижайшуюЛюбуюЦель(Орки); //Из тех целей, что видит Эльф - считаем что видит он дальше, чем стреляет
                 Если  Враг <> неопределено Тогда
                      Ельф.Бежать(СтратегияБега.Напрямую, Враг);
                 Иначе
                     Елфь.Стоять(); //Ждём когда орки нас сами найдут, ну или бежать к выходу - но он в условии задачи не задан
                 КонецЕсли;
          КонецЕсли;

     Иначе  //Стрел  нет
                 Враг = Ельф.НайтиБлижайшуюДоступнуюЦель(Орки);
                 Стрела = Ельф.Память.НайтиЛюбойПоТипу(Тип("Стрела"));
                 Если Стрела=неопределенно Тогда
                        ВызватьИсключение "Недопустимое состояние: Эльф забыл где он выпустил стрелу";
                 КонецЕсли;
                 раст = Ельф.ВычислитьРасстояниеДоЦели(Стрела);
                 Если Враг = неопределено 
                   или (Ельф.ВычислитьРасстояниеДоЦели(Враг) > Ельф.ВычислитьРасстояниеДоЦели(Стрела) + мМинДопуск
                       И раст <= мМинДопуск)
                 Тогда
                        Если раст < Ельф,РастояниеПодбора Тогда //В пределах досягаемости для подбора стрелы
                              Ельф.Подобрать(Стрела);
                              Ельф.Память.Удалить(Стрела);
                        Иначе
                              Ельф.Бежать(СтратегияБега.Напрямую, Стрела);
                        КонецЕсли;
                 Иначе
                        Ельф.Бежать(СтратегияБега.РадиальныйБегОт, Враг);
                 КонецЕсли;
     КонецЕсли;
КонецЦикла;

//Ельф победил
Стрела = Ельф.Память.НайтиЛюбойПоТипу(Тип("Стрела"));
Если Стрела <> неопределено Тогда //Ситуацияс неопределено возможна только если орки могут сами умирать или орки кончились
     Ельф.Память.Удалить(Стрела); //хотя на месте эльфа я бы за стрелой всё равно сходил, но задача этого не требует, поэтому чистим память
КонецЕсли;