module Dodge.Inventory.Lock (
    lockInv,
    unlockInv,
) 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