Konference: Věci mimo
| Od: | diZZy danZ |
| Datum: | 20.2.2002 08:51 |
| Předmět: | pro zmenu neco v pascalu |
> Program Party;
> Uses Vine, Zakus, Condoms;
>
> {$I Variable.Pas}
>
> Procedure Prepare;
> Begin
> Find(House);
> Buy(Bottles);
> Buy(Zakus);
> 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;
> 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,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;
> Fuck(Girls);
> Go(AtHomes);
> End.{ Main Program }
>
[2002/1 (15)] [2002/2 (22)] [2002/3 (38)] [2002/4 (27)] [2002/5 (103)] [2002/6 (56)] [2002/7 (40)] [2002/8 (13)] [2002/9 (61)] [2002/10 (138)] [2002/11 (91)] [2002/12 (16)]