src/realm-trump.c

   1 #include "angband.h"
   2 #include "cmd-spell.h"
   3 #include "projection.h"
   4 #include "spells-summon.h"
   5 #include "mutation.h"
   6 #include "spells-status.h"
   7
   8
   9 /*!
  10 * @brief トランプ領域魔法の各処理を行う
  11 * @param spell 魔法ID
  12 * @param mode 処理内容 (SPELL_NAME / SPELL_DESC / SPELL_INFO / SPELL_CAST)
  13 * @return SPELL_NAME / SPELL_DESC / SPELL_INFO 時には文字列ポインタを返す。SPELL_CAST時はNULL文字列を返す。
  14 */
  15 concptr do_trump_spell(SPELL_IDX spell, BIT_FLAGS mode)
  16 {
  17         bool name = (mode == SPELL_NAME) ? TRUE : FALSE;
  18         bool desc = (mode == SPELL_DESC) ? TRUE : FALSE;
  19         bool info = (mode == SPELL_INFO) ? TRUE : FALSE;
  20         bool cast = (mode == SPELL_CAST) ? TRUE : FALSE;
  21         bool fail = (mode == SPELL_FAIL) ? TRUE : FALSE;
  22
  23         DIRECTION dir;
  24         PLAYER_LEVEL plev = p_ptr->lev;
  25
  26         switch (spell)
  27         {
  28         case 0:
  29                 if (name) return _("ショート・テレポート", "Phase Door");
  30                 if (desc) return _("近距離のテレポートをする。", "Teleport short distance.");
  31
  32                 {
  33                         POSITION range = 10;
  34
  35                         if (info) return info_range(range);
  36
  37                         if (cast)
  38                         {
  39                                 teleport_player(range, 0L);
  40                         }
  41                 }
  42                 break;
  43
  44         case 1:
  45                 if (name) return _("蜘蛛のカード", "Trump Spiders");
  46                 if (desc) return _("蜘蛛を召喚する。", "Summons spiders.");
  47
  48                 {
  49                         if (cast || fail)
  50                         {
  51                                 msg_print(_("あなたは蜘蛛のカードに集中する...", "You concentrate on the trump of an spider..."));
  52                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, 0, SUMMON_SPIDER, PM_ALLOW_GROUP))
  53                                 {
  54                                         if (fail)
  55                                         {
  56                                                 msg_print(_("召喚された蜘蛛は怒っている！", "The summoned spiders get angry!"));
  57                                         }
  58                                 }
  59                         }
  60                 }
  61                 break;
  62
  63         case 2:
  64                 if (name) return _("シャッフル", "Shuffle");
  65                 if (desc) return _("カードの占いをする。", "Causes random effects.");
  66
  67                 {
  68                         if (info) return KWD_RANDOM;
  69
  70                         if (cast)
  71                         {
  72                                 cast_shuffle();
  73                         }
  74                 }
  75                 break;
  76
  77         case 3:
  78                 if (name) return _("フロア・リセット", "Reset Recall");
  79                 if (desc) return _("最深階を変更する。", "Resets the 'deepest' level for recall spell.");
  80
  81                 {
  82                         if (cast)
  83                         {
  84                                 if (!reset_recall()) return NULL;
  85                         }
  86                 }
  87                 break;
  88
  89         case 4:
  90                 if (name) return _("テレポート", "Teleport");
  91                 if (desc) return _("遠距離のテレポートをする。", "Teleport long distance.");
  92
  93                 {
  94                         POSITION range = plev * 4;
  95
  96                         if (info) return info_range(range);
  97
  98                         if (cast)
  99                         {
 100                                 teleport_player(range, 0L);
 101                         }
 102                 }
 103                 break;
 104
 105         case 5:
 106                 if (name) return _("感知のカード", "Trump Spying");
 107                 if (desc) return _("一定時間、テレパシー能力を得る。", "Gives telepathy for a while.");
 108
 109                 {
 110                         int base = 25;
 111                         DICE_SID sides = 30;
 112
 113                         if (info) return info_duration(base, sides);
 114
 115                         if (cast)
 116                         {
 117                                 set_tim_esp(randint1(sides) + base, FALSE);
 118                         }
 119                 }
 120                 break;
 121
 122         case 6:
 123                 if (name) return _("テレポート・モンスター", "Teleport Away");
 124                 if (desc) return _("モンスターをテレポートさせるビームを放つ。抵抗されると無効。", "Teleports all monsters on the line away unless resisted.");
 125
 126                 {
 127                         int power = plev;
 128
 129                         if (info) return info_power(power);
 130
 131                         if (cast)
 132                         {
 133                                 if (!get_aim_dir(&dir)) return NULL;
 134
 135                                 fire_beam(GF_AWAY_ALL, dir, power);
 136                         }
 137                 }
 138                 break;
 139
 140         case 7:
 141                 if (name) return _("動物のカード", "Trump Animals");
 142                 if (desc) return _("1体の動物を召喚する。", "Summons an animal.");
 143
 144                 {
 145                         if (cast || fail)
 146                         {
 147                                 int type = (!fail ? SUMMON_ANIMAL_RANGER : SUMMON_ANIMAL);
 148                                 msg_print(_("あなたは動物のカードに集中する...", "You concentrate on the trump of an animal..."));
 149                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, 0, type, 0L))
 150                                 {
 151                                         if (fail)
 152                                         {
 153                                                 msg_print(_("召喚された動物は怒っている！", "The summoned animal gets angry!"));
 154                                         }
 155                                 }
 156                         }
 157                 }
 158                 break;
 159
 160         case 8:
 161                 if (name) return _("移動のカード", "Trump Reach");
 162                 if (desc) return _("アイテムを自分の足元へ移動させる。", "Pulls a distant item close to you.");
 163
 164                 {
 165                         WEIGHT weight = plev * 15;
 166
 167                         if (info) return info_weight(weight);
 168
 169                         if (cast)
 170                         {
 171                                 if (!get_aim_dir(&dir)) return NULL;
 172
 173                                 fetch(dir, weight, FALSE);
 174                         }
 175                 }
 176                 break;
 177
 178         case 9:
 179                 if (name) return _("カミカゼのカード", "Trump Kamikaze");
 180                 if (desc) return _("複数の爆発するモンスターを召喚する。", "Summons monsters which explode by itself.");
 181
 182                 {
 183                         if (cast || fail)
 184                         {
 185                                 POSITION x, y;
 186                                 int type;
 187
 188                                 if (cast)
 189                                 {
 190                                         if (!target_set(TARGET_KILL)) return NULL;
 191                                         x = target_col;
 192                                         y = target_row;
 193                                 }
 194                                 else
 195                                 {
 196                                         /* Summons near player when failed */
 197                                         x = p_ptr->x;
 198                                         y = p_ptr->y;
 199                                 }
 200
 201                                 if (p_ptr->pclass == CLASS_BEASTMASTER)
 202                                         type = SUMMON_KAMIKAZE_LIVING;
 203                                 else
 204                                         type = SUMMON_KAMIKAZE;
 205
 206                                 msg_print(_("あなたはカミカゼのカードに集中する...", "You concentrate on several trumps at once..."));
 207                                 if (trump_summoning(2 + randint0(plev / 7), !fail, y, x, 0, type, 0L))
 208                                 {
 209                                         if (fail)
 210                                         {
 211                                                 msg_print(_("召喚されたモンスターは怒っている！", "The summoned creatures get angry!"));
 212                                         }
 213                                 }
 214                         }
 215                 }
 216                 break;
 217
 218         case 10:
 219                 if (name) return _("幻霊召喚", "Phantasmal Servant");
 220                 if (desc) return _("1体の幽霊を召喚する。", "Summons a ghost.");
 221
 222                 {
 223                         /* Phantasmal Servant is not summoned as enemy when failed */
 224                         if (cast)
 225                         {
 226                                 int summon_lev = plev * 2 / 3 + randint1(plev / 2);
 227
 228                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, (summon_lev * 3 / 2), SUMMON_PHANTOM, 0L))
 229                                 {
 230                                         msg_print(_("御用でございますか、御主人様？", "'Your wish, master?'"));
 231                                 }
 232                         }
 233                 }
 234                 break;
 235
 236         case 11:
 237                 if (name) return _("スピード・モンスター", "Haste Monster");
 238                 if (desc) return _("モンスター1体を加速させる。", "Hastes a monster.");
 239
 240                 {
 241                         if (cast)
 242                         {
 243                                 bool result;
 244
 245                                 /* Temporary enable target_pet option */
 246                                 bool old_target_pet = target_pet;
 247                                 target_pet = TRUE;
 248
 249                                 result = get_aim_dir(&dir);
 250
 251                                 /* Restore target_pet option */
 252                                 target_pet = old_target_pet;
 253
 254                                 if (!result) return NULL;
 255
 256                                 speed_monster(dir, plev);
 257                         }
 258                 }
 259                 break;
 260
 261         case 12:
 262                 if (name) return _("テレポート・レベル", "Teleport Level");
 263                 if (desc) return _("瞬時に上か下の階にテレポートする。", "Teleport to up or down stairs in a moment.");
 264
 265                 {
 266                         if (cast)
 267                         {
 268                                 if (!get_check(_("本当に他の階にテレポートしますか？", "Are you sure? (Teleport Level)"))) return NULL;
 269                                 teleport_level(0);
 270                         }
 271                 }
 272                 break;
 273
 274         case 13:
 275                 if (name) return _("次元の扉", "Dimension Door");
 276                 if (desc) return _("短距離内の指定した場所にテレポートする。", "Teleport to given location.");
 277
 278                 {
 279                         POSITION range = plev / 2 + 10;
 280
 281                         if (info) return info_range(range);
 282
 283                         if (cast)
 284                         {
 285                                 msg_print(_("次元の扉が開いた。目的地を選んで下さい。", "You open a dimensional gate. Choose a destination."));
 286                                 if (!dimension_door()) return NULL;
 287                         }
 288                 }
 289                 break;
 290
 291         case 14:
 292                 if (name) return _("帰還の呪文", "Word of Recall");
 293                 if (desc) return _("地上にいるときはダンジョンの最深階へ、ダンジョンにいるときは地上へと移動する。",
 294                         "Recalls player from dungeon to town, or from town to the deepest level of dungeon.");
 295
 296                 {
 297                         int base = 15;
 298                         DICE_SID sides = 20;
 299
 300                         if (info) return info_delay(base, sides);
 301
 302                         if (cast)
 303                         {
 304                                 if (!recall_player(p_ptr, randint0(21) + 15)) return NULL;
 305                         }
 306                 }
 307                 break;
 308
 309         case 15:
 310                 if (name) return _("怪物追放", "Banish");
 311                 if (desc) return _("視界内の全てのモンスターをテレポートさせる。抵抗されると無効。", "Teleports all monsters in sight away unless resisted.");
 312
 313                 {
 314                         int power = plev * 4;
 315
 316                         if (info) return info_power(power);
 317
 318                         if (cast)
 319                         {
 320                                 banish_monsters(power);
 321                         }
 322                 }
 323                 break;
 324
 325         case 16:
 326                 if (name) return _("位置交換のカード", "Swap Position");
 327                 if (desc) return _("1体のモンスターと位置を交換する。", "Swap positions of you and a monster.");
 328
 329                 {
 330                         if (cast)
 331                         {
 332                                 bool result;
 333
 334                                 /* HACK -- No range limit */
 335                                 project_length = -1;
 336
 337                                 result = get_aim_dir(&dir);
 338
 339                                 /* Restore range to default */
 340                                 project_length = 0;
 341
 342                                 if (!result) return NULL;
 343
 344                                 teleport_swap(dir);
 345                         }
 346                 }
 347                 break;
 348
 349         case 17:
 350                 if (name) return _("アンデッドのカード", "Trump Undead");
 351                 if (desc) return _("1体のアンデッドを召喚する。", "Summons an undead monster.");
 352
 353                 {
 354                         if (cast || fail)
 355                         {
 356                                 msg_print(_("あなたはアンデッドのカードに集中する...", "You concentrate on the trump of an undead creature..."));
 357                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, 0, SUMMON_UNDEAD, 0L))
 358                                 {
 359                                         if (fail)
 360                                         {
 361                                                 msg_print(_("召喚されたアンデッドは怒っている！", "The summoned undead creature gets angry!"));
 362                                         }
 363                                 }
 364                         }
 365                 }
 366                 break;
 367
 368         case 18:
 369                 if (name) return _("爬虫類のカード", "Trump Reptiles");
 370                 if (desc) return _("1体のヒドラを召喚する。", "Summons a hydra.");
 371
 372                 {
 373                         if (cast || fail)
 374                         {
 375                                 msg_print(_("あなたは爬虫類のカードに集中する...", "You concentrate on the trump of a reptile..."));
 376                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, 0, SUMMON_HYDRA, 0L))
 377                                 {
 378                                         if (fail)
 379                                         {
 380                                                 msg_print(_("召喚された爬虫類は怒っている！", "The summoned reptile gets angry!"));
 381                                         }
 382                                 }
 383                         }
 384                 }
 385                 break;
 386
 387         case 19:
 388                 if (name) return _("モンスターのカード", "Trump Monsters");
 389                 if (desc) return _("複数のモンスターを召喚する。", "Summons some monsters.");
 390
 391                 {
 392                         if (cast || fail)
 393                         {
 394                                 int type;
 395                                 msg_print(_("あなたはモンスターのカードに集中する...", "You concentrate on several trumps at once..."));
 396                                 if (p_ptr->pclass == CLASS_BEASTMASTER)
 397                                         type = SUMMON_LIVING;
 398                                 else
 399                                         type = 0;
 400
 401                                 if (trump_summoning((1 + (plev - 15) / 10), !fail, p_ptr->y, p_ptr->x, 0, type, 0L))
 402                                 {
 403                                         if (fail)
 404                                         {
 405                                                 msg_print(_("召喚されたモンスターは怒っている！", "The summoned creatures get angry!"));
 406                                         }
 407                                 }
 408
 409                         }
 410                 }
 411                 break;
 412
 413         case 20:
 414                 if (name) return _("ハウンドのカード", "Trump Hounds");
 415                 if (desc) return _("1グループのハウンドを召喚する。", "Summons a group of hounds.");
 416
 417                 {
 418                         if (cast || fail)
 419                         {
 420                                 msg_print(_("あなたはハウンドのカードに集中する...", "You concentrate on the trump of a hound..."));
 421                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, 0, SUMMON_HOUND, PM_ALLOW_GROUP))
 422                                 {
 423                                         if (fail)
 424                                         {
 425                                                 msg_print(_("召喚されたハウンドは怒っている！", "The summoned hounds get angry!"));
 426                                         }
 427                                 }
 428                         }
 429                 }
 430                 break;
 431
 432         case 21:
 433                 if (name) return _("トランプの刃", "Trump Branding");
 434                 if (desc) return _("武器にトランプの属性をつける。", "Makes current weapon a Trump weapon.");
 435
 436                 {
 437                         if (cast)
 438                         {
 439                                 brand_weapon(5);
 440                         }
 441                 }
 442                 break;
 443
 444         case 22:
 445                 if (name) return _("人間トランプ", "Living Trump");
 446                 if (desc) return _("ランダムにテレポートする突然変異か、自分の意思でテレポートする突然変異が身につく。",
 447                         "Gives mutation which makes you teleport randomly or makes you able to teleport at will.");
 448
 449                 {
 450                         if (cast)
 451                         {
 452                                 int mutation;
 453
 454                                 if (one_in_(7))
 455                                         /* Teleport control */
 456                                         mutation = 12;
 457                                 else
 458                                         /* Random teleportation (uncontrolled) */
 459                                         mutation = 77;
 460
 461                                 /* Gain the mutation */
 462                                 if (gain_random_mutation(mutation))
 463                                 {
 464                                         msg_print(_("あなたは生きているカードに変わった。", "You have turned into a Living Trump."));
 465                                 }
 466                         }
 467                 }
 468                 break;
 469
 470         case 23:
 471                 if (name) return _("サイバーデーモンのカード", "Trump Cyberdemon");
 472                 if (desc) return _("1体のサイバーデーモンを召喚する。", "Summons a cyber demon.");
 473
 474                 {
 475                         if (cast || fail)
 476                         {
 477                                 msg_print(_("あなたはサイバーデーモンのカードに集中する...", "You concentrate on the trump of a Cyberdemon..."));
 478                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, 0, SUMMON_CYBER, 0L))
 479                                 {
 480                                         if (fail)
 481                                         {
 482                                                 msg_print(_("召喚されたサイバーデーモンは怒っている！", "The summoned Cyberdemon gets angry!"));
 483                                         }
 484                                 }
 485                         }
 486                 }
 487                 break;
 488
 489         case 24:
 490                 if (name) return _("予見のカード", "Trump Divination");
 491                 if (desc) return _("近くの全てのモンスター、罠、扉、階段、財宝、そしてアイテムを感知する。",
 492                         "Detects all monsters, traps, doors, stairs, treasures and items in your vicinity.");
 493
 494                 {
 495                         POSITION rad = DETECT_RAD_DEFAULT;
 496
 497                         if (info) return info_radius(rad);
 498
 499                         if (cast)
 500                         {
 501                                 detect_all(rad);
 502                         }
 503                 }
 504                 break;
 505
 506         case 25:
 507                 if (name) return _("知識のカード", "Trump Lore");
 508                 if (desc) return _("アイテムの持つ能力を完全に知る。", "*Identifies* an item.");
 509
 510                 {
 511                         if (cast)
 512                         {
 513                                 if (!identify_fully(FALSE)) return NULL;
 514                         }
 515                 }
 516                 break;
 517
 518         case 26:
 519                 if (name) return _("回復モンスター", "Heal Monster");
 520                 if (desc) return _("モンスター1体の体力を回復させる。", "Heal a monster.");
 521
 522                 {
 523                         int heal = plev * 10 + 200;
 524
 525                         if (info) return info_heal(0, 0, heal);
 526
 527                         if (cast)
 528                         {
 529                                 bool result;
 530
 531                                 /* Temporary enable target_pet option */
 532                                 bool old_target_pet = target_pet;
 533                                 target_pet = TRUE;
 534
 535                                 result = get_aim_dir(&dir);
 536
 537                                 /* Restore target_pet option */
 538                                 target_pet = old_target_pet;
 539
 540                                 if (!result) return NULL;
 541
 542                                 heal_monster(dir, heal);
 543                         }
 544                 }
 545                 break;
 546
 547         case 27:
 548                 if (name) return _("ドラゴンのカード", "Trump Dragon");
 549                 if (desc) return _("1体のドラゴンを召喚する。", "Summons a dragon.");
 550
 551                 {
 552                         if (cast || fail)
 553                         {
 554                                 msg_print(_("あなたはドラゴンのカードに集中する...", "You concentrate on the trump of a dragon..."));
 555                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, 0, SUMMON_DRAGON, 0L))
 556                                 {
 557                                         if (fail)
 558                                         {
 559                                                 msg_print(_("召喚されたドラゴンは怒っている！", "The summoned dragon gets angry!"));
 560                                         }
 561                                 }
 562                         }
 563                 }
 564                 break;
 565
 566         case 28:
 567                 if (name) return _("隕石のカード", "Trump Meteor");
 568                 if (desc) return _("自分の周辺に隕石を落とす。", "Makes meteor balls fall down to nearby random locations.");
 569
 570                 {
 571                         HIT_POINT dam = plev * 2;
 572                         POSITION rad = 2;
 573
 574                         if (info) return info_multi_damage(dam);
 575
 576                         if (cast)
 577                         {
 578                                 cast_meteor(dam, rad);
 579                         }
 580                 }
 581                 break;
 582
 583         case 29:
 584                 if (name) return _("デーモンのカード", "Trump Demon");
 585                 if (desc) return _("1体の悪魔を召喚する。", "Summons a demon.");
 586
 587                 {
 588                         if (cast || fail)
 589                         {
 590                                 msg_print(_("あなたはデーモンのカードに集中する...", "You concentrate on the trump of a demon..."));
 591                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, 0, SUMMON_DEMON, 0L))
 592                                 {
 593                                         if (fail)
 594                                         {
 595                                                 msg_print(_("召喚されたデーモンは怒っている！", "The summoned demon gets angry!"));
 596                                         }
 597                                 }
 598                         }
 599                 }
 600                 break;
 601
 602         case 30:
 603                 if (name) return _("地獄のカード", "Trump Greater Undead");
 604                 if (desc) return _("1体の上級アンデッドを召喚する。", "Summons a greater undead.");
 605
 606                 {
 607                         if (cast || fail)
 608                         {
 609                                 msg_print(_("あなたは強力なアンデッドのカードに集中する...", "You concentrate on the trump of a greater undead being..."));
 610                                 /* May allow unique depend on level and dice roll */
 611                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, 0, SUMMON_HI_UNDEAD, PM_ALLOW_UNIQUE))
 612                                 {
 613                                         if (fail)
 614                                         {
 615                                                 msg_print(_("召喚された上級アンデッドは怒っている！", "The summoned greater undead creature gets angry!"));
 616                                         }
 617                                 }
 618                         }
 619                 }
 620                 break;
 621
 622         case 31:
 623                 if (name) return _("古代ドラゴンのカード", "Trump Ancient Dragon");
 624                 if (desc) return _("1体の古代ドラゴンを召喚する。", "Summons an ancient dragon.");
 625
 626                 {
 627                         if (cast)
 628                         {
 629                                 int type;
 630
 631                                 if (p_ptr->pclass == CLASS_BEASTMASTER)
 632                                         type = SUMMON_HI_DRAGON_LIVING;
 633                                 else
 634                                         type = SUMMON_HI_DRAGON;
 635
 636                                 msg_print(_("あなたは古代ドラゴンのカードに集中する...", "You concentrate on the trump of an ancient dragon..."));
 637                                 /* May allow unique depend on level and dice roll */
 638                                 if (trump_summoning(1, !fail, p_ptr->y, p_ptr->x, 0, type, PM_ALLOW_UNIQUE))
 639                                 {
 640                                         if (fail)
 641                                         {
 642                                                 msg_print(_("召喚された古代ドラゴンは怒っている！", "The summoned ancient dragon gets angry!"));
 643                                         }
 644                                 }
 645                         }
 646                 }
 647                 break;
 648         }
 649
 650         return "";
 651 }