Add shrinkability and cursed items

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