Add indicator light to switch doors

2021-11-16 12:57:13 +00:00
parent a7f2b5f3ea
commit f530952612
9 changed files with 117 additions and 20 deletions
@@ -14,7 +14,9 @@ import Dodge.Layout.Tree.Annotate
 import Dodge.Layout.Tree.Shift
 import Dodge.Creature
 import Dodge.LevelGen.Data
+import Dodge.LevelGen.Switch
 import Dodge.Item.Weapon.Launcher
+import Dodge.PlacementSpot
 import MonadHelp
 import Data.Tree
 import Color
@@ -34,9 +36,9 @@ initialAnoTree = padSucWithCorridors $ treeFromTrunk
    [[StartRoom]
    ,[ChainAnos 
        [[SetLabel 0 $ return $ roomRectAutoLinks 200 200 
-                    & rmExtPmnt ?~ triggerSwitch red 
-                        (anyLnkInPS 5 & psLnkRoomEff .~ (putWireStart 0 . extractRoomPos) )
-                    & rmLinkEff .~ [putWireEnd 0]
+            & rmExtPmnt ?~ triggerSwitchSPicLight (drawSwitchWire red red)
+                (anyLnkInPS 5 & psLnkRoomEff .~ (putWireStart 0 . extractRoomPos) )
+            & rmLinkEff .~ [putWireEnd 0]
         ]
        ,[UseLabel 0 $ return switchDoorRoom]
        ]