Move towards serializing saves/loads faster

2022-08-19 11:12:43 +01:00
parent c74d3b04bf
commit 9df0fa8692
38 changed files with 542 additions and 384 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 . cameraRot) (+ rot) w
+    | cid == 0 = set randGen g $ over (cWorld . cwCam . cwcRot) (+ rot) w
    | otherwise = set randGen g $ over (cWorld . creatures . ix cid . crDir) (+ rot) w
  where
    (rot, g) = randomR (- x, x) $ _randGen w