Cleanup creatures somewhat, fix LOS to LOSIndirect

src/Dodge/Floor.hs

@@ -42,16 +42,16 @@ initialAnoTree = OnwardList
         $ intersperse (AnTree corDoor)
     [ IntAnno $ AnTree . startRoom
     , AnRoom $ return airlock0
+    , AnRoom $ roomCCrits 1
     , AnRoom slowDoorRoom
---    , AnRoom $ roomCCrits 10
     , AnTree firstBreather
---    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
---    ]
---
---extraAnoList :: [Annotation]
---extraAnoList =
-----     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
---    [ AnRoom $ roomCCrits 10
+    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
+    ]
+
+extraAnoList :: [Annotation]
+extraAnoList =
+--     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
+    [ AnRoom $ roomCCrits 10
     , AnRoom $ roomCCrits 10
     , AnTree $ tToBTree "spawners" <$> spawnerRoom
     , AnRoom pistolerRoom