add type casting for fprintf

[hengband/hengband.git] / src / wizard2.c

diff --git a/src/wizard2.c b/src/wizard2.c
index 50e0086..31a7b29 100644 (file)
--- a/src/wizard2.c
+++ b/src/wizard2.c
@@ -108,7 +108,7 @@ static bool wiz_dimension_door(void)
 
        if (!tgt_pt(&x, &y)) return FALSE;
 
-       teleport_player_to(y, x, FALSE, FALSE);
+       teleport_player_to(y, x, TELEPORT_NONMAGICAL);
 
        return (TRUE);
 }
@@ -121,7 +121,7 @@ static bool wiz_dimension_door(void)
 static void wiz_create_named_art(int a_idx)
 {
        /* Create the artifact */
-       create_named_art(a_idx, py, px);
+       (void)create_named_art(a_idx, py, px);
 
        /* All done */
        msg_print("Allocated.");
@@ -339,7 +339,7 @@ static void do_cmd_wiz_bamf(void)
        if (!target_who) return;
 
        /* Teleport to the target */
-       teleport_player_to(target_row, target_col, FALSE, FALSE);
+       teleport_player_to(target_row, target_col, TELEPORT_NONMAGICAL);
 }
 
 
@@ -649,11 +649,12 @@ static tval_desc tvals[] =
        { TV_DEATH_BOOK,        "Death Spellbook"      },
        { TV_TRUMP_BOOK,        "Trump Spellbook"      },
        { TV_ARCANE_BOOK,       "Arcane Spellbook"     },
-       { TV_ENCHANT_BOOK,      "Craft Spellbook"},
+       { TV_CRAFT_BOOK,      "Craft Spellbook"},
        { TV_DAEMON_BOOK,       "Daemon Spellbook"},
        { TV_CRUSADE_BOOK,      "Crusade Spellbook"},
        { TV_MUSIC_BOOK,        "Music Spellbook"      },
        { TV_HISSATSU_BOOK,     "Book of Kendo" },
+       { TV_HEX_BOOK,          "Hex Spellbook"        },
        { TV_PARCHMENT,         "Parchment" },
        { TV_WHISTLE,           "Whistle"       },
        { TV_SPIKE,             "Spikes"               },
@@ -1039,7 +1040,7 @@ static void wiz_statistics(object_type *o_ptr)
                        break;
                }
 
-               sprintf(tmp_val, "%ld", test_roll);
+               sprintf(tmp_val, "%ld", (long int)test_roll);
                if (get_string(p, tmp_val, 10)) test_roll = atol(tmp_val);
                test_roll = MAX(1, test_roll);
 
@@ -1390,7 +1391,7 @@ static void wiz_create_item(void)
                        if (a_info[i].sval != k_info[k_idx].sval) continue;
 
                        /* Create this artifact */
-                       create_named_art(i, py, px);
+                       (void)create_named_art(i, py, px);
 
                        /* All done */
                        msg_print("Allocated(INSTA_ART).");
@@ -1643,6 +1644,14 @@ static void do_cmd_wiz_zap(void)
                /* Delete nearby monsters */
                if (m_ptr->cdis <= MAX_SIGHT)
                {
+                       if (record_named_pet && is_pet(m_ptr) && m_ptr->nickname)
+                       {
+                               char m_name[80];
+
+                               monster_desc(m_name, m_ptr, MD_INDEF_VISIBLE);
+                               do_cmd_write_nikki(NIKKI_NAMED_PET, RECORD_NAMED_PET_WIZ_ZAP, m_name);
+                       }
+
                        delete_monster_idx(i);
                }
        }
@@ -1667,12 +1676,92 @@ static void do_cmd_wiz_zap_all(void)
                /* Skip the mount */
                if (i == p_ptr->riding) continue;
 
+               if (record_named_pet && is_pet(m_ptr) && m_ptr->nickname)
+               {
+                       char m_name[80];
+
+                       monster_desc(m_name, m_ptr, MD_INDEF_VISIBLE);
+                       do_cmd_write_nikki(NIKKI_NAMED_PET, RECORD_NAMED_PET_WIZ_ZAP, m_name);
+               }
+
                /* Delete this monster */
                delete_monster_idx(i);
        }
 }
 
 
+/*
+ * Create desired feature
+ */
+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];
+       int          tmp_feat, tmp_mimic;
+       int          y, x;
+
+       if (!tgt_pt(&x, &y)) return;
+
+       c_ptr = &cave[y][x];
+
+       /* Default */
+       sprintf(tmp_val, "%d", prev_feat);
+
+       /* Query */
+#ifdef JP
+       if (!get_string("ÃÏ·Á: ", tmp_val, 3)) return;
+#else
+       if (!get_string("Feature: ", tmp_val, 3)) return;
+#endif
+
+       /* Extract */
+       tmp_feat = 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 */
+#ifdef JP
+       if (!get_string("ÃÏ·Á (mimic): ", tmp_val, 3)) return;
+#else
+       if (!get_string("Feature (mimic): ", tmp_val, 3)) return;
+#endif
+
+       /* Extract */
+       tmp_mimic = 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 = 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);
+
+       /* Notice */
+       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;
+}
+
+
 #define NUM_O_SET 8
 #define NUM_O_BIT 32
 
@@ -1870,6 +1959,11 @@ void do_cmd_debug(void)
                identify_fully(FALSE);
                break;
 
+       /* Create desired feature */
+       case 'F':
+               do_cmd_wiz_create_feature();
+               break;
+
        /* Good Objects */
        case 'g':
                if (command_arg <= 0) command_arg = 1;
@@ -1944,7 +2038,7 @@ void do_cmd_debug(void)
 
        /* Phase Door */
        case 'p':
-               teleport_player(10, FALSE);
+               teleport_player(10, 0L);
                break;
 
 #if 0
@@ -1988,7 +2082,7 @@ void do_cmd_debug(void)
 
        /* Teleport */
        case 't':
-               teleport_player(100, FALSE);
+               teleport_player(100, 0L);
                break;
 
        /* Very Good Objects */