программа про елочку :-)) П.С. шутка

← →
DSKalugin © (2004-07-28 13:44) [0]

program Елочка; Begin Лес.елочка.create(); While not Лес.елочка.dead do Begin лес.елочка.age := лес.елочка.age+1; if зима or лето then begin лес.елочка.plain := true; лес.елочка.color := clgreen; 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 := clgray; 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.

← →
VMcL © (2004-07-28 13:45) [1]

Старое...

P.S. Оформление кода ужасное.

программа про елочку :-)) П.С. шутка Найти похожие ветки