Start to generalise text input to "terminal signal" input

2023-03-26 13:57:26 +01:00
parent cfb0a49059
commit 082ce9c9a1
39 changed files with 171 additions and 165 deletions
@@ -219,18 +219,20 @@ displayControls = titleOptionsNoWrite "CONTROLS" $ map (Toggle id . const . uncu

 listControls :: [(String, String)]
 listControls =
-    [ ("wasd", "MOVEMENT")
-    , ("[rmb]", "AIM")
-    , ("[rmb+lmb]", "SHOOT/USE/EQUIP SELECTED")
-    , ("[lmb]", "USE EQUIPPED")
-    , ("[wheelscroll]", "SELECT ITEM")
-    , ("[space]", "PICKUP ITEM")
+    [ ("w|a|s|d", "MOVEMENT")
+    , ("<rmb>", "AIM")
+    , ("<rmb>&<lmb>", "SHOOT/USE/EQUIP SELECTED")
+    , ("<lmb>", "USE EQUIPPED")
+    , ("<wheelscroll>", "SELECT ITEM")
+    , ("<space>", "PICKUP ITEM")
    , ("m", "DISPLAY MAP")
    , ("f", "DROP ITEM")
    , ("c", "COMBINE ITEMS")
    , ("x", "EXAMINE ITEMS")
-    , ("c[esc]", "PAUSE")
-    , ("qe", "ROTATE CAMERA")
-    , ("F5", "QUICKSAVE")
-    , ("F9", "QUICKLOAD")
+    , ("c|<esc>", "PAUSE AND DISPLAY MENU")
+    , ("q|e", "ROTATE CAMERA")
+    , ("<F2>", "PAUSE AND FLOAT CAMERA")
+    , ("<F3>", "PAUSE AND PAN CAMERA")
+    , ("<F5>", "QUICKSAVE")
+    , ("<F9>", "QUICKLOAD")
    ]