Work on placements/room generation

2025-08-22 13:42:51 +01:00
parent e7b52f4487
commit f641805845
14 changed files with 294 additions and 596 deletions
@@ -29,7 +29,11 @@ data GenWorld = GenWorld
 ---- ROOM DATATYPES
 data PSType
    = PutCrit {_unPutCrit :: Creature}
-    | PutMachine {_putMachinePoly :: [Point2], _putMachineMachine :: Machine, _putMachineWall :: Wall}
+    | PutMachine
+        { _putMachinePoly :: [Point2]
+        , _putMachineMachine :: Machine
+        , _putMachineWall :: Wall
+        }
    | PutLS LightSource
    | PutButton {_putButton :: Button}
    | PutProp Prop
@@ -7,8 +7,7 @@ import Control.Lens
 import qualified Data.Set as S

 data ClusterStatus = ClusterStatus
-    { _csName :: String
-    , _csLinks :: S.Set ClusterLink
+    { _csLinks :: S.Set ClusterLink
    }

 data ClusterLink = OnwardCluster | SideCluster | LabelCluster Int