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