Allow for item use when not root

2024-12-20 16:07:58 +00:00
parent 3a72bd366f
commit d9aaa8cc05
26 changed files with 436 additions and 493 deletions
@@ -4,7 +4,6 @@ import qualified Data.Set as S
 import Dodge.Cleat
 import Dodge.Data.GenWorld
 import Dodge.Default.Room
-import Dodge.Item.Consumable
 import Dodge.LevelGen.PlacementHelper
 import Dodge.Placement.Instance
 import Dodge.Placement.Instance.Analyser
@@ -96,7 +95,7 @@ healthTest n = do
    return $
        treePost
            [ door
-            , corridor & rmPmnts .:~ psPtPl (PS 20 0) (PutFlIt (medkit 100))
+            , corridor -- & rmPmnts .:~ psPtPl (PS 20 0) (PutFlIt (medkit 100))
            , cenroom
            , triggerDoorRoom n
            , cleatOnward door