Tweak charmap; tweak zoom

src/Dodge/StartNewGame.hs

@@ -35,10 +35,10 @@ startPara =
     ]
         <> makeParagraph
             55
-            ( "My last memory is the reconstitution scan. "
+            ( "My last memory is the pre-duplication scan. "
-            <> "Though experimental, this techology allows for perfect duplication. "
+            <> "Though experimental, this techology allows for the creation of perfect copies. "
-            <> "At least in theory, "
+            <> "At least in theory; "
-            <> "it hasn't been tested on humans. "
+            <> "it hasn't been tested on humans: "
             <> "I'd only be duplicated if my original body was...  non-functional."
             )
         <> ["", "","", "Hopefully I can take better care of this one."]

src/Dodge/Update/Camera.hs

@@ -129,10 +129,10 @@ moveZoomCamera cfig theinput cr w campos =
         getAimZoom <$> (w ^? cWorld . lWorld . items . ix itid)
     newItemZoom = changeZoom (campos ^. camItemZoom) idealItemZoom
     changeZoom curZoom idealZoom
-        | curZoom > 1.02 * idealZoom 
+        | curZoom > 1.01 * idealZoom 
-            = ((zoomOutSpeed -1) * curZoom + (0.98*idealZoom)) / zoomOutSpeed
+            = ((zoomOutSpeed -1) * curZoom + (0.99*idealZoom)) / zoomOutSpeed
-        | curZoom < 0.98 * idealZoom 
+        | curZoom < 0.99 * idealZoom 
-            = ((zoomInSpeed -1) * curZoom + (1.02*idealZoom)) / zoomInSpeed
+            = ((zoomInSpeed -1) * curZoom + (1.01*idealZoom)) / zoomInSpeed
         | otherwise = idealZoom
     wallZoom = min4 (f (campos ^. camBoundDist))
     f (a,b,c,d) = (a+bordersize,b-bordersize,c+bordersize,d-bordersize)