Distinguish between selected item and root-selected item

2024-09-21 21:59:53 +01:00
parent 2154abfb1d
commit 31b5db6e9e
33 changed files with 313 additions and 281 deletions
@@ -48,8 +48,9 @@ doWdCrBl wcb = case wcb of

 doCrBl :: CrBl -> Creature -> Bool
 doCrBl cb = case cb of
-    CrCanShoot -> crCanShoot
+--    CrCanShoot -> crCanShoot
 --    CrIsReloading -> crIsReloading
+    CrCanShoot -> error "got rid of crCanShoot"
    CrIsAiming -> crIsAiming
    CrIsAnimate -> isAnimate