Add variable door speed, still buggy

2021-09-10 13:41:46 +01:00
parent 87a9745d37
commit c695767fb0
11 changed files with 99 additions and 78 deletions
@@ -41,6 +41,6 @@ mkAutoDoor
    -> Point2   -- ^ Right point (though the two points should be symmetric)
    -> [Int]    -- ^ Wall ids
    -> [Wall]
-mkAutoDoor pl pr = mkDoubleDoor (dim yellow) True cond pl pr
+mkAutoDoor pl pr = mkDoubleDoor (dim yellow) True cond pl pr 3
  where
    cond = any (crNearSeg 40 pl pr) . IM.filter isAnimate . _creatures