mirror of
https://github.com/open-goal/jak-project
synced 2026-07-27 23:00:42 -04:00
jak3 ref
This commit is contained in:
Hat Kid
+1
-5
@@ -1230,7 +1230,7 @@
|
||||
(defun fov->maya ((arg0 float))
|
||||
(if (= arg0 0.0)
|
||||
0.0
|
||||
(/ 12.700255 (tan (* 0.5 arg0)))
|
||||
(/ 12.700255 (tan (/ arg0 2)))
|
||||
)
|
||||
)
|
||||
|
||||
@@ -3713,7 +3713,3 @@
|
||||
(cam-layout-stop)
|
||||
(cam-layout-start)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+2
-2
@@ -232,10 +232,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)
|
||||
)
|
||||
)
|
||||
|
||||
+10
-18
@@ -56,10 +56,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))))
|
||||
@@ -237,9 +237,7 @@
|
||||
(when (logtest? (-> *camera* settings master-options) (cam-master-options READ_BUTTONS))
|
||||
(if (cpad-hold? arg4 r1)
|
||||
(+! (-> arg2 y)
|
||||
(+ (* 0.2 f30-0)
|
||||
(analog-input (the-as int (-> *cpad-list* cpads arg4 abutton 9)) 0.0 32.0 230.0 (* 0.2 f30-0))
|
||||
)
|
||||
(+ (/ f30-0 5) (analog-input (the-as int (-> *cpad-list* cpads arg4 abutton 9)) 0.0 32.0 230.0 (/ f30-0 5)))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -247,9 +245,7 @@
|
||||
(if (cpad-hold? arg4 l1)
|
||||
(set! (-> arg2 y)
|
||||
(- (-> arg2 y)
|
||||
(+ (* 0.2 f30-0)
|
||||
(analog-input (the-as int (-> *cpad-list* cpads arg4 abutton 8)) 0.0 32.0 230.0 (* 0.2 f30-0))
|
||||
)
|
||||
(+ (/ f30-0 5) (analog-input (the-as int (-> *cpad-list* cpads arg4 abutton 8)) 0.0 32.0 230.0 (/ f30-0 5)))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -318,16 +314,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))
|
||||
@@ -462,7 +458,3 @@
|
||||
#f
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+2
-6
@@ -2571,7 +2571,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)
|
||||
@@ -2594,7 +2594,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))
|
||||
@@ -3964,7 +3964,3 @@
|
||||
#f
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+9
-13
@@ -291,7 +291,7 @@
|
||||
0.0
|
||||
)
|
||||
((>= 0.25 arg0)
|
||||
(* 0.5 arg0)
|
||||
(/ arg0 2)
|
||||
)
|
||||
((>= arg0 0.75)
|
||||
(- 1.0 (* 0.5 (- 1.0 arg0)))
|
||||
@@ -822,7 +822,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))
|
||||
@@ -852,7 +852,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)))
|
||||
@@ -930,7 +930,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)
|
||||
@@ -1335,7 +1335,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
|
||||
@@ -1576,7 +1576,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)
|
||||
@@ -1609,7 +1609,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)
|
||||
@@ -1635,7 +1635,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)
|
||||
)
|
||||
)
|
||||
@@ -1800,7 +1800,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
|
||||
@@ -2067,7 +2067,3 @@
|
||||
)
|
||||
arg0
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-5
@@ -515,7 +515,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)))
|
||||
)
|
||||
@@ -546,7 +546,3 @@
|
||||
)
|
||||
arg0
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+4
-8
@@ -167,11 +167,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))
|
||||
@@ -179,7 +179,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))
|
||||
@@ -286,7 +286,3 @@
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+5
-5
@@ -978,7 +978,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))
|
||||
@@ -1122,7 +1122,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))
|
||||
@@ -1937,7 +1937,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))
|
||||
)
|
||||
@@ -3269,7 +3269,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)))
|
||||
@@ -3279,7 +3279,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)
|
||||
|
||||
+2
-2
@@ -1431,9 +1431,9 @@
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(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)
|
||||
|
||||
+2
-2
@@ -1206,7 +1206,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))
|
||||
@@ -1236,7 +1236,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)))
|
||||
|
||||
+1
-5
@@ -405,7 +405,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))
|
||||
)
|
||||
@@ -662,7 +662,3 @@
|
||||
(the-as (pointer guard-shot) (spawn-projectile guard-shot gp-0 arg0 *default-dead-pool*))
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-1
@@ -399,7 +399,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))
|
||||
)
|
||||
|
||||
+2
-2
@@ -646,7 +646,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)
|
||||
@@ -801,7 +801,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)
|
||||
|
||||
+1
-1
@@ -796,7 +796,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)
|
||||
|
||||
+15
-15
@@ -269,13 +269,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
|
||||
)
|
||||
)
|
||||
@@ -558,7 +558,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)
|
||||
)
|
||||
)
|
||||
|
||||
@@ -1119,7 +1119,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! f30-0 (* 0.00024414062 f1-2))
|
||||
(set! f30-0 (/ f1-2 METER_LENGTH))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -1155,7 +1155,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))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -2699,7 +2699,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))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -2733,7 +2733,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))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -6208,13 +6208,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*
|
||||
@@ -6223,13 +6223,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
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -6242,10 +6242,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
|
||||
@@ -6568,10 +6568,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)
|
||||
)
|
||||
|
||||
+11
-15
@@ -125,7 +125,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))
|
||||
@@ -145,7 +145,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))
|
||||
@@ -207,7 +207,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*
|
||||
@@ -215,17 +215,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))
|
||||
@@ -683,7 +683,3 @@
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-1
@@ -409,7 +409,7 @@
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 rdists z) (/ 1.0 (- (-> arg0 dists w) (-> arg0 dists z))))
|
||||
(set! (-> arg0 dists y) (* 0.5 (-> arg0 dists x)))
|
||||
(set! (-> arg0 dists y) (/ (-> arg0 dists x) 2))
|
||||
(set! (-> arg0 rdists y) (/ 1.0 (-> arg0 dists y)))
|
||||
arg0
|
||||
)
|
||||
|
||||
+1
-1
@@ -1075,7 +1075,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)
|
||||
|
||||
+6
-6
@@ -68,10 +68,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)))
|
||||
@@ -85,10 +85,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)))
|
||||
@@ -102,10 +102,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)))
|
||||
|
||||
+1
-1
@@ -1754,7 +1754,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))
|
||||
|
||||
+2
-2
@@ -229,11 +229,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))
|
||||
|
||||
+2
-2
@@ -96,7 +96,7 @@
|
||||
(.svf (&-> arg0 quad) vf3)
|
||||
(let* ((f0-0 (vector-length arg0))
|
||||
(f1-1 (vector-dot arg0 arg2))
|
||||
(f0-2 (- (* 0.02 f0-0) f1-1))
|
||||
(f0-2 (- (/ f0-0 50) f1-1))
|
||||
)
|
||||
(vector+float*! arg0 arg0 arg2 (fmin 16384.0 (* 16.0 f0-2)))
|
||||
)
|
||||
@@ -1352,7 +1352,7 @@
|
||||
)
|
||||
(while (> s3-0 0)
|
||||
(+! s3-0 -1)
|
||||
(set! f28-0 (* 0.5 f28-0))
|
||||
(set! f28-0 (/ f28-0 2))
|
||||
(let ((v1-6 (cond
|
||||
((< f22-0 f20-0)
|
||||
(curve-get-pos! s1-0 s0-1 arg0)
|
||||
|
||||
+1
-5
@@ -254,7 +254,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))
|
||||
@@ -953,7 +953,3 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+4
-4
@@ -121,7 +121,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))
|
||||
@@ -776,8 +776,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)))
|
||||
@@ -832,7 +832,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)
|
||||
|
||||
+5
-5
@@ -151,7 +151,7 @@
|
||||
(set! (-> arg0 meters 0) (-> arg0 far arg2))
|
||||
(set! (-> arg0 meters 4) (-> arg0 close arg2))
|
||||
(let ((f0-3 (* 0.14285715 (- (-> arg0 meters 0) (-> arg0 meters 4)))))
|
||||
(set! (-> arg0 meters 3) (+ (-> arg0 meters 4) (* 0.5 f0-3)))
|
||||
(set! (-> arg0 meters 3) (+ (-> arg0 meters 4) (/ f0-3 2)))
|
||||
(set! (-> arg0 meters 2) (+ (-> arg0 meters 3) f0-3))
|
||||
(set! (-> arg0 meters 1) (+ (-> arg0 meters 2) (* 2.0 f0-3)))
|
||||
)
|
||||
@@ -187,16 +187,16 @@
|
||||
)
|
||||
(set! (-> arg0 data 1) (the-as uint (- f4-1)))
|
||||
(set! (-> arg0 data 5) (the-as uint (- f3-2)))
|
||||
(set! (-> arg0 data 0) (the-as uint (* 0.5 f4-1)))
|
||||
(set! (-> arg0 data 4) (the-as uint (* 0.5 f3-2)))
|
||||
(set! (-> arg0 data 0) (the-as uint (/ f4-1 2)))
|
||||
(set! (-> arg0 data 4) (the-as uint (/ f3-2 2)))
|
||||
(let ((f2-1 (* f2-0 f4-1))
|
||||
(f5-7 (* f1-0 f3-2))
|
||||
)
|
||||
(set! (-> arg0 data 9) (the-as uint f2-1))
|
||||
(set! (-> arg0 data 13) (the-as uint f5-7))
|
||||
)
|
||||
(set! (-> arg0 data 8) (the-as uint (* -0.5 f4-1 f1-0)))
|
||||
(set! (-> arg0 data 12) (the-as uint (* -0.5 f3-2 f0-0)))
|
||||
(set! (-> arg0 data 8) (the-as uint (* (/ f4-1 -2) f1-0)))
|
||||
(set! (-> arg0 data 12) (the-as uint (* (/ f3-2 -2) f0-0)))
|
||||
)
|
||||
)
|
||||
(none)
|
||||
|
||||
+4
-8
@@ -327,9 +327,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))
|
||||
@@ -355,10 +355,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)))
|
||||
)
|
||||
@@ -934,7 +934,3 @@
|
||||
)
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+2
-2
@@ -1295,7 +1295,7 @@
|
||||
)
|
||||
)
|
||||
(else
|
||||
(let ((envmap-rgba-multiplier (* 0.0078125 envmap-strength)))
|
||||
(let ((envmap-rgba-multiplier (/ envmap-strength 128)))
|
||||
(dotimes (a2-26 3)
|
||||
(set! (-> envmap-rgba-out a2-26)
|
||||
(the-as
|
||||
@@ -1428,7 +1428,7 @@
|
||||
(if (< dist-until-gone 81920.0)
|
||||
(set! fade-enable #t)
|
||||
)
|
||||
(set! fade-amount (the int (* 0.0015625 dist-until-gone)))
|
||||
(set! fade-amount (the int (/ dist-until-gone 640)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
+1
-5
@@ -222,7 +222,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))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -230,7 +230,3 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+4
-4
@@ -739,10 +739,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))))
|
||||
|
||||
+1
-1
@@ -26,7 +26,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
|
||||
|
||||
+1
-5
@@ -55,7 +55,7 @@ Without this corrector, the fogginess of the world would change as the FOV chang
|
||||
"Compute some one-time camera constants.
|
||||
These should only change when changing aspect ratio."
|
||||
(local-vars (sv-16 float))
|
||||
(set! (-> arg0 x-ratio) (tan (* 0.5 arg3)))
|
||||
(set! (-> arg0 x-ratio) (tan (/ arg3 2)))
|
||||
(if (= arg2 'aspect4x3)
|
||||
(set! (-> arg0 y-ratio) (* 0.75 (-> arg0 x-ratio)))
|
||||
(set! (-> arg0 y-ratio) (* 0.5625 (-> arg0 x-ratio)))
|
||||
@@ -640,7 +640,3 @@ Without this corrector, the fogginess of the world would change as the FOV chang
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+2
-2
@@ -428,8 +428,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)
|
||||
)
|
||||
|
||||
+4
-4
@@ -829,8 +829,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)))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -1881,11 +1881,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)))
|
||||
|
||||
+2
-2
@@ -17,7 +17,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)
|
||||
)
|
||||
@@ -269,7 +269,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)
|
||||
|
||||
+2
-6
@@ -47,7 +47,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)
|
||||
)
|
||||
@@ -344,7 +344,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))
|
||||
@@ -718,7 +718,3 @@
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+3
-7
@@ -606,8 +606,8 @@
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(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)))
|
||||
@@ -782,7 +782,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)))
|
||||
@@ -1374,7 +1374,3 @@
|
||||
v0-0
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+9
-11
@@ -3,8 +3,8 @@
|
||||
|
||||
;; definition for method 21 of type ocean
|
||||
(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)
|
||||
@@ -35,8 +35,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
|
||||
@@ -47,8 +47,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)))))
|
||||
@@ -61,14 +61,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))
|
||||
|
||||
+3
-3
@@ -205,7 +205,7 @@
|
||||
(vector--float*! (the-as vector s2-0) arg2 (-> arg3 sun1-normal) 9.0)
|
||||
(vector--float*! (the-as vector s4-0) arg2 (-> arg3 moon-normal) 9.0)
|
||||
(vector4-scale! s5-0 s5-0 (* (-> arg3 sun0-scale) f28-0))
|
||||
(vector4-madd! s5-0 s5-0 s2-0 (* 0.25 f28-0 (-> arg3 sun1-scale)))
|
||||
(vector4-madd! s5-0 s5-0 s2-0 (* (/ f28-0 4) (-> arg3 sun1-scale)))
|
||||
(vector4-madd! s5-0 s5-0 s4-0 (* (-> arg3 moon-scale) f28-0))
|
||||
(+! (-> arg0 x) (fmax (fmin (-> s5-0 x) f30-0) (- f30-0)))
|
||||
(+! (-> arg0 y) (fmax (fmin (-> s5-0 z) f30-0) (- f30-0)))
|
||||
@@ -250,7 +250,7 @@
|
||||
(vector4-scale!
|
||||
(the-as vector4 (-> s4-0 sun1-color))
|
||||
(the-as vector4 (-> this sun1-color))
|
||||
(* 0.5 (-> s4-0 sun1-scale))
|
||||
(/ (-> s4-0 sun1-scale) 2)
|
||||
)
|
||||
(vector4-scale!
|
||||
(the-as vector4 (-> s4-0 moon-color))
|
||||
@@ -435,7 +435,7 @@
|
||||
(vector4-scale!
|
||||
(the-as vector4 (-> s4-0 sun1-color))
|
||||
(the-as vector4 (-> this sun1-color))
|
||||
(* 0.5 (-> s4-0 sun1-scale))
|
||||
(/ (-> s4-0 sun1-scale) 2)
|
||||
)
|
||||
(vector4-scale!
|
||||
(the-as vector4 (-> s4-0 moon-color))
|
||||
|
||||
+3
-3
@@ -171,7 +171,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)
|
||||
@@ -191,7 +191,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)
|
||||
@@ -213,7 +213,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)
|
||||
|
||||
+2
-6
@@ -301,8 +301,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))
|
||||
)
|
||||
@@ -733,7 +733,3 @@
|
||||
(none)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+2
-2
@@ -60,7 +60,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))
|
||||
)
|
||||
)
|
||||
@@ -69,7 +69,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)
|
||||
)
|
||||
)
|
||||
|
||||
+1
-1
@@ -669,7 +669,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))))
|
||||
|
||||
+4
-14
@@ -94,9 +94,7 @@
|
||||
(* arg0
|
||||
(+ 0.33333334
|
||||
(* arg0
|
||||
(+ -0.25
|
||||
(* arg0 (+ 0.2 (* arg0 (+ -0.16666666 (* arg0 (+ 0.14285715 (* arg0 (+ -0.125 (* 0.11111111 arg0)))))))))
|
||||
)
|
||||
(+ -0.25 (* arg0 (+ 0.2 (* arg0 (+ -0.16666666 (* arg0 (+ 0.14285715 (* arg0 (+ -0.125 (/ arg0 9))))))))))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -124,9 +122,7 @@
|
||||
(* f0-5
|
||||
(+ 0.33333334
|
||||
(* f0-5
|
||||
(+ -0.25
|
||||
(* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (* 0.11111111 f0-5)))))))))
|
||||
)
|
||||
(+ -0.25 (* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (/ f0-5 9))))))))))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -159,9 +155,7 @@
|
||||
(* f0-5
|
||||
(+ 0.33333334
|
||||
(* f0-5
|
||||
(+ -0.25
|
||||
(* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (* 0.11111111 f0-5)))))))))
|
||||
)
|
||||
(+ -0.25 (* f0-5 (+ 0.2 (* f0-5 (+ -0.16666666 (* f0-5 (+ 0.14285715 (* f0-5 (+ -0.125 (/ f0-5 9))))))))))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -304,7 +298,7 @@
|
||||
0
|
||||
0
|
||||
(let* ((f0-1 (* 0.0033333334 (the float arg1)))
|
||||
(a2-0 (the int (* 0.016666668 f0-1)))
|
||||
(a2-0 (the int (/ f0-1 60)))
|
||||
(f0-2 (- f0-1 (* 60.0 (the float a2-0))))
|
||||
(a3-0 (the int f0-2))
|
||||
(f0-3 (- f0-2 (the float a3-0)))
|
||||
@@ -769,7 +763,3 @@
|
||||
- f'(arg3) = f'(arg4) = 0"
|
||||
(+ arg0 (* (- arg1 arg0) (smooth-step (/ (- arg2 arg3) (- arg4 arg3)))))
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+4
-8
@@ -20,7 +20,7 @@
|
||||
(defun quaternion-axis-angle! ((arg0 quaternion) (arg1 float) (arg2 float) (arg3 float) (arg4 float))
|
||||
"Construct a quaternion from an axis and angle. The axis should be normalized."
|
||||
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
||||
(sincos! s5-0 (* 0.5 arg4))
|
||||
(sincos! s5-0 (/ arg4 2))
|
||||
(let ((f0-2 (-> s5-0 x)))
|
||||
(set! (-> arg0 x) (* arg1 f0-2))
|
||||
(set! (-> arg0 y) (* arg2 f0-2))
|
||||
@@ -35,7 +35,7 @@
|
||||
(defun quaternion-vector-angle! ((arg0 quaternion) (arg1 vector) (arg2 float))
|
||||
"Construct a quaternion from an axis and angle. The axis should be normalized."
|
||||
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
||||
(sincos! s5-0 (* 0.5 arg2))
|
||||
(sincos! s5-0 (/ arg2 2))
|
||||
(let ((f0-2 (-> s5-0 x)))
|
||||
(set! (-> arg0 x) (* (-> arg1 x) f0-2))
|
||||
(set! (-> arg0 y) (* (-> arg1 y) f0-2))
|
||||
@@ -481,7 +481,7 @@
|
||||
(cond
|
||||
((< 0.0 f0-2)
|
||||
(let ((f0-4 (sqrtf (+ 1.0 f0-2))))
|
||||
(set! (-> arg0 w) (* 0.5 f0-4))
|
||||
(set! (-> arg0 w) (/ f0-4 2))
|
||||
(let ((f0-5 (/ 0.5 f0-4)))
|
||||
(set! (-> arg0 x) (* f0-5 (- (-> arg1 uvec z) (-> arg1 fvec y))))
|
||||
(set! (-> arg0 y) (* f0-5 (- (-> arg1 fvec x) (-> arg1 rvec z))))
|
||||
@@ -516,7 +516,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 data a2-0) (* 0.5 f0-12))
|
||||
(set! (-> arg0 data a2-0) (/ f0-12 2))
|
||||
(if (!= f0-12 0.0)
|
||||
(set! f0-12 (/ 0.5 f0-12))
|
||||
)
|
||||
@@ -1086,7 +1086,3 @@
|
||||
(vector-y-angle s5-0)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-5
@@ -55,7 +55,7 @@
|
||||
f30-0
|
||||
)
|
||||
(else
|
||||
(* 0.000000001 f30-0)
|
||||
(/ f30-0 1000000000)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -491,7 +491,3 @@
|
||||
arg0
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-1
@@ -868,7 +868,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))))
|
||||
|
||||
+3
-7
@@ -750,7 +750,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))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -1021,7 +1021,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)
|
||||
@@ -2113,7 +2113,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
|
||||
@@ -2278,7 +2278,3 @@
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+3
-7
@@ -45,7 +45,7 @@
|
||||
|
||||
;; definition for function time-to-apex
|
||||
(defun time-to-apex ((arg0 float) (arg1 float))
|
||||
(the int (/ arg0 (- (* 0.0033333334 arg1))))
|
||||
(the int (/ arg0 (- (/ arg1 300))))
|
||||
)
|
||||
|
||||
;; definition for function time-to-ground
|
||||
@@ -54,8 +54,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
|
||||
@@ -76,7 +76,3 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+3
-3
@@ -1030,13 +1030,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))
|
||||
)
|
||||
)
|
||||
|
||||
+2
-2
@@ -51,7 +51,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)
|
||||
@@ -1523,7 +1523,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))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
+2
-2
@@ -4,7 +4,7 @@
|
||||
;; definition for method 9 of type trajectory
|
||||
(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
|
||||
)
|
||||
|
||||
@@ -32,7 +32,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)
|
||||
)
|
||||
|
||||
+2
-6
@@ -160,9 +160,9 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(set! (-> this time-adjust-ratio) (* 0.2 f0-6))
|
||||
(set! (-> this time-adjust-ratio) (/ f0-6 5))
|
||||
)
|
||||
(set! (-> this seconds-per-frame) (* 0.016666668 (-> this time-adjust-ratio)))
|
||||
(set! (-> this seconds-per-frame) (/ (-> this time-adjust-ratio) 60))
|
||||
(set! (-> this frames-per-second) (if (= (-> this time-adjust-ratio) 0.0)
|
||||
0.0
|
||||
(* 60.0 (/ 1.0 (-> this time-adjust-ratio)))
|
||||
@@ -253,7 +253,3 @@
|
||||
(set! (-> this clock-ratio) (-> arg0 clock-ratio))
|
||||
this
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+2
-2
@@ -937,7 +937,7 @@
|
||||
)
|
||||
(let* ((v1-28 (-> s3-0 base))
|
||||
(a2-23
|
||||
(+ (- 1793 (the-as int (shr (-> arg0 width) 1))) (the int (+ (-> arg1 origin x) (* 0.5 (-> arg1 width)))))
|
||||
(+ (- 1793 (the-as int (shr (-> arg0 width) 1))) (the int (+ (-> arg1 origin x) (/ (-> arg1 width) 2))))
|
||||
)
|
||||
(a3-8 (+ (the int (-> arg1 origin y)) 1841))
|
||||
(a0-23 (+ a2-23 (-> arg0 width)))
|
||||
@@ -954,7 +954,7 @@
|
||||
(&+! (-> s3-0 base) 112)
|
||||
(let* ((v1-32 (-> s3-0 base))
|
||||
(a1-38
|
||||
(+ (- 1792 (the-as int (shr (-> arg0 width) 1))) (the int (+ (-> arg1 origin x) (* 0.5 (-> arg1 width)))))
|
||||
(+ (- 1792 (the-as int (shr (-> arg0 width) 1))) (the int (+ (-> arg1 origin x) (/ (-> arg1 width) 2))))
|
||||
)
|
||||
(a3-11 (+ (the int (-> arg1 origin y)) 1840))
|
||||
(a0-30 (+ a1-38 (-> arg0 width)))
|
||||
|
||||
+4
-4
@@ -660,9 +660,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
|
||||
)
|
||||
@@ -1223,7 +1223,7 @@
|
||||
;; definition for method 14 of type ambient-sound
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(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)
|
||||
)
|
||||
|
||||
+10
-10
@@ -40,8 +40,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
|
||||
@@ -54,8 +54,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
|
||||
@@ -63,7 +63,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))
|
||||
)
|
||||
)
|
||||
@@ -661,7 +661,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
|
||||
@@ -879,7 +879,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))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -1373,7 +1373,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)
|
||||
@@ -2467,7 +2467,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))
|
||||
@@ -2692,7 +2692,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
|
||||
|
||||
+8
-8
@@ -66,7 +66,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
|
||||
@@ -75,7 +75,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
|
||||
@@ -91,8 +91,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)
|
||||
)
|
||||
@@ -814,7 +814,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)
|
||||
@@ -1945,7 +1945,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)
|
||||
@@ -2350,7 +2350,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)
|
||||
@@ -2736,7 +2736,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)
|
||||
|
||||
+1
-1
@@ -149,7 +149,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)
|
||||
)
|
||||
|
||||
+5
-5
@@ -12,7 +12,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
|
||||
@@ -262,7 +262,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)))
|
||||
@@ -620,7 +620,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))
|
||||
@@ -681,7 +681,7 @@
|
||||
(set! f30-1 (+ 28.0 f30-1))
|
||||
)
|
||||
(if (logtest? (process-mask vehicle civilian) (-> gp-1 mask))
|
||||
(set! f30-1 (* 0.25 f30-1))
|
||||
(set! f30-1 (/ f30-1 4))
|
||||
)
|
||||
(set! (-> sv-1284 sv-1288 value) f30-1)
|
||||
(set! sv-1296 (+ sv-1296 f30-1))
|
||||
@@ -1126,7 +1126,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
|
||||
|
||||
+10
-22
@@ -257,13 +257,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)
|
||||
)
|
||||
|
||||
@@ -275,13 +269,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))
|
||||
)
|
||||
@@ -1862,7 +1850,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))
|
||||
@@ -2726,7 +2714,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)
|
||||
@@ -3014,7 +3002,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)))
|
||||
)
|
||||
@@ -3117,7 +3105,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)
|
||||
@@ -3234,7 +3222,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)
|
||||
)
|
||||
@@ -3387,7 +3375,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)
|
||||
@@ -3573,8 +3561,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))
|
||||
|
||||
+1
-1
@@ -4154,7 +4154,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)
|
||||
)
|
||||
|
||||
+5
-5
@@ -1572,9 +1572,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)
|
||||
)
|
||||
@@ -1718,7 +1718,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))
|
||||
@@ -1816,7 +1816,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)))
|
||||
@@ -2302,7 +2302,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)
|
||||
|
||||
+5
-5
@@ -365,7 +365,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))
|
||||
@@ -416,7 +416,7 @@
|
||||
(set! f0-16 (+ 28.0 f0-16))
|
||||
)
|
||||
(if (logtest? (process-mask vehicle civilian) (-> s5-1 mask))
|
||||
(set! f0-16 (* 0.25 f0-16))
|
||||
(set! f0-16 (/ f0-16 4))
|
||||
)
|
||||
(set! (-> sv-1076 sv-1080 value) f0-16)
|
||||
(set! sv-1088 (+ sv-1088 f0-16))
|
||||
@@ -1318,7 +1318,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*)
|
||||
@@ -2134,7 +2134,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))
|
||||
@@ -2296,7 +2296,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*)
|
||||
|
||||
+1
-1
@@ -803,7 +803,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))
|
||||
|
||||
+1
-5
@@ -157,7 +157,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))
|
||||
@@ -429,7 +429,3 @@
|
||||
(:conerot-y (degrees 0) (degrees 3600))
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-1
@@ -1312,7 +1312,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))
|
||||
|
||||
+3
-3
@@ -193,19 +193,19 @@ on impact, during touch, on exit, etc."
|
||||
|
||||
;; definition for function calc-terminal-vel
|
||||
(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)
|
||||
)
|
||||
|
||||
;; definition for function calc-terminal2-vel
|
||||
(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))))
|
||||
)
|
||||
)
|
||||
|
||||
;; definition for function calc-terminal4-vel
|
||||
(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))))
|
||||
)
|
||||
)
|
||||
|
||||
+4
-4
@@ -827,7 +827,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)
|
||||
@@ -1199,10 +1199,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)
|
||||
@@ -1785,7 +1785,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))
|
||||
)
|
||||
)
|
||||
|
||||
+3
-3
@@ -239,12 +239,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)
|
||||
@@ -1296,7 +1296,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")
|
||||
)
|
||||
|
||||
+1
-1
@@ -1440,7 +1440,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))
|
||||
|
||||
+2
-2
@@ -2104,7 +2104,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))
|
||||
@@ -2193,7 +2193,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)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
+2
-2
@@ -204,8 +204,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)
|
||||
)
|
||||
)
|
||||
|
||||
+2
-2
@@ -49,7 +49,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*!
|
||||
@@ -58,7 +58,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))))
|
||||
|
||||
+3
-8
@@ -1425,12 +1425,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))
|
||||
)
|
||||
@@ -2371,7 +2366,7 @@
|
||||
(gp-0 (new 'stack-no-clear 'vector))
|
||||
(f30-0 4096.0)
|
||||
)
|
||||
(let ((f0-4 (* 0.00013563369 (tan (* 0.5 (-> *math-camera* fov))) f30-0)))
|
||||
(let ((f0-4 (* 0.00013563369 (tan (/ (-> *math-camera* fov) 2)) f30-0)))
|
||||
(set-vector! (-> this root scale) f0-4 f0-4 f0-4 1.0)
|
||||
)
|
||||
(set! (-> gp-0 quad) (-> (camera-pos) quad))
|
||||
@@ -2889,7 +2884,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))))
|
||||
|
||||
+2
-2
@@ -193,10 +193,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))
|
||||
|
||||
+1
-1
@@ -901,7 +901,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)
|
||||
|
||||
+1
-5
@@ -298,7 +298,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))
|
||||
)
|
||||
@@ -450,7 +450,3 @@
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+5
-5
@@ -1393,7 +1393,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(* 0.125 f30-0)
|
||||
(/ f30-0 8)
|
||||
)
|
||||
)
|
||||
|
||||
@@ -2115,10 +2115,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
|
||||
@@ -2310,8 +2310,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)
|
||||
)
|
||||
|
||||
+1
-1
@@ -837,7 +837,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))
|
||||
|
||||
+3
-3
@@ -663,11 +663,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)))
|
||||
@@ -3032,7 +3032,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
|
||||
|
||||
+3
-7
@@ -326,8 +326,8 @@
|
||||
(let ((f0-12 (* 20.0 f26-0 f30-0))
|
||||
(f1-8 (* 20.0 f28-0 f30-0))
|
||||
)
|
||||
(set! (-> s2-0 x) (the float (the int (- (-> s0-0 x) (* 0.5 f0-12)))))
|
||||
(set! (-> s2-0 y) (the float (the int (- (-> s0-0 y) (* 0.5 f1-8)))))
|
||||
(set! (-> s2-0 x) (the float (the int (- (-> s0-0 x) (/ f0-12 2)))))
|
||||
(set! (-> s2-0 y) (the float (the int (- (-> s0-0 y) (/ f1-8 2)))))
|
||||
(set! (-> s3-2 x) (+ (-> s2-0 x) f0-12))
|
||||
(set! (-> s3-2 y) (+ (-> s2-0 y) f1-8))
|
||||
)
|
||||
@@ -681,7 +681,7 @@
|
||||
(let* ((f0-63 (s5-1 *temp-string* s3-1 #t 44 (bucket-id hud-draw-hud-alpha)))
|
||||
(v1-142 s3-1)
|
||||
(a0-106 (- 256 (the int (* 200.0 f30-2))))
|
||||
(a1-52 (- 208 (the int (* 0.5 f0-63))))
|
||||
(a1-52 (- 208 (the int (/ f0-63 2))))
|
||||
)
|
||||
(set! (-> v1-142 origin x) (the float a0-106))
|
||||
(set! (-> v1-142 origin y) (the float a1-52))
|
||||
@@ -957,7 +957,3 @@
|
||||
|
||||
;; failed to figure out what this is:
|
||||
(kmemclose)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-1
@@ -183,7 +183,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)))
|
||||
)
|
||||
)
|
||||
|
||||
+1
-5
@@ -1158,7 +1158,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)
|
||||
@@ -1433,7 +1433,3 @@
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+11
-11
@@ -2332,7 +2332,7 @@
|
||||
(set! (-> this target-inv-scale) 0.5)
|
||||
)
|
||||
)
|
||||
(seek! (-> this offset y) (-> this target-inv-scale) (* 0.5 f30-2))
|
||||
(seek! (-> this offset y) (-> this target-inv-scale) (/ f30-2 2))
|
||||
)
|
||||
(set! (-> this icon-inv-scale) (/ (* 32768.0 (-> this offset y)) (-> this meters-per-texel)))
|
||||
(set! (-> this map-inv-scale)
|
||||
@@ -3019,17 +3019,17 @@
|
||||
)
|
||||
)
|
||||
(set! (-> arg0 mat trans y) 0.0)
|
||||
(set! (-> arg0 corner 0 x) (* 0.25 (-> this map-inv-scale)))
|
||||
(set! (-> arg0 corner 0 z) (* 0.25 (-> this map-inv-scale)))
|
||||
(set! (-> arg0 corner 0 x) (/ (-> this map-inv-scale) 4))
|
||||
(set! (-> arg0 corner 0 z) (/ (-> this map-inv-scale) 4))
|
||||
(set! (-> arg0 corner 0 w) 1.0)
|
||||
(set! (-> arg0 corner 1 x) (* -0.25 (-> this map-inv-scale)))
|
||||
(set! (-> arg0 corner 1 z) (* 0.25 (-> this map-inv-scale)))
|
||||
(set! (-> arg0 corner 1 x) (/ (-> this map-inv-scale) -4))
|
||||
(set! (-> arg0 corner 1 z) (/ (-> this map-inv-scale) 4))
|
||||
(set! (-> arg0 corner 1 w) 1.0)
|
||||
(set! (-> arg0 corner 2 x) (* 0.25 (-> this map-inv-scale)))
|
||||
(set! (-> arg0 corner 2 z) (* -0.25 (-> this map-inv-scale)))
|
||||
(set! (-> arg0 corner 2 x) (/ (-> this map-inv-scale) 4))
|
||||
(set! (-> arg0 corner 2 z) (/ (-> this map-inv-scale) -4))
|
||||
(set! (-> arg0 corner 2 w) 1.0)
|
||||
(set! (-> arg0 corner 3 x) (* -0.25 (-> this map-inv-scale)))
|
||||
(set! (-> arg0 corner 3 z) (* -0.25 (-> this map-inv-scale)))
|
||||
(set! (-> arg0 corner 3 x) (/ (-> this map-inv-scale) -4))
|
||||
(set! (-> arg0 corner 3 z) (/ (-> this map-inv-scale) -4))
|
||||
(set! (-> arg0 corner 3 w) 1.0)
|
||||
(vector-matrix*! (the-as vector (-> arg0 corner)) (the-as vector (-> arg0 corner)) (-> arg0 mat))
|
||||
(vector-matrix*! (-> arg0 corner 1) (-> arg0 corner 1) (-> arg0 mat))
|
||||
@@ -3556,8 +3556,8 @@
|
||||
(let ((f1-16 (* 20.0 (-> *video-params* relative-x-scale) f0-52))
|
||||
(f0-53 (* 20.0 f0-52))
|
||||
)
|
||||
(set! (-> arg0 corner 0 x) (the float (the int (- (-> s3-2 x) (* 0.5 f1-16)))))
|
||||
(set! (-> arg0 corner 0 z) (the float (the int (- (-> s3-2 z) (* 0.5 f0-53)))))
|
||||
(set! (-> arg0 corner 0 x) (the float (the int (- (-> s3-2 x) (/ f1-16 2)))))
|
||||
(set! (-> arg0 corner 0 z) (the float (the int (- (-> s3-2 z) (/ f0-53 2)))))
|
||||
(set! (-> arg0 corner 1 x) (+ (-> arg0 corner 0 x) f1-16))
|
||||
(set! (-> arg0 corner 1 z) (+ (-> arg0 corner 0 z) f0-53))
|
||||
)
|
||||
|
||||
+9
-19
@@ -602,9 +602,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))
|
||||
@@ -789,7 +789,7 @@
|
||||
0
|
||||
)
|
||||
)
|
||||
(the int (* 0.5 f30-0))
|
||||
(the int (/ f30-0 2))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -1327,7 +1327,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)))
|
||||
@@ -1351,13 +1351,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))
|
||||
@@ -1916,8 +1910,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))
|
||||
)
|
||||
@@ -2336,7 +2330,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)))
|
||||
@@ -2626,7 +2620,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))
|
||||
@@ -5237,7 +5231,3 @@
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+17
-21
@@ -1136,14 +1136,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))
|
||||
@@ -1186,12 +1186,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
|
||||
@@ -1201,14 +1201,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)
|
||||
@@ -1259,9 +1259,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
|
||||
@@ -1553,9 +1553,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)
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -1877,16 +1877,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)
|
||||
@@ -1936,11 +1936,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
|
||||
@@ -4239,7 +4239,3 @@
|
||||
)
|
||||
0
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-5
@@ -471,7 +471,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)
|
||||
@@ -616,7 +616,3 @@
|
||||
0
|
||||
(none)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-5
@@ -128,7 +128,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))
|
||||
@@ -139,7 +139,3 @@
|
||||
)
|
||||
this
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+3
-7
@@ -424,7 +424,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)
|
||||
@@ -532,8 +532,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))
|
||||
@@ -614,7 +614,3 @@
|
||||
(-> this value)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-1
@@ -701,7 +701,7 @@
|
||||
(cond
|
||||
(a0-2
|
||||
(dotimes (a0-3 (the int f1-5))
|
||||
(set! f2-6 (* 0.1 f2-6))
|
||||
(set! f2-6 (/ f2-6 10))
|
||||
(nop!)
|
||||
(nop!)
|
||||
)
|
||||
|
||||
+7
-6
@@ -206,7 +206,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)
|
||||
@@ -833,7 +833,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))
|
||||
@@ -2641,9 +2641,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))
|
||||
@@ -2778,6 +2778,7 @@
|
||||
)
|
||||
|
||||
;; definition for method 52 of type bt-grunt
|
||||
;; 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)))))
|
||||
@@ -2910,10 +2911,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)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
+5
-5
@@ -1518,7 +1518,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))
|
||||
)
|
||||
@@ -2018,11 +2018,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)
|
||||
@@ -2046,10 +2046,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)
|
||||
)
|
||||
|
||||
+9
-9
@@ -1422,7 +1422,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))))
|
||||
@@ -1486,7 +1486,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!
|
||||
@@ -1622,7 +1622,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))
|
||||
@@ -2126,7 +2126,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))
|
||||
)
|
||||
@@ -2555,7 +2555,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)))
|
||||
@@ -2640,7 +2640,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))
|
||||
)
|
||||
@@ -3542,7 +3542,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))
|
||||
)
|
||||
)
|
||||
@@ -3876,7 +3876,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))
|
||||
)
|
||||
)
|
||||
@@ -5049,7 +5049,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)
|
||||
|
||||
+3
-3
@@ -648,7 +648,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)
|
||||
)
|
||||
)
|
||||
@@ -1774,7 +1774,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))))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -3518,7 +3518,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)
|
||||
|
||||
+1
-5
@@ -362,7 +362,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)
|
||||
@@ -559,7 +559,3 @@
|
||||
(crimson-guard-method-254 self)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-5
@@ -557,7 +557,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)
|
||||
@@ -1196,7 +1196,3 @@
|
||||
)
|
||||
0
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+3
-7
@@ -12,7 +12,7 @@
|
||||
;; definition for method 17 of type nav-branch
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(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)
|
||||
)
|
||||
@@ -20,7 +20,7 @@
|
||||
;; definition for method 18 of type nav-branch
|
||||
;; WARN: Return type mismatch int vs 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)
|
||||
)
|
||||
@@ -322,7 +322,7 @@
|
||||
;; definition for method 16 of type nav-node
|
||||
;; WARN: Return type mismatch int vs none.
|
||||
(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)
|
||||
)
|
||||
@@ -1462,7 +1462,3 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-5
@@ -558,7 +558,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))
|
||||
@@ -1194,7 +1194,3 @@
|
||||
(if (not (trail-graph-method-23 *trail-graph*))
|
||||
(set! *trail-graph* #f)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+4
-4
@@ -526,11 +526,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))
|
||||
@@ -540,7 +540,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))
|
||||
|
||||
+1
-1
@@ -1314,7 +1314,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))
|
||||
)
|
||||
|
||||
+1
-5
@@ -101,7 +101,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))))
|
||||
)
|
||||
@@ -153,7 +153,3 @@
|
||||
(defun spawn-guide-arrow ((arg0 guide-arrow-init-params) (arg1 process))
|
||||
(process-spawn guide-arrow arg0 :name "guide-arrow" :to arg1)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user