From: kmhugo <kmhugo>
Date: Fri, 18 Jan 2002 17:17:05 +0000 (+0000)
Subject: Monsters shouldn't use wands of digging in Sokoban
X-Git-Tag: MOVE2GIT~3448
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=f5c0809aff0c0d393754b9b543123e97f156c843;p=nethack

Monsters shouldn't use wands of digging in Sokoban

A number of players have complained that Sokoban can be rendered
unsolvable without "creative nethacking" when monsters zap wands of
digging.  This patch prevents monsters from selecting wands of
digging in Sokoban.

Note that we can't simply make Sokoban HARDFLOOR, as that causes
problems with the hole generation code.
---

diff --git a/doc/fixes33.2 b/doc/fixes33.2
index 431a84117..15873265d 100644
--- a/doc/fixes33.2
+++ b/doc/fixes33.2
@@ -394,6 +394,7 @@ golden glow when praying will recover lost level if blessed full healing could
 gaining a level while polymorphed increases current monst hit points as well
 	as latent human (or whatever) hit points
 pets should not try to go after food that they can't reach
+monsters shouldn't use wands of digging in Sokoban
 
 
 Platform- and/or Interface-Specific Fixes
diff --git a/src/muse.c b/src/muse.c
index 1ca7f0d27..81f4209ea 100644
--- a/src/muse.c
+++ b/src/muse.c
@@ -433,6 +433,8 @@ struct monst *mtmp;
 		if (obj->otyp == WAN_DIGGING && obj->spe > 0 && !stuck && !t
 		    && !mtmp->isshk && !mtmp->isgd && !mtmp->ispriest
 		    && !is_floater(mtmp->data)
+		    /* monsters digging in Sokoban can ruin things */
+		    && !In_sokoban(&u.uz)
 		    /* digging wouldn't be effective; assume they know that */
 		    && !(levl[x][y].wall_info & W_NONDIGGABLE)
 		    && !(Is_botlevel(&u.uz) || In_endgame(&u.uz))