Add burst fire, tentative inventory locking

2021-12-04 16:05:46 +00:00
parent 30abc318ae
commit cb670bdfd8
16 changed files with 108 additions and 18 deletions
@@ -0,0 +1,9 @@
+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)