From f5c0809aff0c0d393754b9b543123e97f156c843 Mon Sep 17 00:00:00 2001
From: kmhugo <kmhugo>
Date: Fri, 18 Jan 2002 17:17:05 +0000
Subject: [PATCH] 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.
---
 doc/fixes33.2 | 1 +
 src/muse.c    | 2 ++
 2 files changed, 3 insertions(+)

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))