1 #include "market/arena.h"
2 #include "cmd-building/cmd-building.h"
3 #include "core/asking-player.h"
4 #include "core/show-file.h"
5 #include "core/stuff-handler.h"
6 #include "core/window-redrawer.h"
7 #include "dungeon/dungeon.h"
8 #include "floor/floor-mode-changer.h"
9 #include "io/input-key-acceptor.h"
10 #include "main/sound-of-music.h"
11 #include "market/arena-info-table.h"
12 #include "market/building-actions-table.h"
13 #include "market/building-util.h"
14 #include "monster-race/monster-race-hook.h"
15 #include "monster-race/monster-race.h"
16 #include "monster-race/race-flags-ability1.h"
17 #include "monster-race/race-flags-ability2.h"
18 #include "monster-race/race-flags-resistance.h"
19 #include "monster-race/race-flags1.h"
20 #include "monster-race/race-flags7.h"
21 #include "monster/monster-list.h"
22 #include "monster/monster-util.h"
23 #include "status/buff-setter.h"
24 #include "system/building-type-definition.h"
25 #include "system/floor-type-definition.h"
26 #include "term/screen-processor.h"
27 #include "util/int-char-converter.h"
28 #include "view/display-messages.h"
29 #include "world/world.h"
32 * @brief 優勝時のメッセージを表示し、賞金を与える
33 * @param player_ptr プレーヤーへの参照ポインタ
34 * @return まだ優勝していないか、挑戦者モンスターとの戦いではFALSE
36 static bool process_ostensible_arena_victory(player_type *player_ptr)
38 if (player_ptr->arena_number != MAX_ARENA_MONS)
42 prt(_("アリーナの優勝者!", " Arena Victor!"), 5, 0);
43 prt(_("おめでとう!あなたは全ての敵を倒しました。", "Congratulations! You have defeated all before you."), 7, 0);
44 prt(_("賞金として $1,000,000 が与えられます。", "For that, receive the prize: 1,000,000 gold pieces"), 8, 0);
48 player_ptr->au += 1000000L;
49 msg_print(_("スペースキーで続行", "Press the space bar to continue"));
51 player_ptr->arena_number++;
57 * @param player_ptr プレーヤーへの参照ポインタ
58 * @return まだパワー・ワイアーム以下を倒していないならFALSE、倒していたらTRUE
60 static bool battle_metal_babble(player_type *player_ptr)
62 if (player_ptr->arena_number <= MAX_ARENA_MONS)
65 if (player_ptr->arena_number >= MAX_ARENA_MONS + 2) {
66 msg_print(_("あなたはアリーナに入り、しばらくの間栄光にひたった。", "You enter the arena briefly and bask in your glory."));
71 msg_print(_("君のために最強の挑戦者を用意しておいた。", "The strongest challenger is waiting for you."));
73 if (!get_check(_("挑戦するかね?", "Do you fight? "))) {
74 msg_print(_("残念だ。", "We are disappointed."));
78 msg_print(_("死ぬがよい。", "Die, maggots."));
81 player_ptr->exit_bldg = FALSE;
82 reset_tim_flags(player_ptr);
84 /* Save the surface floor as saved floor */
85 prepare_change_floor_mode(player_ptr, CFM_SAVE_FLOORS);
87 player_ptr->current_floor_ptr->inside_arena = TRUE;
88 player_ptr->leaving = TRUE;
89 player_ptr->leave_bldg = TRUE;
93 static void go_to_arena(player_type *player_ptr)
95 if (process_ostensible_arena_victory(player_ptr))
98 if (battle_metal_babble(player_ptr))
101 if (player_ptr->riding && (player_ptr->pclass != CLASS_BEASTMASTER) && (player_ptr->pclass != CLASS_CAVALRY)) {
102 msg_print(_("ペットに乗ったままではアリーナへ入れさせてもらえなかった。", "You don't have permission to enter with pet."));
107 player_ptr->exit_bldg = FALSE;
108 reset_tim_flags(player_ptr);
109 prepare_change_floor_mode(player_ptr, CFM_SAVE_FLOORS);
111 player_ptr->current_floor_ptr->inside_arena = TRUE;
112 player_ptr->leaving = TRUE;
113 player_ptr->leave_bldg = TRUE;
116 static void see_arena_poster(player_type *player_ptr)
118 if (player_ptr->arena_number == MAX_ARENA_MONS) {
119 msg_print(_("あなたは勝利者だ。 アリーナでのセレモニーに参加しなさい。", "You are victorious. Enter the arena for the ceremony."));
123 if (player_ptr->arena_number > MAX_ARENA_MONS) {
124 msg_print(_("あなたはすべての敵に勝利した。", "You have won against all foes."));
129 r_ptr = &r_info[arena_info[player_ptr->arena_number].r_idx];
130 concptr name = (r_name + r_ptr->name);
131 msg_format(_("%s に挑戦するものはいないか?", "Do I hear any challenges against: %s"), name);
133 player_ptr->monster_race_idx = arena_info[player_ptr->arena_number].r_idx;
134 player_ptr->window |= (PW_MONSTER);
135 handle_stuff(player_ptr);
139 * @brief 闘技場に入るコマンドの処理 / on_defeat_arena_monster commands
140 * @param player_ptr プレーヤーへの参照ポインタ
141 * @param cmd 闘技場処理のID
144 void arena_comm(player_type *player_ptr, int cmd)
148 go_to_arena(player_ptr);
151 see_arena_poster(player_ptr);
153 case BACT_ARENA_RULES:
156 /* Peruse the on_defeat_arena_monster help file */
157 (void)show_file(player_ptr, TRUE, _("arena_j.txt", "arena.txt"), NULL, 0, 0);
164 * @brief モンスター闘技場に参加するモンスターを更新する。
165 * @param player_ptr プレーヤーへの参照ポインタ
168 void update_gambling_monsters(player_type *player_ptr)
176 for (i = 0; i < current_world_ptr->max_d_idx; i++) {
177 if (max_dl < max_dlv[i])
181 mon_level = randint1(MIN(max_dl, 122)) + 5;
182 if (randint0(100) < 60) {
183 i = randint1(MIN(max_dl, 122)) + 5;
184 mon_level = MAX(i, mon_level);
187 if (randint0(100) < 30) {
188 i = randint1(MIN(max_dl, 122)) + 5;
189 mon_level = MAX(i, mon_level);
195 for (i = 0; i < 4; i++) {
199 get_mon_num_prep(player_ptr, monster_can_entry_arena, NULL);
200 r_idx = get_mon_num(player_ptr, 0, mon_level, GMN_ARENA);
204 if ((r_info[r_idx].flags1 & RF1_UNIQUE) || (r_info[r_idx].flags7 & RF7_UNIQUE2)) {
205 if ((r_info[r_idx].level + 10) > mon_level)
209 for (j = 0; j < i; j++)
210 if (r_idx == battle_mon[j])
217 battle_mon[i] = r_idx;
218 if (r_info[r_idx].level < 45)
222 for (i = 0; i < 4; i++) {
223 monster_race *r_ptr = &r_info[battle_mon[i]];
224 int num_taisei = count_bits(r_ptr->flagsr & (RFR_IM_ACID | RFR_IM_ELEC | RFR_IM_FIRE | RFR_IM_COLD | RFR_IM_POIS));
226 if (r_ptr->flags1 & RF1_FORCE_MAXHP)
227 power[i] = r_ptr->hdice * r_ptr->hside * 2;
229 power[i] = r_ptr->hdice * (r_ptr->hside + 1);
230 power[i] = power[i] * (100 + r_ptr->level) / 100;
231 if (r_ptr->speed > 110)
232 power[i] = power[i] * (r_ptr->speed * 2 - 110) / 100;
233 if (r_ptr->speed < 110)
234 power[i] = power[i] * (r_ptr->speed - 20) / 100;
236 power[i] = power[i] * (num_taisei * 2 + 5) / 10;
237 else if (r_ptr->a_ability_flags2 & RF6_INVULNER)
238 power[i] = power[i] * 4 / 3;
239 else if (r_ptr->a_ability_flags2 & RF6_HEAL)
240 power[i] = power[i] * 4 / 3;
241 else if (r_ptr->a_ability_flags1 & RF5_DRAIN_MANA)
242 power[i] = power[i] * 11 / 10;
243 if (r_ptr->flags1 & RF1_RAND_25)
244 power[i] = power[i] * 9 / 10;
245 if (r_ptr->flags1 & RF1_RAND_50)
246 power[i] = power[i] * 9 / 10;
247 if (r_ptr->flagsr & RFR_RES_ALL)
249 if (r_ptr->arena_ratio)
250 power[i] = power[i] * r_ptr->arena_ratio / 100;
254 for (i = 0; i < 4; i++) {
257 power[i] = total * 60 / power[i];
258 if (tekitou && ((power[i] < 160) || power[i] > 1500))
260 if ((power[i] < 160) && randint0(20))
263 power[i] = 100 + randint1(5);
264 mon_odds[i] = power[i];
273 * @brief モンスター闘技場のメインルーチン
274 * @param player_ptr プレーヤーへの参照ポインタ
277 bool monster_arena_comm(player_type *player_ptr)
281 char out_val[MAX_MONSTER_NAME], tmp_str[80];
284 if ((current_world_ptr->game_turn - current_world_ptr->arena_start_turn) > TURNS_PER_TICK * 250) {
285 update_gambling_monsters(player_ptr);
286 current_world_ptr->arena_start_turn = current_world_ptr->game_turn;
292 if (player_ptr->au <= 1) {
293 msg_print(_("おい!おまえ一文なしじゃないか!こっから出ていけ!", "Hey! You don't have gold - get out of here!"));
301 prt(_("モンスター 倍率", "Monsters Odds"), 4, 4);
302 for (int i = 0; i < 4; i++) {
303 char buf[MAX_MONSTER_NAME];
304 monster_race *r_ptr = &r_info[battle_mon[i]];
306 sprintf(buf, _("%d) %-58s %4ld.%02ld倍", "%d) %-58s %4ld.%02ld"), i + 1,
307 _(format("%s%s", r_name + r_ptr->name, (r_ptr->flags1 & RF1_UNIQUE) ? "もどき" : " "),
308 format("%s%s", (r_ptr->flags1 & RF1_UNIQUE) ? "Fake " : "", r_name + r_ptr->name)),
309 (long int)mon_odds[i] / 100, (long int)mon_odds[i] % 100);
313 prt(_("どれに賭けますか:", "Which monster: "), 0, 0);
322 if (i >= '1' && i <= '4') {
323 sel_monster = i - '1';
324 battle_odds = mon_odds[sel_monster];
333 for (int i = 0; i < 4; i++)
334 if (i != sel_monster)
335 clear_bldg(i + 5, i + 5);
337 maxbet = player_ptr->lev * 200;
339 /* We can't bet more than we have */
340 maxbet = MIN(maxbet, player_ptr->au);
344 sprintf(tmp_str, _("賭け金 (1-%ld)?", "Your wager (1-%ld) ? "), (long int)maxbet);
347 * Use get_string() because we may need more than
348 * the s16b value returned by get_quantity().
350 if (!get_string(tmp_str, out_val, 32)) {
355 for (p = out_val; *p == ' '; p++)
359 if (wager > player_ptr->au) {
360 msg_print(_("おい!金が足りないじゃないか!出ていけ!", "Hey! You don't have the gold - get out of here!"));
365 } else if (wager > maxbet) {
366 msg_format(_("%ldゴールドだけ受けよう。残りは取っときな。", "I'll take %ld gold of that. Keep the rest."), (long int)maxbet);
369 } else if (wager < 1) {
370 msg_print(_("OK、1ゴールドでいこう。", "Ok, we'll start with 1 gold."));
375 battle_odds = MAX(wager + 1, wager * battle_odds / 100);
377 player_ptr->au -= wager;
378 reset_tim_flags(player_ptr);
380 prepare_change_floor_mode(player_ptr, CFM_SAVE_FLOORS);
382 player_ptr->phase_out = TRUE;
383 player_ptr->leaving = TRUE;
384 player_ptr->leave_bldg = TRUE;