+/*!
+ * @brief 指定された地点の地形IDを変更する /
+ * Create desired feature
+ * @return なし
+ */
+static void do_cmd_wiz_create_feature(void)
+{
+ static int prev_feat = 0;
+ static int prev_mimic = 0;
+ cave_type *c_ptr;
+ feature_type *f_ptr;
+ char tmp_val[160];
+ IDX tmp_feat, tmp_mimic;
+ POSITION y, x;
+
+ if (!tgt_pt(&x, &y)) return;
+
+ c_ptr = &cave[y][x];
+
+ /* Default */
+ sprintf(tmp_val, "%d", prev_feat);
+
+ /* Query */
+ if (!get_string(_("地形: ", "Feature: "), tmp_val, 3)) return;
+
+ /* Extract */
+ tmp_feat = (IDX)atoi(tmp_val);
+ if (tmp_feat < 0) tmp_feat = 0;
+ else if (tmp_feat >= max_f_idx) tmp_feat = max_f_idx - 1;
+
+ /* Default */
+ sprintf(tmp_val, "%d", prev_mimic);
+
+ /* Query */
+ if (!get_string(_("地形 (mimic): ", "Feature (mimic): "), tmp_val, 3)) return;
+
+ /* Extract */
+ tmp_mimic = (IDX)atoi(tmp_val);
+ if (tmp_mimic < 0) tmp_mimic = 0;
+ else if (tmp_mimic >= max_f_idx) tmp_mimic = max_f_idx - 1;
+
+ cave_set_feat(y, x, tmp_feat);
+ c_ptr->mimic = (s16b)tmp_mimic;
+
+ f_ptr = &f_info[get_feat_mimic(c_ptr)];
+
+ if (have_flag(f_ptr->flags, FF_GLYPH) ||
+ have_flag(f_ptr->flags, FF_MINOR_GLYPH))
+ c_ptr->info |= (CAVE_OBJECT);
+ else if (have_flag(f_ptr->flags, FF_MIRROR))
+ c_ptr->info |= (CAVE_GLOW | CAVE_OBJECT);
+
+ note_spot(y, x);
+
+ /* Redraw */
+ lite_spot(y, x);
+
+ /* Update some things */
+ p_ptr->update |= (PU_FLOW);
+
+ prev_feat = tmp_feat;
+ prev_mimic = tmp_mimic;
+}
+
+