Текущий архив: 2002.11.04;
Скачать: CL | DM;

Вниз

Именинники 15 октября   Найти похожие ветки 

← →
Anatoly Podgoretsky ©   (2002-10-15 00:54) [0]


LOGIN REALNAME EMAIL YEAR
---------------------------------------------------------------------------------------
Potemkin Alex alexpotemkin@rambler.ru 1977
nord_tramper Kiselev Nikita 1982
Werewolfru Oleg werewolfru@mail.ru 1982
Olgech Olgech 1985
PUNKER PUNK punk2002@rol.ru 1985
vikenty Vikenty 1986
Sensor Андрей andrewbaranov@rambler.ru 2000
jog Евгений 1983
Stas Захарченко Станислав stas@uralonline.ru 1972
ММА Марат m.a.madibayev@kazsla.kz 1978
Condor Марат 1978
King Пименов Д.В. 1982
JOG-2 Радченко Евгений jog@au.ru 1983
---------------------------------------------------------------------------------------


---

← →
HumorisT   (2002-10-15 01:43) [1]

Поздравляю ВСЕХ!!!

---

← →
Юрий Зотов ©   (2002-10-15 05:55) [2]

И я.
Особенно двухгодовалого программиста Андрюшеньку. Расти большой!

---

← →
gek ©   (2002-10-15 07:07) [3]

Поздравляю!
и в дополнени к
>Юрий Зотов © (15.10.02 05:55)

Ешь побольше "Растишки" от Danon Андрюша

---

← →
Sergo ©   (2002-10-15 08:19) [4]

Поздравляю!!!
> Юрий Зотов © (15.10.02 05:55)
:))

---

← →
Opuhshii ©   (2002-10-15 08:41) [5]

Поздравляю с днем рождения, желаю счастья в личной жизни
O puhshii

---

← →
RV ©   (2002-10-15 08:53) [6]

Поздравляю!!!

---

← →
BOA_KAA ©   (2002-10-15 08:57) [7]

Присоединяюсь ко всем!!!

---

← →
Лохматый ©   (2002-10-15 09:02) [8]

Удачи!

---

← →
Игорь Шевченко ©   (2002-10-15 11:24) [9]

Поздравляю!

---

← →
qube ©   (2002-10-15 11:28) [10]

Всем безвозмездно по замечательному шнурку!

---

← →
Дремучий ©   (2002-10-15 12:23) [11]

Именниникам посвящается
програмка немножко глюкавая, но это можно списать на Винду
:))


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 }


---

← →
RV ©   (2002-10-15 12:35) [12]

Дремучий © (15.10.02 12:23)
:))
все круто, но метод
Buy(Drugs);
некорректен, по причине недокументированности последствий

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.04;
Скачать: CL | DM;

Наверх

Память: 0.5 MB
Время: 0.057 c