anchor.diff:  end;
   
   procedure TPlayer.Drink(Index: Integer);
  -var
  -  The: string;
  -  AItem: Item;
  -  I: TItemEnum;
  -begin
  -  AItem := Items_Inventory_GetItem(Index);
  -  begin
  -    I := TItemEnum(AItem.ItemID);
  -    AItem.Amount := AItem.Amount - 1;
  -    The := GetDescThe(Items.GetName(I));
  -    MsgLog.Add(Format(_('You drink %s.'), [The]));
  -    DoEffects(ItemBase[I].Effects, ItemBase[I].Value);
  -    Items_Inventory_SetItem(Index, AItem);
  -    Self.Calc;
  -    Wait;
  -  end;
  +begin
  +
   end;
   
   procedure TPlayer.Eat(Index: Integer);
  
positive.code: var
    The: string;
    AItem: Item;
  begin
    AItem := Items_Inventory_GetItem(Index);
    The := GetDescThe(Items.GetName(TItemEnum(AItem.ItemID)));
    if (Items.GetItemEnum(AItem.ItemID) in NotEquipItems) then
    begin
      case ItemBase[TItemEnum(AItem.ItemID)].ItemType of
        // Drink a potion
        itPotion: Drink(Index);
        // Read a scroll
        itScroll: Read(Index);
        // Eat a food
        itFood: Eat(Index);
      end;
    end
    else
    begin
  
negative.code:     if (Items.GetItemEnum(AItem.ItemID) in EatItems) then
      begin
        Value := ItemBase[TItemEnum(AItem.ItemID)].Value;
        Player.Food := Player.Food + Value;
        MsgLog.Add(Format(_('You have sated %d hunger.'), [Value]));
      end;
  