"В лесу родилась елочка" для программистов...

Анекдоты, смешные афоризмы, истории, etc...<br>З.Ы. Сообщения, которые МОДЕРАТОР считает не смешными могут быть удалены.

Модератор: Злобные админы

Ответить
Аватара пользователя
serg
Ленивое существо
Сообщения: 44
Зарегистрирован: Пт, 13.02.2004 18:21

"В лесу родилась елочка" для программистов...

Сообщение serg » Чт, 24.07.2008 14:12

program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age+1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;
метель.filename:=?D:MusicNSYNC - Bye Bye Bye.mp3?;
метель.open;
sleep(1000);
метель.play;
мороз.укутать(лес.елочка);
GetMessage(H, лес.елочка.handle, 0, 0);
if h.uint = wm_замерзла then
dead := true;
end;
лес.заяц.create;
лес.заяц.трусливый := true;
лес.заяц.color := cl_gray;
x := лес.елочка.left;
y := лес.елочка.top;
While x
Begin
лес.заяц.left := x;
inc(x);
лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );
end;
Winexec(?wolf3d.exe /evil?,0);
лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile(?нарядная.jpg?);
For i:=1 to SizeOf(Праздник.елочка.радость) do
Прадзник.Дети.Настроение + Праздник.елочка.радость;
End.
"Нет ничего полезней хорошей книги. Особенно, если нужны пыжи для патронов." Уинстон Черчилль

Аватара пользователя
Lexus
Старожил
Сообщения: 168
Зарегистрирован: Чт, 22.11.2007 18:26
Откуда: прямо с завода
Контактная информация:

Сообщение Lexus » Сб, 26.07.2008 00:00

:D :D :D :D :D :D
Жесть!!!!

:lol:
...Кто же знал, что жизнь так сложится...

Ответить