Add shrinkability and cursed items

2021-11-18 18:30:22 +00:00
parent 147d6098ab
commit a546d070f0
82 changed files with 273 additions and 233 deletions
@@ -18,7 +18,6 @@ import Dodge.Room.Link
 import Dodge.Room.Door
 import Dodge.Room.Airlock
 import Geometry
-import Picture
 import Tile

 import Control.Lens
@@ -147,7 +146,7 @@ miniRoom3 = do
        w <- state $ randomR (300,400)
        h <- state $ randomR (300,400)
        let cp = V2 0 (h/2+40)
-        let b = PutBlock StoneBlock [5,20,20] (greyN 0.5) $ map toV2 [(-10,-60) 
+        let b = PutBlock StoneBlock [5,20,20] baseBlockPane $ map toV2 [(-10,-60) 
                                               ,( 10,-60) 
                                               ,( 10,-80) 
                                               ,(-10,-80)