Мы с моим другом Конем написали программу
[]
[]
[]
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;
Голо-совалка
Правила
+2
Шедевр! Одно из лучшего здесь!
+1
Понравилось
+0.5
Что-то есть
0
Никак
-0.5
Хуже чем никак
-1
Отстой
-2
Пиздец, уберите эту хуйню с Тепловоза!
! Голосование доступно только авторизованным пользователям
На чем вы ее ниписали, на паскале что ли, или на Васе?
wdr
2 (2549) 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
Но, тем не менее, прикольно :-)
Машинист
3 (2550) 2002-12-09 12:54
while($life)
[
burn($life);
$ life--;
]
has
4 (2551) 2002-12-09 13:00
until himself.stat=forever.yong
Begin
wife.num=0
fuked.girl.name=all
do drinkBeer.best
be Happy
End
}
Bru
5 (2591) 2002-12-10 13:53
:^))
**has
"fuked.girl.name=all", why?
хас
6 (2609) 2002-12-10 14:47
бикоz chem bolshe zaprosы тем high вероятность того, что хоть что то из желаемого получишь
(about all, нот онли about girls :)
Bru
7 (2611) 2002-12-10 15:46
Troшki s toboю ne згodna:
ne zaprosi - a ціль :)
так неужели из-за этого все girls - fuked?
Ах хасим...
Bru
8 (2612) 2002-12-10 15:47
Пойду я с горя на работу....
:)
хас
9 (2613) 2002-12-10 17:34
Ну что ты, Бру! Я ж не такой потеряный!! :)
в той строке имелось увиду не присвоение пременной "все.дзевчёнки" свойства "плохие", а процедура "люби всех.дзевчёнок"
так что "сорри май бэд инглиш"
Жираф Подвальный
10 (2619) 2002-12-10 17:59
Когда я отправил эту прогу своему другу Коню, мне пришел ответ "Ну че? Когда откомпиллируем?"
Аспирин
11 (2623) 2002-12-10 19:23
Хуйня.
Таких компьютерных приколов в инете валом - неоригинально.
Жираф Подвальный
12 (3732) 2003-03-12 17:05
Аспирин
Аспирин - это хуйня. Ни от чего не помогает. У меня только кровь идет из носа. А так нихуя не помогает. Хуйня, одним совом