Add shrinkability and cursed items

src/Dodge/Creature.hs

@@ -15,6 +15,7 @@ module Dodge.Creature
 import Dodge.Creature.State.Data
 import Dodge.Item.Weapon.Grenade
 import Dodge.Item.Weapon.Booster
+import Dodge.Item.Weapon.Utility
 --import Dodge.Creature.ReaderUpdate
 --import Dodge.Creature.AlertLevel
 --import Dodge.Creature.SetTarget
@@ -158,14 +159,20 @@ startCr = defaultCreature
     , _crHP = 1000
     , _crMaxHP = 1500
     , _crInv = startInventory 
-    , _crCorpse = onLayer CorpseLayer $ color (greyN 0.5) $ pictures [color (greyN 0.8) $ circleSolid 10, circLine 10]
+    , _crCorpse = onLayer CorpseLayer 
+        $ color (greyN 0.5) $ pictures [color (greyN 0.8) $ circleSolid 10, circLine 10]
     , _crFaction = PlayerFaction
+    , _crMvType = MvWalking yourDefaultSpeed
     }
 {- | Items you start with.  -}
+startInvList :: [Item]
+startInvList =
+    [shrinkGun
+    ]
 startInventory :: IM.IntMap Item
-startInventory = IM.fromList $ zip [0..20] $ repeat NoItem
+startInventory = IM.fromList $ zip [0..defaultInvSize -1] $ startInvList ++ repeat NoItem
 stackedInventory :: IM.IntMap Item
-stackedInventory = IM.fromList (zip [0..20] 
+stackedInventory = IM.fromList (zip [0..25] 
     (
     [spreadGun
     ,tractorGun