Rethink damage data type, work on damage sensors

src/Dodge/Room/Room.hs

@@ -156,8 +156,8 @@ roomCenterPillar = randomiseAllLinks . restrictInLinks ((\p -> dist p (V2 120 0)
         , blockLine (V2 125 115) (V2 125 125)
         --, sPS (V2 40 120) 0 putLamp
         --, sPS (V2 200 120) 0 putLamp
-        , mntLightLnkCond unusedLnkToPS
-        , mntLightLnkCond unusedLnkToPS
+        , mntLightLnkCond useUnusedLnk
+        , mntLightLnkCond useUnusedLnk
         ]
 
 roomOctogon :: Room
@@ -187,7 +187,7 @@ roomNgon n x = defaultRoom
     { _rmPolys = [poly]
     , _rmLinks = muout (init lnks) ++ muin[last lnks]
     , _rmPath  = [] -- TODO
-    , _rmPmnts = []
+    , _rmPmnts = [mntLightLnkCond $ resetPLUse $ rpBool isInLnk]
     , _rmBound = [poly]
     , _rmFloor = Tiled [makeTileFromPoly poly 9]
     , _rmName = show n ++ "gon"
@@ -225,7 +225,7 @@ weaponEmptyRoom = do
             ,sPS   (V2 20 20) (pi/2) randC1
             ,sPS (V2 (w-20) 20) (pi/2) randC1
             --,sPS (V2 (w/2) (h/2))      0 putLamp
-            ,mntLightLnkCond unusedLnkToPS
+            ,mntLightLnkCond useUnusedLnk
             ]
         f (V2 x y,a) = (a == pi && x > 25 && x < w - 25) || (a /= 0 && y > w - 30)
     rm <- shuffleLinks $ restrictRMInLinksPD f (roomRect w h 2 2 & rmPmnts .~ plmnts)
@@ -396,7 +396,7 @@ pillarGrid = do
 --        cornerRestrict (V2 x y,_)
 --             = (x > 40 && x < h - 40)
 --            || (y > 40 && y < h - 40)
-    let plmnts = replicate 8 (mntLightLnkCond unusedLnkToPS)
+    let plmnts = replicate 8 (mntLightLnkCond useUnusedLnk)
                   ++ 
                  concat [f x y | x<-xs,y<-ys]
     return $ roomRect w h (max i 2) (max i 2)