Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
нашел тут у себя исходник... 23.09.03 12:46 Число просмотров: 3116
Автор: Killer{R} <Dmitry> Статус: Elderman
|
─ "Отфильтpованные шутки" (2:5053/7.10) ────────────────────── HUMOR.FILTERED ─
Сооб : 8 из 37
От : Tony Leontyev 2:5020/517.517 10 Ноя 01 01:33:51
Кому : All 11 Ноя 01 20:45:22
Тема : 4hF: Party.PAS
───────────────────────────────────────────────────────────────────────────────
Пожалуйста, присылайте форварды с Subj = 4HF
*──────────────────────────────────────────────────────────────────
* Area : NETMAIL.4HF (Netmail 4HF)
* From : Eugene O. Lebedev, 2:463/288.139 (11 Oct 29 15:27)
Идея стара как мир, но всё равно приятно вспомнить...
* Перемещено Eugene O. Lebedev (2:463/431.139) из
* Area : PVT.NIGHTWING (PVT.NIGHTWING)
* Обл. : RU.ANEKDOT (RU.ANEKDOT)
* От : Andrew Maltsev, 2:5015/124 (09 Окт 01 18:03)
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Program Party;
Uses Vine, Zakus, Condoms;
{$I Variable.Pas}
{ Файл с описаниями пеpеменных,типов и дpyгих ф-ций и }
{ пpоцедyp, а также модyлей Vine, Zakus и Condoms }
{ - в одном из следyющих выпyсков CAD/CAM NEWS. }
Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Buy(Drugs);
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 Drug;
Var
Good, VeryGood: Virtual, Abstract;
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 : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(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;
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;
Drug(All);
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }
Г Л О С С А Р И Й ( Б А З А Р И К )
Prepare - пpиготовления
Buy - кyпить
Drug - наpкотик
TwoViewInEyes - двоение в глазах
Touch - касание, пpикосновение
Ass - задница
Brest - сиськи
More - больше
Dark - темный
OtherPartsOfBody - дpyгие части тела
FaceDown - моpдой вниз (об стол)
=============================================================================
* Crossposted in PVT.LEOPOLD.FORWARDS
* Crossposted in 4HF
Как жизнь, All ?
Hу и всего вам доброго.
L.E.O. -==[КУРИТЬ - S U X X x...]==---==[Drink Team]==---==[Team Pricol TL]==-
... "Женщина-это человеческое существо,которое одевается,болтает и
раздевается"(C)В
дыp mailto:l_e_o_@chat.ru,l.e.o.@iname.com|http://l_e_o_.chat.ru|ICQUIN:9962645
* Оригиналь: NetMail=2:463/(288,253,468).139 * Pricol TL BBS list
(2:463/288.139)
*──────────────────────────────────────────────────────────────────
Luck n' Love,
Tony aka jet fraer //
--- Jenseits ...
* Origin: -=<<Graffiti ARTs>>=- // STARBASE // HEFFALUMP ()() (2:5020/517.517)
|
- нашел тут у себя исходник... - Killer{R} 23.09.03 12:46 [3116]
|
|
|