Вы как хотите, а мне это не по нутру. Я цветы с трудом для любимой покупаю, потому что мне больше живые нравятся, а тут целое дерево. И ответственности за него на мне было бы не меньше. Остальное на совести лесоруба, который детям кислород перекрывает. Ну и его начальства. А жить сегодняшним днем нужно когда завтрашний обеспечен
Сегодня зря, завтра пилить не будут. Спрос, как говорится. Плассмасовые более - менее уважаю, но не естесственно как-то. Лучше взять водку и в лес к костру, жечь старый сухостой и радоваться, смотря на живых красавиц, можно украсить даже
@echo off
setlocal enabledelayedexpansion
for /l %%i in (0,1,20) do (
set /a space=20-%%i
0>nul (
for /l %%j in (0,1,!space!) do set "empty=!empty! "
set /p=!empty!
for /l %%k in (0,1,%%i) do (
set /a ball=%%k
set /a ball%%=!random:~-1!+1
if !ball!==7 (set /p="o") else (set /p="/")
)
set /p="|"
for /l %%l in (%%i,-1,0) do (
set /a ball=%%l
set /a ball%%=!random:~-1!+1
if !ball!==3 (set /p="o") else (set /p="\")
)
set /p="!empty!"
)
echo.
set "empty="
)
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.