программа ... вечеринки

//created by Baal.   v1.0
Перем Опьянение;

Функция ВзятьПиво(Деньги);                                                          
    ПивоУнас = СоздатьОбъект("СписокЗначений");
    Для к=1 По Окр((Деньги.Количество()/25),0) Цикл //будем пить Холстен по 25р штука :)
        ПивоУНас.ДобавитьЗначение("Бутылка");
    КонецЦикла;    
    Возврат  ПивоУНас.КоличествоБутылок();
КонецПроцедуры   
//*******************************************
Процедура ПитьПиво(Пиво);
    Пока (Пиво>=0) ИЛИ (СтоятьНаНогах > -10) ИЛИ (ХочуПоссать <4) Цикл
        Пиво = Пиво - 1;
        Опьянение = Опьянение + 1;   
        ХочуПоссать = ХочуПоссать + 0.25;
        Если Опьянение = 10 Тогда
            СтоятьНаНогах = 0;
            ХочуПоссать = ХочуПоссать + 0.5;
            Предупреждение("А не хватит ли мне ??");
        ИначеЕсли Опьянение = 25 Тогда
            СтоятьНаНогах = -1;
            ХочуПоссать = ХочуПоссать + 1;
            Предупреждение("Нихрена нажрался ...");
        ИначеЕсли Опьянение = 40 Тогда
            СтоятьНаНогах = -10;
            ХочуПоссать = ХочуПоссать + 1.5;
        КонецЕсли;
        Если ХочуПоссать >= 4 Тогда
            Поссать();
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры                              
//*******************************************
Процедура Выходные()                                                      
    Перем Бутылка;
    Деньги = СоздатьОбъект("Лавандос");
    Пиво = СоздатьОбъект("Бухло");
    Телка = СоздатьОбъект("Телка.НеСтрашная");
   
    КолвоПиваВНаличии = ВзятьПиво(Деньги);  
    Бутылка = "Бутылка_1шт";
   
    Если РасстояниеДоХаты <= 100 Тогда //в метрах
        КолвоПиваВНаличии = КолвоПиваВНаличии - КоличествоЧеловек*Бутылка;
    КонецЕсли;      
   
    Для к=1 По ЖеланиеНажраться.Сила Цикл
        ПитьПиво(КолвоПиваВНаличии);        
    КонецЦикла;
   
    Если (Телка.Количество()>=1) И (СвободнаяКомната <> 0) Тогда    
        Пока Телка.Ломается()=1 Цикл
            Телка.ПитьПиво(КолвоПиваВНаличии);
        КонецЦикла;
       
        ЕслиВсеЕще Телка.Ломается()=1 Тогда
            Предупреждение("Да пошла ты, дура пьяная !!!");
            Телка.Выгнать(1);
            ПитьПиво(КолвоПиваВНаличии);
        КонецВсеЕщеЕсли;
        КонецЕсли;
        Если Телка.КоличествоОдежды()>0 Тогда
            Телка.Раздеть("ИнеПи##еть");   // :))
        КонецЕсли;
        Раз = 1; // 8)
        Пока Стоит = 1  Цикл
            Раз = Раз + 1;
            ВставитьЧлен(1);
            ВставитьЧлен(0);
            ?(Кончить = 1,Прервать,Продолжить);
            Если Раз >= 100 Тогда
                ПитьПиво(КолвоПиваВНаличии);
                Действие = ?(Опьянение>=100,Отрубиться,ВзятьПиво(Деньги));
                Выполнить(Действие);
            КонецЕсли;
        КонецЦикла;
    Иначе
        Пока Деньги.Количество() > -1000 Цикл
            КолвоПиваВНаличии = КолвоПиваВНаличии + ВзятьПиво(Деньги);
            ПитьПиво(КолвоПиваВНаличии);      
        КонецЦикла;  
    КонецЕсли;
КонецПроцедуры
//*******************************************
Опьянение = 2;            //задавать перед запуском Выходные()
СтоятьНаНогах = 1;
ХочуПоссать = 0;