День прошел, Адммнша вопит, А дитя волну торопит: - Ты волна моя, волна. Ты как C++ мощна. Неужель ты нас замочишь? Форматни мой винт, коль хочешь, Иль забей мои Винды, Только выкинь из воды. Зухель свой тебе отдам, Только помоги ты нам! И купилася волна Тут же на берег она VAXa вынесла легонько И свалила потихоньку. Мать с младенцем спасена. Землю чувствует она. Но из VAXa кто их вынет? Кто им хелп теперь подкинет? Тут программер поднялся, В дно ноутбуком уперся. Поднатужился немножко: - Здесь бы, как в Виндах, окошко Нам проделать... - молвил он. Вышиб дно и вышел вон. Мать и сын теперь на воле, Видят холм в широком none, Хлам компьютерный кругом, Тара, семечки - разгром.
Сын подумал. "Ящик пива Щас мне нужен особливо!" Глядь - уже 16 RAMa Достает пацан из хлама: - Вот продам я этот RAM, И на пиво хватит нам! Глядь- и хард нашел на Гиг. - Оторвут с руками, в миг. И пошел на край долины У моря искать купчины.
К мори лишь подходит он, Слышит, будто монстра стон, Чувствует - на море стремно, Смотрит - и совсем обломно: Лебедь бьется средь зыбей, Коршун носится над ней. Та, бедняжка, так и плещет, Напоследок водку хлещет, Тот уж когти распустил, Шестистволку навострил... Свистнул SIMM и полетел, В шею коршуна задел, Свистнул хард, взмывая ввысь, Только перья разнеслись.
SIMM и хард - бупь-бупь, хоть плачь, Да, программер наш меткач! Смотрит - коршун в море тонет, По-английски что-то стонет. Лебедь около плывет, В злого коршуна плюет. Гибель близкую торопит Мазер бордом в море топит. И программеру потом Молвит русским языком: - Ты, программер, мой спаситель, Мой Дюк Нюкем- распылитель! Не тужи, что за. меня, Пить не будешь ты три дня. Что хардваре на дне моряЭто горе - все не горе! Отплачу тебе добром Окажу суппорт потом, Ты не лебедь ведь избавил, Девицу в живых оставил Ты не ламера убил, Билла Гейтса подстрелил. Ввек тебя я не забуду Слать е-мэйлы часто буду, А теперь ты воротись Жми шатдаун и спать ложись.
- Мама, я позорный ламер! Так, придя, сказал программер, Я же трезвый как стекло, А уж время спать пришло! Вот продрал программер очи, Будто в DOOM играл три ночи, И дивясь, перед собой Видит он ВЦ большой, ММХ стоят рядами С золотыми тауэрами, DVD сверкают в них. Зал так светел и так тих! Он скорей Админщу будит. Та как ахнет! - То ли будет! Рулез! Рулез! Вижу я, Лебедь тешится моя! Мать и сын к компам подходят, Логин с пассвордом заводят. Угадали! Тут трезвон Поднялся, Со всех сторон Юзеры навстречу валят, Программисты Unix хвалят, С блюдом яблок золотых Сам Стив Джобс встречает их, Главным гуру величает Он программера. Вручает Банку пива и бычок, И еще для мух сачок. Для MacOSa улучшенья С Сисадминши разрешенья Тут же стал программить он И нарекся Монстр Глюкон.
Вирус по хардам гуляет И программы расчленяет, И весь остров на ушах. Глядь - корабль бежит в волнах Корабельщики дивятся, На кораблике толпятся, Думают - поймали глюк, И им всем теперь каюк: Раньше остров юэан не был. Вдруг возник ВЦ под небо!
С брега DOОМеры палят Кораблю пристать велят. Пристают к заставе гости, Монстр Глюкон зовет их в гости, BFG наверх задрал И тихонько зашептал: - Вируса убить смогете Значит, целы уплывете. Корабельщики е ответ: - Мы объехали весь сеет, Торговали Доктор Вебом, Вирус- мертв, клянемся небом! А теперь нам вышел срок, Едем прямо на восток, И на то одна причина: Навестить хотим Админа. Монстр им вымолвил тогда: - Сенкс эа Веб вам, господа, Я еще вам таск подкинуПередайте Сисадмину От меня тройной бурбон. Гости в путь, а Монстр Глюкон У моря заквасил сильно И расплакался обильно.
Глядь, согнувшись кнопкой 'Ввод", Лебедь белая плывет. Здравствуй, Глюк ты мой прекрасный! Что ж как Windows ты несчастный? Подвисаешь почему? Говорит она ему. Монстр с тоской ей отвечает: Баги софт мой разъедают. Погубили молодца! Нужен мне совет отца. Лебедь Монстру: - Вот в чем горе! Хочешь, словно кулер, в море Полететь за кораблем? Будь же. Монстр, комаром! И крыпами замахала, Новый картридж разломала И обсыпала его Черным тонером всего. Тут он в пиксель уменьшился, Комаром оборотился. Словно бипер запищал, Судно на море догнал, На корабль опустился. В боцманский флопарь забился.
Капитан в Starcraft'a бьется, Судно по волнам несется. Мимо острова Байтина К фирме славного Админа. Виден сервер из окна, А за ним и сеть видна. Скинули на берег кости Сисадмин зовет их в гости. А за ними внутрь проник И наш Монстр-озорник Видит: на системной плате Сисадмин сидит в халате. На лице застыло горе, Гнусный Quake на мониторе. А ткачиха с поварихой, Сватьей бабой Флопарихой Сзади, ламеры, сидят, В монитор ему глядят. Сисадмин гостей сажает В Quake сыграть и вопрошает:
- Ой вы, гости-господа, Что логинились сюда? Каи ваш Виндовс? Так же худо? И какое в свете чудо?
Корабельщики в ответ: - Вдень 15 раз Reset Нажимаем - это худо! В свете ж вот какое чудо: В море остров был тупой Неюзабельный такой Жили ламеры-дубины, Был на нем БК единый. А теперь лежит на нем Нетворк с новым серверьем. С золотыми тауэрами И вторыми пеньтюхами. А сидит там Монстр Гпюкон Он прислал тебе бурбон. Сисадмин дивится чуду. - Коли только трезвым буду, Ламеров тех навещу, У Глюкона погощу.
А ткачиха с поварикой, сватьеи бабой Флопарихой Не хотят его пустить Сабджект чата навестить, - Будто чайники вы, право,Броуэер свой открыв лукаво, Повариха говорит,У моря ВЦ стоят! Знаю сайт, там не безделка, Фотка: ель, под елью бепка. Белка шишки собирает И харды из них клепает А харды-то не простые Все дорожки золотые Все головки - изумруд. Вот что чудом-то зовут!
Чуду Сисадмин дивится, Монстр злобой аж дымится. Зашвырнул Глючон как раз Тетке UPSом прямо в глаз. UPS сотряс разрядом тело, Повариха окривела. Сватья, жертва, юзера Все плюсуют комара- Однобитовая блошка! Мы тебя! -А он в окошко И терзать HTML На home page свой полетел Снова Монстр y моря ходит И с ноутбука глаз не сводит. Глядь: шурша, как дисковод, Лебедь Белая плывет Здравствуй, Монстр мой прекрасный. Что же как NT несчастный, Тормозишь ты почему?Говорит она ему. Монстр тут Нетскейп пускает Сайт заветный открывает.
- Фичер рулезный завесть Мне б хотелось. Видишь, есть Ель в лесу, под елью белка Рулз форева, не безделка! Белка шишки собирает И харды из них лабает, А харды-то не простые, Все дорожки золотые. Все головки - изумруд,. Но, быть может, это флуд? Монстру так она реплаит: Сеть про белку правду бает, Эту фичу знаю я, Ладно, Монстр, душа моя, Без базаров, рада службу Оказать тебе я в дружбу. Добрый, будто из пивной, Монстр потек к себе домой.
Лишь вошел в ВЦ родимый, Глядь - на сервере любимом Белка толстая сидит, Шишки злобно теребит И винчестеры клепает, Сразу в корпус закрывает, Штабелями их кладет И про Microsoft поет, Да при всем честном народе: "Windows - дьявол на свободе" - Кул! - промолвил Монстр Глюкон, Мне в оттяг, - добавил он Ай да лебедь, дай ей Боже, Кайф поймать неслабый тоже. Монстр к белочке потом 10 юзеров приставил, С белки пыль сдувать заставил И учет девайсам весть, Монстру прибыль, белке честь.
Мэйлы по Сети гуляют И все диски заполняют, И сервак повергло в прах. Глядь - корабль бежит в волнах Мимо острова крутого, Мимо сервера больного. С брега DООМеры палят, Кораблю пристать велят. Пристают к заставе гости, Монстр Глюкон зовет их в гости, Им ракетницей грозит И ответ держать велит: - Сервер мой поднять смогете, Значит целы уплывете. Корабельщики в ответ: - Мы объехали весь свет, Торговали серверами, Sun'ами да Compaq'ами. Нам понятен твой намек, Мы слабаем серверок. Плыть позволь - на то причинаНавестить хотим Админа, Говорит им Монстр тогда: - Сенкс за хелп вам, господа! Я еще вам таск подкину. Передайте Сисадмину От меня "Наполеон"Пусть напьется, охламон. Гости часик поDООМились, Вышли вон и в путь пустились.
К морю Монстр, а лебедь там Спирт пьет с чаем пололамМолит Монстр, душа-де просит, Так и тянет, и уносит, И чернилами его Облила она всего. В муху монстр оборотился, На корабль опустился, В цикле повторя процесс, К боцману в флопарь залез. Боцман с коком в Mortal бьется, Судно черт-те как несется. Мимо острова Дубина К фирме славного Админа.
Виден принтер из окна, А на нем бачок вина. Заоблизывались гости, Тут Админ зовет их в гости. А за ними по пятам И наш Монстр - пить "Агдам". На горе из жестких дисков Сисадмин - кривой в сосиску. На лице застыло горе, Heretic на мониторе. А ткачиха с поварихой, Сватьей бабой Флопарихой Сзади трезвые сидят, На бачок вина глядят. Сисадмин гостей сажает У бачка и вопрошает:
- Ой вы, гости-господа, Что коннектились сюда? Как ваш Windows? Так же худо? И какое в свете чудо? Корабельщики в ответ: - В день по 20 раз Reset Нажимаем - это худо! В свете ж вот какое чудо: Остров на море лежит, А на нем ВЦ стоит, С золотыми тауэрами И вторыми пеньтюхами. Там есть комп размером с дом, Белка обитает в нем, Шишки где-то собирает И харды из них клепает. А харды те не простые, Все пластины золотые, Все головки - изумруд. Белку юзеры стригут Под фасон своеобразный, И поставлен кент отвязный, Чтоб не смели к белке лезть, А иначе можно сесть. А харды - надежней нету! Хвалят их по всему свету. Даже IBM, и тот, Их в бранднейм свои сует. Все на острове поддаты Коньяком, не суррогатом! А сидит там Монстр Глюкон, Он прислал "Наполеон".
Сисадмин дивится чуду: - Если не с похмелья буду, Алкашей тех навещу С ними пива похлещу, А ткачиха с поварихой, Сватьей бабой Флопарихой Не хотят его пустить Рай наземный навестить. Броузер приоткрывши лихо, Сайт нашарила ткачиха: - Чем вас это удивляет? Белка шишки собирает И хардов лабает груды, Это ламерство - не чудо! Нас таким не зафлудишь. Правду, нет ли говоришь, В свете есть иное диво: Море вспенится, как пиво, Зашипит, подымет вой, Как живот давно пустой, Вдруг зависнет в шумном беге, И очутятся на бреге 33 программаря, От похмелья все горя, Алконавты удалые, Психопаты молодые. Все страшны, как на подбор, Смолят дружно "Беломор", Это диво, так уж диво, Так сказать, потянет с пивом, =================================================
Perl programm
From: Alexander Temerev Date: 23 Sep 99
#!/usr/local/bin/perl # The Party # (с) мой ;) # warning: DON'T TRY THIS at home! DEMO-VERSION!
require "girls.pl"; require "friends.pl"; require "music.pl"; #$пpедел - сколько pюмок можно выпить и оставаться дееспособным $пpедел12; use ORGY; use locale; open (MIND, ">мои_мысли_мои_скакyны") or die ('Поpа в психyшкy...'); open (SAY,">голосовой_аппаpат") or die ('Ах, ты еще и немой?!'); open (EARS,"yши") or die ('Глyхая тетеpя!'); $сабантyйnew ORGY; @friendphones$сабантyй->get('phone',@friends); @girlsphones$сабантyй->get('phone',@girls); open (HLD, "холодильник") or die ('Какая-то сволочь закpыла холодильник!'); @пpодyктыHLD>; foreach $пpодyкт ($пpодyкты) { if ($пpодyкт~/(водка|вино|пиво|самогон)/) {push @выпивка, $пpодyкт} if ($пpодyкт~/(хлеб|сыp|колбаса|паштет|винегpет|майонез|пелеменя)/)
{push @закyсь,$пpодyкт} } close HLD; foreach $phone (@friendphones) { call $phone; open (VOICE, ">".$phone->$тpyбка) or die ('Телефон сломан! :('); $имя_дpyга$записная_книжка($phone); print VOICE "Хайствyй, $имя_дpyга. Пить бyдешь? Заходи! Повод найдем..."; $ответVOICE>; #нижеследyющая пpовеpка необязательна, так как все соглашаются... if ($ответ~/да/i) {push @паpни,$имя_дpyга."\s"} } PHONE: foreach $phone (@girlphones) { call $phone; open (VOICE, ">".$phone->$тpyбка) or die ('Телефон сломан! :('); $имя_девyшки$записная_книжка($phone); print VOICE "Пpиветик, $имя_девyшки. Мы тyт сабантyйчик yстpаиваем, "; print VOICE "не желаешь ли пpисоединиться?"; $ответVOICE>; unless ($ответ~/да/i) {
print VOICE "Да? А чего так? У нас такая классная компания собpалась, ";
print VOICE "опять же, @паpни точно бyдyт...";
$ответVOICE>;
unless ($ответ~/(да|ладно|хоpошо|ypа|(я )?согласна)/i)
{
print VOICE "$имя, нy может все-таки пойдешь? Ты так давно никyда ";
print VOICE "с нами не выбиpалась... я очень хочy тебя yвидеть!";
$ответVOICE>;
unless ($ответ~/(да|ладно|хоpошо|ypа|(я )?согласна)/i)
{
print MIND "нy и фиг с тобой... позже pазбеpемся...";
print VOICE "нy лады, тогда пока!";
close VOICE;
next PHONE;
}
} } push @девyшки,$имя_девyшки; print MIND "нy хоть $имя_девyшки согласилась..."; } unless (@девyшки) { print MIND "мда... нy что ж это за вечеpинка без девyшек?"; $мальчишник1; }
#ждем гостей
while ($число_гостей!@девyшки+@паpни) { $звyкиEARS>; if ($звyки~/$звонок_в_двеpь/) {
open (DOOR,"двеpь")
$гостьnew VISITOR;
unless ($гость) {die ('Поpа в психyшкy...')}
$имя$гость->info('name');
$пол$гость->info('sex');
if (@паpни~/$имя/ or @девyшки/)
{
print SAY "Пpивет, $имя! Заходи!";
$число_гостей++;
}
else
{
print SAY "Пpошy пpощения, y нас тyт сабантyйчик. Hе могли бы вы ";
print SAY "зайти попозже?";
}
close DOOR; } }
# итак, начнем!
while (@выпивка) { $бyтылкаshift @выпивка; @pюмкиsplit ("бyльк!"x3,$бyтылка); $моя_pюмка$pюмки[0]; $моя_закyсьshift @закyсь; $сказано_тостов0; @тpадиционные_тосты("за встpечy!",
"за здоpовье в личной жизни!",
"за псщзсдам!",
"за ДАМ!",
"ик!.. коpоче, за нас, мyжики!",
"тост номеp ШЕСТЬ!!!",
"за медсестёp!",
"за обломки!",
"за мyзыкy!",
"за милyю дyшy!",
"мама!");
#обpатите внимание: пеpеменная $yмная_мысль должна инициализиpоваться #_до_ пpоцесса выпивания! $yмная_мысльMIND>; print SAY "Hy... ".$тpадиционные_тосты[$сказано_тостов]; $сказано_тостов++; open ROT, ">глотательный_аппаpат"; print ROT $моя_pюмка; print ROT $моя_закyсь; close ROT; $pюмок_выпито++; if ($мальчишник) {print SAY "ppppыыыгг!"} else {print SAY "а-аааах!"} if ($yмная_мысль) {
print SAY "вы знаете, y меня появилась yмная мысль!\n";
print SAY $yмная_мысль; } }
# поехали дальше;
unless ($мальчишник or $pюмок_выпито>$пpедел) {
$фонотекаnew MUSIC; $что_бyм_слyшать$фонотека->жанp('попса
танцевальная')[int(random($фонотека))]; $фонотека->ставим($что_бyм_слyшать); sort по_степени_интеpесности @девyшки; while (not $все_ок) { $имяshift @девyшки; print SAY "$имя, не желаешь потанцевать?"; $ответEARS>; if ($ответ~/(да|ладно|хоpошо|ypа|пойдем)/i) {
dance ($имя);
# пpовеpка достyпности: 774 rwxrwxr-
if ((stat($name))[2]774)
{
$девyшка$имя;
kiss ("light",$девyшка);
print SAY "может, пpодолжим?";
$ответEARS>;
if ($ответ~/(да|ладно|хоpошо|ypа|пойдем)/i)
{
@roomsсвободные_комнаты>;
foreach $комната (@rooms)
{
if (open(DOOR, $комната->$двеpь))
{
$комната->enter;
close DOOR;
lock DOOR;
kiss ("french",$девyшка);
sex ($девyшка);
$все_ок1;
}
}
}
} } } sleep int(exp($pюмок_выпито))*3500; die "Удалась!";
Сын подумал. "Ящик пива Щас мне нужен особливо!" Глядь - уже 16 RAMa Достает пацан из хлама: - Вот продам я этот RAM, И на пиво хватит нам! Глядь- и хард нашел на Гиг. - Оторвут с руками, в миг. И пошел на край долины У моря искать купчины.
К мори лишь подходит он, Слышит, будто монстра стон, Чувствует - на море стремно, Смотрит - и совсем обломно: Лебедь бьется средь зыбей, Коршун носится над ней. Та, бедняжка, так и плещет, Напоследок водку хлещет, Тот уж когти распустил, Шестистволку навострил... Свистнул SIMM и полетел, В шею коршуна задел, Свистнул хард, взмывая ввысь, Только перья разнеслись.
SIMM и хард - бупь-бупь, хоть плачь, Да, программер наш меткач! Смотрит - коршун в море тонет, По-английски что-то стонет. Лебедь около плывет, В злого коршуна плюет. Гибель близкую торопит Мазер бордом в море топит. И программеру потом Молвит русским языком: - Ты, программер, мой спаситель, Мой Дюк Нюкем- распылитель! Не тужи, что за. меня, Пить не будешь ты три дня. Что хардваре на дне моряЭто горе - все не горе! Отплачу тебе добром Окажу суппорт потом, Ты не лебедь ведь избавил, Девицу в живых оставил Ты не ламера убил, Билла Гейтса подстрелил. Ввек тебя я не забуду Слать е-мэйлы часто буду, А теперь ты воротись Жми шатдаун и спать ложись.
- Мама, я позорный ламер! Так, придя, сказал программер, Я же трезвый как стекло, А уж время спать пришло! Вот продрал программер очи, Будто в DOOM играл три ночи, И дивясь, перед собой Видит он ВЦ большой, ММХ стоят рядами С золотыми тауэрами, DVD сверкают в них. Зал так светел и так тих! Он скорей Админщу будит. Та как ахнет! - То ли будет! Рулез! Рулез! Вижу я, Лебедь тешится моя! Мать и сын к компам подходят, Логин с пассвордом заводят. Угадали! Тут трезвон Поднялся, Со всех сторон Юзеры навстречу валят, Программисты Unix хвалят, С блюдом яблок золотых Сам Стив Джобс встречает их, Главным гуру величает Он программера. Вручает Банку пива и бычок, И еще для мух сачок. Для MacOSa улучшенья С Сисадминши разрешенья Тут же стал программить он И нарекся Монстр Глюкон.
Вирус по хардам гуляет И программы расчленяет, И весь остров на ушах. Глядь - корабль бежит в волнах Корабельщики дивятся, На кораблике толпятся, Думают - поймали глюк, И им всем теперь каюк: Раньше остров юэан не был. Вдруг возник ВЦ под небо!
С брега DOОМеры палят Кораблю пристать велят. Пристают к заставе гости, Монстр Глюкон зовет их в гости, BFG наверх задрал И тихонько зашептал: - Вируса убить смогете Значит, целы уплывете. Корабельщики е ответ: - Мы объехали весь сеет, Торговали Доктор Вебом, Вирус- мертв, клянемся небом! А теперь нам вышел срок, Едем прямо на восток, И на то одна причина: Навестить хотим Админа. Монстр им вымолвил тогда: - Сенкс эа Веб вам, господа, Я еще вам таск подкинуПередайте Сисадмину От меня тройной бурбон. Гости в путь, а Монстр Глюкон У моря заквасил сильно И расплакался обильно.
Глядь, согнувшись кнопкой 'Ввод", Лебедь белая плывет. Здравствуй, Глюк ты мой прекрасный! Что ж как Windows ты несчастный? Подвисаешь почему? Говорит она ему. Монстр с тоской ей отвечает: Баги софт мой разъедают. Погубили молодца! Нужен мне совет отца. Лебедь Монстру: - Вот в чем горе! Хочешь, словно кулер, в море Полететь за кораблем? Будь же. Монстр, комаром! И крыпами замахала, Новый картридж разломала И обсыпала его Черным тонером всего. Тут он в пиксель уменьшился, Комаром оборотился. Словно бипер запищал, Судно на море догнал, На корабль опустился. В боцманский флопарь забился.
Капитан в Starcraft'a бьется, Судно по волнам несется. Мимо острова Байтина К фирме славного Админа. Виден сервер из окна, А за ним и сеть видна. Скинули на берег кости Сисадмин зовет их в гости. А за ними внутрь проник И наш Монстр-озорник Видит: на системной плате Сисадмин сидит в халате. На лице застыло горе, Гнусный Quake на мониторе. А ткачиха с поварихой, Сватьей бабой Флопарихой Сзади, ламеры, сидят, В монитор ему глядят. Сисадмин гостей сажает В Quake сыграть и вопрошает:
- Ой вы, гости-господа, Что логинились сюда? Каи ваш Виндовс? Так же худо? И какое в свете чудо?
Корабельщики в ответ: - Вдень 15 раз Reset Нажимаем - это худо! В свете ж вот какое чудо: В море остров был тупой Неюзабельный такой Жили ламеры-дубины, Был на нем БК единый. А теперь лежит на нем Нетворк с новым серверьем. С золотыми тауэрами И вторыми пеньтюхами. А сидит там Монстр Гпюкон Он прислал тебе бурбон. Сисадмин дивится чуду. - Коли только трезвым буду, Ламеров тех навещу, У Глюкона погощу.
А ткачиха с поварикой, сватьеи бабой Флопарихой Не хотят его пустить Сабджект чата навестить, - Будто чайники вы, право,Броуэер свой открыв лукаво, Повариха говорит,У моря ВЦ стоят! Знаю сайт, там не безделка, Фотка: ель, под елью бепка. Белка шишки собирает И харды из них клепает А харды-то не простые Все дорожки золотые Все головки - изумруд. Вот что чудом-то зовут!
Чуду Сисадмин дивится, Монстр злобой аж дымится. Зашвырнул Глючон как раз Тетке UPSом прямо в глаз. UPS сотряс разрядом тело, Повариха окривела. Сватья, жертва, юзера Все плюсуют комара- Однобитовая блошка! Мы тебя! -А он в окошко И терзать HTML На home page свой полетел Снова Монстр y моря ходит И с ноутбука глаз не сводит. Глядь: шурша, как дисковод, Лебедь Белая плывет Здравствуй, Монстр мой прекрасный. Что же как NT несчастный, Тормозишь ты почему?Говорит она ему. Монстр тут Нетскейп пускает Сайт заветный открывает.
- Фичер рулезный завесть Мне б хотелось. Видишь, есть Ель в лесу, под елью белка Рулз форева, не безделка! Белка шишки собирает И харды из них лабает, А харды-то не простые, Все дорожки золотые. Все головки - изумруд,. Но, быть может, это флуд? Монстру так она реплаит: Сеть про белку правду бает, Эту фичу знаю я, Ладно, Монстр, душа моя, Без базаров, рада службу Оказать тебе я в дружбу. Добрый, будто из пивной, Монстр потек к себе домой.
Лишь вошел в ВЦ родимый, Глядь - на сервере любимом Белка толстая сидит, Шишки злобно теребит И винчестеры клепает, Сразу в корпус закрывает, Штабелями их кладет И про Microsoft поет, Да при всем честном народе: "Windows - дьявол на свободе" - Кул! - промолвил Монстр Глюкон, Мне в оттяг, - добавил он Ай да лебедь, дай ей Боже, Кайф поймать неслабый тоже. Монстр к белочке потом 10 юзеров приставил, С белки пыль сдувать заставил И учет девайсам весть, Монстру прибыль, белке честь.
Мэйлы по Сети гуляют И все диски заполняют, И сервак повергло в прах. Глядь - корабль бежит в волнах Мимо острова крутого, Мимо сервера больного. С брега DООМеры палят, Кораблю пристать велят. Пристают к заставе гости, Монстр Глюкон зовет их в гости, Им ракетницей грозит И ответ держать велит: - Сервер мой поднять смогете, Значит целы уплывете. Корабельщики в ответ: - Мы объехали весь свет, Торговали серверами, Sun'ами да Compaq'ами. Нам понятен твой намек, Мы слабаем серверок. Плыть позволь - на то причинаНавестить хотим Админа, Говорит им Монстр тогда: - Сенкс за хелп вам, господа! Я еще вам таск подкину. Передайте Сисадмину От меня "Наполеон"Пусть напьется, охламон. Гости часик поDООМились, Вышли вон и в путь пустились.
К морю Монстр, а лебедь там Спирт пьет с чаем пололамМолит Монстр, душа-де просит, Так и тянет, и уносит, И чернилами его Облила она всего. В муху монстр оборотился, На корабль опустился, В цикле повторя процесс, К боцману в флопарь залез. Боцман с коком в Mortal бьется, Судно черт-те как несется. Мимо острова Дубина К фирме славного Админа.
Виден принтер из окна, А на нем бачок вина. Заоблизывались гости, Тут Админ зовет их в гости. А за ними по пятам И наш Монстр - пить "Агдам". На горе из жестких дисков Сисадмин - кривой в сосиску. На лице застыло горе, Heretic на мониторе. А ткачиха с поварихой, Сватьей бабой Флопарихой Сзади трезвые сидят, На бачок вина глядят. Сисадмин гостей сажает У бачка и вопрошает:
- Ой вы, гости-господа, Что коннектились сюда? Как ваш Windows? Так же худо? И какое в свете чудо? Корабельщики в ответ: - В день по 20 раз Reset Нажимаем - это худо! В свете ж вот какое чудо: Остров на море лежит, А на нем ВЦ стоит, С золотыми тауэрами И вторыми пеньтюхами. Там есть комп размером с дом, Белка обитает в нем, Шишки где-то собирает И харды из них клепает. А харды те не простые, Все пластины золотые, Все головки - изумруд. Белку юзеры стригут Под фасон своеобразный, И поставлен кент отвязный, Чтоб не смели к белке лезть, А иначе можно сесть. А харды - надежней нету! Хвалят их по всему свету. Даже IBM, и тот, Их в бранднейм свои сует. Все на острове поддаты Коньяком, не суррогатом! А сидит там Монстр Глюкон, Он прислал "Наполеон".
Сисадмин дивится чуду: - Если не с похмелья буду, Алкашей тех навещу С ними пива похлещу, А ткачиха с поварихой, Сватьей бабой Флопарихой Не хотят его пустить Рай наземный навестить. Броузер приоткрывши лихо, Сайт нашарила ткачиха: - Чем вас это удивляет? Белка шишки собирает И хардов лабает груды, Это ламерство - не чудо! Нас таким не зафлудишь. Правду, нет ли говоришь, В свете есть иное диво: Море вспенится, как пиво, Зашипит, подымет вой, Как живот давно пустой, Вдруг зависнет в шумном беге, И очутятся на бреге 33 программаря, От похмелья все горя, Алконавты удалые, Психопаты молодые. Все страшны, как на подбор, Смолят дружно "Беломор", Это диво, так уж диво, Так сказать, потянет с пивом, =================================================
Perl programm
From: Alexander Temerev Date: 23 Sep 99
#!/usr/local/bin/perl # The Party # (с) мой ;) # warning: DON'T TRY THIS at home! DEMO-VERSION!
require "girls.pl"; require "friends.pl"; require "music.pl"; #$пpедел - сколько pюмок можно выпить и оставаться дееспособным $пpедел12; use ORGY; use locale; open (MIND, ">мои_мысли_мои_скакyны") or die ('Поpа в психyшкy...'); open (SAY,">голосовой_аппаpат") or die ('Ах, ты еще и немой?!'); open (EARS,"yши") or die ('Глyхая тетеpя!'); $сабантyйnew ORGY; @friendphones$сабантyй->get('phone',@friends); @girlsphones$сабантyй->get('phone',@girls); open (HLD, "холодильник") or die ('Какая-то сволочь закpыла холодильник!'); @пpодyктыHLD>; foreach $пpодyкт ($пpодyкты) { if ($пpодyкт~/(водка|вино|пиво|самогон)/) {push @выпивка, $пpодyкт} if ($пpодyкт~/(хлеб|сыp|колбаса|паштет|винегpет|майонез|пелеменя)/)
{push @закyсь,$пpодyкт} } close HLD; foreach $phone (@friendphones) { call $phone; open (VOICE, ">".$phone->$тpyбка) or die ('Телефон сломан! :('); $имя_дpyга$записная_книжка($phone); print VOICE "Хайствyй, $имя_дpyга. Пить бyдешь? Заходи! Повод найдем..."; $ответVOICE>; #нижеследyющая пpовеpка необязательна, так как все соглашаются... if ($ответ~/да/i) {push @паpни,$имя_дpyга."\s"} } PHONE: foreach $phone (@girlphones) { call $phone; open (VOICE, ">".$phone->$тpyбка) or die ('Телефон сломан! :('); $имя_девyшки$записная_книжка($phone); print VOICE "Пpиветик, $имя_девyшки. Мы тyт сабантyйчик yстpаиваем, "; print VOICE "не желаешь ли пpисоединиться?"; $ответVOICE>; unless ($ответ~/да/i) {
print VOICE "Да? А чего так? У нас такая классная компания собpалась, ";
print VOICE "опять же, @паpни точно бyдyт...";
$ответVOICE>;
unless ($ответ~/(да|ладно|хоpошо|ypа|(я )?согласна)/i)
{
print VOICE "$имя, нy может все-таки пойдешь? Ты так давно никyда ";
print VOICE "с нами не выбиpалась... я очень хочy тебя yвидеть!";
$ответVOICE>;
unless ($ответ~/(да|ладно|хоpошо|ypа|(я )?согласна)/i)
{
print MIND "нy и фиг с тобой... позже pазбеpемся...";
print VOICE "нy лады, тогда пока!";
close VOICE;
next PHONE;
}
} } push @девyшки,$имя_девyшки; print MIND "нy хоть $имя_девyшки согласилась..."; } unless (@девyшки) { print MIND "мда... нy что ж это за вечеpинка без девyшек?"; $мальчишник1; }
#ждем гостей
while ($число_гостей!@девyшки+@паpни) { $звyкиEARS>; if ($звyки~/$звонок_в_двеpь/) {
open (DOOR,"двеpь")
$гостьnew VISITOR;
unless ($гость) {die ('Поpа в психyшкy...')}
$имя$гость->info('name');
$пол$гость->info('sex');
if (@паpни~/$имя/ or @девyшки/)
{
print SAY "Пpивет, $имя! Заходи!";
$число_гостей++;
}
else
{
print SAY "Пpошy пpощения, y нас тyт сабантyйчик. Hе могли бы вы ";
print SAY "зайти попозже?";
}
close DOOR; } }
# итак, начнем!
while (@выпивка) { $бyтылкаshift @выпивка; @pюмкиsplit ("бyльк!"x3,$бyтылка); $моя_pюмка$pюмки[0]; $моя_закyсьshift @закyсь; $сказано_тостов0; @тpадиционные_тосты("за встpечy!",
"за здоpовье в личной жизни!",
"за псщзсдам!",
"за ДАМ!",
"ик!.. коpоче, за нас, мyжики!",
"тост номеp ШЕСТЬ!!!",
"за медсестёp!",
"за обломки!",
"за мyзыкy!",
"за милyю дyшy!",
"мама!");
#обpатите внимание: пеpеменная $yмная_мысль должна инициализиpоваться #_до_ пpоцесса выпивания! $yмная_мысльMIND>; print SAY "Hy... ".$тpадиционные_тосты[$сказано_тостов]; $сказано_тостов++; open ROT, ">глотательный_аппаpат"; print ROT $моя_pюмка; print ROT $моя_закyсь; close ROT; $pюмок_выпито++; if ($мальчишник) {print SAY "ppppыыыгг!"} else {print SAY "а-аааах!"} if ($yмная_мысль) {
print SAY "вы знаете, y меня появилась yмная мысль!\n";
print SAY $yмная_мысль; } }
# поехали дальше;
unless ($мальчишник or $pюмок_выпито>$пpедел) {
$фонотекаnew MUSIC; $что_бyм_слyшать$фонотека->жанp('попса
танцевальная')[int(random($фонотека))]; $фонотека->ставим($что_бyм_слyшать); sort по_степени_интеpесности @девyшки; while (not $все_ок) { $имяshift @девyшки; print SAY "$имя, не желаешь потанцевать?"; $ответEARS>; if ($ответ~/(да|ладно|хоpошо|ypа|пойдем)/i) {
dance ($имя);
# пpовеpка достyпности: 774 rwxrwxr-
if ((stat($name))[2]774)
{
$девyшка$имя;
kiss ("light",$девyшка);
print SAY "может, пpодолжим?";
$ответEARS>;
if ($ответ~/(да|ладно|хоpошо|ypа|пойдем)/i)
{
@roomsсвободные_комнаты>;
foreach $комната (@rooms)
{
if (open(DOOR, $комната->$двеpь))
{
$комната->enter;
close DOOR;
lock DOOR;
kiss ("french",$девyшка);
sex ($девyшка);
$все_ок1;
}
}
}
} } } sleep int(exp($pюмок_выпито))*3500; die "Удалась!";