Program Party;
Uses Vine, Zakus, Condoms;

{$I Variable.Pas}

{Файл с описаниями пеpеменных,типов и дpyгих
ф-ций и}
{пpоцедyp, а также модyлей Vine, Zakus и Condoms}
{- в одном из следyющих выпyсков 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 }

Оставить мнение

Check Also

Windows 10 против шифровальщиков. Как устроена защита в обновленной Windows 10

Этой осенью Windows 10 обновилась до версии 1709 с кодовым названием Fall Creators Update …