Add shrinkability and cursed items

src/Dodge/Default/Weapon.hs

@@ -3,8 +3,6 @@ module Dodge.Default.Weapon
 import Dodge.Data
 import Dodge.Item.Weapon.ExtraEffect
 import Dodge.Item.Weapon.InventoryDisplay
-import Dodge.Item.Attachment.Data
-import Dodge.Item.Data
 import Picture
 import ShapePicture
 
@@ -12,6 +10,7 @@ import Linear.V3
 defaultGun :: Item
 defaultGun = Weapon 
     { _itName = "default"
+    , _itCurseStatus = Uncursed
     , _itIdentity = Pistol
     , _wpMaxAmmo = 15
     , _wpLoadedAmmo = 15

src/Dodge/Default/World.hs

@@ -2,9 +2,7 @@ module Dodge.Default.World
     where
 import Dodge.Data
 import Dodge.Base
-import Dodge.Config.Data
 import Dodge.Config.KeyConfig
-import Dodge.Item.Data
 import Dodge.Bounds
 --import Dodge.Menu
 --import Picture
@@ -81,7 +79,7 @@ defaultWorld = World
     , _inventoryMode = TopInventory
     , _lClickHammer = HammerUp
     , _foregroundShape = mempty
-    , _radDistortion = []
+    , _distortions     = []
     , _gameRooms = []
     , _preloadData = DummyPdata -- hack TODO remove this
     , _frameClock = 0