Навестить хотим Админа,
Говорит им Монстр тогда:
- Сенкс за хелп вам, господа!
Я еще вам таск подкину.
Передайте Сисадмину
От меня "Наполеон"-
Пусть напьется, охламон.
Гости часик по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й=new ORGY;
@friendphones=$сабантyй->get('phone',@friends);
@girlsphones=$сабантyй->get('phone',@girls);
open (HLD, "холодильник") or die ('Какая-то сволочь закpыла холодильник!');
@пpодyкты=;
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дешь? Заходи! Повод найдем...";
$ответ=;
#нижеследyющая пpовеpка необязательна, так как все соглашаются...