mirror of
https://github.com/open-goal/jak-project
synced 2026-08-19 22:12:24 -04:00
jak2 ref
This commit is contained in:
Hat Kid
+6
-6
@@ -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))
|
||||
)
|
||||
)
|
||||
@@ -2210,7 +2210,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))
|
||||
)
|
||||
)
|
||||
(f0-23
|
||||
|
||||
+7
-7
@@ -47,7 +47,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
|
||||
@@ -56,7 +56,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
|
||||
@@ -72,8 +72,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)
|
||||
)
|
||||
@@ -1678,7 +1678,7 @@
|
||||
(< 0.98 (vector-dot (-> self board unknown-vector01) (-> 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 unknown-time-frame00) (seconds 0.1))))
|
||||
(or (< (/ f28-0 5) f30-0) (not (time-elapsed? (-> self board unknown-time-frame00) (seconds 0.1))))
|
||||
)
|
||||
(vector+float*!
|
||||
(-> self control transv)
|
||||
@@ -1999,7 +1999,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)
|
||||
@@ -2404,7 +2404,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
@@ -162,7 +162,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)
|
||||
)
|
||||
|
||||
+1
-1
@@ -122,7 +122,7 @@
|
||||
(vector-normalize! s5-1 1.0)
|
||||
(launch-particles (-> *part-id-table* 224) gp-0)
|
||||
(let ((s3-0 (new 'stack-no-clear 'matrix))
|
||||
(f28-1 (* 0.000015258789 f30-0))
|
||||
(f28-1 (/ f30-0 (meters 16)))
|
||||
(f30-1 (-> *part-id-table* 226 init-specs 3 initial-valuef))
|
||||
)
|
||||
(forward-up->inv-matrix s3-0 s5-1 *up-vector*)
|
||||
|
||||
+1
-1
@@ -622,7 +622,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
-1
@@ -158,7 +158,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))
|
||||
|
||||
+3
-3
@@ -798,7 +798,7 @@
|
||||
(else
|
||||
(seek! (-> self mech jump-thrust) 0.0 (* 491520.0 (seconds-per-frame)))
|
||||
(set! (-> self mech thruster-flame-width) (* 0.021428572 (-> self mech jump-thrust)))
|
||||
(set! (-> self mech thruster-flame-length) (* 0.028571429 (-> self mech jump-thrust)))
|
||||
(set! (-> self mech thruster-flame-length) (/ (-> self mech jump-thrust) 35))
|
||||
)
|
||||
)
|
||||
)
|
||||
@@ -1323,7 +1323,7 @@
|
||||
(dotimes (s4-0 1)
|
||||
((method-of-type sphere new) (the-as symbol (+ (the-as uint s5-0) (* s4-0 16))) 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! (-> (the-as sphere (&-> s5-0 x)) quad)
|
||||
(-> self control collision-spheres 2 prim-core world-sphere quad)
|
||||
)
|
||||
@@ -2164,7 +2164,7 @@
|
||||
(* 491520.0 (seconds-per-frame))
|
||||
)
|
||||
(set! (-> self mech thruster-flame-width) (* 0.021428572 (-> self mech jump-thrust)))
|
||||
(set! (-> self mech thruster-flame-length) (* 0.028571429 (-> self mech jump-thrust)))
|
||||
(set! (-> self mech thruster-flame-length) (/ (-> self mech jump-thrust) 35))
|
||||
(let ((v1-120 (ja-group)))
|
||||
(if (and v1-120 (or (= v1-120 jakb-mech-push-ja) (= v1-120 jakb-mech-pull-ja)))
|
||||
(ja :num! (loop! f26-1))
|
||||
|
||||
+3
-3
@@ -190,19 +190,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
@@ -674,7 +674,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) (< 20480.0 (-> self control ctrl-xz-vel)))
|
||||
(ja-no-eval :group! jakb-attack-from-stance-alt-end-ja :num! (seek! (ja-aframe 29.0 0) f30-0) :frame-num 0.0)
|
||||
@@ -1031,10 +1031,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)
|
||||
@@ -1572,7 +1572,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))
|
||||
)
|
||||
)
|
||||
|
||||
+1
-1
@@ -80,7 +80,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) 7372.8 f30-0 0.0 1.0))
|
||||
(let ((v1-17 gp-0))
|
||||
|
||||
+1
-5
@@ -603,7 +603,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-flags touch-water) (-> self water flags))
|
||||
(sound-play "swim-stroke")
|
||||
)
|
||||
@@ -1943,7 +1943,3 @@
|
||||
)
|
||||
:post (-> target-grab post)
|
||||
)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+1
-1
@@ -981,7 +981,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))))
|
||||
(if (< (- (-> self fact health) (-> sv-32 damage)) 1.0)
|
||||
(set! (-> sv-32 damage) (+ -1.0 (-> self fact health)))
|
||||
)
|
||||
|
||||
+2
-2
@@ -1659,7 +1659,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-212 gp-3))
|
||||
@@ -1748,7 +1748,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
@@ -187,10 +187,10 @@
|
||||
(f24-0 (fmax -1.0 (fmin 1.0 (* 1.6 (-> self control local-slope-x)))))
|
||||
)
|
||||
(let ((f1-4 (fabs (- f0-10 f28-0))))
|
||||
(set! f28-0 (seek f28-0 f0-10 (fmax 0.05 (fmin 0.2 (* 0.25 f1-4)))))
|
||||
(set! f28-0 (seek f28-0 f0-10 (fmax 0.05 (fmin 0.2 (/ f1-4 4)))))
|
||||
)
|
||||
(let ((f0-14 (fabs (- f24-0 f26-0))))
|
||||
(set! f26-0 (seek f26-0 f24-0 (fmax 0.05 (fmin 0.2 (* 0.25 f0-14)))))
|
||||
(set! f26-0 (seek f26-0 f24-0 (fmax 0.05 (fmin 0.2 (/ f0-14 4)))))
|
||||
)
|
||||
)
|
||||
(ja :chan 3 :group! jakb-walk-down-ja :dist (-> *TARGET-bank* walk-down-cycle-dist))
|
||||
|
||||
+1
-1
@@ -862,7 +862,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
-1
@@ -293,7 +293,7 @@
|
||||
(launch-particles (-> *part-id-table* 608) 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* 923 init-specs 3 initial-valuef))
|
||||
(f28-1 (-> *part-id-table* 923 init-specs 4 initial-valuef))
|
||||
)
|
||||
|
||||
+1
-1
@@ -408,7 +408,7 @@
|
||||
)
|
||||
)
|
||||
(set! (-> this sprites 28 color w)
|
||||
(the int (* 0.00390625 (-> this fade-interp) (the float (-> this values 2 current))))
|
||||
(the int (* (/ (-> this fade-interp) 256) (the float (-> this values 2 current))))
|
||||
)
|
||||
(set-as-offset-from!
|
||||
(-> this sprites 28)
|
||||
|
||||
+5
-5
@@ -1208,7 +1208,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
(* 0.125 f30-0)
|
||||
(/ f30-0 8)
|
||||
)
|
||||
)
|
||||
|
||||
@@ -1890,10 +1890,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
|
||||
@@ -2073,8 +2073,8 @@
|
||||
(cond
|
||||
((and (< 0.0 f0-4) (focus-test? this in-air))
|
||||
(let* ((v0-1 (new 'static 'vector))
|
||||
(f0-5 (+ (* 0.0016666667 (-> v1-0 dynam gravity-length)) f0-4))
|
||||
(f0-8 (/ (* 0.5 f0-5 f0-5) (-> v1-0 dynam gravity-length)))
|
||||
(f0-5 (+ (/ (-> v1-0 dynam gravity-length) 600) f0-4))
|
||||
(f0-8 (/ (* (/ f0-5 2) f0-5) (-> v1-0 dynam gravity-length)))
|
||||
)
|
||||
(vector+float*! v0-1 (-> v1-0 trans) (-> v1-0 dynam gravity-normal) f0-8)
|
||||
)
|
||||
|
||||
+1
-1
@@ -658,7 +658,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))
|
||||
|
||||
+4
-4
@@ -564,11 +564,11 @@
|
||||
(delete-back-vel)
|
||||
(let* ((f0-4 arg5)
|
||||
(f1-2 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-5 (* f0-4 (fmax f1-2 (/ (* 0.5 f2-2 f2-2) (-> self control dynam gravity-length)))))
|
||||
(f0-5 (* f0-4 (fmax f1-2 (/ (* (/ f2-2 2) f2-2) (-> self control dynam gravity-length)))))
|
||||
(s3-1 (+ arg0 f0-5))
|
||||
)
|
||||
(let ((s2-1 (+ arg1 f0-5)))
|
||||
@@ -698,7 +698,7 @@
|
||||
(nonzero? (-> self darkjak))
|
||||
(logtest? (-> self darkjak stage) (darkjak-stage giant))
|
||||
)
|
||||
(set! (-> v1-62 y) (* 0.5 (-> v1-62 y)))
|
||||
(set! (-> v1-62 y) (/ (-> v1-62 y) 2))
|
||||
)
|
||||
(set! v0-1 (-> self control anim-collide-offset-local))
|
||||
(set! (-> v0-1 quad) (-> v1-62 quad))
|
||||
@@ -2772,7 +2772,7 @@
|
||||
)
|
||||
(else
|
||||
(let* ((f1-5 (/ f0-2 (* (-> self control dynam gravity-length) (seconds-per-frame))))
|
||||
(f0-7 (* 0.5 f1-5 (seconds-per-frame) f0-2))
|
||||
(f0-7 (* (/ f1-5 2) (seconds-per-frame) f0-2))
|
||||
)
|
||||
(let ((v1-22 (ja-group)))
|
||||
(if (and v1-22
|
||||
|
||||
Reference in New Issue
Block a user