C Новым годом! (заранее)

Все, что способно вызвать улыбку
Post Reply
senorin
Юзер
Юзер
Posts: 66
Joined: 29 Mar 2010, 15:48
ОС: MSDOS
Contact:

C Новым годом! (заранее)

Post by senorin » 02 Oct 2010, 19:40

program Елочка;

Begin

Лес.елочка.create();

While not Лес.елочка.dead do

Begin

лес.елочка.age := лес.елочка.age 1;

begin

лес.елочка.plain := true;

end;

if зима or лето then

лес.елочка.color := cl_green;

метель.filename:=”‘D:”Music”NSYNC - 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;

Begin

left := x;

inc(x);

end;

лес.заяц.top := y round( abs(sin(x*pi/180)*10) );

Winexec(”‘wolf3d.exe /evil”‘,0);

лес.елочка.cuttoclipboard;

Праздник.pastefromclipboard;

For i:=1 to SizeOf(Праздник.елочка.радость) do

End.

Праздник.елочка.skin.loadfromfile(”‘нарядная.jpg”‘);

Праздник.Дети.Настроение

Праздник.елочка.радость;

End.
Вот раньше, года этак в 60-е, было всё классно - sex, drugs & rock'n'roll. А сейчас? Suxx, bugs & plug'n'play...
User avatar
Gen1us2k
Модератор
Модератор
Posts: 771
Joined: 02 Mar 2010, 16:13

Re: C Новым годом! (заранее)

Post by Gen1us2k » 03 Oct 2010, 04:32

Паскаль/Делфи блин %)
Image
Home: Windows Heaven
Home: Debian 6
For Servers: Debian || RHEL Based || Gentoo || FreeBSD
User avatar
Raven
Бородатый сис
Бородатый сис
Posts: 2794
Joined: 03 Mar 2010, 15:12
ОС: RHEL 8
Location: Из серверной

Re: C Новым годом! (заранее)

Post by Raven » 04 Oct 2010, 09:19

:-D
Я не злопамятный, я просто часто ковыряю логи
Post Reply