Allow for pump attachment to flamethrower

src/Dodge/Room/LasTurret.hs

@@ -13,8 +13,10 @@ module Dodge.Room.LasTurret (
     lasCenRunClose',
     lasCenRunClose1,
     lasCenRunCloseLongCor,
+    lasRunRand,
 ) where
 
+import Control.Monad
 import Data.Foldable (fold)
 import Dodge.Room.Path
 import Dodge.Room.Procedural
@@ -314,7 +316,6 @@ lasCenRunCloseLongCor = do
     llinks = memtest (FromEdge South 1) (OnEdge West)
     rlinks = memtest (FromEdge South 1) (OnEdge East)
     awall x v = heightWallPS (PS x 0) 30 v
-    etest f g x = f x || g x
     memtest a b x = let y = _rlType x
         in a `S.member` y && b `S.member` y
 
@@ -370,6 +371,9 @@ lasCenRunClose1 = do
     memtest a b x = let y = _rlType x
         in a `S.member` y && b `S.member` y
 
+lasRunRand :: (RandomGen g) => State g (MetaTree Room String)
+lasRunRand = join $ takeOne [lasCenRunClose2,lasCenRunClose1]
+
 lasCenRunClose2 :: (RandomGen g) => State g (MetaTree Room String)
 lasCenRunClose2 = do
     (alinks,blinks) <- shufflePair (bllinks,trlinks)

src/Dodge/Room/Tutorial.hs

@@ -55,7 +55,7 @@ tutAnoTree = do
 --        , return . tToBTree "door" $ treePost [corridor, cleatOnward door]
         , corDoor
 --        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
-        , lasRunYinYang
+        , lasRunRand
 --        , passthroughLockKeyLists lockRoomKeyItems itemRooms
         , tToBTree "door" . return <$> return (cleatOnward door)
         , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)