OSDN Git Service

[Merge] #40883 Win版が通る所までマージ完了.他環境でのチェックや他見落としはこれからチェックする。 / Merge is completed until...
[hengband/hengband.git] / src / cmd-action / cmd-mind.c
1 /*!
2  * @brief 各職業の特殊技能実装 / Special magics
3  * @date 2014/01/15
4  * @author
5  * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke\n
6  * This software may be copied and distributed for educational, research,\n
7  * and not for profit purposes provided that this copyright and statement\n
8  * are included in all such copies.  Other copyrights may also apply.\n
9  * 2005 henkma \n
10  * 2014 Deskull rearranged comment for Doxygen.\n
11  */
12
13 #include "cmd-action/cmd-mind.h"
14 #include "action/action-limited.h"
15 #include "core/asking-player.h"
16 #include "core/player-redraw-types.h"
17 #include "core/window-redrawer.h"
18 #include "effect/effect-characteristics.h"
19 #include "effect/effect-processor.h"
20 #include "game-option/disturbance-options.h"
21 #include "game-option/input-options.h"
22 #include "grid/grid.h"
23 #include "inventory/inventory-slot-types.h"
24 #include "io/input-key-acceptor.h"
25 #include "main/sound-definitions-table.h"
26 #include "main/sound-of-music.h"
27 #include "mind/mind-berserker.h"
28 #include "mind/mind-explanations-table.h"
29 #include "mind/mind-force-trainer.h"
30 #include "mind/mind-mindcrafter.h"
31 #include "mind/mind-mirror-master.h"
32 #include "mind/mind-ninja.h"
33 #include "mind/mind-numbers.h"
34 #include "mind/mind-power-getter.h"
35 #include "mind/mind-types.h"
36 #include "player/player-class.h"
37 #include "player/player-damage.h"
38 #include "spell-kind/spells-teleport.h"
39 #include "player/player-status-table.h"
40 #include "spell/spell-types.h"
41 #include "status/bad-status-setter.h"
42 #include "status/base-status.h"
43 #include "system/floor-type-definition.h"
44 #include "term/screen-processor.h"
45 #include "util/buffer-shaper.h"
46 #include "view/display-messages.h"
47
48 typedef struct cm_type {
49     mind_kind_type use_mind;
50     concptr mind_explanation;
51     SPELL_IDX n;
52     int b;
53     PERCENTAGE chance;
54     PERCENTAGE minfail;
55     PLAYER_LEVEL plev;
56     int old_csp;
57     mind_type spell;
58     bool cast;
59     int mana_cost;
60     bool on_mirror;
61 } cm_type;
62
63 static cm_type *initialize_cm_type(player_type *caster_ptr, cm_type *cm_ptr)
64 {
65     cm_ptr->n = 0;
66     cm_ptr->b = 0;
67     cm_ptr->minfail = 0;
68     cm_ptr->plev = caster_ptr->lev;
69     cm_ptr->old_csp = caster_ptr->csp;
70     cm_ptr->on_mirror = FALSE;
71     return cm_ptr;
72 }
73
74 static void switch_mind_kind(player_type *caster_ptr, cm_type *cm_ptr)
75 {
76     switch (caster_ptr->pclass) {
77     case CLASS_MINDCRAFTER:
78         cm_ptr->use_mind = MIND_MINDCRAFTER;
79         cm_ptr->mind_explanation = _("精神", "skill");
80         break;
81     case CLASS_FORCETRAINER:
82         cm_ptr->use_mind = MIND_KI;
83         cm_ptr->mind_explanation = _("気", "skill");
84         break;
85     case CLASS_BERSERKER:
86         cm_ptr->use_mind = MIND_BERSERKER;
87         cm_ptr->mind_explanation = _("怒り", "skill");
88         break;
89     case CLASS_MIRROR_MASTER:
90         cm_ptr->use_mind = MIND_MIRROR_MASTER;
91         cm_ptr->mind_explanation = _("鏡魔法", "skill");
92         break;
93     case CLASS_NINJA:
94         cm_ptr->use_mind = MIND_NINJUTSU;
95         cm_ptr->mind_explanation = _("精神", "skill");
96         break;
97     default:
98         cm_ptr->use_mind = (mind_kind_type)0;
99         cm_ptr->mind_explanation = _("超能力", "skill");
100         break;
101     }
102 }
103
104 static void decide_mind_ki_chance(player_type *caster_ptr, cm_type *cm_ptr)
105 {
106     if (cm_ptr->use_mind != MIND_KI)
107         return;
108
109     if (heavy_armor(caster_ptr))
110         cm_ptr->chance += 20;
111
112     if (caster_ptr->icky_wield[0])
113         cm_ptr->chance += 20;
114     else if (has_melee_weapon(caster_ptr, INVEN_RARM))
115         cm_ptr->chance += 10;
116
117     if (caster_ptr->icky_wield[1])
118         cm_ptr->chance += 20;
119     else if (has_melee_weapon(caster_ptr, INVEN_LARM))
120         cm_ptr->chance += 10;
121
122     if (cm_ptr->n == 5)
123         for (int j = 0; j < get_current_ki(caster_ptr) / 50; j++)
124             cm_ptr->mana_cost += (j + 1) * 3 / 2;
125 }
126
127 static bool check_mind_hp_mp_sufficiency(player_type *caster_ptr, cm_type *cm_ptr)
128 {
129     if ((cm_ptr->use_mind == MIND_BERSERKER) || (cm_ptr->use_mind == MIND_NINJUTSU)) {
130         if (cm_ptr->mana_cost > caster_ptr->chp) {
131             msg_print(_("HPが足りません。", "You do not have enough hp to use this power."));
132             return FALSE;
133         }
134
135         return TRUE;
136     }
137
138     if (cm_ptr->mana_cost <= caster_ptr->csp)
139         return TRUE;
140
141     msg_print(_("MPが足りません。", "You do not have enough mana to use this power."));
142     if (!over_exert)
143         return FALSE;
144
145     return get_check(_("それでも挑戦しますか? ", "Attempt it anyway? "));
146 }
147
148 static void decide_mind_chance(player_type *caster_ptr, cm_type *cm_ptr)
149 {
150     if (cm_ptr->chance == 0)
151         return;
152
153     cm_ptr->chance -= 3 * (cm_ptr->plev - cm_ptr->spell.min_lev);
154     cm_ptr->chance += caster_ptr->to_m_chance;
155     cm_ptr->chance -= 3 * (adj_mag_stat[caster_ptr->stat_ind[mp_ptr->spell_stat]] - 1);
156     if ((cm_ptr->mana_cost > caster_ptr->csp) && (cm_ptr->use_mind != MIND_BERSERKER) && (cm_ptr->use_mind != MIND_NINJUTSU))
157         cm_ptr->chance += 5 * (cm_ptr->mana_cost - caster_ptr->csp);
158
159     cm_ptr->minfail = adj_mag_fail[caster_ptr->stat_ind[mp_ptr->spell_stat]];
160     if (cm_ptr->chance < cm_ptr->minfail)
161         cm_ptr->chance = cm_ptr->minfail;
162
163     if (caster_ptr->stun > 50)
164         cm_ptr->chance += 25;
165     else if (caster_ptr->stun)
166         cm_ptr->chance += 15;
167
168     if (cm_ptr->use_mind != MIND_KI)
169         return;
170
171     if (heavy_armor(caster_ptr))
172         cm_ptr->chance += 5;
173
174     if (caster_ptr->icky_wield[0])
175         cm_ptr->chance += 5;
176
177     if (caster_ptr->icky_wield[1])
178         cm_ptr->chance += 5;
179 }
180
181 static void check_mind_mindcrafter(player_type *caster_ptr, cm_type *cm_ptr)
182 {
183     if (cm_ptr->use_mind != MIND_MINDCRAFTER)
184         return;
185
186     if (cm_ptr->b < 5) {
187         msg_print(_("なんてこった!頭の中が真っ白になった!", "Oh, no! Your mind has gone blank!"));
188         lose_all_info(caster_ptr);
189         return;
190     }
191
192     if (cm_ptr->b < 15) {
193         msg_print(_("奇妙な光景が目の前で踊っている...", "Weird visions seem to dance before your eyes..."));
194         set_image(caster_ptr, caster_ptr->image + 5 + randint1(10));
195         return;
196     }
197
198     if (cm_ptr->b < 45) {
199         msg_print(_("あなたの頭は混乱した!", "Your brain is addled!"));
200         set_confused(caster_ptr, caster_ptr->confused + randint1(8));
201         return;
202     }
203
204     if (cm_ptr->b < 90) {
205         set_stun(caster_ptr, caster_ptr->stun + randint1(8));
206         return;
207     }
208
209     msg_format(_("%sの力が制御できない氾流となって解放された!", "Your mind unleashes its power in an uncontrollable storm!"), cm_ptr->mind_explanation);
210     project(caster_ptr, PROJECT_WHO_UNCTRL_POWER, 2 + cm_ptr->plev / 10, caster_ptr->y, caster_ptr->x, cm_ptr->plev * 2, GF_MANA,
211         PROJECT_JUMP | PROJECT_KILL | PROJECT_GRID | PROJECT_ITEM, -1);
212     caster_ptr->csp = MAX(0, caster_ptr->csp - cm_ptr->plev * MAX(1, cm_ptr->plev / 10));
213 }
214
215 static void check_mind_mirror_master(player_type *caster_ptr, cm_type *cm_ptr)
216 {
217     if (cm_ptr->use_mind != MIND_MIRROR_MASTER)
218         return;
219
220     if (cm_ptr->b < 51)
221         return;
222
223     if (cm_ptr->b < 81) {
224         msg_print(_("鏡の世界の干渉を受けた!", "Weird visions seem to dance before your eyes..."));
225         teleport_player(caster_ptr, 10, TELEPORT_PASSIVE);
226         return;
227     }
228
229     if (cm_ptr->b < 96) {
230         msg_print(_("まわりのものがキラキラ輝いている!", "Your brain is addled!"));
231         set_image(caster_ptr, caster_ptr->image + 5 + randint1(10));
232         return;
233     }
234
235     msg_format(_("%sの力が制御できない氾流となって解放された!", "Your mind unleashes its power in an uncontrollable storm!"), cm_ptr->mind_explanation);
236     project(caster_ptr, PROJECT_WHO_UNCTRL_POWER, 2 + cm_ptr->plev / 10, caster_ptr->y, caster_ptr->x, cm_ptr->plev * 2, GF_MANA,
237         PROJECT_JUMP | PROJECT_KILL | PROJECT_GRID | PROJECT_ITEM, -1);
238     caster_ptr->csp = MAX(0, caster_ptr->csp - cm_ptr->plev * MAX(1, cm_ptr->plev / 10));
239 }
240
241 static void check_mind_class(player_type *caster_ptr, cm_type *cm_ptr)
242 {
243     if ((cm_ptr->use_mind == MIND_BERSERKER) || (cm_ptr->use_mind == MIND_NINJUTSU))
244         return;
245
246     if ((cm_ptr->use_mind == MIND_KI) && (cm_ptr->n != 5) && get_current_ki(caster_ptr)) {
247         msg_print(_("気が散ってしまった...", "Your improved Force has gone away..."));
248         set_current_ki(caster_ptr, TRUE, 0);
249     }
250
251     if (randint1(100) >= (cm_ptr->chance / 2))
252         return;
253
254     cm_ptr->b = randint1(100);
255     check_mind_mindcrafter(caster_ptr, cm_ptr);
256     check_mind_mirror_master(caster_ptr, cm_ptr);
257 }
258
259 static bool switch_mind_class(player_type *caster_ptr, cm_type *cm_ptr)
260 {
261     switch (cm_ptr->use_mind) {
262     case MIND_MINDCRAFTER:
263         cm_ptr->cast = cast_mindcrafter_spell(caster_ptr, cm_ptr->n);
264         return TRUE;
265     case MIND_KI:
266         cm_ptr->cast = cast_force_spell(caster_ptr, cm_ptr->n);
267         return TRUE;
268     case MIND_BERSERKER:
269         cm_ptr->cast = cast_berserk_spell(caster_ptr, cm_ptr->n);
270         return TRUE;
271     case MIND_MIRROR_MASTER:
272         if (is_mirror_grid(&caster_ptr->current_floor_ptr->grid_array[caster_ptr->y][caster_ptr->x]))
273             cm_ptr->on_mirror = TRUE;
274
275         cm_ptr->cast = cast_mirror_spell(caster_ptr, cm_ptr->n);
276         return TRUE;
277     case MIND_NINJUTSU:
278         cm_ptr->cast = cast_ninja_spell(caster_ptr, cm_ptr->n);
279         return TRUE;
280     default:
281         msg_format(_("謎の能力:%d, %d", "Mystery power:%d, %d"), cm_ptr->use_mind, cm_ptr->n);
282         return FALSE;
283     }
284 }
285
286 static void mind_turn_passing(player_type *caster_ptr, cm_type *cm_ptr)
287 {
288     if (!cm_ptr->on_mirror || (caster_ptr->pclass != CLASS_MIRROR_MASTER)) {
289         take_turn(caster_ptr, 100);
290         return;
291     }
292
293     if (cm_ptr->n == 3 || cm_ptr->n == 5 || cm_ptr->n == 7 || cm_ptr->n == 16)
294         take_turn(caster_ptr, 50);
295 }
296
297 static bool judge_mind_chance(player_type *caster_ptr, cm_type *cm_ptr)
298 {
299     if (randint0(100) >= cm_ptr->chance) {
300         sound(SOUND_ZAP);
301         return switch_mind_class(caster_ptr, cm_ptr) && cm_ptr->cast;
302     }
303
304     if (flush_failure)
305         flush();
306
307     msg_format(_("%sの集中に失敗した!", "You failed to concentrate hard enough for %s!"), cm_ptr->mind_explanation);
308     sound(SOUND_FAIL);
309     check_mind_class(caster_ptr, cm_ptr);
310     return TRUE;
311 }
312
313 static void mind_reflection(player_type *caster_ptr, cm_type *cm_ptr)
314 {
315     int oops = cm_ptr->mana_cost - cm_ptr->old_csp;
316     if ((caster_ptr->csp - cm_ptr->mana_cost) < 0)
317         caster_ptr->csp_frac = 0;
318
319     caster_ptr->csp = MAX(0, caster_ptr->csp - cm_ptr->mana_cost);
320     msg_format(_("%sを集中しすぎて気を失ってしまった!", "You faint from the effort!"), cm_ptr->mind_explanation);
321     (void)set_paralyzed(caster_ptr, caster_ptr->paralyzed + randint1(5 * oops + 1));
322     if (randint0(100) >= 50)
323         return;
324
325     bool perm = randint0(100) < 25;
326     msg_print(_("自分の精神を攻撃してしまった!", "You have damaged your mind!"));
327     (void)dec_stat(caster_ptr, A_WIS, 15 + randint1(10), perm);
328 }
329
330 static void process_hard_concentration(player_type *caster_ptr, cm_type *cm_ptr)
331 {
332     if ((cm_ptr->use_mind == MIND_BERSERKER) || (cm_ptr->use_mind == MIND_NINJUTSU)) {
333         take_hit(caster_ptr, DAMAGE_USELIFE, cm_ptr->mana_cost, _("過度の集中", "concentrating too hard"), -1);
334         caster_ptr->redraw |= PR_HP;
335         return;
336     }
337
338     if (cm_ptr->mana_cost > cm_ptr->old_csp) {
339         mind_reflection(caster_ptr, cm_ptr);
340         return;
341     }
342
343     caster_ptr->csp -= cm_ptr->mana_cost;
344     if (caster_ptr->csp < 0)
345         caster_ptr->csp = 0;
346
347     if ((cm_ptr->use_mind == MIND_MINDCRAFTER) && (cm_ptr->n == 13)) {
348         caster_ptr->csp = 0;
349         caster_ptr->csp_frac = 0;
350     }
351 }
352
353 /*!
354  * @brief 特殊技能コマンドのメインルーチン /
355  * @return なし
356  */
357 void do_cmd_mind(player_type *caster_ptr)
358 {
359     cm_type tmp_cm;
360     cm_type *cm_ptr = initialize_cm_type(caster_ptr, &tmp_cm);
361     if (cmd_limit_confused(caster_ptr) || !get_mind_power(caster_ptr, &cm_ptr->n, FALSE))
362         return;
363
364     switch_mind_kind(caster_ptr, cm_ptr);
365     cm_ptr->spell = mind_powers[cm_ptr->use_mind].info[cm_ptr->n];
366     cm_ptr->chance = cm_ptr->spell.fail;
367     cm_ptr->mana_cost = cm_ptr->spell.mana_cost;
368     decide_mind_ki_chance(caster_ptr, cm_ptr);
369     if (!check_mind_hp_mp_sufficiency(caster_ptr, cm_ptr))
370         return;
371
372     decide_mind_chance(caster_ptr, cm_ptr);
373     if (cm_ptr->chance > 95)
374         cm_ptr->chance = 95;
375
376     if (!judge_mind_chance(caster_ptr, cm_ptr))
377         return;
378
379     mind_turn_passing(caster_ptr, cm_ptr);
380     process_hard_concentration(caster_ptr, cm_ptr);
381     caster_ptr->redraw |= PR_MANA;
382     caster_ptr->window |= PW_PLAYER;
383     caster_ptr->window |= PW_SPELL;
384 }
385
386 static mind_kind_type decide_use_mind_browse(player_type *caster_ptr)
387 {
388     switch (caster_ptr->pclass) {
389     case CLASS_MINDCRAFTER:
390         return MIND_MINDCRAFTER;
391     case CLASS_FORCETRAINER:
392         return MIND_KI;
393     case CLASS_BERSERKER:
394         return MIND_BERSERKER;
395     case CLASS_NINJA:
396         return MIND_NINJUTSU;
397     case CLASS_MIRROR_MASTER:
398         return MIND_MIRROR_MASTER;
399     default:
400         return (mind_kind_type)0; // 実質CLASS_MINDCRAFTERと同じ.
401     }
402 }
403
404 /*!
405  * @brief 現在プレイヤーが使用可能な特殊技能の一覧表示 /
406  * @return なし
407  */
408 void do_cmd_mind_browse(player_type *caster_ptr)
409 {
410     SPELL_IDX n = 0;
411     char temp[62 * 5];
412     mind_kind_type use_mind = decide_use_mind_browse(caster_ptr);
413     screen_save();
414     while (TRUE) {
415         if (!get_mind_power(caster_ptr, &n, TRUE)) {
416             screen_load();
417             return;
418         }
419
420         term_erase(12, 21, 255);
421         term_erase(12, 20, 255);
422         term_erase(12, 19, 255);
423         term_erase(12, 18, 255);
424         term_erase(12, 17, 255);
425         term_erase(12, 16, 255);
426         shape_buffer(mind_tips[use_mind][n], 62, temp, sizeof(temp));
427         for (int j = 0, line = 17; temp[j]; j += (1 + strlen(&temp[j]))) {
428             prt(&temp[j], line, 15);
429             line++;
430         }
431
432         switch (use_mind) {
433         case MIND_MIRROR_MASTER:
434         case MIND_NINJUTSU:
435             prt(_("何かキーを押して下さい。", "Hit any key."), 0, 0);
436             (void)inkey();
437             break;
438         default:
439             break;
440         }
441     }
442 }