Close Topic Options

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.

This post has been edited by X-factor on 05-03-2004, 22:36

А это работает?

нет конечно.

В смысле вообще не работает или вместо того чтобы елочку петь поет "O Tannenbaum!"?

Always Green
Ну ёлки на экране те будет точно.
Можно сказать что работать будет тока ты этого не увидиш .
Возможно что в процессе работы программы будет проигранна Bye Bye Bye.mp3

Пардон...

This post has been edited by anatolyArts on 06-03-2004, 11:01

Главное что работает. Результат - не главное. Мы, рожденные при старом режиме, привыкли копать канаву отсюда и до обеда, а после обеда ее закапывать.
Конечно, хотелось бы видеть какие-то полезные действия, совершаемые программой, например, форматирование винчестера....