Add shrinkability and cursed items

src/Dodge/Placement/Instance/Turret.hs

@@ -8,7 +8,6 @@ import Dodge.WorldEvent.Explosion
 import Dodge.Item.Weapon.BatteryGuns
 import Dodge.SoundLogic.LoadSound
 import Dodge.SoundLogic
-import Dodge.Data.SoundOrigin
 import Geometry
 import ShapePicture
 import Shape

src/Dodge/Placement/Instance/Wall.hs

@@ -23,9 +23,9 @@ lowWall ps = ps0j (PutForeground . colorSH col $ upperPrismPoly 30 ps)
 singleBlock :: Point2 -> [Placement]
 singleBlock a = 
     [sPS a 0 
-        $ PutBlock StoneBlock [5,20,20] (greyN 0.5)
+        $ PutBlock StoneBlock [5,20,20] baseBlockPane
         $ reverse 
-        $ rectNSWE 10 (-10) (-10) 10
+        $ square 10
     ]
 {-
 Places a line of blocks between two points.
@@ -82,6 +82,17 @@ baseBlockPane = defaultWall
     , _wlDraw = True
     , _wlFireThrough = True
     }
+dirtWall :: Wall
+dirtWall = defaultWall
+    { _wlLine = (V2 0 0,V2 50 0)
+    , _wlID = 0
+    , _wlColor = V4 (150/256) ( 75/256)  0 ( 250/256)
+    , _wlSeen = False
+    , _wlOpacity = Opaque
+    , _wlRotateTo = False
+    , _wlDraw = True
+    , _wlFireThrough = True
+    }
 baseWindowPane :: Wall
 baseWindowPane = defaultWall
     { _wlLine = (V2 0 0,V2 50 0)