Add shrinkability and cursed items

src/Dodge/Room/Boss.hs

@@ -11,7 +11,6 @@ import Dodge.Room.Corridor
 import Dodge.Room.Path
 --import Dodge.LevelGen.Data
 import Dodge.Creature
-import Dodge.Creature.State.Data
 import Dodge.RandomHelp
 import Dodge.Layout.Tree.Polymorphic
 import Geometry

src/Dodge/Room/NoNeedWeapon.hs

@@ -4,7 +4,6 @@ module Dodge.Room.NoNeedWeapon
     ) where
 import Dodge.Data
 import Dodge.Creature
-import Dodge.Creature.State.Data
 --import Dodge.Creature.Inanimate
 import Dodge.LevelGen.Data
 import Dodge.Room.Procedural

src/Dodge/Room/Procedural.hs

@@ -13,6 +13,7 @@ import Dodge.Data
 import Dodge.Default.Wall
 import Dodge.PlacementSpot
 import Dodge.Placement.Instance
+import Dodge.Item.Weapon.Utility
 import Dodge.Room.Link
 import Dodge.Room.Path
 import Dodge.Default.Room

src/Dodge/Room/RoadBlock.hs

@@ -74,15 +74,20 @@ blockedCorridor = do
     sequence $ treeFromPost [] $ return $ Right $ set rmPmnts plmnts corridor
 
 dirtPoly :: [Point2] -> PSType
-dirtPoly = PutBlock DirtBlock [1] (V4 (150/256) ( 75/256)  0 ( 250/256)) . reverse
+dirtPoly = PutBlock DirtBlock [1] dirtWall . reverse
 
 -- | A single corridor with a destructible block blocking it.
 blockedCorridor' :: RandomGen g => State g Room
 blockedCorridor' = do
     r <- state $ randomR (0,pi)
-    theblocks <- takeOne [ [sPS (V2 20 40) r $ dirtPoly $ reverse $ square 10]
-        ,   [ sPS (V2 5 40) r $ dirtPoly $ square 10
-            , sPS (V2 35 40) (r+0.5) $ dirtPoly $ square 10
+    theblocks <- takeOne 
+        [  -- [sPS (V2 20 40) r $ dirtPoly $ square 10]
+        --,   [ sPS (V2 5 40) r $ dirtPoly $ square 10
+        --    , sPS (V2 35 40) (r+0.5) $ dirtPoly $ square 10
+        --    ]
+        --,   
+          [ sPS (V2 5 50) r $ dirtPoly $ square 10
+            , sPS (V2 35 35) (r+0.5) $ dirtPoly $ square 10
             ]
         ]
     return $ corridor & rmPmnts .~ theblocks

src/Dodge/Room/Room.hs

@@ -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)