Add shrinkability and cursed items

src/Dodge/Item/Equipment.hs

@@ -1,7 +1,5 @@
-module Dodge.Item.Equipment
-    where
+module Dodge.Item.Equipment where
 import Dodge.Data
-import Dodge.Item.Data
 import Dodge.Item.Draw
 import Dodge.Default
 import Dodge.Default.Wall
@@ -10,7 +8,6 @@ import Dodge.Item.Weapon.BatteryGuns
 import Dodge.Creature.Test
 import Dodge.Wall.Reflect
 import Dodge.Wall
-import Dodge.Creature.State.Data
 import Picture
 import Geometry
 import ShapePicture