jak3 gsrc

2026-06-20 16:21:35 -04:00 · 2024-12-07 21:08:45 +01:00
parent 8ce3d26a2c
commit e5b9c6416c
206 changed files with 906 additions and 790 deletions
@@ -1072,7 +1072,7 @@
 (defun fov->maya ((arg0 float))
  (if (= arg0 0.0)
      0.0
-      (/ 12.700255 (tan (* 0.5 arg0)))
+      (/ 12.700255 (tan (/ arg0 2)))
      )
  )

@@ -231,10 +231,10 @@
             (let ((f30-0 (vector-dot s5-7 (-> self local-down))))
               (vector--float*! s5-7 s5-7 (-> self local-down) f30-0)
               (if (< 0.0 f30-0)
-                   (set! (-> self upspeed) (* 0.5 (-> self upspeed)))
+                   (set! (-> self upspeed) (/ (-> self upspeed) 2))
                   )
               (vector+! (-> self tpos-tgt) (-> self tpos-tgt) s5-7)
-               (let ((f0-26 (* 0.05 f30-0)))
+               (let ((f0-26 (/ f30-0 20)))
                 (vector+float*! (-> self tpos-tgt) (-> self tpos-tgt) (-> self local-down) f0-26)
                 )
               )
@@ -995,9 +995,7 @@
        (-> self local-down)
        (vector-normalize-copy! (-> self local-down) (-> *standard-dynamics* gravity) 1.0)
        )
-      (when (nonzero? cam-master-effect) ;; og:preserve-this not-yet-implemented check
-        (cam-master-effect)
-        )
+      (cam-master-effect)
      )
    )
  :code (behavior ()
@@ -1059,9 +1057,7 @@
  (let ((a1-4 (new-stack-vector0)))
    (tracking-spline-method-10 (-> self target-spline) a1-4)
    )
-  (when (nonzero? group-rain-screend-drop)  ;; og:preserve-this not-yet-implemented check
-     (set! (-> self water-drip) (create-launch-control group-rain-screend-drop self))
-     )
+  (set! (-> self water-drip) (create-launch-control group-rain-screend-drop self))
  (set! (-> self water-drip-time) (seconds -60))
  (go cam-master-active)
  0
@@ -47,10 +47,10 @@
                )
            (cond
              ((cpad-hold? (-> *CAMERA-bank* joypad) r2)
-               (set! (-> s5-0 y) (- (-> s5-0 y) (* 0.2 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f26-0))))
-               (set! (-> s5-0 x) (- (-> s5-0 x) (* 0.2 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f0-0))))
-               (+! (-> gp-0 x) (* 0.2 (-> *CAM_POINT_WATCH-bank* speed) f28-0))
-               (+! (-> gp-0 z) (* 0.2 (-> *CAM_POINT_WATCH-bank* speed) f30-0))
+               (set! (-> s5-0 y) (- (-> s5-0 y) (* (/ (-> *CAM_POINT_WATCH-bank* rot-speed) 5) (- f26-0))))
+               (set! (-> s5-0 x) (- (-> s5-0 x) (* (/ (-> *CAM_POINT_WATCH-bank* rot-speed) 5) (- f0-0))))
+               (+! (-> gp-0 x) (* (/ (-> *CAM_POINT_WATCH-bank* speed) 5) f28-0))
+               (+! (-> gp-0 z) (* (/ (-> *CAM_POINT_WATCH-bank* speed) 5) f30-0))
               )
              (else
                (set! (-> s5-0 y) (- (-> s5-0 y) (* 2.0 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f26-0))))
@@ -293,16 +293,16 @@
                 ((logtest? (-> (the-as cpad-list (+ (* arg4 4) (the-as int *cpad-list*))) cpads 0 button0-abs 0)
                            (pad-buttons l2)
                            )
-                  (set! (-> arg1 y) (- (-> arg1 y) (* 0.5 (-> *CAM_FREE-bank* rot-speed) (- f24-0))))
-                  (set! (-> arg1 x) (- (-> arg1 x) (* 0.5 (-> *CAM_FREE-bank* rot-speed) (- f0-19))))
+                  (set! (-> arg1 y) (- (-> arg1 y) (* (/ (-> *CAM_FREE-bank* rot-speed) 2) (- f24-0))))
+                  (set! (-> arg1 x) (- (-> arg1 x) (* (/ (-> *CAM_FREE-bank* rot-speed) 2) (- f0-19))))
                  )
                 (else
                   (set! (-> arg1 y) (- (-> arg1 y) (* (- f24-0) (-> *CAM_FREE-bank* rot-speed))))
                   (set! (-> arg1 x) (- (-> arg1 x) (* (- f0-19) (-> *CAM_FREE-bank* rot-speed))))
                   )
                 )
