Allow pausable reloads with discrete progess steps

2022-06-22 14:20:20 +01:00
parent 029b6daf8e
commit ac0948cb64
6 changed files with 60 additions and 76 deletions
@@ -5,9 +5,10 @@ import Sound.Data
 import Dodge.Item.Data
 import Control.Lens
 data LoadAction
-    = Eject  {_actionTime :: Int, _actionSound :: SoundID}
-    | Insert {_actionTime :: Int, _actionSound :: SoundID, _insertMax :: Maybe Int }
-    | Prime  {_actionTime :: Int, _actionSound :: SoundID}
+    = LoadEject  {_actionTime :: Int, _actionSound :: SoundID}
+    | LoadInsert {_actionTime :: Int, _actionSound :: SoundID}
+    | LoadAdd    {_actionTime :: Int, _actionSound :: SoundID, _insertMax :: Int }
+    | LoadPrime  {_actionTime :: Int, _actionSound :: SoundID}
  deriving (Eq,Ord,Show)
 data InvSel = InvSel {_iselPos :: Int, _iselAction :: InvSelAction }
 data InvSelAction