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
@@ -58,7 +58,7 @@ accessTerminal mtmid w = case mtmid of

 torqueCr :: Float -> Int -> World -> World
 torqueCr x cid w
-    | cid == 0 = set randGen g $ over (cWorld . cwCamPos . camRot) (+ rot) w
+    | cid == 0 = set randGen g $ over (cWorld . cwCam . camRot) (+ rot) w
    | otherwise = set randGen g $ over (cWorld . lWorld . creatures . ix cid . crDir) (+ rot) w
  where
    (rot, g) = randomR (- x, x) $ _randGen w