1 #include "spell/spells-summon.h"
2 #include "avatar/avatar.h"
3 #include "effect/spells-effect-util.h"
4 #include "floor/floor-object.h"
5 #include "floor/line-of-sight.h"
6 #include "game-option/birth-options.h"
7 #include "hpmp/hp-mp-processor.h"
8 #include "inventory/inventory-object.h"
9 #include "monster-floor/monster-summon.h"
10 #include "monster-floor/place-monster-types.h"
11 #include "monster-race/monster-race.h"
12 #include "monster-race/race-indice-types.h"
13 #include "monster/monster-info.h"
14 #include "monster/monster-status.h"
15 #include "monster/smart-learn-types.h"
16 #include "object/item-tester-hooker.h"
17 #include "object/item-use-flags.h"
18 #include "spell-kind/earthquake.h"
19 #include "spell-kind/spells-floor.h"
20 #include "spell-kind/spells-genocide.h"
21 #include "spell-kind/spells-launcher.h"
22 #include "spell-kind/spells-lite.h"
23 #include "spell-kind/spells-sight.h"
24 #include "spell-kind/spells-specific-bolt.h"
25 #include "spell/spells-diceroll.h"
26 #include "spell/spells-status.h"
27 #include "spell/summon-types.h"
28 #include "status/bad-status-setter.h"
29 #include "sv-definition/sv-other-types.h"
30 #include "system/floor-type-definition.h"
31 #include "system/item-entity.h"
32 #include "system/monster-entity.h"
33 #include "system/monster-race-info.h"
34 #include "system/player-type-definition.h"
35 #include "target/projection-path-calculator.h"
36 #include "util/string-processor.h"
37 #include "view/display-messages.h"
40 * @brief トランプ魔法独自の召喚処理を行う / Handle summoning and failure of trump spells
41 * @param num summon_specific()関数を呼び出す回数
42 * @param pet ペット化として召喚されるか否か
47 * @param mode モンスター生成条件フラグ
48 * @return モンスターが(敵対も含めて)召還されたならばTRUEを返す。
50 bool trump_summoning(PlayerType *player_ptr, int num, bool pet, POSITION y, POSITION x, DEPTH lev, summon_type type, BIT_FLAGS mode)
53 PLAYER_LEVEL plev = player_ptr->lev;
55 lev = plev * 2 / 3 + randint1(plev / 2);
63 /* Only sometimes allow unique monster */
64 if (mode & PM_ALLOW_UNIQUE) {
66 if (randint1(50 + plev) >= plev / 10) {
67 mode &= ~PM_ALLOW_UNIQUE;
71 /* Player is who summons */
74 /* Prevent taming, allow unique monster */
77 /* Behave as if they appear by themselfs */
82 for (int i = 0; i < num; i++) {
83 if (summon_specific(player_ptr, who, y, x, lev, type, mode)) {
89 msg_print(_("誰もあなたのカードの呼び声に答えない。", "Nobody answers to your Trump call."));
95 bool cast_summon_demon(PlayerType *player_ptr, int power)
98 bool pet = !one_in_(3);
104 if (!(pet && (player_ptr->lev < 50))) {
105 flg |= PM_ALLOW_GROUP;
108 if (!summon_specific(player_ptr, (pet ? -1 : 0), player_ptr->y, player_ptr->x, power, SUMMON_DEMON, flg)) {
112 msg_print(_("硫黄の悪臭が充満した。", "The area fills with a stench of sulphur and brimstone."));
114 msg_print(_("「ご用でございますか、ご主人様」", "'What is thy bidding... Master?'"));
116 msg_print(_("「卑しき者よ、我は汝の下僕にあらず! お前の魂を頂くぞ!」", "'NON SERVIAM! Wretch! I shall feast on thy mortal soul!'"));
122 bool cast_summon_undead(PlayerType *player_ptr, int power)
124 bool pet = one_in_(3);
125 summon_type type = (player_ptr->lev > 47 ? SUMMON_HI_UNDEAD : SUMMON_UNDEAD);
128 if (!pet || ((player_ptr->lev > 24) && one_in_(3))) {
129 mode |= PM_ALLOW_GROUP;
132 mode |= PM_FORCE_PET;
134 mode |= (PM_ALLOW_UNIQUE | PM_NO_PET);
137 if (summon_specific(player_ptr, (pet ? -1 : 0), player_ptr->y, player_ptr->x, power, type, mode)) {
138 msg_print(_("冷たい風があなたの周りに吹き始めた。それは腐敗臭を運んでいる...",
139 "Cold winds begin to blow around you, carrying with them the stench of decay..."));
141 msg_print(_("古えの死せる者共があなたに仕えるため土から甦った!", "Ancient, long-dead forms arise from the ground to serve you!"));
143 msg_print(_("死者が甦った。眠りを妨げるあなたを罰するために!", "'The dead arise... to punish you for disturbing them!'"));
149 bool cast_summon_hound(PlayerType *player_ptr, int power)
151 BIT_FLAGS mode = PM_ALLOW_GROUP;
152 bool pet = !one_in_(5);
154 mode |= PM_FORCE_PET;
159 if (summon_specific(player_ptr, (pet ? -1 : 0), player_ptr->y, player_ptr->x, power, SUMMON_HOUND, mode)) {
161 msg_print(_("ハウンドがあなたの下僕として出現した。", "A group of hounds appear as your servants."));
163 msg_print(_("ハウンドはあなたに牙を向けている!", "A group of hounds appear as your enemies!"));
170 bool cast_summon_elemental(PlayerType *player_ptr, int power)
172 bool pet = one_in_(3);
174 if (!(pet && (player_ptr->lev < 50))) {
175 mode |= PM_ALLOW_GROUP;
178 mode |= PM_FORCE_PET;
183 if (summon_specific(player_ptr, (pet ? -1 : 0), player_ptr->y, player_ptr->x, power, SUMMON_ELEMENTAL, mode)) {
184 msg_print(_("エレメンタルが現れた...", "An elemental materializes..."));
186 msg_print(_("あなたに服従しているようだ。", "It seems obedient to you."));
188 msg_print(_("それをコントロールできなかった!", "You fail to control it!"));
195 bool cast_summon_octopus(PlayerType *player_ptr)
197 BIT_FLAGS mode = PM_ALLOW_GROUP;
198 bool pet = !one_in_(5);
200 mode |= PM_FORCE_PET;
202 if (summon_named_creature(player_ptr, 0, player_ptr->y, player_ptr->x, MonsterRaceId::JIZOTAKO, mode)) {
204 msg_print(_("蛸があなたの下僕として出現した。", "A group of octopuses appear as your servants."));
206 msg_print(_("蛸はあなたを睨んでいる!", "A group of octopuses appear as your enemies!"));
214 * @brief 悪魔領域のグレーターデーモン召喚を処理する / Daemon spell Summon Greater Demon
215 * @return 処理を実行したならばTRUEを返す。
217 bool cast_summon_greater_demon(PlayerType *player_ptr)
219 constexpr auto q = _("どの死体を捧げますか? ", "Sacrifice which corpse? ");
220 constexpr auto s = _("捧げられる死体を持っていない。", "You have nothing to sacrifice.");
222 const auto *o_ptr = choose_object(player_ptr, &i_idx, q, s, (USE_INVEN | USE_FLOOR), FuncItemTester(&ItemEntity::is_offerable));
227 PLAYER_LEVEL plev = player_ptr->lev;
228 auto corpse_r_idx = i2enum<MonsterRaceId>(o_ptr->pval);
229 int summon_lev = plev * 2 / 3 + monraces_info[corpse_r_idx].level;
231 if (summon_specific(player_ptr, -1, player_ptr->y, player_ptr->x, summon_lev, SUMMON_HI_DEMON, (PM_ALLOW_GROUP | PM_FORCE_PET))) {
232 msg_print(_("硫黄の悪臭が充満した。", "The area fills with a stench of sulphur and brimstone."));
233 msg_print(_("「ご用でございますか、ご主人様」", "'What is thy bidding... Master?'"));
234 vary_item(player_ptr, i_idx, -1);
236 msg_print(_("悪魔は現れなかった。", "No Greater Demon arrives."));
244 * @param player_ptr プレイヤーへの参照ポインタ
245 * @param level 召喚基準レベル
248 * @param mode 召喚オプション
249 * @return ターンを消費した場合TRUEを返す
251 bool summon_kin_player(PlayerType *player_ptr, DEPTH level, POSITION y, POSITION x, BIT_FLAGS mode)
253 bool pet = (bool)(mode & PM_FORCE_PET);
257 return summon_specific(player_ptr, (pet ? -1 : 0), y, x, level, SUMMON_KIN, mode);
262 * @param player_ptr プレイヤーへの参照ポインタ
263 * @param who 召喚主のモンスターID(0ならばプレイヤー)
266 * @return 作用が実際にあった場合TRUEを返す
268 int summon_cyber(PlayerType *player_ptr, MONSTER_IDX who, POSITION y, POSITION x)
270 /* Summoned by a monster */
271 BIT_FLAGS mode = PM_ALLOW_GROUP;
272 auto *floor_ptr = player_ptr->current_floor_ptr;
274 auto *m_ptr = &floor_ptr->m_list[who];
275 if (m_ptr->is_pet()) {
276 mode |= PM_FORCE_PET;
280 int max_cyber = (floor_ptr->dun_level / 50) + randint1(2);
286 for (int i = 0; i < max_cyber; i++) {
287 count += summon_specific(player_ptr, who, y, x, 100, SUMMON_CYBER, mode);
293 void mitokohmon(PlayerType *player_ptr)
296 [[maybe_unused]] concptr sukekakusan = "";
297 if (summon_named_creature(player_ptr, 0, player_ptr->y, player_ptr->x, MonsterRaceId::SUKE, PM_FORCE_PET)) {
298 msg_print(_("『助さん』が現れた。", "Suke-san apperars."));
299 sukekakusan = "Suke-san";
303 if (summon_named_creature(player_ptr, 0, player_ptr->y, player_ptr->x, MonsterRaceId::KAKU, PM_FORCE_PET)) {
304 msg_print(_("『格さん』が現れた。", "Kaku-san appears."));
305 sukekakusan = "Kaku-san";
310 for (int i = player_ptr->current_floor_ptr->m_max - 1; i > 0; i--) {
311 MonsterEntity *m_ptr;
312 m_ptr = &player_ptr->current_floor_ptr->m_list[i];
313 if (!m_ptr->is_valid()) {
316 if (!((m_ptr->r_idx == MonsterRaceId::SUKE) || (m_ptr->r_idx == MonsterRaceId::KAKU))) {
319 if (!los(player_ptr, m_ptr->fy, m_ptr->fx, player_ptr->y, player_ptr->x)) {
322 if (!projectable(player_ptr, m_ptr->fy, m_ptr->fx, player_ptr->y, player_ptr->x)) {
331 msg_print(_("しかし、何も起きなかった。", "Nothing happens."));
336 "「者ども、ひかえおろう!!!このお方をどなたとこころえる。」",
337 format("%s^ says 'WHO do you think this person is! Bow your head, down to your knees!'", sukekakusan)));
339 stun_monsters(player_ptr, 120);
340 confuse_monsters(player_ptr, 120);
341 turn_monsters(player_ptr, 120);
342 stasis_monsters(player_ptr, 120);
347 * @brief HI_SUMMON(上級召喚)処理発動
348 * @param player_ptr プレイヤーへの参照ポインタ
351 * @param can_pet プレイヤーのペットとなる可能性があるならばTRUEにする
352 * @return 作用が実際にあった場合TRUEを返す
353 * @todo 引数にPOSITION x/yは必要か? 要調査
355 int activate_hi_summon(PlayerType *player_ptr, POSITION y, POSITION x, bool can_pet)
357 BIT_FLAGS mode = PM_ALLOW_GROUP;
361 mode |= PM_FORCE_FRIENDLY;
363 mode |= PM_FORCE_PET;
372 DEPTH dungeon_level = player_ptr->current_floor_ptr->dun_level;
373 DEPTH summon_lev = (pet ? player_ptr->lev * 2 / 3 + randint1(player_ptr->lev / 2) : dungeon_level);
375 for (int i = 0; i < (randint1(7) + (dungeon_level / 40)); i++) {
376 switch (randint1(25) + (dungeon_level / 20)) {
379 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_ANT, mode);
383 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_SPIDER, mode);
387 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_HOUND, mode);
391 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_HYDRA, mode);
395 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_ANGEL, mode);
399 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_UNDEAD, mode);
403 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_DRAGON, mode);
407 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_DEMON, mode);
413 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_AMBERITES, (mode | PM_ALLOW_UNIQUE));
420 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_UNIQUE, (mode | PM_ALLOW_UNIQUE));
425 mode |= PM_ALLOW_UNIQUE;
427 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_HI_UNDEAD, mode);
432 mode |= PM_ALLOW_UNIQUE;
434 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, summon_lev, SUMMON_HI_DRAGON, mode);
437 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, 100, SUMMON_CYBER, mode);
441 mode |= PM_ALLOW_UNIQUE;
443 count += summon_specific(player_ptr, (pet ? -1 : 0), y, x, pet ? summon_lev : (((summon_lev * 3) / 2) + 5), SUMMON_NONE, mode);
451 * @brief 「悪霊召喚」のランダムな効果を決定して処理する。
452 * @param player_ptr プレイヤーへの参照ポインタ
455 void cast_invoke_spirits(PlayerType *player_ptr, DIRECTION dir)
457 PLAYER_LEVEL plev = player_ptr->lev;
458 int die = randint1(100) + plev / 5;
459 int vir = virtue_number(player_ptr, Virtue::CHANCE);
462 if (player_ptr->virtues[vir - 1] > 0) {
463 while (randint1(400) < player_ptr->virtues[vir - 1]) {
467 while (randint1(400) < (0 - player_ptr->virtues[vir - 1])) {
473 msg_print(_("あなたは死者たちの力を招集した...", "You call on the power of the dead..."));
475 chg_virtue(player_ptr, Virtue::CHANCE, 1);
479 msg_print(_("あなたはおどろおどろしい力のうねりを感じた!", "You feel a surge of eldritch force!"));
482 BadStatusSetter bss(player_ptr);
484 msg_print(_("なんてこった!あなたの周りの地面から朽ちた人影が立ち上がってきた!", "Oh no! Mouldering forms rise from the earth around you!"));
486 (void)summon_specific(player_ptr, 0, player_ptr->y, player_ptr->x, player_ptr->current_floor_ptr->dun_level, SUMMON_UNDEAD,
487 (PM_ALLOW_GROUP | PM_ALLOW_UNIQUE | PM_NO_PET));
488 chg_virtue(player_ptr, Virtue::UNLIFE, 1);
489 } else if (die < 14) {
490 msg_print(_("名状し難い邪悪な存在があなたの心を通り過ぎて行った...", "An unnamable evil brushes against your mind..."));
491 (void)bss.mod_fear(randint1(4) + 4);
492 } else if (die < 26) {
493 msg_print(_("あなたの頭に大量の幽霊たちの騒々しい声が押し寄せてきた...", "Your head is invaded by a horde of gibbering spectral voices..."));
494 (void)bss.mod_confusion(randint1(4) + 4);
495 } else if (die < 31) {
496 poly_monster(player_ptr, dir, plev);
497 } else if (die < 36) {
498 fire_bolt_or_beam(player_ptr, beam_chance(player_ptr) - 10, AttributeType::MISSILE, dir, damroll(3 + ((plev - 1) / 5), 4));
499 } else if (die < 41) {
500 confuse_monster(player_ptr, dir, plev);
501 } else if (die < 46) {
502 fire_ball(player_ptr, AttributeType::POIS, dir, 20 + (plev / 2), 3);
503 } else if (die < 51) {
504 (void)lite_line(player_ptr, dir, damroll(6, 8));
505 } else if (die < 56) {
506 fire_bolt_or_beam(player_ptr, beam_chance(player_ptr) - 10, AttributeType::ELEC, dir, damroll(3 + ((plev - 5) / 4), 8));
507 } else if (die < 61) {
508 fire_bolt_or_beam(player_ptr, beam_chance(player_ptr) - 10, AttributeType::COLD, dir, damroll(5 + ((plev - 5) / 4), 8));
509 } else if (die < 66) {
510 fire_bolt_or_beam(player_ptr, beam_chance(player_ptr), AttributeType::ACID, dir, damroll(6 + ((plev - 5) / 4), 8));
511 } else if (die < 71) {
512 fire_bolt_or_beam(player_ptr, beam_chance(player_ptr), AttributeType::FIRE, dir, damroll(8 + ((plev - 5) / 4), 8));
513 } else if (die < 76) {
514 hypodynamic_bolt(player_ptr, dir, 75);
515 } else if (die < 81) {
516 fire_ball(player_ptr, AttributeType::ELEC, dir, 30 + plev / 2, 2);
517 } else if (die < 86) {
518 fire_ball(player_ptr, AttributeType::ACID, dir, 40 + plev, 2);
519 } else if (die < 91) {
520 fire_ball(player_ptr, AttributeType::ICE, dir, 70 + plev, 3);
521 } else if (die < 96) {
522 fire_ball(player_ptr, AttributeType::FIRE, dir, 80 + plev, 3);
523 } else if (die < 101) {
524 hypodynamic_bolt(player_ptr, dir, 100 + plev);
525 } else if (die < 104) {
526 earthquake(player_ptr, player_ptr->y, player_ptr->x, 12, 0);
527 } else if (die < 106) {
528 (void)destroy_area(player_ptr, player_ptr->y, player_ptr->x, 13 + randint0(5), false);
529 } else if (die < 108) {
530 symbol_genocide(player_ptr, plev + 50, true);
531 } else if (die < 110) {
532 dispel_monsters(player_ptr, 120);
534 dispel_monsters(player_ptr, 150);
535 slow_monsters(player_ptr, plev);
536 sleep_monsters(player_ptr, plev);
537 hp_player(player_ptr, 300);
542 _("陰欝な声がクスクス笑う。「もうすぐおまえは我々の仲間になるだろう。弱き者よ。」", "Sepulchral voices chuckle. 'Soon you will join us, mortal.'"));