Work on more complicated terminals

2022-05-31 13:30:27 +01:00
parent 79b3a86520
commit b54864bbda
13 changed files with 159 additions and 64 deletions
@@ -385,12 +385,18 @@ data TerminalParams = NoTerminalParams | TerminalParams
    , _termFutureLines :: [TerminalLine]
    , _termMaxLines :: Int
    , _termTitle :: String
+    , _termSel :: Maybe Int
+    , _termOptions :: [(String, World -> World)]
    }
 data TerminalLine
    = TerminalLineDisplay
        {_tlPause :: Int
        ,_tlString :: World -> (String, Color)
        }
+    | TerminalLineChoice
+        {_tlPause :: Int
+        ,_tlOptions :: [(String,World -> World)]
+        }
    | TerminalLineEffect
        {_tlPause :: Int
        ,_tlEffect :: SubInventory -> World -> World