Automatically order placements

src/Dodge/Data/Item/Combine.hs

@@ -164,8 +164,7 @@ data HeldItemType
     | FLAMETORRENT
     | FLAMEWALL
     | BLOWTORCH
-    | SPARKGUN
-    | TESLAGUN
+    | TESLACOIL
     | TRACTORGUN
     | RLAUNCHER
     | RLAUNCHERX {_xNum :: Int}

src/Dodge/Data/Room.hs

@@ -80,6 +80,7 @@ data PathFromEdge = PathFromEdge CardinalPoint Int
 data RoomPosFlag
     = RoomPosOnGrid {_onGridFromEdges :: S.Set PathFromEdge}
     | RoomPosOffGrid {_offGridFromEdges :: S.Set PathFromEdge}
+    | RoomPosOnFloor
     deriving (Eq, Ord, Show)
 
 data UsedPos