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
@@ -93,6 +93,7 @@ data World = World
    , _modifications        :: IM.IntMap Modification
    , _yourID               :: !Int
    , _worldEvents          :: World -> World
+    , _delayedEvents        :: [(Int,World -> World)]
    , _pressPlates          :: IM.IntMap PressPlate
    , _buttons              :: IM.IntMap Button
    , _toPlaySounds         :: M.Map SoundOrigin Sound
@@ -228,6 +229,7 @@ data Creature = Creature
    , _crInv            :: IM.IntMap Item
    , _crInvSel         :: Int
    , _crInvCapacity    :: Int
+    , _crInvLock        :: Bool
    , _crLeftInvSel     :: Maybe Int
    , _crState          :: CreatureState
    , _crCorpse         :: Picture