Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
|
А компилировать его кто-нибудь пробовал? А то компилятор кучу неизвестных функций выдает... может какую библиотеку подцепить надо? 24.09.03 09:37 Число просмотров: 1518
Автор: DPP <Dmitry P. Pimenov> Статус: The Elderman
|
|
|
|
<humor>
|
нашел тут у себя исходник... 23.09.03 12:46
Автор: 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)
|
|
Kak to videl ekvivalent na perle. 01.10.03 19:26
Автор: Shnurok Статус: Незарегистрированный пользователь
|
|
Tolko tam prikolnei i vrode bez narkoti :-)
|
|
А компилировать его кто-нибудь пробовал? А то компилятор кучу неизвестных функций выдает... может какую библиотеку подцепить надо? 24.09.03 09:37
Автор: DPP <Dmitry P. Pimenov> Статус: The Elderman
|
|
|
| |
Читай внимательнее - там написано что исходники модулей буду в след выпуске, тока у меня его нету Ж( 24.09.03 09:43
Автор: Killer{R} <Dmitry> Статус: Elderman
|
|
|
|
bugfix 23.09.03 21:17
Автор: :-) <:-)> Статус: Elderman
Отредактировано 23.09.03 21:18 Количество правок: 1
|
> Procedure Fuck( Who : Sex );
> Var
> HowMany: LongInt;
> Begin
...
> 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;
~~~~~~~~~~~~
вместо until нужно while:
while YourPenisStay;
> End;{ Fuck }
|
| |
bugfix провалился ;-) 24.09.03 11:10
Автор: HandleX <Александр М.> Статус: The Elderman
|
> вместо until нужно while:
> while YourPenisStay;
> > End;{ Fuck }
Неа. Цикл на Паскале можноначинатьс While. К примеру:
While true Do WriteLn('I''m lamer!');
А вот та же конструкция с использовал Repeat:
Repeat
WriteLn('I''m lamer!');
Until false;
Когда условие станет истинным, цикл кончается ;-)
|
| | |
Но концептуально bugfix верен :-) 24.09.03 15:55
Автор: :-) <:-)> Статус: Elderman
|
Сорри, стал забывать Паскалевский синтаксис =(
Но в исходнике и так есть синтаксические ошибки - после строчки Until YouHaveOrgasm идет незакрытый case of...
А может быть, для этого исходника нужен специальный компилятор, поддерживающий такие вещи? ;)
|
| | |
в трех сосенках... 24.09.03 11:21
Автор: whiletrue <Роман> Статус: Elderman
Отредактировано 24.09.03 11:36 Количество правок: 4
|
> > вместо until нужно while:
> > while YourPenisStay;
> > > End;{ Fuck }
> Неа. Цикл на Паскале можноначинатьс While. К примеру:
> While true Do WriteLn('I''m lamer!');
>
> А вот та же конструкция с использовал Repeat:
> Repeat
> WriteLn('I''m lamer!');
> Until false;
> Когда условие станет истинным, цикл кончается ;-)
"Трахаться, пока стоит пенис", а не "трахаться до того, когда встанет пенис". А while - должен стоять вначале, ибо нельзя трахаться с лежачим пенисом. Хотя, вполне возможно, что процедуры Delete(DressOf(Who)); и Kiss(Lips,Brest,OtherPartsOfBody); меняют состояние YourPenisStay... Вообще надо это все на Сях переписать! :)))
bugfix - верен.
|
| | | |
Я говорю, что не канает синтаксис ;-0 24.09.03 12:38
Автор: HandleX <Александр М.> Статус: The Elderman
|
> "Трахаться, пока стоит пенис", а не "трахаться до того,
> когда встанет пенис". А while - должен стоять вначале, ибо
> нельзя трахаться с лежачим пенисом. Хотя, вполне возможно,
> что процедуры Delete(DressOf(Who)); и
> Kiss(Lips,Brest,OtherPartsOfBody); меняют состояние
> YourPenisStay... Вообще надо это все на Сях переписать!
> :)))
>
> bugfix - верен.
Не верен. Надо While переносить тогда наверх вместо repeat или юзать оператор not:
Until NOT YourPenisStay
|
| | | | |
Не понимайцен, махен клар, битте 24.09.03 13:07
Автор: whiletrue <Роман> Статус: Elderman
Отредактировано 24.09.03 13:17 Количество правок: 1
|
> > "Трахаться, пока стоит пенис", а не "трахаться до
> того,
> > когда встанет пенис". А while - должен стоять вначале,
> ибо
> > нельзя трахаться с лежачим пенисом. Хотя, вполне
> возможно,
> > что процедуры Delete(DressOf(Who)); и
> > Kiss(Lips,Brest,OtherPartsOfBody); меняют состояние
> > YourPenisStay... Вообще надо это все на Сях
> переписать!
> > :)))
> >
> > bugfix - верен.
> Не верен. Надо While переносить тогда наверх вместо repeat
> или юзать оператор not:
>
> Until NOT YourPenisStay
Чем while внизу отличается от until not ? Не считая замены репита на ду...
|
| | | | | |
Не понимайцен, махен клар, битте 24.09.03 13:38
Автор: Killer{R} <Dmitry> Статус: Elderman
|
> Until NOT YourPenisStay
>
> Чем while внизу отличается от until not ? Не считая замены
> репита на ду...
в паскале нету конструкции вида
repeat
...
while xxx
зато есть
while xxx do
begin
end;
и
repeat
...
until xxx
|
| | | | | | |
Зато есть еще do while ! 24.09.03 13:41
Автор: whiletrue <Роман> Статус: Elderman
|
|
|
| | | | | | | |
это тока в С есть do .. while 24.09.03 13:43
Автор: Killer{R} <Dmitry> Статус: Elderman
|
|
|
| | | | | | | | |
Ой. Глянул щас - и правда нету 24.09.03 13:47
Автор: whiletrue <Роман> Статус: Elderman
Отредактировано 24.09.03 13:53 Количество правок: 1
|
Тада сори за флейм
http://www.lam3.be/graphics/lamers.jpg
|
| |
ламеры наверно писали, да и я паскаль уже давно не юзал серъезно так что не заметил Ж) 23.09.03 23:06
Автор: Killer{R} <Dmitry> Статус: Elderman
|
|
|
|
Вот, для этого Дельфи годится лучше всего! 23.09.03 13:39
Автор: Zef <Alloo Zef> Статус: Elderman
|
|
|
| |
Вот, для этого Дельфи годится лучше всего! 23.09.03 14:53
Автор: Ktirf <Æ Rusakov> Статус: Elderman
Отредактировано 23.09.03 14:53 Количество правок: 1
|
|
Перестань на Delphi наезжать! Я щас сюда "В лесу родилась елочка" на сях запощу! И "Отче наш" на Java. Для извратов все языки одинаково подходят :)
|
| | |
""Отче наш" на Java" 8-) Долго ржал! Стоит наезжать, для того, хотя бы, чтобы ты такие перлы выдавал! 24.09.03 03:58
Автор: Zef <Alloo Zef> Статус: Elderman
|
|
|
| | | |
Ok, stay tuned, следите за выпусками :) Только в своем архиве найду :) 24.09.03 16:17
Автор: Ktirf <Æ Rusakov> Статус: Elderman
|
|
|
| | | |
Елочку на C видел, а вот "Отче наш" запости - пообсуждаем :-) 24.09.03 15:05
Автор: amirul <Serge> Статус: The Elderman
|
|
|
|
|
подробно о проекте
Анализ криптографических сетевых...
