Logo

Přihlášení - email: heslo:
Přihlásit přes Facebook (co to je?)
Zaregistrujte se (Společné pro Ftípky, Komik, Sprosťák, Herník, Romantik a Infík) - Potvrzení registrace - Zapomenuté heslo
Nacházíte se zde: KOMIK.CZ > Srandovní texty > Program PARTY;
}
  • Text
  • Komentáře
  • Odeslat emailem
Nejste přihlášeni
prosím přihlašte se, nebo zaregistrujte

Program PARTY;

Tvé hodnocení
Super Bezva De to Nic moc No hrůza
příspěvku

GoogleJagg.czDelicious.comLinkuj.czTwitterVybrali.sme.skFacebook.comLíbí se vám to, ukažte to ostatním   


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;{ Dances }

Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl 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;
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 }

kriticka cast programu je napsana v assembleru :-)


Poslal Michal

KategorieText je zařazen do těchto kategorií
Srandovní texty - Počítačové
Známka2,33 (143)
Posláno22x
Přidáno8. 5. 2002

Komentovat příspěvky mohou pouze přihlášení uživatelé, pokud jste registrovaní přihlašte se, pokud ne, budeme rádi pokud se zaregistrujete


Komentáře k příspěvku


Příspěvek zatím nikdo nekomentoval, buďte první :-)

Odeslání textu emailem

Text bude automaticky vložen do emailu.

Vaše jméno:


Váš e-mail:


Vyberte z adresáře komu poslat:

Nebo zadejte email komu poslat


Předmět:


Chcete přidat vzkaz ( můžete nechat prázdné ):


_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _






Welcome to Praetorian

Copyright © 2007-2013 WE KOMIK.CZ - Reklama na serveru - Privacy policy - (0,0087)