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
@@ -3,13 +3,13 @@ import Dodge.SoundLogic.ExternallyGeneratedSounds
 import Dodge.Data.LoadAction

 loadInsert :: Int -> LoadAction
-loadInsert x = Insert x insertS Nothing
+loadInsert x = LoadInsert x insertS

 loadPartialInsert :: Int -> Int -> LoadAction
-loadPartialInsert x y = Insert x insertOneS (Just y)
+loadPartialInsert x y = LoadAdd x insertOneS y

 loadEject :: Int -> LoadAction
-loadEject x = Eject x ejectS
+loadEject x = LoadEject x ejectS

 loadPrime :: Int -> LoadAction
-loadPrime x = Prime x primeS
+loadPrime x = LoadPrime x primeS