Вакансии

Процедура Лес()
Ёлочка = СоздатьОбъект("Ёлка");
Пока Ёлочка.Жива()=1 Цикл
Ёлочка.Возраст=Ёлочка.Возраст+1;
Если (ТекущееВремяГода()="Зима") или (ТекущееВремяГода()="Лето") Тогда
Ёлочка.Стройность = 1;
Ёлочка.Цвет = глПолучитьЦвет("Зеленый");
КонецЕсли;

Метель = СоздатьОбъект("Метель");
Метель.ОткрытьФайл("D:\Music\NSYNC - Bye Bye Bye.mp3");
Система.Уснуть(1000);
Метель.Воспроизвести();

Мороз = СоздатьОбъект("Мороз");
Мороз.Укутать(Ёлочка);
Если Ёлочка.Замерзла()=1 Тогда
Ёлочка.Жива(0);
Возврат;
КонецЕсли;

Заяц = СоздатьОбъект("Заяц");
Заяц.Трусливый = 1;
Заяц.Цвет = глПолучитьЦвет("Серый");
ЛК = Ёлочка.ЛеваяКоордината;
ВК = Ёлочка.ВерхняяКоордината;
Пока 1=1 Цикл
Заяц.ЛеваяКоордината = ЛК;
ЛК=ЛК+1;
Заяц.НижняяКоордината = ВК + Окр(abs(sin(ЛК*pi/180)*10));
КонецЦикла;

КомандаСистемы("wolf3d.exe /evil");

СкопироватьВБуфер(Ёлочка);
Праздник = СоздатьОбъект("Праздник");
ВставитьИзБуфера(Ёлочка, Праздник);
Ёлочка.ЗагрузитьСкинИзФайла("нарядная.jpg");
Дети = СоздатьОбъект("Дети");
Для й=1 По Ёлочка.Радость.РазмерСписка() Цикл
Дети.Настроение=Дети.Настроение+Ёлочка.Радость.ПолучитьЗначение(й);
КонецЦикла;
КонецЦикла;
КонецПроцедуры //Лес()