src/realm-trump.c

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