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