主页
Top.Mail.Ru Yandeks.Metrika
论坛:“抢”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

放松! 找到类似的分支


[NIKEL]   (2002-07-03 00:30) [0]


Проехался вот недавно домой в Подольск... Такого давно не было. ТАКОГО, что, приехав домой, излил все свое возмущение на виртуальной бумаге... И вот что у меня получилось:

{ Едем в Подольск, Version 1.01 (c) 1999 by Sergey V. Efimoff }

Weather.Create;
Weather.Snow.Initialize;
Weather.Wind.Initialize;
Weather.Conditions(Degrees.Zero, Wetness.95%);

People.Bind(Platform);
Timer:=Platform.People.Clock.Minutes;

while not Train.Arrived do begin
if Platform.People.Clock.Minutes-Timer>30 then
Platform.People.ТвоюМать("Да где же эта чертова электричка?!")
else
Platform.People.Walk(Platform)
end;

for Stations in [Царицыно..Подольск] do begin
Train.Show;
Train.Stop;
Platform.People.ТвоюМать("Как всегда, набитая! ;-(");
Train.Doors.Open;
Train.People.FallOut(Platform);

{ People are going to enter the train... }

Counter:=Platform.People.Push(@Self, Train, WS_Till_глаза_на_лбу);
Platform.People.Push(@Self,Train,Counter*2);

