Major item refactor, still broken

src/Dodge/Room/Procedural.hs

@@ -268,7 +268,7 @@ randomFourCornerRoom its = do
     nCrits <- state $ randomR (1, 3)
     crits <-
         takeN nCrits <=< shuffle $
-            [spreadGunCrit, pistolCrit, autoCrit, armourChaseCrit]
+            [spreadGunCrit, autoCrit, armourChaseCrit]
                 ++ replicate 20 chaseCrit
     randomFourCornerRoomCrsIts crits its
 

src/Dodge/Room/Room.hs

@@ -326,7 +326,7 @@ pistolerRoom = do
             3
             ( psPtPl
                 (rprBool $ \rp _ -> _rpPlacementUse rp == 0 && rpIsOnPath rp)
-                (PutCrit pistolCrit)
+                (PutCrit chaseCrit)
             )
 
 shootingRange :: RandomGen g => State g (MetaTree Room String)