Удаленная тема 1005

[iCheburnator]

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 Fuck( 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;{ Fuck }

Begin { Party - Main Program }

Prepare;

Drinks;

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

Dances;

Fuck(Girls);

Go(AtHomes);

End.{ Main Program }

ссылка

Изменено 26 марта, 2004 пользователем iCheburnator

[Sem]

а какже: smoke(hash;sigars)????

[iCheburnator]

значит это для некрящих..............

[djunkie]

#include <stdio.h>

#Include <hash.h>

#include <beer.h>

main (int Girls, int Guys)

{

int Joint=0, i=0;

Joint=GetBoxQuantity()/3;

HashSmoke(Joint)*Guys;

GetBeerQuantity();

BeerDrinking()/Guys;

TalkToFriends();

if (Girls!=0) {printf("Get out\n");

for (i=1;i++;i>Girls) kill(pid(Girl(i))); }

}

И нафига нам телки? ))))