Форум: "Потрепаться";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
ВнизИменинники 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;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.011 c