mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-17 21:43:27 -04:00
Code Issues Packages Projects Releases Wiki Activity

[decomp] flags for continue points (#1303)

Browse Source 
* make flags!

* finish flags

* refs

* Update game.gp

* fix target decomp

* Update target.gc
This commit is contained in:
ManDude
2022-04-15 23:06:24 +01:00
committed by GitHub
parent ab063bf7b0
commit 5300a7fc2b
21 changed files with 3349 additions and 3269 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/decompiler/reference/levels/finalboss/robotboss_REF.gc
Generated Vendored
+1 -1
View File
@@ -2227,7 +2227,7 @@
(vector-! s5-0 (-> self entity extra trans) s5-0)
(dotimes (v1-53 6)
(vector+! (the-as vector (-> arg0 info v1-53)) (the-as vector (-> arg0 info v1-53)) s5-0)
(set! (-> arg0 info v1-53 dest y) (+ (-> (new 'static 'array float 1 2048.0) 0) (-> arg0 info v1-53 dest y)))
(set! (-> arg0 info v1-53 dest y) (+ 2048.0 (-> arg0 info v1-53 dest y)))
)
)
(none)
test/decompiler/reference/levels/flut_common/target-flut_REF.gc
Generated Vendored
+16 -31
View File
@@ -435,7 +435,7 @@
(('swim)
(let* ((gp-1 (-> self control last-known-safe-ground))
(s3-1 (vector-! (new 'stack-no-clear 'vector) gp-1 (-> self control trans)))
(f30-1 (fmax (-> (new 'static 'array float 1 8192.0) 0) (fmin 40960.0 (vector-xz-length s3-1))))
(f30-1 (fmax 8192.0 (fmin 40960.0 (vector-xz-length s3-1))))
)
(vector-xz-normalize! s3-1 f30-1)
(let ((s5-0 (new 'stack-no-clear 'event-message-block)))
@@ -445,15 +445,10 @@
(set! (-> s5-0 param 0) (the-as uint #f))
(let ((s4-0 (new 'static 'attack-info :mask #x882)))
(set! (-> s4-0 vector quad) (-> s3-1 quad))
(set! (-> s4-0 shove-up) (+ (lerp-scale
(the-as float 4096.0)
(-> (new 'static 'array float 1 16384.0) 0)
f30-1
(the-as float 4096.0)
(the-as float 40960.0)
)
(fmax 0.0 (- (-> gp-1 y) (-> self control trans y)))
)
(set! (-> s4-0 shove-up)
(+ (lerp-scale (the-as float 4096.0) (the-as float 16384.0) f30-1 (the-as float 4096.0) (the-as float 40960.0))
(fmax 0.0 (- (-> gp-1 y) (-> self control trans y)))
)
)
(set! (-> s4-0 angle) 'up)
(set! (-> s5-0 param 1) (the-as uint s4-0))
@@ -549,7 +544,7 @@
(set! (-> self state-flags) (logand -1025 (-> self state-flags)))
(set! (-> self control dynam gravity-max) (-> self control unknown-dynamics00 gravity-max))
(set! (-> self control dynam gravity-length) (-> self control unknown-dynamics00 gravity-length))
(target-collide-set! 'normal (-> (new 'static 'array float 1 0.0) 0))
(target-collide-set! 'normal (the-as float 0.0))
(set! (-> self control reaction) target-collision-reaction)
(set! (-> self control unknown-vector12 quad) (the-as uint128 0))
(clear-pending-settings-from-process *setting-control* self 'sound-flava)
@@ -574,7 +569,7 @@
(set! (-> self flut entity) (-> v1-11 entity))
)
)
(target-collide-set! 'flut (-> (new 'static 'array float 1 0.0) 0))
(target-collide-set! 'flut (the-as float 0.0))
(set! (-> self control transv quad) (the-as uint128 0))
(set! (-> self control unknown-float01) 0.0)
(logior! (-> self control root-prim prim-core action) (collide-action ca-14))
@@ -634,12 +629,7 @@
)
)
(send-event (ppointer->process (-> self manipy)) 'anim-mode 'loop)
(send-event
(ppointer->process (-> self manipy))
'art-joint-anim
"flut-get-on"
(-> (new 'static 'array float 1 0.0) 0)
)
(send-event (ppointer->process (-> self manipy)) 'art-joint-anim "flut-get-on" 0.0)
(send-event (ppointer->process (-> self manipy)) 'blend-shape #t)
(send-event
(ppointer->process (-> self manipy))
@@ -880,11 +870,11 @@
(the-as float (-> self control unknown-uint20))
(* 4.0 (the-as float (-> self control unknown-uint20)))
f30-1
(-> (new 'static 'array float 1 8192.0) 0)
(the-as float 8192.0)
(the-as float 21845.334)
)
)
(if (and (= (-> self control surf name) '*tar-surface*) (< (-> (new 'static 'array float 1 8192.0) 0) f30-1))
(if (and (= (-> self control surf name) '*tar-surface*) (< 8192.0 f30-1))
(set! (-> self control unknown-surface00 target-speed) (seek
(-> self control unknown-surface00 target-speed)
(the-as float 4096.0)
@@ -990,7 +980,7 @@
(while #t
(suspend)
(let ((f0-13 (lerp-scale
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as float 1.0)
(-> self control unknown-float01)
(the-as float 49152.0)
@@ -1358,7 +1348,7 @@
)
)
)
(while (< (-> (new 'static 'array float 1 8192.0) 0) (target-height-above-ground))
(while (< 8192.0 (target-height-above-ground))
(suspend)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 0 3 (seconds 0.1))
(let ((a0-13 (-> self skel root-channel 0)))
@@ -1743,12 +1733,7 @@
)
(!= (-> self control unknown-uint31) 1)
)
(target-shoved
(-> (new 'static 'array float 1 8192.0) 0)
(-> *TARGET-bank* smack-surface-height)
(the-as process #f)
target-flut-hit
)
(target-shoved (meters 2.0) (-> *TARGET-bank* smack-surface-height) (the-as process #f) target-flut-hit)
)
(if (and (logtest? (-> self water flags) 512)
(zero? (mod (- (-> *display* base-frame-counter) (-> self state-time)) 21))
@@ -1821,7 +1806,7 @@
(the-as uint 12)
)
)
(set-forward-vel (-> (new 'static 'array float 1 0.0) 0))
(set-forward-vel (the-as float 0.0))
(set! f30-0 0.0)
)
((ja-done? 0)
@@ -2364,7 +2349,7 @@
(logior! (-> self state-flags) #x8000)
(set! (-> self neck flex-blend) 0.0)
(target-timed-invulnerable-off self)
(push-setting! *setting-control* self 'process-mask 'set (-> (new 'static 'array float 1 0.0) 0) #x14a0000)
(push-setting! *setting-control* self 'process-mask 'set 0.0 #x14a0000)
(copy-settings-from-target! *setting-control*)
(set! (-> self control transv quad) (the-as uint128 0))
(cond
@@ -2579,7 +2564,7 @@
(-> target-flut-start exit)
:code
(behavior ((arg0 handle))
(set-forward-vel (-> (new 'static 'array float 1 0.0) 0))
(set-forward-vel (the-as float 0.0))
(let ((s5-0 0))
(while (zero? (logand (-> self control status) 1))
(target-flut-falling-anim-trans)
test/decompiler/reference/levels/jungleb/plant-boss_REF.gc
Generated Vendored
+147 -176
View File
File diff suppressed because it is too large Load Diff
test/decompiler/reference/levels/ogre/ogreboss_REF.gc
Generated Vendored
+91 -142
View File
@@ -213,14 +213,7 @@
(-> gp-1 ppointer)
)
)
(activate!
*camera-smush-control*
(the-as float 819.2)
37
600
(-> (new 'static 'array float 1 1.0) 0)
(the-as float 0.995)
)
(activate! *camera-smush-control* (the-as float 819.2) 37 600 (the-as float 1.0) (the-as float 0.995))
(let* ((s4-1 (get-process *default-dead-pool* manipy #x4000))
(gp-2 (when s4-1
(let ((t9-7 (method-of-type manipy activate)))
@@ -233,9 +226,9 @@
)
(quaternion-axis-angle!
(-> (the-as manipy (-> gp-2 0)) root quat)
(-> (new 'static 'array float 1 0.0) 0)
(-> (new 'static 'array float 1 1.0) 0)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as float 1.0)
(the-as float 0.0)
(* 65536.0 (rand-vu))
)
(send-event (ppointer->process gp-2) 'anim-mode 'play1)
@@ -249,15 +242,9 @@
(defun ogreboss-missile-scale-explosion ((arg0 handle))
(let* ((gp-0 (handle->process arg0))
(f0-0 (-> (the-as process-drawable gp-0) root scale x))
(f0-2 (seek f0-0 (-> (new 'static 'array float 1 0.0) 0) (-> *display* seconds-per-frame)))
(f0-2 (seek f0-0 (the-as float 0.0) (-> *display* seconds-per-frame)))
)
(set-vector!
(-> (the-as process-drawable gp-0) root scale)
f0-2
f0-2
f0-2
(-> (new 'static 'array float 1 1.0) 0)
)
(set-vector! (-> (the-as process-drawable gp-0) root scale) f0-2 f0-2 f0-2 1.0)
)
0
(none)
@@ -321,7 +308,7 @@
0.0
(set! (-> s4-1 quad) (-> (the-as target t1-0) control trans quad))
(set! (-> s4-1 y) (+ 4096.0 (-> s4-1 y)))
(set-vector! s3-0 0.0 (- 118784.0 (-> s4-1 y)) 0.0 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! s3-0 0.0 (- 118784.0 (-> s4-1 y)) 0.0 1.0)
(let ((f30-0
(fill-and-probe-using-line-sphere
*collide-cache*
@@ -340,7 +327,7 @@
(bucket-id debug-draw1)
s4-1
s3-0
(-> (new 'static 'array float 1 1.0) 0)
(meters 0.00024414062)
(the-as rgba (new 'static 'rgba :g #xff :a #x80))
)
(when (>= f30-0 0.0)
@@ -362,7 +349,7 @@
)
(else
(let ((v1-37 (new 'stack-no-clear 'vector)))
(set-vector! v1-37 0.0 -12288000.0 0.0 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! v1-37 0.0 -12288000.0 0.0 1.0)
(send-event arg0 'impulse v1-37)
)
)
@@ -496,19 +483,13 @@
(quaternion-axis-angle!
(-> self tumble-quat)
(cos f30-1)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(sin f30-1)
(the-as float 2730.6667)
)
)
(set! (-> self part) (create-launch-control (-> *part-group-id-table* 469) self))
(set-vector!
(-> self draw color-emissive)
(-> (new 'static 'array float 1 0.125) 0)
(-> (new 'static 'array float 1 0.0625) 0)
0.0
0.0
)
(set-vector! (-> self draw color-emissive) 0.125 0.0625 0.0 0.0)
(go ogreboss-missile-idle)
(none)
)
@@ -626,7 +607,7 @@
)
)
(('grow-faster)
(let ((f0-2 (-> (new 'static 'array float 1 1.0) 0)))
(let ((f0-2 1.0))
(set! (-> self grow-rate) f0-2)
f0-2
)
@@ -658,7 +639,7 @@
(set! (-> gp-0 frame-num) 0.0)
)
(set! (-> self joint enable) #t)
(set! (-> self joint blend) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> self joint blend) 1.0)
(set! (-> self state-time) (-> *display* base-frame-counter))
(while #t
(quaternion-vector-angle!
@@ -668,17 +649,17 @@
)
(quaternion*! (-> self joint transform quat) (-> self joint transform quat) (-> self tumble-quat))
(+! (-> self size) (* (-> self grow-rate) (-> *display* seconds-per-frame)))
(set! (-> self size) (fmin (-> (new 'static 'array float 1 1.0) 0) (-> self size)))
(set! (-> self size) (fmin 1.0 (-> self size)))
(let* ((f0-10 (sqrtf (-> self size)))
(f28-0 (* 0.0033333334 (the float (- (-> *display* base-frame-counter) (-> self state-time)))))
(f30-0 (* 116508.445 f28-0 (-> self speed)))
)
(set-vector! (-> self joint transform scale) f0-10 f0-10 f0-10 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! (-> self joint transform scale) f0-10 f0-10 f0-10 1.0)
(let ((gp-1 (-> self joint transform)))
(set! (-> gp-1 trans x) (* 4096.0 (sin f30-0)))
(set! (-> gp-1 trans y) (+ 122880.0 (* 12288.0 (sin (* 98304.0 f28-0)))))
(set! (-> gp-1 trans z) (* 4096.0 (cos f30-0)))
(set! (-> gp-1 trans w) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-1 trans w) 1.0)
)
)
(spawn (-> self part) (-> self node-list data 3 bone transform vector 3))
@@ -711,14 +692,7 @@
1
(the-as symbol (-> self draw origin))
)
(activate!
*camera-smush-control*
(the-as float 819.2)
37
600
(-> (new 'static 'array float 1 1.0) 0)
(the-as float 0.995)
)
(activate! *camera-smush-control* (the-as float 819.2) 37 600 (the-as float 1.0) (the-as float 0.995))
(let ((gp-1 (get-process *default-dead-pool* part-tracker #x4000)))
(when gp-1
(let ((t9-4 (method-of-type part-tracker activate)))
@@ -742,26 +716,26 @@
(set! (-> a0-3 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 43)) data 0 length) -1))
)
(set! (-> a0-3 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-3 param 1) 1.0)
(set! (-> a0-3 frame-num) 0.0)
(joint-control-channel-group! a0-3 (the-as art-joint-anim (-> self draw art-group data 43)) num-func-seek!)
)
(until (ja-done? 0)
(set! (-> self joint blend)
(seek (-> self joint blend) (-> (new 'static 'array float 1 0.0) 0) (* 5.0 (-> *display* seconds-per-frame)))
(seek (-> self joint blend) (the-as float 0.0) (* 5.0 (-> *display* seconds-per-frame)))
)
(let* ((f1-1 (/ (- (ja-frame-num 0) (ja-aframe (the-as float 54.0) 0))
(- (the float (ja-num-frames 0)) (ja-aframe (the-as float 54.0) 0))
)
)
(f0-13 (fmax 0.0 (fmin (-> (new 'static 'array float 1 1.0) 0) f1-1)))
(f0-13 (fmax 0.0 (fmin 1.0 f1-1)))
)
(vector-lerp! (-> self root-override trans) (-> self src-pos) (-> self orig-pos) f0-13)
)
(suspend)
(let ((a0-10 (-> self skel root-channel 0)))
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
(set! (-> a0-10 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-10 param 1) 1.0)
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -781,19 +755,19 @@
(set! (-> a0-3 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 42)) data 0 length) -1))
)
(set! (-> a0-3 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-3 param 1) 1.0)
(set! (-> a0-3 frame-num) 0.0)
(joint-control-channel-group! a0-3 (the-as art-joint-anim (-> self draw art-group data 42)) num-func-seek!)
)
(until (ja-done? 0)
(set! (-> self joint blend)
(seek (-> self joint blend) (-> (new 'static 'array float 1 0.0) 0) (* 5.0 (-> *display* seconds-per-frame)))
(seek (-> self joint blend) (the-as float 0.0) (* 5.0 (-> *display* seconds-per-frame)))
)
(let* ((f1-1 (/ (- (ja-frame-num 0) (ja-aframe (the-as float 32.0) 0))
(- (the float (ja-num-frames 0)) (ja-aframe (the-as float 32.0) 0))
)
)
(f0-13 (fmax 0.0 (fmin (-> (new 'static 'array float 1 1.0) 0) f1-1)))
(f0-13 (fmax 0.0 (fmin 1.0 f1-1)))
)
(vector-lerp! (-> self root-override trans) (-> self src-pos) (-> self orig-pos) f0-13)
)
@@ -801,7 +775,7 @@
(suspend)
(let ((a0-10 (-> self skel root-channel 0)))
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
(set! (-> a0-10 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-10 param 1) 1.0)
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -859,7 +833,7 @@
(let ((gp-0 (-> self skel root-channel 0)))
(set! (-> gp-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 44)))
(set! (-> gp-0 param 0) (ja-aframe (the-as float 100.0) 0))
(set! (-> gp-0 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-0 param 1) 1.0)
(set! (-> gp-0 frame-num) 0.0)
(joint-control-channel-group! gp-0 (the-as art-joint-anim (-> self draw art-group data 44)) num-func-seek!)
)
@@ -873,7 +847,7 @@
(suspend)
(let ((gp-2 (-> self skel root-channel 0)))
(set! (-> gp-2 param 0) (ja-aframe (the-as float 100.0) 0))
(set! (-> gp-2 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-2 param 1) 1.0)
(joint-control-channel-group-eval! gp-2 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -898,7 +872,7 @@
(let ((gp-0 (-> self skel root-channel 0)))
(set! (-> gp-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 44)))
(set! (-> gp-0 param 0) (ja-aframe (the-as float 162.0) 0))
(set! (-> gp-0 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-0 param 1) 1.0)
(set! (-> gp-0 frame-num) (ja-aframe (the-as float 100.0) 0))
(joint-control-channel-group! gp-0 (the-as art-joint-anim (-> self draw art-group data 44)) num-func-seek!)
)
@@ -906,7 +880,7 @@
(suspend)
(let ((gp-1 (-> self skel root-channel 0)))
(set! (-> gp-1 param 0) (ja-aframe (the-as float 162.0) 0))
(set! (-> gp-1 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-1 param 1) 1.0)
(joint-control-channel-group-eval! gp-1 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -958,7 +932,7 @@
(set! (-> gp-4 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 44)) data 0 length) -1))
)
(set! (-> gp-4 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-4 param 1) 1.0)
(set! (-> gp-4 frame-num) (ja-aframe (the-as float 162.0) 0))
(joint-control-channel-group! gp-4 (the-as art-joint-anim (-> self draw art-group data 44)) num-func-seek!)
)
@@ -966,7 +940,7 @@
(suspend)
(let ((a0-12 (-> self skel root-channel 0)))
(set! (-> a0-12 param 0) (the float (+ (-> a0-12 frame-group data 0 length) -1)))
(set! (-> a0-12 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-12 param 1) 1.0)
(joint-control-channel-group-eval! a0-12 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -1046,21 +1020,15 @@
(quaternion-axis-angle!
(-> self tumble-quat)
(cos f30-1)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(sin f30-1)
(the-as float 2730.6667)
)
)
(set! (-> self joint) (new 'process 'joint-mod-blend-local self 3 #f))
(set! (-> self part) (create-launch-control (-> *part-group-id-table* 468) self))
(set-vector!
(-> self draw color-emissive)
(-> (new 'static 'array float 1 0.125) 0)
(-> (new 'static 'array float 1 0.0625) 0)
0.0
0.0
)
(set! (-> self speed) (-> (new 'static 'array float 1 1.0) 0))
(set-vector! (-> self draw color-emissive) 0.125 0.0625 0.0 0.0)
(set! (-> self speed) 1.0)
(set! (-> self size) 0.0)
(set! (-> self grow-rate) (/ 300.0 arg1))
(set! (-> self sound-id) (new-sound-id))
@@ -1123,7 +1091,7 @@
:code
(behavior ()
(set! (-> self state-time) (-> *display* base-frame-counter))
(let ((f30-0 (-> (new 'static 'array float 1 2.0) 0)))
(let ((f30-0 2.0))
(let ((gp-0 (-> self skel root-channel 0)))
(set! (-> gp-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 38)))
(set! (-> gp-0 param 0) (ja-aframe (the-as float 40.0) 0))
@@ -1133,9 +1101,7 @@
)
(until (ja-done? 0)
(set! (-> self side-pos)
(* (fmin (-> (new 'static 'array float 1 1.0) 0) (/ (ja-frame-num 0) (ja-aframe (the-as float 40.0) 0)))
(-> self dest-pos)
)
(* (fmin 1.0 (/ (ja-frame-num 0) (ja-aframe (the-as float 40.0) 0))) (-> self dest-pos))
)
(suspend)
(let ((gp-1 (-> self skel root-channel 0)))
@@ -1156,7 +1122,7 @@
(until (ja-done? 0)
(if (>= (ja-frame-num 0) (ja-aframe (the-as float 235.0) 0))
(set! (-> self side-pos)
(seek (-> self side-pos) (-> (new 'static 'array float 1 0.0) 0) (* 20480.0 (-> *display* seconds-per-frame)))
(seek (-> self side-pos) (the-as float 0.0) (* 20480.0 (-> *display* seconds-per-frame)))
)
)
(suspend)
@@ -1180,7 +1146,7 @@
(the-as float 49152.0)
(collide-kind background)
(the-as process-drawable #f)
(-> (new 'static 'array float 1 0.0) 0)
(the-as float 0.0)
(the-as float 409600.0)
)
(none)
@@ -1219,7 +1185,7 @@
(set! (-> self side-pos) 0.0)
(set! (-> self dest-pos) (the-as float (cond
((zero? arg0)
(-> (new 'static 'array float 1 0.0) 0)
0.0
)
((= arg0 1)
-20480.0
@@ -1228,7 +1194,7 @@
20480.0
)
(else
(-> (new 'static 'array float 1 0.0) 0)
0.0
)
)
)
@@ -1237,13 +1203,7 @@
(initialize-skeleton self *ogreboss-bounce-boulder-sg* '())
(logclear! (-> self mask) (process-mask actor-pause))
(set! (-> self draw origin-joint-index) (the-as uint 3))
(set-vector!
(-> self draw color-emissive)
(-> (new 'static 'array float 1 0.125) 0)
(-> (new 'static 'array float 1 0.0625) 0)
0.0
0.0
)
(set-vector! (-> self draw color-emissive) 0.125 0.0625 0.0 0.0)
(go ogreboss-bounce-boulder-idle)
(none)
)
@@ -1383,7 +1343,7 @@
(let ((gp-0 (-> self skel root-channel 0)))
(set! (-> gp-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 2)))
(set! (-> gp-0 param 0) (ja-aframe (the-as float 140.0) 0))
(set! (-> gp-0 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-0 param 1) 1.0)
(set! (-> gp-0 frame-num) 0.0)
(joint-control-channel-group! gp-0 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
)
@@ -1391,7 +1351,7 @@
(suspend)
(let ((gp-1 (-> self skel root-channel 0)))
(set! (-> gp-1 param 0) (ja-aframe (the-as float 140.0) 0))
(set! (-> gp-1 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-1 param 1) 1.0)
(joint-control-channel-group-eval! gp-1 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -1403,7 +1363,7 @@
(let ((gp-3 (-> self skel root-channel 0)))
(set! (-> gp-3 frame-group) (the-as art-joint-anim (-> self draw art-group data 2)))
(set! (-> gp-3 param 0) (ja-aframe (the-as float 168.0) 0))
(set! (-> gp-3 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-3 param 1) 1.0)
(set! (-> gp-3 frame-num) (ja-aframe (the-as float 140.0) 0))
(joint-control-channel-group! gp-3 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
)
@@ -1411,7 +1371,7 @@
(suspend)
(let ((gp-4 (-> self skel root-channel 0)))
(set! (-> gp-4 param 0) (ja-aframe (the-as float 168.0) 0))
(set! (-> gp-4 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-4 param 1) 1.0)
(joint-control-channel-group-eval! gp-4 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -1425,7 +1385,7 @@
(set! (-> gp-6 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) data 0 length) -1))
)
(set! (-> gp-6 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> gp-6 param 1) 1.0)
(set! (-> gp-6 frame-num) (ja-aframe (the-as float 168.0) 0))
(joint-control-channel-group! gp-6 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
)
@@ -1433,7 +1393,7 @@
(suspend)
(let ((a0-15 (-> self skel root-channel 0)))
(set! (-> a0-15 param 0) (the float (+ (-> a0-15 frame-group data 0 length) -1)))
(set! (-> a0-15 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-15 param 1) 1.0)
(joint-control-channel-group-eval! a0-15 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -1444,7 +1404,7 @@
(set! (-> a0-18 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
)
(set! (-> a0-18 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-18 param 1) 1.0)
(set! (-> a0-18 frame-num) 0.0)
(joint-control-channel-group! a0-18 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
)
@@ -1452,7 +1412,7 @@
(suspend)
(let ((a0-19 (-> self skel root-channel 0)))
(set! (-> a0-19 param 0) (the float (+ (-> a0-19 frame-group data 0 length) -1)))
(set! (-> a0-19 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-19 param 1) 1.0)
(joint-control-channel-group-eval! a0-19 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -1464,7 +1424,7 @@
(set! (-> a0-21 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
)
(set! (-> a0-21 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-21 param 1) 1.0)
(set! (-> a0-21 frame-num) 0.0)
(joint-control-channel-group! a0-21 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
)
@@ -1472,7 +1432,7 @@
(suspend)
(let ((a0-22 (-> self skel root-channel 0)))
(set! (-> a0-22 param 0) (the float (+ (-> a0-22 frame-group data 0 length) -1)))
(set! (-> a0-22 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-22 param 1) 1.0)
(joint-control-channel-group-eval! a0-22 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -1566,7 +1526,7 @@
(set! (-> a0-15 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 24)) data 0 length) -1))
)
(set! (-> a0-15 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-15 param 1) 1.0)
(set! (-> a0-15 frame-num) 0.0)
(joint-control-channel-group! a0-15 (the-as art-joint-anim (-> self draw art-group data 24)) num-func-seek!)
)
@@ -1574,7 +1534,7 @@
(suspend)
(let ((a0-16 (-> self skel root-channel 0)))
(set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
(set! (-> a0-16 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-16 param 1) 1.0)
(joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -1583,7 +1543,7 @@
(send-event *target* 'continue (get-continue-by-name *game-info* "ogre-start"))
(ogreboss-inc-try-count)
)
(set-setting! *setting-control* self 'music 'ogreboss (-> (new 'static 'array float 1 0.0) 0) 0)
(set-setting! *setting-control* self 'music 'ogreboss (the-as float 0.0) 0)
(go ogreboss-wait-for-player)
(none)
)
@@ -1664,12 +1624,7 @@
(let ((s5-0 (new 'stack-no-clear 'vector)))
(set! (-> gp-0 src) (-> self node-list data 52 bone transform vector 3))
(set! (-> gp-0 duration)
(the-as
time-frame
(the int
(* 300.0 (+ 1.25 (* -0.25 (-> self level)) (/ (-> (new 'static 'array float 1 0.5) 0) (-> self difficulty))))
)
)
(the-as time-frame (the int (* 300.0 (+ 1.25 (* -0.25 (-> self level)) (/ 0.5 (-> self difficulty))))))
)
(set! (-> gp-0 pickup-type) (the-as pickup-type arg0))
(set! (-> gp-0 blast-radius) 32768.0)
@@ -1963,7 +1918,7 @@
(behavior ()
(set! (-> self mask) (logior (process-mask enemy) (-> self mask)))
(ogreboss-set-stage1-camera)
(ogreboss-move-near (seconds 3) (-> (new 'static 'array float 1 1.0) 0))
(ogreboss-move-near (seconds 3) (the-as float 1.0))
(cond
((= (if (> (-> self skel active-channels) 0)
(-> self skel root-channel 0 frame-group)
@@ -1976,7 +1931,7 @@
(set! (-> a0-7 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) data 0 length) -1))
)
(set! (-> a0-7 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-7 param 1) 1.0)
(set! (-> a0-7 frame-num) 0.0)
(joint-control-channel-group! a0-7 (the-as art-joint-anim (-> self draw art-group data 2)) num-func-seek!)
)
@@ -1984,7 +1939,7 @@
(suspend)
(let ((a0-8 (-> self skel root-channel 0)))
(set! (-> a0-8 param 0) (the float (+ (-> a0-8 frame-group data 0 length) -1)))
(set! (-> a0-8 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-8 param 1) 1.0)
(joint-control-channel-group-eval! a0-8 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -1996,7 +1951,7 @@
(set! (-> a0-11 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) data 0 length) -1))
)
(set! (-> a0-11 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-11 param 1) 1.0)
(set! (-> a0-11 frame-num) 0.0)
(joint-control-channel-group! a0-11 (the-as art-joint-anim (-> self draw art-group data 5)) num-func-seek!)
)
@@ -2004,14 +1959,14 @@
(suspend)
(let ((a0-12 (-> self skel root-channel 0)))
(set! (-> a0-12 param 0) (the float (+ (-> a0-12 frame-group data 0 length) -1)))
(set! (-> a0-12 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-12 param 1) 1.0)
(joint-control-channel-group-eval! a0-12 (the-as art-joint-anim #f) num-func-seek!)
)
)
)
)
(let* ((gp-0 (the int (* (-> self difficulty) (+ 8.0 (* 4.0 (-> self level))))))
(f0-17 (-> (new 'static 'array float 1 1.0) 0))
(f0-17 1.0)
(f1-2 0.15)
(f2-2 (-> self difficulty))
(f30-0 (+ f0-17 (* f1-2 (* f2-2 f2-2) (-> self level))))
@@ -2038,10 +1993,10 @@
(let ((s5-0 0))
(let ((f28-0 0.0))
(cond
((>= (-> (new 'static 'array float 1 1.0) 0) (-> *target* fact-info-target health))
((>= 1.0 (-> *target* fact-info-target health))
(set! f28-0 0.1)
)
((>= (-> (new 'static 'array float 1 2.0) 0) (-> *target* fact-info-target health))
((>= 2.0 (-> *target* fact-info-target health))
(set! f28-0 0.05)
)
)
@@ -2050,7 +2005,7 @@
(* 0.0 f28-0)
)
((< (-> self try-count) (the-as uint 10))
(* (-> (new 'static 'array float 1 0.5) 0) f28-0)
(* 0.5 f28-0)
)
(else
(empty)
@@ -2102,14 +2057,14 @@
)
)
)
(ogreboss-move-far (seconds 2) (-> (new 'static 'array float 1 1.0) 0))
(ogreboss-move-far (seconds 2) (the-as float 1.0))
(ja-channel-push! 1 30)
(let ((a0-28 (-> self skel root-channel 0)))
(set! (-> a0-28 frame-group) (the-as art-joint-anim (-> self draw art-group data 16)))
(set! (-> a0-28 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 16)) data 0 length) -1))
)
(set! (-> a0-28 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-28 param 1) 1.0)
(set! (-> a0-28 frame-num) 0.0)
(joint-control-channel-group! a0-28 (the-as art-joint-anim (-> self draw art-group data 16)) num-func-seek!)
)
@@ -2117,7 +2072,7 @@
(suspend)
(let ((a0-29 (-> self skel root-channel 0)))
(set! (-> a0-29 param 0) (the float (+ (-> a0-29 frame-group data 0 length) -1)))
(set! (-> a0-29 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-29 param 1) 1.0)
(joint-control-channel-group-eval! a0-29 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -2193,11 +2148,8 @@
)
(let ((f30-0 (the float (- (-> *display* base-frame-counter) (-> self hit-time)))))
(when (and (> (-> self hit-count) 0) (>= 45.0 f30-0))
(set! f0-0 (+ (ja-aframe (-> (new 'static 'array float 1 0.0) 0) 1)
(* 0.022222223
f30-0
(- (ja-aframe (the-as float 8.0) 1) (ja-aframe (-> (new 'static 'array float 1 0.0) 0) 1))
)
(set! f0-0 (+ (ja-aframe (the-as float 0.0) 1)
(* 0.022222223 f30-0 (- (ja-aframe (the-as float 8.0) 1) (ja-aframe (the-as float 0.0) 1)))
)
)
(set! f1-0 (cond
@@ -2347,7 +2299,7 @@
:code
(behavior ()
(ogreboss-set-stage2-camera)
(ogreboss-move-far (seconds 0.1) (-> (new 'static 'array float 1 2.0) 0))
(ogreboss-move-far (seconds 0.1) (the-as float 2.0))
(let ((f30-0 (* 0.75 (-> self difficulty))))
(let ((gp-0 #f))
(ja-channel-push! 1 60)
@@ -2473,7 +2425,7 @@
:trans
(behavior ()
(let ((v1-1 (handle->process (-> self boulder))))
(if (and v1-1 (>= (-> (the-as ogreboss-super-boulder v1-1) size) (-> (new 'static 'array float 1 1.0) 0)))
(if (and v1-1 (>= (-> (the-as ogreboss-super-boulder v1-1) size) 1.0))
(go ogreboss-stage3-throw)
)
)
@@ -2489,11 +2441,8 @@
:code
(behavior ()
(set! (-> self shuffle-pos) 0.0)
(let ((f30-0 (+ (-> (new 'static 'array float 1 1.0) 0)
(* (-> (new 'static 'array float 1 0.25) 0) (-> self difficulty) (-> self level))
)
)
(gp-0 (if (rand-vu-percent? (-> (new 'static 'array float 1 0.5) 0))
(let ((f30-0 (+ 1.0 (* 0.25 (-> self difficulty) (-> self level))))
(gp-0 (if (rand-vu-percent? (the-as float 0.5))
0
1
)
@@ -2688,7 +2637,7 @@
(set! (-> a0-5 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 9)) data 0 length) -1))
)
(set! (-> a0-5 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-5 param 1) 1.0)
(set! (-> a0-5 frame-num) 0.0)
(joint-control-channel-group! a0-5 (the-as art-joint-anim (-> self draw art-group data 9)) num-func-seek!)
)
@@ -2696,7 +2645,7 @@
(suspend)
(let ((a0-6 (-> self skel root-channel 0)))
(set! (-> a0-6 param 0) (the float (+ (-> a0-6 frame-group data 0 length) -1)))
(set! (-> a0-6 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-6 param 1) 1.0)
(joint-control-channel-group-eval! a0-6 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -2706,7 +2655,7 @@
(set! (-> a0-9 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 16)) data 0 length) -1))
)
(set! (-> a0-9 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-9 param 1) 1.0)
(set! (-> a0-9 frame-num) 0.0)
(joint-control-channel-group! a0-9 (the-as art-joint-anim (-> self draw art-group data 16)) num-func-seek!)
)
@@ -2714,11 +2663,11 @@
(suspend)
(let ((a0-10 (-> self skel root-channel 0)))
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
(set! (-> a0-10 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-10 param 1) 1.0)
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
)
)
(ogreboss-submerge (seconds 1) (-> (new 'static 'array float 1 1.0) 0))
(ogreboss-submerge (seconds 1) (the-as float 1.0))
(while (handle->process (-> self boulder))
(suspend)
)
@@ -2734,8 +2683,8 @@
(defstate ogreboss-stage3-hit (ogreboss)
:code
(behavior ()
(set! (-> self level) (+ (-> (new 'static 'array float 1 1.0) 0) (-> self level)))
(if (< (-> (new 'static 'array float 1 2.0) 0) (-> self level))
(set! (-> self level) (+ 1.0 (-> self level)))
(if (< 2.0 (-> self level))
(go ogreboss-die)
)
(send-event (handle->process (-> self boulder)) 'go-hit)
@@ -2745,7 +2694,7 @@
(set! (-> a0-5 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 12)) data 0 length) -1))
)
(set! (-> a0-5 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-5 param 1) 1.0)
(set! (-> a0-5 frame-num) 0.0)
(joint-control-channel-group! a0-5 (the-as art-joint-anim (-> self draw art-group data 12)) num-func-seek!)
)
@@ -2753,7 +2702,7 @@
(suspend)
(let ((a0-6 (-> self skel root-channel 0)))
(set! (-> a0-6 param 0) (the float (+ (-> a0-6 frame-group data 0 length) -1)))
(set! (-> a0-6 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-6 param 1) 1.0)
(joint-control-channel-group-eval! a0-6 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -2808,7 +2757,7 @@
(set! (-> a0-5 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 12)) data 0 length) -1))
)
(set! (-> a0-5 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-5 param 1) 1.0)
(set! (-> a0-5 frame-num) 0.0)
(joint-control-channel-group! a0-5 (the-as art-joint-anim (-> self draw art-group data 12)) num-func-seek!)
)
@@ -2817,7 +2766,7 @@
(suspend)
(let ((a0-6 (-> self skel root-channel 0)))
(set! (-> a0-6 param 0) (the float (+ (-> a0-6 frame-group data 0 length) -1)))
(set! (-> a0-6 param 1) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> a0-6 param 1) 1.0)
(joint-control-channel-group-eval! a0-6 (the-as art-joint-anim #f) num-func-seek!)
)
)
@@ -2898,9 +2847,9 @@
)
(set! (-> self target-count) gp-1)
)
(set-vector! (-> self target-offset-array 0) 0.0 16384.0 0.0 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! (-> self target-offset-array-2) 0.0 16384.0 0.0 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! (-> self target-offset-array-3) 0.0 16384.0 0.0 (-> (new 'static 'array float 1 1.0) 0))
(set-vector! (-> self target-offset-array 0) 0.0 16384.0 0.0 1.0)
(set-vector! (-> self target-offset-array-2) 0.0 16384.0 0.0 1.0)
(set-vector! (-> self target-offset-array-3) 0.0 16384.0 0.0 1.0)
(set! (-> self target-blast-radius-array 0) 24576.0)
(set! (-> self target-blast-radius-array 1) 24576.0)
(set! (-> self target-blast-radius-array 2) 24576.0)
@@ -2987,7 +2936,7 @@
(set! (-> obj try-count) (-> obj entity extra perm user-uint8 0))
(cond
((< (-> obj try-count) (the-as uint 5))
(set! (-> obj difficulty) (-> (new 'static 'array float 1 1.0) 0))
(set! (-> obj difficulty) 1.0)
)
((< (-> obj try-count) (the-as uint 10))
(set! (-> obj difficulty) 0.83334)
@@ -2996,7 +2945,7 @@
(set! (-> obj difficulty) 0.66667)
)
(else
(set! (-> obj difficulty) (-> (new 'static 'array float 1 0.5) 0))
(set! (-> obj difficulty) 0.5)
)
)
(set! (-> obj lava) (entity-actor-lookup (-> obj entity) 'water-actor 0))
@@ -3009,8 +2958,8 @@
(set! (-> obj z-plane w) (- (vector-dot (-> obj z-plane) (-> obj root-override trans))))
(vector-x-quaternion! (-> obj side-dir) (-> obj root-override quat))
(set! (-> obj far-pos quad) (-> obj root-override trans quad))
(let ((f0-38 (-> (new 'static 'array float 1 1.0) 0)))
(set-vector! (-> obj root-override scale) f0-38 f0-38 f0-38 (-> (new 'static 'array float 1 1.0) 0))
(let ((f0-38 1.0))
(set-vector! (-> obj root-override scale) f0-38 f0-38 f0-38 1.0)
)
(vector+*! (-> obj near-pos) (-> obj far-pos) (-> obj z-plane) (the-as float 348160.0))
(set! (-> obj at-near-spot) #t)