Test of lock and key system

src/Dodge/Room/Boss.hs

@@ -45,6 +45,7 @@ roomGlassOctogon x = createPathGrid $ defaultRoom
         ,blockLine (V2 (-40) (50-x)) (V2 40 (50-x))
         ]
     , _rmBound = [rectNSWE x (-x) (-x) x]
+    , _rmName  = "glass8gon"
     }
   where
     fx = 4 * x / 5
@@ -101,6 +102,7 @@ roomCross x y = defaultRoom
         [rectNSWE y (-y) (-x) x
         ,rectNSWE x (-x) (-y) y
         ]
+    , _rmName = "cross"
     }
 {- | TODO: pathing -}
 roomShuriken 
@@ -121,7 +123,8 @@ roomShuriken x y =
             , _rmPmnts  = [mntLS iShape (V2 x x) (V3 (x-20) x 70)]
             , _rmBound  = ps
             }
-    in foldr1 combineRooms $ map (\r -> shiftRoomBy (V2 0 0, r) corner) [0,pi/2,pi,3*pi/2]
+    in (foldr1 combineRooms $ map (\r -> shiftRoomBy (V2 0 0, r) corner) [0,pi/2,pi,3*pi/2])
+            {_rmName = "shuriken"}
 {- | TODO: pathing 
 Precondition: first float is less than the second by at least 40. -}
 roomTwistCross 
@@ -145,4 +148,5 @@ roomTwistCross x y z =
             , _rmPmnts  = [mntLS iShape (V2 x x) (V3 (x-20) (x-20) 70)]
             , _rmBound  = ps
             }
-    in foldr1 combineRooms $ map (\r -> shiftRoomBy (V2 0 0, r) corner) [0,pi/2,pi,3*pi/2]
+    in (foldr1 combineRooms $ map (\r -> shiftRoomBy (V2 0 0, r) corner) [0,pi/2,pi,3*pi/2])
+        {_rmName = "twistCross" }