10 lines
261 B
Haskell
10 lines
261 B
Haskell
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)
|