justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Tweak pillar room

Browse Source
This commit is contained in:
justin
2021-10-03 17:52:35 +01:00
parent 0c6fa80ce0
commit 2c5cdbdc73
8 changed files with 44 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/LongDoor.hs
+3 -3
View File
@@ -39,10 +39,10 @@ twinSlowDoorRoom w h x = defaultRoom
]
, _rmPath = []
, _rmPS =
[ Placement (PS (V2 0 (h-5)) pi $ PutButton $ makeSwitch col red id id)
[ Placement (PS (V2 0 (h-5)) pi $ PutButton $ makeButton col id)
$ \btid -> jsps0J (PutSingleDoor col (cond' btid) (V2 x 1) (V2 x h) wlSpeed)
$ ps0 (PutSingleDoor col (cond' btid) (V2 (-x) 1) (V2 (-x) h) wlSpeed)
$ \did -> Just $ ps0 (PutLS (colorLightAt (V3 0.75 0 0) (V3 0 (h-1) lampHeight) 0))
$ \did -> jps0 (PutLS (colorLightAt (V3 0.75 0 0) (V3 0 (h-1) lampHeight) 0))
$ \lsid -> jsps0 $ PutProp $ addColorChange lsid did $ lampCoverWhen (drmoving did) (V2 0 (h-1)) lampHeight
]
, _rmBound = ps
@@ -62,7 +62,7 @@ twinSlowDoorRoom w h x = defaultRoom
[rectNSWE h 0 (-w) w
,rectNSWE 20 (-h) (negate x) x
]
cond' btid w' = _btState (_buttons w' IM.! btid) == BtOn
cond' btid w' = _btState (_buttons w' IM.! btid) /= BtOff
col = dim $ dim $ bright red
twinSlowDoorChasers