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(xpi/180)10) );
end;
Winexec('wolf3d.exe /evil',0);
лес.елочка.cuttoclipboard; // Срубил он нашу елочку
Праздник.pastefromclipboard; //
Праздник.елочка.skin.loadfromfile('нарядная.jpg'); // Теперь она, нарядная,
For i:=1 to SizeOf(Праздник.елочка.радость) do //На праздник к нам пришла
Прадзник.Дети.Настроение + Праздник.елочка.радость;
//И много, много радости
//Детишкам принесла
End.