Add room foregrounds

2021-06-16 18:18:03 +02:00
parent 29902b6f22
commit 04ed034a3e
6 changed files with 84 additions and 37 deletions
@@ -22,6 +22,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
    | PutBtDoor Color Point2 Float Point2 Point2
    | PutSwitchDoor Color Point2 Float Point2 Point2
    | RandPS (State StdGen PSType)
+    | PutForeground Picture
    | PutNothing
    | PutID { _putID :: Int}
 data PlacementSpot = PS