justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Remove creature records

Browse Source
This commit is contained in:
justin
2025-06-06 14:52:52 +01:00
parent 05f250f928
commit 467f241d7a
15 changed files with 37 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Inventory/Lock.hs
+6 -4
View File
@@ -6,8 +6,10 @@ module Dodge.Inventory.Lock (
import Control.Lens
import Dodge.Data.World
lockInv :: Int -> World -> World
lockInv cid = cWorld . lWorld . creatures . ix cid . crInvLock ||~ True
lockInv :: World -> World
--lockInv cid = cWorld . lWorld . creatures . ix cid . crInvLock ||~ True
lockInv = cWorld . lWorld . lInvLock .~ True
unlockInv :: Int -> World -> World
unlockInv cid = cWorld . lWorld . creatures . ix cid . crInvLock &&~ False
--unlockInv :: Int -> World -> World
unlockInv :: World -> World
unlockInv = cWorld . lWorld . lInvLock .~ False