Поиск по автору:

Возвращаясь к вышенаписанному:
>Еще раз повторяю себе, не получится тихо пукнуть на работе когда в
>наушниках играет музыка....

С другой стороны, без разницы, как ты это сделаешь, если все вокруг
сидят в наушниках. Главное, лицо поумней, позадумчивей...

ПОКА Флаг_ПолныйЖивот=вранье И ВнутреннийКонтроль=разрешено
начало цикла
Кошелек.Открыть;
ЕСЛИ Кошелек.СуммаНаличности>=Пиво[Клинское.Аррива].Стоимость*2 ТО
начало
Кошелек.ПоложитьДеньги(Продавец.Купить(Пиво[Клинское.Аррива],
Кошелек.ВзятьДеньги(Пиво[Клинское.Аррива].Стоимость));
ВыпитьСДругомПоКружкеПива(Пиво[Клинское.Аррива]);
конец
ИНАЧЕ
ЕСЛИ Друг.Кошелек.Сумма>0 ТО
Кошелек.ПоложитьДеньги(Друг.ЗанятьДеньги(Пиво[Клинское.Аррива].Стоимость*2);
ЕСЛИ Живот.ОпределитьКоличествоПива()>=Живот.Вместимость*0,9 ТО
начало
Флаг_ПолныйЖивот=правда;
ПОПРОБОВАТЬ
СходитьВТуалет;
УСПЕШНО
Флаг_ПолныйЖивот=вранье;
КОНЕЦ
конец;
конец цикла

функция ВнутреннийКонтроль
начало
ЕСЛИ 2*2=4 ТО
ответ=разрешено
ИНАЧЕ
ответ=запрещено
конец

Пиво "Очково": жопой чувствую - говенное пиво!

"Калина красная". Эксплуатация и ремонт автомобилей ВАЗ 2117-2119 BSB
(С) 2005г.