Add flavour text, start smoke, support for different reload sounds

2021-06-22 14:42:23 +02:00
parent 52eaeead5d
commit 39218ed3b5
31 changed files with 128 additions and 57 deletions
@@ -21,6 +21,8 @@ import SDL.Internal.Numbered

 handlePressedKeyInMenu :: MenuLayer -> Scancode -> World -> Maybe World
 handlePressedKeyInMenu mState scode w = case mState of
+    TerminalMessage 0 _ -> popMenu w
+    TerminalMessage _ m -> Just $ w & menuLayers %~ ((TerminalMessage 0 m : ) . tail)
    Terminal s -> case scode of
        ScancodeEscape  -> popMenu w
        ScancodeReturn  -> popMenu $ applyTerminalString s w