Fix wall zoning

2022-06-27 09:56:54 +01:00
parent 7778fb0403
commit 90af97ee22
15 changed files with 128 additions and 34 deletions
@@ -169,9 +169,9 @@ data World = World
    , _genRooms             :: IM.IntMap Room
    , _deathDelay           :: Maybe Int
    , _testFloat            :: Float
+    , _wSelect              :: (Point2,Point2)
    }

-
 newtype GenParams = GenParams
    { _sensorCoding :: M.Map DamageType (PaletteColor,DecorationShape)
    }
@@ -1405,6 +1405,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
    | PutDoor Color (World -> Bool) [(Point2,Point2)]
    | RandPS (State StdGen PSType)
    | PutShape Shape
+    | PutForeground ForegroundShape
    | PutWorldUpdate (PlacementSpot -> World -> World)
    | PutNothing
    | PutUsingGenParams (World -> (World,PSType))