src/spells-summon.c

   1 #include "angband.h"\r
   2 #include "spells-summon.h"\r
   3 \r
   4 /*!\r
   5 * @brief トランプ魔法独自の召喚処理を行う / Handle summoning and failure of trump spells\r
   6 * @param num summon_specific()関数を呼び出す回数\r
   7 * @param pet ペット化として召喚されるか否か\r
   8 * @param y 召喚位置のy座標\r
   9 * @param x 召喚位置のx座標\r
  10 * @param lev 召喚レベル\r
  11 * @param type 召喚条件ID\r
  12 * @param mode モンスター生成条件フラグ\r
  13 * @return モンスターが（敵対も含めて）召還されたならばTRUEを返す。\r
  14 */\r
  15 bool trump_summoning(int num, bool pet, POSITION y, POSITION x, DEPTH lev, int type, BIT_FLAGS mode)\r
  16 {\r
  17         PLAYER_LEVEL plev = p_ptr->lev;\r
  18 \r
  19         MONSTER_IDX who;\r
  20         int i;\r
  21         bool success = FALSE;\r
  22 \r
  23         /* Default level */\r
  24         if (!lev) lev = plev * 2 / 3 + randint1(plev / 2);\r
  25 \r
  26         if (pet)\r
  27         {\r
  28                 /* Become pet */\r
  29                 mode |= PM_FORCE_PET;\r
  30 \r
  31                 /* Only sometimes allow unique monster */\r
  32                 if (mode & PM_ALLOW_UNIQUE)\r
  33                 {\r
  34                         /* Forbid often */\r
  35                         if (randint1(50 + plev) >= plev / 10)\r
  36                                 mode &= ~PM_ALLOW_UNIQUE;\r
  37                 }\r
  38 \r
  39                 /* Player is who summons */\r
  40                 who = -1;\r
  41         }\r
  42         else\r
  43         {\r
  44                 /* Prevent taming, allow unique monster */\r
  45                 mode |= PM_NO_PET;\r
  46 \r
  47                 /* Behave as if they appear by themselfs */\r
  48                 who = 0;\r
  49         }\r
  50 \r
  51         for (i = 0; i < num; i++)\r
  52         {\r
  53                 if (summon_specific(who, y, x, lev, type, mode, '\0'))\r
  54                         success = TRUE;\r
  55         }\r
  56 \r
  57         if (!success)\r
  58         {\r
  59                 msg_print(_("誰もあなたのカードの呼び声に答えない。", "Nobody answers to your Trump call."));\r
  60         }\r
  61 \r
  62         return success;\r
  63 }\r
  64 \r
  65 \r
  66 bool cast_summon_demon(int power)\r
  67 {\r
  68         u32b flg = 0L;\r
  69         bool pet = !one_in_(3);\r
  70 \r
  71         if (pet) flg |= PM_FORCE_PET;\r
  72         else flg |= PM_NO_PET;\r
  73         if (!(pet && (p_ptr->lev < 50))) flg |= PM_ALLOW_GROUP;\r
  74 \r
  75         if (summon_specific((pet ? -1 : 0), p_ptr->y, p_ptr->x, power, SUMMON_DEMON, flg, '\0'))\r
  76         {\r
  77                 msg_print(_("硫黄の悪臭が充満した。", "The area fills with a stench of sulphur and brimstone."));\r
  78                 if (pet)\r
  79                 {\r
  80                         msg_print(_("「ご用でございますか、ご主人様」", "'What is thy bidding... Master?'"));\r
  81                 }\r
  82                 else\r
  83                 {\r
  84                         msg_print(_("「卑しき者よ、我は汝の下僕にあらず！ お前の魂を頂くぞ！」",\r
  85                                 "'NON SERVIAM! Wretch! I shall feast on thy mortal soul!'"));\r
  86                 }\r
  87         }\r
  88         return TRUE;\r
  89 }\r
  90 \r
  91 \r
  92 /*!\r
  93 * @brief 悪魔領域のグレーターデーモン召喚に利用可能な死体かどうかを返す。 / An "item_tester_hook" for offer\r
  94 * @param o_ptr オブジェクト構造体の参照ポインタ\r
  95 * @return 生贄に使用可能な死体ならばTRUEを返す。\r
  96 */\r
  97 bool item_tester_offer(object_type *o_ptr)\r
  98 {\r
  99         /* Flasks of oil are okay */\r
 100         if (o_ptr->tval != TV_CORPSE) return (FALSE);\r
 101         if (o_ptr->sval != SV_CORPSE) return (FALSE);\r
 102 \r
 103         if (my_strchr("pht", r_info[o_ptr->pval].d_char)) return (TRUE);\r
 104 \r
 105         /* Assume not okay */\r
 106         return (FALSE);\r
 107 }\r
 108 \r
 109 /*!\r
 110 * @brief 悪魔領域のグレーターデーモン召喚を処理する / Daemon spell Summon Greater Demon\r
 111 * @return 処理を実行したならばTRUEを返す。\r
 112 */\r
 113 bool cast_summon_greater_demon(void)\r
 114 {\r
 115         PLAYER_LEVEL plev = p_ptr->lev;\r
 116         OBJECT_IDX item;\r
 117         concptr q, s;\r
 118         int summon_lev;\r
 119         object_type *o_ptr;\r
 120 \r
 121         item_tester_hook = item_tester_offer;\r
 122         q = _("どの死体を捧げますか? ", "Sacrifice which corpse? ");\r
 123         s = _("捧げられる死体を持っていない。", "You have nothing to scrifice.");\r
 124         o_ptr = choose_object(&item, q, s, (USE_INVEN | USE_FLOOR));\r
 125         if (!o_ptr) return FALSE;\r
 126 \r
 127         summon_lev = plev * 2 / 3 + r_info[o_ptr->pval].level;\r
 128 \r
 129         if (summon_specific(-1, p_ptr->y, p_ptr->x, summon_lev, SUMMON_HI_DEMON, (PM_ALLOW_GROUP | PM_FORCE_PET), '\0'))\r
 130         {\r
 131                 msg_print(_("硫黄の悪臭が充満した。", "The area fills with a stench of sulphur and brimstone."));\r
 132                 msg_print(_("「ご用でございますか、ご主人様」", "'What is thy bidding... Master?'"));\r
 133 \r
 134                 /* Decrease the item (from the pack) */\r
 135                 if (item >= 0)\r
 136                 {\r
 137                         inven_item_increase(item, -1);\r
 138                         inven_item_describe(item);\r
 139                         inven_item_optimize(item);\r
 140                 }\r
 141 \r
 142                 /* Decrease the item (from the floor) */\r
 143                 else\r
 144                 {\r
 145                         floor_item_increase(0 - item, -1);\r
 146                         floor_item_describe(0 - item);\r
 147                         floor_item_optimize(0 - item);\r
 148                 }\r
 149         }\r
 150         else\r
 151         {\r
 152                 msg_print(_("悪魔は現れなかった。", "No Greater Demon arrive."));\r
 153         }\r
 154 \r
 155         return TRUE;\r
 156 }\r
 157 \r
 158 /*!\r
 159  * @brief 同族召喚(援軍)処理\r
 160  * @param level 召喚基準レベル\r
 161  * @param y 召喚先Y座標\r
 162  * @param x 召喚先X座標\r
 163  * @param mode 召喚オプション\r
 164  * @return ターンを消費した場合TRUEを返す\r
 165  */\r
 166 bool summon_kin_player(DEPTH level, POSITION y, POSITION x, BIT_FLAGS mode)\r
 167 {\r
 168         bool pet = (bool)(mode & PM_FORCE_PET);\r
 169         SYMBOL_CODE symbol = '\0';\r
 170         if (!pet) mode |= PM_NO_PET;\r
 171 \r
 172         switch (p_ptr->mimic_form)\r
 173         {\r
 174         case MIMIC_NONE:\r
 175                 switch (p_ptr->prace)\r
 176                 {\r
 177                 case RACE_HUMAN:\r
 178                 case RACE_AMBERITE:\r
 179                 case RACE_BARBARIAN:\r
 180                 case RACE_BEASTMAN:\r
 181                 case RACE_DUNADAN:\r
 182                         symbol = 'p';\r
 183                         break;\r
 184                 case RACE_HALF_ELF:\r
 185                 case RACE_ELF:\r
 186                 case RACE_HOBBIT:\r
 187                 case RACE_GNOME:\r
 188                 case RACE_DWARF:\r
 189                 case RACE_HIGH_ELF:\r
 190                 case RACE_NIBELUNG:\r
 191                 case RACE_DARK_ELF:\r
 192                 case RACE_MIND_FLAYER:\r
 193                 case RACE_KUTAR:\r
 194                 case RACE_S_FAIRY:\r
 195                         symbol = 'h';\r
 196                         break;\r
 197                 case RACE_HALF_ORC:\r
 198                         symbol = 'o';\r
 199                         break;\r
 200                 case RACE_HALF_TROLL:\r
 201                         symbol = 'T';\r
 202                         break;\r
 203                 case RACE_HALF_OGRE:\r
 204                         symbol = 'O';\r
 205                         break;\r
 206                 case RACE_HALF_GIANT:\r
 207                 case RACE_HALF_TITAN:\r
 208                 case RACE_CYCLOPS:\r
 209                         symbol = 'P';\r
 210                         break;\r
 211                 case RACE_YEEK:\r
 212                         symbol = 'y';\r
 213                         break;\r
 214                 case RACE_KLACKON:\r
 215                         symbol = 'K';\r
 216                         break;\r
 217                 case RACE_KOBOLD:\r
 218                         symbol = 'k';\r
 219                         break;\r
 220                 case RACE_IMP:\r
 221                         if (one_in_(13)) symbol = 'U';\r
 222                         else symbol = 'u';\r
 223                         break;\r
 224                 case RACE_DRACONIAN:\r
 225                         symbol = 'd';\r
 226                         break;\r
 227                 case RACE_GOLEM:\r
 228                 case RACE_ANDROID:\r
 229                         symbol = 'g';\r
 230                         break;\r
 231                 case RACE_SKELETON:\r
 232                         if (one_in_(13)) symbol = 'L';\r
 233                         else symbol = 's';\r
 234                         break;\r
 235                 case RACE_ZOMBIE:\r
 236                         symbol = 'z';\r
 237                         break;\r
 238                 case RACE_VAMPIRE:\r
 239                         symbol = 'V';\r
 240                         break;\r
 241                 case RACE_SPECTRE:\r
 242                         symbol = 'G';\r
 243                         break;\r
 244                 case RACE_SPRITE:\r
 245                         symbol = 'I';\r
 246                         break;\r
 247                 case RACE_ENT:\r
 248                         symbol = '#';\r
 249                         break;\r
 250                 case RACE_ANGEL:\r
 251                         symbol = 'A';\r
 252                         break;\r
 253                 case RACE_DEMON:\r
 254                         symbol = 'U';\r
 255                         break;\r
 256                 default:\r
 257                         symbol = 'p';\r
 258                         break;\r
 259                 }\r
 260                 break;\r
 261         case MIMIC_DEMON:\r
 262                 if (one_in_(13)) symbol = 'U';\r
 263                 else symbol = 'u';\r
 264                 break;\r
 265         case MIMIC_DEMON_LORD:\r
 266                 symbol = 'U';\r
 267                 break;\r
 268         case MIMIC_VAMPIRE:\r
 269                 symbol = 'V';\r
 270                 break;\r
 271         }\r
 272         return summon_specific((pet ? -1 : 0), y, x, level, SUMMON_KIN, mode, symbol);\r
 273 }\r