anchor.diff:  procedure Items_Close();
   function Items_GetVersion(): PChar; stdcall;
   
  +// Add
  +procedure Items_Clear_Item(var AItem: TItem);
  +
   // Common
   function HasItem(AItems: TItems; Index, AMapID, AX, AY: Integer): Boolean;
   function IndexInRange(AItems: TItems; Index: Integer): Boolean;
  
positive.code: begin
    Result := LibVersion;
  end;
  
  function HasItem(AItems: TItems; Index, AMapID, AX, AY: Integer): Boolean;
  begin
  
negative.code: implementation
  
  uses uGround, uInventory;
  
  // Library
  
  procedure Items_Open();
  begin
  