anchor.diff:    end;
   
     TKMVideoPlayer = class
  +  {$IFDEF VIDEOS}
  +  private const
  +    VIDEOFILE_PATH = 'data' + PathDelim + 'gfx' + PathDelim + 'video' + PathDelim;
  +  {$ENDIF}
  +{$IFDEF VIDEOS}
     private
  -{$IFDEF VIDEOS}
       FCriticalSection: TCriticalSection;
   
       FBuffer: array of Byte;
  
positive.code: unit KM_Video;
  
  {$I KaM_Remake.inc}
  
  interface
  
  uses
    SysUtils, SyncObjs, Types, Messages, Classes, Dialogs, KromOGLUtils, Generics.Collections
    {$IFDEF WDC} , UITypes {$ENDIF}
  
negative.code:   {$IFDEF VIDEOS} , KM_VLC {$ENDIF}
    ;
  
  type
    TKMVideoPlayerCallback = reference to procedure;
  
    TKMVideoFileKind = (
      vfkNone,
      vfkStarting //Game starting video
    );
  
    TKMVideoFile = record
      Path: string;
  