2 марта 2008 года в 06:53

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


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.
Loading...
  • profile
    Аноним
    2 марта 2008 года в 21:36

    ААААААААААААААА) Аффтар жжот!)))<br>Тока те, кто разбрирается в создании программ, могут понять эту незамысловатую песенку)))

  • profile
    Аноним
    24 декабря 2009 года в 17:25

    Автору респект поржал xD

Чтобы оставить комментарий, необходимо авторизоваться:


Смотри также

Правило Миранды Вагина как инструмент шантажа Как отделаться от женщины Девушка дня Это пиздец! )) Секс... Где ёжик? Факты Есть к чему стремиться Котёнок Сотворение мужчины Летите голуби, летите