while not Train.Moves do begin
Platform.People.ТвоюМать("Еще одного!!!");
Train.People.ТвоюМать("Ну куда вы лезете -
не видите, места нет!");
Train.Driver.ТвоюМать("Идите все к черту,
а я закрываю двери! ;-E");

Platform.People.Push(@Self.Train,1);
Train.People.DeepВыдох;
end;

try
Train.Doors.Close;
except
Train.Doors.Open;
Train.People.FallOut(Railway);
Train.Doors.Close;
finally
Train.Doors.Lock;
end;

Babka:=Train.People.ExecSQL("SELECT * FROM People "+
"WHERE People.Age>60 AND People.Flags=
(самая_толстая AND самая_вредная)");

{ Every time you eat ... }

Babka.Bag.Fish.StartSmell;

while Train.Moves do begin
Babka.TurnAround;
Train.People.ТвоюМать("Долго ты еще будешь вертеться?!");
Babka.ТвоюМать("А что, нельзя?
На себя посмотри, алкаш!");
Train.People.ТвоюМать(WM_SEND_FAR);
Babka.Idle(Time.Seconds.10);
end;

People1:=Train.People.ExecSQL
("SELECT * FROM People WHERE People.Out:=WILL");
People2:=Train.People.ExecSQL
("SELECT * FROM People WHERE People.Out:=WONT");
People3:=Train.People.ExecSQL
("SELECT * FROM People WHERE People.Out:=CANT");

{ Action 1 }

People1.Ask(Train.People[People2], "Вы выходите?");
People2.Message("Нет");

{ Action 2 }

People2.Kick(People1);
People2.ТвоюМать("Куда прешься???");
People1.ТвоюМать(WM_SEND_FAR);

{ Action 3 }

People3.Kick(People2);
People3.ТвоюМать("Ну пройди в середину,
че встал как пенек у входа?!");
People2.ТвоюМать(WM_SEND_FAR);

end;

Train.People.Pop(@Self, Train, All);
People.Bind(BusStation);
BusStation.People.DeepВдох;

while not Bus.Arrived do
BusStation.People.Idle(тупо_уставившись_на_расписание);

Bus:=Class(Train);
...


(C)不是我的



[NIKEL]   (2002-07-03 00:33) [1]



<head>
<font size=+100>Nado vypit" piva</font>

<script language="PivoScript0.5">
<!-- Hide from wife

// global setting

var Money = zanachka;
var head = "light";

body.full = false;

// global functions

function goBar () {
body.location = "bar";
drink();
}

function drink () {
fatalError!!!();
while (body.full != true) {
if (Money == 0) break();
else {
if (wife.location == "near") break();
else {
var Pivo = 0;
Money --;
Pivo ++;
body.input(pivo);
Pivo --;
replika();
}
}
}
goHome();
}

function replika () {
var randomReplika = round( random() * 10 );
array randomReplikaArray = new array;
randomReplikaArray[0] = "O-pa!";
randomReplikaArray[1] = "Ty zachem mne etu gadost" nalil?";
randomReplikaArray[2] = "Vobly by...";
randomReplikaArray[3] = "Horosho poshla!";
randomReplikaArray[4] = "Ni cherta vy v pive ne smyslite!";
randomReplikaArray[5] = "Eh, i zhizn" webmasterskaja...";
randomReplikaArray[6] = "Sam takoj!";
randomReplikaArray[7] = "Barmen! Povtorit"!";
randomReplikaArray[8] = "Kisljatina!";
randomReplikaArray[9] = "A vot byvalochi...";
bodyOnDrink = body.head.voice.output =
writeln(randomReplikaArray[randomReplika]);
}

function goHome() {
body.location = "street";
body.head.voice.output = writeln("Taxi!");
if (Money == 0) {
body.head.voice.input = "Kozel!";
body.head.voice.output = writeln("Sam Kozel!");
setTimeOut(1000000, bar-home.way.length -- );
}
else {
body.location = "bar";
drink();
}
}

//fatal errors

function fatalError!!!() {
if (
Money.location == wife ||
body.onLoad == overwrite ||
bar.message == "Piva net" ||
bar.message == "Closed" ||
head == "dark" ||
body.vertical == false
) {
windows.close();
doors.close();
all.close();
body.location = "bedroom";
sleep();
}

-->
</script>
</head>

<body onUnsleep="goBar()">
<hat color=green size=58>hat</hat><br>
<sweater color=broun size=48>sweater</sweater><br>
<jeans color=blue size=48>jeans</jeans><br>
<boots color=black size=43>boots</boots><br>
</body>



[NIKEL]   (2002-07-03 00:35) [2]



Program Party;
Uses Vine, Zakus, Condoms;

{$I Variable.Pas}

{ Файл с описаниями пеpеменных,типов и дpугих ф-ций и }
{ пpоцедуp, а также модулей Vine, Zakus и Condoms }
{ - в одном из следующих выпусков CAD/CAM NEWS. }

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;

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;
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }

(C)不是我的



[NIKEL]   (2002-07-03 00:45) [3]

再次是我:)
也不是我的

Задача: прострелить себе ногу.

C:

Вы стреляете себе в ногу.

Assembly:

Вы "вешаете" DOS и уничтожаете винт. Появляется системный администратор и стреляет вам в ногу. После этого администратор стреляет себе в ногу и, прыгая на одной ноге в пространстве, стреляет в каждого в поле своего зрения.

APL:

Вы слышите выстрел, вы чувствуете, как пуля попадает вам в ногу, но вы знаете недостаточно линейной алгебры, чтобы понять, что, черт возьми, произошло.

C++:

Вы создаете кучу копий себя, и стреляете каждому в ногу. Оказание медпомощи затруднительно по тем причинам, что вы не знаете, где настоящая копия вас, а где стоит указатель, показывает пальцем и говорит: "Вон я там!".

Ada:

Если вы достаточно тверды, чтобы серьезно использовать этот язык программирования, то Департамент Обороны Соединенных Штатов Америки сцапает вас, поставит впереди стрельбища, и скажет солдатам: "Стреляйте по его ногам!"

Modula/2:

После того, как вы осознаете, что не можете ничего написать на этом языке, вы пустите себе пулю в лоб.

sh, csh:

Вы не можете вспомнить синтаксис ни для чего, из-за чего затем пять часов читаете ворох документации, прежде чем бросить это бесполезное занятие. Затем вы стреляете в компьютер, и переходите на C.

Smalltalk:

Вы тратите столько времени, играясь с графикой и окошками, что босс стреляет вам в ногу, забирает у вас рабочую станцию и оставляет вас работать на Коболе с символьным терминалом.

FORTRAN:

Вы стреляете в каждый палец, пока не кончатся пальцы, потом читаете следующую ногу и повторяете. Вы не сможете убежать от пуль, т.к. у вас нет условия выхода из цикла.

Algol:

Вы стреляете себе в ногу с помощью мушкета... [You shoot yourself in the foot with a musket. The musket is esthetically fascinating, and the wound baffles the adolescent medic in the emergency room.]

COBOL:

ИСПользуя РУЧHОЙПИСТОЛЕТ.КОЛЬТ45, ПРИЦЕЛИВАЕМ пистолет на HОГУ.ЛЕВУЮ, ЗАТЕМ кладем ЧЕЛОВЕК.РУКА.ПАЛЕЦ на РУЧHОЙПИСТОЛЕТ.КУРОК, и HАЖАТЬ. Затем ВЕРHУТЬ РУЧHОЙПИСТОЛЕТ в ДЕРЖАТЕЛЬ. Проверить результат.

BASIC:

Стрелять себе в ногу водяным пистолетом. Hа больших системах вы это повторяете до тех пор, пока не промокнете.

PL/I:

Вы запрашиваете системные ресурсы, включая оставшиеся патроны. Обработчик Данных и Департамент Оплаты увеличивает этот показатель в два pаза, увеличивает их цену в три раза, запрашивает новые финансовые формы и роняет их вам на ногу.

SNOBOL:

Вы захватываете ногу в руку, переназначаете руку как пулю. Производите акт стрельбы в ногу, затем назначаете пулю. Производите акт стрельбы в ногу, затем назначаете руку/пулю на следующую ногу (на левую).

Lisp:

Вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит ...

Scheme:

Вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит пистолет, которым вы
стреляете в держатель, который держит ...
... но никакие другие держатели непричастны...

English:

Вы кладете ногу вашу вам рот и откусываете ее прочь. (Для тех, кто не знает: English - это McDonnell Douglas/PICK - язык программирования, которому необходимо 110% системных ресурсов для нормальной работы).




[NIKEL]   (2002-07-03 00:45) [4]


INFORMIX:

Первый пистолет не работает. Три месяца спустя INFORMIX"s support desk высылает вам другой пистолет, который не совпадает с версией пуль. INFORMIX отправляет upgrade по INFORMIX-ONLINE. Вы спускаете курок, и ваша обувь увлажняется.

ORACLE:

ORACLE продает вам пистолет, коробку патронов, шомпол, регистрационную карточку и пpоч. Вы обнаруживаете, что курок требует усилий 27 человек для спуска. ORACLE высылает вам 26 консультантов, всех с шомполами, регистрационными карточками и пpоч. Пули не покидают дула пистолета, и вы запрашиваете еще нескольких консультантов для оптимизации. Пули отскакивают от ваших сандалий. Вы решаете купить INGRES. Ричаpд Донкин стреляет вам в ногу.

INGRES:

Вы спускаете курок, и вам бpат-близнец в Сан-Фpанциско обнаруживает, что у него прострелена нога. Потом вы отключаете автоматическую оптимизацию ссылок.

SYBASE:

Вы запускаете процедуру sp_вставить_патpон(), которая спускает курок в таблице ПИСТОЛЕТ. Для сохранения целостности, система запускает другой курок, который вставляет пули в вашу другую ногу, вы истекаете кровью, вы думаете... У вас осталась только третья попытка для следующей ноги.

OCCAM:

Вы посылаете сообщение вашим пальцам, которые посылают сообщение курку, который посылает сообщение спусковому крючку, который посылает сообщение капсюлю, который посылает сообщение пороху, который посылает сообщение пуле, которая посылает весьма неприятное сообщение вашей ноге.

Пpогpамма продолжает свою работу, много пуль доходят до выходного канала, и продолжают свой путь от вашей ноги к центру Земли. Ускоpение в центре создает шоковую волну, которая глотает Землю и отправляется к следующим планетам покрупнее.

Пpоблемы вашей ноги уменьшаются пропорционально увеличению процесса. Свеpхумные существа с планеты Зоpг переговариваются: "Я всегда говорил Тони, чтобы он был поаккуратнее".

FORTH:

Для начала вы решаете оставить количество потерянных пальцев в стеке и создаете ПАЛЕЦ-HОГИ@, который берет три цифры из стека: номер ноги, диапазон и предполагаемая масса, и меняет текущий словарь на "голубой". Пока вы тестируете эту функцию, вас арестовывает полиция за стонание (вспомните, ведь это язык программирования снизу-ввеpх [bottom-up]), которое демонстрирует ваше далекое от хорошего свеpху-вниз отношение к самоуничтожению.

RTL:

Вы по-настоящему начинаете стрелять себе в ногу, но 6 пальцев - это уже много для массива, и компилятор разваливается на куски. Вы начинаете собирать компилятор снова, чтобы он позволял массивы более 6 единиц. Hо настолько тупое и надоедливое занятие, что вы начинаете стрелять себе в ногу. Hо вас прерывает компилятор.

Pascal:

Компилятор не даст вам выстрелить себе в ногу.

Unix:

% ls
foot.c foot.h foot.o toe.c toe.o
% rm * .o
.o: no files found
% ls
% (Есть намек)

Visual Basic:

Вам на самом деле только кажется, что Вы стреляете себе в ногу! Hо Вы получаете такое удовольствие, делая это, что забываете об осторожности.

Assembler:

Вы пытаетесь выстрелить себе в ногу и обнаруживаете, что вам нужно сперва изобрести пистолет, патроны, их траекторию и вашу ногу.

Forth:

Foot in yourself shoot.




любитель   (2002-07-03 10:22) [5]

我喜欢它:

重复新密码
ASM
推动YourPenis
POP YourPenis
结束;
直到YouHaveOrgasm



Страницы: 1 整个分支

论坛:“抢”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上





内存:0.61 MB
时间:0.055 c
1-95280
Glonia zbanov
2002-07-17 10:41
2002.07.29
如何在exe项目中缝制avi(shku)


1-95426
malamba
2002-07-16 09:28
2002.07.29
基于新复选框的课程


6-95476
色狼
2002-05-16 18:52
2002.07.29
从服务器获取文件


14-95523
fonarick
2002-07-01 20:59
2002.07.29
互联网 - >钱


8-95452
Pavel_S
2002-03-22 13:45
2002.07.29
DirectX和OpenGL





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский