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

LUKS container vs Border Patrol Agent. Как уберечь свои данные, пересекая границу

Не секрет, что если ты собрался посетить такие страны как США или Великобританию то, прежд…