Correct room link position numbering

2021-11-22 16:42:19 +00:00
parent b4759e4a27
commit 5d9ea4b733
23 changed files with 184 additions and 85 deletions
@@ -0,0 +1,81 @@
+module Dodge.Room.LasTurret where
+import Dodge.LevelGen.Data
+import Dodge.PlacementSpot
+import Dodge.Data
+import Dodge.Tree
+import Dodge.Room.Door
+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.Item.Random
+--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 Data.Maybe
+import Data.Tree
+import Control.Monad.State
+import Control.Lens
+import System.Random
+
+cenLasTur :: Room
+cenLasTur = roomNgon 8 200 & rmPmnts .~
+    [ putLasTurret 0.02
+    , heightWall 30 (rectNSEW (-90) (-110) 20 (-20))
+    , mntLightLnkCond unusedLnkToPS
+    ]
+
+lightSensInsideDoor :: Room -> Room
+lightSensInsideDoor rm = rm 
+    & rmPmnts %~ ( (psPt atFstLnkOut $ PutForeground $ 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)) : )
+    & rmExtPmnt ?~
+        extTrigLitPos (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
+        ( \tp -> Just $ lightSensor 10 (upf $ fromJust $ _plMID tp) (atFstLnkOutShiftInward 100)
+        )
+  where
+    upf trid mc w | _mcSensor mc > 900 = w & triggers . ix trid .~ const True
+        | otherwise = w
+
+lightSensByDoor :: Room -> Room
+lightSensByDoor rm = rm 
+    & rmPmnts %~ ( 
+        [ psPt atFstLnkOut $ PutForeground $ colorSH yellow 
+            $ barPP 1.5 (V3 20 (-1) 0) (V3 20 (-1) 80)
+        , heightWallPS (atNthLnkOutShiftInward 1 50) 30 (rectNSEW (10) (-10) 20 (-20))
+        , heightWallPS (atFstLnkOutShiftInward 100) 30 (rectNSEW (10) (-10) 20 (-20))
+        ] ++ )
+    & rmExtPmnt ?~
+        extTrigLitPos (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
+        ( \tp -> Just $ lightSensor 20 (upf $ fromJust $ _plMID tp) (atFstLnkOutShiftBy sensorshift)
+        )
+  where
+    sensorshift (p,a) = (p +.+ rotateV a (V2 60 (-20)), a)
+    upf trid mc w | _mcSensor mc > 900 = w & triggers . ix trid .~ const True
+        | otherwise = w
+
+lasSensorTurretTest :: RandomGen g => Int -> State g (SubCompTree Room)
+lasSensorTurretTest n = do
+    cenroom <- randomiseOutLinks $ (lightSensInsideDoor cenLasTur) {_rmLabel = Just n}
+    let doorroom = switchDoorRoom {_rmTakeFrom = Just n}
+    return $ treeFromPost [PassDown door,PassDown cenroom,PassDown doorroom] (UseAll door)
+
+lasCenSensEdge :: RandomGen g => Int -> State g (SubCompTree Room)
+lasCenSensEdge n = do
+    cenroom <- randomiseOutLinks $ (lightSensByDoor cenLasTur) {_rmLabel = Just n}
+    let doorroom = switchDoorRoom {_rmTakeFrom = Just n}
+    return $ treeFromTrunk [PassDown door] (Node (PassDown cenroom) 
+        [treeFromPost [PassDown doorroom] (UseAll door), treeFromPost [UseNone door] (UseNone corridor)
+        ]
+        )