/*!
* @brief デバッグコマンドを選択する処理のメインルーチン /
* Ask for and parse a "debug command"
* The "command_arg" may have been set.
* @return なし
*/
void do_cmd_debug(void)
{
int x, y, i;
char cmd;
/* Get a "debug command" */
get_com("Debug Command: ", &cmd, FALSE);
/* Analyze the command */
switch (cmd)
{
/* Nothing */
case ESCAPE:
case ' ':
case '\n':
case '\r':
break;
#ifdef ALLOW_SPOILERS
/* Hack -- Generate Spoilers */
case '"':
do_cmd_spoilers();
break;
#endif /* ALLOW_SPOILERS */
/* Hack -- Help */
case '?':
do_cmd_help();
break;
/* Cure all maladies */
case 'a':
do_cmd_wiz_cure_all();
break;
/* Know alignment */
case 'A':
msg_format("Your alignment is %d.", p_ptr->align);
break;
/* Teleport to target */
case 'b':
do_cmd_wiz_bamf();
break;
case 'B':
battle_monsters();
break;
/* Create any object */
case 'c':
wiz_create_item();
break;
/* Create a named artifact */
case 'C':
wiz_create_named_art();
break;
/* Detect everything */
case 'd':
detect_all(DETECT_RAD_ALL * 3);
break;
/* Dimension_door */
case 'D':
wiz_dimension_door();
break;
/* Edit character */
case 'e':
do_cmd_wiz_change();
break;
/* Blue Mage Only */
case 'E':
if (p_ptr->pclass == CLASS_BLUE_MAGE)
{
do_cmd_wiz_blue_mage();
}
break;
/* View item info */
case 'f':
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;
acquirement(p_ptr->y, p_ptr->x, command_arg, FALSE, FALSE, TRUE);
break;
/* Hitpoint rerating */
case 'h':
do_cmd_rerate(TRUE);
break;
#ifdef MONSTER_HORDES
case 'H':
do_cmd_summon_horde();
break;
#endif /* MONSTER_HORDES */
/* Identify */
case 'i':
(void)ident_spell(FALSE);
break;
/* Go up or down in the dungeon */
case 'j':
do_cmd_wiz_jump();
break;
/* Self-Knowledge */
case 'k':
self_knowledge();
break;
/* Learn about objects */
case 'l':
do_cmd_wiz_learn();
break;
/* Magic Mapping */
case 'm':
map_area(DETECT_RAD_ALL * 3);
break;
/* Mutation */
case 'M':
(void)gain_random_mutation(command_arg);
break;
/* Reset Class */
case 'R':
(void)do_cmd_wiz_reset_class();
break;
/* Specific reward */
case 'r':
(void)gain_level_reward(command_arg);
break;
/* Summon _friendly_ named monster */
case 'N':
do_cmd_wiz_named_friendly(command_arg);
break;
/* Summon Named Monster */
case 'n':
do_cmd_wiz_named(command_arg);
break;
/* Dump option bits usage */
case 'O':
do_cmd_dump_options();
break;
/* Object playing routines */
case 'o':
do_cmd_wiz_play();
break;
/* Phase Door */
case 'p':
teleport_player(10, 0L);
break;
/* Complete a Quest -KMW- */
case 'q':
if(p_ptr->inside_quest)
{
if (quest[p_ptr->inside_quest].status == QUEST_STATUS_TAKEN)
{
complete_quest(p_ptr->inside_quest);
break;
}
}
else
{
msg_print("No current quest");
msg_print(NULL);
}
break;
/* Make every dungeon square "known" to test streamers -KMW- */
case 'u':
for (y = 0; y < cur_hgt; y++)
{
for (x = 0; x < cur_wid; x++)
{
cave[y][x].info |= (CAVE_GLOW | CAVE_MARK);
}
}
wiz_lite(FALSE);
break;
/* Summon Random Monster(s) */
case 's':
if (command_arg <= 0) command_arg = 1;
do_cmd_wiz_summon(command_arg);
break;
/* Special(Random Artifact) Objects */
case 'S':
if (command_arg <= 0) command_arg = 1;
acquirement(p_ptr->y, p_ptr->x, command_arg, TRUE, TRUE, TRUE);
break;
/* Teleport */
case 't':
teleport_player(100, 0L);
break;
/* Very Good Objects */
case 'v':
if (command_arg <= 0) command_arg = 1;
acquirement(p_ptr->y, p_ptr->x, command_arg, TRUE, FALSE, TRUE);
break;
/* Wizard Light the Level */
case 'w':
wiz_lite((bool)(p_ptr->pclass == CLASS_NINJA));
break;
/* Increase Experience */
case 'x':
gain_exp(command_arg ? command_arg : (p_ptr->exp + 1));
break;
/* Zap Monsters (Genocide) */
case 'z':
do_cmd_wiz_zap();
break;
/* Zap Monsters (Omnicide) */
case 'Z':
do_cmd_wiz_zap_all();
break;
/* Hack -- whatever I desire */
case '_':
do_cmd_wiz_hack_ben();
break;
/* Not a Wizard Command */
default:
msg_print("That is not a valid debug command.");
break;
}
}
/*
* Clear all the global "character" data
*/
static void player_wipe(void)
{
int i;
/* Hack -- free the "last message" string */
if (p_ptr->last_message) z_string_free(p_ptr->last_message);
/* Hack -- zero the struct */
(void)WIPE(p_ptr, player_type);
p_ptr->mimic_form = MIMIC_NONE;
/* Start with no artifacts made yet */
for (i = 0; i < max_a_idx; i++)
{
artifact_type *a_ptr = &a_info[i];
a_ptr->generated = FALSE;
a_ptr->found = FALSE;
}
/* Reset the objects */
k_info_reset();
e_info_reset();
stats_reset();
/* Reset the "monsters" */
for (i = 1; i < max_r_idx; i++)
{
monster_race *r_ptr = &r_info[i];
/* Hack -- Reset the counter */
r_ptr->cur_num = 0;
/* Hack -- Reset the max counter */
r_ptr->max_num = 100;
r_ptr->flagsx = 0;
/* Hack -- Reset the max counter */
if (r_ptr->flags1 & RF1_UNIQUE) r_ptr->max_num = 1;
/* Hack -- Non-unique Nazguls are semi-unique */
else if (r_ptr->flags7 & RF7_NAZGUL) r_ptr->max_num = MAX_NAZGUL_NUM;
else if (i == MON_CAMELOT_KNIGHT) r_ptr->max_num = MAX_CAMELOT_KNIGHT_NUM;
/* Clear visible kills in this life */
r_ptr->r_pkills = 0;
/* Clear all kills in this life */
r_ptr->r_akills = 0;
r_ptr->r_skills = 0;
r_ptr->stolen_ct = 0;
/* Wipe out pact alliances from previous character
Currently, flagsr is only set to make the memory field
work, but perhaps it would be better to set this once
and for all when a pact is made? This would break
my savefiles though ...*/
r_ptr->flagsr &= ~(RFR_PACT_MONSTER);
r_ptr->r_flagsr &= ~(RFR_PACT_MONSTER);
}
/* Hack -- Well fed player */
p_ptr->food = PY_FOOD_FULL - 1;
/* Wipe the spells */
if (p_ptr->pclass == CLASS_SORCERER)
{
p_ptr->spell_learned1 = p_ptr->spell_learned2 = 0xffffffffL;
p_ptr->spell_worked1 = p_ptr->spell_worked2 = 0xffffffffL;
}
else
{
p_ptr->spell_learned1 = p_ptr->spell_learned2 = 0L;
p_ptr->spell_worked1 = p_ptr->spell_worked2 = 0L;
}
p_ptr->spell_forgotten1 = p_ptr->spell_forgotten2 = 0L;
for (i = 0; i < 64; i++) p_ptr->spell_order[i] = 99;
p_ptr->learned_spells = 0;
p_ptr->add_spells = 0;
p_ptr->knowledge = 0;
/* Clean the mutation count */
mutant_regenerate_mod = 100;
/* Clear "cheat" options */
cheat_peek = FALSE;
cheat_hear = FALSE;
cheat_room = FALSE;
cheat_xtra = FALSE;
cheat_live = FALSE;
cheat_save = FALSE;
/* Assume no winning game */
p_ptr->total_winner = FALSE;
world_player = FALSE;
/* Assume no panic save */
p_ptr->panic_save = 0;
/* Assume no cheating */
p_ptr->noscore = 0;
p_ptr->wizard = FALSE;
/* Not waiting to report score */
p_ptr->wait_report_score = FALSE;
/* Default pet command settings */
p_ptr->pet_follow_distance = PET_FOLLOW_DIST;
p_ptr->pet_extra_flags = (PF_TELEPORT | PF_ATTACK_SPELL | PF_SUMMON_SPELL);
/* Wipe the recall depths */
for (i = 0; i < max_d_idx; i++)
{
max_dlv[i] = 0;
dungeon_flags[i] = 0;
}
p_ptr->wild_mode = FALSE;
for (i = 0; i < MAX_MAGIC_NUM; i++)
{
p_ptr->magic_num1[i] = 0;
p_ptr->magic_num2[i] = 0;
}
/* Level one */
p_ptr->max_plv = p_ptr->lev = 1;
/* Initialize arena and rewards information -KMW- */
p_ptr->arena_number = 0;
p_ptr->inside_arena = FALSE;
for (i = 0; i < MAX_MANE; i++)
{
p_ptr->mane_spell[i] = -1;
p_ptr->mane_dam[i] = 0;
}
p_ptr->mane_num = 0;
p_ptr->exit_bldg = TRUE; /* only used for arena now -KMW- */
/* Bounty */
p_ptr->today_mon = 0;
/* Reset monster arena */
battle_monsters();
/* Reset mutations */
for (i = 0; i < MUT_FLAG_SIZE; ++i)
{
p_ptr->muta[i] = 0;
p_ptr->muta_lock[i] = 0;
}
for (i = 0; i < MAX_DEMIGOD_POWERS; ++i)
p_ptr->demigod_power[i] = -1;
p_ptr->draconian_power = -1;
p_ptr->duelist_target_idx = 0;
/* Reset virtues*/
for (i = 0; i < 8; i++) p_ptr->virtues[i]=0;
/* Set the recall dungeon accordingly */
if (no_wilderness)
{
dungeon_type = 0;
p_ptr->recall_dungeon = DUNGEON_ANGBAND;
}
else
{
dungeon_type = 0;
p_ptr->recall_dungeon = DUNGEON_STRONGHOLD;
}
}
