src/spells-summon.c

   1 #include "angband.h"\r
   2 \r
   3 /*!\r
   4 * @brief トランプ魔法独自の召喚処理を行う / Handle summoning and failure of trump spells\r
   5 * @param num summon_specific()関数を呼び出す回数\r
   6 * @param pet ペット化として召喚されるか否か\r
   7 * @param y 召喚位置のy座標\r
   8 * @param x 召喚位置のx座標\r
   9 * @param lev 召喚レベル\r
  10 * @param type 召喚条件ID\r
  11 * @param mode モンスター生成条件フラグ\r
  12 * @return モンスターが（敵対も含めて）召還されたならばTRUEを返す。\r
  13 */\r
  14 bool trump_summoning(int num, bool pet, POSITION y, POSITION x, DEPTH lev, int type, BIT_FLAGS mode)\r
  15 {\r
  16         PLAYER_LEVEL plev = p_ptr->lev;\r
  17 \r
  18         MONSTER_IDX who;\r
  19         int i;\r
  20         bool success = FALSE;\r
  21 \r
  22         /* Default level */\r
  23         if (!lev) lev = plev * 2 / 3 + randint1(plev / 2);\r
  24 \r
  25         if (pet)\r
  26         {\r
  27                 /* Become pet */\r
  28                 mode |= PM_FORCE_PET;\r
  29 \r
  30                 /* Only sometimes allow unique monster */\r
  31                 if (mode & PM_ALLOW_UNIQUE)\r
  32                 {\r
  33                         /* Forbid often */\r
  34                         if (randint1(50 + plev) >= plev / 10)\r
  35                                 mode &= ~PM_ALLOW_UNIQUE;\r
  36                 }\r
  37 \r
  38                 /* Player is who summons */\r
  39                 who = -1;\r
  40         }\r
  41         else\r
  42         {\r
  43                 /* Prevent taming, allow unique monster */\r
  44                 mode |= PM_NO_PET;\r
  45 \r
  46                 /* Behave as if they appear by themselfs */\r
  47                 who = 0;\r
  48         }\r
  49 \r
  50         for (i = 0; i < num; i++)\r
  51         {\r
  52                 if (summon_specific(who, y, x, lev, type, mode))\r
  53                         success = TRUE;\r
  54         }\r
  55 \r
  56         if (!success)\r
  57         {\r
  58                 msg_print(_("誰もあなたのカードの呼び声に答えない。", "Nobody answers to your Trump call."));\r
  59         }\r
  60 \r
  61         return success;\r
  62 }\r
  63 \r
  64 \r
  65 bool cast_summon_demon(int power)\r
  66 {\r
  67         u32b flg = 0L;\r
  68         bool pet = !one_in_(3);\r
  69 \r
  70         if (pet) flg |= PM_FORCE_PET;\r
  71         else flg |= PM_NO_PET;\r
  72         if (!(pet && (p_ptr->lev < 50))) flg |= PM_ALLOW_GROUP;\r
  73 \r
  74         if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, power, SUMMON_DEMON, flg))\r
  75         {\r
  76                 msg_print(_("硫黄の悪臭が充満した。", "The area fills with a stench of sulphur and brimstone."));\r
  77                 if (pet)\r
  78                 {\r
  79                         msg_print(_("「ご用でございますか、ご主人様」", "'What is thy bidding... Master?'"));\r
  80                 }\r
  81                 else\r
  82                 {\r
  83                         msg_print(_("「卑しき者よ、我は汝の下僕にあらず！ お前の魂を頂くぞ！」",\r
  84                                 "'NON SERVIAM! Wretch! I shall feast on thy mortal soul!'"));\r
  85                 }\r
  86         }\r
  87         return TRUE;\r
  88 }\r
  89 \r
  90 \r
  91 /*!\r
  92 * @brief 悪魔領域のグレーターデーモン召喚に利用可能な死体かどうかを返す。 / An "item_tester_hook" for offer\r
  93 * @param o_ptr オブジェクト構造体の参照ポインタ\r
  94 * @return 生贄に使用可能な死体ならばTRUEを返す。\r
  95 */\r
  96 bool item_tester_offer(object_type *o_ptr)\r
  97 {\r
  98         /* Flasks of oil are okay */\r
  99         if (o_ptr->tval != TV_CORPSE) return (FALSE);\r
 100         if (o_ptr->sval != SV_CORPSE) return (FALSE);\r
 101 \r
 102         if (my_strchr("pht", r_info[o_ptr->pval].d_char)) return (TRUE);\r
 103 \r
 104         /* Assume not okay */\r
 105         return (FALSE);\r
 106 }\r
 107 \r
 108 /*!\r
 109 * @brief 悪魔領域のグレーターデーモン召喚を処理する / Daemon spell Summon Greater Demon\r
 110 * @return 処理を実行したならばTRUEを返す。\r
 111 */\r
 112 bool cast_summon_greater_demon(void)\r
 113 {\r
 114         PLAYER_LEVEL plev = p_ptr->lev;\r
 115         OBJECT_IDX item;\r
 116         cptr q, s;\r
 117         int summon_lev;\r
 118         object_type *o_ptr;\r
 119 \r
 120         item_tester_hook = item_tester_offer;\r
 121         q = _("どの死体を捧げますか? ", "Sacrifice which corpse? ");\r
 122         s = _("捧げられる死体を持っていない。", "You have nothing to scrifice.");\r
 123         if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR))) return FALSE;\r
 124 \r
 125         /* Get the item (in the pack) */\r
 126         if (item >= 0)\r
 127         {\r
 128                 o_ptr = &inventory[item];\r
 129         }\r
 130 \r
 131         /* Get the item (on the floor) */\r
 132         else\r
 133         {\r
 134                 o_ptr = &o_list[0 - item];\r
 135         }\r
 136 \r
 137         summon_lev = plev * 2 / 3 + r_info[o_ptr->pval].level;\r
 138 \r
 139         if (summon_specific(-1, p_ptr->y, p_ptr->x, summon_lev, SUMMON_HI_DEMON, (PM_ALLOW_GROUP | PM_FORCE_PET)))\r
 140         {\r
 141                 msg_print(_("硫黄の悪臭が充満した。", "The area fills with a stench of sulphur and brimstone."));\r
 142                 msg_print(_("「ご用でございますか、ご主人様」", "'What is thy bidding... Master?'"));\r
 143 \r
 144                 /* Decrease the item (from the pack) */\r
 145                 if (item >= 0)\r
 146                 {\r
 147                         inven_item_increase(item, -1);\r
 148                         inven_item_describe(item);\r
 149                         inven_item_optimize(item);\r
 150                 }\r
 151 \r
 152                 /* Decrease the item (from the floor) */\r
 153                 else\r
 154                 {\r
 155                         floor_item_increase(0 - item, -1);\r
 156                         floor_item_describe(0 - item);\r
 157                         floor_item_optimize(0 - item);\r
 158                 }\r
 159         }\r
 160         else\r
 161         {\r
 162                 msg_print(_("悪魔は現れなかった。", "No Greater Demon arrive."));\r
 163         }\r
 164 \r
 165         return TRUE;\r
 166 }\r