anchor.diff:  var
     I, J, A: Integer;
   
  -  procedure Add(var AItems: TItems; AItem: Item); stdcall;
  +  procedure Add(AItem: Item); stdcall;
     var
       A, J: Integer;
     begin
  
positive.code:   FItem: Item;
    I: Integer;
  begin
    Result := FItem;
    Items_Clear_Item(Result);
    if HasEmpty(MapItems) then Exit;
  
negative.code:         AItem.Amount := J;
          AddItem(MapItems, AItem);
        end;
      end else Add(AItem);
    end else Add(AItem);
  end;
  
  function Items_Dungeon_DeleteItem(Index: Integer; var AItem: Item): Integer; stdcall;
  