Тем и живем! :)
DiNews.ru / Юмор На главнуюДобавить в сайт ИзбранноеНаписать письмо
Заработай на своем сайте!
Увеличь доход от сайта! Продавай ссылки дорого!
Смайл Генератор
Гадкого утенка все били, дразнили, обижали. Но прошло всего пять лет, и его больше никто не бил, не дразнил, не обижал... Не живут утки столько.
Виджет DiNews на Яндексе

DiNews.ru — свежие анекдоты, смешные картинки, угарное видео.

добавить на Яндекс
Поиск по лентам новостей
Последние посты:
Самые популярные посты:
ТОП-100 постов:
10-ка случайных постов:
Рекламный блок

В лесу родилась елочка (programm version)

12.07.2005 09:05 • Posted by pilot • View: 4607 • Версия для печати

Баян, но прикольно :)


program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age+1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;
метель.filename:=’D:MusicNSYNC — 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.
program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age+1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;
метель.filename:=’D:MusicNSYNC — 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.
Раздел: Юмор
Версия для печати Постоянный адрес новости 


Комментарии к посту: В лесу родилась елочка (programm version)

Добавление комментариев отключено.
Всякое разное | Это интересно! | Юмор | Пикчи | Софт | Железки | Видео | SEO Tools | SEO Tools / Count Links На главнуюНаверх
  Rambler's Top100 
При использовании материалов сайта DiNews.ru, ссылка на сайт обязательна!
Все права на опубликованные на сайте DiNews.ru аудио, видео, графические и
текстовые материалы принадлежат их законным владельцам!
DiNews.ru • Daily Internet News • Самое интересное в интернете!DiNews.ru RSS 2.0Оптимизировано под 800x600 и шире... и выше...Хостинг предоставлен HOSTWORKS.RU
Реклама на сайте ©  2005—2024 DiNews.ru