Новый ГОД |
Здравствуйте, гость ( Вход | Регистрация )
Новый ГОД |
Джа Будда |
Dec 25 2004, 11:24
Сообщение
#1
|
Злобный пузан Группа: Админы Сообщений: 315 Регистрация: 7-October 04 Из: techsupport =) Пользователь №: 642 |
Новогодняя песенка программера
program Елочка; Begin Лес.елочка.create(); While not Лес.елочка.dead do Begin лес.елочка.age := лес.елочка.age+1; if зима or лето then begin лес.елочка.plain := true; лес.елочка.color := cl_green; end; метель.filename:='D:MusicN SYNC - 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; Winexec('wolf3d. exe /evil',0); лес.елочка.cuttoclipboard; Праздник .pastefromclipboard; Праздник.елочка.skin.loadfrom file('нарядная.jpg') For i:=1 to SizeOf(Праздник.елочка.радость) do Прадзник.Дети.Настроение + Праздник.елочка.радость; End. вот он ты какой, юмор сисадминский =) -------------------- You might have to go to war,
shoot a gun, kill a nun |
Текстовая версия | Сейчас: 18th October 2024 - 08:42 |