Тепловоз logo ТЕПЛОВОЗ.COM


2002-12-07 : Жираф Подвальный : Алгоритм жизнедеятельности сисадмина-программиста


Мы с моим другом Конем написали программу
[]
[]
[]
procedure TLife1.BeginDay (Sender: TObject);
Var I:Longint;
Label SearchFuck;
begin
[] If SenderMySelf Then Begin
Halt(666);
with TLife2.Create(Self) do
try
ShowModal;
finally
Free;
end;End;
with myself do begin
[] try StandUp
[] except try RememberAll
finally Try FogiveAll
{} Except Halt(666) End;
end;end;
bath;
if food0 then eat(food) else say('I hate this fucking post');
gotowork;
while worktime=true do
try shit:=bullet
except eat(shit)
end;
if money0 then do begin
drink(beer);
shopping;
end;
else say('I hate this fucking post again');
gotohome;
if food0 then eat(food) else say('I hate this fucking post forever');
wash;
I:=1000
SearchFuck:
Dec(I)
Randomize;
Wife:=Random(I);
[] If (Wife.Buffers60) and (Wife.Leggs90) and (Wife.Age20) then Goto SearchFuck Else// MySelf.HandFucking Else
if helth0 then Begin
{} Repeat Until KeyPressed;
fuck(wife)
End
Else Begin

Repeat
drink(beer);
Until Money.EOf;
End;
end;
while child.sleep=true do myself.sleep;
end;






КОММЕНТАРИИ

Жираф Подвальный3732   2003-03-12 17:05
Аспирин
Аспирин - это хуйня. Ни от чего не помогает. У меня только кровь идет из носа. А так нихуя не помогает. Хуйня, одним совом
Аспирин3736   2003-03-12 17:42
**Жираф
Сам ты хуйня.
Жираф Подвальный2619   2002-12-10 17:59
Когда я отправил эту прогу своему другу Коню, мне пришел ответ "Ну че? Когда откомпиллируем?"
Аспирин2623   2002-12-10 19:23
Хуйня.
Таких компьютерных приколов в инете валом - неоригинально.
Bru2591   2002-12-10 13:53
:^))
**has
"fuked.girl.name=all", why?
хас2609   2002-12-10 14:47
бикоz chem bolshe zaprosы тем high вероятность того, что хоть что то из желаемого получишь
(about all, нот онли about girls :)
Bru2611   2002-12-10 15:46
Troшki s toboю ne згodna:
ne zaprosi - a ціль :)
так неужели из-за этого все girls - fuked?
Ах хасим...
Bru2612   2002-12-10 15:47
Пойду я с горя на работу....
:)
хас2613   2002-12-10 17:34
Ну что ты, Бру! Я ж не такой потеряный!! :)
в той строке имелось увиду не присвоение пременной "все.дзевчёнки" свойства "плохие", а процедура "люби всех.дзевчёнок"
так что "сорри май бэд инглиш"
wdr2549   2002-12-09 12:46
Ну, я бы это не сужал до жизни сисадмина.
И еще.
Это шо за свойство объекта Wife.Buffers60?
И почему объект Wife а не Woman, раз Wife:=Random(I);
Или ты мусульманин?
Тогда I:=4
А I:=1000 - не хватит и недели проверить все свойства, так что ни do myself.sleep, ни тем более
Repeat
drink(beer);
Until Money.EOf;
и уж совсем никак
MySelf.HandFucking

Но, тем не менее, прикольно :-)
Машинист2550   2002-12-09 12:54
while($life)
[
    burn($life);
    $life--;
]
has2551   2002-12-09 13:00

until himself.stat=forever.yong
Begin
wife.num=0
fuked.girl.name=all
do drinkBeer.best
be Happy
End
}
DNK2537   2002-12-08 19:46
На чем вы ее ниписали, на паскале что ли, или на Васе?
Die Katzchen28263   2005-01-11 19:17
Это не токо про сис-одминов, а об жизни ваЩЩе!


Оригинал текста - http://teplovoz.com/creo/435.html