В лесу родилась елочка... глазами программера

[Alexandre]

В лесу родилась елочка... глазами программера

Песня про Елочку!
очевидно это Паскаль?

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.

 

[StUV]

=)
в последнем цикле что-то не так....

 

[netdog]

Супер ;-)

 

[Alexandre]

в последнем цикле что-то не так....

исправил на:

For i:=1 to SizeOf( Праздник.Дети ) do 
     Прадзник.Дети[i].Настроение = Праздник.елочка.радость;

 

[StUV]

Alexandre
с чего так прибивает ?

 

[Alexandre]

Новый Год уже на носу

 

[ForJest]

Alexandre
Ой не те вы ёлочки курите...

 

[Alexandre]

ForJest убираем J, получится ЛЕС
присоединяйся...

 

[TAndrew]

это Delphi. В оригинале (несколько лет назад) было чуть-чуть по-другому, с тех пор алгоритм немного мутировал...

 

[Alexandre]

TAndrew
есть время, займись и перепиши на пхп

 

[slim]

Re: В лесу родилась елочка... глазами программера

у тебя заяц создается после смерти елочки
меняй цикл или не фига не заработает!

 

[Alexandre]

slim сдесь dead - есть свойство , а не деструктор!