Program Party;
Uses Vine, Zakus, Condoms;

{$I Variable.Pas}

{ Файл с описаниями переменных,типов и других ф-ций и }
{ процедур, а также модулей Vine, Zakus и Condoms }
{ - в одном из следующих выпусков CAD/CAM NEWS. }

Procedure Prepare;
Begin
   Find(House);
   Buy(Bottles);
   Buy(Zakus);
   Buy(Drugs);
   Call(Friends);
   Call(Girls);
End;{ Prepare }

Procedure Drinks;
Begin
   Open(Bottles);
   Repeat
     Drink(Next(Gramms100));
     Zakus:=Eat(Next(Foods));
   Until TwoViewInEyes;
End;{ Drinks }

Procedure Dances;
Begin
   Music:=True;
   Call(OneGirl);
   Go(DancingRoom);
   With Music.Jump Do Begin
   If Girl(Drink)>Normal(Drink) Then Begin
     Touch(AssOfGirl);
     Touch(BrestOfGirl);
   End
   Else Begin
     Go(DrinkingRoom);
     Let`s(Girl):=Drinks(More);
     Return(DancingRoom);
   End;
  End;
End;{ Dances }

Procedure Drug;
   Var
     Good, VeryGood: Virtual, Abstract;
Begin
   If Drugs=False Then Goto NoDrugsNow;
   Case Drug Of
     Plan: Repeat Smoke(Plan) Until Good;
     Cocain: Repeat Inspire(Gramms0.5); Wait(Seconds30) Until Good;
     Wheels: While Not(VeryGood) Do
     Begin
       Swallow(Wheel6);
       Wait(Minutes30);
     End;
   End; { Case }
End; { Drug }


Procedure Fuck( Who : Sex );
   Var
     HowMany: LongInt;
Begin
   If Who<>Girl Then Write('Are yor sodomite ??!');
   Find(DarkRoom);
   Close(Door);
   Close(Windows);
   If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
   HowMany:=0;
   Repeat
     Call(Next(Who));
     Delete(DressOf(Who));
     Kiss(Lips,Brest,OtherPartsOfBody);
     Repeat
       Asm
         PUSH YourPenis
         POP YourPenis
       End;
     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;
   Drug(All);
   Fuck(Girls);
   Go(AtHomes);
End.{ Main Program }
Г Л О С С А Р И Й ( Б А З А Р И К )

• Prepare - приготовления
• Buy - купить
• Drug - наркотик
• TwoViewInEyes - двоение в глазах
• Touch - касание, прикосновение
• Ass - задница
• Brest - сиськи
• More - больше
• Dark - темный
• OtherPartsOfBody - другие части тела
• FaceDown - мордой вниз (об стол)