OSDN Git Service

(root) / hengband / hengband.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Initial revision
[hengband/hengband.git] / src / mutation.c
1 /* File: mutation.c */
2
3 /* Purpose: Mutation effects (and racial powers) */
4
5 /*
6  * Copyright (c) 1989 James E. Wilson, Robert A. Koeneke
7  *
8  * This software may be copied and distributed for educational, research, and
9  * not for profit purposes provided that this copyright and statement are
10  * included in all such copies.
11  */
12
13 #include "angband.h"
14
15
16 bool gain_random_mutation(int choose_mut)
17 {
18         int     attempts_left = 20;
19         cptr    muta_desc = "";
20         bool    muta_chosen = FALSE;
21         u32b    muta_which = 0;
22         u32b    *muta_class = NULL;
23
24         if (choose_mut) attempts_left = 1;
25
26         while (attempts_left--)
27         {
28                 switch (choose_mut ? choose_mut : (p_ptr->pclass == CLASS_BERSERKER ? 74+randint(119) : randint(193)))
29                 {
30                 case 1: case 2: case 3: case 4:
31                         muta_class = &(p_ptr->muta1);
32                         muta_which = MUT1_SPIT_ACID;
33 #ifdef JP
34 muta_desc = "»À¤òÅǤ¯Ç½ÎϤòÆÀ¤¿¡£";
35 #else
36                         muta_desc = "You gain the ability to spit acid.";
37 #endif
38
39                         break;
40                 case 5: case 6: case 7:
41                         muta_class = &(p_ptr->muta1);
42                         muta_which = MUT1_BR_FIRE;
43 #ifdef JP
44 muta_desc = "²Ð¤òÅǤ¯Ç½ÎϤòÆÀ¤¿¡£";
45 #else
46                         muta_desc = "You gain the ability to breathe fire.";
47 #endif
48
49                         break;
50                 case 8: case 9:
51                         muta_class = &(p_ptr->muta1);
52                         muta_which = MUT1_HYPN_GAZE;
53 #ifdef JP
54 muta_desc = "ºÅ̲´ã¤ÎǽÎϤòÆÀ¤¿¡£";
55 #else
56                         muta_desc = "Your eyes look mesmerizing...";
57 #endif
58
59                         break;
60                 case 10: case 11:
61                         muta_class = &(p_ptr->muta1);
62                         muta_which = MUT1_TELEKINES;
63 #ifdef JP
64 muta_desc = "ʪÂΤòÇ°Æ°ÎϤÇÆ°¤«¤¹Ç½ÎϤòÆÀ¤¿¡£";
65 #else
66                         muta_desc = "You gain the ability to move objects telekinetically.";
67 #endif
68
69                         break;
70                 case 12: case 13: case 14:
71                         muta_class = &(p_ptr->muta1);
72                         muta_which = MUT1_VTELEPORT;
73 #ifdef JP
74 muta_desc = "¼«Ê¬¤Î°Õ»×¤Ç¥Æ¥ì¥Ý¡¼¥È¤¹¤ëǽÎϤòÆÀ¤¿¡£";
75 #else
76                         muta_desc = "You gain the power of teleportation at will.";
77 #endif
78
79                         break;
80                 case 15: case 16:
81                         muta_class = &(p_ptr->muta1);
82                         muta_which = MUT1_MIND_BLST;
83 #ifdef JP
84 muta_desc = "Àº¿À¹¶·â¤ÎǽÎϤòÆÀ¤¿¡£";
85 #else
86                         muta_desc = "You gain the power of Mind Blast.";
87 #endif
88
89                         break;
90                 case 17: case 18:
91                         muta_class = &(p_ptr->muta1);
92                         muta_which = MUT1_RADIATION;
93 #ifdef JP
94 muta_desc = "¤¢¤Ê¤¿¤Ï¶¯¤¤Êü¼ÍÀþ¤òȯÀ¸¤·»Ï¤á¤¿¡£";
95 #else
96                         muta_desc = "You start emitting hard radiation.";
97 #endif
98
99                         break;
100                 case 19: case 20:
101                         muta_class = &(p_ptr->muta1);
102                         muta_which = MUT1_VAMPIRISM;
103 #ifdef JP
104 muta_desc = "À¸Ì¿ÎϤòµÛ¼ý¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
105 #else
106                         muta_desc = "You become vampiric.";
107 #endif
108
109                         break;
110                 case 21: case 22: case 23:
111                         muta_class = &(p_ptr->muta1);
112                         muta_which = MUT1_SMELL_MET;
113 #ifdef JP
114 muta_desc = "¶â°¤ÎÆ÷¤¤¤òÓ̤®Ê¬¤±¤é¤ì¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
115 #else
116                         muta_desc = "You smell a metallic odor.";
117 #endif
118
119                         break;
120                 case 24: case 25: case 26: case 27:
121                         muta_class = &(p_ptr->muta1);
122                         muta_which = MUT1_SMELL_MON;
123 #ifdef JP
124 muta_desc = "¥â¥ó¥¹¥¿¡¼¤Î½­¤¤¤òÓ̤®Ê¬¤±¤é¤ì¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
125 #else
126                         muta_desc = "You smell filthy monsters.";
127 #endif
128
129                         break;
130                 case 28: case 29: case 30:
131                         muta_class = &(p_ptr->muta1);
132                         muta_which = MUT1_BLINK;
133 #ifdef JP
134 muta_desc = "¶áµ÷Î¥¥Æ¥ì¥Ý¡¼¥È¤ÎǽÎϤòÆÀ¤¿¡£";
135 #else
136                         muta_desc = "You gain the power of minor teleportation.";
137 #endif
138
139                         break;
140                 case 31: case 32:
141                         muta_class = &(p_ptr->muta1);
142                         muta_which = MUT1_EAT_ROCK;
143 #ifdef JP
144 muta_desc = "Êɤ¬ÈþÌ£¤·¤½¤¦¤Ë¸«¤¨¤ë¡£";
145 #else
146                         muta_desc = "The walls look delicious.";
147 #endif
148
149                         break;
150                 case 33: case 34:
151                         muta_class = &(p_ptr->muta1);
152                         muta_which = MUT1_SWAP_POS;
153 #ifdef JP
154 muta_desc = "¾¿Í¤Î·¤¤Ç°ì¥Þ¥¤¥ëÊ⤯¤è¤¦¤Êµ¤Ê¬¤¬¤¹¤ë¡£";
155 #else
156                         muta_desc = "You feel like walking a mile in someone else's shoes.";
157 #endif
158
159                         break;
160                 case 35: case 36: case 37:
161                         muta_class = &(p_ptr->muta1);
162                         muta_which = MUT1_SHRIEK;
163 #ifdef JP
164 muta_desc = "¤¢¤Ê¤¿¤ÎÀ¼¤ÏÁêÅö¶¯¤¯¤Ê¤Ã¤¿¡£";
165 #else
166                         muta_desc = "Your vocal cords get much tougher.";
167 #endif
168
169                         break;
170                 case 38: case 39: case 40:
171                         muta_class = &(p_ptr->muta1);
172                         muta_which = MUT1_ILLUMINE;
173 #ifdef JP
174 muta_desc = "¤¢¤Ê¤¿¤Ï¸÷¤êµ±¤¤¤ÆÉô²°¤òÌÀ¤ë¤¯¤¹¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
175 #else
176                         muta_desc = "You can light up rooms with your presence.";
177 #endif
178
179                         break;
180                 case 41: case 42:
181                         muta_class = &(p_ptr->muta1);
182                         muta_which = MUT1_DET_CURSE;
183 #ifdef JP
184 muta_desc = "¼Ù°­¤ÊËâË¡¤ò´¶ÃΤǤ­¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
185 #else
186                         muta_desc = "You can feel evil magics.";
187 #endif
188
189                         break;
190                 case 43: case 44: case 45:
191                         muta_class = &(p_ptr->muta1);
192                         muta_which = MUT1_BERSERK;
193 #ifdef JP
194 muta_desc = "À©¸æ¤Ç¤­¤ë·ã¾ð¤ò´¶¤¸¤ë¡£";
195 #else
196                         muta_desc = "You feel a controlled rage.";
197 #endif
198
199                         break;
200                 case 46:
201                         muta_class = &(p_ptr->muta1);
202                         muta_which = MUT1_POLYMORPH;
203 #ifdef JP
204 muta_desc = "ÂΤ¬ÊÑ°Û¤·¤ä¤¹¤¯¤Ê¤Ã¤¿¡£";
205 #else
206                         muta_desc = "Your body seems mutable.";
207 #endif
208
209                         break;
210                 case 47: case 48:
211                         muta_class = &(p_ptr->muta1);
212                         muta_which = MUT1_MIDAS_TCH;
213 #ifdef JP
214 muta_desc = "¡Ö¥ß¥À¥¹²¦¤Î¼ê¡×¤ÎǽÎϤòÆÀ¤¿¡£";/*¥È¥¥¡¼¥à¥ì¥¤¥À¡¼¥¹¤Ë¤¢¤ê¤Þ¤·¤¿¤Í¡£*/
215 #else
216                         muta_desc = "You gain the Midas touch.";
217 #endif
218
219                         break;
220                 case 49:
221                         muta_class = &(p_ptr->muta1);
222                         muta_which = MUT1_GROW_MOLD;
223 #ifdef JP
224 muta_desc = "ÆÍÁ³¥«¥Ó¤Ë¿Æ¤·¤ß¤ò³Ð¤¨¤¿¡£";
225 #else
226                         muta_desc = "You feel a sudden affinity for mold.";
227 #endif
228
229                         break;
230                 case 50: case 51: case 52:
231                         muta_class = &(p_ptr->muta1);
232                         muta_which = MUT1_RESIST;
233 #ifdef JP
234 muta_desc = "¤¢¤Ê¤¿¤Ï¼«Ê¬¼«¿È¤ò¼é¤ì¤ëµ¤¤¬¤¹¤ë¡£";
235 #else
236                         muta_desc = "You feel like you can protect yourself.";
237 #endif
238
239                         break;
240                 case 53: case 54: case 55:
241                         muta_class = &(p_ptr->muta1);
242                         muta_which = MUT1_EARTHQUAKE;
243 #ifdef JP
244 muta_desc = "¥À¥ó¥¸¥ç¥ó¤òÇ˲õ¤¹¤ëǽÎϤòÆÀ¤¿¡£";
245 #else
246                         muta_desc = "You gain the ability to wreck the dungeon.";
247 #endif
248
249                         break;
250                 case 56:
251                         muta_class = &(p_ptr->muta1);
252                         muta_which = MUT1_EAT_MAGIC;
253 #ifdef JP
254 muta_desc = "ËâË¡¤Î¥¢¥¤¥Æ¥à¤¬ÈþÌ£¤½¤¦¤Ë¸«¤¨¤ë¡£";
255 #else
256                         muta_desc = "Your magic items look delicious.";
257 #endif
258
259                         break;
260                 case 57: case 58:
261                         muta_class = &(p_ptr->muta1);
262                         muta_which = MUT1_WEIGH_MAG;
263 #ifdef JP
264 muta_desc = "¤¢¤Ê¤¿¤Ï¼þ°Ï¤Ë¤¢¤ëËâË¡¤ò¤è¤êÎɤ¯Íý²ò¤Ç¤­¤ëµ¤¤¬¤¹¤ë¡£";
265 #else
266                         muta_desc = "You feel you can better understand the magic around you.";
267 #endif
268
269                         break;
270                 case 59:
271                         muta_class = &(p_ptr->muta1);
272                         muta_which = MUT1_STERILITY;
273 #ifdef JP
274 muta_desc = "¼þ¤ê¤ÎÁ´¤Æ¤Î¼Ô¤ËƬÄˤòµ¯¤³¤¹¤³¤È¤¬¤Ç¤­¤ë¡£";
275 #else
276                         muta_desc = "You can give everything around you a headache.";
277 #endif
278
279                         break;
280                 case 60: case 61:
281                         muta_class = &(p_ptr->muta1);
282                         muta_which = MUT1_PANIC_HIT;
283 #ifdef JP
284 muta_desc = "ÆÍÁ³¡¢Å¥ËÀ¤Îµ¤Ê¬¤¬Ê¬¤«¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
285 #else
286                         muta_desc = "You suddenly understand how thieves feel.";
287 #endif
288
289                         break;
290                 case 62: case 63: case 64:
291                         muta_class = &(p_ptr->muta1);
292                         muta_which = MUT1_DAZZLE;
293 #ifdef JP
294 muta_desc = "âÁ¤¤Á®¸÷¤òȯ¤¹¤ëǽÎϤòÆÀ¤¿¡£";
295 #else
296                         muta_desc = "You gain the ability to emit dazzling lights.";
297 #endif
298
299                         break;
300                 case 65: case 66: case 67:
301                         muta_class = &(p_ptr->muta1);
302                         muta_which = MUT1_LASER_EYE;
303 #ifdef JP
304 muta_desc = "¤¢¤Ê¤¿¤ÎÌܤϰì½Ö¾Æ¤±ÉÕ¤¤¤¿¡£";
305 #else
306                         muta_desc = "Your eyes burn for a moment.";
307 #endif
308
309                         break;
310                 case 68: case 69:
311                         muta_class = &(p_ptr->muta1);
312                         muta_which = MUT1_RECALL;
313 #ifdef JP
314 muta_desc = "¾¯¤·¤À¤±¥Û¡¼¥à¥·¥Ã¥¯¤Ë¤Ê¤Ã¤¿¤¬¡¢¤¹¤°Ä¾¤Ã¤¿¡£";
315 #else
316                         muta_desc = "You feel briefly homesick, but it passes.";
317 #endif
318
319                         break;
320                 case 70:
321                         muta_class = &(p_ptr->muta1);
322                         muta_which = MUT1_BANISH;
323 #ifdef JP
324 muta_desc = "¿ÀÀ»¤ÊÅܤê¤ÎÎϤËËþ¤¿¤µ¤ì¤¿¡£";
325 #else
326                         muta_desc = "You feel a holy wrath fill you.";
327 #endif
328
329                         break;
330                 case 71: case 72:
331                         muta_class = &(p_ptr->muta1);
332                         muta_which = MUT1_COLD_TOUCH;
333 #ifdef JP
334 muta_desc = "¤¢¤Ê¤¿¤Îξ¼ê¤Ï¤È¤Æ¤âÎ䤿¤¯¤Ê¤Ã¤¿¡£";
335 #else
336                         muta_desc = "Your hands get very cold.";
337 #endif
338
339                         break;
340                 case 73: case 74:
341                         muta_class = &(p_ptr->muta1);
342                         muta_which = MUT1_LAUNCHER;
343 #ifdef JP
344 muta_desc = "¤¢¤Ê¤¿¤Îʪ¤òÅꤲ¤ë¼ê¤Ï¤«¤Ê¤ê¶¯¤¯¤Ê¤Ã¤¿µ¤¤¬¤¹¤ë¡£";
345 #else
346                         muta_desc = "Your throwing arm feels much stronger.";
347 #endif
348
349                         break;
350                 case 75:
351                         muta_class = &(p_ptr->muta2);
352                         muta_which = MUT2_BERS_RAGE;
353 #ifdef JP
354 muta_desc = "¤¢¤Ê¤¿¤Ï¶¸Ë½²½¤Îȯºî¤òµ¯¤³¤¹¤è¤¦¤Ë¤Ê¤Ã¤¿¡ª";
355 #else
356                         muta_desc = "You become subject to fits of berserk rage!";
357 #endif
358
359                         break;
360                 case 76:
361                         muta_class = &(p_ptr->muta2);
362                         muta_which = MUT2_COWARDICE;
363 #ifdef JP
364 muta_desc = "¿®¤¸¤é¤ì¤Ê¤¤¤¯¤é¤¤²²É¤ˤʤä¿¡ª";
365 #else
366                         muta_desc = "You become an incredible coward!";
367 #endif
368
369                         break;
370                 case 77:
371                         muta_class = &(p_ptr->muta2);
372                         muta_which = MUT2_RTELEPORT;
373 #ifdef JP
374 muta_desc = "¤¢¤Ê¤¿¤Î°ÌÃÖ¤ÏÈó¾ï¤ËÉÔ³ÎÄê¤Ë¤Ê¤Ã¤¿¡£";
375 #else
376                         muta_desc = "Your position seems very uncertain...";
377 #endif
378
379                         break;
380                 case 78:
381                         muta_class = &(p_ptr->muta2);
382                         muta_which = MUT2_ALCOHOL;
383 #ifdef JP
384 muta_desc = "¤¢¤Ê¤¿¤Ï¥¢¥ë¥³¡¼¥ë¤òʬÈ礹¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
385 #else
386                         muta_desc = "Your body starts producing alcohol!";
387 #endif
388
389                         break;
390                 case 79:
391                         muta_class = &(p_ptr->muta2);
392                         muta_which = MUT2_HALLU;
393 #ifdef JP
394 muta_desc = "¤¢¤Ê¤¿¤Ï¸¸³Ð¤ò°ú¤­µ¯¤³¤¹Àº¿ÀºøÍð¤Ë¿¯¤µ¤ì¤¿¡£";
395 #else
396                         muta_desc = "You are afflicted by a hallucinatory insanity!";
397 #endif
398
399                         break;
400                 case 80:
401                         muta_class = &(p_ptr->muta2);
402                         muta_which = MUT2_FLATULENT;
403 #ifdef JP
404 muta_desc = "¤¢¤Ê¤¿¤ÏÀ©¸æÉÔǽ¤Ê¶¯Îõ¤ÊÕû¤ò¤³¤¯¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
405 #else
406                         muta_desc = "You become subject to uncontrollable flatulence.";
407 #endif
408
409                         break;
410                 case 81: case 82:
411                         muta_class = &(p_ptr->muta2);
412                         muta_which = MUT2_SCOR_TAIL;
413 #ifdef JP
414 muta_desc = "¥µ¥½¥ê¤Î¿¬Èø¤¬À¸¤¨¤Æ¤­¤¿¡ª";
415 #else
416                         muta_desc = "You grow a scorpion tail!";
417 #endif
418
419                         break;
420                 case 83: case 84:
421                         muta_class = &(p_ptr->muta2);
422                         muta_which = MUT2_HORNS;
423 #ifdef JP
424 muta_desc = "³Û¤Ë³Ñ¤¬À¸¤¨¤¿¡ª";
425 #else
426                         muta_desc = "Horns pop forth into your forehead!";
427 #endif
428
429                         break;
430                 case 85: case 86:
431                         muta_class = &(p_ptr->muta2);
432                         muta_which = MUT2_BEAK;
433 #ifdef JP
434 muta_desc = "¸ý¤¬±Ô¤¯¶¯¤¤¥¯¥Á¥Ð¥·¤ËÊѲ½¤·¤¿¡ª";
435 #else
436                         muta_desc = "Your mouth turns into a sharp, powerful beak!";
437 #endif
438
439                         break;
440                 case 87: case 88:
441                         muta_class = &(p_ptr->muta2);
442                         muta_which = MUT2_ATT_DEMON;
443 #ifdef JP
444 muta_desc = "°­Ëâ¤ò°ú¤­ÉÕ¤±¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
445 #else
446                         muta_desc = "You start attracting demons.";
447 #endif
448
449                         break;
450                 case 89:
451                         muta_class = &(p_ptr->muta2);
452                         muta_which = MUT2_PROD_MANA;
453 #ifdef JP
454 muta_desc = "¤¢¤Ê¤¿¤ÏÀ©¸æÉÔǽ¤ÊËâË¡¤Î¥¨¥Í¥ë¥®¡¼¤òȯÀ¸¤¹¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
455 #else
456                         muta_desc = "You start producing magical energy uncontrollably.";
457 #endif
458
459                         break;
460                 case 90: case 91:
461                         muta_class = &(p_ptr->muta2);
462                         muta_which = MUT2_SPEED_FLUX;
463 #ifdef JP
464 muta_desc = "¤¢¤Ê¤¿¤Ïí¯Ýµ¼Á¤Ë¤Ê¤Ã¤¿¡£";
465 #else
466                         muta_desc = "You become manic-depressive.";
467 #endif
468
469                         break;
470                 case 92: case 93:
471                         muta_class = &(p_ptr->muta2);
472                         muta_which = MUT2_BANISH_ALL;
473 #ifdef JP
474 muta_desc = "¶²¤í¤·¤¤ÎϤ¬¤¢¤Ê¤¿¤ÎÇظå¤ËÀø¤ó¤Ç¤¤¤ëµ¤¤¬¤¹¤ë¡£";
475 #else
476                         muta_desc = "You feel a terrifying power lurking behind you.";
477 #endif
478
479                         break;
480                 case 94:
481                         muta_class = &(p_ptr->muta2);
482                         muta_which = MUT2_EAT_LIGHT;
483 #ifdef JP
484 muta_desc = "¤¢¤Ê¤¿¤Ï¥¦¥ó¥´¥ê¥¢¥ó¥È¤Ë´ñ̯¤Ê¿Æ¤·¤ß¤ò³Ð¤¨¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
485 #else
486                         muta_desc = "You feel a strange kinship with Ungoliant.";
487 #endif
488
489                         break;
490                 case 95: case 96:
491                         muta_class = &(p_ptr->muta2);
492                         muta_which = MUT2_TRUNK;
493 #ifdef JP
494 muta_desc = "¤¢¤Ê¤¿¤ÎÉ¡¤Ï¿­¤Ó¤Æ¾Ý¤ÎÉ¡¤Î¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
495 #else
496                         muta_desc = "Your nose grows into an elephant-like trunk.";
497 #endif
498
499                         break;
500                 case 97:
501                         muta_class = &(p_ptr->muta2);
502                         muta_which = MUT2_ATT_ANIMAL;
503 #ifdef JP
504 muta_desc = "ưʪ¤ò°ú¤­ÉÕ¤±¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
505 #else
506                         muta_desc = "You start attracting animals.";
507 #endif
508
509                         break;
510                 case 98:
511                         muta_class = &(p_ptr->muta2);
512                         muta_which = MUT2_TENTACLES;
513 #ifdef JP
514 muta_desc = "¼Ù°­¤Ê¿¨¼ê¤¬ÂΤÎËÀ¸¤¨¤Æ¤­¤¿¡£";
515 #else
516                         muta_desc = "Evil-looking tentacles sprout from your sides.";
517 #endif
518
519                         break;
520                 case 99:
521                         muta_class = &(p_ptr->muta2);
522                         muta_which = MUT2_RAW_CHAOS;
523 #ifdef JP
524 muta_desc = "¼þ°Ï¤Î¶õ´Ö¤¬ÉÔ°ÂÄê¤Ë¤Ê¤Ã¤¿µ¤¤¬¤¹¤ë¡£";
525 #else
526                         muta_desc = "You feel the universe is less stable around you.";
527 #endif
528
529                         break;
530                 case 100: case 101: case 102:
531                         muta_class = &(p_ptr->muta2);
532                         muta_which = MUT2_NORMALITY;
533 #ifdef JP
534 muta_desc = "¤¢¤Ê¤¿¤Ï´ñ̯¤Ê¤Û¤ÉÉáÄ̤ˤʤ俵¤¤¬¤¹¤ë¡£";
535 #else
536                         muta_desc = "You feel strangely normal.";
537 #endif
538
539                         break;
540                 case 103:
541                         muta_class = &(p_ptr->muta2);
542                         muta_which = MUT2_WRAITH;
543 #ifdef JP
544 muta_desc = "¤¢¤Ê¤¿¤ÏÍ©Â⽤·¤¿¤ê¼ÂÂ⽤·¤¿¤ê¤¹¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
545 #else
546                         muta_desc = "You start to fade in and out of the physical world.";
547 #endif
548
549                         break;
550                 case 104:
551                         muta_class = &(p_ptr->muta2);
552                         muta_which = MUT2_POLY_WOUND;
553 #ifdef JP
554 muta_desc = "¤¢¤Ê¤¿¤Ï¥«¥ª¥¹¤ÎÎϤ¬¸Å¤¤½ý¤ËÆþ¤ê¹þ¤ó¤Ç¤¯¤ë¤Î¤ò´¶¤¸¤¿¡£";
555 #else
556                         muta_desc = "You feel forces of chaos entering your old scars.";
557 #endif
558
559                         break;
560                 case 105:
561                         muta_class = &(p_ptr->muta2);
562                         muta_which = MUT2_WASTING;
563 #ifdef JP
564 muta_desc = "¤¢¤Ê¤¿¤ÏÆÍÁ³¤ª¤¾¤Þ¤·¤¤¿ê¼åɤˤ«¤«¤Ã¤¿¡£";
565 #else
566                         muta_desc = "You suddenly contract a horrible wasting disease.";
567 #endif
568
569                         break;
570                 case 106:
571                         muta_class = &(p_ptr->muta2);
572                         muta_which = MUT2_ATT_DRAGON;
573 #ifdef JP
574 muta_desc = "¤¢¤Ê¤¿¤Ï¥É¥é¥´¥ó¤ò°ú¤­¤Ä¤±¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
575 #else
576                         muta_desc = "You start attracting dragons.";
577 #endif
578
579                         break;
580                 case 107: case 108:
581                         muta_class = &(p_ptr->muta2);
582                         muta_which = MUT2_WEIRD_MIND;
583 #ifdef JP
584 muta_desc = "¤¢¤Ê¤¿¤Î»×¹Í¤ÏÆÍÁ³¤ª¤«¤·¤ÊÊý¸þ¤Ë¸þ¤­»Ï¤á¤¿¡£";
585 #else
586                         muta_desc = "Your thoughts suddenly take off in strange directions.";
587 #endif
588
589                         break;
590                 case 109:
591                         muta_class = &(p_ptr->muta2);
592                         muta_which = MUT2_NAUSEA;
593 #ifdef JP
594 muta_desc = "°ßÂÞ¤¬¥Ô¥¯¥Ô¥¯¤·¤Ï¤¸¤á¤¿¡£";
595 #else
596                         muta_desc = "Your stomach starts to roil nauseously.";
597 #endif
598
599                         break;
600                 case 110: case 111:
601                         /* Chaos warriors already have a chaos deity */
602                         if (p_ptr->pclass != CLASS_CHAOS_WARRIOR)
603                         {
604                                 muta_class = &(p_ptr->muta2);
605                                 muta_which = MUT2_CHAOS_GIFT;
606 #ifdef JP
607 muta_desc = "¤¢¤Ê¤¿¤Ï¥«¥ª¥¹¤Î¼é¸î°­Ëâ¤ÎÃí°Õ¤ò¼æ¤¯¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
608 #else
609                                 muta_desc = "You attract the notice of a chaos deity!";
610 #endif
611
612                         }
613                         break;
614                 case 112:
615                         muta_class = &(p_ptr->muta2);
616                         muta_which = MUT2_WALK_SHAD;
617 #ifdef JP
618 muta_desc = "¤¢¤Ê¤¿¤Ï¸½¼Â¤¬»æ¤Î¤è¤¦¤ËÇö¤¤¤È´¶¤¸¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
619 #else
620                         muta_desc = "You feel like reality is as thin as paper.";
621 #endif
622
623                         break;
624                 case 113: case 114:
625                         muta_class = &(p_ptr->muta2);
626                         muta_which = MUT2_WARNING;
627 #ifdef JP
628 muta_desc = "¤¢¤Ê¤¿¤ÏÆÍÁ³¥Ñ¥é¥Î¥¤¥¢¤Ë¤Ê¤Ã¤¿µ¤¤¬¤¹¤ë¡£";
629 #else
630                         muta_desc = "You suddenly feel paranoid.";
631 #endif
632
633                         break;
634                 case 115:
635                         muta_class = &(p_ptr->muta2);
636                         muta_which = MUT2_INVULN;
637 #ifdef JP
638 muta_desc = "¤¢¤Ê¤¿¤Ï½ËÊ¡¤µ¤ì¡¢ÌµÅ¨¾õÂ֤ˤʤëȯºî¤òµ¯¤³¤¹¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
639 #else
640                         muta_desc = "You are blessed with fits of invulnerability.";
641 #endif
642
643                         break;
644                 case 116: case 117:
645                         muta_class = &(p_ptr->muta2);
646                         muta_which = MUT2_SP_TO_HP;
647 #ifdef JP
648 muta_desc = "ËâË¡¤Î¼£Ìþ¤Îȯºî¤òµ¯¤³¤¹¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
649 #else
650                         muta_desc = "You are subject to fits of magical healing.";
651 #endif
652
653                         break;
654                 case 118:
655                         muta_class = &(p_ptr->muta2);
656                         muta_which = MUT2_HP_TO_SP;
657 #ifdef JP
658 muta_desc = "Äˤߤòȼ¤¦Àº¿ÀÌÀÎƲ½¤Îȯºî¤òµ¯¤³¤¹¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
659 #else
660                         muta_desc = "You are subject to fits of painful clarity.";
661 #endif
662
663                         break;
664                 case 119:
665                         muta_class = &(p_ptr->muta2);
666                         muta_which = MUT2_DISARM;
667 #ifdef JP
668 muta_desc = "¤¢¤Ê¤¿¤ÎµÓ¤ÏŤµ¤¬»ÍÇܤˤʤä¿¡£";
669 #else
670                         muta_desc = "Your feet grow to four times their former size.";
671 #endif
672
673                         break;
674                 case 120: case 121: case 122:
675                         muta_class = &(p_ptr->muta3);
676                         muta_which = MUT3_HYPER_STR;
677 #ifdef JP
678 muta_desc = "Ķ¿ÍŪ¤Ë¶¯¤¯¤Ê¤Ã¤¿¡ª";
679 #else
680                         muta_desc = "You turn into a superhuman he-man!";
681 #endif
682
683                         break;
684                 case 123: case 124: case 125:
685                         muta_class = &(p_ptr->muta3);
686                         muta_which = MUT3_PUNY;
687 #ifdef JP
688 muta_desc = "¶ÚÆù¤¬¼å¤Ã¤Æ¤·¤Þ¤Ã¤¿...";
689 #else
690                         muta_desc = "Your muscles wither away...";
691 #endif
692
693                         break;
694                 case 126: case 127: case 128:
695                         muta_class = &(p_ptr->muta3);
696                         muta_which = MUT3_HYPER_INT;
697 #ifdef JP
698 muta_desc = "¤¢¤Ê¤¿¤ÎǾ¤ÏÀ¸ÂÎ¥³¥ó¥Ô¥å¡¼¥¿¤Ë¿Ê²½¤·¤¿¡ª";
699 #else
700                         muta_desc = "Your brain evolves into a living computer!";
701 #endif
702
703                         break;
704                 case 129: case 130: case 131:
705                         muta_class = &(p_ptr->muta3);
706                         muta_which = MUT3_MORONIC;
707 #ifdef JP
708 muta_desc = "Ǿ¤¬°à½Ì¤·¤Æ¤·¤Þ¤Ã¤¿...";
709 #else
710                         muta_desc = "Your brain withers away...";
711 #endif
712
713                         break;
714                 case 132: case 133:
715                         muta_class = &(p_ptr->muta3);
716                         muta_which = MUT3_RESILIENT;
717 #ifdef JP
718 muta_desc = "ʳ°¤ì¤Æ¥¿¥Õ¤Ë¤Ê¤Ã¤¿¡£";
719 #else
720                         muta_desc = "You become extraordinarily resilient.";
721 #endif
722
723                         break;
724                 case 134: case 135:
725                         muta_class = &(p_ptr->muta3);
726                         muta_which = MUT3_XTRA_FAT;
727 #ifdef JP
728 muta_desc = "¤¢¤Ê¤¿¤Ïµ¤»ý¤Á°­¤¤¤¯¤é¤¤ÂÀ¤Ã¤¿¡ª";
729 #else
730                         muta_desc = "You become sickeningly fat!";
731 #endif
732
733                         break;
734                 case 136: case 137:
735                         muta_class = &(p_ptr->muta3);
736                         muta_which = MUT3_ALBINO;
737 #ifdef JP
738 muta_desc = "¥¢¥ë¥Ó¥Î¤Ë¤Ê¤Ã¤¿¡ª¼å¤¯¤Ê¤Ã¤¿µ¤¤¬¤¹¤ë...";
739 #else
740                         muta_desc = "You turn into an albino! You feel frail...";
741 #endif
742
743                         break;
744                 case 138: case 139: case 140:
745                         muta_class = &(p_ptr->muta3);
746                         muta_which = MUT3_FLESH_ROT;
747 #ifdef JP
748 muta_desc = "¤¢¤Ê¤¿¤ÎÆùÂΤÏÉåÇÔ¤¹¤ëɵ¤¤Ë¿¯¤µ¤ì¤¿¡ª";
749 #else
750                         muta_desc = "Your flesh is afflicted by a rotting disease!";
751 #endif
752
753                         break;
754                 case 141: case 142:
755                         muta_class = &(p_ptr->muta3);
756                         muta_which = MUT3_SILLY_VOI;
757 #ifdef JP
758 muta_desc = "À¼¤¬´ÖÈ´¤±¤Ê¥­¡¼¥­¡¼À¼¤Ë¤Ê¤Ã¤¿¡ª";
759 #else
760                         muta_desc = "Your voice turns into a ridiculous squeak!";
761 #endif
762
763                         break;
764                 case 143: case 144:
765                         muta_class = &(p_ptr->muta3);
766                         muta_which = MUT3_BLANK_FAC;
767 #ifdef JP
768 muta_desc = "¤Î¤Ã¤Ú¤é¤Ü¤¦¤Ë¤Ê¤Ã¤¿¡ª";
769 #else
770                         muta_desc = "Your face becomes completely featureless!";
771 #endif
772
773                         break;
774                 case 145:
775                         muta_class = &(p_ptr->muta3);
776                         muta_which = MUT3_ILL_NORM;
777 #ifdef JP
778 muta_desc = "¿´¤Î°Â¤é¤°¸¸±Æ¤ò±Ç¤·½Ð¤¹¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
779 #else
780                         muta_desc = "You start projecting a reassuring image.";
781 #endif
782
783                         break;
784                 case 146: case 147: case 148:
785                         muta_class = &(p_ptr->muta3);
786                         muta_which = MUT3_XTRA_EYES;
787 #ifdef JP
788 muta_desc = "¿·¤¿¤ËÆó¤Ä¤ÎÌܤ¬½ÐÍ褿¡ª";
789 #else
790                         muta_desc = "You grow an extra pair of eyes!";
791 #endif
792
793                         break;
794                 case 149: case 150:
795                         muta_class = &(p_ptr->muta3);
796                         muta_which = MUT3_MAGIC_RES;
797 #ifdef JP
798 muta_desc = "ËâË¡¤Ø¤ÎÂÑÀ­¤¬¤Ä¤¤¤¿¡£";
799 #else
800                         muta_desc = "You become resistant to magic.";
801 #endif
802
803                         break;
804                 case 151: case 152: case 153:
805                         muta_class = &(p_ptr->muta3);
806                         muta_which = MUT3_XTRA_NOIS;
807 #ifdef JP
808 muta_desc = "¤¢¤Ê¤¿¤Ï´ñ̯¤Ê²»¤òΩ¤Æ»Ï¤á¤¿¡ª";
809 #else
810                         muta_desc = "You start making strange noise!";
811 #endif
812
813                         break;
814                 case 154: case 155: case 156:
815                         muta_class = &(p_ptr->muta3);
816                         muta_which = MUT3_INFRAVIS;
817 #ifdef JP
818 muta_desc = "ÀÖ³°Àþ»ëÎϤ¬Áý¤·¤¿¡£";
819 #else
820                         muta_desc = "Your infravision is improved.";
821 #endif
822
823                         break;
824                 case 157: case 158:
825                         muta_class = &(p_ptr->muta3);
826                         muta_which = MUT3_XTRA_LEGS;
827 #ifdef JP
828 muta_desc = "¿·¤¿¤ËÆóËܤέ¤¬À¸¤¨¤Æ¤­¤¿¡ª";
829 #else
830                         muta_desc = "You grow an extra pair of legs!";
831 #endif
832
833                         break;
834                 case 159: case 160:
835                         muta_class = &(p_ptr->muta3);
836                         muta_which = MUT3_SHORT_LEG;
837 #ifdef JP
838 muta_desc = "­¤¬Ã»¤¤Æ͵¯¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿¡ª";
839 #else
840                         muta_desc = "Your legs turn into short stubs!";
841 #endif
842
843                         break;
844                 case 161: case 162:
845                         muta_class = &(p_ptr->muta3);
846                         muta_which = MUT3_ELEC_TOUC;
847 #ifdef JP
848 muta_desc = "·ì´É¤òÅÅή¤¬Î®¤ì»Ï¤á¤¿¡ª";
849 #else
850                         muta_desc = "Electricity starts running through you!";
851 #endif
852
853                         break;
854                 case 163: case 164:
855                         muta_class = &(p_ptr->muta3);
856                         muta_which = MUT3_FIRE_BODY;
857 #ifdef JP
858 muta_desc = "¤¢¤Ê¤¿¤ÎÂΤϱê¤Ë¤Ä¤Ä¤Þ¤ì¤Æ¤¤¤ë¡£";
859 #else
860                         muta_desc = "Your body is enveloped in flames!";
861 #endif
862
863                         break;
864                 case 165: case 166: case 167:
865                         muta_class = &(p_ptr->muta3);
866                         muta_which = MUT3_WART_SKIN;
867 #ifdef JP
868 muta_desc = "µ¤»ý¤Á°­¤¤¥¤¥Ü¥¤¥Ü¤¬ÂÎÃæ¤Ë¤Ç¤­¤¿¡ª";
869 #else
870                         muta_desc = "Disgusting warts appear everywhere on you!";
871 #endif
872
873                         break;
874                 case 168: case 169: case 170:
875                         muta_class = &(p_ptr->muta3);
876                         muta_which = MUT3_SCALES;
877 #ifdef JP
878 muta_desc = "È©¤¬¹õ¤¤ÎÚ¤ËÊѤï¤Ã¤¿¡ª";
879 #else
880                         muta_desc = "Your skin turns into black scales!";
881 #endif
882
883                         break;
884                 case 171: case 172:
885                         muta_class = &(p_ptr->muta3);
886                         muta_which = MUT3_IRON_SKIN;
887 #ifdef JP
888 muta_desc = "¤¢¤Ê¤¿¤ÎÈ©¤ÏÅ´¤Ë¤Ê¤Ã¤¿¡ª";
889 #else
890                         muta_desc = "Your skin turns to steel!";
891 #endif
892
893                         break;
894                 case 173: case 174:
895                         muta_class = &(p_ptr->muta3);
896                         muta_which = MUT3_WINGS;
897 #ifdef JP
898 muta_desc = "ÇØÃæ¤Ë±©¤¬À¸¤¨¤¿¡£";
899 #else
900                         muta_desc = "You grow a pair of wings.";
901 #endif
902
903                         break;
904                 case 175: case 176: case 177:
905                         muta_class = &(p_ptr->muta3);
906                         muta_which = MUT3_FEARLESS;
907 #ifdef JP
908 muta_desc = "´°Á´¤ËÉݤìÃΤ餺¤Ë¤Ê¤Ã¤¿¡£";
909 #else
910                         muta_desc = "You become completely fearless.";
911 #endif
912
913                         break;
914                 case 178: case 179:
915                         muta_class = &(p_ptr->muta3);
916                         muta_which = MUT3_REGEN;
917 #ifdef JP
918 muta_desc = "µÞ®¤Ë²óÉü¤·»Ï¤á¤¿¡£";
919 #else
920                         muta_desc = "You start regenerating.";
921 #endif
922
923                         break;
924                 case 180: case 181:
925                         muta_class = &(p_ptr->muta3);
926                         muta_which = MUT3_ESP;
927 #ifdef JP
928 muta_desc = "¥Æ¥ì¥Ñ¥·¡¼¤ÎǽÎϤòÆÀ¤¿¡ª";
929 #else
930                         muta_desc = "You develop a telepathic ability!";
931 #endif
932
933                         break;
934                 case 182: case 183: case 184:
935                         muta_class = &(p_ptr->muta3);
936                         muta_which = MUT3_LIMBER;
937 #ifdef JP
938 muta_desc = "¶ÚÆù¤¬¤·¤Ê¤ä¤«¤Ë¤Ê¤Ã¤¿¡£";
939 #else
940                         muta_desc = "Your muscles become limber.";
941 #endif
942
943                         break;
944                 case 185: case 186: case 187:
945                         muta_class = &(p_ptr->muta3);
946                         muta_which = MUT3_ARTHRITIS;
947 #ifdef JP
948 muta_desc = "´ØÀ᤬ÆÍÁ³Äˤ߽Ф·¤¿¡£";
949 #else
950                         muta_desc = "Your joints suddenly hurt.";
951 #endif
952
953                         break;
954                 case 188:
955                         if (p_ptr->pseikaku == SEIKAKU_LUCKY) break;
956                         muta_class = &(p_ptr->muta3);
957                         muta_which = MUT3_BAD_LUCK;
958 #ifdef JP
959 muta_desc = "°­°Õ¤ËËþ¤Á¤¿¹õ¤¤¥ª¡¼¥é¤¬¤¢¤Ê¤¿¤ò¤È¤ê¤Þ¤¤¤¿...";
960 #else
961                         muta_desc = "There is a malignant black aura surrounding you...";
962 #endif
963
964                         break;
965                 case 189:
966                         muta_class = &(p_ptr->muta3);
967                         muta_which = MUT3_VULN_ELEM;
968 #ifdef JP
969 muta_desc = "̯¤Ë̵ËÉÈ÷¤Ë¤Ê¤Ã¤¿µ¤¤¬¤¹¤ë¡£";
970 #else
971                         muta_desc = "You feel strangely exposed.";
972 #endif
973
974                         break;
975                 case 190: case 191: case 192:
976                         muta_class = &(p_ptr->muta3);
977                         muta_which = MUT3_MOTION;
978 #ifdef JP
979 muta_desc = "ÂΤÎÆ°ºî¤¬¤è¤êÀµ³Î¤Ë¤Ê¤Ã¤¿¡£";
980 #else
981                         muta_desc = "You move with new assurance.";
982 #endif
983
984                         break;
985                 case 193:
986                         muta_class = &(p_ptr->muta3);
987                         muta_which = MUT3_GOOD_LUCK;
988 #ifdef JP
989 muta_desc = "»üÈῼ¤¤Çò¤¤¥ª¡¼¥é¤¬¤¢¤Ê¤¿¤ò¤È¤ê¤Þ¤¤¤¿...";
990 #else
991                         muta_desc = "There is a benevolent white aura surrounding you...";
992 #endif
993
994                         break;
995                 default:
996                         muta_class = NULL;
997                         muta_which = 0;
998                 }
999
1000                 if (muta_class && muta_which)
1001                 {
1002                         if (!(*muta_class & muta_which))
1003                         {
1004                                 muta_chosen = TRUE;
1005                         }
1006                 }
1007                 if (muta_chosen == TRUE) break;
1008         }
1009
1010         if (!muta_chosen)
1011         {
1012 #ifdef JP
1013 msg_print("ÉáÄ̤ˤʤ俵¤¤¬¤¹¤ë¡£");
1014 #else
1015                 msg_print("You feel normal.");
1016 #endif
1017
1018                 return FALSE;
1019         }
1020         else
1021         {
1022                 chg_virtue(V_CHANCE, 1);
1023
1024                 if (p_ptr->prace == RACE_VAMPIRE &&
1025                   !(p_ptr->muta1 & MUT1_HYPN_GAZE) &&
1026                    (randint(10) < 7))
1027                 {
1028                         muta_class = &(p_ptr->muta1);
1029                         muta_which = MUT1_HYPN_GAZE;
1030 #ifdef JP
1031 muta_desc = "´ã¤¬¸¸ÏÇŪ¤Ë¤Ê¤Ã¤¿...";
1032 #else
1033                         muta_desc = "Your eyes look mesmerizing...";
1034 #endif
1035
1036                 }
1037
1038                 else if (p_ptr->prace == RACE_IMP &&
1039                         !(p_ptr->muta2 & MUT2_HORNS) &&
1040                         (randint(10) < 7))
1041                 {
1042                         muta_class = &(p_ptr->muta2);
1043                         muta_which = MUT2_HORNS;
1044 #ifdef JP
1045 muta_desc = "³Ñ¤¬³Û¤«¤éÀ¸¤¨¤Æ¤­¤¿¡ª";
1046 #else
1047                         muta_desc = "Horns pop forth into your forehead!";
1048 #endif
1049
1050                 }
1051
1052                 else if (p_ptr->prace == RACE_YEEK &&
1053                         !(p_ptr->muta1 & MUT1_SHRIEK) &&
1054                         (randint(10) < 7))
1055                 {
1056                         muta_class = &(p_ptr->muta1);
1057                         muta_which = MUT1_SHRIEK;
1058 #ifdef JP
1059 muta_desc = "À¼¼Á¤¬¤«¤Ê¤ê¶¯¤¯¤Ê¤Ã¤¿¡£";
1060 #else
1061                         muta_desc = "Your vocal cords get much tougher.";
1062 #endif
1063
1064                 }
1065
1066                 else if (p_ptr->prace == RACE_BEASTMAN &&
1067                         !(p_ptr->muta1 & MUT1_POLYMORPH) &&
1068                         (randint(10) < 2))
1069                 {
1070                         muta_class = &(p_ptr->muta1);
1071                         muta_which = MUT1_POLYMORPH;
1072 #ifdef JP
1073 muta_desc = "¤¢¤Ê¤¿¤ÎÆùÂΤÏÊѲ½¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡¢";
1074 #else
1075                         muta_desc = "Your body seems mutable.";
1076 #endif
1077
1078                 }
1079
1080                 else if (p_ptr->prace == RACE_MIND_FLAYER &&
1081                         !(p_ptr->muta2 & MUT2_TENTACLES) &&
1082                         (randint(10) < 7))
1083                 {
1084                         muta_class = &(p_ptr->muta2);
1085                         muta_which = MUT2_TENTACLES;
1086 #ifdef JP
1087 muta_desc = "¼Ù°­¤Ê¿¨¼ê¤¬¸ý¤Î¼þ¤ê¤ËÀ¸¤¨¤¿¡£";
1088 #else
1089                         muta_desc = "Evil-looking tentacles sprout from your mouth.";
1090 #endif
1091
1092                 }
1093
1094 #ifdef JP
1095 msg_print("ÆÍÁ³ÊÑ°Û¤·¤¿¡ª");
1096 #else
1097                 msg_print("You mutate!");
1098 #endif
1099
1100                 msg_print(muta_desc);
1101                 *muta_class |= muta_which;
1102
1103                 if (muta_class == &(p_ptr->muta3))
1104                 {
1105                         if (muta_which == MUT3_PUNY)
1106                         {
1107                                 if (p_ptr->muta3 & MUT3_HYPER_STR)
1108                                 {
1109 #ifdef JP
1110 msg_print("¤¢¤Ê¤¿¤Ï¤â¤¦Ä¶¿ÍŪ¤Ë¶¯¤¯¤Ï¤Ê¤¤¡ª");
1111 #else
1112                                         msg_print("You no longer feel super-strong!");
1113 #endif
1114
1115                                         p_ptr->muta3 &= ~(MUT3_HYPER_STR);
1116                                 }
1117                         }
1118                         else if (muta_which == MUT3_HYPER_STR)
1119                         {
1120                                 if (p_ptr->muta3 & MUT3_PUNY)
1121                                 {
1122 #ifdef JP
1123 msg_print("¤¢¤Ê¤¿¤Ï¤â¤¦µõ¼å¤Ç¤Ï¤Ê¤¤¡ª");
1124 #else
1125                                         msg_print("You no longer feel puny!");
1126 #endif
1127
1128                                         p_ptr->muta3 &= ~(MUT3_PUNY);
1129                                 }
1130                         }
1131                         else if (muta_which == MUT3_MORONIC)
1132                         {
1133                                 if (p_ptr->muta3 & MUT3_HYPER_INT)
1134                                 {
1135 #ifdef JP
1136 msg_print("¤¢¤Ê¤¿¤ÎǾ¤Ï¤â¤¦À¸ÂÎ¥³¥ó¥Ô¥å¡¼¥¿¤Ç¤Ï¤Ê¤¤¡£");
1137 #else
1138                                         msg_print("Your brain is no longer a living computer.");
1139 #endif
1140
1141                                         p_ptr->muta3 &= ~(MUT3_HYPER_INT);
1142                                 }
1143                         }
1144                         else if (muta_which == MUT3_HYPER_INT)
1145                         {
1146                                 if (p_ptr->muta3 & MUT3_MORONIC)
1147                                 {
1148 #ifdef JP
1149 msg_print("¤¢¤Ê¤¿¤Ï¤â¤¦Àº¿ÀÇö¼å¤Ç¤Ï¤Ê¤¤¡£");
1150 #else
1151                                         msg_print("You are no longer moronic.");
1152 #endif
1153
1154                                         p_ptr->muta3 &= ~(MUT3_MORONIC);
1155                                 }
1156                         }
1157                         else if (muta_which == MUT3_IRON_SKIN)
1158                         {
1159                                 if (p_ptr->muta3 & MUT3_SCALES)
1160                                 {
1161 #ifdef JP
1162 msg_print("ÎÚ¤¬¤Ê¤¯¤Ê¤Ã¤¿¡£");
1163 #else
1164                                         msg_print("You lose your scales.");
1165 #endif
1166
1167                                         p_ptr->muta3 &= ~(MUT3_SCALES);
1168                                 }
1169                                 if (p_ptr->muta3 & MUT3_FLESH_ROT)
1170                                 {
1171 #ifdef JP
1172 msg_print("ÆùÂΤ¬ÉåÍ𤷤ʤ¯¤Ê¤Ã¤¿¡£");
1173 #else
1174                                         msg_print("Your flesh rots no longer.");
1175 #endif
1176
1177                                         p_ptr->muta3 &= ~(MUT3_FLESH_ROT);
1178                                 }
1179                                 if (p_ptr->muta3 & MUT3_WART_SKIN)
1180                                 {
1181 #ifdef JP
1182 msg_print("È©¤Î¥¤¥Ü¥¤¥Ü¤¬¤Ê¤¯¤Ê¤Ã¤¿¡£");
1183 #else
1184                                         msg_print("You lose your warts.");
1185 #endif
1186
1187                                         p_ptr->muta3 &= ~(MUT3_WART_SKIN);
1188                                 }
1189                         }
1190                         else if (muta_which == MUT3_WART_SKIN || muta_which == MUT3_SCALES
1191                                 || muta_which == MUT3_FLESH_ROT)
1192                         {
1193                                 if (p_ptr->muta3 & MUT3_IRON_SKIN)
1194                                 {
1195 #ifdef JP
1196 msg_print("¤¢¤Ê¤¿¤ÎÈ©¤Ï¤â¤¦Å´¤Ç¤Ï¤Ê¤¤¡£");
1197 #else
1198                                         msg_print("Your skin is no longer made of steel.");
1199 #endif
1200
1201                                         p_ptr->muta3 &= ~(MUT3_IRON_SKIN);
1202                                 }
1203                         }
1204                         else if (muta_which == MUT3_FEARLESS)
1205                         {
1206                                 if (p_ptr->muta2 & MUT2_COWARDICE)
1207                                 {
1208 #ifdef JP
1209 msg_print("²²É¤Ǥʤ¯¤Ê¤Ã¤¿¡£");
1210 #else
1211                                         msg_print("You are no longer cowardly.");
1212 #endif
1213
1214                                         p_ptr->muta2 &= ~(MUT2_COWARDICE);
1215                                 }
1216                         }
1217                         else if (muta_which == MUT3_FLESH_ROT)
1218                         {
1219                                 if (p_ptr->muta3 & MUT3_REGEN)
1220                                 {
1221 #ifdef JP
1222 msg_print("µÞ®¤Ë²óÉü¤·¤Ê¤¯¤Ê¤Ã¤¿¡£");
1223 #else
1224                                         msg_print("You stop regenerating.");
1225 #endif
1226
1227                                         p_ptr->muta3 &= ~(MUT3_REGEN);
1228                                 }
1229                         }
1230                         else if (muta_which == MUT3_REGEN)
1231                         {
1232                                 if (p_ptr->muta3 & MUT3_FLESH_ROT)
1233                                 {
1234 #ifdef JP
1235 msg_print("ÆùÂΤ¬ÉåÍ𤷤ʤ¯¤Ê¤Ã¤¿¡£");
1236 #else
1237                                         msg_print("Your flesh stops rotting.");
1238 #endif
1239
1240                                         p_ptr->muta3 &= ~(MUT3_FLESH_ROT);
1241                                 }
1242                         }
1243                         else if (muta_which == MUT3_LIMBER)
1244                         {
1245                                 if (p_ptr->muta3 & MUT3_ARTHRITIS)
1246                                 {
1247 #ifdef JP
1248 msg_print("´ØÀ᤬Äˤ¯¤Ê¤¯¤Ê¤Ã¤¿¡£");
1249 #else
1250                                         msg_print("Your joints stop hurting.");
1251 #endif
1252
1253                                         p_ptr->muta3 &= ~(MUT3_ARTHRITIS);
1254                                 }
1255                         }
1256                         else if (muta_which == MUT3_ARTHRITIS)
1257                         {
1258                                 if (p_ptr->muta3 & MUT3_LIMBER)
1259                                 {
1260 #ifdef JP
1261 msg_print("¤¢¤Ê¤¿¤Ï¤·¤Ê¤ä¤«¤Ç¤Ê¤¯¤Ê¤Ã¤¿¡£");
1262 #else
1263                                         msg_print("You no longer feel limber.");
1264 #endif
1265
1266                                         p_ptr->muta3 &= ~(MUT3_LIMBER);
1267                                 }
1268                         }
1269                 }
1270                 else if (muta_class == &(p_ptr->muta2))
1271                 {
1272                         if (muta_which == MUT2_COWARDICE)
1273                         {
1274                                 if (p_ptr->muta3 & MUT3_FEARLESS)
1275                                 {
1276 #ifdef JP
1277 msg_print("¶²¤ìÃΤ餺¤Ç¤Ê¤¯¤Ê¤Ã¤¿¡£");
1278 #else
1279                                         msg_print("You no longer feel fearless.");
1280 #endif
1281
1282                                         p_ptr->muta3 &= ~(MUT3_FEARLESS);
1283                                 }
1284                         }
1285                         if (muta_which == MUT2_BEAK)
1286                         {
1287                                 if (p_ptr->muta2 & MUT2_TRUNK)
1288                                 {
1289 #ifdef JP
1290 msg_print("¤¢¤Ê¤¿¤ÎÉ¡¤Ï¤â¤¦¾Ý¤ÎÉ¡¤Î¤è¤¦¤Ç¤Ï¤Ê¤¯¤Ê¤Ã¤¿¡£");
1291 #else
1292                                         msg_print("Your nose is no longer elephantine.");
1293 #endif
1294
1295                                         p_ptr->muta2 &= ~(MUT2_TRUNK);
1296                                 }
1297                         }
1298                         if (muta_which == MUT2_TRUNK)
1299                         {
1300                                 if (p_ptr->muta2 & MUT2_BEAK)
1301                                 {
1302 #ifdef JP
1303 msg_print("¹Å¤¤¥¯¥Á¥Ð¥·¤¬¤Ê¤¯¤Ê¤Ã¤¿¡£");
1304 #else
1305                                         msg_print("You no longer have a hard beak.");
1306 #endif
1307
1308                                         p_ptr->muta2 &= ~(MUT2_BEAK);
1309                                 }
1310                         }
1311                 }
1312
1313                 mutant_regenerate_mod = calc_mutant_regenerate_mod();
1314                 p_ptr->update |= PU_BONUS;
1315                 handle_stuff();
1316                 return TRUE;
1317         }
1318 }
1319
1320
1321 bool lose_mutation(int choose_mut)
1322 {
1323         int attempts_left = 20;
1324         cptr muta_desc = "";
1325         bool muta_chosen = FALSE;
1326         u32b muta_which = 0;
1327         u32b *muta_class = NULL;
1328
1329         if (choose_mut) attempts_left = 1;
1330
1331         while (attempts_left--)
1332         {
1333                 switch (choose_mut ? choose_mut : randint(193))
1334                 {
1335                 case 1: case 2: case 3: case 4:
1336                         muta_class = &(p_ptr->muta1);
1337                         muta_which = MUT1_SPIT_ACID;
1338 #ifdef JP
1339 muta_desc = "»À¤ò¿á¤­¤«¤±¤ëǽÎϤò¼º¤Ã¤¿¡£";
1340 #else
1341                         muta_desc = "You lose the ability to spit acid.";
1342 #endif
1343
1344                         break;
1345                 case 5: case 6: case 7:
1346                         muta_class = &(p_ptr->muta1);
1347                         muta_which = MUT1_BR_FIRE;
1348 #ifdef JP
1349 muta_desc = "±ê¤Î¥Ö¥ì¥¹¤òÅǤ¯Ç½ÎϤò¼º¤Ã¤¿¡£";
1350 #else
1351                         muta_desc = "You lose the ability to breathe fire.";
1352 #endif
1353
1354                         break;
1355                 case 8: case 9:
1356                         muta_class = &(p_ptr->muta1);
1357                         muta_which = MUT1_HYPN_GAZE;
1358 #ifdef JP
1359 muta_desc = "¤¢¤Ê¤¿¤ÎÌܤϤĤޤé¤Ê¤¤Ìܤˤʤä¿¡£";
1360 #else
1361                         muta_desc = "Your eyes look uninteresting.";
1362 #endif
1363
1364                         break;
1365                 case 10: case 11:
1366                         muta_class = &(p_ptr->muta1);
1367                         muta_which = MUT1_TELEKINES;
1368 #ifdef JP
1369 muta_desc = "Ç°Æ°ÎϤÇʪ¤òÆ°¤«¤¹Ç½ÎϤò¼º¤Ã¤¿¡£";
1370 #else
1371                         muta_desc = "You lose the ability to move objects telekinetically.";
1372 #endif
1373
1374                         break;
1375                 case 12: case 13: case 14:
1376                         muta_class = &(p_ptr->muta1);
1377                         muta_which = MUT1_VTELEPORT;
1378 #ifdef JP
1379 muta_desc = "¼«Ê¬¤Î°Õ»×¤Ç¥Æ¥ì¥Ý¡¼¥È¤¹¤ëǽÎϤò¼º¤Ã¤¿¡£";
1380 #else
1381                         muta_desc = "You lose the power of teleportation at will.";
1382 #endif
1383
1384                         break;
1385                 case 15: case 16:
1386                         muta_class = &(p_ptr->muta1);
1387                         muta_which = MUT1_MIND_BLST;
1388 #ifdef JP
1389 muta_desc = "Àº¿À¹¶·â¤ÎǽÎϤò¼º¤Ã¤¿¡£";
1390 #else
1391                         muta_desc = "You lose the power of Mind Blast.";
1392 #endif
1393
1394                         break;
1395                 case 17: case 18:
1396                         muta_class = &(p_ptr->muta1);
1397                         muta_which = MUT1_RADIATION;
1398 #ifdef JP
1399 muta_desc = "¤¢¤Ê¤¿¤ÏÊü¼Íǽ¤òȯÀ¸¤·¤Ê¤¯¤Ê¤Ã¤¿¡£";
1400 #else
1401                         muta_desc = "You stop emitting hard radiation.";
1402 #endif
1403
1404                         break;
1405                 case 19: case 20:
1406                         muta_class = &(p_ptr->muta1);
1407                         muta_which = MUT1_VAMPIRISM;
1408 #ifdef JP
1409 muta_desc = "µÛ·ì¤ÎǽÎϤò¼º¤Ã¤¿¡£";
1410 #else
1411                         muta_desc = "You are no longer vampiric.";
1412 #endif
1413
1414                         break;
1415                 case 21: case 22: case 23:
1416                         muta_class = &(p_ptr->muta1);
1417                         muta_which = MUT1_SMELL_MET;
1418 #ifdef JP
1419 muta_desc = "¶â°¤Î½­¤¤¤òÓ̤²¤Ê¤¯¤Ê¤Ã¤¿¡£";
1420 #else
1421                         muta_desc = "You no longer smell a metallic odor.";
1422 #endif
1423
1424                         break;
1425                 case 24: case 25: case 26: case 27:
1426                         muta_class = &(p_ptr->muta1);
1427                         muta_which = MUT1_SMELL_MON;
1428 #ifdef JP
1429 muta_desc = "ÉÔ·é¤Ê¥â¥ó¥¹¥¿¡¼¤Î½­¤¤¤òÓ̤²¤Ê¤¯¤Ê¤Ã¤¿¡£";
1430 #else
1431                         muta_desc = "You no longer smell filthy monsters.";
1432 #endif
1433
1434                         break;
1435                 case 28: case 29: case 30:
1436                         muta_class = &(p_ptr->muta1);
1437                         muta_which = MUT1_BLINK;
1438 #ifdef JP
1439 muta_desc = "¶áµ÷Î¥¥Æ¥ì¥Ý¡¼¥È¤ÎǽÎϤò¼º¤Ã¤¿¡£";
1440 #else
1441                         muta_desc = "You lose the power of minor teleportation.";
1442 #endif
1443
1444                         break;
1445                 case 31: case 32:
1446                         muta_class = &(p_ptr->muta1);
1447                         muta_which = MUT1_EAT_ROCK;
1448 #ifdef JP
1449 muta_desc = "ÊɤÏÈþÌ£¤·¤½¤¦¤Ë¸«¤¨¤Ê¤¯¤Ê¤Ã¤¿¡£";
1450 #else
1451                         muta_desc = "The walls look unappetizing.";
1452 #endif
1453
1454                         break;
1455                 case 33: case 34:
1456                         muta_class = &(p_ptr->muta1);
1457                         muta_which = MUT1_SWAP_POS;
1458 #ifdef JP
1459 muta_desc = "¤¢¤Ê¤¿¤Ï¼«Ê¬¤Î·¤¤Ëα¤Þ¤ë´¶¤¸¤¬¤¹¤ë¡£";
1460 #else
1461                         muta_desc = "You feel like staying in your own shoes.";
1462 #endif
1463
1464                         break;
1465                 case 35: case 36: case 37:
1466                         muta_class = &(p_ptr->muta1);
1467                         muta_which = MUT1_SHRIEK;
1468 #ifdef JP
1469 muta_desc = "¤¢¤Ê¤¿¤ÎÀ¼¼Á¤Ï¼å¤¯¤Ê¤Ã¤¿¡£";
1470 #else
1471                         muta_desc = "Your vocal cords get much weaker.";
1472 #endif
1473
1474                         break;
1475                 case 38: case 39: case 40:
1476                         muta_class = &(p_ptr->muta1);
1477                         muta_which = MUT1_ILLUMINE;
1478 #ifdef JP
1479 muta_desc = "Éô²°¤òÌÀ¤ë¤¯¾È¤é¤¹¤³¤È¤¬½ÐÍè¤Ê¤¯¤Ê¤Ã¤¿¡£";
1480 #else
1481                         muta_desc = "You can no longer light up rooms with your presence.";
1482 #endif
1483
1484                         break;
1485                 case 41: case 42:
1486                         muta_class = &(p_ptr->muta1);
1487                         muta_which = MUT1_DET_CURSE;
1488 #ifdef JP
1489 muta_desc = "¼Ù°­¤ÊËâË¡¤ò´¶¤¸¤é¤ì¤Ê¤¯¤Ê¤Ã¤¿¡£";
1490 #else
1491                         muta_desc = "You can no longer feel evil magics.";
1492 #endif
1493
1494                         break;
1495                 case 43: case 44: case 45:
1496                         muta_class = &(p_ptr->muta1);
1497                         muta_which = MUT1_BERSERK;
1498 #ifdef JP
1499 muta_desc = "À©¸æ¤Ç¤­¤ë·ã¾ð¤ò´¶¤¸¤Ê¤¯¤Ê¤Ã¤¿¡£";
1500 #else
1501                         muta_desc = "You no longer feel a controlled rage.";
1502 #endif
1503
1504                         break;
1505                 case 46:
1506                         muta_class = &(p_ptr->muta1);
1507                         muta_which = MUT1_POLYMORPH;
1508 #ifdef JP
1509 muta_desc = "¤¢¤Ê¤¿¤ÎÂΤϰÂÄꤷ¤¿¤è¤¦¤Ë¸«¤¨¤ë¡£";
1510 #else
1511                         muta_desc = "Your body seems stable.";
1512 #endif
1513
1514                         break;
1515                 case 47: case 48:
1516                         muta_class = &(p_ptr->muta1);
1517                         muta_which = MUT1_MIDAS_TCH;
1518 #ifdef JP
1519 muta_desc = "¥ß¥À¥¹¤Î¼ê¤ÎǽÎϤò¼º¤Ã¤¿¡£";
1520 #else
1521                         muta_desc = "You lose the Midas touch.";
1522 #endif
1523
1524                         break;
1525                 case 49:
1526                         muta_class = &(p_ptr->muta1);
1527                         muta_which = MUT1_GROW_MOLD;
1528 #ifdef JP
1529 muta_desc = "ÆÍÁ³¥«¥Ó¤¬·ù¤¤¤Ë¤Ê¤Ã¤¿¡£";
1530 #else
1531                         muta_desc = "You feel a sudden dislike for mold.";
1532 #endif
1533
1534                         break;
1535                 case 50: case 51: case 52:
1536                         muta_class = &(p_ptr->muta1);
1537                         muta_which = MUT1_RESIST;
1538 #ifdef JP
1539 muta_desc = "½ý¤Ä¤­°×¤¯¤Ê¤Ã¤¿µ¤¤¬¤¹¤ë¡£";
1540 #else
1541                         muta_desc = "You feel like you might be vulnerable.";
1542 #endif
1543
1544                         break;
1545                 case 53: case 54: case 55:
1546                         muta_class = &(p_ptr->muta1);
1547                         muta_which = MUT1_EARTHQUAKE;
1548 #ifdef JP
1549 muta_desc = "¥À¥ó¥¸¥ç¥ó¤ò²õ¤¹Ç½ÎϤò¼º¤Ã¤¿¡£";
1550 #else
1551                         muta_desc = "You lose the ability to wreck the dungeon.";
1552 #endif
1553
1554                         break;
1555                 case 56:
1556                         muta_class = &(p_ptr->muta1);
1557                         muta_which = MUT1_EAT_MAGIC;
1558 #ifdef JP
1559 muta_desc = "ËâË¡¤Î¥¢¥¤¥Æ¥à¤Ï¤â¤¦ÈþÌ£¤·¤½¤¦¤Ë¸«¤¨¤Ê¤¯¤Ê¤Ã¤¿¡£";
1560 #else
1561                         muta_desc = "Your magic items no longer look delicious.";
1562 #endif
1563
1564                         break;
1565                 case 57: case 58:
1566                         muta_class = &(p_ptr->muta1);
1567                         muta_which = MUT1_WEIGH_MAG;
1568 #ifdef JP
1569 muta_desc = "ËâÎϤò´¶¤¸¤é¤ì¤Ê¤¯¤Ê¤Ã¤¿¡£";
1570 #else
1571                         muta_desc = "You no longer sense magic.";
1572 #endif
1573
1574                         break;
1575                 case 59:
1576                         muta_class = &(p_ptr->muta1);
1577                         muta_which = MUT1_STERILITY;
1578 #ifdef JP
1579 muta_desc = "¤¿¤¯¤µ¤ó¤Î°ÂÅȤÎÅÇ©¤¬Ê¹¤³¤¨¤¿¡£";
1580 #else
1581                         muta_desc = "You hear a massed sigh of relief.";
1582 #endif
1583
1584                         break;
1585                 case 60: case 61:
1586                         muta_class = &(p_ptr->muta1);
1587                         muta_which = MUT1_PANIC_HIT;
1588 #ifdef JP
1589 muta_desc = "¤¢¤Á¤³¤Á¤ØÄ·¤Ù¤ëµ¤Ê¬¤¬¤Ê¤¯¤Ê¤Ã¤¿¡£";
1590 #else
1591                         muta_desc = "You no longer feel jumpy.";
1592 #endif
1593
1594                         break;
1595                 case 62: case 63: case 64:
1596                         muta_class = &(p_ptr->muta1);
1597                         muta_which = MUT1_DAZZLE;
1598 #ifdef JP
1599 muta_desc = "¤Þ¤Ð¤æ¤¤Á®¸÷¤òȯ¤¹¤ëǽÎϤò¼º¤Ã¤¿¡£";
1600 #else
1601                         muta_desc = "You lose the ability to emit dazzling lights.";
1602 #endif
1603
1604                         break;
1605                 case 65: case 66: case 67:
1606                         muta_class = &(p_ptr->muta1);
1607                         muta_which = MUT1_LASER_EYE;
1608 #ifdef JP
1609 muta_desc = "´ã¤¬¾¯¤·¤Î´Ö¾Æ¤­ÉÕ¤¤¤Æ¡¢Äˤߤ¬Ï¤餤¤À¡£";
1610 #else
1611                         muta_desc = "Your eyes burn for a moment, then feel soothed.";
1612 #endif
1613
1614                         break;
1615                 case 68: case 69:
1616                         muta_class = &(p_ptr->muta1);
1617                         muta_which = MUT1_RECALL;
1618 #ifdef JP
1619 muta_desc = "¾¯¤·¤Î´Ö¥Û¡¼¥à¥·¥Ã¥¯¤Ë¤Ê¤Ã¤¿¡£";
1620 #else
1621                         muta_desc = "You feel briefly homesick.";
1622 #endif
1623
1624                         break;
1625                 case 70:
1626                         muta_class = &(p_ptr->muta1);
1627                         muta_which = MUT1_BANISH;
1628 #ifdef JP
1629 muta_desc = "¿ÀÀ»¤ÊÅܤê¤ÎÎϤò´¶¤¸¤Ê¤¯¤Ê¤Ã¤¿¡£";
1630 #else
1631                         muta_desc = "You no longer feel a holy wrath.";
1632 #endif
1633
1634                         break;
1635                 case 71: case 72:
1636                         muta_class = &(p_ptr->muta1);
1637                         muta_which = MUT1_COLD_TOUCH;
1638 #ifdef JP
1639 muta_desc = "¼ê¤¬ÃȤ«¤¯¤Ê¤Ã¤¿¡£";
1640 #else
1641                         muta_desc = "Your hands warm up.";
1642 #endif
1643
1644                         break;
1645                 case 73: case 74:
1646                         muta_class = &(p_ptr->muta1);
1647                         muta_which = MUT1_LAUNCHER;
1648 #ifdef JP
1649 muta_desc = "ʪ¤òÅꤲ¤ë¼ê¤¬¼å¤¯¤Ê¤Ã¤¿µ¤¤¬¤¹¤ë¡£";
1650 #else
1651                         muta_desc = "Your throwing arm feels much weaker.";
1652 #endif
1653
1654                         break;
1655                 case 75:
1656                         muta_class = &(p_ptr->muta2);
1657                         muta_which = MUT2_BERS_RAGE;
1658 #ifdef JP
1659 muta_desc = "¶§Ë½²½¤Îȯºî¤Ë¤µ¤é¤µ¤ì¤Ê¤¯¤Ê¤Ã¤¿¡ª";
1660 #else
1661                         muta_desc = "You are no longer subject to fits of berserk rage!";
1662 #endif
1663
1664                         break;
1665                 case 76:
1666                         muta_class = &(p_ptr->muta2);
1667                         muta_which = MUT2_COWARDICE;
1668 #ifdef JP
1669 muta_desc = "¤â¤¦¿®¤¸¤¬¤¿¤¤¤Û¤É²²É¤ǤϤʤ¯¤Ê¤Ã¤¿¡ª";
1670 #else
1671                         muta_desc = "You are no longer an incredible coward!";
1672 #endif
1673
1674                         break;
1675                 case 77:
1676                         muta_class = &(p_ptr->muta2);
1677                         muta_which = MUT2_RTELEPORT;
1678 #ifdef JP
1679 muta_desc = "¤¢¤Ê¤¿¤Î°ÌÃ֤Ϥè¤ê³ÎÄêŪ¤Ë¤Ê¤Ã¤¿¡£";
1680 #else
1681                         muta_desc = "Your position seems more certain.";
1682 #endif
1683
1684                         break;
1685                 case 78:
1686                         muta_class = &(p_ptr->muta2);
1687                         muta_which = MUT2_ALCOHOL;
1688 #ifdef JP
1689 muta_desc = "¤¢¤Ê¤¿¤Ï¥¢¥ë¥³¡¼¥ë¤òʬÈ礷¤Ê¤¯¤Ê¤Ã¤¿¡ª";
1690 #else
1691                         muta_desc = "Your body stops producing alcohol!";
1692 #endif
1693
1694                         break;
1695                 case 79:
1696                         muta_class = &(p_ptr->muta2);
1697                         muta_which = MUT2_HALLU;
1698 #ifdef JP
1699 muta_desc = "¸¸³Ð¤ò¤Ò¤­µ¯¤³¤¹Àº¿À¾ã³²¤òµ¯¤³¤µ¤Ê¤¯¤Ê¤Ã¤¿¡ª";
1700 #else
1701                         muta_desc = "You are no longer afflicted by a hallucinatory insanity!";
1702 #endif
1703
1704                         break;
1705                 case 80:
1706                         muta_class = &(p_ptr->muta2);
1707                         muta_which = MUT2_FLATULENT;
1708 #ifdef JP
1709 muta_desc = "¤â¤¦¶¯Îõ¤ÊÕû¤Ï¤³¤«¤Ê¤¯¤Ê¤Ã¤¿¡£";
1710 #else
1711                         muta_desc = "You are no longer subject to uncontrollable flatulence.";
1712 #endif
1713
1714                         break;
1715                 case 81: case 82:
1716                         muta_class = &(p_ptr->muta2);
1717                         muta_which = MUT2_SCOR_TAIL;
1718 #ifdef JP
1719 muta_desc = "¥µ¥½¥ê¤Î¿¬Èø¤¬¤Ê¤¯¤Ê¤Ã¤¿¡ª";
1720 #else
1721                         muta_desc = "You lose your scorpion tail!";
1722 #endif
1723
1724                         break;
1725                 case 83: case 84:
1726                         muta_class = &(p_ptr->muta2);
1727                         muta_which = MUT2_HORNS;
1728 #ifdef JP
1729 muta_desc = "³Û¤«¤é³Ñ¤¬¾Ã¤¨¤¿¡ª";
1730 #else
1731                         muta_desc = "Your horns vanish from your forehead!";
1732 #endif
1733
1734                         break;
1735                 case 85: case 86:
1736                         muta_class = &(p_ptr->muta2);
1737                         muta_which = MUT2_BEAK;
1738 #ifdef JP
1739 muta_desc = "¸ý¤¬ÉáÄ̤ËÌá¤Ã¤¿¡ª";
1740 #else
1741                         muta_desc = "Your mouth reverts to normal!";
1742 #endif
1743
1744                         break;
1745                 case 87: case 88:
1746                         muta_class = &(p_ptr->muta2);
1747                         muta_which = MUT2_ATT_DEMON;
1748 #ifdef JP
1749 muta_desc = "¥Ç¡¼¥â¥ó¤ò°ú¤­´ó¤»¤Ê¤¯¤Ê¤Ã¤¿¡£";
1750 #else
1751                         muta_desc = "You stop attracting demons.";
1752 #endif
1753
1754                         break;
1755                 case 89:
1756                         muta_class = &(p_ptr->muta2);
1757                         muta_which = MUT2_PROD_MANA;
1758 #ifdef JP
1759 muta_desc = "À©¸æÉÔǽ¤ÊËâË¡¤Î¥¨¥Í¥ë¥®¡¼¤òȯÀ¸¤·¤Ê¤¯¤Ê¤Ã¤¿¡£";
1760 #else
1761                         muta_desc = "You stop producing magical energy uncontrollably.";
1762 #endif
1763
1764                         break;
1765                 case 90: case 91:
1766                         muta_class = &(p_ptr->muta2);
1767                         muta_which = MUT2_SPEED_FLUX;
1768 #ifdef JP
1769 muta_desc = "í¯Ýµ¼Á¤Ç¤Ê¤¯¤Ê¤Ã¤¿¡£";
1770 #else
1771                         muta_desc = "You are no longer manic-depressive.";
1772 #endif
1773
1774                         break;
1775                 case 92: case 93:
1776                         muta_class = &(p_ptr->muta2);
1777                         muta_which = MUT2_BANISH_ALL;
1778 #ifdef JP
1779 muta_desc = "Çظå¤Ë¶²¤í¤·¤¤ÎϤò´¶¤¸¤Ê¤¯¤Ê¤Ã¤¿¡£";
1780 #else
1781                         muta_desc = "You no longer feel a terrifying power lurking behind you.";
1782 #endif
1783
1784                         break;
1785                 case 94:
1786                         muta_class = &(p_ptr->muta2);
1787                         muta_which = MUT2_EAT_LIGHT;
1788 #ifdef JP
1789 muta_desc = "À¤³¦¤¬ÌÀ¤ë¤¤¤È´¶¤¸¤ë¡£";
1790 #else
1791                         muta_desc = "You feel the world's a brighter place.";
1792 #endif
1793
1794                         break;
1795                 case 95: case 96:
1796                         muta_class = &(p_ptr->muta2);
1797                         muta_which = MUT2_TRUNK;
1798 #ifdef JP
1799 muta_desc = "É¡¤¬ÉáÄ̤ÎŤµ¤ËÌá¤Ã¤¿¡£";
1800 #else
1801                         muta_desc = "Your nose returns to a normal length.";
1802 #endif
1803
1804                         break;
1805                 case 97:
1806                         muta_class = &(p_ptr->muta2);
1807                         muta_which = MUT2_ATT_ANIMAL;
1808 #ifdef JP
1809 muta_desc = "ưʪ¤ò°ú¤­´ó¤»¤Ê¤¯¤Ê¤Ã¤¿¡£";
1810 #else
1811                         muta_desc = "You stop attracting animals.";
1812 #endif
1813
1814                         break;
1815                 case 98:
1816                         muta_class = &(p_ptr->muta2);
1817                         muta_which = MUT2_TENTACLES;
1818 #ifdef JP
1819 muta_desc = "¿¨¼ê¤¬¾Ã¤¨¤¿¡£";
1820 #else
1821                         muta_desc = "Your tentacles vanish from your sides.";
1822 #endif
1823
1824                         break;
1825                 case 99:
1826                         muta_class = &(p_ptr->muta2);
1827                         muta_which = MUT2_RAW_CHAOS;
1828 #ifdef JP
1829 muta_desc = "¼þ°Ï¤Î¶õ´Ö¤¬°ÂÄꤷ¤¿µ¤¤¬¤¹¤ë¡£";
1830 #else
1831                         muta_desc = "You feel the universe is more stable around you.";
1832 #endif
1833
1834                         break;
1835                 case 100: case 101: case 102:
1836                         muta_class = &(p_ptr->muta2);
1837                         muta_which = MUT2_NORMALITY;
1838 #ifdef JP
1839 muta_desc = "ÉáÄ̤˴ñ̯¤Ê´¶¤¸¤¬¤¹¤ë¡£";
1840 #else
1841                         muta_desc = "You feel normally strange.";
1842 #endif
1843
1844                         break;
1845                 case 103:
1846                         muta_class = &(p_ptr->muta2);
1847                         muta_which = MUT2_WRAITH;
1848 #ifdef JP
1849 muta_desc = "¤¢¤Ê¤¿¤Ïʪ¼ÁÀ¤³¦¤Ë¤·¤Ã¤«¤ê¸ºß¤·¤Æ¤¤¤ë¡£";
1850 #else
1851                         muta_desc = "You are firmly in the physical world.";
1852 #endif
1853
1854                         break;
1855                 case 104:
1856                         muta_class = &(p_ptr->muta2);
1857                         muta_which = MUT2_POLY_WOUND;
1858 #ifdef JP
1859 muta_desc = "¸Å¤¤½ý¤«¤é¥«¥ª¥¹¤ÎÎϤ¬µî¤Ã¤Æ¤¤¤Ã¤¿¡£";
1860 #else
1861                         muta_desc = "You feel forces of chaos departing your old scars.";
1862 #endif
1863
1864                         break;
1865                 case 105:
1866                         muta_class = &(p_ptr->muta2);
1867                         muta_which = MUT2_WASTING;
1868 #ifdef JP
1869 muta_desc = "¤ª¤¾¤Þ¤·¤¤¿ê¼åɤ¬¼£¤Ã¤¿¡ª";
1870 #else
1871                         muta_desc = "You are cured of the horrible wasting disease!";
1872 #endif
1873
1874                         break;
1875                 case 106:
1876                         muta_class = &(p_ptr->muta2);
1877                         muta_which = MUT2_ATT_DRAGON;
1878 #ifdef JP
1879 muta_desc = "¥É¥é¥´¥ó¤ò°ú¤­´ó¤»¤Ê¤¯¤Ê¤Ã¤¿¡£";
1880 #else
1881                         muta_desc = "You stop attracting dragons.";
1882 #endif
1883
1884                         break;
1885                 case 107: case 108:
1886                         muta_class = &(p_ptr->muta2);
1887                         muta_which = MUT2_WEIRD_MIND;
1888 #ifdef JP
1889 muta_desc = "»×¹Í¤¬Âà¶þ¤ÊÊý¸þ¤ËÌá¤Ã¤¿¡£";
1890 #else
1891                         muta_desc = "Your thoughts return to boring paths.";
1892 #endif
1893
1894                         break;
1895                 case 109:
1896                         muta_class = &(p_ptr->muta2);
1897                         muta_which = MUT2_NAUSEA;
1898 #ifdef JP
1899 muta_desc = "°ß¤¬áÛÚ»¤·¤Ê¤¯¤Ê¤Ã¤¿¡£";
1900 #else
1901                         muta_desc = "Your stomach stops roiling.";
1902 #endif
1903
1904                         break;
1905                 case 110: case 111:
1906                         muta_class = &(p_ptr->muta2);
1907                         muta_which = MUT2_CHAOS_GIFT;
1908 #ifdef JP
1909 muta_desc = "º®Æ٤οÀ¡¹¤Î¶½Ì£¤ò¼æ¤«¤Ê¤¯¤Ê¤Ã¤¿¡£";
1910 #else
1911                         muta_desc = "You lose the attention of the chaos deities.";
1912 #endif
1913
1914                         break;
1915                 case 112:
1916                         muta_class = &(p_ptr->muta2);
1917                         muta_which = MUT2_WALK_SHAD;
1918 #ifdef JP
1919 muta_desc = "ʪ¼ÁÀ¤³¦¤ËÊá¤é¤ï¤ì¤Æ¤¤¤ëµ¤¤¬¤¹¤ë¡£";
1920 #else
1921                         muta_desc = "You feel like you're trapped in reality.";
1922 #endif
1923
1924                         break;
1925                 case 113: case 114:
1926                         muta_class = &(p_ptr->muta2);
1927                         muta_which = MUT2_WARNING;
1928 #ifdef JP
1929 muta_desc = "¥Ñ¥é¥Î¥¤¥¢¤Ç¤Ê¤¯¤Ê¤Ã¤¿¡£";
1930 #else
1931                         muta_desc = "You no longer feel paranoid.";
1932 #endif
1933
1934                         break;
1935                 case 115:
1936                         muta_class = &(p_ptr->muta2);
1937                         muta_which = MUT2_INVULN;
1938 #ifdef JP
1939 muta_desc = "̵Ũ¾õÂÖ¤Îȯºî¤òµ¯¤³¤µ¤Ê¤¯¤Ê¤Ã¤¿¡£";
1940 #else
1941                         muta_desc = "You are no longer blessed with fits of invulnerability.";
1942 #endif
1943
1944                         break;
1945                 case 116: case 117:
1946                         muta_class = &(p_ptr->muta2);
1947                         muta_which = MUT2_SP_TO_HP;
1948 #ifdef JP
1949 muta_desc = "ËâË¡¤Î¼£Ìþ¤Îȯºî¤Ë½±¤ï¤ì¤Ê¤¯¤Ê¤Ã¤¿¡£";
1950 #else
1951                         muta_desc = "You are no longer subject to fits of magical healing.";
1952 #endif
1953
1954                         break;
1955                 case 118:
1956                         muta_class = &(p_ptr->muta2);
1957                         muta_which = MUT2_HP_TO_SP;
1958 #ifdef JP
1959 muta_desc = "Äˤߤòȼ¤¦Àº¿ÀÌÀÎƲ½¤Îȯºî¤Ë½±¤ï¤ì¤Ê¤¯¤Ê¤Ã¤¿¡£";
1960 #else
1961                         muta_desc = "You are no longer subject to fits of painful clarity.";
1962 #endif
1963
1964                         break;
1965                 case 119:
1966                         muta_class = &(p_ptr->muta2);
1967                         muta_which = MUT2_DISARM;
1968 #ifdef JP
1969 muta_desc = "µÓ¤¬¸µ¤ÎÂ礭¤µ¤ËÌá¤Ã¤¿¡£";
1970 #else
1971                         muta_desc = "Your feet shrink to their former size.";
1972 #endif
1973
1974                         break;
1975                 case 120: case 121: case 122:
1976                         muta_class = &(p_ptr->muta3);
1977                         muta_which = MUT3_HYPER_STR;
1978 #ifdef JP
1979 muta_desc = "¶ÚÆù¤¬ÉáÄ̤ËÌá¤Ã¤¿¡£";
1980 #else
1981                         muta_desc = "Your muscles revert to normal.";
1982 #endif
1983
1984                         break;
1985                 case 123: case 124: case 125:
1986                         muta_class = &(p_ptr->muta3);
1987                         muta_which = MUT3_PUNY;
1988 #ifdef JP
1989 muta_desc = "¶ÚÆù¤¬ÉáÄ̤ËÌá¤Ã¤¿¡£";
1990 #else
1991                         muta_desc = "Your muscles revert to normal.";
1992 #endif
1993
1994                         break;
1995                 case 126: case 127: case 128:
1996                         muta_class = &(p_ptr->muta3);
1997                         muta_which = MUT3_HYPER_INT;
1998 #ifdef JP
1999 muta_desc = "Ǿ¤¬ÉáÄ̤ËÌá¤Ã¤¿¡£";
2000 #else
2001                         muta_desc = "Your brain reverts to normal.";
2002 #endif
2003
2004                         break;
2005                 case 129: case 130: case 131:
2006                         muta_class = &(p_ptr->muta3);
2007                         muta_which = MUT3_MORONIC;
2008 #ifdef JP
2009 muta_desc = "Ǿ¤¬ÉáÄ̤ËÌá¤Ã¤¿¡£";
2010 #else
2011                         muta_desc = "Your brain reverts to normal.";
2012 #endif
2013
2014                         break;
2015                 case 132: case 133:
2016                         muta_class = &(p_ptr->muta3);
2017                         muta_which = MUT3_RESILIENT;
2018 #ifdef JP
2019 muta_desc = "ÉáÄ̤ξæÉפµ¤ËÌá¤Ã¤¿¡£";
2020 #else
2021                         muta_desc = "You become ordinarily resilient again.";
2022 #endif
2023
2024                         break;
2025                 case 134: case 135:
2026                         muta_class = &(p_ptr->muta3);
2027                         muta_which = MUT3_XTRA_FAT;
2028 #ifdef JP
2029 muta_desc = "´ñÀ×Ū¤Ê¥À¥¤¥¨¥Ã¥È¤ËÀ®¸ù¤·¤¿¡ª";
2030 #else
2031                         muta_desc = "You benefit from a miracle diet!";
2032 #endif
2033
2034                         break;
2035                 case 136: case 137:
2036                         muta_class = &(p_ptr->muta3);
2037                         muta_which = MUT3_ALBINO;
2038 #ifdef JP
2039 muta_desc = "¥¢¥ë¥Ó¥Î¤Ç¤Ê¤¯¤Ê¤Ã¤¿¡ª";
2040 #else
2041                         muta_desc = "You are no longer an albino!";
2042 #endif
2043
2044                         break;
2045                 case 138: case 139: case 140:
2046                         muta_class = &(p_ptr->muta3);
2047                         muta_which = MUT3_FLESH_ROT;
2048 #ifdef JP
2049 muta_desc = "ÆùÂΤòÉåÇÔ¤µ¤»¤ëɵ¤¤¬¼£¤Ã¤¿¡ª";
2050 #else
2051                         muta_desc = "Your flesh is no longer afflicted by a rotting disease!";
2052 #endif
2053
2054                         break;
2055                 case 141: case 142:
2056                         muta_class = &(p_ptr->muta3);
2057                         muta_which = MUT3_SILLY_VOI;
2058 #ifdef JP
2059 muta_desc = "À¼¼Á¤¬ÉáÄ̤ËÌá¤Ã¤¿¡£";
2060 #else
2061                         muta_desc = "Your voice returns to normal.";
2062 #endif
2063
2064                         break;
2065                 case 143: case 144:
2066                         muta_class = &(p_ptr->muta3);
2067                         muta_which = MUT3_BLANK_FAC;
2068 #ifdef JP
2069 muta_desc = "´é¤ËÌÜÉ¡¤¬Ìá¤Ã¤¿¡£";
2070 #else
2071                         muta_desc = "Your facial features return.";
2072 #endif
2073
2074                         break;
2075                 case 145:
2076                         muta_class = &(p_ptr->muta3);
2077                         muta_which = MUT3_ILL_NORM;
2078 #ifdef JP
2079 muta_desc = "¿´¤¬°Â¤é¤°¸¸±Æ¤ò±Ç¤·½Ð¤µ¤Ê¤¯¤Ê¤Ã¤¿¡£";
2080 #else
2081                         muta_desc = "You stop projecting a reassuring image.";
2082 #endif
2083
2084                         break;
2085                 case 146: case 147: case 148:
2086                         muta_class = &(p_ptr->muta3);
2087                         muta_which = MUT3_XTRA_EYES;
2088 #ifdef JP
2089 muta_desc = ";ʬ¤ÊÌܤ¬¾Ã¤¨¤Æ¤·¤Þ¤Ã¤¿¡ª";
2090 #else
2091                         muta_desc = "Your extra eyes vanish!";
2092 #endif
2093
2094                         break;
2095                 case 149: case 150:
2096                         muta_class = &(p_ptr->muta3);
2097                         muta_which = MUT3_MAGIC_RES;
2098 #ifdef JP
2099 muta_desc = "ËâË¡¤Ë¼å¤¯¤Ê¤Ã¤¿¡£";
2100 #else
2101                         muta_desc = "You become susceptible to magic again.";
2102 #endif
2103
2104                         break;
2105                 case 151: case 152: case 153:
2106                         muta_class = &(p_ptr->muta3);
2107                         muta_which = MUT3_XTRA_NOIS;
2108 #ifdef JP
2109 muta_desc = "´ñ̯¤Ê²»¤òΩ¤Æ¤Ê¤¯¤Ê¤Ã¤¿¡ª";
2110 #else
2111                         muta_desc = "You stop making strange noise!";
2112 #endif
2113
2114                         break;
2115                 case 154: case 155: case 156:
2116                         muta_class = &(p_ptr->muta3);
2117                         muta_which = MUT3_INFRAVIS;
2118 #ifdef JP
2119 muta_desc = "ÀÖ³°Àþ»ëÎϤ¬Íî¤Á¤¿¡£";
2120 #else
2121                         muta_desc = "Your infravision is degraded.";
2122 #endif
2123
2124                         break;
2125                 case 157: case 158:
2126                         muta_class = &(p_ptr->muta3);
2127                         muta_which = MUT3_XTRA_LEGS;
2128 #ifdef JP
2129 muta_desc = ";ʬ¤ÊµÓ¤¬¾Ã¤¨¤Æ¤·¤Þ¤Ã¤¿¡ª";
2130 #else
2131                         muta_desc = "Your extra legs disappear!";
2132 #endif
2133
2134                         break;
2135                 case 159: case 160:
2136                         muta_class = &(p_ptr->muta3);
2137                         muta_which = MUT3_SHORT_LEG;
2138 #ifdef JP
2139 muta_desc = "µÓ¤ÎŤµ¤¬ÉáÄ̤ËÌá¤Ã¤¿¡£";
2140 #else
2141                         muta_desc = "Your legs lengthen to normal.";
2142 #endif
2143
2144                         break;
2145                 case 161: case 162:
2146                         muta_class = &(p_ptr->muta3);
2147                         muta_which = MUT3_ELEC_TOUC;
2148 #ifdef JP
2149 muta_desc = "ÂΤòÅÅή¤¬Î®¤ì¤Ê¤¯¤Ê¤Ã¤¿¡£";
2150 #else
2151                         muta_desc = "Electricity stops running through you.";
2152 #endif
2153
2154                         break;
2155                 case 163: case 164:
2156                         muta_class = &(p_ptr->muta3);
2157                         muta_which = MUT3_FIRE_BODY;
2158 #ifdef JP
2159 muta_desc = "ÂΤ¬±ê¤ËÊñ¤Þ¤ì¤Ê¤¯¤Ê¤Ã¤¿¡£";
2160 #else
2161                         muta_desc = "Your body is no longer enveloped in flames.";
2162 #endif
2163
2164                         break;
2165                 case 165: case 166: case 167:
2166                         muta_class = &(p_ptr->muta3);
2167                         muta_which = MUT3_WART_SKIN;
2168 #ifdef JP
2169 muta_desc = "¥¤¥Ü¥¤¥Ü¤¬¾Ã¤¨¤¿¡ª";
2170 #else
2171                         muta_desc = "Your warts disappear!";
2172 #endif
2173
2174                         break;
2175                 case 168: case 169: case 170:
2176                         muta_class = &(p_ptr->muta3);
2177                         muta_which = MUT3_SCALES;
2178 #ifdef JP
2179 muta_desc = "ÎÚ¤¬¾Ã¤¨¤¿¡ª";
2180 #else
2181                         muta_desc = "Your scales vanish!";
2182 #endif
2183
2184                         break;
2185                 case 171: case 172:
2186                         muta_class = &(p_ptr->muta3);
2187                         muta_which = MUT3_IRON_SKIN;
2188 #ifdef JP
2189 muta_desc = "È©¤¬Æù¤Ë¤â¤É¤Ã¤¿¡ª";
2190 #else
2191                         muta_desc = "Your skin reverts to flesh!";
2192 #endif
2193
2194                         break;
2195                 case 173: case 174:
2196                         muta_class = &(p_ptr->muta3);
2197                         muta_which = MUT3_WINGS;
2198 #ifdef JP
2199 muta_desc = "ÇØÃæ¤Î±©º¬¤¬¼è¤ìÍî¤Á¤¿¡£";
2200 #else
2201                         muta_desc = "Your wings fall off.";
2202 #endif
2203
2204                         break;
2205                 case 175: case 176: case 177:
2206                         muta_class = &(p_ptr->muta3);
2207                         muta_which = MUT3_FEARLESS;
2208 #ifdef JP
2209 muta_desc = "ºÆ¤Ó¶²Éݤò´¶¤¸¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£";
2210 #else
2211                         muta_desc = "You begin to feel fear again.";
2212 #endif
2213
2214                         break;
2215                 case 178: case 179:
2216                         muta_class = &(p_ptr->muta3);
2217                         muta_which = MUT3_REGEN;
2218 #ifdef JP
2219 muta_desc = "µÞ®²óÉü¤·¤Ê¤¯¤Ê¤Ã¤¿¡£";
2220 #else
2221                         muta_desc = "You stop regenerating.";
2222 #endif
2223
2224                         break;
2225                 case 180: case 181:
2226                         muta_class = &(p_ptr->muta3);
2227                         muta_which = MUT3_ESP;
2228 #ifdef JP
2229 muta_desc = "¥Æ¥ì¥Ñ¥·¡¼¤ÎǽÎϤò¼º¤Ã¤¿¡ª";
2230 #else
2231                         muta_desc = "You lose your telepathic ability!";
2232 #endif
2233
2234                         break;
2235                 case 182: case 183: case 184:
2236                         muta_class = &(p_ptr->muta3);
2237                         muta_which = MUT3_LIMBER;
2238 #ifdef JP
2239 muta_desc = "¶ÚÆù¤¬¹Å¤¯¤Ê¤Ã¤¿¡£";
2240 #else
2241                         muta_desc = "Your muscles stiffen.";
2242 #endif
2243
2244                         break;
2245                 case 185: case 186: case 187:
2246                         muta_class = &(p_ptr->muta3);
2247                         muta_which = MUT3_ARTHRITIS;
2248 #ifdef JP
2249 muta_desc = "´ØÀ᤬Äˤ¯¤Ê¤¯¤Ê¤Ã¤¿¡£";
2250 #else
2251                         muta_desc = "Your joints stop hurting.";
2252 #endif
2253
2254                         break;
2255                 case 188:
2256                         muta_class = &(p_ptr->muta3);
2257                         muta_which = MUT3_BAD_LUCK;
2258 #ifdef JP
2259 muta_desc = "¹õ¤¤¥ª¡¼¥é¤Ï±²´¬¤¤¤Æ¾Ã¤¨¤¿¡£";
2260 #else
2261                         muta_desc = "Your black aura swirls and fades.";
2262 #endif
2263
2264                         break;
2265                 case 189:
2266                         muta_class = &(p_ptr->muta3);
2267                         muta_which = MUT3_VULN_ELEM;
2268 #ifdef JP
2269 muta_desc = "̵ËÉÈ÷¤Ê´¶¤¸¤Ï¤Ê¤¯¤Ê¤Ã¤¿¡£";
2270 #else
2271                         muta_desc = "You feel less exposed.";
2272 #endif
2273
2274                         break;
2275                 case 190: case 191: case 192:
2276                         muta_class = &(p_ptr->muta3);
2277                         muta_which = MUT3_MOTION;
2278 #ifdef JP
2279 muta_desc = "Æ°ºî¤ÎÀµ³Î¤µ¤¬¤Ê¤¯¤Ê¤Ã¤¿¡£";
2280 #else
2281                         muta_desc = "You move with less assurance.";
2282 #endif
2283
2284                         break;
2285                 case 193:
2286                         if (p_ptr->pseikaku == SEIKAKU_LUCKY) break;
2287                         muta_class = &(p_ptr->muta3);
2288                         muta_which = MUT3_GOOD_LUCK;
2289 #ifdef JP
2290 muta_desc = "Çò¤¤¥ª¡¼¥é¤Ïµ±¤¤¤Æ¾Ã¤¨¤¿¡£";
2291 #else
2292                         muta_desc = "Your white aura shimmers and fades.";
2293 #endif
2294
2295                         break;
2296                 default:
2297                         muta_class = NULL;
2298                         muta_which = 0;
2299                 }
2300
2301                 if (muta_class && muta_which)
2302                 {
2303                         if (*(muta_class) & muta_which)
2304                         {
2305                                 muta_chosen = TRUE;
2306                         }
2307                 }
2308                 if (muta_chosen == TRUE) break;
2309         }
2310
2311         if (!muta_chosen)
2312         {
2313                 return FALSE;
2314         }
2315         else
2316         {
2317                 msg_print(muta_desc);
2318                 *(muta_class) &= ~(muta_which);
2319
2320                 p_ptr->update |= PU_BONUS;
2321                 handle_stuff();
2322                 mutant_regenerate_mod = calc_mutant_regenerate_mod();
2323                 return TRUE;
2324         }
2325 }
2326
2327
2328 void dump_mutations(FILE *OutFile)
2329 {
2330         if (!OutFile) return;
2331
2332         if (p_ptr->muta1)
2333         {
2334                 if (p_ptr->muta1 & MUT1_SPIT_ACID)
2335                 {
2336 #ifdef JP
2337 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï»À¤ò¿á¤­¤«¤±¤ë¤³¤È¤¬¤Ç¤­¤ë¡£(¥À¥á¡¼¥¸ ¥ì¥Ù¥ëX1)\n");
2338 #else
2339                         fprintf(OutFile, " You can spit acid (dam lvl).\n");
2340 #endif
2341
2342                 }
2343                 if (p_ptr->muta1 & MUT1_BR_FIRE)
2344                 {
2345 #ifdef JP
2346 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï±ê¤Î¥Ö¥ì¥¹¤òÅǤ¯¤³¤È¤¬¤Ç¤­¤ë¡£(¥À¥á¡¼¥¸ ¥ì¥Ù¥ëX2)\n");
2347 #else
2348                         fprintf(OutFile, " You can breathe fire (dam lvl * 2).\n");
2349 #endif
2350
2351                 }
2352                 if (p_ptr->muta1 & MUT1_HYPN_GAZE)
2353                 {
2354 #ifdef JP
2355 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎâˤߤϺÅ̲¸ú²Ì¤ò¤â¤Ä¡£\n");
2356 #else
2357                         fprintf(OutFile, " Your gaze is hypnotic.\n");
2358 #endif
2359
2360                 }
2361                 if (p_ptr->muta1 & MUT1_TELEKINES)
2362                 {
2363 #ifdef JP
2364 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÇ°Æ°ÎϤò¤â¤Ã¤Æ¤¤¤ë¡£\n");
2365 #else
2366                         fprintf(OutFile, " You are telekinetic.\n");
2367 #endif
2368
2369                 }
2370                 if (p_ptr->muta1 & MUT1_VTELEPORT)
2371                 {
2372 #ifdef JP
2373 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¼«Ê¬¤Î°Õ»×¤Ç¥Æ¥ì¥Ý¡¼¥È¤Ç¤­¤ë¡£\n");
2374 #else
2375                         fprintf(OutFile, " You can teleport at will.\n");
2376 #endif
2377
2378                 }
2379                 if (p_ptr->muta1 & MUT1_MIND_BLST)
2380                 {
2381 #ifdef JP
2382 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏŨ¤òÀº¿À¹¶·â¤Ç¤­¤ë¡£\n");
2383 #else
2384                         fprintf(OutFile, " You can Mind Blast your enemies.\n");
2385 #endif
2386
2387                 }
2388                 if (p_ptr->muta1 & MUT1_RADIATION)
2389                 {
2390 #ifdef JP
2391 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¼«Ê¬¤Î°Õ»×¤ÇÊü¼Íǽ¤òȯÀ¸¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2392 #else
2393                         fprintf(OutFile, " You can emit hard radiation at will.\n");
2394 #endif
2395
2396                 }
2397                 if (p_ptr->muta1 & MUT1_VAMPIRISM)
2398                 {
2399 #ifdef JP
2400 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏµÛ·ìµ´¤Î¤è¤¦¤ËŨ¤«¤éÀ¸Ì¿ÎϤòµÛ¼ý¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2401 #else
2402                         fprintf(OutFile, " You can drain life from a foe like a vampire.\n");
2403 #endif
2404
2405                 }
2406                 if (p_ptr->muta1 & MUT1_SMELL_MET)
2407                 {
2408 #ifdef JP
2409 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¶á¤¯¤Ë¤¢¤ëµ®¶â°¤ò¤«¤®Ê¬¤±¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2410 #else
2411                         fprintf(OutFile, " You can smell nearby precious metal.\n");
2412 #endif
2413
2414                 }
2415                 if (p_ptr->muta1 & MUT1_SMELL_MON)
2416                 {
2417 #ifdef JP
2418 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¶á¤¯¤Î¥â¥ó¥¹¥¿¡¼¤Î¸ºß¤ò¤«¤®Ê¬¤±¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2419 #else
2420                         fprintf(OutFile, " You can smell nearby monsters.\n");
2421 #endif
2422
2423                 }
2424                 if (p_ptr->muta1 & MUT1_BLINK)
2425                 {
2426 #ifdef JP
2427 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ïû¤¤µ÷Î¥¤ò¥Æ¥ì¥Ý¡¼¥È¤Ç¤­¤ë¡£\n");
2428 #else
2429                         fprintf(OutFile, " You can teleport yourself short distances.\n");
2430 #endif
2431
2432                 }
2433                 if (p_ptr->muta1 & MUT1_EAT_ROCK)
2434                 {
2435 #ifdef JP
2436 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¹Å¤¤´ä¤ò¿©¤Ù¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2437 #else
2438                         fprintf(OutFile, " You can consume solid rock.\n");
2439 #endif
2440
2441                 }
2442                 if (p_ptr->muta1 & MUT1_SWAP_POS)
2443                 {
2444 #ifdef JP
2445 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¾¤Î¼Ô¤È¾ì½ê¤òÆþ¤ìÂؤï¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2446 #else
2447                         fprintf(OutFile, " You can switch locations with another being.\n");
2448 #endif
2449
2450                 }
2451                 if (p_ptr->muta1 & MUT1_SHRIEK)
2452                 {
2453 #ifdef JP
2454 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¿È¤ÎÌÓ¤â¤è¤À¤Ä¶«¤ÓÀ¼¤òȯ¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2455 #else
2456                         fprintf(OutFile, " You can emit a horrible shriek.\n");
2457 #endif
2458
2459                 }
2460                 if (p_ptr->muta1 & MUT1_ILLUMINE)
2461                 {
2462 #ifdef JP
2463 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÌÀ¤ë¤¤¸÷¤òÊü¤Ä¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2464 #else
2465                         fprintf(OutFile, " You can emit bright light.\n");
2466 #endif
2467
2468                 }
2469                 if (p_ptr->muta1 & MUT1_DET_CURSE)
2470                 {
2471 #ifdef JP
2472 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¼Ù°­¤ÊËâË¡¤Î´í¸±¤ò´¶¤¸¤È¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2473 #else
2474                         fprintf(OutFile, " You can feel the danger of evil magic.\n");
2475 #endif
2476
2477                 }
2478                 if (p_ptr->muta1 & MUT1_BERSERK)
2479                 {
2480 #ifdef JP
2481 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¼«Ê¬¤Î°Õ»×¤Ç¶¸ÍðÀïÆ®¾õÂ֤ˤʤ뤳¤È¤¬¤Ç¤­¤ë¡£\n");
2482 #else
2483                         fprintf(OutFile, " You can drive yourself into a berserk frenzy.\n");
2484 #endif
2485
2486                 }
2487                 if (p_ptr->muta1 & MUT1_POLYMORPH)
2488                 {
2489 #ifdef JP
2490 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¼«Ê¬¤Î°Õ»Ö¤ÇÊѲ½¤Ç¤­¤ë¡£\n");
2491 #else
2492                         fprintf(OutFile, " You can polymorph yourself at will.\n");
2493 #endif
2494
2495                 }
2496                 if (p_ptr->muta1 & MUT1_MIDAS_TCH)
2497                 {
2498 #ifdef JP
2499 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÄ̾異¥¤¥Æ¥à¤ò¶â¤ËÊѤ¨¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2500 #else
2501                         fprintf(OutFile, " You can turn ordinary items to gold.\n");
2502 #endif
2503
2504                 }
2505                 if (p_ptr->muta1 & MUT1_GROW_MOLD)
2506                 {
2507 #ifdef JP
2508 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¼þ°Ï¤Ë¥­¥Î¥³¤òÀ¸¤ä¤¹¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2509 #else
2510                         fprintf(OutFile, " You can cause mold to grow near you.\n");
2511 #endif
2512
2513                 }
2514                 if (p_ptr->muta1 & MUT1_RESIST)
2515                 {
2516 #ifdef JP
2517 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¸µÁǤι¶·â¤ËÂФ·¤Æ¿È¤ò¹Å¤¯¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2518 #else
2519                         fprintf(OutFile, " You can harden yourself to the ravages of the elements.\n");
2520 #endif
2521
2522                 }
2523                 if (p_ptr->muta1 & MUT1_EARTHQUAKE)
2524                 {
2525 #ifdef JP
2526 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¼þ°Ï¤Î¥À¥ó¥¸¥ç¥ó¤òÊø²õ¤µ¤»¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2527 #else
2528                         fprintf(OutFile, " You can bring down the dungeon around your ears.\n");
2529 #endif
2530
2531                 }
2532                 if (p_ptr->muta1 & MUT1_EAT_MAGIC)
2533                 {
2534 #ifdef JP
2535 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏËâË¡¤Î¥¨¥Í¥ë¥®¡¼¤ò¼«Ê¬¤Îʪ¤È¤·¤Æ»ÈÍѤǤ­¤ë¡£\n");
2536 #else
2537                         fprintf(OutFile, " You can consume magic energy for your own use.\n");
2538 #endif
2539
2540                 }
2541                 if (p_ptr->muta1 & MUT1_WEIGH_MAG)
2542                 {
2543 #ifdef JP
2544 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¼«Ê¬¤Ë±Æ¶Á¤òÍ¿¤¨¤ëËâË¡¤ÎÎϤò´¶¤¸¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2545 #else
2546                         fprintf(OutFile, " You can feel the strength of the magics affecting you.\n");
2547 #endif
2548
2549                 }
2550                 if (p_ptr->muta1 & MUT1_STERILITY)
2551                 {
2552 #ifdef JP
2553 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï½¸ÃÄŪÀ¸¿£ÉÔǽ¤òµ¯¤³¤¹¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2554 #else
2555                         fprintf(OutFile, " You can cause mass impotence.\n");
2556 #endif
2557
2558                 }
2559                 if (p_ptr->muta1 & MUT1_PANIC_HIT)
2560                 {
2561 #ifdef JP
2562 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¹¶·â¤·¤¿¸å¿È¤ò¼é¤ë¤¿¤áƨ¤²¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2563 #else
2564                         fprintf(OutFile, " You can run for your life after hitting something.\n");
2565 #endif
2566
2567                 }
2568                 if (p_ptr->muta1 & MUT1_DAZZLE)
2569                 {
2570 #ifdef JP
2571 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ïº®Íð¤ÈÌÕÌܤò°ú¤­µ¯¤³¤¹Êü¼Íǽ¤òȯÀ¸¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¡£ \n");
2572 #else
2573                         fprintf(OutFile, " You can emit confusing, blinding radiation.\n");
2574 #endif
2575
2576                 }
2577                 if (p_ptr->muta1 & MUT1_LASER_EYE)
2578                 {
2579 #ifdef JP
2580 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÌܤ«¤é¥ì¡¼¥¶¡¼¸÷Àþ¤òȯ¼Í¤¹¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2581 #else
2582                         fprintf(OutFile, " Your eyes can fire laser beams.\n");
2583 #endif
2584
2585                 }
2586                 if (p_ptr->muta1 & MUT1_RECALL)
2587                 {
2588 #ifdef JP
2589 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï³¹¤È¥À¥ó¥¸¥ç¥ó¤Î´Ö¤ò¹Ô¤­Í褹¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2590 #else
2591                         fprintf(OutFile, " You can travel between town and the depths.\n");
2592 #endif
2593
2594                 }
2595                 if (p_ptr->muta1 & MUT1_BANISH)
2596                 {
2597 #ifdef JP
2598 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¼Ù°­¤Ê¥â¥ó¥¹¥¿¡¼¤òÃϹö¤ËÍî¤È¤¹¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2599 #else
2600                         fprintf(OutFile, " You can send evil creatures directly to Hell.\n");
2601 #endif
2602
2603                 }
2604                 if (p_ptr->muta1 & MUT1_COLD_TOUCH)
2605                 {
2606 #ifdef JP
2607 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ïʪ¤ò¿¨¤Ã¤ÆÅà¤é¤»¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2608 #else
2609                         fprintf(OutFile, " You can freeze things with a touch.\n");
2610 #endif
2611
2612                 }
2613                 if (p_ptr->muta1 & MUT1_LAUNCHER)
2614                 {
2615 #ifdef JP
2616 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¥¢¥¤¥Æ¥à¤òÎ϶¯¤¯Åꤲ¤ë¤³¤È¤¬¤Ç¤­¤ë¡£\n");
2617 #else
2618                         fprintf(OutFile, " You can hurl objects with great force.\n");
2619 #endif
2620
2621                 }
2622         }
2623
2624         if (p_ptr->muta2)
2625         {
2626                 if (p_ptr->muta2 & MUT2_BERS_RAGE)
2627                 {
2628 #ifdef JP
2629 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¶¸Àï»Î²½¤Îȯºî¤òµ¯¤³¤¹¡£\n");
2630 #else
2631                         fprintf(OutFile, " You are subject to berserker fits.\n");
2632 #endif
2633
2634                 }
2635                 if (p_ptr->muta2 & MUT2_COWARDICE)
2636                 {
2637 #ifdef JP
2638 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï»þ¡¹²²É¤ˤʤ롣\n");
2639 #else
2640                         fprintf(OutFile, " You are subject to cowardice.\n");
2641 #endif
2642
2643                 }
2644                 if (p_ptr->muta2 & MUT2_RTELEPORT)
2645                 {
2646 #ifdef JP
2647 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¥é¥ó¥À¥à¤Ë¥Æ¥ì¥Ý¡¼¥È¤¹¤ë¡£\n");
2648 #else
2649                         fprintf(OutFile, " You are teleporting randomly.\n");
2650 #endif
2651
2652                 }
2653                 if (p_ptr->muta2 & MUT2_ALCOHOL)
2654                 {
2655 #ifdef JP
2656 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÂΤϥ¢¥ë¥³¡¼¥ë¤òʬÈ礹¤ë¡£\n");
2657 #else
2658                         fprintf(OutFile, " Your body produces alcohol.\n");
2659 #endif
2660
2661                 }
2662                 if (p_ptr->muta2 & MUT2_HALLU)
2663                 {
2664 #ifdef JP
2665 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¸¸³Ð¤ò°ú¤­µ¯¤³¤¹Àº¿ÀºøÍð¤Ë¿¯¤µ¤ì¤Æ¤¤¤ë¡£\n");
2666 #else
2667                         fprintf(OutFile, " You have a hallucinatory insanity.\n");
2668 #endif
2669
2670                 }
2671                 if (p_ptr->muta2 & MUT2_FLATULENT)
2672                 {
2673 #ifdef JP
2674 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÀ©¸æ¤Ç¤­¤Ê¤¤¶¯Îõ¤ÊÕû¤ò¤³¤¯¡£\n");
2675 #else
2676                         fprintf(OutFile, " You are subject to uncontrollable flatulence.\n");
2677 #endif
2678
2679                 }
2680                 if (p_ptr->muta2 & MUT2_PROD_MANA)
2681                 {
2682 #ifdef JP
2683 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÀ©¸æÉÔǽ¤ÊËâË¡¤Î¥¨¥Í¥ë¥®¡¼¤òȯ¤·¤Æ¤¤¤ë¡£\n");
2684 #else
2685                         fprintf(OutFile, " You are producing magical energy uncontrollably.\n");
2686 #endif
2687
2688                 }
2689                 if (p_ptr->muta2 & MUT2_ATT_DEMON)
2690                 {
2691 #ifdef JP
2692 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¥Ç¡¼¥â¥ó¤ò°ú¤­¤Ä¤±¤ë¡£\n");
2693 #else
2694                         fprintf(OutFile, " You attract demons.\n");
2695 #endif
2696
2697                 }
2698                 if (p_ptr->muta2 & MUT2_SCOR_TAIL)
2699                 {
2700 #ifdef JP
2701 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¥µ¥½¥ê¤Î¿¬Èø¤¬À¸¤¨¤Æ¤¤¤ë¡£(ÆÇ¡¢¥À¥á¡¼¥¸ 3d7)\n");
2702 #else
2703                         fprintf(OutFile, " You have a scorpion tail (poison, 3d7).\n");
2704 #endif
2705
2706                 }
2707                 if (p_ptr->muta2 & MUT2_HORNS)
2708                 {
2709 #ifdef JP
2710 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï³Ñ¤¬À¸¤¨¤Æ¤¤¤ë¡£(¥À¥á¡¼¥¸ 2d6)\n");
2711 #else
2712                         fprintf(OutFile, " You have horns (dam. 2d6).\n");
2713 #endif
2714
2715                 }
2716                 if (p_ptr->muta2 & MUT2_BEAK)
2717                 {
2718 #ifdef JP
2719 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¥¯¥Á¥Ð¥·¤¬À¸¤¨¤Æ¤¤¤ë¡£(¥À¥á¡¼¥¸ 2d4)\n");
2720 #else
2721                         fprintf(OutFile, " You have a beak (dam. 2d4).\n");
2722 #endif
2723
2724                 }
2725                 if (p_ptr->muta2 & MUT2_SPEED_FLUX)
2726                 {
2727 #ifdef JP
2728 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¥é¥ó¥À¥à¤ËÁ᤯ư¤¤¤¿¤êÃÙ¤¯Æ°¤¤¤¿¤ê¤¹¤ë¡£\n");
2729 #else
2730                         fprintf(OutFile, " You move faster or slower randomly.\n");
2731 #endif
2732
2733                 }
2734                 if (p_ptr->muta2 & MUT2_BANISH_ALL)
2735                 {
2736 #ifdef JP
2737 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï»þ¡¹¶á¤¯¤Î¥â¥ó¥¹¥¿¡¼¤ò¾ÃÌǤµ¤»¤ë¡£\n");
2738 #else
2739                         fprintf(OutFile, " You sometimes cause nearby creatures to vanish.\n");
2740 #endif
2741
2742                 }
2743                 if (p_ptr->muta2 & MUT2_EAT_LIGHT)
2744                 {
2745 #ifdef JP
2746 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï»þ¡¹¼þ°Ï¤Î¸÷¤òµÛ¼ý¤·¤Æ±ÉÍܤˤ¹¤ë¡£\n");
2747 #else
2748                         fprintf(OutFile, " You sometimes feed off of the light around you.\n");
2749 #endif
2750
2751                 }
2752                 if (p_ptr->muta2 & MUT2_TRUNK)
2753                 {
2754 #ifdef JP
2755 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¾Ý¤Î¤è¤¦¤ÊÉ¡¤ò»ý¤Ã¤Æ¤¤¤ë¡£(¥À¥á¡¼¥¸ 1d4)\n");
2756 #else
2757                         fprintf(OutFile, " You have an elephantine trunk (dam 1d4).\n");
2758 #endif
2759
2760                 }
2761                 if (p_ptr->muta2 & MUT2_ATT_ANIMAL)
2762                 {
2763 #ifdef JP
2764 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ïưʪ¤ò°ú¤­¤Ä¤±¤ë¡£\n");
2765 #else
2766                         fprintf(OutFile, " You attract animals.\n");
2767 #endif
2768
2769                 }
2770                 if (p_ptr->muta2 & MUT2_TENTACLES)
2771                 {
2772 #ifdef JP
2773 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¼Ù°­¤Ê¿¨¼ê¤ò»ý¤Ã¤Æ¤¤¤ë¡£(¥À¥á¡¼¥¸ 2d5)\n");
2774 #else
2775                         fprintf(OutFile, " You have evil looking tentacles (dam 2d5).\n");
2776 #endif
2777
2778                 }
2779                 if (p_ptr->muta2 & MUT2_RAW_CHAOS)
2780                 {
2781 #ifdef JP
2782 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¤·¤Ð¤·¤Ð½ã¥«¥ª¥¹¤ËÊñ¤Þ¤ì¤ë¡£\n");
2783 #else
2784                         fprintf(OutFile, " You occasionally are surrounded with raw chaos.\n");
2785 #endif
2786
2787                 }
2788                 if (p_ptr->muta2 & MUT2_NORMALITY)
2789                 {
2790 #ifdef JP
2791 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÊÑ°Û¤·¤Æ¤¤¤¿¤¬¡¢²óÉü¤·¤Æ¤­¤Æ¤¤¤ë¡£\n");
2792 #else
2793                         fprintf(OutFile, " You may be mutated, but you're recovering.\n");
2794 #endif
2795
2796                 }
2797                 if (p_ptr->muta2 & MUT2_WRAITH)
2798                 {
2799 #ifdef JP
2800 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÆùÂΤÏÍ©Â⽤·¤¿¤ê¼ÂÂ⽤·¤¿¤ê¤¹¤ë¡£\n");
2801 #else
2802                         fprintf(OutFile, " You fade in and out of physical reality.\n");
2803 #endif
2804
2805                 }
2806                 if (p_ptr->muta2 & MUT2_POLY_WOUND)
2807                 {
2808 #ifdef JP
2809 fprintf(OutFile, " ¤¢¤Ê¤¿¤Î·ò¹¯¤Ï¥«¥ª¥¹¤ÎÎϤ˱ƶÁ¤ò¼õ¤±¤ë¡£\n");
2810 #else
2811                         fprintf(OutFile, " Your health is subject to chaotic forces.\n");
2812 #endif
2813
2814                 }
2815                 if (p_ptr->muta2 & MUT2_WASTING)
2816                 {
2817 #ifdef JP
2818 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¿ê¼å¤¹¤ë¶²¤í¤·¤¤Éµ¤¤Ë¤«¤«¤Ã¤Æ¤¤¤ë¡£\n");
2819 #else
2820                         fprintf(OutFile, " You have a horrible wasting disease.\n");
2821 #endif
2822
2823                 }
2824                 if (p_ptr->muta2 & MUT2_ATT_DRAGON)
2825                 {
2826 #ifdef JP
2827 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¥É¥é¥´¥ó¤ò°ú¤­¤Ä¤±¤ë¡£\n");
2828 #else
2829                         fprintf(OutFile, " You attract dragons.\n");
2830 #endif
2831
2832                 }
2833                 if (p_ptr->muta2 & MUT2_WEIRD_MIND)
2834                 {
2835 #ifdef JP
2836 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÀº¿À¤Ï¥é¥ó¥À¥à¤Ë³ÈÂ礷¤¿¤ê½Ì¾®¤·¤¿¤ê¤·¤Æ¤¤¤ë¡£\n");
2837 #else
2838                         fprintf(OutFile, " Your mind randomly expands and contracts.\n");
2839 #endif
2840
2841                 }
2842                 if (p_ptr->muta2 & MUT2_NAUSEA)
2843                 {
2844 #ifdef JP
2845 fprintf(OutFile, " ¤¢¤Ê¤¿¤Î°ß¤ÏÈó¾ï¤ËÍî¤ÁÃ夭¤¬¤Ê¤¤¡£\n");
2846 #else
2847                         fprintf(OutFile, " You have a seriously upset stomach.\n");
2848 #endif
2849
2850                 }
2851                 if (p_ptr->muta2 & MUT2_CHAOS_GIFT)
2852                 {
2853 #ifdef JP
2854 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¥«¥ª¥¹¤Î¼é¸î°­Ë⤫¤éË«Èþ¤ò¤¦¤±¤È¤ë¡£\n");
2855 #else
2856                         fprintf(OutFile, " Chaos deities give you gifts.\n");
2857 #endif
2858
2859                 }
2860                 if (p_ptr->muta2 & MUT2_WALK_SHAD)
2861                 {
2862 #ifdef JP
2863 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¤·¤Ð¤·¤Ð¾¤Î¡Ö±Æ¡×¤Ë̤¤¹þ¤à¡£\n");
2864 #else
2865                         fprintf(OutFile, " You occasionally stumble into other shadows.\n");
2866 #endif
2867
2868                 }
2869                 if (p_ptr->muta2 & MUT2_WARNING)
2870                 {
2871 #ifdef JP
2872 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏŨ¤Ë´Ø¤¹¤ë·Ù¹ð¤ò´¶¤¸¤ë¡£\n");
2873 #else
2874                         fprintf(OutFile, " You receive warnings about your foes.\n");
2875 #endif
2876
2877                 }
2878                 if (p_ptr->muta2 & MUT2_INVULN)
2879                 {
2880 #ifdef JP
2881 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï»þ¡¹É餱ÃΤ餺¤Êµ¤Ê¬¤Ë¤Ê¤ë¡£\n");
2882 #else
2883                         fprintf(OutFile, " You occasionally feel invincible.\n");
2884 #endif
2885
2886                 }
2887                 if (p_ptr->muta2 & MUT2_SP_TO_HP)
2888                 {
2889 #ifdef JP
2890 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï»þ¡¹·ì¤¬¶ÚÆù¤Ë¤É¤Ã¤Èή¤ì¤ë¡£\n");
2891 #else
2892                         fprintf(OutFile, " Your blood sometimes rushes to your muscles.\n");
2893 #endif
2894
2895                 }
2896                 if (p_ptr->muta2 & MUT2_HP_TO_SP)
2897                 {
2898 #ifdef JP
2899 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï»þ¡¹Æ¬¤Ë·ì¤¬¤É¤Ã¤Èή¤ì¤ë¡£\n");
2900 #else
2901                         fprintf(OutFile, " Your blood sometimes rushes to your head.\n");
2902 #endif
2903
2904                 }
2905                 if (p_ptr->muta2 & MUT2_DISARM)
2906                 {
2907 #ifdef JP
2908 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¤è¤¯¤Ä¤Þ¤Å¤¤¤Æʪ¤òÍî¤È¤¹¡£\n");
2909 #else
2910                         fprintf(OutFile, " You occasionally stumble and drop things.\n");
2911 #endif
2912
2913                 }
2914         }
2915
2916         if (p_ptr->muta3)
2917         {
2918                 if (p_ptr->muta3 & MUT3_HYPER_STR)
2919                 {
2920 #ifdef JP
2921 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏĶ¿ÍŪ¤Ë¶¯¤¤¡£(ÏÓÎÏ+4)\n");
2922 #else
2923                         fprintf(OutFile, " You are superhumanly strong (+4 STR).\n");
2924 #endif
2925
2926                 }
2927                 if (p_ptr->muta3 & MUT3_PUNY)
2928                 {
2929 #ifdef JP
2930 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ïµõ¼å¤À¡£(ÏÓÎÏ-4)\n");
2931 #else
2932                         fprintf(OutFile, " You are puny (-4 STR).\n");
2933 #endif
2934
2935                 }
2936                 if (p_ptr->muta3 & MUT3_HYPER_INT)
2937                 {
2938 #ifdef JP
2939 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎǾ¤ÏÀ¸ÂÎ¥³¥ó¥Ô¥å¡¼¥¿¤À¡£(ÃÎǽ¡õ¸­¤µ+4)\n");
2940 #else
2941                         fprintf(OutFile, " Your brain is a living computer (+4 INT/WIS).\n");
2942 #endif
2943
2944                 }
2945                 if (p_ptr->muta3 & MUT3_MORONIC)
2946                 {
2947 #ifdef JP
2948 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÀº¿ÀÇö¼å¤À¡£(ÃÎǽ¡õ¸­¤µ-4)\n");
2949 #else
2950                         fprintf(OutFile, " You are moronic (-4 INT/WIS).\n");
2951 #endif
2952
2953                 }
2954                 if (p_ptr->muta3 & MUT3_RESILIENT)
2955                 {
2956 #ifdef JP
2957 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÂΤÏÃÆÎÏÀ­¤ËÉÙ¤ó¤Ç¤¤¤ë¡£(Âѵ×+4)\n");
2958 #else
2959                         fprintf(OutFile, " You are very resilient (+4 CON).\n");
2960 #endif
2961
2962                 }
2963                 if (p_ptr->muta3 & MUT3_XTRA_FAT)
2964                 {
2965 #ifdef JP
2966 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¶Ëü¤ËÂÀ¤Ã¤Æ¤¤¤ë¡£(Âѵ×+2,¥¹¥Ô¡¼¥É-2)\n");
2967 #else
2968                         fprintf(OutFile, " You are extremely fat (+2 CON, -2 speed).\n");
2969 #endif
2970
2971                 }
2972                 if (p_ptr->muta3 & MUT3_ALBINO)
2973                 {
2974 #ifdef JP
2975 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¥¢¥ë¥Ó¥Î¤À¡£(Âѵ×-4)\n");
2976 #else
2977                         fprintf(OutFile, " You are albino (-4 CON).\n");
2978 #endif
2979
2980                 }
2981                 if (p_ptr->muta3 & MUT3_FLESH_ROT)
2982                 {
2983 #ifdef JP
2984 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÆùÂΤÏÉåÇÔ¤·¤Æ¤¤¤ë¡£(Âѵ×-2,Ì¥ÎÏ-1)\n");
2985 #else
2986                         fprintf(OutFile, " Your flesh is rotting (-2 CON, -1 CHR).\n");
2987 #endif
2988
2989                 }
2990                 if (p_ptr->muta3 & MUT3_SILLY_VOI)
2991                 {
2992 #ifdef JP
2993 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÀ¼¤Ï´ÖÈ´¤±¤Ê¥­¡¼¥­¡¼À¼¤À¡£(Ì¥ÎÏ-4)\n");
2994 #else
2995                         fprintf(OutFile, " Your voice is a silly squeak (-4 CHR).\n");
2996 #endif
2997
2998                 }
2999                 if (p_ptr->muta3 & MUT3_BLANK_FAC)
3000                 {
3001 #ifdef JP
3002 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¤Î¤Ã¤Ú¤é¤Ü¤¦¤À¡£(Ì¥ÎÏ-1)\n");
3003 #else
3004                         fprintf(OutFile, " Your face is featureless (-1 CHR).\n");
3005 #endif
3006
3007                 }
3008                 if (p_ptr->muta3 & MUT3_ILL_NORM)
3009                 {
3010 #ifdef JP
3011 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¸¸±Æ¤Ëʤ¤ï¤ì¤Æ¤¤¤ë¡£\n");
3012 #else
3013                         fprintf(OutFile, " Your appearance is masked with illusion.\n");
3014 #endif
3015
3016                 }
3017                 if (p_ptr->muta3 & MUT3_XTRA_EYES)
3018                 {
3019 #ifdef JP
3020 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï;ʬ¤ËÆó¤Ä¤ÎÌܤò»ý¤Ã¤Æ¤¤¤ë¡£(õº÷+15)\n");
3021 #else
3022                         fprintf(OutFile, " You have an extra pair of eyes (+15 search).\n");
3023 #endif
3024
3025                 }
3026                 if (p_ptr->muta3 & MUT3_MAGIC_RES)
3027                 {
3028 #ifdef JP
3029 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏËâË¡¤Ø¤ÎÂÑÀ­¤ò¤â¤Ã¤Æ¤¤¤ë¡£\n");
3030 #else
3031                         fprintf(OutFile, " You are resistant to magic.\n");
3032 #endif
3033
3034                 }
3035                 if (p_ptr->muta3 & MUT3_XTRA_NOIS)
3036                 {
3037 #ifdef JP
3038 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÊѤʲ»¤òȯ¤·¤Æ¤¤¤ë¡£(±£Ì©-3)\n");
3039 #else
3040                         fprintf(OutFile, " You make a lot of strange noise (-3 stealth).\n");
3041 #endif
3042
3043                 }
3044                 if (p_ptr->muta3 & MUT3_INFRAVIS)
3045                 {
3046 #ifdef JP
3047 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÁÇÀ²¤é¤·¤¤ÀÖ³°Àþ»ëÎϤò»ý¤Ã¤Æ¤¤¤ë¡£(+3)\n");
3048 #else
3049                         fprintf(OutFile, " You have remarkable infravision (+3).\n");
3050 #endif
3051
3052                 }
3053                 if (p_ptr->muta3 & MUT3_XTRA_LEGS)
3054                 {
3055 #ifdef JP
3056 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï;ʬ¤ËÆóËܤέ¤¬À¸¤¨¤Æ¤¤¤ë¡£(²Ã®+3)\n");
3057 #else
3058                         fprintf(OutFile, " You have an extra pair of legs (+3 speed).\n");
3059 #endif
3060
3061                 }
3062                 if (p_ptr->muta3 & MUT3_SHORT_LEG)
3063                 {
3064 #ifdef JP
3065 fprintf(OutFile, " ¤¢¤Ê¤¿¤Î­¤Ïû¤¤Æ͵¯¤À¡£(²Ã®-3)\n");
3066 #else
3067                         fprintf(OutFile, " Your legs are short stubs (-3 speed).\n");
3068 #endif
3069
3070                 }
3071                 if (p_ptr->muta3 & MUT3_ELEC_TOUC)
3072                 {
3073 #ifdef JP
3074 fprintf(OutFile, " ¤¢¤Ê¤¿¤Î·ì´É¤Ë¤ÏÅÅή¤¬Î®¤ì¤Æ¤¤¤ë¡£\n");
3075 #else
3076                         fprintf(OutFile, " Electricity is running through your veins.\n");
3077 #endif
3078
3079                 }
3080                 if (p_ptr->muta3 & MUT3_FIRE_BODY)
3081                 {
3082 #ifdef JP
3083 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÂΤϱê¤Ë¤Ä¤Ä¤Þ¤ì¤Æ¤¤¤ë¡£\n");
3084 #else
3085                         fprintf(OutFile, " Your body is enveloped in flames.\n");
3086 #endif
3087
3088                 }
3089                 if (p_ptr->muta3 & MUT3_WART_SKIN)
3090                 {
3091 #ifdef JP
3092 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÈ©¤Ï¥¤¥Ü¤ËÈï¤ï¤ì¤Æ¤¤¤ë¡£(Ì¥ÎÏ-2, AC+5)\n");
3093 #else
3094                         fprintf(OutFile, " Your skin is covered with warts (-2 CHR, +5 AC).\n");
3095 #endif
3096
3097                 }
3098                 if (p_ptr->muta3 & MUT3_SCALES)
3099                 {
3100 #ifdef JP
3101 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÈ©¤ÏÎڤˤʤäƤ¤¤ë¡£(Ì¥ÎÏ-1, AC+10)\n");
3102 #else
3103                         fprintf(OutFile, " Your skin has turned into scales (-1 CHR, +10 AC).\n");
3104 #endif
3105
3106                 }
3107                 if (p_ptr->muta3 & MUT3_IRON_SKIN)
3108                 {
3109 #ifdef JP
3110 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÈ©¤ÏÅ´¤Ç¤Ç¤­¤Æ¤¤¤ë¡£(´ïÍÑ-1, AC+25)\n");
3111 #else
3112                         fprintf(OutFile, " Your skin is made of steel (-1 DEX, +25 AC).\n");
3113 #endif
3114
3115                 }
3116                 if (p_ptr->muta3 & MUT3_WINGS)
3117                 {
3118 #ifdef JP
3119 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï±©¤ò»ý¤Ã¤Æ¤¤¤ë¡£\n");
3120 #else
3121                         fprintf(OutFile, " You have wings.\n");
3122 #endif
3123
3124                 }
3125                 if (p_ptr->muta3 & MUT3_FEARLESS)
3126                 {
3127 #ifdef JP
3128 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÁ´¤¯¶²Éݤò´¶¤¸¤Ê¤¤¡£\n");
3129 #else
3130                         fprintf(OutFile, " You are completely fearless.\n");
3131 #endif
3132
3133                 }
3134                 if (p_ptr->muta3 & MUT3_REGEN)
3135                 {
3136 #ifdef JP
3137 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏµÞ®¤Ë²óÉü¤¹¤ë¡£\n");
3138 #else
3139                         fprintf(OutFile, " You are regenerating.\n");
3140 #endif
3141
3142                 }
3143                 if (p_ptr->muta3 & MUT3_ESP)
3144                 {
3145 #ifdef JP
3146 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¥Æ¥ì¥Ñ¥·¡¼¤ò»ý¤Ã¤Æ¤¤¤ë¡£\n");
3147 #else
3148                         fprintf(OutFile, " You are telepathic.\n");
3149 #endif
3150
3151                 }
3152                 if (p_ptr->muta3 & MUT3_LIMBER)
3153                 {
3154 #ifdef JP
3155 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÂΤÏÈó¾ï¤Ë¤·¤Ê¤ä¤«¤À¡£(´ïÍÑ+3)\n");
3156 #else
3157                         fprintf(OutFile, " Your body is very limber (+3 DEX).\n");
3158 #endif
3159
3160                 }
3161                 if (p_ptr->muta3 & MUT3_ARTHRITIS)
3162                 {
3163 #ifdef JP
3164 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¤¤¤Ä¤â´ØÀá¤ËÄˤߤò´¶¤¸¤Æ¤¤¤ë¡£(´ïÍÑ-3)\n");
3165 #else
3166                         fprintf(OutFile, " Your joints ache constantly (-3 DEX).\n");
3167 #endif
3168
3169                 }
3170                 if (p_ptr->muta3 & MUT3_VULN_ELEM)
3171                 {
3172 #ifdef JP
3173 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¸µÁǤι¶·â¤Ë¼å¤¤¡£\n");
3174 #else
3175                         fprintf(OutFile, " You are susceptible to damage from the elements.\n");
3176 #endif
3177
3178                 }
3179                 if (p_ptr->muta3 & MUT3_MOTION)
3180                 {
3181 #ifdef JP
3182 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÎÆ°ºî¤ÏÀµ³Î¤ÇÎ϶¯¤¤¡£(±£Ì©+1)\n");
3183 #else
3184                         fprintf(OutFile, " Your movements are precise and forceful (+1 STL).\n");
3185 #endif
3186
3187                 }
3188                 if (p_ptr->muta3 & MUT3_GOOD_LUCK)
3189                 {
3190 #ifdef JP
3191 fprintf(OutFile, " ¤¢¤Ê¤¿¤ÏÇò¤¤¥ª¡¼¥é¤Ë¤Ä¤Ä¤Þ¤ì¤Æ¤¤¤ë¡£\n");
3192 #else
3193                         fprintf(OutFile, " There is a white aura surrounding you.\n");
3194 #endif
3195
3196                 }
3197                 if (p_ptr->muta3 & MUT3_BAD_LUCK)
3198                 {
3199 #ifdef JP
3200 fprintf(OutFile, " ¤¢¤Ê¤¿¤Ï¹õ¤¤¥ª¡¼¥é¤Ë¤Ä¤Ä¤Þ¤ì¤Æ¤¤¤ë¡£\n");
3201 #else
3202                         fprintf(OutFile, " There is a black aura surrounding you.\n");
3203 #endif
3204
3205                 }
3206         }
3207 }
3208
3209
3210 /*
3211  * List mutations we have...
3212  */
3213 void do_cmd_knowledge_mutations(void)
3214 {
3215         FILE *fff;
3216         char file_name[1024];
3217
3218         /* Open a new file */
3219         fff = my_fopen_temp(file_name, 1024);
3220
3221         /* Dump the mutations to file */
3222         if (fff) dump_mutations(fff);
3223
3224         /* Close the file */
3225         my_fclose(fff);
3226
3227         /* Display the file contents */
3228 #ifdef JP
3229 show_file(TRUE, file_name, "ÆÍÁ³ÊÑ°Û", 0, 0);
3230 #else
3231         show_file(TRUE, file_name, "Mutations", 0, 0);
3232 #endif
3233
3234
3235         /* Remove the file */
3236         fd_kill(file_name);
3237 }
3238
3239
3240 int count_bits(u32b x)
3241 {
3242         int n = 0;
3243
3244         if (x) do
3245         {
3246                 n++;
3247         }
3248         while (0 != (x = x&(x-1)));
3249
3250         return (n);
3251 }
3252
3253
3254 static int count_mutations(void)
3255 {
3256         return (count_bits(p_ptr->muta1) +
3257                 count_bits(p_ptr->muta2) +
3258                 count_bits(p_ptr->muta3));
3259 }
3260
3261
3262 /*
3263  * Return the modifier to the regeneration rate
3264  * (in percent)
3265  */
3266 int calc_mutant_regenerate_mod(void)
3267 {
3268         int regen;
3269         int mod = 10;
3270         int count = count_mutations();
3271
3272         /*
3273          * Beastman get 10 "free" mutations and
3274          * only 5% decrease per additional mutation
3275          */
3276
3277         if (p_ptr->pseikaku == SEIKAKU_LUCKY) count--;
3278         if (p_ptr->prace == RACE_BEASTMAN)
3279         {
3280                 count -= 10;
3281                 mod = 5;
3282         }
3283
3284         /* No negative modifier */
3285         if (count <= 0) return 100;
3286
3287         regen = 100 - count * mod;
3288
3289         /* Max. 90% decrease in regeneration speed */
3290         if (regen < 10) regen = 10;
3291
3292         return (regen);
3293 }
3294
3295
3296 void mutation_power_aux(u32b power)
3297 {
3298         int     dir = 0;
3299         int     lvl = p_ptr->lev;
3300
3301
3302         switch (power)
3303         {
3304                 case MUT1_SPIT_ACID:
3305                         if (racial_aux(9, 9, A_DEX, 15))
3306                         {
3307 #ifdef JP
3308 msg_print("»À¤òÅǤ­¤«¤±¤¿...");
3309 #else
3310                                 msg_print("You spit acid...");
3311 #endif
3312
3313                                 if (get_aim_dir(&dir))
3314                                         fire_ball(GF_ACID, dir, lvl, 1 + (lvl / 30));
3315                         }
3316                         break;
3317
3318                 case MUT1_BR_FIRE:
3319                         if (racial_aux(20, lvl, A_CON, 18))
3320                         {
3321 #ifdef JP
3322 msg_print("¤¢¤Ê¤¿¤Ï²Ð±ê¤Î¥Ö¥ì¥¹¤òÅǤ¤¤¿...");
3323 #else
3324                                 msg_print("You breathe fire...");
3325 #endif
3326
3327                                 if (get_aim_dir(&dir))
3328                                         fire_ball(GF_FIRE, dir, lvl * 2, 1 + (lvl / 20));
3329                         }
3330                         break;
3331
3332                 case MUT1_HYPN_GAZE:
3333                         if (racial_aux(12, 12, A_CHR, 18))
3334                         {
3335 #ifdef JP
3336 msg_print("¤¢¤Ê¤¿¤ÎÌܤϸ¸ÏÇŪ¤Ë¤Ê¤Ã¤¿...");
3337 #else
3338                                 msg_print("Your eyes look mesmerizing...");
3339 #endif
3340
3341                                 if (get_aim_dir(&dir))
3342                                         (void)charm_monster(dir, lvl);
3343                         }
3344                         break;
3345
3346                 case MUT1_TELEKINES:
3347                         if (racial_aux(9, 9, A_WIS, 14))
3348                         {
3349 #ifdef JP
3350 msg_print("½¸Ã椷¤Æ¤¤¤ë...");
3351 #else
3352                                 msg_print("You concentrate...");
3353 #endif
3354
3355                                 if (get_aim_dir(&dir))
3356                                         fetch(dir, lvl * 10, TRUE);
3357                         }
3358                         break;
3359
3360                 case MUT1_VTELEPORT:
3361                         if (racial_aux(7, 7, A_WIS, 15))
3362                         {
3363 #ifdef JP
3364 msg_print("½¸Ã椷¤Æ¤¤¤ë...");
3365 #else
3366                                 msg_print("You concentrate...");
3367 #endif
3368
3369                                 teleport_player(10 + 4 * lvl);
3370                         }
3371                         break;
3372
3373                 case MUT1_MIND_BLST:
3374                         if (racial_aux(5, 3, A_WIS, 15))
3375                         {
3376 #ifdef JP
3377 msg_print("½¸Ã椷¤Æ¤¤¤ë...");
3378 #else
3379                                 msg_print("You concentrate...");
3380 #endif
3381
3382                                 if (!get_aim_dir(&dir)) return;
3383                                         fire_bolt(GF_PSI, dir, damroll(3 + ((lvl - 1) / 5), 3));
3384                         }
3385                         break;
3386
3387                 case MUT1_RADIATION:
3388                         if (racial_aux(15, 15, A_CON, 14))
3389                         {
3390 #ifdef JP
3391 msg_print("ÂΤ«¤éÊü¼Íǽ¤¬È¯À¸¤·¤¿¡ª");
3392 #else
3393                                 msg_print("Radiation flows from your body!");
3394 #endif
3395
3396                                 fire_ball(GF_NUKE, 0, (lvl * 2), 3 + (lvl / 20));
3397                         }
3398                         break;
3399
3400                 case MUT1_VAMPIRISM:
3401                         if (racial_aux(2, (1 + (lvl / 3)), A_CON, 9))
3402                         {
3403                                 int x, y, dummy;
3404                                 cave_type *c_ptr;
3405
3406                                 /* Only works on adjacent monsters */
3407                                 if (!get_rep_dir2(&dir)) break;
3408                                 y = py + ddy[dir];
3409                                 x = px + ddx[dir];
3410                                 c_ptr = &cave[y][x];
3411
3412                                 if (!(c_ptr->m_idx))
3413                                 {
3414 #ifdef JP
3415 msg_print("²¿¤â¤Ê¤¤¾ì½ê¤Ë³ú¤ß¤Ä¤¤¤¿¡ª");
3416 #else
3417                                         msg_print("You bite into thin air!");
3418 #endif
3419
3420                                         break;
3421                                 }
3422
3423 #ifdef JP
3424 msg_print("¤¢¤Ê¤¿¤Ï¥Ë¥ä¥ê¤È¤·¤Æ²ç¤ò¤à¤¤¤¿...");
3425 #else
3426                                 msg_print("You grin and bare your fangs...");
3427 #endif
3428
3429
3430                                 dummy = lvl * 2;
3431
3432                                 if (drain_life(dir, dummy))
3433                                 {
3434                                         if (p_ptr->food < PY_FOOD_FULL)
3435                                                 /* No heal if we are "full" */
3436                                                 (void)hp_player(dummy);
3437                                         else
3438 #ifdef JP
3439 msg_print("¤¢¤Ê¤¿¤Ï¶õÊ¢¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£");
3440 #else
3441                                                 msg_print("You were not hungry.");
3442 #endif
3443
3444                                                 /* Gain nutritional sustenance: 150/hp drained */
3445                                                 /* A Food ration gives 5000 food points (by contrast) */
3446                                                 /* Don't ever get more than "Full" this way */
3447                                                 /* But if we ARE Gorged,  it won't cure us */
3448                                                 dummy = p_ptr->food + MIN(5000, 100 * dummy);
3449                                         if (p_ptr->food < PY_FOOD_MAX)   /* Not gorged already */
3450                                                 (void)set_food(dummy >= PY_FOOD_MAX ? PY_FOOD_MAX-1 : dummy);
3451                                 }
3452                                 else
3453 #ifdef JP
3454 msg_print("¤²¤§¡ª¤Ò¤É¤¤Ì£¤À¡£");
3455 #else
3456                                         msg_print("Yechh. That tastes foul.");
3457 #endif
3458
3459                         }
3460                         break;
3461
3462                 case MUT1_SMELL_MET:
3463                         if (racial_aux(3, 2, A_INT, 12))
3464                         {
3465                                 (void)detect_treasure(DETECT_RAD_DEFAULT);
3466                         }
3467                         break;
3468
3469                 case MUT1_SMELL_MON:
3470                         if (racial_aux(5, 4, A_INT, 15))
3471                         {
3472                                 (void)detect_monsters_normal(DETECT_RAD_DEFAULT);
3473                         }
3474                         break;
3475
3476                 case MUT1_BLINK:
3477                         if (racial_aux(3, 3, A_WIS, 12))
3478                         {
3479                                 teleport_player(10);
3480                         }
3481                         break;
3482
3483                 case MUT1_EAT_ROCK:
3484                         if (racial_aux(8, 12, A_CON, 18))
3485                         {
3486                                 int x, y, ox, oy;
3487                                 cave_type *c_ptr;
3488
3489                                 if (!get_rep_dir2(&dir)) break;
3490                                 y = py + ddy[dir];
3491                                 x = px + ddx[dir];
3492                                 c_ptr = &cave[y][x];
3493                                 if (cave_floor_bold(y, x))
3494                                 {
3495 #ifdef JP
3496 msg_print("²¿¤â¤Ê¤¤¾ì½ê¤Ë³ú¤ß¤Ä¤¤¤¿¡ª");
3497 #else
3498                                         msg_print("You bite into thin air!");
3499 #endif
3500
3501                                         break;
3502                                 }
3503                                 else if (((c_ptr->feat >= FEAT_PERM_EXTRA) &&
3504                                         (c_ptr->feat <= FEAT_PERM_SOLID)) ||
3505                                         (c_ptr->feat == FEAT_MOUNTAIN))
3506                                 {
3507 #ifdef JP
3508 msg_print("¤¤¤Æ¤Ã¡ª¤³¤ÎÊɤϤ¢¤Ê¤¿¤Î»õ¤è¤ê¹Å¤¤¡ª");
3509 #else
3510                                         msg_print("Ouch!  This wall is harder than your teeth!");
3511 #endif
3512
3513                                         break;
3514                                 }
3515                                 else if (c_ptr->m_idx)
3516                                 {
3517 #ifdef JP
3518 msg_print("²¿¤«¤¬¼ÙË⤷¤Æ¤¤¤Þ¤¹¡ª");
3519 #else
3520                                         msg_print("There's something in the way!");
3521 #endif
3522
3523                                         break;
3524                                 }
3525                                 else if (c_ptr->feat == FEAT_TREES)
3526                                 {
3527 #ifdef JP
3528 msg_print("ÌڤϤ¢¤Þ¤êÈþÌ£¤·¤¯¤Ê¤¤¡ª");
3529 #else
3530                                         msg_print("You don't like the woody taste!");
3531 #endif
3532
3533                                         break;
3534                                 }
3535                                 else
3536                                 {
3537                                         if ((c_ptr->feat >= FEAT_DOOR_HEAD) &&
3538                                                 (c_ptr->feat <= FEAT_RUBBLE))
3539                                         {
3540                                                 (void)set_food(p_ptr->food + 3000);
3541                                         }
3542                                         else if ((c_ptr->feat >= FEAT_MAGMA) &&
3543                                                 (c_ptr->feat <= FEAT_QUARTZ_K))
3544                                         {
3545                                                 (void)set_food(p_ptr->food + 5000);
3546                                         }
3547                                         else
3548                                         {
3549 #ifdef JP
3550 msg_print("¤³¤Î²ÖÖ¾´ä¤Ï¤È¤Æ¤â¤ª¤¤¤·¤¤¡ª");
3551 #else
3552                                                 msg_print("This granite is very filling!");
3553 #endif
3554
3555                                                 (void)set_food(p_ptr->food + 10000);
3556                                         }
3557                                 }
3558                                 (void)wall_to_mud(dir);
3559
3560                                 oy = py;
3561                                 ox = px;
3562
3563                                 py = y;
3564                                 px = x;
3565
3566                                 if (p_ptr->riding)
3567                                 {
3568                                         m_list[p_ptr->riding].fy = py;
3569                                         m_list[p_ptr->riding].fx = px;
3570                                         cave[py][px].m_idx = p_ptr->riding;
3571                                         cave[oy][ox].m_idx = 0;
3572                                         update_mon(cave[py][px].m_idx, TRUE);
3573                                 }
3574
3575                                 lite_spot(py, px);
3576                                 lite_spot(oy, ox);
3577
3578                                 verify_panel();
3579
3580                                 p_ptr->update |= (PU_VIEW | PU_LITE | PU_FLOW | PU_MON_LITE);
3581                                 p_ptr->update |= (PU_DISTANCE);
3582                                 p_ptr->window |= (PW_OVERHEAD | PW_DUNGEON);
3583                         }
3584                         break;
3585
3586                 case MUT1_SWAP_POS:
3587                         if (racial_aux(15, 12, A_DEX, 16))
3588                         {
3589                                 project_length = -1;
3590                                 if (get_aim_dir(&dir))
3591                                         (void)teleport_swap(dir);
3592                                 project_length = 0;
3593                         }
3594                         break;
3595
3596                 case MUT1_SHRIEK:
3597                         if (racial_aux(20, 14, A_CON, 16))
3598                         {
3599                                 (void)fire_ball(GF_SOUND, 0, 2 * lvl, 8);
3600                                 (void)aggravate_monsters(0);
3601                         }
3602                         break;
3603
3604                 case MUT1_ILLUMINE:
3605                         if (racial_aux(3, 2, A_INT, 10))
3606                         {
3607                                 (void)lite_area(damroll(2, (lvl / 2)), (lvl / 10) + 1);
3608                         }
3609                         break;
3610
3611                 case MUT1_DET_CURSE:
3612                         if (racial_aux(7, 14, A_WIS, 14))
3613                         {
3614                                 int i;
3615
3616                                 for (i = 0; i < INVEN_TOTAL; i++)
3617                                 {
3618                                         object_type *o_ptr = &inventory[i];
3619
3620                                         if (!o_ptr->k_idx) continue;
3621                                         if (!cursed_p(o_ptr)) continue;
3622
3623                                         o_ptr->feeling = FEEL_CURSED;
3624                                 }
3625                         }
3626                         break;
3627
3628                 case MUT1_BERSERK:
3629                         if (racial_aux(8, 8, A_STR, 14))
3630                         {
3631                                 (void)set_shero(randint(25) + 25, FALSE);
3632                                 (void)hp_player(30);
3633                                 (void)set_afraid(0);
3634                         }
3635                         break;
3636
3637                 case MUT1_POLYMORPH:
3638                         if (racial_aux(18, 20, A_CON, 18))
3639                         {
3640                                 if (!get_check("ÊѿȤ·¤Þ¤¹¡£¤è¤í¤·¤¤¤Ç¤¹¤«¡©")) return;
3641                                 do_poly_self();
3642                         }
3643                         break;
3644
3645                 case MUT1_MIDAS_TCH:
3646                         if (racial_aux(10, 5, A_INT, 12))
3647                         {
3648                                 (void)alchemy();
3649                         }
3650                         break;
3651
3652                 /* Summon pet molds around the player */
3653                 case MUT1_GROW_MOLD:
3654                         if (racial_aux(1, 6, A_CON, 14))
3655                         {
3656                                 int i;
3657                                 for (i = 0; i < 8; i++)
3658                                 {
3659                                         summon_specific(-1, py, px, lvl, SUMMON_BIZARRE1, FALSE, TRUE, TRUE, FALSE, FALSE);
3660                                 }
3661                         }
3662                         break;
3663
3664                 case MUT1_RESIST:
3665                         if (racial_aux(10, 12, A_CON, 12))
3666                         {
3667                                 int num = lvl / 10;
3668                                 int dur = randint(20) + 20;
3669
3670                                 if (rand_int(5) < num)
3671                                 {
3672                                         (void)set_oppose_acid(dur, FALSE);
3673                                         num--;
3674                                 }
3675                                 if (rand_int(4) < num)
3676                                 {
3677                                         (void)set_oppose_elec(dur, FALSE);
3678                                         num--;
3679                                 }
3680                                 if (rand_int(3) < num)
3681                                 {
3682                                         (void)set_oppose_fire(dur, FALSE);
3683                                         num--;
3684                                 }
3685                                 if (rand_int(2) < num)
3686                                 {
3687                                         (void)set_oppose_cold(dur, FALSE);
3688                                         num--;
3689                                 }
3690                                 if (num)
3691                                 {
3692                                         (void)set_oppose_pois(dur, FALSE);
3693                                         num--;
3694                                 }
3695                         }
3696                         break;
3697
3698                 case MUT1_EARTHQUAKE:
3699                         if (racial_aux(12, 12, A_STR, 16))
3700                         {
3701                                 earthquake(py, px, 10);
3702                         }
3703                         break;
3704
3705                 case MUT1_EAT_MAGIC:
3706                         if (racial_aux(17, 1, A_WIS, 15))
3707                         {
3708                                 eat_magic(p_ptr->lev * 2);
3709                         }
3710                         break;
3711
3712                 case MUT1_WEIGH_MAG:
3713                         if (racial_aux(6, 6, A_INT, 10))
3714                         {
3715                                 report_magics();
3716                         }
3717                         break;
3718
3719                 case MUT1_STERILITY:
3720                         if (racial_aux(12, 23, A_CHR, 15))
3721                         {
3722                                 /* Fake a population explosion. */
3723 #ifdef JP
3724 msg_print("ÆÍÁ³Æ¬¤¬Äˤ¯¤Ê¤Ã¤¿¡ª");
3725 take_hit(DAMAGE_LOSELIFE, randint(17) + 17, "¶ØÍߤò¶¯¤¤¤¿ÈèÏ«", -1);
3726 #else
3727                                 msg_print("You suddenly have a headache!");
3728                                 take_hit(DAMAGE_LOSELIFE, randint(17) + 17, "the strain of forcing abstinence", -1);
3729 #endif
3730
3731                                 num_repro += MAX_REPRO;
3732                         }
3733                         break;
3734
3735                 case MUT1_PANIC_HIT:
3736                         if (racial_aux(10, 12, A_DEX, 14))
3737                         {
3738                                 int x, y;
3739
3740                                 if (!get_rep_dir2(&dir)) return;
3741                                 y = py + ddy[dir];
3742                                 x = px + ddx[dir];
3743                                 if (cave[y][x].m_idx)
3744                                 {
3745                                         py_attack(y, x, 0);
3746                                         if (rand_int(p_ptr->skill_dis) < 7)
3747 #ifdef JP
3748 msg_print("¤¦¤Þ¤¯Æ¨¤²¤é¤ì¤Ê¤«¤Ã¤¿¡£");
3749 #else
3750                                                 msg_print("You failed to teleport.");
3751 #endif
3752                                         else teleport_player(30);
3753                                 }
3754                                 else
3755                                 {
3756 #ifdef JP
3757 msg_print("¤½¤ÎÊý¸þ¤Ë¤Ï¥â¥ó¥¹¥¿¡¼¤Ï¤¤¤Þ¤»¤ó¡£");
3758 #else
3759                                         msg_print("You don't see any monster in this direction");
3760 #endif
3761
3762                                         msg_print(NULL);
3763                                 }
3764                         }
3765                         break;
3766
3767                 case MUT1_DAZZLE:
3768                         if (racial_aux(7, 15, A_CHR, 8))
3769                         {
3770                                 stun_monsters(lvl * 4);
3771                                 confuse_monsters(lvl * 4);
3772                                 turn_monsters(lvl * 4);
3773                         }
3774                         break;
3775
3776                 case MUT1_LASER_EYE:
3777                         if (racial_aux(7, 10, A_WIS, 9))
3778                         {
3779                                 if (get_aim_dir(&dir))
3780                                         fire_beam(GF_LITE, dir, 2 * lvl);
3781                         }
3782                         break;
3783
3784                 case MUT1_RECALL:
3785                         if (racial_aux(17, 50, A_INT, 16))
3786                         {
3787                                 (void)word_of_recall();
3788                         }
3789                         break;
3790
3791                 case MUT1_BANISH:
3792                         if (racial_aux(25, 25, A_WIS, 18))
3793                         {
3794                                 int x, y;
3795                                 cave_type *c_ptr;
3796                                 monster_type *m_ptr;
3797                                 monster_race *r_ptr;
3798
3799                                 if (!get_rep_dir2(&dir)) return;
3800                                 y = py + ddy[dir];
3801                                 x = px + ddx[dir];
3802                                 c_ptr = &cave[y][x];
3803
3804                                 if (!c_ptr->m_idx)
3805                                 {
3806 #ifdef JP
3807 msg_print("¼Ù°­¤Ê¸ºß¤ò´¶¤¸¤È¤ì¤Þ¤»¤ó¡ª");
3808 #else
3809                                         msg_print("You sense no evil there!");
3810 #endif
3811
3812                                         break;
3813                                 }
3814
3815                                 m_ptr = &m_list[c_ptr->m_idx];
3816                                 r_ptr = &r_info[m_ptr->r_idx];
3817
3818                                 if ((r_ptr->flags3 & RF3_EVIL) &&
3819                                     !(r_ptr->flags1 & RF1_QUESTOR) &&
3820                                     !(r_ptr->flags1 & RF1_UNIQUE) &&
3821                                     !p_ptr->inside_arena && !p_ptr->inside_quest &&
3822                                         (r_ptr->level < randint(p_ptr->lev+50)) &&
3823                                         !(m_ptr->mflag2 & MFLAG_NOGENO))
3824                                 {
3825                                         /* Delete the monster, rather than killing it. */
3826                                         delete_monster_idx(c_ptr->m_idx);
3827 #ifdef JP
3828 msg_print("¤½¤Î¼Ù°­¤Ê¥â¥ó¥¹¥¿¡¼¤Ïⲫ½­¤¤±ì¤È¤È¤â¤Ë¾Ã¤¨µî¤Ã¤¿¡ª");
3829 #else
3830                                         msg_print("The evil creature vanishes in a puff of sulfurous smoke!");
3831 #endif
3832
3833                                 }
3834                                 else
3835                                 {
3836 #ifdef JP
3837 msg_print("µ§¤ê¤Ï¸ú²Ì¤¬¤Ê¤«¤Ã¤¿¡ª");
3838 #else
3839                                         msg_print("Your invocation is ineffectual!");
3840 #endif
3841
3842                                         if (one_in_(13)) m_ptr->mflag2 |= MFLAG_NOGENO;
3843                                 }
3844                         }
3845                         break;
3846
3847                 case MUT1_COLD_TOUCH:
3848                         if (racial_aux(2, 2, A_CON, 11))
3849                         {
3850                                 int x, y;
3851                                 cave_type *c_ptr;
3852
3853                                 if (!get_rep_dir2(&dir)) return;
3854                                 y = py + ddy[dir];
3855                                 x = px + ddx[dir];
3856                                 c_ptr = &cave[y][x];
3857
3858                                 if (!c_ptr->m_idx)
3859                                 {
3860 #ifdef JP
3861 msg_print("¤¢¤Ê¤¿¤Ï²¿¤â¤Ê¤¤¾ì½ê¤Ç¼ê¤ò¿¶¤Ã¤¿¡£");
3862 #else
3863                                         msg_print("You wave your hands in the air.");
3864 #endif
3865
3866                                         break;
3867                                 }
3868                                 fire_bolt(GF_COLD, dir, 2 * lvl);
3869                         }
3870                         break;
3871
3872                 /* XXX_XXX_XXX Hack!  MUT1_LAUNCHER is negative, see above */
3873                 case 3: /* MUT1_LAUNCHER */
3874                         if (racial_aux(1, lvl, A_STR, 6))
3875                         {
3876                                 /* Gives a multiplier of 2 at first, up to 3 at 40th */
3877                                 do_cmd_throw_aux(2 + lvl / 40, FALSE, 0);
3878                         }
3879                         break;
3880
3881                 default:
3882                         energy_use = 0;
3883 #ifdef JP
3884 msg_format("ǽÎÏ %s ¤Ï¼ÂÁõ¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£", power);
3885 #else
3886                         msg_format("Power %s not implemented. Oops.", power);
3887 #endif
3888
3889         }
3890 }
変愚蛮怒のメインリポジトリです
About OSDN
Find Software
Develop Software
Help