Мир японской анимации. Аниме и манга в Украине. Сообщество форумов  

Вернуться   Мир японской анимации. Аниме и манга в Украине. Сообщество форумов > Всякое разное > Юмор
Регистрация Справка Пользователи Календарь Все разделы прочитаны

Ответ
 
Опции темы
Старый 27.06.2003, 06:52   #1
Wishmaster
 
Сообщения: n/a
Post

Немного не в тот сезон, но зато прикольно...

program Елочка;
В лесу елочка.Create(), в лесу она елочка.Grow()

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.
  Ответить с цитированием
Реклама на форуме
Ответ


Здесь присутствуют: 1 (пользователей - 0 , гостей - 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 03:08.



реклама:

Copyright (c) 2001-2015 by проект Мир японской анимации (anime.ua). Администрирование и руководство сайтом, часть содержания - Mr Mingan. Дизайн - by fafhrd.
Администрация сайта не несет ответственности за достоверность информации, опубликованной в рекламных и баннерных объявлениях.
Мнение администрации сайта может не совпадать с мнением авторов сообщений в форуме



MyAnimeTop - рейтинг сайтов по аниме, манге и хентаю Rambler's Top100