Simplify item placement during generation

2021-04-25 13:21:24 +02:00
parent 30736997c3
commit 17986651c5
13 changed files with 95 additions and 95 deletions
@@ -12,7 +12,7 @@ import System.Random
 data PSType = PutCrit Creature
    | PutLS LightSource Picture
    | PutButton Button
-    | PutFlIt FloorItem
+    | PutFlIt Item
    | PutPressPlate PressPlate
    | PutAutoDoor Point2 Point2
    | PutBlock [Int] Color [Point2]
@@ -22,14 +22,14 @@ data PSType = PutCrit Creature
    | PutSwitchDoor Color Point2 Float Point2 Point2
    | RandPS (State StdGen PSType)
    | PutNothing
+    | PutID Int
    | CollectivePS 
        { _collectiveID  :: Int 
        , _collectiveNum :: Int 
        , _collectiveFunction :: [Int] -> State StdGen [PSType]
        }
    | LabelPS { _psLabel :: Int, _ps :: PSType}
-    | PutWindow { _pwPoly :: [Point2] , _pwColor :: Color
-                }
+    | PutWindow { _pwPoly :: [Point2] , _pwColor :: Color }
 data PlacementSpot = PS
    { _psPos :: Point2
    , _psRot :: Float