Sergei 13 Nahlásit příspěvěk Odesláno March 25, 2004 Please, code inspection....----------------------------------------------- Program Party;Uses Vine, Food, Condoms;{$I Variable.Pas}Procedure Prepare;BeginFind(House);Buy(Bottles);Buy(Food);Call(Friends);Call(Girls);End;{ Prepare }Procedure Drinks;BeginOpen(Bottles);RepeatDrink(Next(Gramms100));Food:=Eat(Next(Foods));Until TwoViewInEyes;End;{ Drinks }Procedure Dances;BeginMusic:=True;Call(OneGirl);Go(DancingRoom);With Music.Jump DoBeginIf Girl(Drink)>Normal(Drink) ThenBeginTouch(AssOfGirl);Touch(BreastOfGirl);EndElseBeginGo(DrinkingRoom);Let`s(Girl):=Drinks(More);Return(DancingRoom);End;End;End;{ Dances }Procedure Fuck( Who : Sex );VarHowMany: LongInt;BeginIf WhoGirl Then Write('Are yor sodomite ??!');Find(DarkRoom);Close(Door_and_windows);If Not Find(BedInRoom) Then BedInRoom:=AnyTable; HowMany:=0;RepeatCall(Next(Who));Delete(DressOf(Who));Kiss(Lips,Breast,OtherPartsOfBody);RepeatAsmPUSH YourPenisPOP? YourPenisEnd;Until YouHaveOrgasm;Case HowMany of Inc(HowMany);If (HowMany mod 15 = 0) Then Write('You are BIG man !!!');Until YourPenisStay;End;{ Fuck }Begin { Party - Main Program }Prepare;Drinks;If Who(Drink)>Normal(Drink) Then Who:=FaceDown; Dances;Fuck(Girls);Go(AtHomes);End.{ Main Program } ----------------Кстати, там есть одна ошибка. Нет тела подпрограммы Go. Quote Sdílet tento příspěvek Odkaz na příspěvek Sdílet na ostatní stránky
Sergei 13 Nahlásit příspěvěk Odesláno March 25, 2004 Вот еще в тему.... "Вы идете правильной дорогой, если: - ваша мать, глядя теленовости, называет правительство "ламерымастдайные"- вы регулярно ложитесь спать в 9 часов... утра, разумеется- на вопрос вашей знакомой "куда бы нам сегодня пойти?" выназываете адрес заинтересовавшего вас сайта- и вашу знакомую это не удивляет, ибо именно это она и имелав виду- сумма денег является для вас абстрактным набором цифр, покавы не прикинете, сколько памяти на нее можно купить- падение курса рубля волнует вас намного меньше, чем падениечисла посетителей на вашей страничке- вы не успеваете отвечать на всю приходящую почту, однако,обнаружив, что свежей почты нет, сильно огорчаетесь- если вам случается заболеть, вы передвигаете свою кроватьк столу с компьютером, чтобы можно было читать почту лежа- вы полагаете, что бумажная почта - это е-мэйл, распечатанныйна принтере- вы удивлены, почему до сих пор не налажен выпускводонепроницаемых компьютеров, с которыми можно мыться- если по телевизору показывают включенный компьютер, выпытаетесь на глаз определить, какая операционная система на немустановлена, причем это занимает вас гораздо больше,чем телепередача- если вы читали "Войну и мир", то не можете понять, чем таквпечатлила Андрея Болконского заставка виндов на Аустерлице- вы можете выразить сколь угодно сложную мысль при помощи слов"sux", "rulez", "баг" и "фича"- вы считаете, что единицами скорости являются мегагерц и cps,веса - мегабайт, а длины - минута- вас огорчило, что вы соответствуете не всем вышеперечисленнымпунктам Сперто отсюда:http://anekdot.perekur.ru/super1.shtml Quote Sdílet tento příspěvek Odkaz na příspěvek Sdílet na ostatní stránky