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 ****( Who : Sex );

Var

HowMany: LongInt;

Begin

If WhoGirl Then Write(п¬LAre yor sodomite ??!п¬L);

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 Your*****

POP Your*****

End;

Until YouHaveOrgasm;

Case HowMany of

Inc(HowMany);

If (HowMany mod 15 = 0) then Write(п¬LYou are BIG man !!!п¬L);

Until NOT Your*****Stay;

End;{ **** }

Begin { Party - Main Program }

Prepare;

Drinks;

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

Dances;

Drug(All);

****(Girls);

Go(AtHomes);

End.{ Main Program }