program Party;
uses Vine, Food, Condoms;
{$I Variable.Pas}
procedure Prepare;
var
HowMany: LongInt;
begin
HowMany:=0;
while (HowMany < Normal(Money)) do inc(HowMany);
if (HowMany div 200 > 0) then Write('You are BIG man !!!');
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 ****( Who: Sex );
begin
if WhoGirl then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door_and_windows);
if Not Find(BedInRoom) then BedInRoom:=AnyTable;
//
repeat
Call(Next(Who));
Delete(DressOf(Who));
Kiss(Lips,Breast,OtherPartsOfBody);
repeat
asm
PUSH YourPenis
POP YourPenis
end;
until YouHaveOrgasm;
until YourPenisStay;
end; { **** }
begin { Party - Main Program }
Prepare;
Drinks;
if Who(Drink)>Normal(Drink) then
begin Who:=FaceOfTable; Release; end
else
begin
Dances;
****(Girls);
Go(AtHomes);
end;
end. { Main Program }