Live
Internet
мобильная версия
Дневники
Личка
Авторизация
Дневник
pigveen
Лента друзей
-
Дневник
-
Полная версия
30-12-2003 00:45
к комментариям
-
к полной версии
-
понравилось!
больше нет
вверх^
к полной версии
понравилось!
в evernote
Комментарии (2):
Lady_в_красном
30-12-2003-01:45
удалить
Зато теперь остался 1 день до ...
с НАСТУПАЮЩИМ :-)))
"Новогодняя песня":
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.
Обратиться
-
Ответить
-
К полной версии
pigveen
30-12-2003-18:49
удалить
=)))))))))))))))))))))))))))))))
КЛЕВА!!!!!!!!!=)))))))))))))))))))))))))))))
я сдала=)
ТЕПЕРЬ И У МЕНЯ БУДЕТ ПРАЗДНИК НОВЫЙ ГОД!!!
Обратиться
-
Ответить
-
К полной версии
Комментарии (2):
вверх^
Вы сейчас не можете прокомментировать это сообщение.
Дневник | pigveen - Кто бы мог подумать!.. |
Лента друзей pigveen
/
Полная версия
Добавить в друзья
Страницы:
раньше»