/*!
* @brief フロアに存在する全モンスターを消去する /
* Hack -- Delete all monsters
* @return なし
*/
static void do_cmd_wiz_zap_all(void)
{
int i;
/* Genocide everyone */
for (i = 1; i < m_max; i++)
{
monster_type *m_ptr = &m_list[i];
/* Paranoia -- Skip dead monsters */
if (!m_ptr->r_idx) continue;
/* 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);
}
}
/*
* Generate a quest level
*/
static void quest_gen(void)
{
int x, y;
/* Start with perm walls */
for (y = 0; y < cur_hgt; y++)
{
for (x = 0; x < cur_wid; x++)
{
place_solid_perm_bold(y, x);
}
}
/* Set the quest level */
base_level = quest[p_ptr->inside_quest].level;
dun_level = base_level;
object_level = base_level;
monster_level = base_level;
if (record_stair) do_cmd_write_nikki(NIKKI_TO_QUEST, p_ptr->inside_quest, NULL);
/* Prepare allocation table */
get_mon_num_prep(get_monster_hook(), NULL);
init_flags = INIT_CREATE_DUNGEON | INIT_ASSIGN;
process_dungeon_file("q_info.txt", 0, 0, MAX_HGT, MAX_WID);
}
/*
* Wield or wear a single item from the pack or floor
*/
void do_cmd_wield(void)
{
int i, item, slot;
object_type forge;
object_type *q_ptr;
object_type *o_ptr;
cptr act;
char o_name[MAX_NLEN];
cptr q, s;
int need_switch_wielding = 0;
if (p_ptr->special_defense & KATA_MUSOU)
{
set_action(ACTION_NONE);
}
/* Restrict the choices */
item_tester_hook = item_tester_hook_wear;
/* Get an item */
#ifdef JP
q = "どれを装備しますか? ";
s = "装備可能なアイテムがない。";
#else
q = "Wear/Wield which item? ";
s = "You have nothing you can wear or wield.";
#endif
if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR))) return;
/* Get the item (in the pack) */
if (item >= 0)
{
o_ptr = &inventory[item];
}
/* Get the item (on the floor) */
else
{
o_ptr = &o_list[0 - item];
}
/* Check the slot */
slot = wield_slot(o_ptr);
/* Ugly hack! */
if ( object_is_melee_weapon(o_ptr)
&& p_ptr->pclass == CLASS_PSION
&& psion_weapon_graft() )
{
msg_print("Failed! Your weapon is currently grafted to your arm!");
return;
}
switch (o_ptr->tval)
{
/* Shields and some misc. items */
case TV_CAPTURE:
case TV_SHIELD:
case TV_CARD:
/* Dual wielding */
if (buki_motteruka(INVEN_RARM) && buki_motteruka(INVEN_LARM))
{
/* Restrict the choices */
item_tester_hook = item_tester_hook_melee_weapon;
item_tester_no_ryoute = TRUE;
/* Choose a weapon from the equipment only */
#ifdef JP
q = "どちらの武器と取り替えますか?";
s = "おっと。";
#else
q = "Replace which weapon? ";
s = "Oops.";
#endif
if (!get_item(&slot, q, s, (USE_EQUIP))) return;
if (slot == INVEN_RARM) need_switch_wielding = INVEN_LARM;
}
else if (buki_motteruka(INVEN_LARM)) slot = INVEN_RARM;
/* Both arms are already used by non-weapon */
else if (inventory[INVEN_RARM].k_idx && !object_is_melee_weapon(&inventory[INVEN_RARM]) &&
inventory[INVEN_LARM].k_idx && !object_is_melee_weapon(&inventory[INVEN_LARM]))
{
/* Restrict the choices */
item_tester_hook = item_tester_hook_mochikae;
/* Choose a hand */
#ifdef JP
q = "どちらの手に装備しますか?";
s = "おっと。";
#else
q = "Equip which hand? ";
s = "Oops.";
#endif
if (!get_item(&slot, q, s, (USE_EQUIP))) return;
}
break;
/* Melee weapons */
case TV_DIGGING:
case TV_HAFTED:
case TV_POLEARM:
case TV_SWORD:
/* Asking for dual wielding */
if (slot == INVEN_LARM)
{
#ifdef JP
if (!get_check("二刀流で戦いますか？")) slot = INVEN_RARM;
#else
if (!get_check("Dual wielding? ")) slot = INVEN_RARM;
#endif
}
else if (!inventory[INVEN_RARM].k_idx && buki_motteruka(INVEN_LARM))
{
#ifdef JP
if (!get_check("二刀流で戦いますか？")) slot = INVEN_LARM;
#else
if (!get_check("Dual wielding? ")) slot = INVEN_LARM;
#endif
}
/* Both arms are already used */
else if (inventory[INVEN_LARM].k_idx && inventory[INVEN_RARM].k_idx)
{
/* Restrict the choices */
item_tester_hook = item_tester_hook_mochikae;
/* Choose a hand */
#ifdef JP
q = "どちらの手に装備しますか?";
s = "おっと。";
#else
q = "Equip which hand? ";
s = "Oops.";
#endif
if (!get_item(&slot, q, s, (USE_EQUIP))) return;
if ((slot == INVEN_LARM) && !buki_motteruka(INVEN_RARM))
need_switch_wielding = INVEN_RARM;
}
break;
/* Rings */
case TV_RING:
/* Choose a ring slot */
if (inventory[INVEN_LEFT].k_idx && inventory[INVEN_RIGHT].k_idx)
{
#ifdef JP
q = "どちらの指輪と取り替えますか?";
#else
q = "Replace which ring? ";
#endif
}
else
{
#ifdef JP
q = "どちらの手に装備しますか?";
#else
q = "Equip which hand? ";
#endif
}
#ifdef JP
s = "おっと。";
#else
s = "Oops.";
#endif
/* Restrict the choices */
select_ring_slot = TRUE;
item_tester_no_ryoute = TRUE;
if (!get_item(&slot, q, s, (USE_EQUIP)))
{
select_ring_slot = FALSE;
return;
}
select_ring_slot = FALSE;
break;
}
/* Prevent wielding into a cursed slot */
if (object_is_cursed(&inventory[slot]))
{
/* Describe it */
object_desc(o_name, &inventory[slot], (OD_OMIT_PREFIX | OD_NAME_ONLY));
/* Message */
#ifdef JP
msg_format("%s%sは呪われているようだ。",
describe_use(slot) , o_name );
#else
msg_format("The %s you are %s appears to be cursed.",
o_name, describe_use(slot));
#endif
/* Cancel the command */
return;
}
if (have_flag(inventory[slot].art_flags, TR_SIGNATURE))
{
object_desc(o_name, &inventory[slot], (OD_OMIT_PREFIX | OD_NAME_ONLY));
msg_format("The %s you are %s is your signature item and may not be removed.",
o_name, describe_use(slot));
return;
}
if (confirm_wear &&
((object_is_cursed(o_ptr) && object_is_known(o_ptr)) ||
((o_ptr->ident & IDENT_SENSE) &&
(FEEL_BROKEN <= o_ptr->feeling) && (o_ptr->feeling <= FEEL_CURSED))))
{
char dummy[MAX_NLEN+80];
/* Describe it */
object_desc(o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
#ifdef JP
sprintf(dummy, "本当に%s{呪われている}を使いますか？", o_name);
#else
sprintf(dummy, "Really use the %s {cursed}? ", o_name);
#endif
if (!get_check(dummy)) return;
}
if ((o_ptr->name1 == ART_STONEMASK) && object_is_known(o_ptr) && (p_ptr->prace != RACE_VAMPIRE) && (p_ptr->prace != RACE_ANDROID) && (p_ptr->pclass != CLASS_BLOOD_KNIGHT))
{
char dummy[MAX_NLEN+80];
/* Describe it */
object_desc(o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
#ifdef JP
sprintf(dummy, "%sを装備すると吸血鬼になります。よろしいですか？", o_name);
#else
msg_format("%s will transforms you into a vampire permanently when equiped.", o_name);
sprintf(dummy, "Do you become a vampire?");
#endif
if (!get_check(dummy)) return;
}
if (need_switch_wielding && !object_is_cursed(&inventory[need_switch_wielding]))
{
object_type *slot_o_ptr = &inventory[slot];
object_type *switch_o_ptr = &inventory[need_switch_wielding];
object_type object_tmp;
object_type *otmp_ptr = &object_tmp;
char switch_name[MAX_NLEN];
object_desc(switch_name, switch_o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
object_copy(otmp_ptr, switch_o_ptr);
object_copy(switch_o_ptr, slot_o_ptr);
object_copy(slot_o_ptr, otmp_ptr);
#ifdef JP
msg_format("%sを%sに構えなおした。", switch_name, (slot == INVEN_RARM) ? (left_hander ? "左手" : "右手") : (left_hander ? "右手" : "左手"));
#else
msg_format("You wield %s at %s hand.", switch_name, (slot == INVEN_RARM) ? (left_hander ? "left" : "right") : (left_hander ? "right" : "left"));
#endif
slot = need_switch_wielding;
}
/* Check if completed a quest */
for (i = 0; i < max_quests; i++)
{
if ((quest[i].type == QUEST_TYPE_FIND_ARTIFACT) &&
(quest[i].status == QUEST_STATUS_TAKEN) &&
(quest[i].k_idx == o_ptr->name1 || quest[i].k_idx == o_ptr->name3))
{
if (record_fix_quest) do_cmd_write_nikki(NIKKI_FIX_QUEST_C, i, NULL);
quest[i].status = QUEST_STATUS_COMPLETED;
quest[i].complev = (byte)p_ptr->lev;
#ifdef JP
msg_print("クエストを達成した！");
#else
msg_print("You completed the quest!");
#endif
msg_print(NULL);
}
}
if (p_ptr->personality == PERS_MUNCHKIN)
{
identify_item(o_ptr);
/* Auto-inscription */
autopick_alter_item(item, FALSE);
}
/* Take a turn */
energy_use = weaponmaster_wield_hack(o_ptr);
/* Get local object */
q_ptr = &forge;
/* Obtain local object */
object_copy(q_ptr, o_ptr);
/* Modify quantity */
q_ptr->number = 1;
/* Decrease the item (from the pack) */
if (item >= 0)
{
inven_item_increase(item, -1);
inven_item_optimize(item);
}
/* Decrease the item (from the floor) */
else
{
floor_item_increase(0 - item, -1);
floor_item_optimize(0 - item);
}
/* Access the wield slot */
o_ptr = &inventory[slot];
/* Take off existing item */
if (o_ptr->k_idx)
{
/* Take off existing item */
(void)inven_takeoff(slot, 255);
}
/* Wear the new stuff */
object_copy(o_ptr, q_ptr);
/* Player touches it */
o_ptr->marked |= OM_TOUCHED;
/* Increase the weight */
p_ptr->total_weight += q_ptr->weight;
/* Increment the equip counter by hand */
equip_cnt++;
#ifdef JP
#define STR_WIELD_RARM "%s(%c)を右手に装備した。"
#define STR_WIELD_LARM "%s(%c)を左手に装備した。"
#define STR_WIELD_ARMS "%s(%c)を両手で構えた。"
#else
#define STR_WIELD_RARM "You are wielding %s (%c) in your right hand."
#define STR_WIELD_LARM "You are wielding %s (%c) in your left hand."
#define STR_WIELD_ARMS "You are wielding %s (%c) with both hands."
#endif
/* Where is the item now */
switch (slot)
{
case INVEN_RARM:
if (object_allow_two_hands_wielding(o_ptr) && (empty_hands(FALSE) == EMPTY_HAND_LARM) && CAN_TWO_HANDS_WIELDING())
act = STR_WIELD_ARMS;
else
act = (left_hander ? STR_WIELD_LARM : STR_WIELD_RARM);
break;
case INVEN_LARM:
if (object_allow_two_hands_wielding(o_ptr) && (empty_hands(FALSE) == EMPTY_HAND_RARM) && CAN_TWO_HANDS_WIELDING())
act = STR_WIELD_ARMS;
else
act = (left_hander ? STR_WIELD_RARM : STR_WIELD_LARM);
break;
case INVEN_BOW:
#ifdef JP
act = "%s(%c)を射撃用に装備した。";
#else
act = "You are shooting with %s (%c).";
#endif
break;
case INVEN_LITE:
#ifdef JP
act = "%s(%c)を光源にした。";
#else
act = "Your light source is %s (%c).";
#endif
break;
default:
#ifdef JP
act = "%s(%c)を装備した。";
#else
act = "You are wearing %s (%c).";
#endif
break;
}
/* Describe the result */
object_desc(o_name, o_ptr, 0);
/* Message */
msg_format(act, o_name, index_to_label(slot));
/* Cursed! */
if (object_is_cursed(o_ptr))
{
/* Warn the player */
#ifdef JP
msg_print("うわ！ すさまじく冷たい！");
#else
msg_print("Oops! It feels deathly cold!");
#endif
chg_virtue(V_HARMONY, -1);
/* Note the curse */
o_ptr->ident |= (IDENT_SENSE);
}
if (o_ptr->name1 == ART_HAND_OF_VECNA)
{
msg_print("You chop off your own hand to wield the Hand of Vecna!");
set_cut(CUT_MORTAL_WOUND, FALSE);
}
if (o_ptr->name1 == ART_EYE_OF_VECNA)
{
msg_print("You pluck out your own eye to wield the Eye of Vecna!");
set_cut(CUT_MORTAL_WOUND, FALSE);
}
/* The Stone Mask make the player turn into a vampire! */
if ((o_ptr->name1 == ART_STONEMASK) && (p_ptr->prace != RACE_VAMPIRE) && (p_ptr->prace != RACE_ANDROID) && (p_ptr->pclass != CLASS_BLOOD_KNIGHT) && (p_ptr->pclass != CLASS_BLOOD_MAGE))
{
/* Turn into a vampire */
change_race(RACE_VAMPIRE, "");
}
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Recalculate torch */
p_ptr->update |= (PU_TORCH);
/* Recalculate mana */
p_ptr->update |= (PU_MANA);
p_ptr->redraw |= (PR_EQUIPPY);
/* Window stuff */
p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_PLAYER);
calc_android_exp();
}
/*!
* @brief 任意のダンジョン及び階層に飛ぶ /
* Go to any level
* @return なし
*/
static void do_cmd_wiz_jump(void)
{
/* Ask for level */
if (command_arg <= 0)
{
char ppp[80];
char tmp_val[160];
int tmp_dungeon_type;
/* Prompt */
sprintf(ppp, "Jump which dungeon : ");
/* Default */
sprintf(tmp_val, "%d", dungeon_type);
/* Ask for a level */
if (!get_string(ppp, tmp_val, 2)) return;
tmp_dungeon_type = 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);
/* Default */
sprintf(tmp_val, "%d", dun_level);
/* Ask for a level */
if (!get_string(ppp, tmp_val, 10)) return;
/* Extract request */
command_arg = atoi(tmp_val);
dungeon_type = tmp_dungeon_type;
}
/* Paranoia */
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;
/* Accept request */
msg_format("You jump to dungeon level %d.", command_arg);
if (autosave_l) do_cmd_save_game(TRUE);
/* Change level */
dun_level = command_arg;
prepare_change_floor_mode(CFM_RAND_PLACE);
if (!dun_level) dungeon_type = 0;
p_ptr->inside_arena = FALSE;
p_ptr->wild_mode = FALSE;
leave_quest_check();
if (record_stair) do_cmd_write_nikki(NIKKI_WIZ_TELE,0,NULL);
p_ptr->inside_quest = 0;
p_ptr->energy_use = 0;
/* Prevent energy_need from being too lower than 0 */
p_ptr->energy_need = 0;
/*
* Clear all saved floors
* and create a first saved floor
*/
prepare_change_floor_mode(CFM_FIRST_FLOOR);
/* Leaving */
p_ptr->leaving = TRUE;
}
/*!
* @brief 移動先のフロアに伴ったペットを配置する / Place preserved pet monsters on new floor
* @return なし
*/
static void place_pet(void)
{
int i;
int max_num = p_ptr->wild_mode ? 1 : MAX_PARTY_MON;
for (i = 0; i < max_num; i++)
{
POSITION cy = 0, cx = 0;
MONSTER_IDX m_idx;
if (!(party_mon[i].r_idx)) continue;
if (i == 0)
{
m_idx = m_pop();
p_ptr->riding = m_idx;
if (m_idx)
{
cy = p_ptr->y;
cx = p_ptr->x;
}
}
else
{
int j;
POSITION d;
for (d = 1; d < 6; d++)
{
for (j = 1000; j > 0; j--)
{
scatter(&cy, &cx, p_ptr->y, p_ptr->x, d, 0);
if (monster_can_enter(cy, cx, &r_info[party_mon[i].r_idx], 0)) break;
}
if (j) break;
}
m_idx = (d == 6) ? 0 : m_pop();
}
if (m_idx)
{
monster_type *m_ptr = &m_list[m_idx];
monster_race *r_ptr;
cave[cy][cx].m_idx = m_idx;
m_ptr->r_idx = party_mon[i].r_idx;
/* Copy all member of the structure */
*m_ptr = party_mon[i];
r_ptr = real_r_ptr(m_ptr);
m_ptr->fy = cy;
m_ptr->fx = cx;
m_ptr->ml = TRUE;
m_ptr->mtimed[MTIMED_CSLEEP] = 0;
/* Paranoia */
m_ptr->hold_o_idx = 0;
m_ptr->target_y = 0;
if ((r_ptr->flags1 & RF1_FORCE_SLEEP) && !ironman_nightmare)
{
/* Monster is still being nice */
m_ptr->mflag |= (MFLAG_NICE);
/* Must repair monsters */
repair_monsters = TRUE;
}
/* Update the monster */
update_mon(m_idx, TRUE);
lite_spot(cy, cx);
/* Pre-calculated in precalc_cur_num_of_pet() */
/* r_ptr->cur_num++; */
/* Hack -- Count the number of "reproducers" */
if (r_ptr->flags2 & RF2_MULTIPLY) num_repro++;
/* Hack -- Notice new multi-hued monsters */
{
monster_race *ap_r_ptr = &r_info[m_ptr->ap_r_idx];
if (ap_r_ptr->flags1 & (RF1_ATTR_MULTI | RF1_SHAPECHANGER))
shimmer_monsters = TRUE;
}
}
else
{
monster_type *m_ptr = &party_mon[i];
monster_race *r_ptr = real_r_ptr(m_ptr);
char m_name[80];
monster_desc(m_name, m_ptr, 0);
#ifdef JP
msg_format("%sとはぐれてしまった。", m_name);
#else
msg_format("You have lost sight of %s.", m_name);
#endif
if (record_named_pet && m_ptr->nickname)
{
monster_desc(m_name, m_ptr, MD_INDEF_VISIBLE);
do_cmd_write_nikki(NIKKI_NAMED_PET, RECORD_NAMED_PET_LOST_SIGHT, m_name);
}
/* Pre-calculated in precalc_cur_num_of_pet(), but need to decrease */
if (r_ptr->cur_num) r_ptr->cur_num--;
}
}
/* For accuracy of precalc_cur_num_of_pet() */
(void)C_WIPE(party_mon, MAX_PARTY_MON, monster_type);
}
/*!
* @brief フロア移動時のペット保存処理 / Preserve_pets
* @return なし
*/
static void preserve_pet(void)
{
int num;
MONSTER_IDX i;
for (num = 0; num < MAX_PARTY_MON; num++)
{
party_mon[num].r_idx = 0;
}
if (p_ptr->riding)
{
monster_type *m_ptr = &m_list[p_ptr->riding];
/* Pet of other pet don't follow. */
if (m_ptr->parent_m_idx)
{
p_ptr->riding = 0;
p_ptr->pet_extra_flags &= ~(PF_RYOUTE);
p_ptr->riding_ryoute = p_ptr->old_riding_ryoute = FALSE;
}
else
{
/* Preserve the mount */
(void)COPY(&party_mon[0], m_ptr, monster_type);
/* Delete from this floor */
delete_monster_idx(p_ptr->riding);
}
}
/*
* If player is in wild mode, no pets are preserved
* except a monster whom player riding
*/
if (!p_ptr->wild_mode && !p_ptr->inside_arena && !p_ptr->inside_battle)
{
for (i = m_max - 1, num = 1; (i >= 1 && num < MAX_PARTY_MON); i--)
{
monster_type *m_ptr = &m_list[i];
if (!m_ptr->r_idx) continue;
if (!is_pet(m_ptr)) continue;
if (i == p_ptr->riding) continue;
if (reinit_wilderness)
{
/* Don't lose sight of pets when getting a Quest */
}
else
{
int dis = distance(p_ptr->y, p_ptr->x, m_ptr->fy, m_ptr->fx);
/* Confused (etc.) monsters don't follow. */
if (MON_CONFUSED(m_ptr) || MON_STUNNED(m_ptr) || MON_CSLEEP(m_ptr)) continue;
/* Pet of other pet don't follow. */
if (m_ptr->parent_m_idx) continue;
/*
* Pets with nickname will follow even from 3 blocks away
* when you or the pet can see the other.
*/
if (m_ptr->nickname &&
((player_has_los_bold(m_ptr->fy, m_ptr->fx) && projectable(p_ptr->y, p_ptr->x, m_ptr->fy, m_ptr->fx)) ||
(los(m_ptr->fy, m_ptr->fx, p_ptr->y, p_ptr->x) && projectable(m_ptr->fy, m_ptr->fx, p_ptr->y, p_ptr->x))))
{
if (dis > 3) continue;
}
else
{
if (dis > 1) continue;
}
}
(void)COPY(&party_mon[num], &m_list[i], monster_type);
num++;
/* Delete from this floor */
delete_monster_idx(i);
}
}
if (record_named_pet)
{
for (i = m_max - 1; i >=1; i--)
{
monster_type *m_ptr = &m_list[i];
char m_name[80];
if (!m_ptr->r_idx) continue;
if (!is_pet(m_ptr)) continue;
if (!m_ptr->nickname) continue;
if (p_ptr->riding == i) continue;
monster_desc(m_name, m_ptr, MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
do_cmd_write_nikki(NIKKI_NAMED_PET, RECORD_NAMED_PET_MOVED, m_name);
}
}
/* Pet of other pet may disappear. */
for (i = m_max - 1; i >=1; i--)
{
monster_type *m_ptr = &m_list[i];
/* Are there its parent? */
if (m_ptr->parent_m_idx && !m_list[m_ptr->parent_m_idx].r_idx)
{
/* Its parent have gone, it also goes away. */
if (is_seen(m_ptr))
{
char m_name[80];
/* Acquire the monster name */
monster_desc(m_name, m_ptr, 0);
#ifdef JP
msg_format("%sは消え去った！", m_name);
#else
msg_format("%^s disappears!", m_name);
#endif
}
/* Delete the monster */
delete_monster_idx(i);
}
}
}
/*
* Change the player into a King! -RAK-
*/
void kingly(void)
{
int wid, hgt;
int cx, cy;
bool seppuku = streq(p_ptr->died_from, "Seppuku");
/* Hack -- retire in town */
dun_level = 0;
/* Fake death */
if (!seppuku)
#ifdef JP
/* 引退したときの識別文字 */
(void)strcpy(p_ptr->died_from, "ripe");
#else
(void)strcpy(p_ptr->died_from, "Ripe Old Age");
#endif
/* Restore the experience */
p_ptr->exp = p_ptr->max_exp;
/* Restore the level */
p_ptr->lev = p_ptr->max_plv;
Term_get_size(&wid, &hgt);
cy = hgt / 2;
cx = wid / 2;
/* Hack -- Instant Gold */
p_ptr->au += 10000000L;
/* Clear screen */
Term_clear();
/* Display a crown */
put_str("#", cy - 11, cx - 1);
put_str("#####", cy - 10, cx - 3);
put_str("#", cy - 9, cx - 1);
put_str(",,, $$$ ,,,", cy - 8, cx - 7);
put_str(",,=$ \"$$$$$\" $=,,", cy - 7, cx - 11);
put_str(",$$ $$$ $$,", cy - 6, cx - 13);
put_str("*> <*> <*", cy - 5, cx - 13);
put_str("$$ $$$ $$", cy - 4, cx - 13);
put_str("\"$$ $$$ $$\"", cy - 3, cx - 13);
put_str("\"$$ $$$ $$\"", cy - 2, cx - 12);
put_str("*#########*#########*", cy - 1, cx - 11);
put_str("*#########*#########*", cy, cx - 11);
/* Display a message */
#ifdef JP
put_str("Veni, Vidi, Vici!", cy + 3, cx - 9);
put_str("来た、見た、勝った！", cy + 4, cx - 10);
put_str(format("偉大なる%s万歳！", sp_ptr->winner), cy + 5, cx - 11);
#else
put_str("Veni, Vidi, Vici!", cy + 3, cx - 9);
put_str("I came, I saw, I conquered!", cy + 4, cx - 14);
put_str(format("All Hail the Mighty %s!", sp_ptr->winner), cy + 5, cx - 13);
#endif
/* If player did Seppuku, that is already written in playrecord */
if (!seppuku)
{
#ifdef JP
do_cmd_write_nikki(NIKKI_BUNSHOU, 0, "ダンジョンの探索から引退した。");
do_cmd_write_nikki(NIKKI_GAMESTART, 1, "-------- ゲームオーバー --------");
#else
do_cmd_write_nikki(NIKKI_BUNSHOU, 0, "retired exploring dungeons.");
do_cmd_write_nikki(NIKKI_GAMESTART, 1, "-------- Game Over --------");
#endif
do_cmd_write_nikki(NIKKI_BUNSHOU, 1, "\n\n\n\n");
}
/* Flush input */
flush();
/* Wait for response */
pause_line(hgt - 1);
}
