 |
 |
| DiNews.ru / Юмор |    |
|
Заработай на своем сайте!
Увеличь доход от сайта! Продавай ссылки дорого!
Смайл Генератор
Телевизоры стали делать! Даже, блин, кулаком по нему не врежешь!
Виджет DiNews на Яндексе
 DiNews.ru — свежие анекдоты, смешные картинки, угарное видео. 
Поиск по лентам новостей
Последние посты:
Главный новый бич страны... "Заскоки" беременных женщин... 99-ая и Хаммер... Немного приколов... Фатальный недостаток Самые популярные посты:
Все письма Евгения Чичваркина, председателя Совета Директоров компании «Евросеть»
Земля в 3D от Google - Google Earth! Компьютер для женщин! Читать всем! Мегажесть!!! :)))) Спортивное купе Хаммер!!! Моисей! Кончай свои приколы! :) Евгений Чичваркин («Евросеть») - 4-ое письмо! Словарь падонка Титаник 2 - Джек возвращается! :) Фото-приколы: Катя Пушкарева (Сериал: "Не родись красивой") Легкий голод! Даниссимо! 17 пикчей! ТОП-100 постов:
10-ка случайных постов:
Стоит "шестисотый". Рядом танк... Разговор в ванной... Такие черепахи водятся только в Голландии... Они умеют летать и смеяться! Ограбления банков - лучшая десятка Студенческое... Сержант проводит вечернюю поверку в подразделении... Калашников - Большой удобный магазин! Жизнь - г! Джедайский швейцарский нож! Скажи мне кто ты и я скажу кто твой друг! Рекламный блок
|
В лесу родилась елочка (programm version)12.07.2005 09:05 • Posted by pilot • View: 4488 • Версия для печатиБаян, но прикольно :) 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.
|
||||
| Всякое разное | Это интересно! | Юмор | Пикчи | Софт | Железки | Видео | SEO Tools | SEO Tools / Count Links |
|
|
При использовании материалов сайта DiNews.ru, ссылка на сайт обязательна! Все права на опубликованные на сайте DiNews.ru аудио, видео, графические и текстовые материалы принадлежат их законным владельцам! |
| Реклама на сайте | © 2005—2024 DiNews.ru |