Major item refactor, still broken

2025-08-24 19:34:09 +01:00
parent 22b4be440a
commit 94f6d5c630
62 changed files with 820 additions and 805 deletions
@@ -121,7 +121,7 @@ someCrits :: RandomGen g => State g [Creature]
 someCrits = do
    nCrits <- state $ randomR (1, 3)
    fmap (take nCrits) . shuffle $
-        [spreadGunCrit, pistolCrit, autoCrit, armourChaseCrit]
+        [spreadGunCrit, autoCrit, armourChaseCrit]
            ++ replicate 20 chaseCrit

 --addcrits :: RandomGen g => [Item] -> State g (Tree Room)