Generalise pathing, usable with flying creatures

2026-04-02 19:30:44 +01:00
parent c2de804fa9
commit ff903bfb3b
19 changed files with 322 additions and 215 deletions
@@ -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