Generalise pathing, usable with flying creatures

src/Dodge/Room/Room.hs

@@ -13,6 +13,7 @@ module Dodge.Room.Room (
     critsRoom,
     distributerRoom,
     critDeadEnd,
+    deadEndPSType,
 ) where
 
 import qualified Data.IntMap.Strict as IM
@@ -259,6 +260,9 @@ critInDeadEnd = deadEndRoom & rmPmnts .~ [sPS (V2 0 0) 0 randC1]
 critDeadEnd :: Room
 critDeadEnd = deadEndRoom & rmPmnts .~ [sPS (V2 0 0) (pi/2) randC1]
 
+deadEndPSType :: PSType -> Room
+deadEndPSType x = deadEndRoom & rmPmnts .~ [sPS (V2 0 0) (pi/2) x]
+
 deadEndRoom :: Room
 deadEndRoom =
     defaultRoom

src/Dodge/Room/Tutorial.hs

@@ -2,6 +2,7 @@
 
 module Dodge.Room.Tutorial where
 
+import Dodge.Creature.ChaseCrit
 import Control.Monad
 import Data.Foldable
 import qualified Data.IntMap.Strict as IM
@@ -338,8 +339,8 @@ chasmSpitTerminal = do
         tToBTree "chasmTerm" $
             Node
                 (addDoorToggleTerminal' i1 (PS 150 0) y')
-                [ treePost [triggerDoorRoom i1, critDeadEnd]
-                , treePost [triggerDoorRoom i1, critDeadEnd]
+                [ treePost [triggerDoorRoom i1, deadEndPSType (PutCrit chaseCrit)]
+                , treePost [triggerDoorRoom i1, deadEndPSType (PutCrit hoverCrit)]
                 , return $ cleatOnward $ triggerDoorRoom i1
                 ]
   where