OSDN Git Service

[Refactor] #37353 コメント整理 / Refactor comments.
[hengband/hengband.git] / src / wizard2.c
index 700ef76..594e6c9 100644 (file)
@@ -11,6 +11,7 @@
  */
 
 #include "angband.h"
+#include "selfinfo.h"
 
 
 /*!
@@ -31,7 +32,7 @@ void do_cmd_rerate_aux(void)
        while (1)
        {
                /* Pre-calculate level 1 hitdice */
-               p_ptr->player_hp[0] = p_ptr->hitdie;
+               p_ptr->player_hp[0] = (HIT_POINT)p_ptr->hitdie;
 
                for (i = 1; i < 4; i++)
                {
@@ -58,7 +59,7 @@ void do_cmd_rerate_aux(void)
  */
 void do_cmd_rerate(bool display)
 {
-       int percent;
+       PERCENTAGE percent;
 
        /* Rerate */
        do_cmd_rerate_aux();
@@ -72,13 +73,11 @@ void do_cmd_rerate(bool display)
        p_ptr->update |= (PU_HP);
        p_ptr->redraw |= (PR_HP);
 
-       /* Window stuff */
        p_ptr->window |= (PW_PLAYER);
 
        /* Handle stuff */
        handle_stuff();
 
-       /* Message */
        if (display)
        {
                msg_format(_("現在の体力ランクは %d/100 です。", "Your life rate is %d/100 now."), percent);
@@ -100,13 +99,40 @@ void do_cmd_rerate(bool display)
  */
 static bool wiz_dimension_door(void)
 {
-       int     x = 0, y = 0;
-
+       POSITION x = 0, y = 0;
        if (!tgt_pt(&x, &y)) return FALSE;
-
        teleport_player_to(y, x, TELEPORT_NONMAGICAL);
+       return (TRUE);
+}
+
+
+/*!
+ * @brief プレイ日数を変更する / Set gametime.
+ * @return 実際に変更を行ったらTRUEを返す
+ */
+static bool set_gametime(void)
+{
+       int tmp_int = 0;
+       char ppp[80], tmp_val[40];
+
+       /* Prompt */
+       sprintf(ppp, "Dungeon Turn (0-%ld): ", (long)dungeon_turn_limit);
+
+       /* Default */
+       sprintf(tmp_val, "%ld", (long)dungeon_turn);
+
+       /* Query */
+       if (!get_string(ppp, tmp_val, 10)) return (FALSE);
+
+       /* Extract */
+       tmp_int = atoi(tmp_val);
 
+       /* Verify */
+       if (tmp_int >= dungeon_turn_limit) tmp_int = dungeon_turn_limit - 1;
+       else if (tmp_int < 0) tmp_int = 0;
+       dungeon_turn = turn = tmp_int;
        return (TRUE);
+
 }
 
 
@@ -117,18 +143,18 @@ static bool wiz_dimension_door(void)
 static void wiz_create_named_art(void)
 {
        char tmp_val[10] = "";
-       int a_idx;
+       ARTIFACT_IDX a_idx;
 
        /* Query */
        if (!get_string("Artifact ID:", tmp_val, 3)) return;
 
        /* Extract */
-       a_idx = atoi(tmp_val);
+       a_idx = (ARTIFACT_IDX)atoi(tmp_val);
        if(a_idx < 0) a_idx = 0;
        if(a_idx >= max_a_idx) a_idx = 0; 
 
        /* Create the artifact */
-       (void)create_named_art(a_idx, py, px);
+       (void)create_named_art(a_idx, p_ptr->y, p_ptr->x);
 
        /* All done */
        msg_print("Allocated.");
@@ -141,42 +167,36 @@ static void wiz_create_named_art(void)
  */
 static void do_cmd_wiz_hack_ben(void)
 {
-       /* Oops */
        msg_print("Oops.");
        (void)probing();
 }
 
-
-#ifdef MONSTER_HORDES
-
 /*!
  * @brief ウィザードモード用モンスターの群れ生成 / Summon a horde of monsters
  * @return なし
  */
 static void do_cmd_summon_horde(void)
 {
-       int wy = py, wx = px;
+       POSITION wy = p_ptr->y, wx = p_ptr->x;
        int attempts = 1000;
 
        while (--attempts)
        {
-               scatter(&wy, &wx, py, px, 3, 0);
+               scatter(&wy, &wx, p_ptr->y, p_ptr->x, 3, 0);
                if (cave_empty_bold(wy, wx)) break;
        }
 
        (void)alloc_horde(wy, wx);
 }
 
-#endif /* MONSTER_HORDES */
-
 /*!
  * @brief 32ビット変数のビット配列を並べて描画する / Output a long int in binary format.
  * @return なし
  */
-static void prt_binary(u32b flags, int row, int col)
+static void prt_binary(BIT_FLAGS flags, int row, int col)
 {
-       int             i;
-       u32b        bitmask;
+       int i;
+       u32b bitmask;
 
        /* Scan the flags */
        for (i = bitmask = 1; i <= 32; i++, bitmask *= 2)
@@ -206,7 +226,7 @@ static void prt_binary(u32b flags, int row, int col)
  * @param col 表示行
  * @return なし
  */
-static void prt_alloc(byte tval, byte sval, int row, int col)
+static void prt_alloc(OBJECT_TYPE_VALUE tval, OBJECT_SUBTYPE_VALUE sval, TERM_LEN row, TERM_LEN col)
 {
        int i, j;
        int home = 0;
@@ -231,7 +251,7 @@ static void prt_alloc(byte tval, byte sval, int row, int col)
                int total_frac = 0;
                for (j = 0; j < alloc_kind_size; j++)
                {
-                       int prob = 0;
+                       PERCENTAGE prob = 0;
 
                        if (table[j].level <= i)
                        {
@@ -319,7 +339,7 @@ static void do_cmd_wiz_reset_class(void)
        if (tmp_int < 0 || tmp_int >= MAX_CLASS) return;
 
        /* Save it */
-       p_ptr->pclass = tmp_int;
+       p_ptr->pclass = (byte_hack)tmp_int;
 
        /* Redraw inscription */
        p_ptr->window |= (PW_PLAYER);
@@ -380,7 +400,7 @@ static void do_cmd_wiz_change_aux(void)
                else if (tmp_int < 3) tmp_int = 3;
 
                /* Save it */
-               p_ptr->stat_cur[i] = p_ptr->stat_max[i] = tmp_int;
+               p_ptr->stat_cur[i] = p_ptr->stat_max[i] = (s16b)tmp_int;
        }
 
 
@@ -391,7 +411,7 @@ static void do_cmd_wiz_change_aux(void)
        if (!get_string(_("熟練度: ", "Proficiency: "), tmp_val, 9)) return;
 
        /* Extract */
-       tmp_s16b = atoi(tmp_val);
+       tmp_s16b = (s16b)atoi(tmp_val);
 
        /* Verify */
        if (tmp_s16b < WEAPON_EXP_UNSKILLED) tmp_s16b = WEAPON_EXP_UNSKILLED;
@@ -538,7 +558,7 @@ static void do_cmd_wiz_change(void)
 static void wiz_display_item(object_type *o_ptr)
 {
        int i, j = 13;
-       u32b flgs[TR_FLAG_SIZE];
+       BIT_FLAGS flgs[TR_FLAG_SIZE];
        char buf[256];
 
        /* Extract the flags */
@@ -683,7 +703,7 @@ static tval_desc tvals[] =
  * @param k_idx ベースアイテムID
  * @return なし
  */
-void strip_name(char *buf, int k_idx)
+void strip_name(char *buf, KIND_OBJECT_IDX k_idx)
 {
        char *t;
 
@@ -718,16 +738,17 @@ void strip_name(char *buf, int k_idx)
  * This function returns the k_idx of an object type, or zero if failed
  * List up to 50 choices in three columns
  */
-static int wiz_create_itemtype(void)
+static KIND_OBJECT_IDX wiz_create_itemtype(void)
 {
-       int i, num, max_num;
-       int col, row;
-       int tval;
+       KIND_OBJECT_IDX i;
+       int num, max_num;
+       TERM_LEN col, row;
+       OBJECT_TYPE_VALUE tval;
 
        cptr tval_desc;
        char ch;
 
-       int choice[80];
+       KIND_OBJECT_IDX choice[80];
 
        char buf[160];
 
@@ -830,25 +851,25 @@ static void wiz_tweak_item(object_type *o_ptr)
        p = "Enter new 'pval' setting: ";
        sprintf(tmp_val, "%d", o_ptr->pval);
        if (!get_string(p, tmp_val, 5)) return;
-       o_ptr->pval = atoi(tmp_val);
+       o_ptr->pval = (s16b)atoi(tmp_val);
        wiz_display_item(o_ptr);
 
        p = "Enter new 'to_a' setting: ";
        sprintf(tmp_val, "%d", o_ptr->to_a);
        if (!get_string(p, tmp_val, 5)) return;
-       o_ptr->to_a = atoi(tmp_val);
+       o_ptr->to_a = (s16b)atoi(tmp_val);
        wiz_display_item(o_ptr);
 
        p = "Enter new 'to_h' setting: ";
        sprintf(tmp_val, "%d", o_ptr->to_h);
        if (!get_string(p, tmp_val, 5)) return;
-       o_ptr->to_h = atoi(tmp_val);
+       o_ptr->to_h = (s16b)atoi(tmp_val);
        wiz_display_item(o_ptr);
 
        p = "Enter new 'to_d' setting: ";
-       sprintf(tmp_val, "%d", o_ptr->to_d);
+       sprintf(tmp_val, "%d", (int)o_ptr->to_d);
        if (!get_string(p, tmp_val, 5)) return;
-       o_ptr->to_d = atoi(tmp_val);
+       o_ptr->to_d = (s16b)atoi(tmp_val);
        wiz_display_item(o_ptr);
 }
 
@@ -981,7 +1002,6 @@ static void wiz_reroll_item(object_type *o_ptr)
                /* Combine / Reorder the pack (later) */
                p_ptr->notice |= (PN_COMBINE | PN_REORDER);
 
-               /* Window stuff */
                p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_SPELL | PW_PLAYER);
        }
 }
@@ -1008,7 +1028,7 @@ static void wiz_statistics(object_type *o_ptr)
        char ch;
        cptr quality;
 
-       u32b mode;
+       BIT_FLAGS mode;
 
        object_type forge;
        object_type     *q_ptr;
@@ -1019,7 +1039,7 @@ static void wiz_statistics(object_type *o_ptr)
        char tmp_val[80];
 
 
-       /* XXX XXX XXX Mega-Hack -- allow multiple artifacts */
+       /* Mega-Hack -- allow multiple artifacts */
        if (object_is_fixed_artifact(o_ptr)) a_info[o_ptr->name1].cur_num = 0;
 
 
@@ -1078,11 +1098,8 @@ static void wiz_statistics(object_type *o_ptr)
                                /* Allow interupt */
                                if (inkey())
                                {
-                                       /* Flush */
                                        flush();
-
-                                       /* Stop rolling */
-                                       break;
+                                       break; // stop rolling
                                }
 
                                /* Dump the stats */
@@ -1101,7 +1118,7 @@ static void wiz_statistics(object_type *o_ptr)
                        make_object(q_ptr, mode);
 
 
-                       /* XXX XXX XXX Mega-Hack -- allow multiple artifacts */
+                       /* Mega-Hack -- allow multiple artifacts */
                        if (object_is_fixed_artifact(q_ptr)) a_info[q_ptr->name1].cur_num = 0;
 
 
@@ -1178,7 +1195,7 @@ static void wiz_quantity_item(object_type *o_ptr)
        tmp_qnt = o_ptr->number;
 
        /* Default */
-       sprintf(tmp_val, "%d", o_ptr->number);
+       sprintf(tmp_val, "%d", (int)o_ptr->number);
 
        /* Query */
        if (get_string("Quantity: ", tmp_val, 2))
@@ -1191,7 +1208,7 @@ static void wiz_quantity_item(object_type *o_ptr)
                if (tmp_int > 99) tmp_int = 99;
 
                /* Accept modifications */
-               o_ptr->number = tmp_int;
+               o_ptr->number = (byte_hack)tmp_int;
        }
 
        if (o_ptr->tval == TV_ROD)
@@ -1245,7 +1262,7 @@ static void do_cmd_wiz_blue_mage(void)
  */
 static void do_cmd_wiz_play(void)
 {
-       int item;
+       OBJECT_IDX item;
 
        object_type     forge;
        object_type *q_ptr;
@@ -1259,7 +1276,6 @@ static void do_cmd_wiz_play(void)
        cptr q, s;
 
        item_tester_no_ryoute = TRUE;
-       /* Get an item */
        q = "Play with which object? ";
        s = "You have nothing to play with.";
        if (!get_item(&item, q, s, (USE_EQUIP | USE_INVEN | USE_FLOOR))) return;
@@ -1339,7 +1355,6 @@ static void do_cmd_wiz_play(void)
        /* Accept change */
        if (changed)
        {
-               /* Message */
                msg_print("Changes accepted.");
 
                /* Recalcurate object's weight */
@@ -1359,7 +1374,6 @@ static void do_cmd_wiz_play(void)
                /* Combine / Reorder the pack (later) */
                p_ptr->notice |= (PN_COMBINE | PN_REORDER);
 
-               /* Window stuff */
                p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_SPELL | PW_PLAYER);
        }
 
@@ -1388,8 +1402,7 @@ static void wiz_create_item(void)
        object_type     forge;
        object_type *q_ptr;
 
-       int k_idx;
-
+       OBJECT_IDX k_idx;
 
        /* Save the screen */
        screen_save();
@@ -1400,13 +1413,12 @@ static void wiz_create_item(void)
        /* Restore the screen */
        screen_load();
 
-
        /* Return if failed */
        if (!k_idx) return;
 
        if (k_info[k_idx].gen_flags & TRG_INSTA_ART)
        {
-               int i;
+               ARTIFACT_IDX i;
 
                /* Artifactify */
                for (i = 1; i < max_a_idx; i++)
@@ -1418,7 +1430,7 @@ static void wiz_create_item(void)
                        if (a_info[i].sval != k_info[k_idx].sval) continue;
 
                        /* Create this artifact */
-                       (void)create_named_art(i, py, px);
+                       (void)create_named_art(i, p_ptr->y, p_ptr->x);
 
                        /* All done */
                        msg_print("Allocated(INSTA_ART).");
@@ -1437,7 +1449,7 @@ static void wiz_create_item(void)
        apply_magic(q_ptr, dun_level, AM_NO_FIXED_ART);
 
        /* Drop the object from heaven */
-       (void)drop_near(q_ptr, -1, py, px);
+       (void)drop_near(q_ptr, -1, p_ptr->y, p_ptr->x);
 
        /* All done */
        msg_print("Allocated.");
@@ -1451,53 +1463,8 @@ static void wiz_create_item(void)
  */
 static void do_cmd_wiz_cure_all(void)
 {
-       /* Restore stats */
-       (void)res_stat(A_STR);
-       (void)res_stat(A_INT);
-       (void)res_stat(A_WIS);
-       (void)res_stat(A_CON);
-       (void)res_stat(A_DEX);
-       (void)res_stat(A_CHR);
-
-       /* Restore the level */
-       (void)restore_level();
-
-       /* Heal the player */
-       if (p_ptr->chp < p_ptr->mhp)
-       {
-               p_ptr->chp = p_ptr->mhp;
-               p_ptr->chp_frac = 0;
-
-               /* Redraw */
-               p_ptr->redraw |= (PR_HP);
-
-               /* Window stuff */
-               p_ptr->window |= (PW_PLAYER);
-       }
-
-       /* Restore mana */
-       if (p_ptr->csp < p_ptr->msp)
-       {
-               p_ptr->csp = p_ptr->msp;
-               p_ptr->csp_frac = 0;
-
-               p_ptr->redraw |= (PR_MANA);
-               p_ptr->window |= (PW_PLAYER);
-               p_ptr->window |= (PW_SPELL);
-       }
-
-       /* Cure stuff */
-       (void)set_blind(0);
-       (void)set_confused(0);
-       (void)set_poisoned(0);
-       (void)set_afraid(0);
-       (void)set_paralyzed(0);
-       (void)set_image(0);
-       (void)set_stun(0);
-       (void)set_cut(0);
-       (void)set_slow(0, TRUE);
-
-       /* No longer hungry */
+       (void)life_stream(FALSE, FALSE);
+       (void)restore_mana(TRUE);
        (void)set_food(PY_FOOD_MAX - 1);
 }
 
@@ -1513,9 +1480,8 @@ static void do_cmd_wiz_jump(void)
        if (command_arg <= 0)
        {
                char    ppp[80];
-
                char    tmp_val[160];
-               int             tmp_dungeon_type;
+               DUNGEON_IDX tmp_dungeon_type;
 
                /* Prompt */
                sprintf(ppp, "Jump which dungeon : ");
@@ -1526,20 +1492,21 @@ static void do_cmd_wiz_jump(void)
                /* Ask for a level */
                if (!get_string(ppp, tmp_val, 2)) return;
 
-               tmp_dungeon_type = atoi(tmp_val);
+               tmp_dungeon_type = (DUNGEON_IDX)atoi(tmp_val);
                if (!d_info[tmp_dungeon_type].maxdepth || (tmp_dungeon_type > max_d_idx)) tmp_dungeon_type = DUNGEON_ANGBAND;
 
                /* Prompt */
-               sprintf(ppp, "Jump to level (0, %d-%d): ", d_info[tmp_dungeon_type].mindepth, d_info[tmp_dungeon_type].maxdepth);
+               sprintf(ppp, "Jump to level (0, %d-%d): ",
+                       (int)d_info[tmp_dungeon_type].mindepth, (int)d_info[tmp_dungeon_type].maxdepth);
 
                /* Default */
-               sprintf(tmp_val, "%d", dun_level);
+               sprintf(tmp_val, "%d", (int)dun_level);
 
                /* Ask for a level */
                if (!get_string(ppp, tmp_val, 10)) return;
 
                /* Extract request */
-               command_arg = atoi(tmp_val);
+               command_arg = (COMMAND_ARG)atoi(tmp_val);
 
                dungeon_type = tmp_dungeon_type;
        }
@@ -1548,7 +1515,7 @@ static void do_cmd_wiz_jump(void)
        if (command_arg < d_info[dungeon_type].mindepth) command_arg = 0;
 
        /* Paranoia */
-       if (command_arg > d_info[dungeon_type].maxdepth) command_arg = d_info[dungeon_type].maxdepth;
+       if (command_arg > d_info[dungeon_type].maxdepth) command_arg = (COMMAND_ARG)d_info[dungeon_type].maxdepth;
 
        /* Accept request */
        msg_format("You jump to dungeon level %d.", command_arg);
@@ -1569,7 +1536,7 @@ static void do_cmd_wiz_jump(void)
        if (record_stair) do_cmd_write_nikki(NIKKI_WIZ_TELE,0,NULL);
 
        p_ptr->inside_quest = 0;
-       energy_use = 0;
+       p_ptr->energy_use = 0;
 
        /* Prevent energy_need from being too lower than 0 */
        p_ptr->energy_need = 0;
@@ -1592,7 +1559,7 @@ static void do_cmd_wiz_jump(void)
  */
 static void do_cmd_wiz_learn(void)
 {
-       int i;
+       IDX i;
 
        object_type forge;
        object_type *q_ptr;
@@ -1627,10 +1594,9 @@ static void do_cmd_wiz_learn(void)
 static void do_cmd_wiz_summon(int num)
 {
        int i;
-
        for (i = 0; i < num; i++)
        {
-               (void)summon_specific(0, py, px, dun_level, 0, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
+               (void)summon_specific(0, p_ptr->y, p_ptr->x, dun_level, 0, (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE));
        }
 }
 
@@ -1642,11 +1608,11 @@ static void do_cmd_wiz_summon(int num)
  * @param r_idx モンスター種族ID
  * @return なし
  * @details
- * XXX XXX XXX This function is rather dangerous
+ * This function is rather dangerous
  */
-static void do_cmd_wiz_named(int r_idx)
+static void do_cmd_wiz_named(MONRACE_IDX r_idx)
 {
-       (void)summon_named_creature(0, py, px, r_idx, (PM_ALLOW_SLEEP | PM_ALLOW_GROUP));
+       (void)summon_named_creature(0, p_ptr->y, p_ptr->x, r_idx, (PM_ALLOW_SLEEP | PM_ALLOW_GROUP));
 }
 
 
@@ -1656,11 +1622,11 @@ static void do_cmd_wiz_named(int r_idx)
  * @param r_idx モンスター種族ID
  * @return なし
  * @details
- * XXX XXX XXX This function is rather dangerous
+ * This function is rather dangerous
  */
-static void do_cmd_wiz_named_friendly(int r_idx)
+static void do_cmd_wiz_named_friendly(MONRACE_IDX r_idx)
 {
-       (void)summon_named_creature(0, py, px, r_idx, (PM_ALLOW_SLEEP | PM_ALLOW_GROUP | PM_FORCE_PET));
+       (void)summon_named_creature(0, p_ptr->y, p_ptr->x, r_idx, (PM_ALLOW_SLEEP | PM_ALLOW_GROUP | PM_FORCE_PET));
 }
 
 
@@ -1672,7 +1638,7 @@ static void do_cmd_wiz_named_friendly(int r_idx)
  */
 static void do_cmd_wiz_zap(void)
 {
-       int i;
+       MONSTER_IDX i;
 
 
        /* Genocide everyone nearby */
@@ -1710,7 +1676,7 @@ static void do_cmd_wiz_zap(void)
  */
 static void do_cmd_wiz_zap_all(void)
 {
-       int i;
+       MONSTER_IDX i;
 
        /* Genocide everyone */
        for (i = 1; i < m_max; i++)
@@ -1749,8 +1715,8 @@ static void do_cmd_wiz_create_feature(void)
        cave_type    *c_ptr;
        feature_type *f_ptr;
        char         tmp_val[160];
-       int          tmp_feat, tmp_mimic;
-       int          y, x;
+       IDX          tmp_feat, tmp_mimic;
+       POSITION y, x;
 
        if (!tgt_pt(&x, &y)) return;
 
@@ -1763,7 +1729,7 @@ static void do_cmd_wiz_create_feature(void)
        if (!get_string(_("地形: ", "Feature: "), tmp_val, 3)) return;
 
        /* Extract */
-       tmp_feat = atoi(tmp_val);
+       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;
 
@@ -1774,12 +1740,12 @@ static void do_cmd_wiz_create_feature(void)
        if (!get_string(_("地形 (mimic): ", "Feature (mimic): "), tmp_val, 3)) return;
 
        /* Extract */
-       tmp_mimic = atoi(tmp_val);
+       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 = tmp_mimic;
+       c_ptr->mimic = (s16b)tmp_mimic;
 
        f_ptr = &f_info[get_feat_mimic(c_ptr)];
 
@@ -1789,7 +1755,6 @@ static void do_cmd_wiz_create_feature(void)
        else if (have_flag(f_ptr->flags, FF_MIRROR))
                c_ptr->info |= (CAVE_GLOW | CAVE_OBJECT);
 
-       /* Notice */
        note_spot(y, x);
 
        /* Redraw */
@@ -1827,7 +1792,6 @@ static void do_cmd_dump_options(void)
        /* Open the file */
        fff = my_fopen(buf, "a");
 
-       /* Oops */
        if (!fff)
        {
                msg_format(_("ファイル %s を開けませんでした。", "Failed to open file %s."), buf);
@@ -1911,7 +1875,6 @@ void do_cmd_debug(void)
        int     x, y;
        char    cmd;
 
-
        /* Get a "debug command" */
        get_com("Debug Command: ", &cmd, FALSE);
 
@@ -2004,7 +1967,7 @@ void do_cmd_debug(void)
        /* Good Objects */
        case 'g':
                if (command_arg <= 0) command_arg = 1;
-               acquirement(py, px, command_arg, FALSE, FALSE, TRUE);
+               acquirement(p_ptr->y, p_ptr->x, command_arg, FALSE, FALSE, TRUE);
                break;
 
        /* Hitpoint rerating */
@@ -2012,11 +1975,9 @@ void do_cmd_debug(void)
                do_cmd_rerate(TRUE);
                break;
 
-#ifdef MONSTER_HORDES
        case 'H':
                do_cmd_summon_horde();
                break;
-#endif /* MONSTER_HORDES */
 
        /* Identify */
        case 'i':
@@ -2083,26 +2044,22 @@ void do_cmd_debug(void)
                teleport_player(10, 0L);
                break;
 
-#if 0
        /* Complete a Quest -KMW- */
        case 'q':
-               for (i = 0; i < max_quests; i++)
+               if(p_ptr->inside_quest)
                {
-                       if (p_ptr->quest[i].status == QUEST_STATUS_TAKEN)
+                       if (quest[p_ptr->inside_quest].status == QUEST_STATUS_TAKEN)
                        {
-                               p_ptr->quest[i].status++;
-                               msg_print("Completed Quest");
-                               msg_print(NULL);
+                               complete_quest(p_ptr->inside_quest);
                                break;
                        }
                }
-               if (i == max_quests)
+               else
                {
                        msg_print("No current quest");
                        msg_print(NULL);
                }
                break;
-#endif
 
        /* Make every dungeon square "known" to test streamers -KMW- */
        case 'u':
@@ -2125,7 +2082,7 @@ void do_cmd_debug(void)
        /* Special(Random Artifact) Objects */
        case 'S':
                if (command_arg <= 0) command_arg = 1;
-               acquirement(py, px, command_arg, TRUE, TRUE, TRUE);
+               acquirement(p_ptr->y, p_ptr->x, command_arg, TRUE, TRUE, TRUE);
                break;
 
        /* Teleport */
@@ -2133,10 +2090,16 @@ void do_cmd_debug(void)
                teleport_player(100, 0L);
                break;
 
+       /* Game Time Setting */
+       case 'T':
+               set_gametime();
+               break;
+
+
        /* Very Good Objects */
        case 'v':
                if (command_arg <= 0) command_arg = 1;
-               acquirement(py, px, command_arg, TRUE, FALSE, TRUE);
+               acquirement(p_ptr->y, p_ptr->x, command_arg, TRUE, FALSE, TRUE);
                break;
 
        /* Wizard Light the Level */