nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity

shrieker summoning purple worm

Browse Source 
Consolidate a couple of makemon() calls.  I thought that this would
end up being clearer but it isn't actually much of an improvement.
Should be no change in behavior.
This commit is contained in:
PatR
2023-03-26 22:56:50 -07:00
parent be3659d731
commit f74628b9d1
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/mon.c
+9 -10
View File
@@ -1,4 +1,4 @@
/* NetHack 3.7 mon.c $NHDT-Date: 1655065140 2022/06/12 20:19:00 $ $NHDT-Branch: NetHack-3.7 $:$NHDT-Revision: 1.436 $ */ /* NetHack 3.7 mon.c $NHDT-Date: 1679896593 2023/03/27 05:56:33 $ $NHDT-Branch: NetHack-3.7 $:$NHDT-Revision: 1.491 $ */
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/*-Copyright (c) Derek S. Ray, 2015. */ /*-Copyright (c) Derek S. Ray, 2015. */
/* NetHack may be freely redistributed. See license for details. */ /* NetHack may be freely redistributed. See license for details. */
@@ -3638,15 +3638,14 @@ m_respond(struct monst* mtmp)
pline("%s shrieks.", Monnam(mtmp)); pline("%s shrieks.", Monnam(mtmp));
stop_occupation(); stop_occupation();
} }
if (!rn2(10)) { if (!rn2(10)) { /* 1/10 chance per shriek to create a monster */
if (!rn2(13)) { /* new monster has a 1/13 chance to be a purple worm, random
/* don't generate purple worms if too difficult */ otherwise; baby purple worm if adult is too difficult */
int pm = montoostrong(PM_PURPLE_WORM, monmax_difficulty_lev()) (void) makemon(rn2(13) ? (struct permonst *) 0
? PM_BABY_PURPLE_WORM : PM_PURPLE_WORM; : &mons[montoostrong(PM_PURPLE_WORM,
monmax_difficulty_lev())
(void) makemon(&mons[pm], 0, 0, NO_MM_FLAGS); ? PM_BABY_PURPLE_WORM : PM_PURPLE_WORM],
} else 0, 0, NO_MM_FLAGS);
(void) makemon((struct permonst *) 0, 0, 0, NO_MM_FLAGS);
} }
aggravate(); aggravate();
} }