Rethink damage data type, work on damage sensors

src/Dodge/Room/Procedural.hs

@@ -101,7 +101,7 @@ roomRectAutoLinks :: Float -> Float -> Room
 roomRectAutoLinks x y = (roomRect x y (f x) (f y)) {_rmPmnts = plmnts}
   where
     f z = max 1 $ (ceiling z - 40) `div` 60
-    plmnts = replicate 3 . mntLightLnkCond $ useRoomPosCond isUsedLnkUnplaced
+    plmnts = [mntLightLnkCond $ resetPLUse $ rpBool isInLnk]
 {- Combines two rooms into one room.
  - will have to work out exactly what to do with combining links
 Mostly involves concatenation.  -}