-               (+! (-> arg2 x) (* 0.2 f30-0 f26-2))
-               (+! (-> arg2 z) (* 0.2 f30-0 f28-4))
+               (+! (-> arg2 x) (* (/ f30-0 5) f26-2))
+               (+! (-> arg2 z) (* (/ f30-0 5) f28-4))
               )
              ((and (not s3-0) (cpad-hold? arg4 l2))
               (+! (-> arg2 x) (* f26-2 f30-0))
@@ -2443,7 +2443,7 @@
        (set! f28-0 0.0)
        )
    (if (-> self have-phony-joystick)
-        (set! f28-0 (* 0.05 (-> self phony-joystick-y)))
+        (set! f28-0 (/ (-> self phony-joystick-y) 20))
        )
    (if (and (-> *camera* being-attacked) (not (time-elapsed? (-> *camera* attack-start) (seconds 0.25))))
        (set! f28-0 0.05)
@@ -2466,7 +2466,7 @@
      (let ((f0-23 f26-0))
        (when (and (< f26-0 0.0) (not (logtest? (cam-slave-options BOMBBOT) (-> *camera* settings slave-options))))
          (let ((f0-26
-                  (/ (- (-> self string-min-val z) (vector-length (-> self view-flat))) (* 0.5 (-> self string-min-val z)))
+                  (/ (- (-> self string-min-val z) (vector-length (-> self view-flat))) (/ (-> self string-min-val z) 2))
                  )
                )
            (set! f0-23 (fmin 0.75 f0-26))
@@ -285,7 +285,7 @@
     0.0
     )
    ((>= 0.25 arg0)
-     (* 0.5 arg0)
+     (/ arg0 2)
     )
    ((>= arg0 0.75)
     (- 1.0 (* 0.5 (- 1.0 arg0)))
@@ -788,7 +788,7 @@
      (the-as vector (-> this point (-> this end-point)))
      )
    (let* ((f0-0 (vector-length s3-0))
-           (f1-1 (* 0.33333334 (- 1.5 (* 0.00024414062 f0-0))))
+           (f1-1 (* 0.33333334 (- 1.5 (/ f0-0 METER_LENGTH))))
           )
      0.0
      (let* ((f1-2 (fmax 0.0 f1-1))
@@ -818,7 +818,7 @@
              (the-as vector (+ (the-as uint (-> this point 0 direction)) (* 48 v1-18)))
              )
            (let* ((f0-5 (vector-normalize-ret-len! s2-0 1.0))
-                   (f0-6 (* 0.5 f0-5))
+                   (f0-6 (/ f0-5 2))
                   (f26-0 (* (fmin 1.0 f0-6) f30-0 (vector-dot arg0 s2-0)))
                   )
              (let ((f1-14 (vector-dot s2-0 s3-0)))
@@ -894,7 +894,7 @@
        (tracking-spline-method-19 this (* (-> this max-move) (-> pp clock time-adjust-ratio)) arg0 arg5 s3-0)
        (tracking-spline-method-14 this s3-0)
        (dotimes (s2-0 63)
-          (tracking-spline-method-18 this (* 0.015625 (-> this sample-len)) arg0 arg5 s3-0)
+          (tracking-spline-method-18 this (/ (-> this sample-len) 64) arg0 arg5 s3-0)
          )
        (vector-float*! arg0 arg0 0.015625)
        (vector-float*! arg5 arg5 0.015625)
@@ -1283,7 +1283,7 @@
                (vector-! s2-0 s2-0 (-> arg0 follow-off))
                (vector-float*! s2-0 s2-0 f0-23)
                )
-              (+! (-> arg0 follow-blend) (* 0.016666668 (-> pp clock time-adjust-ratio)))
+              (+! (-> arg0 follow-blend) (/ (-> pp clock time-adjust-ratio) 60))
              (vector+! (-> arg0 follow-off) (-> arg0 follow-off) s2-0)
              )
             (else
@@ -1518,7 +1518,7 @@
            (let ((f28-0 (vector-dot s3-0 (-> arg0 rvec))))
              (set! sv-128 s2-0)
              (set! sv-112 (-> arg0 rvec))
-              (let ((f0-7 (* 0.8 (tan (* 0.5 arg2)))))
+              (let ((f0-7 (* 0.8 (tan (/ arg2 2)))))
                (.lvf vf1 (&-> sv-112 quad))
                (let ((v1-11 f0-7))
                  (.mov vf2 v1-11)
@@ -1551,7 +1551,7 @@
          (let ((f28-1 (vector-dot s3-0 (-> arg0 uvec))))
            (set! sv-160 s2-0)
            (set! sv-144 (-> arg0 uvec))
-            (let ((f0-16 (* 0.525 (tan (* 0.5 arg2)))))
+            (let ((f0-16 (* 0.525 (tan (/ arg2 2)))))
              (.lvf vf1 (&-> sv-144 quad))
              (let ((v1-32 f0-16))
                (.mov vf2 v1-32)
@@ -1577,7 +1577,7 @@
          (let ((f28-2 (vector-dot s3-0 (-> arg0 uvec))))
            (let ((s0-1 s2-0))
              (set! sv-176 (-> arg0 uvec))
-              (let ((f0-26 (* 0.525 (tan (* 0.5 arg2)))))
+              (let ((f0-26 (* 0.525 (tan (/ arg2 2)))))
                (vector-float*! s0-1 sv-176 f0-26)
                )
              )
@@ -1741,7 +1741,7 @@
      (set! sv-256 vector-into-frustum-nosmooth!)
      (set! sv-272 s1-0)
      (set! sv-288 arg1)
-      (let ((a2-5 (lerp-clamp arg3 (* 0.25 arg3) (-> arg0 underwater-blend value))))
+      (let ((a2-5 (lerp-clamp arg3 (/ arg3 4) (-> arg0 underwater-blend value))))
        (sv-256 sv-272 sv-288 a2-5)
        )
      (cond
@@ -488,7 +488,7 @@
               )
         )
    (let ((f1-2 (- (- (vector-length gp-1) (-> v1-0 prim-core world-sphere w)) (-> s4-0 prim-core world-sphere w))))
-      (vector-normalize! gp-1 (+ (-> s4-0 prim-core world-sphere w) (* 0.5 f1-2)))
+      (vector-normalize! gp-1 (+ (-> s4-0 prim-core world-sphere w) (/ f1-2 2)))
      )
    (vector+! arg0 gp-1 (the-as vector (-> s4-0 prim-core)))
    )
@@ -154,11 +154,11 @@
          )
      (vector+! (-> s2-1 trans) s3-0 s4-0)
      (vector-float*! (-> s2-1 trans) (-> s2-1 trans) 0.5)
-      (+! (-> s2-1 trans y) (* 0.5 arg1))
+      (+! (-> s2-1 trans y) (/ arg1 2))
      (vector-! (-> s1-0 rvec) s4-0 s3-0)
      (let ((f30-1 (vector-normalize-ret-len! (-> s1-0 rvec) 1.0)))
-        (set! (-> s2-1 scale x) (* 0.00024414062 f30-1))
-        (set! (-> s2-1 scale y) (* 0.00024414062 arg1))
+        (set! (-> s2-1 scale x) (/ f30-1 METER_LENGTH))
+        (set! (-> s2-1 scale y) (/ arg1 METER_LENGTH))
        (set! (-> s2-1 scale z) 0.0)
        (set! (-> s1-0 uvec quad) (-> (new 'static 'vector :y 1.0 :w 1.0) quad))
        (vector-cross! (-> s1-0 fvec) (-> s1-0 rvec) (-> s1-0 uvec))
@@ -166,7 +166,7 @@
        (matrix->quaternion (-> s2-1 quat) s1-0)
        (let ((v1-20 (-> this root root-prim local-sphere)))
          (set! (-> v1-20 x) 0.0)
-          (set! (-> v1-20 y) (* 0.00024414062 (* 0.5 arg1)))
+          (set! (-> v1-20 y) (* 0.00024414062 (/ arg1 2)))
          (set! (-> v1-20 z) 0.0)
          (let ((f0-17 0.5)
                (f1-7 (* f30-1 f30-1))
@@ -916,7 +916,7 @@
      (set! (-> self root trans y) (-> self base y))
      (cond
        ((< (-> self root transv y) -8192.0)
-         (set! (-> self root transv y) (* -0.5 (-> self root transv y)))
+         (set! (-> self root transv y) (/ (-> self root transv y) -2))
         )
        (else
          (if (and (logtest? (-> self fact options) (actor-option suck-in))
@@ -1057,7 +1057,7 @@
             )
            (else
              (if (nonzero? (-> self part))
-                  (set! (-> self part local-space-binding) (the-as particle-local-space-info (* 0.0033333334 f0-1)))
+                  (set! (-> self part local-space-binding) (the-as particle-local-space-info (/ f0-1 300)))
                  )
              (when (nonzero? (-> self draw))
                (logior! (-> self draw status) (draw-control-status force-fade))
@@ -1717,7 +1717,7 @@
            (set! (-> a0-6 y) 0.0)
            (vector-normalize! a0-6 1.0)
            )
-          (vector-float*! gp-2 gp-2 (rand-vu-float-range (* 0.25 f30-0) (* 0.75 f30-0)))
+          (vector-float*! gp-2 gp-2 (rand-vu-float-range (/ f30-0 4) (* 0.75 f30-0)))
          )
        (set! (-> self root transv quad) (-> gp-2 quad))
        )
@@ -2795,7 +2795,7 @@
                                  ((and (>= f24-1 f0-10) (logtest? s2-0 (game-feature gun-red-1 gun-red-2 gun-red-3)))
                                   (set! (-> arg1 0) (pickup-type ammo-red))
                                   (if (>= 1 (mod (the-as int (rand-uint31-gen *random-generator*)) 3))
-                                       (set! (-> arg2 0) (* 0.5 (-> arg2 0)))
+                                       (set! (-> arg2 0) (/ (-> arg2 0) 2))
                                       )
                                   )
                                  ((and (>= f28-1 f0-10) (logtest? s2-0 (game-feature gun-blue-1 gun-blue-2 gun-blue-3)))
@@ -2805,7 +2805,7 @@
                                   )
                                  ((and (>= f30-1 f0-10) (logtest? (game-feature gun-dark-1 gun-dark-2 gun-dark-3) s2-0))
                                   (set! (-> arg1 0) (pickup-type ammo-dark))
-                                   (set! (-> arg2 0) (the float (the int (fmax 1.0 (* 0.06666667 (-> arg2 0))))))
+                                   (set! (-> arg2 0) (the float (the int (fmax 1.0 (/ (-> arg2 0) 15)))))
                                   )
                                  (else
                                    (pickup-dark-set! arg0 arg1 arg2 arg3)
@@ -920,7 +920,8 @@
          )
      )
    (when (not arg0)
-      (suspend-for (seconds 0.04))
+      (suspend-for (seconds 0.04)
+        )
      (case (-> self look)
        (('iron)
         (sound-play "icrate-break")
@@ -1012,9 +1013,11 @@
    (drop-pickup (-> self fact) #t *entity-pool* (the-as fact-info #f) arg1 #t)
    (process-entity-status! self (entity-perm-status dead) #t)
    (process-entity-status! self (entity-perm-status subtask-complete) #t)
-    (suspend-for (seconds 5))
+    (suspend-for (seconds 5)
+      )
    (when (logtest? (actor-option cond-respawn) (-> self fact options))
-      (suspend-for (seconds 15))
+      (suspend-for (seconds 15)
+        )
      (go-virtual hide)
      )
    )
@@ -1346,9 +1349,9 @@

 (defmethod smush-update! ((this crate))
  (let ((f0-0 (update! (-> this smush))))
-    (set! (-> this root scale x) (+ 1.0 (* -0.5 f0-0)))
+    (set! (-> this root scale x) (+ 1.0 (/ f0-0 -2)))
    (set! (-> this root scale y) (+ 1.0 f0-0))
-    (set! (-> this root scale z) (+ 1.0 (* -0.5 f0-0)))
+    (set! (-> this root scale z) (+ 1.0 (/ f0-0 -2)))
    )
  0
  (none)
@@ -669,7 +669,8 @@
  :code (behavior ()
    (cond
      ((handle->process (-> self ragdoll-proc))
-       (suspend-for (seconds 0.2))
+       (suspend-for (seconds 0.2)
+         )
       (until (ragdoll-settled? self)
         (if (or (time-elapsed? (-> self state-time) (seconds 4)) (enemy-method-109 self))
             (go-die self)
@@ -975,11 +976,13 @@
  :code (behavior ()
    (cond
      ((handle->process (-> self ragdoll-proc))
-       (suspend-for (seconds 0.2))
+       (suspend-for (seconds 0.2)
+         )
       (if (-> self skel effect)
           (do-effect (-> self skel effect) "death-default" 0.0 -1)
           )
-       (suspend-for (seconds 0.8))
+       (suspend-for (seconds 0.8)
+         )
       )
      (else
        (ja-channel-push! 1 (seconds 0.075))
@@ -1061,11 +1064,13 @@
  :code (behavior ()
    (cond
      ((handle->process (-> self ragdoll-proc))
-       (suspend-for (seconds 1))
+       (suspend-for (seconds 1)
+         )
       (if (-> self skel effect)
           (do-effect (-> self skel effect) "death-default" 0.0 -1)
           )
-       (suspend-for (seconds 1))
+       (suspend-for (seconds 1)
+         )
       (deactivate-ragdoll! self)
       )
      (else
@@ -1182,7 +1187,7 @@
             (f26-1 (fmax 0.0 (fmin 1.0 f0-12)))
             (f28-1 (* f28-0 f26-1))
             )
-        (let* ((f1-8 (* 0.000061035156 (-> self root root-prim local-sphere w)))
+        (let* ((f1-8 (/ (-> self root root-prim local-sphere w) (meters 4)))
               (f0-21 (fmax 0.0 (fmin 1.0 f1-8)))
               )
          (* f30-0 (lerp 2.0 1.0 f0-21))
@@ -1212,7 +1217,7 @@
                      (f0-34 (/ (- f0-32 (* (the float (the int (/ f0-32 f30-3))) f30-3)) f30-3))
                      (f0-36 (cos (* 65536.0 f0-34)))
                      (f0-37 (+ 1.0 f0-36))
-                      (f28-3 (* 0.5 f0-37))
+                      (f28-3 (/ f0-37 2))
                      )
                 (ja :num! identity :frame-interp0 f28-3 :frame-interp1 f28-3)
                 (let ((a0-20 (-> self skel root-channel 1)))
@@ -372,7 +372,7 @@
        (launch-particles (-> *part-id-table* 852) s4-0)
        )
      (let ((s4-1 (new 'stack-no-clear 'matrix))
-            (f26-0 (* 0.000027126736 f30-0))
+            (f26-0 (/ f30-0 (meters 9)))
            (f30-1 (-> *part-id-table* 853 init-specs 3 initial-valuef))
            (f28-1 (-> *part-id-table* 853 init-specs 4 initial-valuef))
            )
@@ -367,7 +367,7 @@
        (launch-particles (-> *part-id-table* 864) s4-0)
        )
      (let ((s4-1 (new 'stack-no-clear 'matrix))
-            (f26-0 (* 0.000020345053 f30-0))
+            (f26-0 (/ f30-0 (meters 12)))
            (f30-1 (-> *part-id-table* 865 init-specs 3 initial-valuef))
            (f28-1 (-> *part-id-table* 865 init-specs 5 initial-valuef))
            )
@@ -593,7 +593,7 @@
           )
         (set-time! (-> this drip-time))
         (logclear! (-> this flags) (water-flag spawn-drip))
-         (seek! (-> this drip-wetness) 0.0 (* 0.001 (-> this drip-speed)))
+         (seek! (-> this drip-wetness) 0.0 (/ (-> this drip-speed) 1000))
         (set! (-> this drip-speed) (* 1.05 (-> this drip-speed)))
         (if (= (-> this drip-wetness) 0.0)
             (set! (-> this drip-height) 0.0)
@@ -733,7 +733,7 @@
    (set! (-> *part-id-table* 759 init-specs 4 initial-valuef) (+ 24576.0 arg0))
    (set! (-> *part-id-table* 759 init-specs 19 initial-valuef) (+ 49152.0 arg0))
    (set! (-> *part-id-table* 759 init-specs 1 initial-valuef) (* 0.0000036621095 f30-0))
-    (set! (-> *part-id-table* 759 init-specs 2 initial-valuef) (* 0.1 f30-0))
+    (set! (-> *part-id-table* 759 init-specs 2 initial-valuef) (/ f30-0 10))
    (set! (-> *part-id-table* 759 init-specs 13 initial-valuef) 0.7111111)
    (set! (-> *part-id-table* 759 init-specs 3 initial-valuef) arg3)
    (set! (-> *part-id-table* 759 init-specs 5 initial-valuef) arg3)
@@ -762,7 +762,7 @@
            (when (= (-> this analog-func) (collision-editor-func analog))
              (set! f30-0 (* -409.6 f30-0))
              (set! f28-0 (* -409.6 f28-0))
-              (let ((f0-8 (+ (* 0.01 f24-0) (* -0.01 f26-0))))
+              (let ((f0-8 (+ (/ f24-0 100) (/ f26-0 -100))))
                (set! f24-0 (+ 1.0 f0-8))
                )
              (set! f26-0 0.0)
@@ -266,13 +266,13 @@
  (case arg0
    (('close)
     (if (and *math-camera* *subdivide-settings*)
-         (* 0.00024414062 (-> *subdivide-settings* close 0))
+         (/ (-> *subdivide-settings* close 0) METER_LENGTH)
         arg3
         )
     )
    (('far)
     (if (and *math-camera* *subdivide-settings*)
-         (* 0.00024414062 (-> *subdivide-settings* far 0))
+         (/ (-> *subdivide-settings* far 0) METER_LENGTH)
         arg3
         )
     )
@@ -534,7 +534,7 @@
    (if (= arg1 (debug-menu-msg press))
        (set! (-> v1-0 camera-to-bbox-dist) (* 4096.0 arg2))
        )
-    (* 0.00024414062 (-> v1-0 camera-to-bbox-dist))
+    (/ (-> v1-0 camera-to-bbox-dist) METER_LENGTH)
    )
  )

@@ -1039,7 +1039,7 @@
                         )
                       )
                     )
-                   (set! f30-0 (* 0.00024414062 f1-2))
+                   (set! f30-0 (/ f1-2 METER_LENGTH))
                   )
                 )
                )
@@ -1074,7 +1074,7 @@
                       (set! (-> (the-as prototype-bucket-tie s2-0) tie-vanish-far) f0-0)
                       )
                     )
-                   (set! f30-0 (* 0.00024414062 f0-0))
+                   (set! f30-0 (/ f0-0 METER_LENGTH))
                   )
                 )
                )
@@ -2602,7 +2602,7 @@
                          (set! (-> s2-0 dists x) (* 4096.0 arg2))
                          (prototype-bucket-recalc-fields s2-0)
                          )
-                        (set! f30-0 (* 0.00024414062 (-> s2-0 dists x)))
+                        (set! f30-0 (/ (-> s2-0 dists x) METER_LENGTH))
                        )
                      )
                    )
@@ -2636,7 +2636,7 @@
                          (set! (-> s2-0 dists w) (* 4096.0 arg2))
                          (prototype-bucket-recalc-fields s2-0)
                          )
-                        (set! f30-0 (* 0.00024414062 (-> s2-0 dists w)))
+                        (set! f30-0 (/ (-> s2-0 dists w) METER_LENGTH))
                        )
                      )
                    )
@@ -6095,13 +6095,13 @@
                            fog-dists
                            x
                            )
-                        (* 0.00024414062
-                           (-> *overide-mood-fog-table*
+                        (/ (-> *overide-mood-fog-table*
                               data
                               (the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
                               fog-dists
                               x
                               )
+                           METER_LENGTH
                           )
                        )
                  (set! (-> *overide-mood-fog-table*
@@ -6110,13 +6110,13 @@
                            fog-dists
                            y
                            )
-                        (* 0.00024414062
-                           (-> *overide-mood-fog-table*
+                        (/ (-> *overide-mood-fog-table*
                               data
                               (the-as uint (logand (-> *time-of-day-context* mode) (time-of-day-palette-id unk0 unk1 unk2)))
                               fog-dists
                               y
                               )
+                           METER_LENGTH
                           )
                        )
                  )
@@ -6129,10 +6129,10 @@
                  (dotimes (v1-0 8)
                    (set! (-> *overide-mood-fog-table* data v1-0 fog-color w) 1.0)
                    (set! (-> *overide-mood-fog-table* data v1-0 fog-dists x)
-                          (* 0.00024414062 (-> *overide-mood-fog-table* data v1-0 fog-dists x))
+                          (/ (-> *overide-mood-fog-table* data v1-0 fog-dists x) METER_LENGTH)
                          )
                    (set! (-> *overide-mood-fog-table* data v1-0 fog-dists y)
-                          (* 0.00024414062 (-> *overide-mood-fog-table* data v1-0 fog-dists y))
+                          (/ (-> *overide-mood-fog-table* data v1-0 fog-dists y) METER_LENGTH)
                          )
                    )
                  #f
@@ -6455,10 +6455,10 @@
                  (set! (-> *overide-mood-color-table* data v1-0 amb-color w) 1.0)
                  (set! (-> *overide-mood-fog-table* data v1-0 fog-color w) 1.0)
                  (set! (-> *overide-mood-fog-table* data v1-0 fog-dists x)
-                        (* 0.00024414062 (-> *overide-mood-fog-table* data v1-0 fog-dists x))
+                        (/ (-> *overide-mood-fog-table* data v1-0 fog-dists x) METER_LENGTH)
                        )
                  (set! (-> *overide-mood-fog-table* data v1-0 fog-dists y)
-                        (* 0.00024414062 (-> *overide-mood-fog-table* data v1-0 fog-dists y))
+                        (/ (-> *overide-mood-fog-table* data v1-0 fog-dists y) METER_LENGTH)
                        )
                  (set-vector! (-> *time-of-day-context* times v1-0) 1.0 1.0 1.0 1.0)
                  )
@@ -132,7 +132,7 @@
                   )
                 (v1-22 (vector-orient-by-quat! (new 'stack-no-clear 'vector) s1-0 a2-3))
                 )
-            (let ((a0-13 (* 0.25 arg3)))
+            (let ((a0-13 (/ arg3 4)))
              (.mov vf7 a0-13)
              )
            (.lvf vf5 (&-> v1-22 quad))
@@ -152,7 +152,7 @@
                       )
                 (v1-29 (vector-orient-by-quat! (new 'stack-no-clear 'vector) s1-0 a2-7))
                 )
-            (let ((a0-17 (* 0.25 arg3)))
+            (let ((a0-17 (/ arg3 4)))
              (.mov vf7 a0-17)
              )
            (.lvf vf5 (&-> v1-29 quad))
@@ -208,7 +208,7 @@
              s5-0
              (the-as vector (-> this mat))
              f30-1
-              (* 0.25 f30-1)
+              (/ f30-1 4)
              (if (= (-> this action) (manipulator-action ma1))
                  *color-yellow*
                  *color-red*
@@ -216,17 +216,17 @@
              )
            )
        (if s3-0
-            (draw-axis s5-0 (-> this mat uvec) f30-1 (* 0.25 f30-1) (if (= (-> this action) (manipulator-action ma2))
-                                                                        *color-yellow*
-                                                                        *color-green*
-                                                                        )
+            (draw-axis s5-0 (-> this mat uvec) f30-1 (/ f30-1 4) (if (= (-> this action) (manipulator-action ma2))
+                                                                     *color-yellow*
+                                                                     *color-green*
+                                                                     )
                       )
            )
        (if s2-0
-            (draw-axis s5-0 (-> this mat fvec) f30-1 (* 0.25 f30-1) (if (= (-> this action) (manipulator-action ma3))
-                                                                        *color-yellow*
-                                                                        *color-blue*
-                                                                        )
+            (draw-axis s5-0 (-> this mat fvec) f30-1 (/ f30-1 4) (if (= (-> this action) (manipulator-action ma3))
+                                                                     *color-yellow*
+                                                                     *color-blue*
+                                                                     )
                       )
            )
        (let ((s1-0 (new 'stack-no-clear 'vector))
@@ -1064,7 +1064,7 @@
     (sound-play-by-name
       (sound-name-with-material "zoom-land" (-> self control ground-pat) "")
       (new-sound-id)
-       (the int (* 1024.0 (* 0.000016276043 (-> self control ground-impact-vel))))
+       (the int (* 1024.0 (/ (-> self control ground-impact-vel) (meters 15))))
       0
       0
       (sound-group)
@@ -80,10 +80,10 @@
        )
       (set! f0-0 (-> *FACT-bank* ammo-yellow-max))
       (if (logtest? (game-feature gun-upgrade-yellow-ammo-1) (-> this features))
-           (set! f0-0 (+ (the-as float f0-0) (* 0.5 (-> *FACT-bank* ammo-yellow-max))))
+           (set! f0-0 (+ (the-as float f0-0) (/ (-> *FACT-bank* ammo-yellow-max) 2)))
           )
       (if (logtest? (game-feature gun-upgrade-yellow-ammo-2) (-> this features))
-           (set! f0-0 (+ (the-as float f0-0) (* 0.5 (-> *FACT-bank* ammo-yellow-max))))
+           (set! f0-0 (+ (the-as float f0-0) (/ (-> *FACT-bank* ammo-yellow-max) 2)))
           )
       (if (logtest? (game-secrets gun-upgrade-ammo-yellow) (-> this secrets))
           (set! f0-0 (+ (the-as float f0-0) (-> *FACT-bank* ammo-yellow-max)))
@@ -97,10 +97,10 @@
        )
       (set! f0-0 (-> *FACT-bank* ammo-red-max))
       (if (logtest? (game-feature gun-upgrade-red-ammo-1) (-> this features))
-           (set! f0-0 (+ (the-as float f0-0) (* 0.5 (-> *FACT-bank* ammo-red-max))))
+           (set! f0-0 (+ (the-as float f0-0) (/ (-> *FACT-bank* ammo-red-max) 2)))
           )
       (if (logtest? (game-feature gun-upgrade-red-ammo-2) (-> this features))
-           (set! f0-0 (+ (the-as float f0-0) (* 0.5 (-> *FACT-bank* ammo-red-max))))
+           (set! f0-0 (+ (the-as float f0-0) (/ (-> *FACT-bank* ammo-red-max) 2)))
           )
       (if (logtest? (game-secrets gun-upgrade-ammo-red) (-> this secrets))
           (set! f0-0 (+ (the-as float f0-0) (-> *FACT-bank* ammo-red-max)))
@@ -114,10 +114,10 @@
        )
       (set! f0-0 (-> *FACT-bank* ammo-blue-max))
       (if (logtest? (game-feature gun-upgrade-blue-ammo-1) (-> this features))
-           (set! f0-0 (+ (the-as float f0-0) (* 0.5 (-> *FACT-bank* ammo-blue-max))))
+           (set! f0-0 (+ (the-as float f0-0) (/ (-> *FACT-bank* ammo-blue-max) 2)))
           )
       (if (logtest? (game-feature gun-upgrade-blue-ammo-2) (-> this features))
-           (set! f0-0 (+ (the-as float f0-0) (* 0.5 (-> *FACT-bank* ammo-blue-max))))
+           (set! f0-0 (+ (the-as float f0-0) (/ (-> *FACT-bank* ammo-blue-max) 2)))
           )
       (if (logtest? (game-secrets gun-upgrade-ammo-blue) (-> this secrets))
           (set! f0-0 (+ (the-as float f0-0) (-> *FACT-bank* ammo-blue-max)))
@@ -1752,7 +1752,7 @@
      (seek!
        (-> s5-0 dust-storm-sound-scalar)
        (-> s4-0 dust-storm-sound-scalar)
-        (* 0.5 (-> *display* real-clock seconds-per-frame))
+        (/ (-> *display* real-clock seconds-per-frame) 2)
        )
      (set! (-> s5-0 ambient-wind-scalar) (-> s4-0 ambient-wind-scalar))
      (set! (-> s5-0 halfpipe-jump-mult) (-> s4-0 halfpipe-jump-mult))
@@ -203,11 +203,11 @@
             (* (-> this alpha) (rand-vu-float-range 80.0 96.0))
             )
       (let ((f1-18 (lerp-scale 18432.0 44236.8 (- (-> (math-camera-pos) y) (-> this root trans y)) 12288.0 49152.0))
-             (f0-56 (* 0.16666667 (-> this base-scale) f30-1))
+             (f0-56 (* (/ (-> this base-scale) 6) f30-1))
             )
         (set! (-> *part-id-table* 410 init-specs 3 initial-valuef) (* f1-18 f0-56))
         (set! (-> *part-id-table* 410 init-specs 5 initial-valuef) (* 73728.0 f0-56))
-         (set! (-> *part-id-table* 411 init-specs 3 initial-valuef) (* 0.25 f0-56 f1-18))
+         (set! (-> *part-id-table* 411 init-specs 3 initial-valuef) (* (/ f0-56 4) f1-18))
         (set! (-> *part-id-table* 411 init-specs 5 initial-valuef) (* 18432.0 f0-56))
         (if (or (not (logtest? (-> this flags) (task-arrow-flags taf4))) (< 0.0 f0-56))
             (spawn (-> this part) (-> this root trans))
@@ -250,7 +250,7 @@
        )
    (let ((f2-1 (* 0.14285715 (- f0-0 f1-0))))
      (set! (-> this dists x) (- f1-0))
-      (set! (-> this dists y) (- (+ f1-0 (* 0.5 f2-1))))
+      (set! (-> this dists y) (- (+ f1-0 (/ f2-1 2))))
      (set! (-> this dists z) (- (+ f1-0 (* 2.0 f2-1))))
      )
    (set! (-> this dists w) (- f0-0))
@@ -125,7 +125,7 @@
      0
      (let ((s4-0 *math-camera*))
        (vector-! s2-0 (camera-pos) (-> s5-0 start-corner))
-        (+ (* (the int (* 0.0000019073486 (-> s2-0 y))) 32) (the int (* 0.0000019073486 (-> s2-0 x))))
+        (+ (* (the int (/ (-> s2-0 y) (meters 128))) 32) (the int (/ (-> s2-0 x) (meters 128))))
        (.lvf vf16 (&-> s4-0 plane 0 quad))
        (.lvf vf17 (&-> s4-0 plane 1 quad))
        (.lvf vf18 (&-> s4-0 plane 2 quad))
@@ -702,7 +702,7 @@
        (s2-0 (-> this pat-array 0))
        )
    (when (not (logtest? (-> arg1 ignore-pat) s2-0))
-      (when (nonzero? (-> v1-0 a0-2 packed-index bit11))
+      (when (nonzero? (-> (the-as hfrag-vertex (-> v1-0 a0-2)) packed-index bit11))
        (set! sv-16 (-> v1-0 a0-2 height))
        (set! sv-24 (-> v1-0 (+ a0-2 1) height))
        (set! sv-32 (-> v1-0 (+ a0-2 512) height))
@@ -754,8 +754,8 @@
  (set! sv-24 (the int (* 0.000030517578 (- (-> arg1 bbox min z) (-> this start-corner z)))))
  (set! sv-32 (the int (* 0.000030517578 (- (-> arg1 bbox max x) (-> this start-corner x)))))
  (set! sv-40 (the int (* 0.000030517578 (- (-> arg1 bbox max z) (-> this start-corner z)))))
-  (set! sv-48 (the int (* 0.125 (-> arg1 bbox min y))))
-  (set! sv-56 (the int (* 0.125 (-> arg1 bbox max y))))
+  (set! sv-48 (the int (/ (-> arg1 bbox min y) 8)))
+  (set! sv-56 (the int (/ (-> arg1 bbox max y) 8)))
  (set! sv-16 (max 0 (min 511 sv-16)))
  (set! sv-32 (max 0 (min 511 sv-32)))
  (set! sv-24 (max 0 (min 511 sv-24)))
@@ -807,7 +807,7 @@
  (set! sv-68 (new 'stack-no-clear 'vector))
  (set! sv-72 (new 'stack-no-clear 'vector))
  (set! sv-76 (the-as float 0.000030517578))
-  (set! sv-80 (* 0.000030517578 (-> arg1 radius)))
+  (set! sv-80 (/ (-> arg1 radius) (meters 8)))
  (vector-! sv-64 (-> arg1 start-pos) (-> this start-corner))
  (vector-float*! sv-64 sv-64 sv-76)
  (vector-float*! sv-72 (-> arg1 move-dist) sv-76)
@@ -402,9 +402,9 @@
        (cond
          ((-> this zoom-blur-2d)
           (set! (-> s5-0 quad) (-> this zoom-blur-pos quad))
-           (let* ((f2-0 (* 0.001953125 f28-0 (-> s5-0 x)))
+           (let* ((f2-0 (* (/ f28-0 512) (-> s5-0 x)))
                  (f0-6 (- f26-0 (- f28-0 f2-0)))
-                  (f3-1 (* 0.0024038462 f28-0 (-> s5-0 y)))
+                  (f3-1 (* (/ f28-0 416) (-> s5-0 y)))
                  (f1-4 (- f30-0 (- f28-0 f3-1)))
                  )
             (set! (-> (the-as (inline-array vector4w) s2-0) 0 quad) (-> this sprite-slow-tmpl dma-vif quad))
@@ -430,10 +430,10 @@
                )
            (+! (-> s5-0 x) -1792.0)
            (+! (-> s5-0 y) -1840.0)
-            (let* ((f1-10 (* 0.001953125 f28-0 (-> s5-0 x)))
+            (let* ((f1-10 (* (/ f28-0 512) (-> s5-0 x)))
                   (f2-8 (fmax 0.0 (fmin f1-10 f28-0)))
                   (f0-22 (- f26-0 (- f28-0 f2-8)))
-                   (f3-4 (* 0.0024038462 f28-0 (-> s5-0 y)))
+                   (f3-4 (* (/ f28-0 416) (-> s5-0 y)))
                   (f3-6 (fmax 0.0 (fmin f3-4 f28-0)))
                   (f1-16 (- f30-0 (- f28-0 f3-6)))
                   )
@@ -187,7 +187,7 @@
              (if (< f0-23 0.0)
                  (set! f0-23 (-> gp-0 global-scale))
                  )
-              (+ f30-0 (* 0.0078125 f1-12 f0-23))
+              (+ f30-0 (* (/ f1-12 128) f0-23))
              )
            )
          )
@@ -715,10 +715,10 @@
             (v1-13 (matrix-f-u-compose (new 'stack-no-clear 'matrix) (the-as vector arg4) a2-4))
             (f26-1 6.0)
             )
-        (set! sv-160 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 rvec) (* 0.5 f22-0)))
-        (set! sv-164 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 rvec) (* -0.5 f22-0)))
-        (set! sv-168 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 uvec) (* 0.5 f22-0)))
-        (set! sv-172 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 uvec) (* -0.5 f22-0)))
+        (set! sv-160 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 rvec) (/ f22-0 2)))
+        (set! sv-164 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 rvec) (/ f22-0 -2)))
+        (set! sv-168 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 uvec) (/ f22-0 2)))
+        (set! sv-172 (vector+float*! (new 'stack-no-clear 'vector) arg0 (-> v1-13 uvec) (/ f22-0 -2)))
        (set! sv-176 (the-as rgba (new 'stack-no-clear 'array 'rgba 1)))
        (set! sv-176 (-> this base-color))
        (set! sv-176 (copy-and-set-field sv-176 a (the int (* 128.0 f24-0))))
@@ -32,7 +32,7 @@
  (set! (-> *video-params* reset-video-mode) #t)
  (set! (-> *math-camera* isometric uvec y) 0.5)
  (set! (-> *math-camera* y-clip) 416.0)
-  (set! (-> *math-camera* y-pix) (* 0.5 (-> *math-camera* y-clip)))
+  (set! (-> *math-camera* y-pix) (/ (-> *math-camera* y-clip) 2))
  (set! *profile-y* 1848)
  (set! (-> *video-params* set-video-mode) #t)
  0
@@ -426,8 +426,8 @@
    (format
      0
      "			 :fog-start (meters ~f) :fog-end (meters ~f) :fog-min ~f :fog-max ~f ~%"
-      (* 0.00024414062 (-> *overide-table* mood-fog-table data _fog-idx fog-dists x))
-      (* 0.00024414062 (-> *overide-table* mood-fog-table data _fog-idx fog-dists y))
+      (/ (-> *overide-table* mood-fog-table data _fog-idx fog-dists x) METER_LENGTH)
+      (/ (-> *overide-table* mood-fog-table data _fog-idx fog-dists y) METER_LENGTH)
      (-> *overide-table* mood-fog-table data _fog-idx fog-dists w)
      (-> *overide-table* mood-fog-table data _fog-idx fog-dists z)
      )
@@ -574,8 +574,8 @@
         (set! (-> arg0 times arg1 w) f28-0)
         (when (not (paused?))
           (if (< 0.75 f28-0)
-               (set! (-> gp-0 fade) (- (-> gp-0 fade) (* 0.04 (-> pp clock time-adjust-ratio))))
-               (set! (-> gp-0 fade) (- (-> gp-0 fade) (* 0.02 (-> pp clock time-adjust-ratio))))
+               (set! (-> gp-0 fade) (- (-> gp-0 fade) (/ (-> pp clock time-adjust-ratio) 25)))
+               (set! (-> gp-0 fade) (- (-> gp-0 fade) (/ (-> pp clock time-adjust-ratio) 50)))
               )
           )
         )
@@ -1576,11 +1576,11 @@
             (format *stdcon* "overide fog ~f~%" (-> this overide fog))
             )
            (else
-              (format *stdcon* "time until random cloud ~f~%" (* 0.0033333334 (-> this time-until-random cloud)))
+              (format *stdcon* "time until random cloud ~f~%" (/ (-> this time-until-random cloud) 300))
              (format *stdcon* "current cloud ~f~%" (-> this current-interp cloud))
              (format *stdcon* "target cloud ~f~%" (-> this target-interp cloud))
              (format *stdcon* "speed cloud ~f~%" (* (/ 1.0 (-> this speed-interp cloud)) (seconds-per-frame)))
-              (format *stdcon* "time until random fog ~f~%" (* 0.0033333334 (-> this time-until-random fog)))
+              (format *stdcon* "time until random fog ~f~%" (/ (-> this time-until-random fog) 300))
              (format *stdcon* "current fog ~f~%" (-> this current-interp fog))
              (format *stdcon* "target fog ~f~%" (-> this target-interp fog))
              (format *stdcon* "speed fog ~f~%" (* (/ 1.0 (-> this speed-interp fog)) (seconds-per-frame)))
@@ -19,7 +19,7 @@
  (set-vector! (-> arg0 constants) -0.25 -0.5 0.0 393216.0)
  (let* ((s4-0 (-> (matrix-local->world #f #f) fvec))
         (f0-12 (- 1.5 (* 0.000015258789 (atan (-> s4-0 x) (-> s4-0 z)))))
-         (f1-1 (+ 0.5 (* -0.5 (-> s4-0 y))))
+         (f1-1 (+ 0.5 (/ (-> s4-0 y) -2)))
         )
    (set-vector! (-> arg0 constants2) f0-12 f1-1 1.0 0.0)
    )
@@ -271,7 +271,7 @@
  (let ((f0-16 (* 128.0 (-> *time-of-day-context* ocean-alpha))))
    (if (-> *time-of-day-context* sky)
        (set-vector! (-> arg0 env-color) f0-16 f0-16 f0-16 f0-16)
-        (set-vector! (-> arg0 env-color) f0-16 f0-16 (* 0.5 f0-16) f0-16)
+        (set-vector! (-> arg0 env-color) f0-16 f0-16 (/ f0-16 2) f0-16)
        )
    )
  (set-vector! (-> arg0 index-table 0) 63 84 66 0)
@@ -45,7 +45,7 @@
  (set-vector! (-> arg0 constants) -0.25 -0.5 0.0 0.000010172526)
  (let* ((s4-0 (-> (matrix-local->world #f #f) fvec))
         (f0-12 (- 1.5 (* 0.000015258789 (atan (-> s4-0 x) (-> s4-0 z)))))
-         (f1-1 (+ 0.5 (* -0.5 (-> s4-0 y))))
+         (f1-1 (+ 0.5 (/ (-> s4-0 y) -2)))
         )
    (set-vector! (-> arg0 constants2) f0-12 f1-1 1.0 128.0)
    )
@@ -342,7 +342,7 @@
  (let ((f0-28 (* 128.0 (-> *time-of-day-context* ocean-alpha))))
    (if (-> *time-of-day-context* sky)
        (set-vector! (-> arg0 env-color) f0-28 f0-28 f0-28 f0-28)
-        (set-vector! (-> arg0 env-color) f0-28 f0-28 (* 0.5 f0-28) f0-28)
+        (set-vector! (-> arg0 env-color) f0-28 f0-28 (/ f0-28 2) f0-28)
        )
    )
  (set! (-> arg0 drw2-adgif tag) (new 'static 'gif-tag64 :nloop #x2 :eop #x1 :nreg #x1))
@@ -575,8 +575,8 @@

 (defmethod ocean-method-83 ((this ocean) (arg0 dma-buffer) (arg1 sky-upload-data) (arg2 vector4w) (arg3 float))
  (when (>= (-> arg1 sun 0 pos y) -150.0)
-    (let* ((f2-0 (* 0.00010050251 (-> arg1 sun 0 pos x)))
-           (f1-3 (* 0.00010050251 (-> arg1 sun 0 pos z)))
+    (let* ((f2-0 (/ (-> arg1 sun 0 pos x) 9950))
+           (f1-3 (/ (-> arg1 sun 0 pos z) 9950))
           (f0-6 (if (< 0.0 (-> arg1 sun 0 pos y))
                     1.0
                     (* 0.006666667 (+ 150.0 (-> arg1 sun 0 pos y)))
@@ -743,7 +743,7 @@
      (vector--float*! s2-0 arg2 (-> s3-0 sun1-normal) 9.0)
      (vector--float*! s4-0 arg2 (-> s3-0 moon-normal) 9.0)
      (vector-float*! s5-0 s5-0 (* (-> s3-0 sun0-scale) f28-0))
-      (vector+float*! s5-0 s5-0 s2-0 (* 0.25 f28-0 (-> s3-0 sun1-scale)))
+      (vector+float*! s5-0 s5-0 s2-0 (* (/ f28-0 4) (-> s3-0 sun1-scale)))
      (vector+float*! s5-0 s5-0 s4-0 (* (-> s3-0 moon-scale) f28-0))
      )
    (+! (-> arg0 x) (fmax (fmin (-> s5-0 x) f30-0) (- f30-0)))
@@ -18,8 +18,8 @@
 ;; DECOMP BEGINS

 (defmethod set-corners! ((this ocean) (arg0 float) (arg1 float))
-  (let* ((f2-0 (* 0.00008138021 arg0))
-         (f3-0 (* 0.00008138021 arg1))
+  (let* ((f2-0 (/ arg0 (meters 3)))
+         (f3-0 (/ arg1 (meters 3)))
         (f0-2 f2-0)
         (f0-4 (- f0-2 (the float (the int f0-2))))
         (f1-6 f3-0)
@@ -49,8 +49,8 @@
    ((and (-> this heights) *ocean-map*)
     (let* ((f30-0 (- (-> arg0 x) (-> this start-corner x)))
            (f28-0 (- (-> arg0 z) (-> this start-corner z)))
-            (v1-3 (the int (* 0.0000025431316 f30-0)))
-            (a0-2 (the int (* 0.0000025431316 f28-0)))
+            (v1-3 (the int (/ f30-0 (meters 96))))
+            (a0-2 (the int (/ f28-0 (meters 96))))
            (v1-7 (-> this ocean-trans-indices data (+ (* 48 a0-2) v1-3)))
            )
       (cond
@@ -61,8 +61,8 @@
              )
          )
         ((begin
-            (let ((a0-8 (logand (the int (* 0.000010172526 f30-0)) 3))
-                  (a3-4 (logand (the int (* 0.000010172526 f28-0)) 3))
+            (let ((a0-8 (logand (the int (/ f30-0 (meters 24))) 3))
+                  (a3-4 (logand (the int (/ f28-0 (meters 24))) 3))
                  (v1-10 (-> this ocean-near-indices data (-> v1-7 child)))
                  )
              (set! v1-12 (-> (the-as (pointer int16) (+ (* (+ (* a3-4 4) a0-8) 2) (the-as int v1-10)))))
@@ -75,14 +75,12 @@
              )
          )
         (else
-           (let ((a0-14 (logand (the int (* 0.00008138021 f30-0)) 7)))
+           (let ((a0-14 (logand (the int (/ f30-0 (meters 3))) 7)))
             (cond
-               ((not (logtest? (-> this ocean-mid-masks data v1-12 mask (logand (the int (* 0.00008138021 f28-0)) 7))
-                               (ash 1 a0-14)
-                               )
+               ((not (logtest? (-> this ocean-mid-masks data v1-12 mask (logand (the int (/ f28-0 (meters 3))) 7)) (ash 1 a0-14))
                     )
                (let* ((f1-2 (vector-vector-distance arg0 (math-camera-pos)))
-                       (f26-0 (- 1.0 (fmin 1.0 (* 0.000010172526 f1-2))))
+                       (f26-0 (- 1.0 (fmin 1.0 (/ f1-2 (meters 24)))))
                       )
                  (if (-> this ocean-near-translucent?)
                      (+ (* f26-0 (set-corners! this f30-0 f28-0)) (-> this start-corner y))
@@ -164,7 +164,7 @@
    ((= (-> this appearance lie-mode) (lie-mode use-two-strips))
     (let ((s1-0 (new 'stack-no-clear 'vector)))
       (set! (-> s1-0 quad) (-> this cache-vector 0 quad))
-       (vector-normalize! s1-0 (* 0.5 arg2))
+       (vector-normalize! s1-0 (/ arg2 2))
       (add-vert-to-prim-strip!
         this
         (-> this strip)
@@ -184,7 +184,7 @@
       )
     (let ((s1-1 (new 'stack-no-clear 'vector)))
       (set! (-> s1-1 quad) (-> this cache-vector 1 quad))
-       (vector-normalize! s1-1 (* 0.5 arg2))
+       (vector-normalize! s1-1 (/ arg2 2))
       (add-vert-to-prim-strip!
         this
         (-> this strip2)
@@ -206,7 +206,7 @@
    (else
      (let ((s1-2 (new 'stack-no-clear 'vector)))
        (set! (-> s1-2 quad) (-> arg3 quad))
-        (vector-normalize! s1-2 (* 0.5 arg2))
+        (vector-normalize! s1-2 (/ arg2 2))
        (add-vert-to-prim-strip!
          this
          (-> this strip)
@@ -297,8 +297,8 @@
      (set! (-> arg1 radius) f28-0)
      (let ((f24-0 (sin f26-0))
            (f26-1 (cos f26-0))
-            (f22-0 (sin (* 0.5 f30-0)))
-            (f0-5 (cos (* 0.5 f30-0)))
+            (f22-0 (sin (/ f30-0 2)))
+            (f0-5 (cos (/ f30-0 2)))
            (a2-1 (new 'stack-no-clear 'quaternion))
            (s4-0 (new 'stack-no-clear 'vector))
            )
@@ -44,7 +44,7 @@
            (let ((f26-0 (* 65536.0 (/ (the float s2-0) (the float s4-0)))))
              (set-vector! (-> gp-0 entry s3-0) (* (sin f26-0) f28-0) (* (cos f26-0) f30-0) 0.0 0.0)
              (let ((s3-1 (+ s3-0 1)))
-                (set-vector! (-> gp-0 entry s3-1) (* 0.001953125 f28-0 (sin f26-0)) (* 0.001953125 f30-0 (cos f26-0)) 0.0 0.0)
+                (set-vector! (-> gp-0 entry s3-1) (* (/ f28-0 512) (sin f26-0)) (* (/ f30-0 512) (cos f26-0)) 0.0 0.0)
                (set! s3-0 (+ s3-1 1))
                )
              )
@@ -53,7 +53,7 @@
          )
        (set-vector! (-> gp-0 entry s3-0) 0.0 f30-0 0.0 0.0)
        (let ((v1-20 (+ s3-0 1)))
-          (set-vector! (-> gp-0 entry v1-20) 0.0 (* 0.001953125 f30-0) 0.0 0.0)
+          (set-vector! (-> gp-0 entry v1-20) 0.0 (/ f30-0 512) 0.0 0.0)
          (+ v1-20 1)
          )
        )
@@ -532,7 +532,7 @@
                          1.0
                          )
                         (else
-                           (let* ((f1-1 (* 0.00024414062 a0-5))
+                           (let* ((f1-1 (/ a0-5 METER_LENGTH))
                                  (f0-4 (- f1-1 (the float (the int f1-1))))
                                  )
                             (let ((f1-3 (* 4096.0 (- f1-1 f0-4))))
@@ -823,7 +823,7 @@
      )
    (set! (-> s5-0 word02)
          (the int
-               (+ 1.0 (* (fmax 1.0 (* 0.000015258789 (-> s5-0 float00))) (fmax 1.0 (* 0.000015258789 (-> s5-0 float01)))))
+               (+ 1.0 (* (fmax 1.0 (/ (-> s5-0 float00) (meters 16))) (fmax 1.0 (/ (-> s5-0 float01) (meters 16)))))
               )
          )
    (set! (-> s5-0 word03) (min 4096 (* (-> s5-0 word01) (-> s5-0 word02))))
@@ -667,7 +667,7 @@
                  )
              (set! (-> s4-0 one-over-two-times-constraint-length) (/ 1.0 (* 2.0 f0-1)))
              (set! (-> s4-0 constraint-length-sqd) (* f0-1 f0-1))
-              (set! (-> s4-0 constraint-length-half) (* 0.5 f0-1))
+              (set! (-> s4-0 constraint-length-half) (/ f0-1 2))
              )
            )
          )
@@ -925,7 +925,7 @@
        (let* ((f1-4 (/ (+ f1-2 (vector-dot a3-4 a3-4)) (* 2.0 f0-1)))
               (f0-3 (/ (- f1-4 f0-1) f1-4))
               )
-          (vector-float*! a3-4 a3-4 (* 0.5 f0-3))
+          (vector-float*! a3-4 a3-4 (/ f0-3 2))
          )
        )
      (let ((f1-6 1.0)
@@ -1976,7 +1976,7 @@
      (-> this collision-constraints data s5-0 r)
      *color-cyan*
      )
-    (format *stdcon* "Transform ~d, size ~f~%" s5-0 (* 0.00024414062 (-> this collision-constraints data s5-0 r)))
+    (format *stdcon* "Transform ~d, size ~f~%" s5-0 (/ (-> this collision-constraints data s5-0 r) METER_LENGTH))
    )
  (dotimes (s5-1 (-> this disc-collision-constraints length))
    (add-debug-sphere
@@ -30,7 +30,7 @@
  )

 (defun time-to-apex ((arg0 float) (arg1 float))
-  (the int (/ arg0 (- (* 0.0033333334 arg1))))
+  (the int (/ arg0 (- (/ arg1 300))))
  )

 (defun time-to-ground ((arg0 float) (arg1 float) (arg2 float))
@@ -38,8 +38,8 @@
        (v0-0 0)
        )
    (while (< (- arg2) f0-0)
-      (set! arg0 (- arg0 (* 0.0033333334 arg1)))
-      (+! f0-0 (* 0.0033333334 arg0))
+      (set! arg0 (- arg0 (/ arg1 300)))
+      (+! f0-0 (/ arg0 300))
      (+! v0-0 1)
      )
    v0-0
@@ -1015,13 +1015,13 @@
               (set! f26-0 (* 546.13336 f26-0))
               )
              ((= v1-135 2)
-               (let ((f0-25 (* 0.01 f30-0)))
+               (let ((f0-25 (/ f30-0 100)))
                 (set! f30-0 (+ 1.0 f0-25))
                 )
-               (let ((f0-27 (* -0.01 f28-0)))
+               (let ((f0-27 (/ f28-0 -100)))
                 (set! f28-0 (+ 1.0 f0-27))
                 )
-               (let ((f0-29 (* 0.01 f26-0)))
+               (let ((f0-29 (/ f26-0 100)))
                 (set! f26-0 (+ 1.0 f0-29))
                 )
               )
@@ -45,7 +45,7 @@
      )
    (matrix-identity! (-> this inertial-tensor))
    (matrix-identity! (-> this inv-inertial-tensor))
-    (let ((f0-4 (* 0.083333336 f24-0)))
+    (let ((f0-4 (/ f24-0 12)))
      (let* ((f1-1 f30-0)
             (f1-3 (* f1-1 f1-1))
             (f2-0 f26-0)
@@ -1375,7 +1375,7 @@
                 (f0-9 (/ 163840.0 (get-inv-mass (the-as process-focusable s4-1))))
                 )
             (vector-reset! (-> this player-force))
-             (set! (-> this player-force y) (* -0.1 f0-9 f30-2))
+             (set! (-> this player-force y) (* (/ f0-9 -10) f30-2))
             )
           )
         )
@@ -9,7 +9,7 @@

 (defmethod compute-trans-at-time ((this trajectory) (arg0 float) (arg1 vector))
  (vector+float*! arg1 (-> this initial-position) (-> this initial-velocity) arg0)
-  (+! (-> arg1 y) (* 0.5 arg0 arg0 (-> this gravity)))
+  (+! (-> arg1 y) (* (/ arg0 2) arg0 (-> this gravity)))
  arg1
  )

@@ -31,7 +31,7 @@
    (vector-! (-> this initial-velocity) arg1 arg0)
    (vector-xz-normalize! (-> this initial-velocity) f0-3)
    )
-  (set! (-> this initial-velocity y) (- (/ (- (-> arg1 y) (-> arg0 y)) arg2) (* 0.5 arg2 (-> this gravity))))
+  (set! (-> this initial-velocity y) (- (/ (- (-> arg1 y) (-> arg0 y)) arg2) (* (/ arg2 2) (-> this gravity))))
  0
  (none)
  )
@@ -545,9 +545,9 @@
                  )
              )
        )
-    (set! (-> int-trans 0) (the int (* 0.0625 (-> v1-0 x))))
-    (set! (-> int-trans 1) (the int (* 0.0625 (-> v1-0 y))))
-    (set! (-> int-trans 2) (the int (* 0.0625 (-> v1-0 z))))
+    (set! (-> int-trans 0) (the int (/ (-> v1-0 x) 16)))
+    (set! (-> int-trans 1) (the int (/ (-> v1-0 y) 16)))
+    (set! (-> int-trans 2) (the int (/ (-> v1-0 z) 16)))
    )
  0
  )
@@ -1071,7 +1071,7 @@
  )

 (defmethod set-falloff-far! ((this ambient-sound) (arg0 float))
-  (set! (-> this falloff-far) (the int (* 0.00024414062 arg0)))
+  (set! (-> this falloff-far) (the int (/ arg0 METER_LENGTH)))
  0
  (none)
  )
@@ -1291,7 +1291,8 @@
          (set! (-> a1-3 0) 'empty0)
          (want-sound-banks *load-state* a1-3)
          )
-        (suspend-for (seconds 1))
+        (suspend-for (seconds 1)
+          )
        (let ((a1-4 (new 'stack-no-clear 'array 'symbol 4)))
          (set! (-> a1-4 2) (-> gp-0 4))
          (set! (-> a1-4 1) (-> gp-0 2))
@@ -44,8 +44,8 @@
          )
      )
    (set! (-> self board turn-anim-targ) (+ (lerp-scale
-                                              (* 0.5 (-> *TARGET_BOARD-bank* turn-frames))
-                                              (* -0.5 (-> *TARGET_BOARD-bank* turn-frames))
+                                              (/ (-> *TARGET_BOARD-bank* turn-frames) 2)
+                                              (/ (-> *TARGET_BOARD-bank* turn-frames) -2)
                                              f26-0
                                              -5461.3335
                                              5461.3335
@@ -58,8 +58,8 @@
                                              32768.0
                                              )
                                            (lerp-scale
-                                              (* 0.2 (-> *TARGET_BOARD-bank* turn-frames))
-                                              (* -0.2 (-> *TARGET_BOARD-bank* turn-frames))
+                                              (/ (-> *TARGET_BOARD-bank* turn-frames) 5)
+                                              (/ (-> *TARGET_BOARD-bank* turn-frames) -5)
                                              (-> self board turn-anim-mag)
                                              1.0
                                              -1.0
@@ -67,7 +67,7 @@
                                            )
          )
    (when (and (or (< (* f30-0 (-> self board turn-anim-targ)) 0.0) (= f30-0 0.0))
-               (and (< (* 0.2 (-> *TARGET_BOARD-bank* turn-frames)) (fabs (- f30-0 (-> self board turn-anim-targ))))
+               (and (< (/ (-> *TARGET_BOARD-bank* turn-frames) 5) (fabs (- f30-0 (-> self board turn-anim-targ))))
                    (>= (current-time) (-> self control turn-lockout-end-time))
                    )
               )
@@ -647,7 +647,7 @@
           (vector-float*!
             (-> self control transv)
             (-> self control transv)
-             (+ 1.0 (* 0.5 (-> *setting-control* user-current halfpipe-jump-mult)))
+             (+ 1.0 (/ (-> *setting-control* user-current halfpipe-jump-mult) 2))
             )
           )
          (else
@@ -859,7 +859,7 @@
             (vector-float*!
               (-> self control transv)
               (-> self control transv)
-               (+ 1.0 f30-0 (* 0.5 (-> *setting-control* user-current halfpipe-jump-mult)))
+               (+ 1.0 f30-0 (/ (-> *setting-control* user-current halfpipe-jump-mult) 2))
               )
             )
           )
@@ -1351,7 +1351,7 @@
      (vector-float*!
        (-> self control transv)
        (-> self control transv)
-        (+ 1.0 (* 0.5 (-> *setting-control* user-current halfpipe-jump-mult)))
+        (+ 1.0 (/ (-> *setting-control* user-current halfpipe-jump-mult) 2))
        )
      )
    (target-board-spin-check)
@@ -2420,7 +2420,7 @@
        (compute-alignment! (-> self align))
        (align! (-> self align) (align-opts adjust-quat) 1.0 1.0 1.0)
        (set! (-> self control ctrl-xz-vel)
-              (* f30-0 (* 0.000024414063 (-> self clock frames-per-second) (-> self align delta trans z)))
+              (* f30-0 (* (/ (-> self clock frames-per-second) (meters 10)) (-> self align delta trans z)))
              )
        (vector-float*! (-> self control transv) gp-0 (-> self control ctrl-xz-vel))
        (let ((v1-31 (new-stack-vector0))
@@ -2639,7 +2639,7 @@
      (else
        (let ((f30-1
                (* (lerp-scale 0.7 1.0 (fabs (-> self board ride-lean)) 0.0 1.0)
-                   (lerp-scale 0.8 1.0 (fabs (-> self board ride-speed)) 0.0 (* 0.5 (-> self control mod-surface transv-max)))
+                   (lerp-scale 0.8 1.0 (fabs (-> self board ride-speed)) 0.0 (/ (-> self control mod-surface transv-max) 2))
                   )
                )
              (f28-1
@@ -3373,7 +3373,8 @@
                 (let ((s4-1 (new-stack-vector0)))
                   (set! (-> s4-1 quad) (-> self control last-trans-on-ground quad))
                   (ja-channel-set! 0)
-                   (suspend-for (seconds 1))
+                   (suspend-for (seconds 1)
+                     )
                   (move-to-point! (-> self control) s4-1)
                   )
                 (set! (-> self control camera-pos quad) (-> self control trans quad))
@@ -76,7 +76,7 @@
         (set! (-> arg0 slope-down-factor) (-> arg1 slope-down-factor))
         (set! (-> arg0 seek0)
               (lerp-scale
-                 (* 0.1 (-> arg0 seek0))
+                 (/ (-> arg0 seek0) 10)
                 (-> arg0 seek0)
                 (the float (- (current-time) (-> self board spin-time)))
                 0.0
@@ -85,7 +85,7 @@
               )
         (set! (-> arg0 seek90)
               (lerp-scale
-                 (* 0.1 (-> arg0 seek90))
+                 (/ (-> arg0 seek90) 10)
                 (-> arg0 seek90)
                 (the float (- (current-time) (-> self board spin-time)))
                 0.0
@@ -101,8 +101,8 @@
         (when (not (time-elapsed? (-> self board spin-ground-start-time) (seconds 0.3)))
           (set-time! (-> self control last-attack-end-time))
           (set-time! (-> self board spin-ground-time))
-           (set! (-> arg0 seek0) (* 0.1 (-> arg0 seek0)))
-           (set! (-> arg0 seek90) (* 0.1 (-> arg0 seek90)))
+           (set! (-> arg0 seek0) (/ (-> arg0 seek0) 10))
+           (set! (-> arg0 seek90) (/ (-> arg0 seek90) 10))
           (set! (-> arg0 vel-turn) 131072.0)
           (set! (-> arg0 turnv) 91022.22)
           )
@@ -801,7 +801,7 @@
          (set! f26-0 (-> s5-1 v1-18 w))
          )
        )
-      (let ((f28-1 (* 0.0625 f28-0)))
+      (let ((f28-1 (/ f28-0 16)))
        (vector-normalize! s4-0 1.0)
        (set! (-> self control idx-of-fastest-xz-vel) s2-0)
        (set! (-> self control average-xz-vel) f28-1)
@@ -1900,7 +1900,7 @@
                   (< 0.98 (vector-dot (-> self board probe-normal) (-> self control standard-dynamics gravity-normal)))
                   (< f26-0 8192.0)
                   (< f30-0 8192.0)
-                   (or (< (* 0.2 f28-0) f30-0) (not (time-elapsed? (-> self board last-jump-time) (seconds 0.1))))
+                   (or (< (/ f28-0 5) f30-0) (not (time-elapsed? (-> self board last-jump-time) (seconds 0.1))))
                   )
          (vector+float*!
            (-> self control transv)
@@ -2300,7 +2300,7 @@
        (set! (-> s2-0 start-pos quad) (-> v1-2 prim-core world-sphere quad))
        (set! (-> s2-0 move-dist quad) (-> arg1 quad))
        (let ((a0-3 s2-0))
-          (set! (-> a0-3 radius) (* 0.5 (-> v1-2 prim-core world-sphere w)))
+          (set! (-> a0-3 radius) (/ (-> v1-2 prim-core world-sphere w) 2))
          (set! (-> a0-3 collide-with) (-> v1-2 prim-core collide-with))
          (set! (-> a0-3 ignore-process0) (-> arg0 process))
          (set! (-> a0-3 ignore-process1) #f)
@@ -2682,7 +2682,7 @@
  (let* ((f30-0 (-> self board ride-speed))
         (f0-4 (lerp-scale
                 (-> self control current-surface fric)
-                 (* 0.2 (-> self control current-surface fric))
+                 (/ (-> self control current-surface fric) 5)
                 f30-0
                 0.0
                 (-> self control current-surface transv-max)
@@ -152,7 +152,7 @@
          )
      (when (and (or (and (< f0-27 0.95) (>= f30-0 0.0))
                     (and (logtest? sv-32 (cshape-reaction-flags csrf05)) (< f0-27 0.3))
-                     (< f1-11 (* -0.25 (-> arg1 best-my-prim local-sphere w)))
+                     (< f1-11 (/ (-> arg1 best-my-prim local-sphere w) -4))
                     )
                 (>= (vector-dot tangent contact-normal) -0.000001)
                 )
@@ -37,7 +37,7 @@
    (set! (-> v1-0 y) (- (-> arg2 rvec y) (-> a0-1 y)))
    (set! (-> v1-0 z) (- (-> arg2 rvec z) (-> a0-1 z)))
    (let ((f1-3 (vector-length v1-0)))
-      (set! (-> arg2 fvec w) (* 128.0 (- 1.0 (* 0.0000024414062 f1-3))))
+      (set! (-> arg2 fvec w) (* 128.0 (- 1.0 (/ f1-3 (meters 100)))))
      )
    )
  0
@@ -246,7 +246,7 @@
                 (let ((s3-0 (new 'stack-no-clear 'dist-dot-val)))
                   (get-dist-and-dot (the-as gun-blue-shot arg0) s3-0)
                   (when (< (-> s3-0 dist) 49152.0)
-                     (let ((f0-12 (* 0.000020345053 (-> s3-0 dist)))
+                     (let ((f0-12 (/ (-> s3-0 dist) (meters 12)))
                           (f24-1 (* 0.5 (+ 1.0 (-> s3-0 dot))))
                           )
                       (set! f24-0 (* (lerp 65536.0 131072.0 f0-12) (- 2.0 f24-1)))
@@ -494,7 +494,6 @@
              (when (and (!= *target* s4-1)
                         (!= sv-1300 s4-1)
                         (not (focus-test? (the-as process-focusable s4-1) disable dead inactive gun-no-target))
-                         (pc-check-focus-fix (the-as process-focusable s4-1)) ;; og:preserve-this
                         (or (logtest? (process-mask crate enemy vehicle civilian) (-> s4-1 mask))
                             (and (logtest? (process-mask guard) (-> s4-1 mask)) (-> *setting-control* user-current gun-target-guards?))
                             )
@@ -534,7 +533,7 @@
                              (set! f30-0 (+ 28.0 f30-0))
                              )
                          (if (logtest? (process-mask vehicle civilian) (-> s4-1 mask))
-                              (set! f30-0 (* 0.25 f30-0))
+                              (set! f30-0 (/ f30-0 4))
                              )
                          (set! (-> sv-1284 sv-1288 value) f30-0)
                          (set! sv-1296 (+ sv-1296 f30-0))
@@ -865,7 +864,7 @@
                  (set! sv-80 (new 'stack-no-clear 'vector))
                  0.0
                  (let* ((f28-0 (acos f0-2))
-                         (f0-4 (* 0.000030517578 f28-0))
+                         (f0-4 (/ f28-0 (meters 8)))
                         )
                    0.0
                    0.0
@@ -2668,7 +2667,8 @@
 (defstate dissipate (gun-blue-shot-3)
  :virtual #t
  :code (behavior ()
-    (suspend-for (seconds 0.5))
+    (suspend-for (seconds 0.5)
+      )
    (go-virtual die)
    )
  )
@@ -2676,7 +2676,8 @@
 (defstate impact (gun-blue-shot-3)
  :virtual #t
  :code (behavior ()
-    (suspend-for (seconds 0.5))
+    (suspend-for (seconds 0.5)
+      )
    (go-virtual die)
    )
  )
@@ -201,13 +201,7 @@
    )
  (set! (-> self root trans quad) (-> arg0 pos quad))
  (quaternion-identity! (-> self root quat))
-  (set-vector!
-    (-> self root scale)
-    (* 0.00024414062 (-> arg0 size-x))
-    (* 0.00024414062 (-> arg0 size-y))
-    1.0
-    1.0
-    )
+  (set-vector! (-> self root scale) (/ (-> arg0 size-x) METER_LENGTH) (/ (-> arg0 size-y) METER_LENGTH) 1.0 1.0)
  (go-virtual active)
  )

@@ -218,13 +212,7 @@
      (('set-pos-and-size)
       (let ((v1-2 (the-as gun-dark-3-sphere-init-params (-> block param 0))))
         (set! (-> self root trans quad) (-> v1-2 pos quad))
-         (set-vector!
-           (-> self root scale)
-           (* 0.00024414062 (-> v1-2 size-x))
-           (* 0.00024414062 (-> v1-2 size-y))
-           1.0
-           1.0
-           )
+         (set-vector! (-> self root scale) (/ (-> v1-2 size-x) METER_LENGTH) (/ (-> v1-2 size-y) METER_LENGTH) 1.0 1.0)
         (vector-float*! (-> self root scale) (-> self root scale) 1.7)
         (set! (-> self alpha-val) (-> v1-2 alpha-val))
         )
@@ -1691,7 +1679,7 @@
                  (set! f30-0 (lerp-scale 4096.0 1228.8 f0-9 30.0 300.0))
                  )
                )
-              (let ((f30-1 (* 0.5 f30-0)))
+              (let ((f30-1 (/ f30-0 2)))
                (vector-normalize! (-> self spin-vector) f30-1)
                (vector-normalize! (-> self core-velocity) 7372.8)
                (set! (-> s5-0 fvec quad) (-> s4-0 quad))
@@ -2510,7 +2498,7 @@
               )
          (s3-1 s2-2 (the-as quaternion s1-0) (+ f30-0 (* f28-0 (+ -1.0 (the-as float v1-40)))) *up-vector*)
          )
-        (let ((f0-18 (* 0.000061035156 (-> self obj-radius))))
+        (let ((f0-18 (/ (-> self obj-radius) (meters 4))))
          0.0
          (let* ((f30-1 (lerp 1.0 0.2 f0-18))
                 (s3-2 s5-4)
@@ -2782,7 +2770,7 @@
       (let* ((f0-1 (vector-normalize-ret-len! s5-1 1.0))
              (f0-2 (* 182.04445 f0-1))
              (f0-3 (* 360.0 f0-2))
-              (f0-4 (* 0.2 f0-3))
+              (f0-4 (/ f0-3 5))
              (f30-0 (fmin 116508.445 f0-4))
              (s4-0 (handle->process (-> this parent-hand)))
              )
@@ -2884,7 +2872,7 @@
    (until (< (-> self end-time) (current-time))
      (suspend)
      )
-    (let* ((f0-1 (+ 0.5 (* 0.0625 (-> self cached-damage))))
+    (let* ((f0-1 (+ 0.5 (/ (-> self cached-damage) 16)))
           (f0-2 (fmin 0.9 f0-1))
           )
      (send-event (handle->process (-> self parent-hand)) 'gun-dark-2-off f0-2)
@@ -2915,8 +2903,7 @@

 ;; WARN: Return type mismatch int vs object.
 (defbehavior zero-g-wait-for-land gravity-spinner ()
-  (suspend-for
-    (seconds 1.5)
+  (suspend-for (seconds 1.5)
    (let* ((s4-0 (handle->process (-> self parent-hand)))
           (s5-0 (if (type? s4-0 process-focusable)
                     s4-0
@@ -2998,7 +2985,7 @@
           (let ((f0-0 (vector-length (the-as vector (-> block param 1)))))
             0.0
             (when (< 40960.0 f0-0)
-               (let ((f30-0 (* 0.000024414063 f0-0)))
+               (let ((f30-0 (/ f0-0 (meters 10))))
                 (format 0 "Receving impact damage ~f~%" f30-0)
                 (+! (-> self cached-damage) f30-0)
                 )
@@ -3151,7 +3138,7 @@
              )
          0.0
          (set! (-> self cached-damage) (* 2.0 (-> self cached-damage)))
-          (let* ((f0-6 (* 0.00012207031 f0-5))
+          (let* ((f0-6 (/ f0-5 (meters 2)))
                 (f0-7 (fmax 1.0 f0-6))
                 )
            (+! (-> self cached-damage) f0-7)
@@ -3308,8 +3295,8 @@
    (vector4-lerp! s5-0 (-> v1-0 0 dir0 color) (-> v1-0 0 dir1 color) (-> v1-0 0 dir1 extra x))
    (fmax (fmax (-> s4-0 x) (-> s4-0 y)) (-> s4-0 z))
    (fmax (fmax (-> s5-0 x) (-> s5-0 y)) (-> s5-0 z))
-    (let* ((f0-10 (+ (* 0.2 (-> s4-0 x)) (* 0.75 (-> s4-0 y)) (* 0.05 (-> s4-0 z))))
-           (f1-12 (+ (* 0.2 (-> s5-0 x)) (* 0.75 (-> s5-0 y)) (* 0.05 (-> s5-0 z))))
+    (let* ((f0-10 (+ (/ (-> s4-0 x) 5) (* 0.75 (-> s4-0 y)) (/ (-> s4-0 z) 20)))
+           (f1-12 (+ (/ (-> s5-0 x) 5) (* 0.75 (-> s5-0 y)) (/ (-> s5-0 z) 20)))
           (f0-12 (* 0.5 (+ f0-10 f1-12)))
           (f30-0 (lerp-scale-clamp 0.0 1.0 f0-12 0.0 1.0))
           (s5-1 (new 'stack 'rgbaf))
@@ -3613,9 +3600,11 @@
              )
            )
          (set! f30-0 (+ -0.6 f30-0))
-          (suspend-for (seconds 0.15))
+          (suspend-for (seconds 0.15)
+            )
+          )
+        (suspend-for (seconds 13.5)
          )
-        (suspend-for (seconds 13.5))
        (go empty-state)
        (set! f30-0 4.0)
        )
@@ -3845,7 +3845,7 @@ gun
    (let* ((f0-4 (vector-normalize-ret-len! s5-0 1.0))
           (f0-6 (- (* 300.0 f0-4) (* f30-0 (seconds-per-frame))))
           (f0-7 (fmax 0.0 f0-6))
-           (f0-8 (* 0.0033333334 f0-7))
+           (f0-8 (/ f0-7 300))
           )
      (vector-normalize! s5-0 f0-8)
      )
@@ -1312,9 +1312,9 @@
        )
    )
  (let ((v1-8 (new 'stack-no-clear 'vector)))
-    (set! (-> v1-8 x) (* 0.00024414062 (-> this current-warp-radius)))
+    (set! (-> v1-8 x) (/ (-> this current-warp-radius) METER_LENGTH))
    (set! (-> v1-8 y) 1.0)
-    (set! (-> v1-8 z) (* 0.00024414062 (-> this current-warp-radius)))
+    (set! (-> v1-8 z) (/ (-> this current-warp-radius) METER_LENGTH))
    (set! (-> v1-8 w) 1.0)
    (send-event (handle->process (-> this explosion-1)) 'scale v1-8)
    )
@@ -1433,7 +1433,7 @@
    (set-time! (-> self state-time))
    (set! (-> self max-radius) (lerp (-> self min-charge-radius) (-> self max-charge-radius) (-> self strength)))
    (/ (-> self max-radius) (-> self max-charge-radius))
-    (let ((f0-15 (* 0.000012207031 (-> self max-radius))))
+    (let ((f0-15 (/ (-> self max-radius) (meters 20))))
      0.0
      (let ((f1-5 (/ (* 2.0 (- (* 163840.0 f0-15) (-> self max-radius))) (* f0-15 f0-15))))
        (set! (-> *part-id-table* 353 init-specs 9 initial-valuef) (* 1.2 f1-5))
@@ -1531,7 +1531,7 @@
          (lerp 20480.0 24576.0 (/ (-> self max-radius) (-> self max-charge-radius)))
          )
    (set! (-> *part-id-table* 226 init-specs 3 initial-valuef)
-          (* 0.5 (-> *part-id-table* 226 init-specs 3 initial-valuef))
+          (/ (-> *part-id-table* 226 init-specs 3 initial-valuef) 2)
          )
    (set! (-> *part-id-table* 226 init-specs 3 random-rangef)
          (lerp 0.0 20480.0 (/ (-> self max-radius) (-> self max-charge-radius)))
@@ -1946,7 +1946,7 @@
    (let ((gp-6 (vector-! (new 'stack-no-clear 'vector) (-> self root trans) (math-camera-pos))))
      0.0
      (let* ((f0-2 (vector-length gp-6))
-             (f30-0 (* 0.0000016276042 f0-2))
+             (f30-0 (/ f0-2 (meters 150)))
             )
        (cpad-set-buzz!
          (-> *cpad-list* cpads 0)
@@ -247,7 +247,7 @@
                          (set! f0-11 (+ 28.0 f0-11))
                          )
                      (if (logtest? (process-mask vehicle civilian) (-> s3-1 mask))
-                          (set! f0-11 (* 0.25 f0-11))
+                          (set! f0-11 (/ f0-11 4))
                          )
                      (set! (-> sv-1076 sv-1080 value) f0-11)
                      (set! sv-1088 (+ sv-1088 f0-11))
@@ -566,7 +566,8 @@
            process
            (lambda :behavior process
              ((arg0 handle))
-              (suspend-for (seconds 0.2))
+              (suspend-for (seconds 0.2)
+                )
              (send-event (handle->process arg0) 'die)
              )
            gp-4
@@ -596,7 +597,8 @@
      )
    (logior! (-> self draw status) (draw-control-status no-draw))
    (transform-post)
-    (suspend-for (seconds 1))
+    (suspend-for (seconds 1)
+      )
    (deactivate self)
    )
  :post ja-post
@@ -1103,7 +1105,7 @@
          (spawn-particles this s3-0)
          )
        (let ((s3-1 (new 'stack-no-clear 'matrix))
-              (f30-1 (fmin 1.0 (* 0.000015258789 f30-0)))
+              (f30-1 (fmin 1.0 (/ f30-0 (meters 16))))
              (f28-0 (-> *part-id-table* 267 init-specs 3 initial-valuef))
              )
          (forward-up->inv-matrix s3-1 gp-1 *up-vector*)
@@ -1883,7 +1885,7 @@
  (set! (-> this damage) 2.0)
  (when (logtest? (game-feature feature22) (-> *game-info* features))
    (set! (-> this damage) (* 2.0 (-> this damage)))
-    (set! (-> this vehicle-impulse-factor) (* 0.5 (-> this vehicle-impulse-factor)))
+    (set! (-> this vehicle-impulse-factor) (/ (-> this vehicle-impulse-factor) 2))
    )
  (logior! (-> this options) (projectile-options po13))
  (set! (-> this muzzle-flash-part) (-> *part-id-table* 275))
@@ -2027,7 +2029,7 @@
        (launch-particles (-> *part-id-table* 270) s3-0)
        )
      (let ((s3-1 (new 'stack-no-clear 'matrix))
-            (f30-1 (fmin 1.0 (* 0.000015258789 f30-0)))
+            (f30-1 (fmin 1.0 (/ f30-0 (meters 16))))
            (f28-0 (-> *part-id-table* 267 init-specs 3 initial-valuef))
            )
        (forward-up->inv-matrix s3-1 s4-1 *up-vector*)
@@ -795,7 +795,7 @@
          (set! f2-0 (-> a1-3 a2-6 w))
          )
        )
-      (let ((f1-1 (* 0.0625 f1-0)))
+      (let ((f1-1 (/ f1-0 16)))
        (set! (-> self control idx-of-fastest-xz-vel) a0-3)
        (set! (-> self control average-xz-vel) f1-1)
        (if (logtest? (-> self control current-surface flags) (surface-flag no-turn-around))
@@ -152,7 +152,7 @@
      (quaternion-rotate-local-x! s1-0 s1-0 32768.0)
      (let ((a0-3 s0-0))
        (let ((v1-10 arg1))
-          (let ((a1-4 (* 0.5 arg4)))
+          (let ((a1-4 (/ arg4 2)))
            (.mov vf7 a1-4)
            )
          (.lvf vf5 (&-> arg2 quad))
@@ -1002,7 +1002,8 @@
               (let ((s4-1 (new-stack-vector0)))
                 (set! (-> s4-1 quad) (-> self control last-trans-on-ground quad))
                 (ja-channel-set! 0)
-                 (suspend-for (seconds 1))
+                 (suspend-for (seconds 1)
+                   )
                 (move-to-point! (-> self control) s4-1)
                 )
               (set! (-> self control camera-pos quad) (-> self control trans quad))
@@ -1142,7 +1143,9 @@
             )
       (ja-channel-push! 1 (seconds 0.3))
       (ja-no-eval :group! jakb-mech-jump-loop-ja :num! (loop! 0.5) :frame-num 0.0)
-       (suspend-for (seconds 0.8) (ja :group! jakb-mech-jump-loop-ja :num! (loop! 0.5)))
+       (suspend-for (seconds 0.8)
+         (ja :group! jakb-mech-jump-loop-ja :num! (loop! 0.5))
+         )
       (remove-setting! 'mode-name)
       )
      (else
@@ -1244,7 +1247,8 @@
          (suspend)
          (ja :num! (seek!))
          )
-        (suspend-for (seconds 2))
+        (suspend-for (seconds 2)
+          )
        )
      )
    (set! (-> self control transv quad) (the-as uint128 0))
@@ -1268,7 +1272,7 @@
      (dotimes (s4-0 1)
        ((method-of-type sphere new) (the-as symbol (-> s5-0 s4-0)) sphere)
        )
-      (let ((f30-0 (seek (-> self control collide-mode-transition) 1.0 (* 0.1 (-> self clock time-adjust-ratio)))))
+      (let ((f30-0 (seek (-> self control collide-mode-transition) 1.0 (/ (-> self clock time-adjust-ratio) 10))))
        (set! (-> s5-0 0 quad) (-> self control collision-spheres 2 prim-core world-sphere quad))
        (set! (-> s5-0 0 r) (lerp-scale (-> *TARGET-bank* body-radius) 11468.8 f30-0 0.0 1.0))
        (let ((v1-17 gp-0))
@@ -121,17 +121,17 @@ on impact, during touch, on exit, etc."


 (defun calc-terminal-vel ((arg0 float) (arg1 float) (arg2 float))
-  (- (* (/ (- (* 0.016666668 arg0) arg1) arg2) (- 1.0 arg2)) arg1)
+  (- (* (/ (- (/ arg0 60) arg1) arg2) (- 1.0 arg2)) arg1)
  )

 (defun calc-terminal2-vel ((arg0 float) (arg1 float) (arg2 float) (arg3 float))
-  (let ((f0-4 (sqrtf (/ (- (* 0.016666668 arg0) arg1) arg2))))
+  (let ((f0-4 (sqrtf (/ (- (/ arg0 60) arg1) arg2))))
    (- f0-4 (+ arg1 (* arg2 (* f0-4 f0-4))))
    )
  )

 (defun calc-terminal4-vel ((arg0 float) (arg1 float) (arg2 float))
-  (let ((f0-5 (sqrtf (sqrtf (/ (- (* 0.016666668 arg0) arg1) arg2)))))
+  (let ((f0-5 (sqrtf (sqrtf (/ (- (/ arg0 60) arg1) arg2)))))
    (- f0-5 (+ arg1 (* arg2 (* f0-5 f0-5 f0-5 f0-5))))
    )
  )
@@ -814,7 +814,7 @@
           )
         ((lambda :behavior target
            ()
-            (let ((f30-0 (fmax 0.8 (fmin 1.0 (* 0.000048828126 (-> self control ctrl-xz-vel))))))
+            (let ((f30-0 (fmax 0.8 (fmin 1.0 (/ (-> self control ctrl-xz-vel) (meters 5))))))
              (cond
                ((and (rand-vu-percent? 0.3) (and (< 20480.0 (-> self control ctrl-xz-vel)) (zero? (-> self ext-anim))))
                 (ja-no-eval :group! jakb-attack-from-stance-alt-end-ja :num! (seek! (ja-aframe 29.0 0) f30-0) :frame-num 0.0)
@@ -1186,10 +1186,10 @@
              )
            )
          (let ((f0-37 (fabs (- f20-0 f30-0))))
-            (set! f30-0 (seek f30-0 f20-0 (fmax 0.05 (fmin 0.2 (* 0.25 f0-37)))))
+            (set! f30-0 (seek f30-0 f20-0 (fmax 0.05 (fmin 0.2 (/ f0-37 4)))))
            )
          (let ((f0-42 (fabs (- f22-1 f28-0))))
-            (set! f28-0 (seek f28-0 f22-1 (fmax 0.05 (fmin 0.2 (* 0.25 f0-42)))))
+            (set! f28-0 (seek f28-0 f22-1 (fmax 0.05 (fmin 0.2 (/ f0-42 4)))))
            )
          )
        (set! (-> self control unknown-float-n12iuh3n1) f30-0)
@@ -1767,7 +1767,7 @@
    (let ((f0-11 (target-height-above-ground))
          (f1-1 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
          )
-      (while (not (or (and (< (fabs (/ f0-11 (* 0.0033333334 f1-1))) 150.0) (< f1-1 0.0))
+      (while (not (or (and (< (fabs (/ f0-11 (/ f1-1 300))) 150.0) (< f1-1 0.0))
                      (time-elapsed? (-> self state-time) (seconds 1.7))
                      )
                  )
@@ -215,12 +215,12 @@
  (let ((v1-16 (-> (the-as collide-shape-prim-group (-> arg0 root root-prim)) child 0))
        (a0-10 (-> (the-as collide-shape-prim-group (-> arg0 root root-prim)) child 1))
        )
-    (set! (-> v1-16 local-sphere w) (* 0.1 (-> arg0 root root-prim local-sphere w)))
+    (set! (-> v1-16 local-sphere w) (/ (-> arg0 root root-prim local-sphere w) 10))
    (set! (-> a0-10 local-sphere w) (-> arg0 root root-prim local-sphere w))
    )
  (let ((s5-0 (new 'stack-no-clear 'collide-query))
        (v1-20 (new 'stack-no-clear 'vector))
-        (f30-0 (* 0.5 (-> arg0 root root-prim local-sphere w)))
+        (f30-0 (/ (-> arg0 root root-prim local-sphere w) 2))
        )
    (set! (-> v1-20 quad) (-> arg0 root trans quad))
    (vector+float*! (-> s5-0 start-pos) v1-20 *up-vector* 0.0)
@@ -1217,7 +1217,7 @@
    (set-setting! 'rapid-tracking #f 0.0 0)
    ((lambda :behavior target
       ()
-       (set! (-> self control bend-target) (* 0.5 (-> self control bend-target)))
+       (set! (-> self control bend-target) (/ (-> self control bend-target) 2))
       (if (logtest? (water-flag touch-water) (-> self water flags))
           (sound-play "swim-stroke")
           )
@@ -57,7 +57,8 @@
     (intro-play)
     )
    ((logtest? (-> arg0 flags) (continue-flags warp-gate))
-     (suspend-for (seconds 0.05))
+     (suspend-for (seconds 0.05)
+       )
     (let ((s5-1 (new 'static 'vector))
           (a2-0 (find-nearest-entity (-> arg0 trans) warp-gate))
           )
@@ -216,7 +217,8 @@
     (go target-grab 'stance)
     )
    (else
-      (suspend-for (seconds 0.05))
+      (suspend-for (seconds 0.05)
+        )
      )
    )
  0
@@ -1420,7 +1422,7 @@
      (set! (-> sv-32 vector y) (-> sv-32 shove-up))
      )
    (when (and (focus-test? self dark) (nonzero? (-> self darkjak)))
-      (set! (-> sv-32 damage) (fmax 1.0 (ceil (* 0.5 (-> sv-32 damage)))))
+      (set! (-> sv-32 damage) (fmax 1.0 (ceil (/ (-> sv-32 damage) 2))))
      0
      )
    (set! (-> sv-36 quad) (-> sv-32 vector quad))
@@ -1450,7 +1452,8 @@
             (let ((gp-1 (new-stack-vector0)))
               (set! (-> gp-1 quad) (-> self control last-trans-on-ground quad))
               (ja-channel-set! 0)
-               (suspend-for (seconds 1))
+               (suspend-for (seconds 1)
+                 )
               (move-to-point! (-> self control) gp-1)
               )
             (set! (-> self control camera-pos quad) (-> self control trans quad))
@@ -2278,7 +2281,8 @@
             (set! (-> self post-hook) target-no-ja-move-post)
             (ja-channel-set! 0)
             (ja-post)
-             (suspend-for (seconds 2))
+             (suspend-for (seconds 2)
+               )
             )
            (('grenade 'big-explosion 'explode)
             (set! (-> self post-hook) target-no-stick-post)
@@ -2357,7 +2361,8 @@
                 (suspend)
                 (ja :num! (seek!))
                 )
-               (suspend-for (seconds 2))
+               (suspend-for (seconds 2)
+                 )
               )
             )
            )
@@ -2373,7 +2378,8 @@
             (set! (-> self post-hook) target-no-ja-move-post)
             (ja-channel-set! 0)
             (ja-post)
-             (suspend-for (seconds 1.2))
+             (suspend-for (seconds 1.2)
+               )
             )
            ((= v1-61 'endlessfall)
             ((lambda :behavior target
@@ -2411,8 +2417,7 @@
                (target-falling-anim 30 (seconds 0.33))
                (ja-channel-push! 1 (seconds 0.3))
                (ja-no-eval :group! jakb-launch-jump-loop-ja :num! (loop! 0.5) :frame-num 0.0)
-                (suspend-for
-                  (seconds 0.8)
+                (suspend-for (seconds 0.8)
                  (when (and (logtest? (-> self control status) (collide-status on-surface)) (!= (-> self control cur-pat event) 2))
                    (set! v1-24 'target-hit-ground-hard)
                    (goto cfg-17)
@@ -2465,7 +2470,8 @@
                    (suspend)
                    (ja :num! (seek!))
                    )
-                  (suspend-for (seconds 2))
+                  (suspend-for (seconds 2)
+                    )
                  )
                (remove-setting! 'mode-name)
                )
@@ -2630,7 +2636,8 @@
               (suspend)
               (ja :num! (seek!))
               )
-             (suspend-for (seconds 2))
+             (suspend-for (seconds 2)
+               )
             )
            ((= v1-61 'centipede)
             (set! (-> self trans-hook) #f)
@@ -2082,7 +2082,7 @@
                  (dotimes (s4-1 1)
                    ((method-of-type sphere new) (the-as symbol (-> s5-2 s4-1)) sphere)
                    )
-                  (let ((f30-1 (seek (-> self control collide-mode-transition) 1.0 (* 0.1 (-> self clock time-adjust-ratio)))))
+                  (let ((f30-1 (seek (-> self control collide-mode-transition) 1.0 (/ (-> self clock time-adjust-ratio) 10))))
                    (set! (-> s5-2 0 quad) (-> self control collision-spheres 2 prim-core world-sphere quad))
                    (set! (-> s5-2 0 r) (lerp-scale (-> *TARGET-bank* body-radius) 7372.8 f30-1 0.0 1.0))
                    (let ((v1-214 gp-3))
@@ -2171,7 +2171,7 @@
        (let* ((f0-28 (deg-diff (y-angle (-> self control)) (vector-y-angle (-> self control to-target-pt-xz))))
               (f0-30 (fmax -5461.3335 (fmin 5461.3335 f0-28)))
               )
-          (seek! (-> self upper-body twist z) f0-30 (fabs (* 0.2 f0-30)))
+          (seek! (-> self upper-body twist z) f0-30 (fabs (/ f0-30 5)))
          )
        )
       )
@@ -180,8 +180,8 @@
                 (vector+! s4-0 s4-0 s3-0)
                 )
               (set! (-> *part-id-table* 659 init-specs 2 initial-valuef) (-> *invis-joint-list* s5-0 size))
-               (set! (-> *part-id-table* 659 init-specs 3 initial-valuef) (* 0.5 (-> *invis-joint-list* s5-0 size)))
-               (set! (-> *part-id-table* 659 init-specs 4 initial-valuef) (* 0.5 (-> *invis-joint-list* s5-0 size)))
+               (set! (-> *part-id-table* 659 init-specs 3 initial-valuef) (/ (-> *invis-joint-list* s5-0 size) 2))
+               (set! (-> *part-id-table* 659 init-specs 4 initial-valuef) (/ (-> *invis-joint-list* s5-0 size) 2))
               (launch-particles (-> *part-id-table* 659) s4-0)
               )
             )
@@ -442,7 +442,8 @@
    (set-time! (-> self state-time))
    )
  :code (behavior ()
-    (suspend-for (seconds 0.66))
+    (suspend-for (seconds 0.66)
+      )
    (cond
      ((logtest? (-> *part-group-id-table* 182 flags) (sp-group-flag sp13))
       (set! (-> *launch-matrix* trans quad) (-> self root trans quad))
@@ -469,7 +470,8 @@
          )
        )
    (sound-play "dark-maker")
-    (suspend-for (seconds 2))
+    (suspend-for (seconds 2)
+      )
    (go-virtual idle)
    )
  :post (behavior ()
@@ -54,7 +54,7 @@
                    (f0-5 (- 1.0 f0-4))
                    )
               (let ((f1-5 (* 1.4 f0-5 (/ f30-0 (* 0.0033333334 (the float (-> self control sliding-start-time)))))))
-                 (* 0.0033333334 f1-5 (the float (- (current-time) (-> self clock old-frame-counter))))
+                 (* (/ f1-5 300) (the float (- (current-time) (-> self clock old-frame-counter))))
                 )
               (let ((f0-6 (- 1.0 f0-5)))
                 (vector+float*!
@@ -63,7 +63,7 @@
                   (-> self control unknown-vector37)
                   f0-6
                   )
-                 (+! (-> self control trans y) (* 0.5 f0-6 f0-6 (the-as float (-> self control unknown-word04))))
+                 (+! (-> self control trans y) (* (/ f0-6 2) f0-6 (the-as float (-> self control unknown-word04))))
                 (set! (-> self control transv quad) (the-as uint128 0))
                 (set! (-> self control transv quad) (-> self control unknown-vector37 quad))
                 (+! (-> self control transv y) (* f0-6 (the-as float (-> self control unknown-word04))))
@@ -1380,12 +1380,7 @@
        (set! (-> self fact shield-attack-id) a0-46)
        )
      (if (not (logtest? (-> self lightjak stage) (lightjak-stage ls1)))
-          (send-event
-            self
-            'get-pickup
-            (pickup-type eco-pill-light)
-            (* -0.33333334 (-> *FACT-bank* lightjak-shield-inc))
-            )
+          (send-event self 'get-pickup (pickup-type eco-pill-light) (/ (-> *FACT-bank* lightjak-shield-inc) -3))
          )
      (set-time! (-> self lightjak shield-count-time))
      )
@@ -2275,7 +2270,9 @@
 (defstate die (freeze-screen)
  :virtual #t
  :code (behavior ()
-    (suspend-for (seconds 1) (seek! (-> self transition) 0.0 (seconds-per-frame)))
+    (suspend-for (seconds 1)
+      (seek! (-> self transition) 0.0 (seconds-per-frame))
+      )
    )
  )

@@ -2766,7 +2763,7 @@
         )
        (else
          (let* ((f1-5 (/ f0-1 (* (-> self control dynam gravity-length) (seconds-per-frame))))
-                 (f0-6 (* 0.5 f1-5 (seconds-per-frame) f0-1))
+                 (f0-6 (* (/ f1-5 2) (seconds-per-frame) f0-1))
                 (v1-25 (new-stack-vector0))
                 )
            (let ((f1-9 (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
@@ -187,10 +187,10 @@
              (f24-0 (fmax -1.0 (fmin 1.0 (* 1.6 (-> self control local-slope-x)))))
              )
          (let ((f1-4 (fabs (- f0-10 f28-0))))
-            (set! f28-0 (seek f28-0 f0-10 (fmax 0.05 (fmin 0.2 (* 0.25 f1-4)))))
+            (set! f28-0 (seek f28-0 f0-10 (fmax 0.05 (fmin 0.2 (/ f1-4 4)))))
            )
          (let ((f0-14 (fabs (- f24-0 f26-0))))
-            (set! f26-0 (seek f26-0 f24-0 (fmax 0.05 (fmin 0.2 (* 0.25 f0-14)))))
+            (set! f26-0 (seek f26-0 f24-0 (fmax 0.05 (fmin 0.2 (/ f0-14 4)))))
            )
          )
        (ja :chan 3 :group! jakb-walk-down-ja :dist (-> *TARGET-bank* walk-down-cycle-dist))
@@ -845,7 +845,7 @@
                 (f2-0 f1-2)
                 )
            (if (< f0-2 0.0)
-                (set! f0-2 (* 0.5 f0-2))
+                (set! f0-2 (/ f0-2 2))
                )
            (vector+!
              (-> arg1 vector)
@@ -276,7 +276,7 @@
        (launch-particles (-> *part-id-table* 852) s4-0)
        )
      (let ((s4-1 (new 'stack-no-clear 'matrix))
-            (f26-0 (* 0.000027126736 f30-0))
+            (f26-0 (/ f30-0 (meters 9)))
            (f30-1 (-> *part-id-table* 1021 init-specs 3 initial-valuef))
            (f28-1 (-> *part-id-table* 1021 init-specs 4 initial-valuef))
            )
@@ -1253,7 +1253,7 @@
            )
          )
      )
-    (* 0.125 f30-0)
+    (/ f30-0 8)
    )
  )

@@ -1931,10 +1931,10 @@
        (f30-0 (fmax -1.0 (fmin 1.0 arg2)))
        )
    (let ((f1-5 (fabs (- f0-1 (-> arg0 blend 1)))))
-      (seek! (-> arg0 blend 1) f0-1 (fmax (fmin (* f1-5 arg3) (* 0.8 arg3)) (* 0.2 arg3)))
+      (seek! (-> arg0 blend 1) f0-1 (fmax (fmin (* f1-5 arg3) (* 0.8 arg3)) (/ arg3 5)))
      )
    (let ((f0-9 (fabs (- f30-0 (-> arg0 blend 2)))))
-      (seek! (-> arg0 blend 2) f30-0 (fmax (fmin (* f0-9 arg3) (* 0.8 arg3)) (* 0.2 arg3)))
+      (seek! (-> arg0 blend 2) f30-0 (fmax (fmin (* f0-9 arg3) (* 0.8 arg3)) (/ arg3 5)))
      )
    )
  (cond
@@ -2120,8 +2120,8 @@
         (cond
           ((and (< 0.0 f0-5) (focus-test? this in-air))
            (let* ((v0-1 (new 'static 'vector))
-                   (f0-6 (+ (* 0.0016666667 (-> v1-0 dynam gravity-length)) f0-5))
-                   (f0-9 (/ (* 0.5 f0-6 f0-6) (-> v1-0 dynam gravity-length)))
+                   (f0-6 (+ (/ (-> v1-0 dynam gravity-length) 600) f0-5))
+                   (f0-9 (/ (* (/ f0-6 2) f0-6) (-> v1-0 dynam gravity-length)))
                   )
              (vector+float*! v0-1 (-> v1-0 trans) (-> v1-0 dynam gravity-normal) f0-9)
              )
@@ -587,11 +587,11 @@
  (delete-back-vel)
  (let* ((f0-0 arg5)
         (f1-0 0.0)
-         (f2-2 (+ (* 0.0016666667 (-> self control dynam gravity-length))
+         (f2-2 (+ (/ (-> self control dynam gravity-length) 600)
                  (fmax 0.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
                  )
               )
-         (f0-1 (* f0-0 (fmax f1-0 (/ (* 0.5 f2-2 f2-2) (-> self control dynam gravity-length)))))
+         (f0-1 (* f0-0 (fmax f1-0 (/ (* (/ f2-2 2) f2-2) (-> self control dynam gravity-length)))))
         (s5-1 (+ arg0 f0-1))
         )
    (let ((s2-1 (+ arg1 f0-1)))
@@ -2898,7 +2898,7 @@
         )
        (else
          (let* ((f1-5 (/ f0-4 (* (-> self control dynam gravity-length) (seconds-per-frame))))
-                 (f0-9 (* 0.5 f1-5 (seconds-per-frame) f0-4))
+                 (f0-9 (* (/ f1-5 2) (seconds-per-frame) f0-4))
                 )
            (let ((v1-36 (ja-group)))
              (if (and v1-36
@@ -47,7 +47,10 @@
        (suspend)
        (ja :num! (seek!))
        )
-      (suspend-for (seconds 0.3) (suspend) (ja :num! (seek! (ja-aframe 19.0 0) 0.05)))
+      (suspend-for (seconds 0.3)
+        (suspend)
+        (ja :num! (seek! (ja-aframe 19.0 0) 0.05))
+        )
      (ja-channel-push! 1 (seconds 0.3))
      (ja-no-eval :group! jakb-painful-land-ja :num! (seek!) :frame-num (ja-aframe 40.0 0))
      (until (ja-done? 0)
@@ -824,7 +827,7 @@
    (let ((f0-1 (target-height-above-ground))
          (f1-1 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
          )
-      (while (not (and (< (fabs (/ f0-1 (* 0.0033333334 f1-1))) 40.0) (and (< f1-1 0.0) (ja-min? 0))))
+      (while (not (and (< (fabs (/ f0-1 (/ f1-1 300))) 40.0) (and (< f1-1 0.0) (ja-min? 0))))
        (suspend)
        (ja :num! (loop!))
        (set! f0-1 (target-height-above-ground))
@@ -1539,7 +1542,9 @@
      (until #f
        (let ((s5-0 (rand-vu-int-range 30 600)))
          (ja :group! jakb-wall-hide-head-ja)
-          (suspend-for s5-0 (gp-0))
+          (suspend-for s5-0
+            (gp-0)
+            )
          )
        (let ((f30-0 (rand-vu-float-range 0.5 1.5)))
          (cond
@@ -1577,7 +1582,9 @@
               (ja :num! (seek! max f30-0))
               )
             (let ((s5-2 (rand-vu-int-range 60 300)))
-               (suspend-for s5-2 (gp-0))
+               (suspend-for s5-2
+                 (gp-0)
+                 )
               )
             (ja-no-eval :group! jakb-wall-hide-head-left-ja :num! (seek! 0.0 f30-0) :frame-num max)
             (until (ja-done? 0)
@@ -1594,7 +1601,9 @@
                (ja :num! (seek! 0.0 f30-0))
                )
              (let ((s5-3 (rand-vu-int-range 60 300)))
-                (suspend-for s5-3 (gp-0))
+                (suspend-for s5-3
+                  (gp-0)
+                  )
                )
              (ja-no-eval :group! jakb-wall-hide-head-right-ja :num! (seek! max f30-0) :frame-num 0.0)
              (until (ja-done? 0)
@@ -1854,7 +1863,8 @@
  :trans (behavior ()
    (set-time! (-> self control time-of-last-debug-float))
    (cond
-      ((cpad-hold? (-> self control cpad number) r2)
+      ;; og:preserve-this no debug hover when paused.
+      ((and (cpad-hold? (-> self control cpad number) r2) (not *pause-lock*))
       (let ((a1-0 (new 'stack-no-clear 'vector)))
         (set! (-> a1-0 quad) (-> self control trans quad))
         (let ((v1-14 (new-stack-vector0))
@@ -1941,8 +1951,7 @@
        (suspend)
        (ja :num! (seek!))
        )
-      (suspend-for
-        (the-as time-frame arg0)
+      (suspend-for (the-as time-frame arg0)
        (ja-no-eval :group! jakb-blast-recover-loop-ja :num! (seek!) :frame-num 0.0)
        (until (ja-done? 0)
          (suspend)
@@ -179,7 +179,7 @@
                  )
           )
       (set! (-> this sprites 2 color x) (the int (* 0.35 f1-17 f0-27)))
-       (set! (-> this sprites 2 color y) (the int (* 0.1 f1-17 f0-27)))
+       (set! (-> this sprites 2 color y) (the int (* (/ f1-17 10) f0-27)))
       (set! (-> this sprites 2 color z) (the int (* 0.8 f1-17 f0-27)))
       )
     )
@@ -1099,7 +1099,7 @@
  :code (behavior ()
    (until #f
      (if (not (logtest? (-> *kernel-context* prevent-from-run) (process-mask pause)))
-          (seek! (-> self offset) 0.0 (* 0.1 (-> self clock time-adjust-ratio)))
+          (seek! (-> self offset) 0.0 (/ (-> self clock time-adjust-ratio) 10))
          )
      (if (>= 0.0 (-> self offset))
          (go hud-in)
@@ -577,9 +577,9 @@
                   (t1-1 s1-0)
                   (f28-0 (sv-48 s0-1 sv-64 sv-80 sv-96 t0-1 t1-1 t2-1 t3-1))
                   )
-              (set! f30-0 (* 0.5 f28-0))
+              (set! f30-0 (/ f28-0 2))
              (let ((v1-17 arg0))
-                (set! (-> v1-17 scale) (* 0.5 (-> arg0 scale)))
+                (set! (-> v1-17 scale) (/ (-> arg0 scale) 2))
                )
              (let* ((a0-7 this)
                     (t9-3 (method-of-object a0-7 progress-method-40))
@@ -755,7 +755,7 @@
                                0
                                )
                        )
-                     (the int (* 0.5 f30-0))
+                     (the int (/ f30-0 2))
                     )
                  )
            )
@@ -1280,7 +1280,7 @@
  0
  0
  0
-  (let* ((gp-0 (the int (* 0.016666668 arg0)))
+  (let* ((gp-0 (the int (/ arg0 60)))
         (v1-5 (- arg0 (* 60.0 (the float gp-0))))
         (s5-0 (the int v1-5))
         (v1-6 (- v1-5 (the float s5-0)))
@@ -1302,13 +1302,7 @@
      )
    (cond
      ((logtest? (-> v1-3 flags) (highscore-flags hf2))
-       (print-game-text
-         (highscore-time->string this (* 0.0033333334 arg1))
-         arg0
-         #f
-         44
-         (bucket-id hud-draw-hud-alpha)
-         )
+       (print-game-text (highscore-time->string this (/ arg1 300)) arg0 #f 44 (bucket-id hud-draw-hud-alpha))
       )
      ((logtest? (-> v1-3 flags) (highscore-flags hf3))
       (let ((s4-1 print-game-text))
@@ -1832,8 +1826,8 @@
           (f28-0 (- (-> s0-1 z) (-> s0-1 x)))
           (s1-2 (init-text! this))
           )
-      (let* ((f30-0 (* 0.5 f28-0))
-             (f28-1 (* 0.5 f28-0))
+      (let* ((f30-0 (/ f28-0 2))
+             (f28-1 (/ f28-0 2))
             (f26-0 (+ sv-16 (-> s0-1 x)))
             (f24-0 (+ sv-16 (-> s0-1 x) f30-0))
             )
@@ -2236,7 +2230,7 @@
                 (f2-4 (+ (-> s4-0 x) (* 0.5 (- (-> s4-0 z) (-> s4-0 x)))))
                 (f30-1 (+ f2-4 f1-6))
                 (f28-0 (- f2-4 f1-6))
-                 (f26-0 (+ -8.0 (* 0.5 f0-7) (-> arg1 origin y)))
+                 (f26-0 (+ -8.0 (/ f0-7 2) (-> arg1 origin y)))
                 )
            (let ((f1-10 (+ -15.0 (-> arg1 origin y)))
                  (f24-0 (+ 3.0 f0-7 (-> arg1 origin y)))
@@ -2516,7 +2510,7 @@
         (let ((a0-23 arg1))
           (set! (-> a0-23 color) (font-color font-color-32))
           )
-         (set! (-> arg1 origin x) (- (-> arg1 origin x) (the float (the int (* 0.5 f30-2)))))
+         (set! (-> arg1 origin x) (- (-> arg1 origin x) (the float (the int (/ f30-2 2)))))
         (let ((s5-1 print-game-text))
           (format (clear *temp-string*) "~33L~C" 163)
           (s5-1 *temp-string* arg1 #f 44 (bucket-id hud-draw-hud-alpha))
@@ -1094,14 +1094,14 @@
           (seek-ease
             (-> self menu-transition)
             0.0
-             (* 0.1 (-> self clock time-adjust-ratio))
+             (/ (-> self clock time-adjust-ratio) 10)
             0.4
-             (* 0.01 (-> self clock time-adjust-ratio))
+             (/ (-> self clock time-adjust-ratio) 100)
             )
           )
     )
    (else
-      (seek! (-> self menu-transition) 1.0 (* 0.1 (-> self clock time-adjust-ratio)))
+      (seek! (-> self menu-transition) 1.0 (/ (-> self clock time-adjust-ratio) 10))
      (when (and (= (-> self menu-transition) 1.0)
                 (or (and (nonzero? (-> self state-pos)) (= (-> self anim-frame) 1.0))
                     (or (and (zero? (-> self state-pos)) (= (-> self anim-frame) 0.0))
@@ -1144,12 +1144,12 @@
  (if (= (-> self ring-angle) (-> self ring-want-angle))
      (respond-to-cpad self)
      )
-  (let ((f30-0 (* 0.005 (-> self clock time-adjust-ratio))))
+  (let ((f30-0 (/ (-> self clock time-adjust-ratio) 200)))
    (cond
      ((= (-> self menu-transition) 1.0)
       (if (and (zero? (-> self state-pos)) (= (-> self starting-state) 'main))
-           (seek! (-> self anim-frame) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
-           (seek! (-> self anim-frame) 1.0 (* 0.02 (-> self clock time-adjust-ratio)))
+           (seek! (-> self anim-frame) 0.0 (/ (-> self clock time-adjust-ratio) 50))
+           (seek! (-> self anim-frame) 1.0 (/ (-> self clock time-adjust-ratio) 50))
           )
       (let ((f0-27 (if (and (zero? (-> self state-pos)) (!= (-> self starting-state) 'title))
                        0.0
@@ -1159,14 +1159,14 @@
             )
         (when (= (-> self next) 'bigmap)
           (set! f0-27 0.4)
-           (set! f30-0 (* 0.008 (-> self clock time-adjust-ratio)))
+           (set! f30-0 (/ (-> self clock time-adjust-ratio) 125))
           )
         (seek! (-> self pos-transition) f0-27 f30-0)
         )
       )
      ((zero? (-> self state-pos))
       (if (= (-> self current) 'bigmap)
-           (set! f30-0 (* 0.05 (-> self clock time-adjust-ratio)))
+           (set! f30-0 (/ (-> self clock time-adjust-ratio) 20))
           )
       (if (!= (-> self starting-state) 'title)
           (seek! (-> self pos-transition) 0.0 f30-0)
@@ -1217,9 +1217,9 @@
      (set! (-> self swing) (seek-ease
                              (-> self swing)
                              4.0
-                              (* 0.05 (-> self clock time-adjust-ratio))
+                              (/ (-> self clock time-adjust-ratio) 20)
                              0.5
-                              (* 0.005 (-> self clock time-adjust-ratio))
+                              (/ (-> self clock time-adjust-ratio) 200)
                              )
            )
      (set! (-> self swing) (seek-ease
@@ -1493,9 +1493,9 @@
        (set! (-> self scanlines-alpha) (seek-ease
                                          (-> self scanlines-alpha)
                                          (- 1.0 (-> self menu-transition))
-                                          (* 0.05 (-> self clock time-adjust-ratio))
+                                          (/ (-> self clock time-adjust-ratio) 20)
                                          0.3
-                                          (* 0.001 (-> self clock time-adjust-ratio))
+                                          (/ (-> self clock time-adjust-ratio) 1000)
                                          )
              )
        )
@@ -1654,8 +1654,7 @@
              (-> self current)
              )
            )
-          ;; og:preserve-this patched to next instead of current because we save synchronously
-          (case (-> self next)
+          (case (-> self current)
            (('saving)
             (cond
               ((= (-> self state-array 0) 'title)
@@ -1815,16 +1814,16 @@
      )
    )
  :trans (behavior ()
-    (seek! (-> self anim-frame) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
+    (seek! (-> self anim-frame) 0.0 (/ (-> self clock time-adjust-ratio) 50))
    (cond
      ((= (-> self anim-frame) 0.0)
-       (seek! (-> self pos-transition) 1.0 (* 0.02 (-> self clock time-adjust-ratio)))
+       (seek! (-> self pos-transition) 1.0 (/ (-> self clock time-adjust-ratio) 50))
       (if (= (-> self pos-transition) 1.0)
           (go-virtual gone)
           )
       )
      (else
-        (seek! (-> self pos-transition) 0.0 (* 0.02 (-> self clock time-adjust-ratio)))
+        (seek! (-> self pos-transition) 0.0 (/ (-> self clock time-adjust-ratio) 50))
        )
      )
    (set-ring-position self)
@@ -1871,11 +1870,11 @@
      (let ((s5-0 (&+ (the-as (pointer float) *setting-control*) (-> this setting-offset)))
            (s3-0 #f)
            )
-        (let ((f30-0 (* 0.02 (-> pp clock time-adjust-ratio)))
+        (let ((f30-0 (/ (-> pp clock time-adjust-ratio) 50))
              (f28-0 0.0)
              )
          (when (type? this menu-picture-slider-option)
-            (set! f30-0 (* 0.005 (-> pp clock time-adjust-ratio)))
+            (set! f30-0 (/ (-> pp clock time-adjust-ratio) 200))
            (set! f28-0 0.25)
            )
          (cond
@@ -447,7 +447,7 @@
           )
     (set! sv-64 0)
     (if (logtest? (-> arg1 flags) (font-flags middle))
-         (+! (-> arg1 origin x) (* 0.5 (-> arg1 width)))
+         (+! (-> arg1 origin x) (/ (-> arg1 width) 2))
         )
     (set! sv-72 (-> sv-32 0))
     (set! sv-80 0)
@@ -110,7 +110,7 @@
                     (clock clock)
                     )
  "Start the smush with the given parameters."
-  (when (>= (fabs (* 0.2 (-> this amp))) (fabs (get-no-update this)))
+  (when (>= (fabs (/ (-> this amp) 5)) (fabs (get-no-update this)))
    (set! (-> this amp) amplitude)
    (set! (-> this period) (the float period))
    (set! (-> this duration) (the float duration))
@@ -409,7 +409,7 @@
 (defmethod set-params! ((this delayed-rand-float) (arg0 int) (arg1 int) (arg2 float))
  (set! (-> this min-time) arg0)
  (set! (-> this max-time) arg1)
-  (set! (-> this max-val) (* 0.5 arg2))
+  (set! (-> this max-val) (/ arg2 2))
  (set! (-> this start-time) 0)
  (set! (-> this timer) 0)
  (set! (-> this value) 0.0)
@@ -507,8 +507,8 @@
 (defmethod set-params! ((this delayed-rand-vector) (arg0 int) (arg1 int) (arg2 float) (arg3 float))
  (set! (-> this min-time) arg0)
  (set! (-> this max-time) arg1)
-  (set! (-> this xz-max) (* 0.5 arg2))
-  (set! (-> this y-max) (* 0.5 arg3))
+  (set! (-> this xz-max) (/ arg2 2))
+  (set! (-> this y-max) (/ arg3 2))
  (set! (-> this start-time) 0)
  (set! (-> this timer) 0)
  (vector-reset! (-> this value))
@@ -1303,7 +1303,7 @@
         (f0-2 (evaluate *curve-linear-up-down* f0-1 (loop-behavior use-default)))
         (f0-3 (sin (lerp -16384.0 16384.0 f0-2)))
         (f0-4 (+ 1.0 f0-3))
-         (f0-5 (* 0.5 f0-4))
+         (f0-5 (/ f0-4 2))
         (f0-6 (* 0.8 f0-5))
         (f0-7 (+ 0.3 f0-6))
         )
@@ -1514,7 +1514,8 @@
        (part-tracker-spawn part-tracker :to *entity-pool* :group (-> *part-group-id-table* 1460))
        )
      )
-    (suspend-for (seconds 0.1))
+    (suspend-for (seconds 0.1)
+      )
    (let ((v1-46 (-> self root root-prim)))
      (set! (-> v1-46 prim-core collide-as) (collide-spec))
      (set! (-> v1-46 prim-core collide-with) (collide-spec))
@@ -1776,11 +1777,11 @@
      (set! (-> v1-4 quad) (-> sv-52 quad))
      (set! sv-80 v1-4)
      )
-    (let* ((f30-0 (- (* 0.5 arg2)))
+    (let* ((f30-0 (- (/ arg2 2)))
           (v1-6 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
           (v1-7 (the-as number (logior #x3f800000 v1-6)))
           )
-      (set! sv-84 (+ f30-0 (* (+ -1.0 (the-as float v1-7)) (+ (* 0.5 arg2) (* 0.5 arg2)))))
+      (set! sv-84 (+ f30-0 (* (+ -1.0 (the-as float v1-7)) (+ (/ arg2 2) (/ arg2 2)))))
      )
    (vector+float*! sv-80 sv-80 (vector-cross! (new 'stack-no-clear 'vector) sv-48 *up-vector*) (* sv-84 arg3))
    (bt-barrel-ground-probe sv-80)
@@ -1804,10 +1805,10 @@
          )
      (set! sv-128 sv-48)
      (let* ((f30-1 arg3)
-             (f28-0 (- (* 0.25 arg2)))
+             (f28-0 (- (/ arg2 4)))
             (v1-30 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
             (v1-31 (the-as number (logior #x3f800000 v1-30)))
-             (f0-18 (* f30-1 (+ f28-0 (* (+ -1.0 (the-as float v1-31)) (+ (* 0.25 arg2) (* 0.25 arg2))))))
+             (f0-18 (* f30-1 (+ f28-0 (* (+ -1.0 (the-as float v1-31)) (+ (/ arg2 4) (/ arg2 4))))))
             )
        (vector+float*! s1-1 s0-1 sv-128 f0-18)
        )
@@ -1875,7 +1876,8 @@
  :code (behavior ()
    (until #f
      (attempt-barrel-spawn)
-      (suspend-for (seconds 0.3))
+      (suspend-for (seconds 0.3)
+        )
      )
    #f
    )
@@ -177,7 +177,7 @@
           (f0-6 (+ -1.0 (the-as float v1-35)))
           )
      (cond
-        ((< f0-6 (* 0.5 f30-0))
+        ((< f0-6 (/ f30-0 2))
         (set! s5-1 (logior s5-1 2))
         )
        ((< f0-6 f30-0)
@@ -366,7 +366,8 @@
 (defbehavior bt-roboguard-turret-code bt-roboguard ()
  (ja-channel-push! 1 (seconds 0.2))
  (ja-no-eval :group! bt-roboguard-idle-shoot0-loop-ja :num! zero)
-  (suspend-for (seconds 0.2))
+  (suspend-for (seconds 0.2)
+    )
  (let ((gp-1
          (lambda ((arg0 bt-roboguard) (arg1 symbol))
            (quaternion-rotate-y! (-> arg0 root quat) (-> arg0 root quat) (* 20480.0 (seconds-per-frame) (if arg1
@@ -381,7 +382,8 @@
        )
    (until #f
      (when (< (fabs (-> self me-to-focus-angle)) f30-0)
-        (suspend-for (seconds 0.5))
+        (suspend-for (seconds 0.5)
+          )
        (while (< (fabs (-> self me-to-focus-angle)) f30-0)
          (suspend)
          )
@@ -402,7 +404,8 @@
          )
        )
      (when (< (fabs (-> self me-to-focus-angle)) f30-0)
-        (suspend-for (seconds 0.5))
+        (suspend-for (seconds 0.5)
+          )
        (while (< (fabs (-> self me-to-focus-angle)) f30-0)
          (suspend)
          )
@@ -730,7 +733,7 @@
  (let ((f30-0 0.3))
    (set! (-> (new 'stack-no-clear 'vector) quad) (-> this bob-vec quad))
    (set! (-> this xz-dir x) (-> this bobbers 0 current-speed))
-    (set! (-> this xz-dir z) (* 0.25 (-> this bobbers 2 current-speed)))
+    (set! (-> this xz-dir z) (/ (-> this bobbers 2 current-speed) 4))
    (let ((f26-0 (lerp-scale 0.0 10922.667 (-> this xz-dir z) f30-0 1.0))
          (f24-0 (lerp-scale 0.0 -10922.667 (-> this xz-dir z) (- f30-0) -1.0))
          (f28-0 (lerp-scale 0.0 -10922.667 (-> this xz-dir x) f30-0 1.0))
@@ -2178,7 +2181,8 @@
        )
    )
  :code (behavior ()
-    (suspend-for (seconds 0.3))
+    (suspend-for (seconds 0.3)
+      )
    (until #f
      (suspend)
      (when (ragdoll-settled? self)
@@ -2186,9 +2190,11 @@
            (logior! (-> self skel effect flags) (effect-control-flag ecf1))
            )
        (do-effect (-> self skel effect) "death-default" 0.0 -1)
-        (suspend-for (seconds 0.3))
+        (suspend-for (seconds 0.3)
+          )
        (logior! (-> self draw status) (draw-control-status no-draw))
-        (suspend-for (seconds 0.8))
+        (suspend-for (seconds 0.8)
+          )
        (go-virtual dormant)
        )
      )
@@ -2460,9 +2466,9 @@
      (let ((s4-4 (new 'stack-no-clear 'quaternion)))
        (vector-normalize! s3-3 1.0)
        (+! (-> s3-3 y) 1.0)
-        (set! (-> s3-3 y) (* 0.5 (-> s3-3 y)))
+        (set! (-> s3-3 y) (/ (-> s3-3 y) 2))
        (+! (-> s3-3 x) 1.0)
-        (set! (-> s3-3 x) (* 0.5 (-> s3-3 x)))
+        (set! (-> s3-3 x) (/ (-> s3-3 x) 2))
        (quaternion-rotate-x!
          s4-4
          (quaternion-identity! (new 'stack-no-clear 'quaternion))
@@ -2592,6 +2598,7 @@
  (none)
  )

+;; WARN: Return type mismatch symbol vs object.
 (defmethod ragdoll-settled? ((this bt-grunt))
  (local-vars (f0-0 float))
  (let ((gp-0 (the-as ragdoll-proc (handle->process (-> this ragdoll-proc)))))
@@ -2717,10 +2724,10 @@
                                      (-> arg0 thrust s3-0)
                                      (+ (* 0.4 (fmax 0.0 (* (-> v0-6 x) s0-0)))
                                         (fmax 0.0 (-> v0-6 y))
-                                         (fabs (* 0.2 (-> v0-6 z)))
+                                         (fabs (/ (-> v0-6 z) 5))
                                         (fmax 0.0 (-> s1-1 y))
                                         )
-                                      (* 0.2 f30-0)
+                                      (/ f30-0 5)
                                      )
                                    )
                             )
@@ -1049,7 +1049,7 @@
      (set! arg0 (-> arg1 control))
      )
  (let ((f28-0 (* 409.6 arg0))
-        (f30-0 (lerp 0.05 1.0 (* 0.2 arg0)))
+        (f30-0 (lerp 0.05 1.0 (/ arg0 5)))
        )
    (activate! *camera-smush-control* f28-0 45 (the int (* 300.0 f30-0)) 1.0 0.9 (-> *display* camera-clock))
    (cpad-set-buzz! (-> *cpad-list* cpads 0) 1 204 (the-as time-frame (the int (* 150.0 f30-0))))
@@ -1110,7 +1110,7 @@
    )
  (let* ((f30-0 5461.3335)
         (s5-0 (the int (/ 65536.0 f30-0)))
-         (f28-0 (* 0.5 f30-0))
+         (f28-0 (/ f30-0 2))
         )
    (dotimes (s4-0 s5-0)
      (vector-rotate-around-y!
@@ -1245,7 +1245,7 @@
                    (matrix->quaternion arg2 a1-16)
                    )
                  )
-                (quaternion-rotate-local-x! arg2 arg2 (* 0.5 (-> this roll-amount)))
+                (quaternion-rotate-local-x! arg2 arg2 (/ (-> this roll-amount) 2))
                )
              )
            (vector-! s1-0 s2-0 (-> this root trans))
@@ -1735,7 +1735,7 @@
        (set! (-> this hud-target angle) 0.0)
        (set! (-> this hud-target flags) (hud-sprite-flags hsf3))
        (set! (-> this hud-target-inner flags) (hud-sprite-flags hsf3))
-        (let* ((f0-46 (* 0.03125 (-> this onscreen-targets s5-1 size)))
+        (let* ((f0-46 (/ (-> this onscreen-targets s5-1 size) 32))
               (f0-48 (fmax 0.4 (fmin 2.0 f0-46)))
               (f0-49 (* 2.0 f0-48))
               )
@@ -2135,7 +2135,7 @@
          )
        (let* ((f0-24 (vector-dot s4-12 s2-2))
               (f0-25 (+ 1.0 f0-24))
-               (f0-26 (* 0.5 f0-25))
+               (f0-26 (/ f0-25 2))
               (f0-27 (* f0-26 f0-26))
               (f0-28 (lerp 0.0 2.0 f0-27))
               (f30-0 (fmax 0.3 (fmin 2.0 f0-28)))
@@ -2215,7 +2215,7 @@
                  (vector-y-angle (vector-z-quaternion! (new 'stack-no-clear 'vector) arg0))
                  )
               )
-         (f0-2 (* 0.000061035156 f0-1))
+         (f0-2 (/ f0-1 (meters 4)))
         (f0-3 (+ 0.5 f0-2))
         (f0-4 (floor f0-3))
         )
@@ -3103,7 +3103,7 @@
          )
      (let ((f0-38 (-> this path-height-vel)))
        0.0
-        (let ((f0-41 (fmax -1.0 (fmin 1.0 (* 0.000024414063 f0-38)))))
+        (let ((f0-41 (fmax -1.0 (fmin 1.0 (/ f0-38 (meters 10))))))
          (quaternion-rotate-local-x! s4-2 s4-2 (* -4551.1113 f0-41))
          )
        )
@@ -3429,7 +3429,7 @@
            )
          (let ((f0-17 (-> this path-height-vel)))
            0.0
-            (let ((f0-20 (fmax -1.0 (fmin 1.0 (* 0.000024414063 f0-17)))))
+            (let ((f0-20 (fmax -1.0 (fmin 1.0 (/ f0-17 (meters 10))))))
              (quaternion-rotate-local-x! s4-1 s4-1 (* -4551.1113 f0-20))
              )
            )
@@ -4568,7 +4568,7 @@
             (f0-18 (+ f28-0 (* f26-0 (+ -1.0 (the-as float v1-17))) f30-0))
             )
        (set! (-> *part-id-table* 4825 init-specs 4 initial-valuef) f0-18)
-        (set! (-> *part-id-table* 4825 init-specs 3 initial-valuef) (* 0.5 f0-18))
+        (set! (-> *part-id-table* 4825 init-specs 3 initial-valuef) (/ f0-18 2))
        )
      (draw-beam
        (-> *part-id-table* 4825)
@@ -593,7 +593,7 @@
                            (static-attack-info :mask (vehicle-impulse-factor) ((id (new-attack-id))
                                                                                (damage 20.0)
                                                                                (vehicle-damage-factor 1.0)
-                                                                                (vehicle-impulse-factor (* 0.000012207031 f30-0))
+                                                                                (vehicle-impulse-factor (/ f30-0 (meters 20)))
                                                                                (attacker-velocity s4-2)
                                                                                )
                                                )
@@ -1606,7 +1606,7 @@
                               (set! (-> t0-0 z) 0.0)
                               (set! (-> t0-0 w) 1.0)
                               (let ((v0-6 (t9-6 a0-32 a1-17 a2-23 a3-1 t0-0 (/ f28-0 f30-0))))
-                                 (set! (-> s1-0 delta-y) (* 0.05 (-> v0-6 y) (vector-length (-> s1-0 speed))))
+                                 (set! (-> s1-0 delta-y) (* (/ (-> v0-6 y) 20) (vector-length (-> s1-0 speed))))
                                 )
                               )
                             )
@@ -3278,7 +3278,7 @@
                )
              (set! (-> v1-3 main-y) (- (-> s4-0 feet s0-0 real-position y) (-> s4-0 root trans y)))
              (set! (-> v1-3 main-y) (-> v1-3 delta-y))
-              (+! f30-0 (* 0.25 (-> v1-3 main-y)))
+              (+! f30-0 (/ (-> v1-3 main-y) 4))
              (set! (-> s1-0 quad) (-> v1-3 pos-offset quad))
              (set! (-> s1-0 y) (* -2.0 (-> v1-3 main-y)))
              (new 'stack-no-clear 'vector)
@@ -328,7 +328,7 @@
    (set! (-> self reloading-ammo) (the-as handle #f))
    )
  :trans (behavior ()
-    (when (>= (* 0.5 (-> self grenade-guard-min-player-dist)) (-> self target-self-xz-dist))
+    (when (>= (/ (-> self grenade-guard-min-player-dist) 2) (-> self target-self-xz-dist))
      (cond
        ((not (time-elapsed? (-> self state-time) (seconds 1.5)))
         (+! (-> self num-times-reloading-interrupted) 1)
@@ -547,7 +547,7 @@
            (.svf (&-> a1-2 quad) vf6)
            )
          (let ((f30-2 (* 0.5 (vector-vector-xz-distance s3-0 s1-0))))
-            (vector-normalize! s2-0 (* 0.5 f30-2))
+            (vector-normalize! s2-0 (/ f30-2 2))
            (vector-normalize! s0-0 (* 2.0 f30-2))
            )
          (set! sv-144 0)
@@ -14,13 +14,13 @@
  )

 (defmethod set-speed-limit ((this nav-branch) (arg0 float))
-  (set! (-> this speed-limit) (the-as uint (max 0 (min 255 (the int (+ 0.5 (* 0.0009765625 arg0)))))))
+  (set! (-> this speed-limit) (the-as uint (max 0 (min 255 (the int (+ 0.5 (/ arg0 1024)))))))
  0
  (none)
  )

 (defmethod set-width ((this nav-branch) (arg0 float))
-  (set! (-> this width) (the-as uint (max 0 (min 255 (the int (+ 0.5 (* 0.00390625 arg0)))))))
+  (set! (-> this width) (the-as uint (max 0 (min 255 (the int (+ 0.5 (/ arg0 256)))))))
  0
  (none)
  )
@@ -301,7 +301,7 @@
  )

 (defmethod set-radius ((this nav-node) (arg0 float))
-  (set! (-> this radius) (the-as uint (max 0 (min 255 (the int (+ 0.5 (* 0.0009765625 arg0)))))))
+  (set! (-> this radius) (the-as uint (max 0 (min 255 (the int (+ 0.5 (/ arg0 1024)))))))
  0
  (none)
  )
@@ -545,7 +545,7 @@
      )
    0
    (let* ((f0-0 (-> v1-0 cell-width))
-           (f1-1 (* 0.5 f0-0))
+           (f1-1 (/ (the float f0-0) 2))
           )
      (let ((f3-0 (- (-> arg0 x) f1-1))
            (f2-2 (- (-> arg0 z) f1-1))
@@ -499,11 +499,11 @@
        )
    (vector+! (-> s1-0 trans) arg0 arg1)
    (vector-float*! (-> s1-0 trans) (-> s1-0 trans) 0.5)
-    (+! (-> s1-0 trans y) (* 0.5 arg2))
+    (+! (-> s1-0 trans y) (/ arg2 2))
    (vector-! (-> s2-1 rvec) arg1 arg0)
    (let ((f30-1 (vector-normalize-ret-len! (-> s2-1 rvec) 1.0)))
-      (set! (-> s1-0 scale x) (* 0.00024414062 f30-1))
-      (set! (-> s1-0 scale y) (* 0.00024414062 arg2))
+      (set! (-> s1-0 scale x) (/ f30-1 METER_LENGTH))
+      (set! (-> s1-0 scale y) (/ arg2 METER_LENGTH))
      (set! (-> s1-0 scale z) 1.0)
      (set! (-> s2-1 uvec quad) (-> (new 'static 'vector :y 1.0 :w 1.0) quad))
      (vector-cross! (-> s2-1 fvec) (-> s2-1 rvec) (-> s2-1 uvec))
@@ -513,7 +513,7 @@
      (set! (-> this plane w) (- (vector-dot (-> s2-1 fvec) (-> this root trans))))
      (let ((v0-6 (-> this root root-prim local-sphere)))
        (set! (-> v0-6 x) 0.0)
-        (set! (-> v0-6 y) (* 0.00024414062 (* 0.5 arg2)))
+        (set! (-> v0-6 y) (* 0.00024414062 (/ arg2 2)))
        (set! (-> v0-6 z) 0.0)
        (let ((f0-20 0.5)
              (f1-7 (* f30-1 f30-1))
@@ -2456,8 +2456,7 @@
              )
            (send-event *camera* 'teleport-to-transformq s4-0)
            )
-          (suspend-for
-            (seconds 3)
+          (suspend-for (seconds 3)
            (set! (-> *camera* slave 0 fov) (-> *city-burning-bush-get-on-info* (-> self info index) fov))
            )
          (set! (-> *camera-combiner* trans quad) (-> s5-0 quad))
@@ -1218,7 +1218,7 @@
           )
      0.0
      (let* ((f0-3 (sin (* 65536.0 f0-1)))
-             (f0-4 (* 0.125 f0-3))
+             (f0-4 (/ f0-3 8))
             )
        (set! (-> self draw color-emissive x) (+ 0.375 f0-4))
        )
@@ -1681,7 +1681,8 @@
    (until (process-grab? *target* #f)
      (suspend)
      )
-    (suspend-for (seconds 1.5))
+    (suspend-for (seconds 1.5)
+      )
    (send-event (handle->process (-> self hpickup)) 'flight-up)
    (let ((gp-1 (-> self missiles allocated-length))
          (s5-0 0)
@@ -1729,7 +1730,8 @@
        )
      )
    (sound-play "hj-missile" :id (-> self missile-sound))
-    (suspend-for (seconds 0.5))
+    (suspend-for (seconds 0.5)
+      )
    (dotimes (gp-3 (-> self missiles length))
      (send-event (handle->process (-> self missiles gp-3)) 'begin-moving)
      )
@@ -1738,9 +1740,11 @@
      (send-event (handle->process (-> self missiles gp-4)) 'begin-moving)
      )
    (cty-hijack-manager-method-39 self 1)
-    (suspend-for (seconds 0.2))
+    (suspend-for (seconds 0.2)
+      )
    (remove-setting! 'entity-name)
-    (suspend-for (seconds 1))
+    (suspend-for (seconds 1)
+      )
    (until (process-release? *target*)
      (suspend)
      )
@@ -72,7 +72,7 @@
  (logior! (-> this draw status) (draw-control-status force-fade))
  (let ((f0-8 (vector-vector-distance (-> this root trans) (math-camera-pos))))
    0.0
-    (let* ((f1-2 (* 0.0000027126737 f0-8))
+    (let* ((f1-2 (/ f0-8 (meters 90)))
           (f1-4 (fmax 0.0 (fmin 1.0 f1-2)))
           (f0-11 (- 1.0 (* (- 1.0 f1-4) (- 1.0 f1-4))))
           )
@@ -1837,7 +1837,8 @@
             process
             (lambda :behavior process
               ()
-               (suspend-for (seconds 0.75))
+               (suspend-for (seconds 0.75)
+                 )
               (let ((a0-0 (ppointer->process (-> self parent))))
                 (if a0-0
                     (play-speech (the-as ctyport-attack-manager a0-0) 13)
@@ -1987,7 +1988,8 @@
  :virtual #t
  :code (behavior ()
    (sound-stop (-> self hum-sound))
-    (suspend-for (seconds 1))
+    (suspend-for (seconds 1)
+      )
    (disable *screen-filter*)
    (deactivate self)
    )
@@ -2173,7 +2175,8 @@
        )
    )
  :code (behavior ()
-    (suspend-for (seconds 1))
+    (suspend-for (seconds 1)
+      )
    (let ((gp-1 (new 'stack-no-clear 'event-message-block)))
      (set! (-> gp-1 from) (process->ppointer self))
      (set! (-> gp-1 num-params) 0)
@@ -2670,11 +2673,8 @@
        (cond
          ((-> arg0 inout?)
           (let* ((f0-2 (* 0.0033333334 (the float (- (current-time) (-> this mine-clock)))))
-                  (f1-3 (* 0.0033333334 (-> arg0 period)))
-                  (f0-5 (+ (/ (- f0-2 (* (the float (the int (/ f0-2 f1-3))) f1-3)) (* 0.0033333334 (-> arg0 period)))
-                           (-> arg0 offset)
-                           )
-                        )
+                  (f1-3 (/ (-> arg0 period) 300))
+                  (f0-5 (+ (/ (- f0-2 (* (the float (the int (/ f0-2 f1-3))) f1-3)) (/ (-> arg0 period) 300)) (-> arg0 offset)))
                  (f0-6 (- f0-5 (* (the float (the int (/ f0-5 1.0))) 1.0)))
                  )
             (if (< 0.5 f0-6)
@@ -2690,7 +2690,7 @@
            )
          )
        (if (-> arg0 spin?)
-            (+! f30-0 (* 0.0033333334 (-> arg0 spinrate) (the float (- (current-time) (-> this mine-clock)))))
+            (+! f30-0 (* (/ (-> arg0 spinrate) 300) (the float (- (current-time) (-> this mine-clock)))))
            )
        (vector-rotate-around-y! s4-0 s4-0 f30-0)
        )
@@ -628,14 +628,14 @@
  (when #t
    (cond
      ((< 0.0 (-> this down-force))
-       (let* ((f1-3 (* 0.0000024414062 (-> this down-force)))
+       (let* ((f1-3 (/ (-> this down-force) (meters 100)))
              (f0-7 (fmax 0.0 (fmin 1.0 f1-3)))
              )
         (set! (-> this target-pitch) (lerp 0.0 -7281.778 f0-7))
         )
       )
      (else
-        (let* ((f1-6 (* -0.0000024414062 (-> this down-force)))
+        (let* ((f1-6 (/ (-> this down-force) (meters -100)))
               (f0-11 (fmax 0.0 (fmin 1.0 f1-6)))
               )
          (set! (-> this target-pitch) (lerp 0.0 7281.778 f0-11))
@@ -658,8 +658,8 @@
    (vector+float*! v1-16 a0-7 a1-5 a2-3)
    (set! (-> s4-0 y) 0.0)
    (vector-normalize! s4-0 1.0)
-    (let* ((s2-1 (vector+float*! (new 'stack-no-clear 'vector) s3-0 s4-0 (* 0.5 f30-0)))
-           (s1-1 (vector+float*! (new 'stack-no-clear 'vector) s3-0 s4-0 (* -0.5 f30-0)))
+    (let* ((s2-1 (vector+float*! (new 'stack-no-clear 'vector) s3-0 s4-0 (/ f30-0 2)))
+           (s1-1 (vector+float*! (new 'stack-no-clear 'vector) s3-0 s4-0 (/ f30-0 -2)))
           (f28-0 (probe-ground this s2-1 a2-3))
           (f0-24 (probe-ground this s1-1 a2-3))
           )
@@ -827,7 +827,7 @@
            (when (not (-> this on-water?))
              (set! f26-0 10.0)
              (when (< (-> this down-force) -204800.0)
-                (let* ((f1-11 (* -0.0000012207031 (-> this down-force)))
+                (let* ((f1-11 (/ (-> this down-force) (meters -200)))
                       (f24-0 (fmax 0.0 (fmin 1.0 f1-11)))
                       )
                  (cpad-set-buzz!
@@ -870,14 +870,14 @@
                )
              )
            (when (-> this on-water?)
-              (let ((f0-42 (* -0.0000012207031 (-> this down-force))))
+              (let ((f0-42 (/ (-> this down-force) (meters -200))))
                (if (< 0.1 f0-42)
                    (set! (-> this spawn-splash?) #t)
                    )
                )
              )
            (when (and (-> this on-water?) (>= (current-time) (-> this next-bob-cam-time)))
-              (let ((f0-44 (* -0.0000012207031 (-> this down-force))))
+              (let ((f0-44 (/ (-> this down-force) (meters -200))))
                (cond
                  ((< 0.2 f0-44)
                   (let ((f24-1 (fmax 0.0 (fmin 1.0 f0-44)))
@@ -966,7 +966,7 @@
        (vector-z-quaternion! s4-0 (the-as quaternion (-> this rbody rot)))
        (vector-float*! (-> this rbody lin-momentum) s4-0 (* (-> this speed) (-> this info info mass)))
        )
-      (+! (-> this rbody lin-momentum y) (* 0.5 (-> this down-force) (-> this info info mass)))
+      (+! (-> this rbody lin-momentum y) (* (/ (-> this down-force) 2) (-> this info info mass)))
      (if (< (-> this rbody position y) -6144.0)
          (set! (-> this rbody lin-momentum y) (fmax 0.0 (-> this rbody lin-momentum y)))
          )
@@ -1770,16 +1770,16 @@
        (seek! (-> this ground-vol-current) f30-0 (* 5.4 (seconds-per-frame)))
        )
    )
-  (let* ((f0-27 (* 0.00000012207032 (-> this rbody lin-momentum y)))
+  (let* ((f0-27 (/ (-> this rbody lin-momentum y) (meters 2000)))
         (f0-29 (fmax -1.0 (fmin 1.0 f0-27)))
-         (f0-30 (* 0.5 f0-29))
+         (f0-30 (/ f0-29 2))
         )
    (if (< f0-30 (-> this pitch-current))
        (seek! (-> this pitch-current) f0-30 (* 0.25 (seconds-per-frame)))
        (seek! (-> this pitch-current) f0-30 (* 4.0 (seconds-per-frame)))
        )
    )
-  (let* ((f1-25 (* 0.00000012207032 (-> this rbody lin-momentum y)))
+  (let* ((f1-25 (/ (-> this rbody lin-momentum y) (meters 2000)))
         (f30-2 (fmax 0.0 (fmin 1.0 f1-25)))
         )
    (sound-play-by-name
@@ -172,7 +172,7 @@
    (let* ((f30-0 (- 1.0 (* (- 1.0 f0-1) (- 1.0 f0-1))))
           (f0-2 (sin (lerp -16384.0 16384.0 f0-1)))
           (f0-3 (+ 1.0 f0-2))
-           (f0-4 (* 0.5 f0-3))
+           (f0-4 (/ f0-3 2))
           )
      (set! (-> *display* force-sync) (the-as uint 2))
      (when s5-0
@@ -283,7 +283,8 @@
        )
    )
  :code (behavior ()
-    (suspend-for (seconds 0.5))
+    (suspend-for (seconds 0.5)
+      )
    (send-event self 'ammo-special 15 29)
    (sleep-code)
    )
@@ -426,7 +427,8 @@
      (set! (-> v1-4 notify-proc) (process->handle self))
      (send-event (handle->process (-> self h-player-controller)) 'set-params v1-4)
      )
-    (suspend-for (seconds 0.1))
+    (suspend-for (seconds 0.1)
+      )
    (if *target*
        (logclear! (-> *target* focus-status) (focus-status teleporting))
        )
@@ -1368,7 +1370,8 @@
              process
              (lambda :behavior process
                ()
-                (suspend-for (seconds 1))
+                (suspend-for (seconds 1)
+                  )
                (dotimes (gp-1 (-> *assault-squad* spawn-records 1 records length))
                  (send-event (handle->process (-> *assault-squad* spawn-records 1 records data gp-1 proc)) 'traffic-off-force)
                  )
@@ -412,7 +412,7 @@
               )
             (vector+float*! (-> this root transv) (-> this root transv) s5-1 (* f28-0 (seconds-per-frame)))
             (let* ((f0-19 (fmax 61440.0 (* (vector-length s5-1) f28-0)))
-                    (f28-1 (* 0.000008138021 f0-19))
+                    (f28-1 (/ f0-19 (meters 30)))
                    (f26-0 0.8)
                    (f24-0 0.40000004)
                    (v1-53 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
@@ -426,7 +426,7 @@
         )
        (else
          (let* ((f0-30 (fmax 61440.0 (* 3.0 (vector-length (-> this root transv)))))
-                 (f28-2 (* 0.000008138021 f0-30))
+                 (f28-2 (/ f0-30 (meters 30)))
                 (f26-1 0.8)
                 (f24-1 0.40000004)
                 (v1-68 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
@@ -531,7 +531,7 @@
            )
        (let ((f0-8 (* (lerp 3072.0 8601.6 f0-6) (-> this thruster-intensity-scalar))))
          (set! (-> *part-id-table* 4709 init-specs 4 initial-valuef) f0-8)
-          (set! (-> *part-id-table* 4709 init-specs 3 initial-valuef) (* 0.5 f0-8))
+          (set! (-> *part-id-table* 4709 init-specs 3 initial-valuef) (/ f0-8 2))
          )
        )
      (draw-beam (-> *part-id-table* 4709) gp-0 s5-0 #f)
@@ -550,7 +550,7 @@
        )
    (flying-turret-method-227 this)
    (let* ((f0-0 (vector-length (-> this root transv)))
-           (f0-1 (* 0.000016276043 f0-0))
+           (f0-1 (/ f0-0 (meters 15)))
           )
      0.0
      0.0
@@ -1616,7 +1616,8 @@
      (set! (-> gp-1 pickup-amount) 2.0)
      (drop-pickup gp-1 #t *entity-pool* gp-1 0 #t)
      )
-    (suspend-for (seconds 5))
+    (suspend-for (seconds 5)
+      )
    )
  )

@@ -1809,7 +1810,7 @@
    (set-time! (-> self state-time))
    (let ((gp-2 (vector-! (new 'stack-no-clear 'vector) (-> self dest-pos) (-> self root trans))))
      0.0
-      (set! (-> self travel-speed) (/ (vector-normalize-ret-len! gp-2 1.0) (* 0.0033333334 (-> self attack-time))))
+      (set! (-> self travel-speed) (/ (vector-normalize-ret-len! gp-2 1.0) (/ (-> self attack-time) 300)))
      (let ((a1-3 (matrix-f-compose (new 'stack-no-clear 'matrix) gp-2)))
        (matrix->quaternion (-> self root quat) a1-3)
        )
@@ -2175,9 +2176,9 @@
                    (let* ((v1-121 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
                           (v1-122 (the-as number (logior #x3f800000 v1-121)))
                           (f0-35 (- (* (+ -1.0 (the-as float v1-122)) (-> this missile-info probe-angle-shift))))
-                           (f24-1 (* 0.25 f0-35))
+                           (f24-1 (/ f0-35 4))
                           (f0-38 (floor (the float (/ s5-5 3))))
-                           (f2-0 (* 0.000016276043 f30-3))
+                           (f2-0 (/ f30-3 (meters 15)))
                           (f1-15 (fmax 0.0 (fmin 1.0 f2-0)))
                           (f1-16 (* f1-15 f1-15))
                           (f0-39 (* f0-38 (- 1.0 f1-16)))
@@ -2376,7 +2377,7 @@
    (vector-float*! s5-0 s5-0 0.5)
    (set! (-> s5-0 y) 0.0)
    (let* ((f0-11 (vector-normalize-ret-len! s5-0 1.0))
-           (f1-6 (* 0.000009765625 f0-11))
+           (f1-6 (/ f0-11 (meters 25)))
           (f0-13 (fmax 0.0 (fmin 1.0 f1-6)))
           (f0-14 (* f0-13 f0-13))
           )
@@ -2493,7 +2494,7 @@
                   (f0-51 (+ f28-1 (* f26-0 (+ -1.0 (the-as float v1-118))) f30-2))
                   )
              (set! (-> *part-id-table* 4785 init-specs 4 initial-valuef) f0-51)
-              (set! (-> *part-id-table* 4785 init-specs 3 initial-valuef) (* 0.5 f0-51))
+              (set! (-> *part-id-table* 4785 init-specs 3 initial-valuef) (/ f0-51 2))
              )
            (draw-beam
              (-> *part-id-table* 4785)
@@ -2650,7 +2651,7 @@
                (vector-float*! s5-1 s5-1 -1.0)
                (let ((f30-1 (- (vector-y-angle s4-1) (vector-y-angle s5-1))))
                  (format 0 "Doing inverse rotate~%")
-                  (set! (-> this rotate-rate) (* 0.25 f30-1))
+                  (set! (-> this rotate-rate) (/ f30-1 4))
                  )
                )
              )
@@ -3395,7 +3396,7 @@
        0.0
        0.0
        (let* ((f0-6 (vector-length v1-8))
-               (f0-7 (* 0.000009765625 f0-6))
+               (f0-7 (/ f0-6 (meters 25)))
               (f1-3 (* f0-7 f0-7 (seconds-per-frame)))
               (f0-10 (fmax 0.0 (fmin 1.0 f1-3)))
               )
@@ -3421,7 +3422,7 @@
        (set! (-> s5-3 y) 0.0)
        (let ((f1-6 (vector-normalize-ret-len! s5-3 1.0)))
          (when (< f1-6 122880.0)
-            (let* ((f0-21 (* 0.000008138021 f1-6))
+            (let* ((f0-21 (/ f1-6 (meters 30)))
                   (f0-22 (- 1.0 f0-21))
                   (f0-23 (* f0-22 f0-22))
                   )
@@ -439,7 +439,8 @@
 (defbehavior roboguard-city-turret-code roboguard-city ()
  (ja-channel-push! 1 (seconds 0.2))
  (ja-no-eval :group! roboguard-city-idle-shoot0-loop-ja :num! zero)
-  (suspend-for (seconds 0.2))
+  (suspend-for (seconds 0.2)
+    )
  (let ((gp-1
          (lambda :behavior process
            ((arg0 roboguard-city) (arg1 symbol))
@@ -455,7 +456,8 @@
        )
    (until #f
      (when (< (fabs (-> self me-to-focus-angle)) f30-0)
-        (suspend-for (seconds 0.5))
+        (suspend-for (seconds 0.5)
+          )
        (while (< (fabs (-> self me-to-focus-angle)) f30-0)
          (suspend)
          )
@@ -476,7 +478,8 @@
          )
        )
      (when (< (fabs (-> self me-to-focus-angle)) f30-0)
-        (suspend-for (seconds 0.5))
+        (suspend-for (seconds 0.5)
+          )
        (while (< (fabs (-> self me-to-focus-angle)) f30-0)
          (suspend)
          )
@@ -932,7 +935,7 @@
        (-> self move-dest)
        self
        (-> self target-status handle)
-        (* 0.5 (-> self attack-distance))
+        (/ (-> self attack-distance) 2)
        (-> self random-offset-search)
        )
      (roboguard-city-method-239 self)
@@ -1059,7 +1062,7 @@
               (-> this move-dest)
               this
               (-> this target-status handle)
-               (* 0.5 (-> this attack-distance))
+               (/ (-> this attack-distance) 2)
               (-> this random-offset-search)
               )
             (roboguard-city-method-239 this)
@@ -1079,7 +1082,7 @@
              (-> this move-dest)
              this
              (-> this target-status handle)
-              (* 0.5 (-> this attack-distance))
+              (/ (-> this attack-distance) 2)
              (-> this random-offset-search)
              )
            (roboguard-city-method-235 this)
@@ -1949,7 +1952,7 @@
      (-> this move-dest)
      this
      (-> this target-status handle)
-      (* 0.5 (-> this attack-distance))
+      (/ (-> this attack-distance) 2)
      (-> this random-offset-search)
      )
    (roboguard-city-method-239 this)
@@ -1966,7 +1969,7 @@
         0.0
         (let* ((f0-8 (vector-dot s5-3 v1-35))
                (f0-9 (+ 1.0 f0-8))
-                (f0-10 (* 0.5 f0-9))
+                (f0-10 (/ f0-9 2))
                (f0-11 (lerp -0.2 0.0 f0-10))
                )
           (sound-play-by-name
@@ -2104,7 +2107,7 @@
           (f0-21 (+ -1.0 (the-as float v1-61)))
           )
      (cond
-        ((< f0-21 (* 0.5 f30-1))
+        ((< f0-21 (/ f30-1 2))
         (set! s5-0 (logior s5-0 2))
         )
        ((< f0-21 f30-1)
@@ -1180,7 +1180,7 @@
        (launch-particles (-> *part-id-table* 4846) s4-0)
        )
      (let ((s4-1 (new 'stack-no-clear 'matrix))
-            (f28-1 (* 0.000015258789 f30-0))
+            (f28-1 (/ f30-0 (meters 16)))
            (f30-1 (-> *part-id-table* 4847 init-specs 3 initial-valuef))
            )
        (-> *part-id-table* 4847 init-specs 4 initial-valuef)
@@ -2341,7 +2341,7 @@
                 )
               (quaternion-copy! (-> self gun-shoulder-jmod rotation) (new 'static 'quaternion :x 0.5 :w 0.8660254))
               (quaternion-copy! (-> self gun-elbow-jmod rotation) (new 'static 'quaternion :x -0.5 :w 0.8660254))
-               (set! (-> self fov-mult) (lerp-clamp 1.3 0.45 (* 0.0000048828124 f30-0)))
+               (set! (-> self fov-mult) (lerp-clamp 1.3 0.45 (/ f30-0 (meters 50))))
               (set-setting! 'fov 'rel (-> self fov-mult) 0)
               )
             )
@@ -2627,7 +2627,8 @@
    )
  :code (behavior ()
    (logior! (-> self flags) (cty-sniper-turret-flag cst3))
-    (suspend-for (seconds 0.49))
+    (suspend-for (seconds 0.49)
+      )
    (let ((gp-1 (rand-vu-int-range 3 6)))
      (dotimes (s5-0 gp-1)
        (fire-shot self)
@@ -2759,8 +2760,7 @@
            (when (and (< f30-0 0.0) (not (-> *setting-control* user-current freeze-screen)))
              (set-setting! 'mode-name 'cam-no-trans 0.0 0)
              (suspend)
-              (suspend-for
-                (seconds 0.5)
+              (suspend-for (seconds 0.5)
                (let ((s3-0 (new 'stack-no-clear 'vector)))
                  (set! (-> s3-0 quad) (the-as uint128 0))
                  (cond
@@ -2817,7 +2817,8 @@
             #t
             )
           (logior! (-> *target* focus-status) (focus-status ignore))
-           (suspend-for (seconds 0.08))
+           (suspend-for (seconds 0.08)
+             )
           (send-event self 'pov-cam-on)
           (send-event (handle->process (-> self reticle)) 'on)
           (setup
@@ -2830,7 +2831,8 @@
             #x33001
             #t
             )
-           (suspend-for (seconds 0.08))
+           (suspend-for (seconds 0.08)
+             )
           (disable *screen-filter*)
           )
          (else
@@ -2871,12 +2873,13 @@
            )
          )
        )
-      (suspend-for (seconds 1.5) (when (focus-test? *target* grabbed)
-                                   (logclear! (-> self flags) (cty-sniper-turret-flag cst11))
-                                   (send-event (handle->process (-> self reticle)) 'unlock)
-                                   (goto cfg-44)
-                                   )
-                   )
+      (suspend-for (seconds 1.5)
+        (when (focus-test? *target* grabbed)
+          (logclear! (-> self flags) (cty-sniper-turret-flag cst11))
+          (send-event (handle->process (-> self reticle)) 'unlock)
+          (goto cfg-44)
+          )
+        )
      (if (and (logtest? (-> self flags) (cty-sniper-turret-flag cst7)) (not (cty-sniper-turret-method-39 self)))
          (go-virtual locked-on)
          )
@@ -2929,7 +2932,8 @@
    (suspend)
    (set-setting! 'interp-time 'abs 600.0 0)
    (remove-setting! 'mode-name)
-    (suspend-for (seconds 0.25))
+    (suspend-for (seconds 0.25)
+      )
    (send-event (handle->process (-> self reticle)) 'die)
    (let ((v1-71 (-> self root root-prim)))
      (set! (-> v1-71 prim-core collide-as) (collide-spec))
@@ -647,7 +647,7 @@
        (if (or (= (-> this incoming knocked-type) (knocked-type explode-or-darkjak))
                (= (-> this incoming knocked-type) (knocked-type dark-shot))
                )
-            (set! (-> arg0 anim-speed) (* 0.5 (-> arg0 anim-speed)))
+            (set! (-> arg0 anim-speed) (/ (-> arg0 anim-speed) 2))
            )
        (let ((a0-47 (-> this skel root-channel 0)))
          (set! (-> a0-47 frame-group) (the-as art-joint-anim s4-0))
@@ -752,7 +752,7 @@
      s5-1
      s5-1
      gp-0
-      (* (fmax 0.5 (* 0.00024414062 (-> arg0 state speed))) (seconds-per-frame))
+      (* (fmax 0.5 (/ (-> arg0 state speed) METER_LENGTH)) (seconds-per-frame))
      )
    )
  0
@@ -874,7 +874,7 @@
        )
      (if (and (-> self allow-dive)
               (< (vector-length v1-8) (* (-> self dive-reaction) (vector-length (-> self cp-vec))))
-               (< (fabs (vector4-dot (-> self root trans) (the-as vector (-> self cp-plane)))) (* 0.5 (-> self cp-sphere r)))
+               (< (fabs (vector4-dot (-> self root trans) (the-as vector (-> self cp-plane)))) (/ (-> self cp-sphere r) 2))
               )
          (civilian-method-231 self)
          )
@@ -337,10 +337,12 @@
         )
       )
      )
-    (suspend-for (seconds 0.6))
+    (suspend-for (seconds 0.6)
+      )
    (+! (-> self root trans y) -8192.0)
    (logior! (-> self draw status) (draw-control-status no-draw))
-    (suspend-for (the int (* 300.0 (rnd-float-range self 0.0 0.6))))
+    (suspend-for (the int (* 300.0 (rnd-float-range self 0.0 0.6)))
+      )
    (logclear! (-> self draw status) (draw-control-status no-draw))
    (go-virtual ambush-jumping)
    )
@@ -480,7 +482,7 @@
           (set-time! (-> this last-change-dir))
           (set! (-> this change-dir-time) (rand-vu-int-range (seconds 0.5) (seconds 0.7)))
           (let ((s3-2 (new 'stack-no-clear 'vector))
-                 (f0-9 (* 0.5 f30-0 (tan (-> this move-angle))))
+                 (f0-9 (* (/ f30-0 2) (tan (-> this move-angle))))
                 (s2-0 (new 'stack-no-clear 'vector))
                 )
             (if (-> this heading)
@@ -712,7 +712,7 @@
          (.sub.vf vf6 vf4 vf5 :mask #b111)
          (.svf (&-> sv-272 quad) vf6)
          (let* ((f0-5 (vector-length sv-272))
-                 (f0-6 (* 0.0000018780048 f0-5))
+                 (f0-6 (/ f0-5 (meters 130)))
                 )
            (set! sv-288 (new 'stack-no-clear 'vector))
            (let ((s0-0 (new 'stack-no-clear 'vector))
@@ -329,7 +329,7 @@
            )
          )
        (set! (-> s4-0 vec2 y)
-              (+ (* 0.5 (-> s4-0 vec2 x)) (* (-> this rand) (-> this traffic inv-density-factor) (-> arg1 spawn-spacing)))
+              (+ (/ (-> s4-0 vec2 x) 2) (* (-> this rand) (-> this traffic inv-density-factor) (-> arg1 spawn-spacing)))
              )
        (vector-float*! (-> s4-0 params velocity) (-> s4-0 vec0) (-> s4-0 vec2 x))
        (vector-float*! (-> s4-0 vec1) (-> s4-0 vec0) (-> s4-0 vec2 y))
@@ -975,7 +975,7 @@
                (set! f3-0 1.5)
                )
              )
-            (set! (-> v1-1 0 decay-rate) (* 0.1 f3-0))
+            (set! (-> v1-1 0 decay-rate) (/ f3-0 10))
            (when (< (-> v1-1 0 danger-level) f2-0)
              (set! (-> v1-1 0 danger-level) f2-0)
              (set! (-> v1-1 0 sphere r) f1-0)
@@ -1618,10 +1618,10 @@
        (f26-0 (* -13653.333 (-> this controls brake)))
        (s5-0 (new 'static 'vector :x 1.0 :w 1.0))
        )
-    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f28-0 (* 0.2 f30-0)))
-    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f28-0) (* 0.2 f30-0)))
-    (quaternion-vector-angle! (-> this fin-fl rotation) s5-0 (- (* -0.2 f28-0) f30-0))
-    (quaternion-vector-angle! (-> this fin-fr rotation) s5-0 (- (* 0.2 f28-0) f30-0))
+    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f28-0 (/ f30-0 5)))
+    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f28-0) (/ f30-0 5)))
+    (quaternion-vector-angle! (-> this fin-fl rotation) s5-0 (- (/ f28-0 -5) f30-0))
+    (quaternion-vector-angle! (-> this fin-fr rotation) s5-0 (- (/ f28-0 5) f30-0))
    (quaternion-vector-angle! (-> this rudder rotation) s5-0 f30-0)
    (quaternion-vector-angle! (-> this brake-l rotation) s5-0 f26-0)
    (quaternion-vector-angle! (-> this brake-r rotation) s5-0 f26-0)
@@ -1720,8 +1720,8 @@
        (f28-0 (* 13653.333 (-> this controls brake)))
        (s5-0 (new 'static 'vector :x 1.0 :w 1.0))
        )
-    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f26-0 (* 0.2 f30-0)))
-    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f26-0) (* 0.2 f30-0)))
+    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f26-0 (/ f30-0 5)))
+    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f26-0) (/ f30-0 5)))
    (quaternion-vector-angle! (-> this rudder rotation) s5-0 f30-0)
    (quaternion-vector-angle! (-> this rudder-f rotation) s5-0 (- f30-0))
    (quaternion-vector-angle! (-> this brake-l rotation) s5-0 (- f28-0))
@@ -1831,8 +1831,8 @@
    (quaternion-vector-angle! (-> this fin-fr rotation) s5-0 f26-0)
    (quaternion-vector-angle! (-> this fin2-fl rotation) s5-0 (- f26-0))
    (quaternion-vector-angle! (-> this fin2-fr rotation) s5-0 f26-0)
-    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f26-0 (* 0.2 f30-0)))
-    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f26-0) (* 0.2 f30-0)))
+    (quaternion-vector-angle! (-> this fin-rl rotation) s5-0 (+ f26-0 (/ f30-0 5)))
+    (quaternion-vector-angle! (-> this fin-rr rotation) s5-0 (+ (- f26-0) (/ f30-0 5)))
    (quaternion-vector-angle! (-> this rudder rotation) s5-0 f30-0)
    (quaternion-vector-angle! (-> this brake-l rotation) s5-0 (- f28-0))
    (quaternion-vector-angle! (-> this brake-r rotation) s5-0 f28-0)
--- a/Show More
+++ b/Show More