Новогодняя песенка программиста

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.