andRUS
30.12.2002, 17:30
Прислал мне тут друг письмецо с поздравлением...
Почитайте, оцените...:contract: :xex:
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;
Winexec("`wolf3d.exe /evil"`, 0);
Лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile("`нарядная.jpg"`);
For i:=1 to SizeOf(Праздник.елочка.радость) do
Праздник.Дети.Настроение:=Праздник.елочка.радость;
End.
С наступающим!!!
Почитайте, оцените...:contract: :xex:
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;
Winexec("`wolf3d.exe /evil"`, 0);
Лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile("`нарядная.jpg"`);
For i:=1 to SizeOf(Праздник.елочка.радость) do
Праздник.Дети.Настроение:=Праздник.елочка.радость;
End.
С наступающим!!!