11 lines
296 B
Haskell
11 lines
296 B
Haskell
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
|