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

Cleanup in/outplacements

Browse Source
This commit is contained in:
justin
2022-03-11 13:24:14 +00:00
parent 5d43fc8244
commit 33718ea94b
5 changed files with 23 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/LasTurret.hs
+4 -4
View File
@@ -69,14 +69,14 @@ lightSensByDoor outplid rm = rm
lasSensorTurretTest :: RandomGen g => Int -> State g (SubCompTree Room)
lasSensorTurretTest n = do
cenroom <- shuffleLinks $ lightSensInsideDoor n cenLasTur & rmLabel ?~ n
let doorroom = switchDoorRoom n & rmTakeFrom ?~ n
cenroom <- shuffleLinks $ lightSensInsideDoor n cenLasTur
let doorroom = switchDoorRoom n
return $ treeFromPost [PassDown door,PassDown cenroom,PassDown doorroom] (UseAll door)
lasCenSensEdge :: RandomGen g => Int -> State g (SubCompTree Room)
lasCenSensEdge n = do
cenroom <- shuffleLinks $ (lightSensByDoor n cenLasTur) {_rmLabel = Just n}
let doorroom = (switchDoorRoom n) {_rmTakeFrom = Just n}
cenroom <- shuffleLinks $ lightSensByDoor n cenLasTur
let doorroom = switchDoorRoom n
return $ treeFromTrunk [PassDown door] $ Node (PassDown cenroom)
[ treeFromPost [PassDown doorroom] (UseAll door)
, treeFromPost [PassDown door] (UseLabel 0 corridor)