NL ->

Printable Version of Topic
Click here to view this topic in its original format

Forums > Флейм > В лесу родилась ёлочка, Исполнение программное :-))

Posted by: X-factor on 05-03-2004, 22:16

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.

Posted by: Always Green on 06-03-2004, 00:06

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

Posted by: X-factor on 06-03-2004, 02:14

QUOTE (Always Green @ 05-03-2004, 23:06):

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

нет конечно.

Posted by: Always Green on 06-03-2004, 02:40

QUOTE (X-factor @ 06-03-2004, 02:14):

нет конечно.

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

Posted by: X-factor on 06-03-2004, 08:30

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

Posted by: anatolyArts on 06-03-2004, 11:00

Пардон...

Posted by: Always Green on 06-03-2004, 11:51

QUOTE (X-factor @ 06-03-2004, 08:30):

Можно сказать что работать будет тока ты этого не увидиш .

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