Димка
12:18 04-06-2003 Листая Humor
Нашей Ёлочке посвящается:
(песня)

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.loadfromf ile('нарядная.jpg');
For i:=1 to SizeOf(Праздник.елочка.радость ) do
Прадзник.Дети.Настроение + Праздник.елочка.радость;
End.
Комментарии:
3 CaHuTaPa
12:39 04-06-2003
БРАВО !!! БРАВИСИМО !!!

Димка
12:46 04-06-2003
3 CaHuTaPa Бороться и искать, найти и красноречить!
Ёлочка
13:21 04-06-2003
мама дорогая, но финал мне нравится
Димка
13:46 04-06-2003
Ёлочка Отож! Пока Вы там темные стороны реализуете народ тут в лепешку ради Вас!
Ёлочка
14:01 04-06-2003
Димка ну что вы правло слово, да кто я такая, так путаюсь под ногами
Димка
14:11 04-06-2003
Ёлочка Так. сперва злость, затем самоуничижение, что дальше?
Ёлочка
14:13 04-06-2003
Димка наверно пустота
Димка
14:23 04-06-2003
Ёлочка ага, пустота.... и волки воют! И ваще, ты Крымского поздравила?
Ёлочка
14:35 04-06-2003
Димка ага по аське еще утром
Димка
14:50 04-06-2003
Ёлочка Тогда молодец!
Ёлочка
14:52 04-06-2003
Димка сколько можно учить, умница )))
Димка
15:21 04-06-2003
Ёлочка МолодцА тогда, вот!
z_g
01:43 05-06-2003
"Winexec('wolf3d.exe /evil',0);"
заяц - главный демон здешнего ада!
Димка
08:23 05-06-2003
Zloy Goblin мочить надо, адназначна!
Опять без Энерджайзера - кричал Дед Мазай, разрывая очередного зайца!