+++ /dev/null
-#include "angband.h"\r
-#include "spells-summon.h"\r
-\r
-/*!\r
-* @brief トランプ魔法独自の召喚処理を行う / Handle summoning and failure of trump spells\r
-* @param num summon_specific()関数を呼び出す回数\r
-* @param pet ペット化として召喚されるか否か\r
-* @param y 召喚位置のy座標\r
-* @param x 召喚位置のx座標\r
-* @param lev 召喚レベル\r
-* @param type 召喚条件ID\r
-* @param mode モンスター生成条件フラグ\r
-* @return モンスターが(敵対も含めて)召還されたならばTRUEを返す。\r
-*/\r
-bool trump_summoning(int num, bool pet, POSITION y, POSITION x, DEPTH lev, int type, BIT_FLAGS mode)\r
-{\r
- PLAYER_LEVEL plev = p_ptr->lev;\r
-\r
- MONSTER_IDX who;\r
- int i;\r
- bool success = FALSE;\r
-\r
- /* Default level */\r
- if (!lev) lev = plev * 2 / 3 + randint1(plev / 2);\r
-\r
- if (pet)\r
- {\r
- /* Become pet */\r
- mode |= PM_FORCE_PET;\r
-\r
- /* Only sometimes allow unique monster */\r
- if (mode & PM_ALLOW_UNIQUE)\r
- {\r
- /* Forbid often */\r
- if (randint1(50 + plev) >= plev / 10)\r
- mode &= ~PM_ALLOW_UNIQUE;\r
- }\r
-\r
- /* Player is who summons */\r
- who = -1;\r
- }\r
- else\r
- {\r
- /* Prevent taming, allow unique monster */\r
- mode |= PM_NO_PET;\r
-\r
- /* Behave as if they appear by themselfs */\r
- who = 0;\r
- }\r
-\r
- for (i = 0; i < num; i++)\r
- {\r
- if (summon_specific(who, y, x, lev, type, mode, '\0'))\r
- success = TRUE;\r
- }\r
-\r
- if (!success)\r
- {\r
- msg_print(_("誰もあなたのカードの呼び声に答えない。", "Nobody answers to your Trump call."));\r
- }\r
-\r
- return success;\r
-}\r
-\r
-\r
-bool cast_summon_demon(int power)\r
-{\r
- u32b flg = 0L;\r
- bool pet = !one_in_(3);\r
-\r
- if (pet) flg |= PM_FORCE_PET;\r
- else flg |= PM_NO_PET;\r
- if (!(pet && (p_ptr->lev < 50))) flg |= PM_ALLOW_GROUP;\r
-\r
- if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, power, SUMMON_DEMON, flg, '\0'))\r
- {\r
- msg_print(_("硫黄の悪臭が充満した。", "The area fills with a stench of sulphur and brimstone."));\r
- if (pet)\r
- {\r
- msg_print(_("「ご用でございますか、ご主人様」", "'What is thy bidding... Master?'"));\r
- }\r
- else\r
- {\r
- msg_print(_("「卑しき者よ、我は汝の下僕にあらず! お前の魂を頂くぞ!」",\r
- "'NON SERVIAM! Wretch! I shall feast on thy mortal soul!'"));\r
- }\r
- }\r
- return TRUE;\r
-}\r
-\r
-\r
-/*!\r
-* @brief 悪魔領域のグレーターデーモン召喚に利用可能な死体かどうかを返す。 / An "item_tester_hook" for offer\r
-* @param o_ptr オブジェクト構造体の参照ポインタ\r
-* @return 生贄に使用可能な死体ならばTRUEを返す。\r
-*/\r
-bool item_tester_offer(object_type *o_ptr)\r
-{\r
- /* Flasks of oil are okay */\r
- if (o_ptr->tval != TV_CORPSE) return (FALSE);\r
- if (o_ptr->sval != SV_CORPSE) return (FALSE);\r
-\r
- if (my_strchr("pht", r_info[o_ptr->pval].d_char)) return (TRUE);\r
-\r
- /* Assume not okay */\r
- return (FALSE);\r
-}\r
-\r
-/*!\r
-* @brief 悪魔領域のグレーターデーモン召喚を処理する / Daemon spell Summon Greater Demon\r
-* @return 処理を実行したならばTRUEを返す。\r
-*/\r
-bool cast_summon_greater_demon(void)\r
-{\r
- PLAYER_LEVEL plev = p_ptr->lev;\r
- OBJECT_IDX item;\r
- concptr q, s;\r
- int summon_lev;\r
- object_type *o_ptr;\r
-\r
- item_tester_hook = item_tester_offer;\r
- q = _("どの死体を捧げますか? ", "Sacrifice which corpse? ");\r
- s = _("捧げられる死体を持っていない。", "You have nothing to scrifice.");\r
- o_ptr = choose_object(&item, q, s, (USE_INVEN | USE_FLOOR));\r
- if (!o_ptr) return FALSE;\r
-\r
- summon_lev = plev * 2 / 3 + r_info[o_ptr->pval].level;\r
-\r
- if (summon_specific(-1, p_ptr->y, p_ptr->x, summon_lev, SUMMON_HI_DEMON, (PM_ALLOW_GROUP | PM_FORCE_PET), '\0'))\r
- {\r
- msg_print(_("硫黄の悪臭が充満した。", "The area fills with a stench of sulphur and brimstone."));\r
- msg_print(_("「ご用でございますか、ご主人様」", "'What is thy bidding... Master?'"));\r
-\r
- /* Decrease the item (from the pack) */\r
- if (item >= 0)\r
- {\r
- inven_item_increase(item, -1);\r
- inven_item_describe(item);\r
- inven_item_optimize(item);\r
- }\r
-\r
- /* Decrease the item (from the floor) */\r
- else\r
- {\r
- floor_item_increase(0 - item, -1);\r
- floor_item_describe(0 - item);\r
- floor_item_optimize(0 - item);\r
- }\r
- }\r
- else\r
- {\r
- msg_print(_("悪魔は現れなかった。", "No Greater Demon arrive."));\r
- }\r
-\r
- return TRUE;\r
-}\r
-\r
-/*!\r
- * @brief 同族召喚(援軍)処理\r
- * @param level 召喚基準レベル\r
- * @param y 召喚先Y座標\r
- * @param x 召喚先X座標\r
- * @param mode 召喚オプション\r
- * @return ターンを消費した場合TRUEを返す\r
- */\r
-bool summon_kin_player(DEPTH level, POSITION y, POSITION x, BIT_FLAGS mode)\r
-{\r
- bool pet = (bool)(mode & PM_FORCE_PET);\r
- SYMBOL_CODE symbol = '\0';\r
- if (!pet) mode |= PM_NO_PET;\r
-\r
- switch (p_ptr->mimic_form)\r
- {\r
- case MIMIC_NONE:\r
- switch (p_ptr->prace)\r
- {\r
- case RACE_HUMAN:\r
- case RACE_AMBERITE:\r
- case RACE_BARBARIAN:\r
- case RACE_BEASTMAN:\r
- case RACE_DUNADAN:\r
- symbol = 'p';\r
- break;\r
- case RACE_HALF_ELF:\r
- case RACE_ELF:\r
- case RACE_HOBBIT:\r
- case RACE_GNOME:\r
- case RACE_DWARF:\r
- case RACE_HIGH_ELF:\r
- case RACE_NIBELUNG:\r
- case RACE_DARK_ELF:\r
- case RACE_MIND_FLAYER:\r
- case RACE_KUTAR:\r
- case RACE_S_FAIRY:\r
- symbol = 'h';\r
- break;\r
- case RACE_HALF_ORC:\r
- symbol = 'o';\r
- break;\r
- case RACE_HALF_TROLL:\r
- symbol = 'T';\r
- break;\r
- case RACE_HALF_OGRE:\r
- symbol = 'O';\r
- break;\r
- case RACE_HALF_GIANT:\r
- case RACE_HALF_TITAN:\r
- case RACE_CYCLOPS:\r
- symbol = 'P';\r
- break;\r
- case RACE_YEEK:\r
- symbol = 'y';\r
- break;\r
- case RACE_KLACKON:\r
- symbol = 'K';\r
- break;\r
- case RACE_KOBOLD:\r
- symbol = 'k';\r
- break;\r
- case RACE_IMP:\r
- if (one_in_(13)) symbol = 'U';\r
- else symbol = 'u';\r
- break;\r
- case RACE_DRACONIAN:\r
- symbol = 'd';\r
- break;\r
- case RACE_GOLEM:\r
- case RACE_ANDROID:\r
- symbol = 'g';\r
- break;\r
- case RACE_SKELETON:\r
- if (one_in_(13)) symbol = 'L';\r
- else symbol = 's';\r
- break;\r
- case RACE_ZOMBIE:\r
- symbol = 'z';\r
- break;\r
- case RACE_VAMPIRE:\r
- symbol = 'V';\r
- break;\r
- case RACE_SPECTRE:\r
- symbol = 'G';\r
- break;\r
- case RACE_SPRITE:\r
- symbol = 'I';\r
- break;\r
- case RACE_ENT:\r
- symbol = '#';\r
- break;\r
- case RACE_ANGEL:\r
- symbol = 'A';\r
- break;\r
- case RACE_DEMON:\r
- symbol = 'U';\r
- break;\r
- default:\r
- symbol = 'p';\r
- break;\r
- }\r
- break;\r
- case MIMIC_DEMON:\r
- if (one_in_(13)) symbol = 'U';\r
- else symbol = 'u';\r
- break;\r
- case MIMIC_DEMON_LORD:\r
- symbol = 'U';\r
- break;\r
- case MIMIC_VAMPIRE:\r
- symbol = 'V';\r
- break;\r
- }\r
- return summon_specific((pet ? -1 : 0), y, x, level, SUMMON_KIN, mode, symbol);\r
-}\r