Stop gibbed/pitted creatures from opening doors

2026-03-23 22:59:35 +00:00
parent daba012e83
commit 7917192b77
6 changed files with 20 additions and 21 deletions
@@ -34,6 +34,7 @@ doCrBl cb = case cb of
    CrCanShoot -> error "got rid of crCanShoot"
    CrIsAiming -> crIsAiming
    CrIsAnimate -> isAnimate
+    CrOpenAutoDoor -> \cr -> isAnimate cr && hasAutoDoorBody cr

 doCrAc :: CrAc -> Creature -> Action
 doCrAc ca = case ca of