Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Любителям паскаля посвящается 20.12.02 13:36
Автор: amirul <Serge> Статус: The Elderman
|
Новогодняя песенка программистов
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(x*pi/180)*10) );
end;
Winexec(“wolf3d.exe /evil“,0);
лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile(“нарядная.jpg“);
For i:=1 to SizeOf(Праздник.елочка.радость) do
Прадзник.Дети.Настроение + Праздник.елочка.радость;
End.
(c) Максим Кузьмин (iHand.ru)
|
|
Скорей всего это "любителям Delphi"...8v) 20.12.02 15:12
Автор: VeloCiRaptor Статус: Незарегистрированный пользователь
|
|
|
Вау, прикольно. Особенно wolf3d.exe в роли злобного процесса! Правдо, синтаксис немного хромает... ;-) 20.12.02 14:49
Автор: HandleX <Александр М.> Статус: The Elderman
|
|
|
|