ОФФ: Как надо писать программы

Grigoriy 26.04.2004 - 23:31 | спасибо Arevik за предоставленный материал: Новогодняя песенка программистов program Елочка; Begin Лес.елочка.create(); While not Лес.елочка.dead do begin лес.елочка.age := лес.елочка.age + 1; if зима or лето then begin лес.елочка.plain := true; лес.елочка.color := cl_green; end; метель.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; While x begin лес.заяц.left := x; inc(x); лес.заяц.top := y * round(abs(sin(x*pi/180)*10)); end; Winехес("'wolf3d.exe /evil"',0); лес.елочка.cuttoclipboard; Праздник.pastefromclipboard; Праздник.елочка.skin.loadf romfile("'нарядная.jpg"'); For i:=1 to SizeOf(Праздник.елочка.радость) do Прадзник.Дети.Настроение Праздник.елочка.радость; End.
Sabrian 1 - 27.04.2004 - 13:00 | После получения сообщения WM_Замерзла лес.елочка умирает, после этого она приносит радость детям. Жестокий мир, жестокие люди(дети)...

>>