Allow for concurrent effects

2022-08-16 16:02:09 +01:00
parent 919a179283
commit 26e88f059a
14 changed files with 181 additions and 53 deletions
@@ -80,8 +80,8 @@ handlePressedKey True ScancodeBackspace u
    | otherwise = return $ Just $ u & uvWorld . backspaceTimer -~ 1
 handlePressedKey True _ u = return $ Just u
 handlePressedKey _ scode u = case scode of
-    ScancodeF1 -> Just <$> (writeSaveSlot (SaveSlotNum 1) u >> return u)
-    ScancodeF2 -> Just <$> readSaveSlot (SaveSlotNum 1) u
+--    ScancodeF1 -> Just <$> (writeSaveSlot (SaveSlotNum 1) u >> return u)
+--    ScancodeF2 -> Just <$> readSaveSlot (SaveSlotNum 1) u
    ScancodeF5 -> return . Just $ doQuicksave u
    ScancodeF9 -> return . Just $ loadSaveSlot QuicksaveSlot u
    ScancodeSemicolon -> return . Just $ gotoTerminal u