anchor.diff:      if (Items.GetItemEnum(AItem.ItemID) in EatItems) then
       begin
         Value := ItemBase[TItemEnum(AItem.ItemID)].Value;
  -      Player.Score := Player.Score + 1;
         Player.Food := Player.Food + Value;
         MsgLog.Add(Format(_('You have sated %d hunger.'), [Value]));
       end;
  
positive.code:     Self.Mana := EnsureRange(Self.Mana + V, 0, MaxMana);
      Self.Skill(skConcentration, 5);
    end;
  end;
  
  initialization
  
negative.code: end;
  
  procedure TPlayer.Drink(Index: Integer);
  begin
  
  end;
  
  procedure TPlayer.Eat(Index: Integer);
  