module Dodge.Inventory.Lock where

import Control.Lens
import Dodge.Data.World

lockInv :: Int -> World -> World
lockInv cid = cWorld . lWorld . creatures . ix cid . crInvLock ||~ True

unlockInv :: Int -> World -> World
unlockInv cid = cWorld . lWorld . creatures . ix cid . crInvLock &&~ False