anchor.diff:  interface
   
   uses BearLibItems, uCommon, uMap, uPlayer;
  -        
  +
   type
     TItemType = (itCoin, itPotion, itBlade, itAxe, itSpear, itMace, itHelm,
       itArmour);
  
positive.code:     Deep: TDeepEnum;
    end;
  
  type        
    TItemEnum = (
      // All maps
      iGold, iPotionOfHealth, iPotionOfMana,
  
negative.code: end;
  
  function TItems.GetInventory: string;
  var
    SL: TStringList;
    I, FCount: Integer;
    FItem: Item;
  begin
    Result := '';
    SL := TStringList.Create;
    try
      FCount := Clamp(Items_Inventory_GetCount(), 0, 26);
      for I := 0 to FCount - 1 do
      begin
        FItem := Items_Inventory_GetItem(I);
        SL.Append(Items.RenderInvItem(5, 2, I, FItem, False, False));
      end;
      Result := SL.Text;
    finally
      SL.Free;
    end;
  end;
  
  function TItems.GetItemEnum(AItemID: Integer): TItemEnum;
  