*** src.org/object1.c
--- src/object1.c
***************
*** 329,337 ****
  
  static byte scroll_col[MAX_TITLES];
  
  
! 
! 
  
  
  /*
--- 329,363 ----
  
  static byte scroll_col[MAX_TITLES];
  
+ #define MAX_SLIME_NAMES 31
+ static cptr slime_names[MAX_SLIME_NAMES] = {
  
! #ifdef JP
! 	"ボブ", "ヒューイ", "マット", "フルーティ", "トム",
!     "ビル", "オーガスティン", "ソクラテス", "アナスタシア", "トニーブレイル",
!     "カッドリィ", "ガンビィ", "ヒュージィ", "ボンバディル", "アラゴルン",
!     "ブッシュ・ジュニア", "ダース", "リック", "リリス", "フレイザー",
!     "デュビア", "クレチェン", "ピート", "デル", "ナイキ",
!     "ルパート", "バズ", "ジェフリー", "ヒラリー", "ザザ",
!     "チッパー",
! #else
!     "Bob", "Fufie", "Matt", "Fruity", "Tom",
!     "Bill", "Augustin", "Socrates", "Anastacia", "TonyBlair",
!     "Cuddly", "Gumby", "Fuzzy", "Bombadil", "Aragorn",
!     "BushJr", "Darth", "Rick", "Lilith", "Frasier",
!     "Dubya", "Cretien", "Pete", "Dell", "Nike",
!     "Rupert", "Buzz", "Jeffrey", "Hillary", "ZsaZsa",
!     "Tipper"
! #endif
! };
! 
! static void
! name_slime_mold(object_type *o_ptr) {
! 
!     int value = rand_int(MAX_SLIME_NAMES);
!     o_ptr->note = quark_add(slime_names[value]);
!   
! }
  
  
  /*
***************
*** 1485,1493 ****
  		/* Food */
  		case TV_FOOD:
  		{
  			/* Ordinary food is "boring" */
  			if (o_ptr->sval >= SV_FOOD_MIN_FOOD) break;
! 
  			/* Color the object */
  #ifdef JP
  			if (english_object == TRUE) {
--- 1511,1526 ----
  		/* Food */
  		case TV_FOOD:
  		{
+ 
+ 		    // Name molds
+ 		    if (o_ptr->sval == SV_FOOD_SLIME_MOLD && !(o_ptr->note)) {
+ 			name_slime_mold((object_type *) o_ptr);
+ 		    }
+ 		    
+ 							       
  			/* Ordinary food is "boring" */
  			if (o_ptr->sval >= SV_FOOD_MIN_FOOD) break;
! 			
  			/* Color the object */
  #ifdef JP
  			if (english_object == TRUE) {