src/spells-status.c

   1 #include "angband.h"
   2 #include "avatar.h"
   3 #include "spells-status.h"
   4 #include "projection.h"
   5 #include "spells.h"
   6
   7 /*!
   8  * @brief \83\82\83\93\83X\83^\81[\89ñ\95\9c\8f\88\97\9d
   9  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
  10  * @param dam \88Ð\97Í
  11  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
  12  */
  13 bool heal_monster(DIRECTION dir, HIT_POINT dam)
  14 {
  15         BIT_FLAGS flg = PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE;
  16         return (project_hook(GF_OLD_HEAL, dir, dam, flg));
  17 }
  18
  19 /*!
  20  * @brief \83\82\83\93\83X\83^\81[\89Á\91¬\8f\88\97\9d
  21  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
  22  * @param power \8cø\97Í
  23  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
  24  */
  25 bool speed_monster(DIRECTION dir, int power)
  26 {
  27         BIT_FLAGS flg = PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE;
  28         return (project_hook(GF_OLD_SPEED, dir, power, flg));
  29 }
  30
  31 /*!
  32  * @brief \83\82\83\93\83X\83^\81[\8c¸\91¬\8f\88\97\9d
  33  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
  34  * @param power \8cø\97Í
  35  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
  36  */
  37 bool slow_monster(DIRECTION dir, int power)
  38 {
  39         BIT_FLAGS flg = PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE;
  40         return (project_hook(GF_OLD_SLOW, dir, power, flg));
  41 }
  42
  43 /*!
  44  * @brief \83\82\83\93\83X\83^\81[\8dÃ\96°\8f\88\97\9d
  45  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
  46  * @param power \8cø\97Í
  47  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
  48  */
  49 bool sleep_monster(DIRECTION dir, int power)
  50 {
  51         BIT_FLAGS flg = PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE;
  52         return (project_hook(GF_OLD_SLEEP, dir, power, flg));
  53 }
  54
  55 /*!
  56  * @brief \83\82\83\93\83X\83^\81[\8dS\91©(STASIS)\8f\88\97\9d
  57  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
  58  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
  59  * @details \88Ð\97Í\82Í\83v\83\8c\83C\83\84\81[\83\8c\83x\83\8b*2\82É\8cÅ\92è
  60  */
  61 bool stasis_monster(DIRECTION dir)
  62 {
  63         return (fire_ball_hide(GF_STASIS, dir, p_ptr->lev * 2, 0));
  64 }
  65
  66 /*!
  67  * @brief \8e×\88«\82È\83\82\83\93\83X\83^\81[\8dS\91©(STASIS)\8f\88\97\9d
  68  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
  69  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
  70  * @details \88Ð\97Í\82Í\83v\83\8c\83C\83\84\81[\83\8c\83x\83\8b*2\82É\8cÅ\92è
  71  */
  72 bool stasis_evil(DIRECTION dir)
  73 {
  74         return (fire_ball_hide(GF_STASIS_EVIL, dir, p_ptr->lev * 2, 0));
  75 }
  76
  77 /*!
  78  * @brief \83\82\83\93\83X\83^\81[\8d¬\97\90\8f\88\97\9d
  79  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
  80  * @param plev \83v\83\8c\83C\83\84\81[\83\8c\83x\83\8b(=\8cø\97Í)
  81  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
  82  */
  83 bool confuse_monster(DIRECTION dir, PLAYER_LEVEL plev)
  84 {
  85         BIT_FLAGS flg = PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE;
  86         return (project_hook(GF_OLD_CONF, dir, plev, flg));
  87 }
  88
  89 /*!
  90  * @brief \83\82\83\93\83X\83^\81[\9eN\9eO\8f\88\97\9d
  91  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
  92  * @param plev \83v\83\8c\83C\83\84\81[\83\8c\83x\83\8b(=\8cø\97Í)
  93  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
  94  */
  95 bool stun_monster(DIRECTION dir, PLAYER_LEVEL plev)
  96 {
  97         BIT_FLAGS flg = PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE;
  98         return (project_hook(GF_STUN, dir, plev, flg));
  99 }
 100
 101 /*!
 102  * @brief \83`\83F\83\93\83W\83\82\83\93\83X\83^\81[\8f\88\97\9d
 103  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
 104  * @param power \8cø\97Í
 105  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
 106  */
 107 bool poly_monster(DIRECTION dir, int power)
 108 {
 109         BIT_FLAGS flg = PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE;
 110         bool tester = (project_hook(GF_OLD_POLY, dir, power, flg));
 111         if (tester)
 112                 chg_virtue(V_CHANCE, 1);
 113         return(tester);
 114 }
 115
 116 /*!
 117  * @brief \83N\83\8d\81[\83\93\83\82\83\93\83X\83^\81[\8f\88\97\9d
 118  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
 119  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
 120  */
 121 bool clone_monster(DIRECTION dir)
 122 {
 123         BIT_FLAGS flg = PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE;
 124         return (project_hook(GF_OLD_CLONE, dir, 0, flg));
 125 }
 126
 127 /*!
 128  * @brief \83\82\83\93\83X\83^\81[\8b°\8dQ\8f\88\97\9d
 129  * @param dir \95û\8cü(5\82È\82ç\82Î\83O\83\8d\81[\83o\83\8b\95Ï\90\94 target_col/target_row \82Ì\8dÀ\95W\82ð\96Ú\95W\82É\82·\82é)
 130  * @param plev \83v\83\8c\83C\83\84\81[\83\8c\83x\83\8b(=\8cø\97Í)
 131  * @return \8dì\97p\82ª\8eÀ\8dÛ\82É\82 \82Á\82½\8fê\8d\87TRUE\82ð\95Ô\82·
 132  */
 133 bool fear_monster(DIRECTION dir, PLAYER_LEVEL plev)
 134 {
 135         BIT_FLAGS flg = PROJECT_STOP | PROJECT_KILL | PROJECT_REFLECTABLE;
 136         return (project_hook(GF_TURN_ALL, dir, plev, flg));
 137 }
 138
 139 /*!
 140 * @brief \89Ì\82Ì\92â\8e~\82ð\8f\88\97\9d\82·\82é / Stop singing if the player is a Bard
 141 * @return \82È\82µ
 142 */
 143 void stop_singing(void)
 144 {
 145         if (p_ptr->pclass != CLASS_BARD) return;
 146
 147         /* Are there interupted song? */
 148         if (INTERUPTING_SONG_EFFECT(p_ptr))
 149         {
 150                 /* Forget interupted song */
 151                 INTERUPTING_SONG_EFFECT(p_ptr) = MUSIC_NONE;
 152                 return;
 153         }
 154
 155         /* The player is singing? */
 156         if (!SINGING_SONG_EFFECT(p_ptr)) return;
 157
 158         /* Hack -- if called from set_action(), avoid recursive loop */
 159         if (p_ptr->action == ACTION_SING) set_action(ACTION_NONE);
 160
 161         /* Message text of each song or etc. */
 162         do_spell(REALM_MUSIC, SINGING_SONG_ID(p_ptr), SPELL_STOP);
 163
 164         SINGING_SONG_EFFECT(p_ptr) = MUSIC_NONE;
 165         SINGING_SONG_ID(p_ptr) = 0;
 166         p_ptr->update |= (PU_BONUS);
 167         p_ptr->redraw |= (PR_STATUS);
 168 }
 169
 170 bool time_walk(player_type *creature_ptr)
 171 {
 172         if (world_player)
 173         {
 174                 msg_print(_("\8aù\82É\8e\9e\82Í\8e~\82Ü\82Á\82Ä\82¢\82é\81B", "Time is already stopped."));
 175                 return (FALSE);
 176         }
 177         world_player = TRUE;
 178         msg_print(_("\81u\8e\9e\82æ\81I\81v", "You yell 'Time!'"));
 179         msg_print(NULL);
 180
 181         /* Hack */
 182         p_ptr->energy_need -= 1000 + (100 + p_ptr->csp - 50)*TURNS_PER_TICK / 10;
 183         p_ptr->redraw |= (PR_MAP);
 184         p_ptr->update |= (PU_MONSTERS);
 185         p_ptr->window |= (PW_OVERHEAD | PW_DUNGEON);
 186         handle_stuff();
 187         return TRUE;
 188 }
 189
 190 /*!
 191  * @brief \83v\83\8c\83C\83\84\81[\82Ì\83q\83b\83g\83_\83C\83X\82ð\90U\82é / Role Hitpoints
 192  * @param options \83X\83y\83\8b\8b¤\92Ê\83I\83v\83V\83\87\83\93
 193  * @return \82È\82µ
 194  */
 195 void roll_hitdice(SPOP_FLAGS options)
 196 {
 197         PERCENTAGE percent;
 198
 199         /* Minimum hitpoints at highest level */
 200         HIT_POINT min_value = p_ptr->hitdie + ((PY_MAX_LEVEL + 2) * (p_ptr->hitdie + 1)) * 3 / 8;
 201
 202         /* Maximum hitpoints at highest level */
 203         HIT_POINT max_value = p_ptr->hitdie + ((PY_MAX_LEVEL + 2) * (p_ptr->hitdie + 1)) * 5 / 8;
 204
 205         int i;
 206
 207         /* Rerate */
 208         while (1)
 209         {
 210                 /* Pre-calculate level 1 hitdice */
 211                 p_ptr->player_hp[0] = (HIT_POINT)p_ptr->hitdie;
 212
 213                 for (i = 1; i < 4; i++)
 214                 {
 215                         p_ptr->player_hp[0] += randint1(p_ptr->hitdie);
 216                 }
 217
 218                 /* Roll the hitpoint values */
 219                 for (i = 1; i < PY_MAX_LEVEL; i++)
 220                 {
 221                         p_ptr->player_hp[i] = p_ptr->player_hp[i - 1] + randint1(p_ptr->hitdie);
 222                 }
 223
 224                 /* Require "valid" hitpoints at highest level */
 225                 if ((p_ptr->player_hp[PY_MAX_LEVEL - 1] >= min_value) &&
 226                         (p_ptr->player_hp[PY_MAX_LEVEL - 1] <= max_value)) break;
 227         }
 228
 229         percent = (int)(((long)p_ptr->player_hp[PY_MAX_LEVEL - 1] * 200L) /
 230                 (2 * p_ptr->hitdie + ((PY_MAX_LEVEL - 1 + 3) * (p_ptr->hitdie + 1))));
 231
 232         /* Update and redraw hitpoints */
 233         p_ptr->update |= (PU_HP);
 234         p_ptr->redraw |= (PR_HP);
 235         p_ptr->window |= (PW_PLAYER);
 236
 237         if (!(options & SPOP_NO_UPDATE)) handle_stuff();
 238
 239         if (options & SPOP_DISPLAY_MES)
 240         {
 241                 if (options & SPOP_DEBUG)
 242                 {
 243                         msg_format(_("\8c»\8dÝ\82Ì\91Ì\97Í\83\89\83\93\83N\82Í %d/100 \82Å\82·\81B", "Your life rate is %d/100 now."), percent);
 244                         p_ptr->knowledge |= KNOW_HPRATE;
 245                 }
 246                 else
 247                 {
 248                         msg_print(_("\91Ì\97Í\83\89\83\93\83N\82ª\95Ï\82í\82Á\82½\81B", "Life rate is changed."));
 249                         p_ptr->knowledge &= ~(KNOW_HPRATE);
 250                 }
 251         }
 252 }