Roman Zargarov (zargarov) wrote,
Roman Zargarov
zargarov

С Новым Годом ! =) Бля.

program Елочка;
Begin
Лес.Елочка:=TЕлочка.Create;
while not(Лес.Елочка.Dead) do
begin
Inc(Лес.Елочка.Age);
if (Зима or Лето) then
begin
Лес.Елочка.Slender:=TRUE;
Лес.Елочка.Color:=clGreen;
end;
Метель.FileName:='D:\Music\NSYNC - Bye Bye Bye.mp3';
Метель.Open;
Метель.Play;
Sleep(1000);
Мороз.CallBack:=Снежок;
Мороз.Укутать(Лес.Елочка);
GetMessage(H,Лес.Елочка.handle,0,0);
if (H.uint=WM_ЗАМЕРЗЛА) then
Лес.Елочка.Dead:=TRUE;
end;

Лес.Заяц:=TЗаяц.Create;
Лес.Заяц.Трусливый:=TRUE;
Лес.Заяц.Color:=clGray;
for i:=1 to 255 do
begin
Лес.Заяц.Left:=Лес.Елочка.Left+Round(Лес.Елочка.Radius*sin(512*PI*/i));
Лес.Заяц.Top:=Лес.Елочка.Top+Round(Лес.Елочка.Radius*cos(512*PI*/i));
end;
WinExec('wolf3d.exe /evil',0);

Лес.Елочка.CutToClipboard;
Праздник.PasteFromClipboard;
Праздник.Елочка.Skin.LoadFromFile('нарядная.jpg');
For i:=1 to SizeOf(Праздник.Елочка.Радость) do
Move(Праздник.Елочка.Радость[i],Праздник.Дети.Радость[i],SizeOf(TРадость));
end.
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 0 comments