PHP:


В лесу родилась елочка...



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.
font>