[humour] песенка про елочку

stm5643616

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.

apl13

Winexec('wolf3d.exe /evil',0);

stm5643616

slonishka

apl13

shlyumper

slonishka

stm5643616

apl13

apl13

stm7884696

mysha

Aleksei66

freezer

hov77

apl13