Rethink damage data type, work on damage sensors

src/Dodge/Room/SensorDoor.hs

@@ -0,0 +1,57 @@
+module Dodge.Room.SensorDoor where
+import Dodge.LevelGen.Data
+import Dodge.PlacementSpot
+import Dodge.Data
+import Dodge.Tree
+--import Dodge.RoomLink
+import Dodge.Room.Door
+import Dodge.Room.Procedural
+import Dodge.Room.Room
+--import Dodge.Room.Corridor
+import Dodge.Room.Link
+--import Dodge.Room.Procedural
+import Dodge.Room.Foreground
+--import Dodge.Room.RoadBlock
+import Dodge.Placement.Instance
+--import Dodge.Default.Room
+--import Dodge.Item.Weapon.BulletGuns
+--import Dodge.Item.Weapon.Utility
+--import Dodge.LevelGen.Data
+--import Geometry.Data
+import Geometry
+--import Padding
+import Color
+import Shape
+import LensHelp
+import Dodge.RandomHelp
+
+--import qualified Data.Set as S
+import Data.Maybe
+--import Data.Tree
+import Control.Monad.State
+import System.Random
+
+sensorRoom :: RandomGen g => DamageType -> Int -> State g (SubCompTree Room)
+sensorRoom senseType n = do
+    rm <- takeOne [roomNgon 8 200, roomRectAutoLinks 200 200]
+    cenroom <- shuffleLinks $ sensInsideDoor senseType n rm
+    let doorroom = triggerDoorRoom n
+    return $ treeFromPost [PassDown door,PassDown cenroom,PassDown doorroom] (UseAll door)
+
+
+sensAboveDoor :: DamageType -> Float -> PlacementSpot -> Placement
+sensAboveDoor sensetype wth ps = extTrigLitPos 
+    (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
+    ( \tp -> Just $ damageSensor sensetype wth (upf $ fromJust $ _plMID tp) ps )
+  where
+    upf trid mc w | _mcSensorAmount mc > 900 = w & triggers . ix trid .~ const True
+        | otherwise = w
+
+sensInsideDoor :: DamageType -> Int -> Room -> Room
+sensInsideDoor senseType outplid rm = rm 
+    & rmPmnts .:~ psPt atFstLnkOut 
+        (PutShape $ colorSH yellow $
+        thinHighBar 0 (V2 20 (-1)) (V2 20 (-100))
+        <> thinHighBar 0 (V2 0 (-100)) (V2 20 (-100))
+        <> barPP 1.5 (V3 20 (-1) 0) (V3 20 (-1) 80))
+    & rmOutPmnt .~ [OutPlacement (sensAboveDoor senseType 10 (atFstLnkOutShiftInward 100)) outplid]