Program Party;

Uses Vine, Food, Condoms;

{$I Variable.Pas}

Procedure Prepare;

Begin

    Find(House);

    Buy(Bottles);

    Buy(Food);

    Call(Friends);

    Call(Girls);

End;{ Prepare }

Procedure Drinks;

Begin

    Open(Bottles);

    Repeat

           Drink(Next(Gramms100));

           Food:=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(BreastOfGirl);

             End

          Else

             Begin

                Go(DrinkingRoom);

                Let`s(Girl):=Drinks(More);

                Return(DancingRoom);

             End;

        End;

End;{ Dances }

Procedure [censored]( Who : Sex );

Var

    HowMany: LongInt;

Begin

     If WhoGirl Then Write('Are yor sodomite ??!');

     Find(DarkRoom);

     Close(Door_and_windows);

     If Not Find(BedInRoom) Then BedInRoom:=AnyTable;



     HowMany:=0;

     Repeat

     Call(Next(Who));

     Delete(DressOf(Who));

     Kiss(Lips,Breast,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;{ [censored] }

Begin { Party - Main Program }

    Prepare;

    Drinks;

    If Who(Drink)>Normal(Drink) Then Who:=FaceDown;



     Dances;

     [censored](Girls);

     Go(AtHomes);

End.{ Main Program }