Modify analyser sounds

2022-03-22 18:42:48 +00:00
parent 7b842bca4f
commit 72a1399da0
10 changed files with 176 additions and 160 deletions
@@ -13,6 +13,11 @@ import Dodge.Item
 import System.Random
 import Control.Monad.State

+bossKeyItems :: RandomGen g => [ (State g (SubCompTree Room), State g CombineType) ]
+bossKeyItems = 
+    [(return . UseAll <$> bossRoom autoCrit, takeOne [PISTOL])
+    ]
+
 lockRoomKeyItems :: RandomGen g => [ (Int -> State g (SubCompTree Room) , State g CombineType ) ]
 lockRoomKeyItems = 
 --    [(lasCenSensEdge, takeOne [LAUNCHER,LASGUN,SPARKGUN,FLATSHIELD] )