Remove creature move type record

2025-06-06 15:32:19 +01:00
parent e9b69be7de
commit 7292bc9012
16 changed files with 193 additions and 183 deletions
@@ -7,9 +7,7 @@ import Control.Lens
 import Dodge.Data.World

 lockInv :: World -> World
--lockInv cid = cWorld . lWorld . creatures . ix cid . crInvLock ||~ True
 lockInv = cWorld . lWorld . lInvLock .~ True

--unlockInv :: Int -> World -> World
 unlockInv :: World -> World
 unlockInv = cWorld . lWorld . lInvLock .~ False