Cleanup room moduling

2021-11-13 11:45:00 +00:00
parent 169ed7d05d
commit 3624f22f2b
7 changed files with 525 additions and 500 deletions
@@ -39,7 +39,7 @@ initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
    [[StartRoom]
    ,[SetLabel 0 $ return $ roomRectAutoLinks 100 100 
-        & rmExtendedPmnt .~ Just (externalButton red (PS (V2 50 50) 0))
+        & rmExtendedPmnt ?~ externalButton red (anyLnkInPS 5)
     ]
    ,[UseLabel 0 $ return switchDoorRoom]
    ,[SpecificRoom $ return $ connectRoom lasTunnel ]