Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

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

 
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. Оформление кода ужасное.



Страницы: 1 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.023 c
3-1090227091
PokSer
2004-07-19 12:51
2004.08.15
DBF-файл и ДОС-кодировка


1-1091078070
seregin2
2004-07-29 09:14
2004.08.15
Как отловить изменение Clipboard


6-1087144256
lena19
2004-06-13 20:30
2004.08.15
NetShareGetInfo !! FOR WINXP !!


1-1091092138
Dmirty
2004-07-29 13:08
2004.08.15
Изменение ширины кнопок вместе с шириной строк в StringGrid-е


4-1089017404
RRR
2004-07-05 12:50
2004.08.15
работа с чужими приложениями