module Dodge.Inventory.Lock where
import Dodge.Data
import Control.Lens

lockInv :: Int -> World -> World
lockInv cid = creatures . ix cid . crInvLock %~ (|| True)

unlockInv :: Int -> World -> World
unlockInv cid = creatures . ix cid . crInvLock %~ (&& False)