Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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);
...


(С) Не мой


 
[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 }

(С) Не мой


 
[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]

Мне понрвилось:

Repeat
Asm
PUSH YourPenis
POP YourPenis
End;
Until YouHaveOrgasm



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

Форум: "Потрепаться";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.61 MB
Время: 0.028 c
1-95414
kserg@ukr.net
2002-07-16 13:13
2002.07.29
REPORT - что за ошибка такая?


14-95501
Партизан
2002-07-01 14:14
2002.07.29
Емулятор.


1-95351
ilg
2002-07-18 13:07
2002.07.29
AnsiLowerCase для Char


4-95607
Hecker
2002-05-15 08:42
2002.07.29
Механизм прорисовки скинов?


1-95364
noviy
2002-07-15 14:34
2002.07.29
ComboBox без SetFocus





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский