?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Angband 3.0.9b.
[angband.git] / src / melee1.c
blobdb9757370ea26770f6635cb5af3d2f53f6358f96
1 /* File: melee1.c */
2
3 /*
4 * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke
5 *
6 * This software may be copied and distributed for educational, research,
7 * and not for profit purposes provided that this copyright and statement
8 * are included in all such copies. Other copyrights may also apply.
9 */
10
11 #include "angband.h"
12
13
14
15 /*
16 * Critical blow. All hits that do 95% of total possible damage,
17 * and which also do at least 20 damage, or, sometimes, N damage.
18 * This is used only to determine "cuts" and "stuns".
19 */
20 static int monster_critical(int dice, int sides, int dam)
21 {
22 int max = 0;
23 int total = dice * sides;
24
25 /* Must do at least 95% of perfect */
26 if (dam < total * 19 / 20) return (0);
27
28 /* Weak blows rarely work */
29 if ((dam < 20) && (rand_int(100) >= dam)) return (0);
30
31 /* Perfect damage */
32 if (dam == total) max++;
33
34 /* Super-charge */
35 if (dam >= 20)
36 {
37 while (rand_int(100) < 2) max++;
38 }
39
40 /* Critical damage */
41 if (dam > 45) return (6 + max);
42 if (dam > 33) return (5 + max);
43 if (dam > 25) return (4 + max);
44 if (dam > 18) return (3 + max);
45 if (dam > 11) return (2 + max);
46 return (1 + max);
47 }
48
49
50
51
52
53 /*
54 * Determine if a monster attack against the player succeeds.
55 */
56 static bool check_hit(int power, int level)
57 {
58 int chance, ac;
59
60 /* Calculate the "attack quality" */
61 chance = (power + (level * 3));
62
63 /* Total armor */
64 ac = p_ptr->ac + p_ptr->to_a;
65
66 /* Check if the player was hit */
67 return test_hit(chance, ac, TRUE);
68 }
69
70
71 #define MAX_DESC_INSULT 8
72
73
74 /*
75 * Hack -- possible "insult" messages
76 */
77 static cptr desc_insult[MAX_DESC_INSULT] =
78 {
79 "insults you!",
80 "insults your mother!",
81 "gives you the finger!",
82 "humiliates you!",
83 "defiles you!",
84 "dances around you!",
85 "makes obscene gestures!",
86 "moons you!!!"
87 };
88
89
90 #define MAX_DESC_MOAN 8
91
92
93 /*
94 * Hack -- possible "insult" messages
95 */
96 static cptr desc_moan[MAX_DESC_MOAN] =
97 {
98 "wants his mushrooms back.",
99 "tells you to get off his land.",
100 "looks for his dogs. ",
101 "says 'Did you kill my Fang?' ",
102 "asks 'Do you want to buy any mushrooms?' ",
103 "seems sad about something.",
104 "asks if you have seen his dogs.",
105 "mumbles something about mushrooms."
106 };
107
108
109 /*
110 * Attack the player via physical attacks.
111 */
112 bool make_attack_normal(int m_idx)
113 {
114 monster_type *m_ptr = &mon_list[m_idx];
115
116 monster_race *r_ptr = &r_info[m_ptr->r_idx];
117
118 monster_lore *l_ptr = &l_list[m_ptr->r_idx];
119
120 int ap_cnt;
121
122 int i, k, tmp, ac, rlev;
123 int do_cut, do_stun;
124
125 s32b gold;
126
127 object_type *o_ptr;
128
129 char o_name[80];
130
131 char m_name[80];
132
133 char ddesc[80];
134
135 bool blinked;
136
137 int sound_msg;
138
139
140 /* Not allowed to attack */
141 if (r_ptr->flags1 & (RF1_NEVER_BLOW)) return (FALSE);
142
143
144 /* Total armor */
145 ac = p_ptr->ac + p_ptr->to_a;
146
147 /* Extract the effective monster level */
148 rlev = ((r_ptr->level >= 1) ? r_ptr->level : 1);
149
150
151 /* Get the monster name (or "it") */
152 monster_desc(m_name, sizeof(m_name), m_ptr, 0);
153
154 /* Get the "died from" information (i.e. "a kobold") */
155 monster_desc(ddesc, sizeof(ddesc), m_ptr, 0x88);
156
157
158 /* Assume no blink */
159 blinked = FALSE;
160
161 /* Scan through all blows */
162 for (ap_cnt = 0; ap_cnt < MONSTER_BLOW_MAX; ap_cnt++)
163 {
164 bool visible = FALSE;
165 bool obvious = FALSE;
166 bool do_break = FALSE;
167
168 int power = 0;
169 int damage = 0;
170
171 cptr act = NULL;
172
173 /* Extract the attack infomation */
174 int effect = r_ptr->blow[ap_cnt].effect;
175 int method = r_ptr->blow[ap_cnt].method;
176 int d_dice = r_ptr->blow[ap_cnt].d_dice;
177 int d_side = r_ptr->blow[ap_cnt].d_side;
178
179
180 /* Hack -- no more attacks */
181 if (!method) break;
182
183
184 /* Handle "leaving" */
185 if (p_ptr->leaving) break;
186
187
188 /* Extract visibility (before blink) */
189 if (m_ptr->ml) visible = TRUE;
190
191
192
193 /* Extract the attack "power" */
194 switch (effect)
195 {
196 case RBE_HURT: power = 60; break;
197 case RBE_POISON: power = 5; break;
198 case RBE_UN_BONUS: power = 20; break;
199 case RBE_UN_POWER: power = 15; break;
200 case RBE_EAT_GOLD: power = 5; break;
201 case RBE_EAT_ITEM: power = 5; break;
202 case RBE_EAT_FOOD: power = 5; break;
203 case RBE_EAT_LITE: power = 5; break;
204 case RBE_ACID: power = 0; break;
205 case RBE_ELEC: power = 10; break;
206 case RBE_FIRE: power = 10; break;
207 case RBE_COLD: power = 10; break;
208 case RBE_BLIND: power = 2; break;
209 case RBE_CONFUSE: power = 10; break;
210 case RBE_TERRIFY: power = 10; break;
211 case RBE_PARALYZE: power = 2; break;
212 case RBE_LOSE_STR: power = 0; break;
213 case RBE_LOSE_DEX: power = 0; break;
214 case RBE_LOSE_CON: power = 0; break;
215 case RBE_LOSE_INT: power = 0; break;
216 case RBE_LOSE_WIS: power = 0; break;
217 case RBE_LOSE_CHR: power = 0; break;
218 case RBE_LOSE_ALL: power = 2; break;
219 case RBE_SHATTER: power = 60; break;
220 case RBE_EXP_10: power = 5; break;
221 case RBE_EXP_20: power = 5; break;
222 case RBE_EXP_40: power = 5; break;
223 case RBE_EXP_80: power = 5; break;
224 case RBE_HALLU: power = 10; break;
225 }
226
227
228 /* Monster hits player */
229 if (!effect || check_hit(power, rlev))
230 {
231 /* Always disturbing */
232 disturb(1, 0);
233
234
235 /* Hack -- Apply "protection from evil" */
236 if ((p_ptr->timed[TMD_PROTEVIL] > 0) &&
237 (r_ptr->flags3 & (RF3_EVIL)) &&
238 (p_ptr->lev >= rlev) &&
239 ((rand_int(100) + p_ptr->lev) > 50))
240 {
241 /* Remember the Evil-ness */
242 if (m_ptr->ml)
243 {
244 l_ptr->flags3 |= (RF3_EVIL);
245 }
246
247 /* Message */
248 msg_format("%^s is repelled.", m_name);
249
250 /* Hack -- Next attack */
251 continue;
252 }
253
254
255 /* Assume no cut or stun */
256 do_cut = do_stun = 0;
257
258 /* Assume no sound */
259 sound_msg = MSG_GENERIC;
260
261 /* Describe the attack method */
262 switch (method)
263 {
264 case RBM_HIT:
265 {
266 act = "hits you.";
267 do_cut = do_stun = 1;
268 sound_msg = MSG_MON_HIT;
269 break;
270 }
271
272 case RBM_TOUCH:
273 {
274 act = "touches you.";
275 sound_msg = MSG_MON_TOUCH;
276 break;
277 }
278
279 case RBM_PUNCH:
280 {
281 act = "punches you.";
282 do_stun = 1;
283 sound_msg = MSG_MON_PUNCH;
284 break;
285 }
286
287 case RBM_KICK:
288 {
289 act = "kicks you.";
290 do_stun = 1;
291 sound_msg = MSG_MON_KICK;
292 break;
293 }
294
295 case RBM_CLAW:
296 {
297 act = "claws you.";
298 do_cut = 1;
299 sound_msg = MSG_MON_CLAW;
300 break;
301 }
302
303 case RBM_BITE:
304 {
305 act = "bites you.";
306 do_cut = 1;
307 sound_msg = MSG_MON_BITE;
308 break;
309 }
310
311 case RBM_STING:
312 {
313 act = "stings you.";
314 sound_msg = MSG_MON_STING;
315 break;
316 }
317
318 case RBM_XXX1:
319 {
320 act = "XXX1's you.";
321 break;
322 }
323
324 case RBM_BUTT:
325 {
326 act = "butts you.";
327 do_stun = 1;
328 sound_msg = MSG_MON_BUTT;
329 break;
330 }
331
332 case RBM_CRUSH:
333 {
334 act = "crushes you.";
335 do_stun = 1;
336 sound_msg = MSG_MON_CRUSH;
337 break;
338 }
339
340 case RBM_ENGULF:
341 {
342 act = "engulfs you.";
343 sound_msg = MSG_MON_ENGULF;
344 break;
345 }
346
347 case RBM_XXX2:
348 {
349 act = "XXX2's you.";
350 break;
351 }
352
353 case RBM_CRAWL:
354 {
355 act = "crawls on you.";
356 sound_msg = MSG_MON_CRAWL;
357 break;
358 }
359
360 case RBM_DROOL:
361 {
362 act = "drools on you.";
363 sound_msg = MSG_MON_DROOL;
364 break;
365 }
366
367 case RBM_SPIT:
368 {
369 act = "spits on you.";
370 sound_msg = MSG_MON_SPIT;
371 break;
372 }
373
374 case RBM_XXX3:
375 {
376 act = "XXX3's on you.";
377 break;
378 }
379
380 case RBM_GAZE:
381 {
382 act = "gazes at you.";
383 sound_msg = MSG_MON_GAZE;
384 break;
385 }
386
387 case RBM_WAIL:
388 {
389 act = "wails at you.";
390 sound_msg = MSG_MON_WAIL;
391 break;
392 }
393
394 case RBM_SPORE:
395 {
396 act = "releases spores at you.";
397 sound_msg = MSG_MON_SPORE;
398 break;
399 }
400
401 case RBM_XXX4:
402 {
403 act = "projects XXX4's at you.";
404 break;
405 }
406
407 case RBM_BEG:
408 {
409 act = "begs you for money.";
410 sound_msg = MSG_MON_BEG;
411 break;
412 }
413
414 case RBM_INSULT:
415 {
416 act = desc_insult[rand_int(MAX_DESC_INSULT)];
417 sound_msg = MSG_MON_INSULT;
418 break;
419 }
420
421 case RBM_MOAN:
422 {
423 act = desc_moan[rand_int(MAX_DESC_MOAN)];
424 sound_msg = MSG_MON_MOAN;
425 break;
426 }
427
428 case RBM_XXX5:
429 {
430 act = "XXX5's you.";
431 break;
432 }
433 }
434
435 /* Message */
436 if (act) message_format(sound_msg, 0, "%^s %s", m_name, act);
437
438
439 /* Hack -- assume all attacks are obvious */
440 obvious = TRUE;
441
442 /* Roll out the damage */
443 damage = damroll(d_dice, d_side);
444
445 /* Apply appropriate damage */
446 switch (effect)
447 {
448 case 0:
449 {
450 /* Hack -- Assume obvious */
451 obvious = TRUE;
452
453 /* Hack -- No damage */
454 damage = 0;
455
456 break;
457 }
458
459 case RBE_HURT:
460 {
461 /* Obvious */
462 obvious = TRUE;
463
464 /* Hack -- Player armor reduces total damage */
465 damage -= (damage * ((ac < 150) ? ac : 150) / 250);
466
467 /* Take damage */
468 take_hit(damage, ddesc);
469
470 break;
471 }
472
473 case RBE_POISON:
474 {
475 /* Take damage */
476 take_hit(damage, ddesc);
477
478 /* Take "poison" effect */
479 if (!(p_ptr->resist_pois || p_ptr->timed[TMD_OPP_POIS]))
480 {
481 if (inc_timed(TMD_POISONED, randint(rlev) + 5))
482 {
483 obvious = TRUE;
484 }
485 }
486
487 /* Learn about the player */
488 update_smart_learn(m_idx, DRS_RES_POIS);
489
490 break;
491 }
492
493 case RBE_UN_BONUS:
494 {
495 /* Take damage */
496 take_hit(damage, ddesc);
497
498 /* Allow complete resist */
499 if (!p_ptr->resist_disen)
500 {
501 /* Apply disenchantment */
502 if (apply_disenchant(0)) obvious = TRUE;
503 }
504
505 /* Learn about the player */
506 update_smart_learn(m_idx, DRS_RES_DISEN);
507
508 break;
509 }
510
511 case RBE_UN_POWER:
512 {
513 int drained = 0;
514
515 /* Take damage */
516 take_hit(damage, ddesc);
517
518 /* Find an item */
519 for (k = 0; k < 10; k++)
520 {
521 /* Pick an item */
522 i = rand_int(INVEN_PACK);
523
524 /* Obtain the item */
525 o_ptr = &inventory[i];
526
527 /* Skip non-objects */
528 if (!o_ptr->k_idx) continue;
529
530 /* Drain charged wands/staves */
531 if ((o_ptr->tval == TV_STAFF) ||
532 (o_ptr->tval == TV_WAND))
533 {
534 /* Charged? */
535 if (o_ptr->pval)
536 {
537 drained = o_ptr->pval;
538
539 /* Uncharge */
540 o_ptr->pval = 0;
541 }
542 }
543
544 if (drained)
545 {
546 int heal = rlev * drained;
547
548 msg_print("Energy drains from your pack!");
549
550 obvious = TRUE;
551
552 /* Don't heal more than max hp */
553 heal = MIN(heal, m_ptr->maxhp - m_ptr->hp);
554
555 /* Heal */
556 m_ptr->hp += heal;
557
558 /* Redraw (later) if needed */
559 if (p_ptr->health_who == m_idx)
560 p_ptr->redraw |= (PR_HEALTH);
561
562 /* Combine / Reorder the pack */
563 p_ptr->notice |= (PN_COMBINE | PN_REORDER);
564
565 /* Window stuff */
566 p_ptr->window |= (PW_INVEN);
567
568 /* Affect only a single inventory slot */
569 break;
570 }
571 }
572
573 break;
574 }
575
576 case RBE_EAT_GOLD:
577 {
578 /* Take damage */
579 take_hit(damage, ddesc);
580
581 /* Obvious */
582 obvious = TRUE;
583
584 /* Saving throw (unless paralyzed) based on dex and level */
585 if (!p_ptr->timed[TMD_PARALYZED] &&
586 (rand_int(100) < (adj_dex_safe[p_ptr->stat_ind[A_DEX]] +
587 p_ptr->lev)))
588 {
589 /* Saving throw message */
590 msg_print("You quickly protect your money pouch!");
591
592 /* Occasional blink anyway */
593 if (rand_int(3)) blinked = TRUE;
594 }
595
596 /* Eat gold */
597 else
598 {
599 gold = (p_ptr->au / 10) + randint(25);
600 if (gold < 2) gold = 2;
601 if (gold > 5000) gold = (p_ptr->au / 20) + randint(3000);
602 if (gold > p_ptr->au) gold = p_ptr->au;
603 p_ptr->au -= gold;
604 if (gold <= 0)
605 {
606 msg_print("Nothing was stolen.");
607 }
608 else if (p_ptr->au)
609 {
610 msg_print("Your purse feels lighter.");
611 msg_format("%ld coins were stolen!", (long)gold);
612 }
613 else
614 {
615 msg_print("Your purse feels lighter.");
616 msg_print("All of your coins were stolen!");
617 }
618
619 /* Redraw gold */
620 p_ptr->redraw |= (PR_GOLD);
621
622 /* Window stuff */
623 p_ptr->window |= (PW_PLAYER_0 | PW_PLAYER_1);
624
625 /* Blink away */
626 blinked = TRUE;
627 }
628
629 break;
630 }
631
632 case RBE_EAT_ITEM:
633 {
634 /* Take damage */
635 take_hit(damage, ddesc);
636
637 /* Saving throw (unless paralyzed) based on dex and level */
638 if (!p_ptr->timed[TMD_PARALYZED] &&
639 (rand_int(100) < (adj_dex_safe[p_ptr->stat_ind[A_DEX]] +
640 p_ptr->lev)))
641 {
642 /* Saving throw message */
643 msg_print("You grab hold of your backpack!");
644
645 /* Occasional "blink" anyway */
646 blinked = TRUE;
647
648 /* Obvious */
649 obvious = TRUE;
650
651 /* Done */
652 break;
653 }
654
655 /* Find an item */
656 for (k = 0; k < 10; k++)
657 {
658 object_type *i_ptr;
659 object_type object_type_body;
660
661 /* Pick an item */
662 i = rand_int(INVEN_PACK);
663
664 /* Obtain the item */
665 o_ptr = &inventory[i];
666
667 /* Skip non-objects */
668 if (!o_ptr->k_idx) continue;
669
670 /* Skip artifacts */
671 if (artifact_p(o_ptr)) continue;
672
673 /* Get a description */
674 object_desc(o_name, sizeof(o_name), o_ptr, FALSE, 3);
675
676 /* Message */
677 msg_format("%sour %s (%c) was stolen!",
678 ((o_ptr->number > 1) ? "One of y" : "Y"),
679 o_name, index_to_label(i));
680
681 /* Get local object */
682 i_ptr = &object_type_body;
683
684 /* Obtain local object */
685 object_copy(i_ptr, o_ptr);
686
687 /* Modify number */
688 i_ptr->number = 1;
689
690 /* Hack -- If a rod, staff, or wand, allocate total
691 * maximum timeouts or charges between those
692 * stolen and those missed. -LM-
693 */
694 distribute_charges(o_ptr, i_ptr, 1);
695
696 /* Carry the object */
697 (void)monster_carry(m_idx, i_ptr);
698
699 /* Steal the items */
700 inven_item_increase(i, -1);
701 inven_item_optimize(i);
702
703 /* Obvious */
704 obvious = TRUE;
705
706 /* Blink away */
707 blinked = TRUE;
708
709 /* Done */
710 break;
711 }
712
713 break;
714 }
715
716 case RBE_EAT_FOOD:
717 {
718 /* Take damage */
719 take_hit(damage, ddesc);
720
721 /* Steal some food */
722 for (k = 0; k < 10; k++)
723 {
724 /* Pick an item from the pack */
725 i = rand_int(INVEN_PACK);
726
727 /* Get the item */
728 o_ptr = &inventory[i];
729
730 /* Skip non-objects */
731 if (!o_ptr->k_idx) continue;
732
733 /* Skip non-food objects */
734 if (o_ptr->tval != TV_FOOD) continue;
735
736 /* Get a description */
737 object_desc(o_name, sizeof(o_name), o_ptr, FALSE, 0);
738
739 /* Message */
740 msg_format("%sour %s (%c) was eaten!",
741 ((o_ptr->number > 1) ? "One of y" : "Y"),
742 o_name, index_to_label(i));
743
744 /* Steal the items */
745 inven_item_increase(i, -1);
746 inven_item_optimize(i);
747
748 /* Obvious */
749 obvious = TRUE;
750
751 /* Done */
752 break;
753 }
754
755 break;
756 }
757
758 case RBE_EAT_LITE:
759 {
760 u32b f1, f2, f3;
761
762 /* Take damage */
763 take_hit(damage, ddesc);
764
765 /* Get the lite, and its flags */
766 o_ptr = &inventory[INVEN_LITE];
767 object_flags(o_ptr, &f1, &f2, &f3);
768
769 /* Drain fuel where applicable */
770 if (!(f3 & TR3_NO_FUEL) && (o_ptr->timeout > 0))
771 {
772 /* Reduce fuel */
773 o_ptr->timeout -= (250 + randint(250));
774 if (o_ptr->timeout < 1) o_ptr->timeout = 1;
775
776 /* Notice */
777 if (!p_ptr->timed[TMD_BLIND])
778 {
779 msg_print("Your light dims.");
780 obvious = TRUE;
781 }
782
783 /* Window stuff */
784 p_ptr->window |= (PW_EQUIP);
785 }
786
787 break;
788 }
789
790 case RBE_ACID:
791 {
792 /* Obvious */
793 obvious = TRUE;
794
795 /* Message */
796 msg_print("You are covered in acid!");
797
798 /* Special damage */
799 acid_dam(damage, ddesc);
800
801 /* Learn about the player */
802 update_smart_learn(m_idx, DRS_RES_ACID);
803
804 break;
805 }
806
807 case RBE_ELEC:
808 {
809 /* Obvious */
810 obvious = TRUE;
811
812 /* Message */
813 msg_print("You are struck by electricity!");
814
815 /* Take damage (special) */
816 elec_dam(damage, ddesc);
817
818 /* Learn about the player */
819 update_smart_learn(m_idx, DRS_RES_ELEC);
820
821 break;
822 }
823
824 case RBE_FIRE:
825 {
826 /* Obvious */
827 obvious = TRUE;
828
829 /* Message */
830 msg_print("You are enveloped in flames!");
831
832 /* Take damage (special) */
833 fire_dam(damage, ddesc);
834
835 /* Learn about the player */
836 update_smart_learn(m_idx, DRS_RES_FIRE);
837
838 break;
839 }
840
841 case RBE_COLD:
842 {
843 /* Obvious */
844 obvious = TRUE;
845
846 /* Message */
847 msg_print("You are covered with frost!");
848
849 /* Take damage (special) */
850 cold_dam(damage, ddesc);
851
852 /* Learn about the player */
853 update_smart_learn(m_idx, DRS_RES_COLD);
854
855 break;
856 }
857
858 case RBE_BLIND:
859 {
860 /* Take damage */
861 take_hit(damage, ddesc);
862
863 /* Increase "blind" */
864 if (!p_ptr->resist_blind)
865 {
866 if (inc_timed(TMD_BLIND, 10 + randint(rlev)))
867 {
868 obvious = TRUE;
869 }
870 }
871
872 /* Learn about the player */
873 update_smart_learn(m_idx, DRS_RES_BLIND);
874
875 break;
876 }
877
878 case RBE_CONFUSE:
879 {
880 /* Take damage */
881 take_hit(damage, ddesc);
882
883 /* Increase "confused" */
884 if (!p_ptr->resist_confu)
885 {
886 if (inc_timed(TMD_CONFUSED, 3 + randint(rlev)))
887 {
888 obvious = TRUE;
889 }
890 }
891
892 /* Learn about the player */
893 update_smart_learn(m_idx, DRS_RES_CONFU);
894
895 break;
896 }
897
898 case RBE_TERRIFY:
899 {
900 /* Take damage */
901 take_hit(damage, ddesc);
902
903 /* Increase "afraid" */
904 if (p_ptr->resist_fear)
905 {
906 msg_print("You stand your ground!");
907 obvious = TRUE;
908 }
909 else if (rand_int(100) < p_ptr->skills[SKILL_SAV])
910 {
911 msg_print("You stand your ground!");
912 obvious = TRUE;
913 }
914 else
915 {
916 if (inc_timed(TMD_AFRAID, 3 + randint(rlev)))
917 {
918 obvious = TRUE;
919 }
920 }
921
922 /* Learn about the player */
923 update_smart_learn(m_idx, DRS_RES_FEAR);
924
925 break;
926 }
927
928 case RBE_PARALYZE:
929 {
930 /* Hack -- Prevent perma-paralysis via damage */
931 if (p_ptr->timed[TMD_PARALYZED] && (damage < 1)) damage = 1;
932
933 /* Take damage */
934 take_hit(damage, ddesc);
935
936 /* Increase "paralyzed" */
937 if (p_ptr->free_act)
938 {
939 msg_print("You are unaffected!");
940 obvious = TRUE;
941 }
942 else if (rand_int(100) < p_ptr->skills[SKILL_SAV])
943 {
944 msg_print("You resist the effects!");
945 obvious = TRUE;
946 }
947 else
948 {
949 if (inc_timed(TMD_PARALYZED, 3 + randint(rlev)))
950 {
951 obvious = TRUE;
952 }
953 }
954
955 /* Learn about the player */
956 update_smart_learn(m_idx, DRS_FREE);
957
958 break;
959 }
960
961 case RBE_LOSE_STR:
962 {
963 /* Take damage */
964 take_hit(damage, ddesc);
965
966 /* Damage (stat) */
967 if (do_dec_stat(A_STR)) obvious = TRUE;
968
969 break;
970 }
971
972 case RBE_LOSE_INT:
973 {
974 /* Take damage */
975 take_hit(damage, ddesc);
976
977 /* Damage (stat) */
978 if (do_dec_stat(A_INT)) obvious = TRUE;
979
980 break;
981 }
982
983 case RBE_LOSE_WIS:
984 {
985 /* Take damage */
986 take_hit(damage, ddesc);
987
988 /* Damage (stat) */
989 if (do_dec_stat(A_WIS)) obvious = TRUE;
990
991 break;
992 }
993
994 case RBE_LOSE_DEX:
995 {
996 /* Take damage */
997 take_hit(damage, ddesc);
998
999 /* Damage (stat) */
1000 if (do_dec_stat(A_DEX)) obvious = TRUE;
1001
1002 break;
1003 }
1004
1005 case RBE_LOSE_CON:
1006 {
1007 /* Take damage */
1008 take_hit(damage, ddesc);
1009
1010 /* Damage (stat) */
1011 if (do_dec_stat(A_CON)) obvious = TRUE;
1012
1013 break;
1014 }
1015
1016 case RBE_LOSE_CHR:
1017 {
1018 /* Take damage */
1019 take_hit(damage, ddesc);
1020
1021 /* Damage (stat) */
1022 if (do_dec_stat(A_CHR)) obvious = TRUE;
1023
1024 break;
1025 }
1026
1027 case RBE_LOSE_ALL:
1028 {
1029 /* Take damage */
1030 take_hit(damage, ddesc);
1031
1032 /* Damage (stats) */
1033 if (do_dec_stat(A_STR)) obvious = TRUE;
1034 if (do_dec_stat(A_DEX)) obvious = TRUE;
1035 if (do_dec_stat(A_CON)) obvious = TRUE;
1036 if (do_dec_stat(A_INT)) obvious = TRUE;
1037 if (do_dec_stat(A_WIS)) obvious = TRUE;
1038 if (do_dec_stat(A_CHR)) obvious = TRUE;
1039
1040 break;
1041 }
1042
1043 case RBE_SHATTER:
1044 {
1045 /* Obvious */
1046 obvious = TRUE;
1047
1048 /* Hack -- Reduce damage based on the player armor class */
1049 damage -= (damage * ((ac < 150) ? ac : 150) / 250);
1050
1051 /* Take damage */
1052 take_hit(damage, ddesc);
1053
1054 /* Radius 8 earthquake centered at the monster */
1055 if (damage > 23)
1056 {
1057 int px_old = p_ptr->px;
1058 int py_old = p_ptr->py;
1059
1060 earthquake(m_ptr->fy, m_ptr->fx, 8);
1061
1062 /* Stop the blows if the player is pushed away */
1063 if ((px_old != p_ptr->px) ||
1064 (py_old != p_ptr->py))
1065 do_break = TRUE;
1066 }
1067 break;
1068 }
1069
1070 case RBE_EXP_10:
1071 {
1072 /* Obvious */
1073 obvious = TRUE;
1074
1075 /* Take damage */
1076 take_hit(damage, ddesc);
1077
1078 if (p_ptr->hold_life && (rand_int(100) < 95))
1079 {
1080 msg_print("You keep hold of your life force!");
1081 }
1082 else
1083 {
1084 s32b d = damroll(10, 6) + (p_ptr->exp/100) * MON_DRAIN_LIFE;
1085 if (p_ptr->hold_life)
1086 {
1087 msg_print("You feel your life slipping away!");
1088 lose_exp(d/10);
1089 }
1090 else
1091 {
1092 msg_print("You feel your life draining away!");
1093 lose_exp(d);
1094 }
1095 }
1096 break;
1097 }
1098
1099 case RBE_EXP_20:
1100 {
1101 /* Obvious */
1102 obvious = TRUE;
1103
1104 /* Take damage */
1105 take_hit(damage, ddesc);
1106
1107 if (p_ptr->hold_life && (rand_int(100) < 90))
1108 {
1109 msg_print("You keep hold of your life force!");
1110 }
1111 else
1112 {
1113 s32b d = damroll(20, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
1114
1115 if (p_ptr->hold_life)
1116 {
1117 msg_print("You feel your life slipping away!");
1118 lose_exp(d / 10);
1119 }
1120 else
1121 {
1122 msg_print("You feel your life draining away!");
1123 lose_exp(d);
1124 }
1125 }
1126 break;
1127 }
1128
1129 case RBE_EXP_40:
1130 {
1131 /* Obvious */
1132 obvious = TRUE;
1133
1134 /* Take damage */
1135 take_hit(damage, ddesc);
1136
1137 if (p_ptr->hold_life && (rand_int(100) < 75))
1138 {
1139 msg_print("You keep hold of your life force!");
1140 }
1141 else
1142 {
1143 s32b d = damroll(40, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
1144
1145 if (p_ptr->hold_life)
1146 {
1147 msg_print("You feel your life slipping away!");
1148 lose_exp(d / 10);
1149 }
1150 else
1151 {
1152 msg_print("You feel your life draining away!");
1153 lose_exp(d);
1154 }
1155 }
1156 break;
1157 }
1158
1159 case RBE_EXP_80:
1160 {
1161 /* Obvious */
1162 obvious = TRUE;
1163
1164 /* Take damage */
1165 take_hit(damage, ddesc);
1166
1167 if (p_ptr->hold_life && (rand_int(100) < 50))
1168 {
1169 msg_print("You keep hold of your life force!");
1170 }
1171 else
1172 {
1173 s32b d = damroll(80, 6) + (p_ptr->exp / 100) * MON_DRAIN_LIFE;
1174
1175 if (p_ptr->hold_life)
1176 {
1177 msg_print("You feel your life slipping away!");
1178 lose_exp(d / 10);
1179 }
1180 else
1181 {
1182 msg_print("You feel your life draining away!");
1183 lose_exp(d);
1184 }
1185 }
1186 break;
1187 }
1188
1189 case RBE_HALLU:
1190 {
1191 /* Take damage */
1192 take_hit(damage, ddesc);
1193
1194 /* Increase "image" */
1195 if (!p_ptr->resist_chaos)
1196 {
1197 if (inc_timed(TMD_IMAGE, 3 + randint(rlev / 2)))
1198 {
1199 obvious = TRUE;
1200 }
1201 }
1202
1203 /* Learn about the player */
1204 update_smart_learn(m_idx, DRS_RES_CHAOS);
1205
1206 break;
1207 }
1208 }
1209
1210
1211 /* Hack -- only one of cut or stun */
1212 if (do_cut && do_stun)
1213 {
1214 /* Cancel cut */
1215 if (rand_int(100) < 50)
1216 {
1217 do_cut = 0;
1218 }
1219
1220 /* Cancel stun */
1221 else
1222 {
1223 do_stun = 0;
1224 }
1225 }
1226
1227 /* Handle cut */
1228 if (do_cut)
1229 {
1230 int k;
1231
1232 /* Critical hit (zero if non-critical) */
1233 tmp = monster_critical(d_dice, d_side, damage);
1234
1235 /* Roll for damage */
1236 switch (tmp)
1237 {
1238 case 0: k = 0; break;
1239 case 1: k = randint(5); break;
1240 case 2: k = randint(5) + 5; break;
1241 case 3: k = randint(20) + 20; break;
1242 case 4: k = randint(50) + 50; break;
1243 case 5: k = randint(100) + 100; break;
1244 case 6: k = 300; break;
1245 default: k = 500; break;
1246 }
1247
1248 /* Apply the cut */
1249 if (k) (void)inc_timed(TMD_CUT, k);
1250 }
1251
1252 /* Handle stun */
1253 if (do_stun)
1254 {
1255 int k;
1256
1257 /* Critical hit (zero if non-critical) */
1258 tmp = monster_critical(d_dice, d_side, damage);
1259
1260 /* Roll for damage */
1261 switch (tmp)
1262 {
1263 case 0: k = 0; break;
1264 case 1: k = randint(5); break;
1265 case 2: k = randint(10) + 10; break;
1266 case 3: k = randint(20) + 20; break;
1267 case 4: k = randint(30) + 30; break;
1268 case 5: k = randint(40) + 40; break;
1269 case 6: k = 100; break;
1270 default: k = 200; break;
1271 }
1272
1273 /* Apply the stun */
1274 if (k) (void)inc_timed(TMD_STUN, k);
1275 }
1276 }
1277
1278 /* Monster missed player */
1279 else
1280 {
1281 /* Analyze failed attacks */
1282 switch (method)
1283 {
1284 case RBM_HIT:
1285 case RBM_TOUCH:
1286 case RBM_PUNCH:
1287 case RBM_KICK:
1288 case RBM_CLAW:
1289 case RBM_BITE:
1290 case RBM_STING:
1291 case RBM_XXX1:
1292 case RBM_BUTT:
1293 case RBM_CRUSH:
1294 case RBM_ENGULF:
1295 case RBM_XXX2:
1296
1297 /* Visible monsters */
1298 if (m_ptr->ml)
1299 {
1300 /* Disturbing */
1301 disturb(1, 0);
1302
1303 /* Message */
1304 msg_format("%^s misses you.", m_name);
1305 }
1306
1307 break;
1308 }
1309 }
1310
1311
1312 /* Analyze "visible" monsters only */
1313 if (visible)
1314 {
1315 /* Count "obvious" attacks (and ones that cause damage) */
1316 if (obvious || damage || (l_ptr->blows[ap_cnt] > 10))
1317 {
1318 /* Count attacks of this type */
1319 if (l_ptr->blows[ap_cnt] < MAX_UCHAR)
1320 {
1321 l_ptr->blows[ap_cnt]++;
1322 }
1323 }
1324 }
1325
1326 /* Skip the other blows if necessary */
1327 if (do_break) break;
1328 }
1329
1330
1331 /* Blink away */
1332 if (blinked)
1333 {
1334 msg_print("There is a puff of smoke!");
1335 teleport_away(m_idx, MAX_SIGHT * 2 + 5);
1336 }
1337
1338
1339 /* Always notice cause of death */
1340 if (p_ptr->is_dead && (l_ptr->deaths < MAX_SHORT))
1341 {
1342 l_ptr->deaths++;
1343 }
1344
1345
1346 /* Assume we attacked */
1347 return (TRUE);
1348 }
A git mirror of Angband