Remove creature records

src/Dodge/Data/Creature.hs

@@ -43,8 +43,7 @@ data Creature = Creature
     , _crHP :: Int
     , _crInv :: IM.IntMap Item
     , _crManipulation :: Manipulation
-    , _crInvCapacity :: Int
-    , _crInvLock :: Bool
+--    , _crInvLock :: Bool
     , _crEquipment :: M.Map EquipSite Int
     , _crState :: CreatureState
     , _crPastDamage :: Int

src/Dodge/Data/LWorld.hs

@@ -149,6 +149,7 @@ data LWorld = LWorld
     , _hotkeys :: M.Map Hotkey (NewInt ItmInt)
     , _imHotkeys :: NewIntMap ItmInt Hotkey
     , _lAimPos :: Point2
+    , _lInvLock :: Bool
     }
 
 --data WorldBeams = WorldBeams

src/Dodge/Data/WorldEffect.hs

@@ -24,7 +24,7 @@ data WdWd
     | WorldEffects [WdWd]
     | SetLSCol Point3 Int
     | AccessTerminal (Maybe Int)
-    | UnlockInv Int
+    | UnlockInv
     | SoundStart SoundOrigin Point2 SoundID (Maybe Int)
     | MakeStartCloudAt Point3
     | TorqueCr Float Int