Чистый юмор .: Uucyc.ruЧистый юмор

Новогодняя песня для программистов

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.

Сообщество Вконтакте
Q.Ресурсы:
Q.Орфография:
  Если Вы заметили любого рода ошибку в тексте, пожалуйста, выделите её и нажмите Ctrl+Enter. Мы рассматриваем каждый Ваш сигнал с благодарностью за Вашу помощь!
Разделы сайта:
  • » Видео
  • » Загадки
  • » Игры
  • » Идеи
  • » Илл-ции
  • » Комиксы
  • » Лагерь
  • » Новости
  • » Опросы
  • » Ответы
  • » Открытки
  • » Песни
  • » Послания
  • » Поделки
  • » Поэзия
  • » Психология
  • » Рассказы
  • » Свадьбы
  • » Статистика
  • » Страсти Хр.
  • » Сценки
  • » Тесты
  • » Фильмы
  • » Фразы
  • » Шутки
  Авторские права на размещенные материалы [если не оговорено иначе] принадлежат авторам; в случае заимствования материалов для дальнейшей публикации их в электронных или печатных изданиях обязательно наличие явной активной ссылки на сайт Uucyc.ru.    Все права сохранены.
   © 2000-2024, Uucyc.ruGT: [0.0109]
Орфус