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

update #migratemons for debugging purposes

Browse Source 
For the wizard-mode command #migratemons at the
"How many random monsters to migrate to next level? [0]" prompt,
allow a negative number to cause it to use existing monsters
already on the level for the forced migration, up until the
absolute value of the number, instead of random new monsters
as it does for a positive number.

For example, specify -20 to force-migrate 20 existing monsters
already on the map.
This commit is contained in:
nhmall
2024-12-09 21:14:14 -05:00
parent 1f8b75b8c6
commit 64d41e10de
1 changed files with 21 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/wizcmds.c
View File

@@ -1807,6 +1807,7 @@ wiz_migrate_mons(void)
char inbuf[BUFSZ];
struct permonst *ptr;
struct monst *mtmp;
boolean use_existing_map_mon = FALSE;
#endif
d_level tolevel;
@@ -1830,17 +1831,32 @@ wiz_migrate_mons(void)
return ECMD_OK;
mcount = atoi(inbuf);
if (mcount < 0) {
use_existing_map_mon = TRUE;
mcount *= -1;
}
if (mcount < 1)
mcount = 0;
else if (mcount > ((COLNO - 1) * ROWNO))
mcount = (COLNO - 1) * ROWNO;
while (mcount > 0) {
ptr = rndmonst();
mtmp = makemon(ptr, 0, 0, MM_NOMSG);
if (mtmp)
migrate_to_level(mtmp, ledger_no(&tolevel), MIGR_RANDOM,
(coord *) 0);
if (!use_existing_map_mon) {
ptr = rndmonst();
mtmp = makemon(ptr, 0, 0, MM_NOMSG);
if (mtmp)
migrate_to_level(mtmp, ledger_no(&tolevel), MIGR_RANDOM,
(coord *) 0);
} else {
struct monst *nextmon;
for (mtmp = fmon; mtmp; mtmp = nextmon) {
nextmon = mtmp->nmon;
migrate_to_level(mtmp, ledger_no(&tolevel), MIGR_RANDOM,
(coord *) 0);
break;
}
}
mcount--;
}
#endif /* DEBUG_MIGRATING_MONS */