:: Pradžia
:: Analizai
:: Auksinės varpos
:: Bybio dainos
:: Blevyzgos
:: Kalbos pirtelė
:: Kempinligė
:: Klizma
:: Šūdų malūnas
:: Distrofikų arena
:: Nuorodos
:: Kontaktai

Boba su smegenais tinka į žmonas, o visos kitos tik seksui

Program Party
 

 Procedure Prepare;
  Begin
    Find(House);
    Buy(Bottles);
    Buy(Zakus);
    Buy(Drugs);
    Call(Friends);
    Call(Girls);
  End; { Prepare }

 Procedure Drinks;
  Begin
    Go(DrinkingRoom);
    Repeat
      If Current(Bottle)=Empty Then Open(Next(Bottle));
      Drink(Next(Gramms100));
      Zakus:=Eat(Next(Foods));
    Until TwoViewInEyes;
  End; { Drinks }

 Procedure Dances;
  Begin
    Music:=True;
    Call(Girl);
    Go(DancingRoom);
    With Music.Jump Do Begin
      If Girl.Drink=NormalDrink Then
           Begin
             Touch(AssOf(Girl));
             Touch(BrestOf(Girl));
           End
      Else Begin
             Go(DrinkingRoom);
             Let(Girl):=Drink(More);
             Return(DancingRoom);
           End;
    End;
  End; { Dances }

 Procedure Drug;
  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 Fuck( Who: Person );
    Var  HowMany: LongInt;
  Begin
    If Who.Sex<>Girl Then Write('Are yor sodomite ??!');
      Find(DarkRoom);
      ComeIn(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 YourPenis;
          POP YourPenis;
        End;
      Until YouHaveOrgasm;
      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>NormalDrink Then Who.State:=FaceDown;
   Dances;
   Drug(All);
   Fuck(Girls);
   Go(Home);
 End. { Main Program