src/spell/spells-pet.c

   1 #include "spell/spells-pet.h"
   2 #include "effect/effect-characteristics.h"
   3 #include "floor/floor.h"
   4 #include "io/write-diary.h"
   5 #include "spell/process-effect.h"
   6 #include "spell/spells-type.h"
   7
   8 /*!
   9  * @brief ペット爆破処理 /
  10  * @return なし
  11  */
  12 void discharge_minion(player_type *caster_ptr)
  13 {
  14     bool okay = TRUE;
  15     for (MONSTER_IDX i = 1; i < caster_ptr->current_floor_ptr->m_max; i++) {
  16         monster_type *m_ptr = &caster_ptr->current_floor_ptr->m_list[i];
  17         if (!m_ptr->r_idx || !is_pet(m_ptr))
  18             continue;
  19         if (m_ptr->nickname)
  20             okay = FALSE;
  21     }
  22
  23     if (!okay || caster_ptr->riding) {
  24         if (!get_check(_("本当に全ペットを爆破しますか？", "You will blast all pets. Are you sure? ")))
  25             return;
  26     }
  27
  28     for (MONSTER_IDX i = 1; i < caster_ptr->current_floor_ptr->m_max; i++) {
  29         monster_type *m_ptr = &caster_ptr->current_floor_ptr->m_list[i];
  30         if (!m_ptr->r_idx || !is_pet(m_ptr))
  31             continue;
  32
  33         monster_race *r_ptr;
  34         r_ptr = &r_info[m_ptr->r_idx];
  35         if (r_ptr->flags1 & RF1_UNIQUE) {
  36             GAME_TEXT m_name[MAX_NLEN];
  37             monster_desc(caster_ptr, m_name, m_ptr, 0x00);
  38             msg_format(_("%sは爆破されるのを嫌がり、勝手に自分の世界へと帰った。", "%^s resists being blasted and runs away."), m_name);
  39             delete_monster_idx(caster_ptr, i);
  40             continue;
  41         }
  42
  43         HIT_POINT dam = m_ptr->maxhp / 2;
  44         if (dam > 100)
  45             dam = (dam - 100) / 2 + 100;
  46         if (dam > 400)
  47             dam = (dam - 400) / 2 + 400;
  48         if (dam > 800)
  49             dam = 800;
  50         project(caster_ptr, i, 2 + (r_ptr->level / 20), m_ptr->fy, m_ptr->fx, dam, GF_PLASMA, PROJECT_STOP | PROJECT_GRID | PROJECT_ITEM | PROJECT_KILL, -1);
  51
  52         if (record_named_pet && m_ptr->nickname) {
  53             GAME_TEXT m_name[MAX_NLEN];
  54
  55             monster_desc(caster_ptr, m_name, m_ptr, MD_INDEF_VISIBLE);
  56             exe_write_diary(caster_ptr, DIARY_NAMED_PET, RECORD_NAMED_PET_BLAST, m_name);
  57         }
  58
  59         delete_monster_idx(caster_ptr, i);
  60     }
  61 }