Remove creature records

src/Dodge/HeldUse.hs

@@ -425,9 +425,9 @@ itemSidePush = \case
 applyInvLock :: Item -> Creature -> World -> World
 applyInvLock itm cr = case itemInvLock itm of
     i
-        | i > 0 ->
-            (cWorld . lWorld . delayedEvents .:~ (i, UnlockInv cid))
-                . lockInv cid
+        | i > 0 && cid == 0 ->
+            (cWorld . lWorld . delayedEvents .:~ (i, UnlockInv))
+                . lockInv
     _ -> id
   where
     cid = _crID cr
@@ -441,7 +441,7 @@ heldItemInvLock :: HeldItemType -> Int
 heldItemInvLock = \case
     FLAMESPITTER -> 10
     VOLLEYGUN i -> i + 1
-    BURSTRIFLE -> 7
+    BURSTRIFLE -> 70
     _ -> 0
 
 applySoundCME :: Item -> Creature -> World -> World