Dmitry Morozovsky (dmarck) wrote,
Dmitry Morozovsky
dmarck

Елочка. По-нашенски, по-дурацкому.

Прислали вот.


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.


© Stanislav A. Mushkat, судя по всему.
Subscribe

  • Ночного стихотворного

    А было время - я таким не был, было время - я ещё верил, что начнёт меня карать Небо - быть бы каре - значит, быть мере (этому трицать лет ужо) (…

  • [подставьте по вкусу]

    Я не знаю, как он это делает. Но делает. https://kolomensky.livejournal.com/169448.html This entry was originally posted at…

  • On Slowpokeness

    Что-то зазудело в районе затылка, и я раскопал Gone Home И обнаружил в ей комментарии разработчиков! Полный Конец Обеда™ This entry was…

  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 4 comments