Дорогие коллеги!

От всей души поздравляем Вас с наступающим Новым Годом и Рождеством!

Новый год - это всегда новые надежды.

Мы уверены - будут удачи, будут чудеса, счастливые возможности, хорошие шансы, помощь влиятельных людей, поддержка друзей!

Будут новые предложения о работе, внезапно подобревшее начальство, премии и льготы!

Беды отступят, здоровье улучшится, настроение повысится, а кризис... ну, если и не пройдет стороной, то будет вести себя подобно вежливому гостю в доме, куда его не особо-то и звали.

Всем, всем - самого лучшего!

А еще - пусть у каждого в самом скором времени после того, как часы 31 декабря пробьют двенадцать, исполнится какое-то светлое и очень нужное желание!

Загадывайте и верьте - чудеса бывают и будут непременно!

Процедура НовыйГод(Коньяк, Виски, Закуска)
    
     Лес = ГлобальныйКонтекст.СоздатьОбъект("Лес");
    
     Ёлочка = Лес.Деревья.Создать(ТипДерева.Ёлочка);
    
     Для Repeat = 1 по 2 Цикл
          Ёлочка.Фигура = ТипыФигуры.Стройная;
          Ёлочка.УстановитьПериодДействияФигуры(ВремяГода.Зима, Неопределено, ВремяГода.Лето, Неопределено);
          Ёлочка.Цвет = WEBЦвета.Зеленый;
 
 Ёлочка.УстановитьПериодДействияЦвета(ВремяГода.Зима, Неопределено, ВремяГода.Лето, Неопределено);
     КонецЦикла;
        
     Метель = ГлобальныйКонтекст.СоздатьОбъект("Ветер");
     Метель.Сила = СилаВетра.Сильный;
     Метель.Опции.Снег = Истина;
     Метель.Опции.ВоспроизводитьЗвук = Истина;
     Метель.Звук = ОткрытьФайл("D:\Music\Bye-Bye.mp3");
    
     Метель.ВключитьЗвукВКонтекст(Ёлочка);
        
 Ёлочка.Listen(Метель);
    
     Мороз = ГлобальныйКонтекст.СоздатьОбъект("Мороз");
     Мороз.Сила = СилаМороза.Средний;
     Мороз.Стабильность = ТипыСтабильности.ТенденцияКУсилению;
     Мороз.Работящий = Истина;
     Мороз.Характер = ТипыХарактеров.ПятьдесятНаПятьдесят;
    
     Для Repeat = 1 по 2 Цикл
          Мороз.ЗасыпатьСнегомКонтекст(Ёлочка);
          Ёлочка.Комфортность = ТипыКомфортности.Тепло;
     КонецЦикла;

    Зайчик = ГлобальныйКонтекст.СоздатьОбъект("Заяц");
     Зайчик.Опции.Трусливый = Истина;
     Зайчик.Цвет = WEBЦвета.Серый;
     Зайчик.Опции.ВидПередвижения = ВидыПередвижения.Скачка;
    
     Зайчик.НачатьДвижениеВокругКонтекста(Ёлочка);
    
     Волк = ГлобальныйКонтекст.СоздатьОбъект("Волк");
    
     Для Repeat = 1 по 2 Цикл
          Волк.Характер = ТипыХарактеров.Сердитый;
          Волк.Опции.ВидПередвижения =

 ВидыПередвижения.Рысца;
          Волк.НачатьДвижениеОколоКонтекста(Ёлочка);
     КонецЦикла;
    
     Зайчик.ОстановитьДвижениеВокругКонтекста(Ёлочка);
     Зайчик.ИзменитьТраекториюДвижения(ВидТраектории.ПрямоИПодальше);
     Зайчик.УстанговитьСкорость(180, ИзмеренияСкорости.КМЧ);
    
     Снег = ГлобальныйКонтекст.СоздатьОбъект("Снег");
     Снег.Тип = ТипыСнега.Скрипучий;
    
     Лошадка =

 ГлобальныйКонтекст.СоздатьОбъект("Лошадь");
     Лошадка.Опции.Запряжена = ТипыЗапрягов.Сани;
    
     Для Repeat = 1 по 2 Цикл
          Лошадка.Мохноногая = Истина;
          Лошадка.Опции.ВидПередвижения = ВидыПередвижения.Бег;
          Лошадка.НачатьДвижениеПоКонтексту(Снег);
     КонецЦикла;
    
     Снег.НачатьИздаватьЗвук();
    
     Сани = Лошадь.Упряжка;
   
 Сани.ДобавитьОбъект(ГлобальныйКонтекст.СоздатьОбъект("Дрова"));
    
     Мужичок = ГлобальныйКонтекст.СоздатьОбъект("Человек");
     Мужичок.Пол = ПолЧеловека.Мужской;
     Мужичок.Размещение = Сани.Объекты["Дрова"];    
     Мужичок.Комфортность = ТипыКомфортности.Холодно;
     Мужичок.ДобавитьОбъект(ГлобальныйКонтекст.СоздатьОбъект("Топор"));;
    
     Для Repeat = 0 по 20 Цикл
          Мужичок.ПринятьНаГрудь(Виски);
        
 Мужичок.ДобавитьОбъект(Закуска);
          Мужичок.Комфортность = ТипыКомфортности.Лучше;
     КонецЦикла;
    
     Для Repeat = 1 по 3 Цикл
          Мужичок.ПринятьНаГрудь(Коньяк);
          Мужичок.ДобавитьОбъект(Закуска);
          Мужичок.Комфортность = ТипыКомфортности.ВащеНиштяк;
     КонецЦикла;
    
     Для Repeat = 1 по 2 Цикл
          Мужичок.ПрименитьОбъектККонтексту(Мужичок.Объекты["Топор"], Ёлочка);
   
 КонецЦикла;
    
     Мужичок.Уснуть();
    
     Ёлочка.Dead = Истина;
    
КонецПроцедуры

прислал NNVla

По многочисленным просьбам, сделал типа репозитория

http://suse.shatki.info/opensuse/alex_plotnikov/BKO/