14 lines
328 B
Haskell
14 lines
328 B
Haskell
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
|