Archive/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project.git synced 2024-10-20 11:26:18 -04:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

decomp: finish joint-exploder and balloonlurker (#1043)

Browse source 
* close on `joint-exploder`

* decomp: finish `joint-exploder`

* decomp: finish `balloonlurker`

* address issues

* update ref tests
This commit is contained in:
Tyler Wilding 2022-01-02 23:18:51 -05:00 committed by GitHub
parent b999422305
commit 823dc135bc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
10 changed files with 4089 additions and 81 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
decompiler/config/all-types.gc
View file

@ -12448,7 +12448,7 @@
(dummy-15 (_type_ collide-using-spheres-params) none 15) (dummy-15 (_type_ collide-using-spheres-params) none 15)
(dummy-16 (_type_ vector float uint process-drawable uint) none 16) (dummy-16 (_type_ vector float uint process-drawable uint) none 16)
(initialize (_type_) none 17) (initialize (_type_) none 17)
(dummy-18 (_type_ vector vector float int collide-mesh-cache-tri int) float 18) (dummy-18 (_type_ vector vector float int collide-tri-result int) float 18)
(probe-using-spheres (_type_) none 19) (probe-using-spheres (_type_) none 19)
(dummy-20 (_type_ vector float uint collide-tri-result uint) float 20) (dummy-20 (_type_ vector float uint collide-tri-result uint) float 20)
(dummy-21 (_type_ (function bsp-header int collide-list none) (function collide-cache none)) none 21) ;; second functiom is method 28 (dummy-21 (_type_ (function bsp-header int collide-list none) (function collide-cache none)) none 21) ;; second functiom is method 28
@ -23209,7 +23209,7 @@
) )
(deftype joint-exploder-static-params (basic) (deftype joint-exploder-static-params (basic)
((joints array :offset-assert 4) ;; an array of...what? ((joints (array joint-exploder-static-joint-params) :offset-assert 4)
) )
:method-count-assert 9 :method-count-assert 9
:size-assert #x8 :size-assert #x8
@ -23233,13 +23233,13 @@
(deftype joint-exploder-joints (basic) (deftype joint-exploder-joints (basic)
((num-joints int32 :offset-assert 4) ((num-joints int32 :offset-assert 4)
(joint joint-exploder-joint :dynamic :offset 16) (joint joint-exploder-joint :dynamic :inline :offset 16)
) )
:method-count-assert 9 :method-count-assert 9
:size-assert #x10 :size-assert #x10
:flag-assert #x900000010 :flag-assert #x900000010
(:methods (:methods
(new (symbol _type_ int) _type_ 0)) (new (symbol type joint-exploder-static-params) _type_ 0))
) )
(deftype joint-exploder-list (structure) (deftype joint-exploder-list (structure)
@ -23254,7 +23254,8 @@
) )
(deftype joint-exploder (process-drawable) (deftype joint-exploder (process-drawable)
((die-if-below-y float :offset-assert 176) ((parent-override (pointer process-drawable) :score 100 :offset 12)
(die-if-below-y float :offset-assert 176)
(die-if-beyond-xz-dist-sqrd float :offset-assert 180) (die-if-beyond-xz-dist-sqrd float :offset-assert 180)
(joints joint-exploder-joints :offset-assert 184) (joints joint-exploder-joints :offset-assert 184)
(static-params joint-exploder-static-params :offset-assert 188) (static-params joint-exploder-static-params :offset-assert 188)
@ -23268,22 +23269,22 @@
:heap-base #x1a0 :heap-base #x1a0
:flag-assert #x1d01a00210 :flag-assert #x1d01a00210
(:methods (:methods
(dummy-20 (_type_) none 20) (TODO-RENAME-20 (_type_ joint-exploder-list int) int 20)
(dummy-21 (_type_) none 21) (TODO-RENAME-21 (_type_ joint-exploder-list joint-exploder-joint) none 21)
(dummy-22 () none 22) (TODO-RENAME-22 (_type_ joint-exploder-list) symbol 22)
(dummy-23 () none 23) (TODO-RENAME-23 (_type_) symbol 23)
(dummy-24 (_type_) none 24) (TODO-RENAME-24 (_type_ joint-exploder-list int) int 24)
(dummy-25 () none 25) (TODO-RENAME-25 (_type_ joint-exploder-list) symbol 25)
(dummy-26 (_type_) none 26) (TODO-RENAME-26 (_type_ joint-exploder-list int) int 26)
(dummy-27 (_type_ joint-exploder-list) none 27) (TODO-RENAME-27 (_type_ joint-exploder-list int) joint-exploder-list 27)
(dummy-28 (_type_) none 28) (TODO-RENAME-28 (_type_ joint-exploder-list) none 28)
) )
) )
;; - Functions ;; - Functions
(define-extern joint-exploder-joint-callback (function joint-exploder none)) (define-extern joint-exploder-joint-callback (function joint-exploder none))
(define-extern joint-exploder-init-by-other (function skeleton-group int joint-exploder-static-params joint-exploder-tuning none :behavior joint-exploder)) (define-extern joint-exploder-init-by-other (function skeleton-group int joint-exploder-static-params joint-exploder-static-params none :behavior joint-exploder))
;; - Unknowns ;; - Unknowns
@ -30617,8 +30618,9 @@
(deftype balloonlurker (rigid-body-platform) (deftype balloonlurker (rigid-body-platform)
((explosion-force-position vector :inline :offset-assert 736) ((explosion-force-position vector :inline :offset-assert 736)
(explosion-force vector :inline :offset-assert 752) (explosion-force vector :inline :offset-assert 752)
(explosion basic :offset-assert 768) ;; ?? (explosion symbol :offset-assert 768)
(explosion-joint-index uint16 2 :offset-assert 772) (explosion-joint-index uint16 2 :offset-assert 772)
(explosion-joint-index-bytes int8 4 :offset 772) ;; added overlay
(vulnerable symbol :offset-assert 776) (vulnerable symbol :offset-assert 776)
(water-y float :offset-assert 780) (water-y float :offset-assert 780)
(propeller joint-mod-set-local :offset-assert 784) (propeller joint-mod-set-local :offset-assert 784)
@ -30642,6 +30644,10 @@
:size-assert #x369 :size-assert #x369
:heap-base #x300 :heap-base #x300
:flag-assert #x2303000369 :flag-assert #x2303000369
(:states
balloonlurker-patrol
balloonlurker-die
(balloonlurker-mine-explode int))
) )
(deftype balloonlurker-pilot (process-drawable) (deftype balloonlurker-pilot (process-drawable)
@ -30655,6 +30661,9 @@
(dummy-20 (_type_) none 20) (dummy-20 (_type_) none 20)
(dummy-21 (_type_) none 21) (dummy-21 (_type_) none 21)
) )
(:states
balloonlurker-pilot-idle
balloonlurker-pilot-die)
) )
;; - Functions ;; - Functions
@ -30671,16 +30680,11 @@
;; - Unknowns ;; - Unknowns
(define-extern balloonlurker-patrol (state balloonlurker)) ;; unknown type
(define-extern *balloonlurker-sg* skeleton-group) (define-extern *balloonlurker-sg* skeleton-group)
(define-extern *balloonlurker-constants* rigid-body-platform-constants) ;; unknown type (define-extern *balloonlurker-constants* rigid-body-platform-constants) ;; unknown type
(define-extern balloonlurker-pilot-idle (state balloonlurker-pilot)) ;; unknown type
(define-extern *balloonlurker-pilot-sg* skeleton-group) (define-extern *balloonlurker-pilot-sg* skeleton-group)
(define-extern balloonlurker-pilot-die (state balloonlurker-pilot)) ;; unknown type
(define-extern *BALLOONLURKER-bank* balloonlurker-bank) ;; unknown type (define-extern *BALLOONLURKER-bank* balloonlurker-bank) ;; unknown type
(define-extern balloonlurker-die (state balloonlurker)) ;; unknown type
(define-extern *balloonlurker-rudder-joint-home* vector) ;; unknown type (define-extern *balloonlurker-rudder-joint-home* vector) ;; unknown type
(define-extern balloonlurker-mine-explode (state int balloonlurker)) ;; unknown type
;; ---------------------- ;; ----------------------

13
decompiler/config/jak1_ntsc_black_label/stack_structures.jsonc
View file

@ -1802,7 +1802,7 @@
[160, "vector"] [160, "vector"]
], ],
"(method 18 collide-cache)": [[16, "collide-cache-prim"]], "(method 18 collide-cache)": [[16, "collide-puls-work"]],
"kill-current-level-hint": [[16, "event-message-block"]], "kill-current-level-hint": [[16, "event-message-block"]],
"(exit level-hint-sidekick)": [[16, "event-message-block"]], "(exit level-hint-sidekick)": [[16, "event-message-block"]],
@ -4415,7 +4415,7 @@
"find-ground-point": [ "find-ground-point": [
[16, "vector"], [16, "vector"],
[32, "collide-mesh-cache-tri"], [32, "collide-tri-result"],
[128, "bounding-box"], [128, "bounding-box"],
[160, "vector"] [160, "vector"]
], ],
@ -6017,5 +6017,14 @@
[16, "event-message-block"] [16, "event-message-block"]
], ],
"(trans joint-exploder-shatter)": [
[16, "bounding-box"]
],
"(method 22 joint-exploder)": [
[16, "vector"],
[32, "collide-tri-result"]
],
"placeholder-do-not-add-below!": [] "placeholder-do-not-add-below!": []
} }

45
decompiler/config/jak1_ntsc_black_label/type_casts.jsonc
View file

@ -7393,5 +7393,50 @@
[31, "s4", "energyarm"] [31, "s4", "energyarm"]
], ],
"(method 0 joint-exploder-tuning)": [
[[6, 50], "v0", "joint-exploder-tuning"]
],
"(method 23 joint-exploder)": [
[[12, 102], "s3", "joint-exploder-joint"],
[[144, 146], "v1", "joint-exploder-list"],
[148, "v1", "matrix"],
[152, "v1", "matrix"]
],
"(method 20 joint-exploder)": [
[[8, 10], "a3", "joint-exploder-joint"],
[15, "v1", "joint-exploder-joint"]
],
"(method 27 joint-exploder)": [
[41, "s0", "joint-exploder-joint"],
[90, "s0", "joint-exploder-joint"],
[139, "s0", "joint-exploder-joint"]
],
"(method 25 joint-exploder)": [
[[16, 54], "s2", "joint-exploder-joint"]
],
"(method 22 joint-exploder)": [
[[18, 78], "s5", "joint-exploder-joint"]
],
"joint-exploder-joint-callback": [
[[10, 18], "v1", "joint-exploder-joint"]
],
"(method 24 joint-exploder)": [
[[12, 19], "v1", "joint-exploder-joint"]
],
"(method 26 joint-exploder)": [
[[5, 8], "a2", "joint-exploder-joint"],
[18, "v1", "joint-exploder-joint"],
[28, "v1", "joint-exploder-joint"]
],
"placeholder-do-not-add-below": [] "placeholder-do-not-add-below": []
} }

2
goal_src/engine/collide/collide-cache-h.gc
View file

@ -125,7 +125,7 @@
(dummy-15 (_type_ collide-using-spheres-params) none 15) (dummy-15 (_type_ collide-using-spheres-params) none 15)
(dummy-16 (_type_ vector float uint process-drawable uint) none 16) (dummy-16 (_type_ vector float uint process-drawable uint) none 16)
(initialize (_type_) none 17) (initialize (_type_) none 17)
(dummy-18 (_type_ vector vector float int collide-mesh-cache-tri int) float 18) (dummy-18 (_type_ vector vector float int collide-tri-result int) float 18)
(probe-using-spheres (_type_) none 19) (probe-using-spheres (_type_) none 19)
(dummy-20 (_type_ vector float uint collide-tri-result uint) float 20) (dummy-20 (_type_ vector float uint collide-tri-result uint) float 20)
(dummy-21 (_type_ (function bsp-header int collide-list none) (function collide-cache none)) none 21) (dummy-21 (_type_ (function bsp-header int collide-list none) (function collide-cache none)) none 21)

14
goal_src/engine/collide/collide-shape.gc
View file

@ -144,7 +144,7 @@
) )
(s2-0 (-> arg0 trans)) (s2-0 (-> arg0 trans))
(s1-0 (new 'stack-no-clear 'vector)) (s1-0 (new 'stack-no-clear 'vector))
(s0-0 (new 'stack-no-clear 'collide-mesh-cache-tri)) (s0-0 (new 'stack-no-clear 'collide-tri-result))
) )
(let ((a1-1 (new 'stack-no-clear 'bounding-box))) (let ((a1-1 (new 'stack-no-clear 'bounding-box)))
(set! (-> arg1 w) 0.0) (set! (-> arg1 w) 0.0)
@ -180,7 +180,7 @@
) )
0.0 0.0
) )
(set! f26-0 (+ -6144.0 (vector-vector-xz-distance s2-0 (-> s0-0 normal)))) (set! f26-0 (+ -6144.0 (vector-vector-xz-distance s2-0 (-> s0-0 intersect))))
) )
(let ((f24-0 arg2)) (let ((f24-0 arg2))
(while (>= f26-0 f24-0) (while (>= f26-0 f24-0)
@ -201,17 +201,17 @@
) )
(cond (cond
((and ((and
(zero? (shr (shl (-> s0-0 bbox4w max data 0) 58) 61)) (= (-> s0-0 pat mode) (pat-mode ground))
(zero? (shr (shl (-> s0-0 bbox4w max data 0) 44) 58)) (= (-> s0-0 pat event) (pat-event none))
(< 0.7 (the-as float (-> s0-0 bbox4w min data 1))) (< 0.7 (-> s0-0 normal y))
) )
(set! (-> arg1 quad) (-> s0-0 normal quad)) (set! (-> arg1 quad) (-> s0-0 intersect quad))
(set! sv-192 (+ sv-192 1)) (set! sv-192 (+ sv-192 1))
(if (>= sv-192 2) (if (>= sv-192 2)
(return arg1) (return arg1)
) )
) )
((and (= (shr (shl (-> s0-0 bbox4w max data 0) 58) 61) 1) (< (+ 4096.0 (-> s2-0 y)) (-> s0-0 normal y))) ((and (= (-> s0-0 pat mode) (pat-mode wall)) (< (+ 4096.0 (-> s2-0 y)) (-> s0-0 intersect y)))
(goto cfg-35) (goto cfg-35)
) )
) )

672
goal_src/levels/common/joint-exploder.gc
View file

@ -5,52 +5,56 @@
;; name in dgo: joint-exploder ;; name in dgo: joint-exploder
;; dgos: GAME, COMMON, L1 ;; dgos: GAME, COMMON, L1
;; TODO - for racer-states ;; DECOMP BEGINS
(deftype joint-exploder-tuning (structure) (deftype joint-exploder-tuning (structure)
((explosion uint64 :offset-assert 0) ((explosion uint64 :offset-assert 0)
(duration uint64 :offset-assert 8) (duration uint64 :offset-assert 8)
(gravity float :offset-assert 16) (gravity float :offset-assert 16)
(rot-speed float :offset-assert 20) (rot-speed float :offset-assert 20)
(fountain-rand-transv-lo vector :inline :offset-assert 32) (fountain-rand-transv-lo vector :inline :offset-assert 32)
(fountain-rand-transv-hi vector :inline :offset-assert 48) (fountain-rand-transv-hi vector :inline :offset-assert 48)
(away-from-focal-pt vector :inline :offset 32) (away-from-focal-pt vector :inline :offset 32)
(away-from-rand-transv-xz-lo float :offset 48) (away-from-rand-transv-xz-lo float :offset 48)
(away-from-rand-transv-xz-hi float :offset 52) (away-from-rand-transv-xz-hi float :offset 52)
(away-from-rand-transv-y-lo float :offset 56) (away-from-rand-transv-y-lo float :offset 56)
(away-from-rand-transv-y-hi float :offset 60) (away-from-rand-transv-y-hi float :offset 60)
) )
(:methods
(new (symbol type int) _type_ 0)
)
:method-count-assert 9 :method-count-assert 9
:size-assert #x40 :size-assert #x40
:flag-assert #x900000040 :flag-assert #x900000040
(:methods
(new (symbol type int) _type_ 0)
)
) )
(deftype joint-exploder-static-joint-params (structure) (deftype joint-exploder-static-joint-params (structure)
((joint-index int16 :offset-assert 0) ((joint-index int16 :offset-assert 0)
(parent-joint-index int16 :offset-assert 2) (parent-joint-index int16 :offset-assert 2)
) )
:method-count-assert 9 :method-count-assert 9
:size-assert #x4 :size-assert #x4
:flag-assert #x900000004 :flag-assert #x900000004
) )
(deftype joint-exploder-static-params (basic) (deftype joint-exploder-static-params (basic)
((joints array :offset-assert 4) ;; an array of...what? ((joints (array joint-exploder-static-joint-params) :offset-assert 4)
) )
:method-count-assert 9 :method-count-assert 9
:size-assert #x8 :size-assert #x8
:flag-assert #x900000008 :flag-assert #x900000008
) )
(deftype joint-exploder-joint (structure) (deftype joint-exploder-joint (structure)
((next int16 :offset-assert 0) ((next int16 :offset-assert 0)
(prev int16 :offset-assert 2) (prev int16 :offset-assert 2)
(joint-index int16 :offset-assert 4) (joint-index int16 :offset-assert 4)
(rspeed float :offset-assert 8) (rspeed float :offset-assert 8)
(mat matrix :inline :offset-assert 16) (mat matrix :inline :offset-assert 16)
(rmat matrix :inline :offset-assert 80) (rmat matrix :inline :offset-assert 80)
(transv vector :inline :offset-assert 144) (transv vector :inline :offset-assert 144)
(prev-pos vector :inline :offset-assert 160) (prev-pos vector :inline :offset-assert 160)
) )
@ -59,53 +63,623 @@
:flag-assert #x9000000b0 :flag-assert #x9000000b0
) )
(deftype joint-exploder-joints (basic) (deftype joint-exploder-joints (basic)
((num-joints int32 :offset-assert 4) ((num-joints int32 :offset-assert 4)
(joint joint-exploder-joint :dynamic :offset 16) (joint joint-exploder-joint :inline :dynamic :offset 16)
) )
:method-count-assert 9 :method-count-assert 9
:size-assert #x10 :size-assert #x10
:flag-assert #x900000010 :flag-assert #x900000010
(:methods (:methods
(new (symbol _type_ int) _type_ 0)) (new (symbol type joint-exploder-static-params) _type_ 0)
)
) )
(deftype joint-exploder-list (structure) (deftype joint-exploder-list (structure)
((head int32 :offset-assert 0) ((head int32 :offset-assert 0)
(pre-moved? symbol :offset-assert 4) (pre-moved? symbol :offset-assert 4)
(bbox-valid? symbol :offset-assert 8) (bbox-valid? symbol :offset-assert 8)
(bbox bounding-box :inline :offset-assert 16) (bbox bounding-box :inline :offset-assert 16)
) )
:method-count-assert 9 :method-count-assert 9
:size-assert #x30 :size-assert #x30
:flag-assert #x900000030 :flag-assert #x900000030
) )
(deftype joint-exploder (process-drawable) (deftype joint-exploder (process-drawable)
((die-if-below-y float :offset-assert 176) ((parent-override (pointer process-drawable) :offset 12)
(die-if-beyond-xz-dist-sqrd float :offset-assert 180) (die-if-below-y float :offset-assert 176)
(joints joint-exploder-joints :offset-assert 184) (die-if-beyond-xz-dist-sqrd float :offset-assert 180)
(static-params joint-exploder-static-params :offset-assert 188) (joints joint-exploder-joints :offset-assert 184)
(static-params joint-exploder-static-params :offset-assert 188)
(anim art-joint-anim :offset-assert 192) (anim art-joint-anim :offset-assert 192)
(scale-vector vector :inline :offset-assert 208) (scale-vector vector :inline :offset-assert 208)
(tuning joint-exploder-tuning :inline :offset-assert 224) (tuning joint-exploder-tuning :inline :offset-assert 224)
(lists joint-exploder-list 5 :inline :offset-assert 288) (lists joint-exploder-list 5 :inline :offset-assert 288)
) )
:heap-base #x1a0
:method-count-assert 29 :method-count-assert 29
:size-assert #x210 :size-assert #x210
:heap-base #x1a0
:flag-assert #x1d01a00210 :flag-assert #x1d01a00210
(:methods (:methods
(dummy-20 (_type_) none 20) (TODO-RENAME-20 (_type_ joint-exploder-list int) int 20)
(dummy-21 (_type_) none 21) (TODO-RENAME-21 (_type_ joint-exploder-list joint-exploder-joint) none 21)
(dummy-22 () none 22) (TODO-RENAME-22 (_type_ joint-exploder-list) symbol 22)
(dummy-23 () none 23) (TODO-RENAME-23 (_type_) symbol 23)
(dummy-24 (_type_) none 24) (TODO-RENAME-24 (_type_ joint-exploder-list int) int 24)
(dummy-25 () none 25) (TODO-RENAME-25 (_type_ joint-exploder-list) symbol 25)
(dummy-26 (_type_) none 26) (TODO-RENAME-26 (_type_ joint-exploder-list int) int 26)
(dummy-27 (_type_ joint-exploder-list) none 27) (TODO-RENAME-27 (_type_ joint-exploder-list int) joint-exploder-list 27)
(dummy-28 (_type_) none 28) (TODO-RENAME-28 (_type_ joint-exploder-list) none 28)
) )
) )
(define-extern joint-exploder-init-by-other (function skeleton-group int joint-exploder-static-params joint-exploder-tuning none :behavior joint-exploder))
(defmethod asize-of joint-exploder-joints ((obj joint-exploder-joints))
(the-as int (+ (-> obj type size) (* 176 (-> obj num-joints))))
)
(defmethod new joint-exploder-joints ((allocation symbol) (type-to-make type) (arg0 joint-exploder-static-params))
(let* ((gp-0 (-> arg0 joints length))
(v0-0 (object-new allocation type-to-make (the-as int (+ (-> type-to-make size) (* 176 gp-0)))))
)
(set! (-> v0-0 num-joints) gp-0)
v0-0
)
)
(defun joint-exploder-joint-callback ((arg0 joint-exploder))
(let ((gp-0 (-> arg0 node-list)))
(let ((s4-0 (-> arg0 joints)))
(countdown (s3-0 (-> s4-0 num-joints))
(let* ((v1-3 (-> s4-0 joint s3-0))
(a0-5 (-> gp-0 data (-> v1-3 joint-index) bone transform))
)
(matrix*! a0-5 (-> v1-3 rmat) (-> v1-3 mat))
)
)
)
(let ((s5-1 (-> arg0 scale-vector)))
(countdown (s4-1 (-> gp-0 length))
(let ((a2-1 (-> gp-0 data s4-1 bone transform)))
(scale-matrix! a2-1 s5-1 a2-1)
)
)
)
)
0
(none)
)
(defmethod TODO-RENAME-24 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list) (arg1 int))
(let ((v0-0 (TODO-RENAME-26 obj arg0 arg1)))
(let* ((v1-1 (-> obj joints))
(v1-2 (-> v1-1 joint arg1))
)
(set! (-> v1-2 mat vector 0 quad) (the-as uint128 0))
(set! (-> v1-2 mat vector 1 quad) (the-as uint128 0))
(set! (-> v1-2 mat vector 2 quad) (the-as uint128 0))
(set! (-> v1-2 mat vector 3 quad) (-> obj root trans quad))
)
v0-0
)
)
(defmethod TODO-RENAME-26 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list) (arg1 int))
(let* ((v1-0 (-> obj joints))
(a2-1 (-> v1-0 joint arg1))
(a0-4 (-> a2-1 prev))
(v0-0 (-> a2-1 next))
)
(cond
((>= a0-4 0)
(set! (-> v1-0 joint a0-4 next) v0-0)
(if (>= v0-0 0)
(set! (-> (the-as joint-exploder-joint (-> v1-0 joint v0-0)) prev) a0-4)
)
)
(else
(set! (-> arg0 head) v0-0)
(cond
((>= v0-0 0)
(let ((v1-2 (-> v1-0 joint v0-0)))
(set! (-> v1-2 prev) -1)
)
)
(else
(set! (-> arg0 bbox-valid?) #f)
)
)
)
)
v0-0
)
)
(defmethod TODO-RENAME-20 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list) (arg1 int))
(let* ((v1-0 (-> obj joints))
(a3-0 (-> v1-0 joint arg1))
(a0-4 (-> arg0 head))
)
(set! (-> arg0 head) arg1)
(set! (-> a3-0 prev) -1)
(set! (-> a3-0 next) a0-4)
(when (>= a0-4 0)
(set! (-> (the-as joint-exploder-joint (-> v1-0 joint a0-4)) prev) arg1)
arg1
)
)
)
(defmethod TODO-RENAME-21 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list) (arg1 joint-exploder-joint))
(let ((a1-1 (-> arg1 mat vector 3)))
(cond
((-> arg0 bbox-valid?)
(add-point! (-> arg0 bbox) (the-as vector3s a1-1))
)
(else
(set! (-> arg0 bbox-valid?) #t)
(set! (-> arg0 bbox min quad) (-> a1-1 quad))
(set! (-> arg0 bbox max quad) (-> a1-1 quad))
)
)
)
(add-point! (-> arg0 bbox) (the-as vector3s (-> arg1 prev-pos)))
(none)
)
(defmethod TODO-RENAME-27 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list) (arg1 int))
(local-vars (sv-16 int) (sv-32 int) (sv-48 int))
(let ((s4-0 (the-as joint-exploder-list #f)))
(let ((v1-0 1))
(until (= v1-0 5)
(let ((a0-4 (-> obj lists v1-0)))
(when (< (-> a0-4 head) 0)
(set! s4-0 a0-4)
(goto cfg-6)
)
)
(+! v1-0 1)
)
)
(label cfg-6)
(let ((s3-0 (the-as object s4-0)))
(cond
((the-as joint-exploder-list s3-0)
(set! (-> (the-as joint-exploder-list s3-0) pre-moved?) #t)
(set! (-> (the-as joint-exploder-list s3-0) bbox-valid?) #f)
)
(else
(set! s3-0 (-> obj lists))
)
)
(set! (-> arg0 bbox-valid?) #f)
(let ((s2-0 (-> obj joints))
(s1-0 (-> arg0 head))
)
(cond
((zero? arg1)
(let ((f30-0 (* 0.5 (+ (-> arg0 bbox min x) (-> arg0 bbox max x)))))
(while (>= s1-0 0)
(let ((s0-0 (-> s2-0 joint s1-0)))
(cond
((>= (-> s0-0 mat vector 3 x) f30-0)
(set! sv-16 (TODO-RENAME-26 obj arg0 s1-0))
(TODO-RENAME-20 obj (the-as joint-exploder-list s3-0) s1-0)
(set! s1-0 sv-16)
(TODO-RENAME-21 obj (the-as joint-exploder-list s3-0) s0-0)
)
(else
(TODO-RENAME-21 obj arg0 s0-0)
(set! s1-0 (-> s0-0 next))
)
)
)
)
)
)
((= arg1 1)
(let ((f30-1 (* 0.5 (+ (-> arg0 bbox min y) (-> arg0 bbox max y)))))
(while (>= s1-0 0)
(let ((s0-1 (-> s2-0 joint s1-0)))
(cond
((>= (-> s0-1 mat vector 3 y) f30-1)
(set! sv-32 (TODO-RENAME-26 obj arg0 s1-0))
(TODO-RENAME-20 obj (the-as joint-exploder-list s3-0) s1-0)
(set! s1-0 sv-32)
(TODO-RENAME-21 obj (the-as joint-exploder-list s3-0) s0-1)
)
(else
(TODO-RENAME-21 obj arg0 s0-1)
(set! s1-0 (-> s0-1 next))
)
)
)
)
)
)
((= arg1 2)
(let ((f30-2 (* 0.5 (+ (-> arg0 bbox min z) (-> arg0 bbox max z)))))
(while (>= s1-0 0)
(let ((s0-2 (-> s2-0 joint s1-0)))
(cond
((>= (-> s0-2 mat vector 3 z) f30-2)
(set! sv-48 (TODO-RENAME-26 obj arg0 s1-0))
(TODO-RENAME-20 obj (the-as joint-exploder-list s3-0) s1-0)
(set! s1-0 sv-48)
(TODO-RENAME-21 obj (the-as joint-exploder-list s3-0) s0-2)
)
(else
(TODO-RENAME-21 obj arg0 s0-2)
(set! s1-0 (-> s0-2 next))
)
)
)
)
)
)
)
)
)
s4-0
)
)
(defmethod TODO-RENAME-28 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list))
(when (and (-> arg0 bbox-valid?) (>= (-> arg0 head) 0))
(cond
((< 20480.0 (- (-> arg0 bbox max x) (-> arg0 bbox min x)))
(let ((a1-2 (TODO-RENAME-27 obj arg0 0)))
(if a1-2
(TODO-RENAME-28 obj a1-2)
)
)
(TODO-RENAME-28 obj arg0)
)
((< 20480.0 (- (-> arg0 bbox max y) (-> arg0 bbox min y)))
(let ((a1-5 (TODO-RENAME-27 obj arg0 1)))
(if a1-5
(TODO-RENAME-28 obj a1-5)
)
)
(TODO-RENAME-28 obj arg0)
)
((< 20480.0 (- (-> arg0 bbox max z) (-> arg0 bbox min z)))
(let ((a1-8 (TODO-RENAME-27 obj arg0 2)))
(if a1-8
(TODO-RENAME-28 obj a1-8)
)
)
(TODO-RENAME-28 obj arg0)
)
)
)
(none)
)
(defmethod TODO-RENAME-25 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list))
(set! (-> arg0 bbox-valid?) #f)
(set! (-> arg0 pre-moved?) #t)
(let ((s4-0 (-> obj joints))
(f30-0 (* (-> obj tuning gravity) (-> *display* seconds-per-frame)))
(s3-0 (-> arg0 head))
)
(while (>= s3-0 0)
(let* ((s2-0 (-> s4-0 joint s3-0))
(s1-0 (-> s2-0 mat vector 3))
)
(set! (-> s2-0 prev-pos quad) (-> s1-0 quad))
(+! (-> s2-0 transv y) f30-0)
(vector-v+! s1-0 s1-0 (-> s2-0 transv))
(let ((f0-3 0.99)
(f2-1 (* (-> s2-0 rspeed) (-> *display* seconds-per-frame)))
(f5-0 (-> s2-0 rmat vector 0 x))
(f4-0 (-> s2-0 rmat vector 0 y))
(f3-0 (-> s2-0 rmat vector 1 x))
(f1-2 (-> s2-0 rmat vector 1 y))
)
(set! (-> s2-0 rmat vector 0 x) (- (* f5-0 f0-3) (* f4-0 f2-1)))
(set! (-> s2-0 rmat vector 0 y) (+ (* f5-0 f2-1) (* f4-0 f0-3)))
(set! (-> s2-0 rmat vector 1 x) (- (* f3-0 f0-3) (* f1-2 f2-1)))
(set! (-> s2-0 rmat vector 1 y) (+ (* f3-0 f2-1) (* f1-2 f0-3)))
)
(cond
((or
(< (-> s1-0 y) (-> obj die-if-below-y))
(< (-> obj die-if-beyond-xz-dist-sqrd) (vector-vector-xz-distance s1-0 (-> obj root trans)))
)
(set! s3-0 (TODO-RENAME-24 obj arg0 s3-0))
)
(else
(TODO-RENAME-21 obj arg0 s2-0)
(set! s3-0 (-> s2-0 next))
)
)
)
)
)
#f
)
(defmethod TODO-RENAME-22 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list))
(dummy-13 *collide-cache* (-> arg0 bbox) (the-as uint 1) obj (the-as uint 1))
(let ((gp-1 (-> obj joints))
(v1-2 (-> arg0 head))
)
(while (>= v1-2 0)
(let ((s5-1 (-> gp-1 joint v1-2)))
(let ((s4-0 (-> s5-1 mat vector 3))
(a2-1 (new 'stack-no-clear 'vector))
(s3-0 (new 'stack-no-clear 'collide-tri-result))
)
(vector-! a2-1 s4-0 (-> s5-1 prev-pos))
(when (>= (dummy-18 *collide-cache* (-> s5-1 prev-pos) a2-1 40.96 1 s3-0 1) 0.0)
(set! (-> s4-0 quad) (-> s3-0 intersect quad))
(let ((f28-0 (vector-xz-length (-> s5-1 transv))))
(vector-reflect! (-> s5-1 transv) (-> s5-1 transv) (-> s3-0 normal))
(let ((f30-0 (-> s5-1 transv y)))
(set! (-> s5-1 transv y) 0.0)
(vector-normalize! (-> s5-1 transv) (* 0.75 f28-0))
(set! (-> s5-1 transv y) (* 0.7 f30-0))
)
)
(+! (-> s4-0 y) (* 40.96 (-> s3-0 normal y)))
(set! (-> s4-0 w) 1.0)
(set! (-> s5-1 rspeed) (* 0.5 (-> s5-1 rspeed)))
)
)
(set! v1-2 (-> s5-1 next))
)
)
)
#f
)
(defstate joint-exploder-shatter (joint-exploder)
:enter
(behavior () (set! (-> self state-time) (-> *display* base-frame-counter)) (none))
:trans
(behavior ()
(let* ((f1-0 (the float (- (-> *display* base-frame-counter) (-> self state-time))))
(f0-2 (- 1.0 (/ f1-0 (the float (-> self tuning duration)))))
(f1-2 (- 1.0 (/ f1-0 (* 0.75 (the float (-> self tuning duration))))))
)
(if (< f1-2 0.0)
(set! f1-2 0.0)
)
(set-vector! (-> self scale-vector) f0-2 f1-2 f0-2 1.0)
)
(dotimes (v1-8 5)
(set! (-> self lists v1-8 pre-moved?) #f)
)
(dotimes (gp-0 5)
(let ((s5-0 (-> self lists gp-0)))
(when (>= (-> s5-0 head) 0)
(when (not (-> s5-0 pre-moved?))
(TODO-RENAME-25 self s5-0)
(if (nonzero? gp-0)
(TODO-RENAME-28 self s5-0)
)
)
)
)
)
(let ((gp-1 (new 'stack-no-clear 'bounding-box)))
(let ((v1-26 (-> self root trans)))
(set! (-> gp-1 min quad) (-> v1-26 quad))
(set! (-> gp-1 max quad) (-> v1-26 quad))
)
(dotimes (s5-1 5)
(let ((s4-0 (-> self lists s5-1)))
(if (-> s4-0 bbox-valid?)
(add-box! gp-1 (-> s4-0 bbox))
)
(if (nonzero? s5-1)
(TODO-RENAME-22 self s4-0)
)
)
)
(let ((s5-2 (-> self draw bounds)))
(set-vector!
s5-2
(* 0.5 (+ (-> gp-1 min x) (-> gp-1 max x)))
(* 0.5 (+ (-> gp-1 min y) (-> gp-1 max y)))
(* 0.5 (+ (-> gp-1 min z) (-> gp-1 max z)))
1.0
)
(let ((f0-12 (+ 16384.0 (vector-vector-distance s5-2 (-> gp-1 max)))))
(vector-! s5-2 s5-2 (-> self root trans))
(set! (-> s5-2 w) f0-12)
)
)
)
0
(none)
)
:code
(behavior ()
(set! (-> self state-time) (-> *display* base-frame-counter))
(until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (the-as int (-> self tuning duration)))
(suspend)
(let ((a0-0 (-> self skel root-channel 0)))
(set! (-> a0-0 param 0) 1.0)
(joint-control-channel-group-eval! a0-0 (the-as art-joint-anim #f) num-func-loop!)
)
)
(none)
)
:post
(the-as (function none :behavior joint-exploder) ja-post)
)
(defmethod TODO-RENAME-23 joint-exploder ((obj joint-exploder))
(let ((gp-0 (-> obj joints)))
(dotimes (s4-0 (-> gp-0 num-joints))
(let ((v1-2 (-> obj static-params joints s4-0))
(s3-0 (-> gp-0 joint s4-0))
)
(let ((a0-6 (-> v1-2 parent-joint-index)))
(set! (-> s3-0 prev) (+ s4-0 -1))
(set! (-> s3-0 next) (+ s4-0 1))
(set! (-> s3-0 joint-index) (-> v1-2 joint-index))
(set! (-> s3-0 rspeed) (-> obj tuning rot-speed))
(cond
((>= a0-6 0)
(if (zero? a0-6)
(set! a0-6 (-> v1-2 joint-index))
)
(let* ((a3-0 (-> obj parent-override 0 node-list data a0-6 bone transform))
(a2-0 (-> s3-0 mat))
(v1-9 (-> a3-0 vector 0 quad))
(a0-8 (-> a3-0 vector 1 quad))
(a1-4 (-> a3-0 vector 2 quad))
(a3-1 (-> a3-0 vector 3 quad))
)
(set! (-> a2-0 vector 0 quad) v1-9)
(set! (-> a2-0 vector 1 quad) a0-8)
(set! (-> a2-0 vector 2 quad) a1-4)
(set! (-> a2-0 vector 3 quad) a3-1)
)
(matrix-identity! (-> s3-0 rmat))
)
(else
(let* ((a3-2 (-> obj node-list data (-> v1-2 joint-index) bone transform))
(a2-1 (-> s3-0 mat))
(v1-15 (-> a3-2 vector 0 quad))
(a0-11 (-> a3-2 vector 1 quad))
(a1-5 (-> a3-2 vector 2 quad))
(a3-3 (-> a3-2 vector 3 quad))
)
(set! (-> a2-1 vector 0 quad) v1-15)
(set! (-> a2-1 vector 1 quad) a0-11)
(set! (-> a2-1 vector 2 quad) a1-5)
(set! (-> a2-1 vector 3 quad) a3-3)
)
(matrix-identity! (-> s3-0 rmat))
)
)
)
(case (-> obj tuning explosion)
((1)
(vector-! (-> s3-0 transv) (-> s3-0 mat vector 3) (-> obj tuning fountain-rand-transv-lo))
(vector-normalize!
(-> s3-0 transv)
(rand-vu-float-range (-> obj tuning fountain-rand-transv-hi x) (-> obj tuning fountain-rand-transv-hi y))
)
(+!
(-> s3-0 transv y)
(rand-vu-float-range (-> obj tuning fountain-rand-transv-hi z) (-> obj tuning fountain-rand-transv-hi w))
)
(set! (-> s3-0 transv w) 1.0)
)
(else
(let ((s1-1 (-> obj tuning fountain-rand-transv-lo))
(s2-1 (-> obj tuning fountain-rand-transv-hi))
)
(set-vector!
(-> s3-0 transv)
(rand-vu-float-range (-> s1-1 x) (-> s2-1 x))
(rand-vu-float-range (-> s1-1 y) (-> s2-1 y))
(rand-vu-float-range (-> s1-1 z) (-> s2-1 z))
1.0
)
)
)
)
)
)
(when (nonzero? (-> gp-0 num-joints))
(let ((v1-26 (-> gp-0 joint (+ (-> gp-0 num-joints) -1))))
(set! (-> v1-26 next) -1)
)
(let ((v1-27 (the-as joint-exploder-list (&-> obj stack 224))))
(set! (-> v1-27 head) 0)
(let ((s5-1 (-> v1-27 bbox)))
(let ((v1-28 (the-as structure (-> gp-0 joint 0 mat vector 3))))
(set! (-> s5-1 min quad) (-> (the-as matrix v1-28) vector 0 quad))
(set! (-> s5-1 max quad) (-> (the-as matrix v1-28) vector 0 quad))
)
(dotimes (s4-1 (-> gp-0 num-joints))
(add-point! s5-1 (the-as vector3s (+ (the-as uint (-> gp-0 joint 0 mat vector 3)) (* 176 s4-1))))
)
)
)
#f
)
)
)
(defmethod relocate joint-exploder ((obj joint-exploder) (arg0 int))
(if (nonzero? (-> obj joints))
(&+! (-> obj joints) arg0)
)
(the-as joint-exploder ((method-of-type process-drawable relocate) obj arg0))
)
(defbehavior joint-exploder-init-by-other joint-exploder ((arg0 skeleton-group) (arg1 int) (arg2 joint-exploder-static-params) (arg3 joint-exploder-static-params))
(set! (-> self static-params) arg3)
(set! (-> self die-if-beyond-xz-dist-sqrd) 10485760000.0)
(mem-copy! (the-as pointer (-> self tuning)) (the-as pointer arg2) 64)
(set! (-> self joints) (new 'process 'joint-exploder-joints arg3))
(dotimes (v1-1 5)
(let ((a0-6 (-> self lists v1-1)))
(set! (-> a0-6 head) -1)
(set! (-> a0-6 bbox-valid?) #f)
(set! (-> a0-6 pre-moved?) #f)
)
)
(set! (-> self mask) (logior (process-mask enemy) (-> self mask)))
(set! (-> self root) (new 'process 'trsqv))
(set! (-> self root trans quad) (-> self parent-override 0 root trans quad))
(quaternion-copy! (-> self root quat) (-> self parent-override 0 root quat))
(set! (-> self root scale quad) (-> self parent-override 0 root scale quad))
(initialize-skeleton self arg0 '())
(logior! (-> self skel status) 1)
(set! (-> self anim) (the-as art-joint-anim (-> self draw art-group data arg1)))
(ja-channel-set! 1)
(let ((gp-1 (-> self skel root-channel 0)))
(joint-control-channel-group-eval! gp-1 (-> self anim) num-func-identity)
(set! (-> gp-1 frame-num) 0.0)
)
(ja-post)
(TODO-RENAME-23 self)
(set! (-> self die-if-below-y) (+ -102400.0 (-> self root trans y)))
(set! (-> self skel postbind-function) joint-exploder-joint-callback)
(go joint-exploder-shatter)
(none)
)
(defmethod new joint-exploder-tuning ((allocation symbol) (type-to-make type) (arg0 int))
(let ((t9-0 (method-of-type structure new))
(v1-1 type-to-make)
)
(-> type-to-make size)
(let ((v0-0 (the-as joint-exploder-tuning (t9-0 allocation v1-1))))
(set! (-> v0-0 explosion) (the-as uint arg0))
(set! (-> v0-0 duration) (the-as uint 600))
(set! (-> v0-0 gravity) -286720.0)
(set! (-> v0-0 rot-speed) 8.4)
(cond
((zero? arg0)
(set-vector! (-> v0-0 fountain-rand-transv-lo) -81920.0 20480.0 -81920.0 1.0)
(set-vector! (-> v0-0 fountain-rand-transv-hi) 81920.0 61440.0 81920.0 1.0)
)
((= arg0 1)
(vector-reset! (-> v0-0 fountain-rand-transv-lo))
(set! (-> v0-0 fountain-rand-transv-hi x) 49152.0)
(set! (-> v0-0 fountain-rand-transv-hi y) 163840.0)
(set! (-> v0-0 fountain-rand-transv-hi z) 20480.0)
(set! (-> v0-0 fountain-rand-transv-hi w) 61440.0)
)
)
v0-0
)
)
)

1241
goal_src/levels/misty/balloonlurker.gc
View file

File diff suppressed because it is too large Load diff

2
test/decompiler/reference/engine/collide/collide-cache-h_REF.gc generated vendored
View file

@ -188,7 +188,7 @@
(dummy-15 (_type_ collide-using-spheres-params) none 15) (dummy-15 (_type_ collide-using-spheres-params) none 15)
(dummy-16 (_type_ vector float uint process-drawable uint) none 16) (dummy-16 (_type_ vector float uint process-drawable uint) none 16)
(initialize (_type_) none 17) (initialize (_type_) none 17)
(dummy-18 (_type_ vector vector float int collide-mesh-cache-tri int) float 18) (dummy-18 (_type_ vector vector float int collide-tri-result int) float 18)
(probe-using-spheres (_type_) none 19) (probe-using-spheres (_type_) none 19)
(dummy-20 (_type_ vector float uint collide-tri-result uint) float 20) (dummy-20 (_type_ vector float uint collide-tri-result uint) float 20)
(dummy-21 (_type_ (function bsp-header int collide-list none) (function collide-cache none)) none 21) (dummy-21 (_type_ (function bsp-header int collide-list none) (function collide-cache none)) none 21)

784
test/decompiler/reference/levels/common/joint-exploder_REF.gc generated vendored Normal file
View file

@ -0,0 +1,784 @@
;;-*-Lisp-*-
(in-package goal)
;; definition of type joint-exploder-tuning
(deftype joint-exploder-tuning (structure)
((explosion uint64 :offset-assert 0)
(duration uint64 :offset-assert 8)
(gravity float :offset-assert 16)
(rot-speed float :offset-assert 20)
(fountain-rand-transv-lo vector :inline :offset-assert 32)
(fountain-rand-transv-hi vector :inline :offset-assert 48)
(away-from-focal-pt vector :inline :offset 32)
(away-from-rand-transv-xz-lo float :offset 48)
(away-from-rand-transv-xz-hi float :offset 52)
(away-from-rand-transv-y-lo float :offset 56)
(away-from-rand-transv-y-hi float :offset 60)
)
:method-count-assert 9
:size-assert #x40
:flag-assert #x900000040
(:methods
(new (symbol type int) _type_ 0)
)
)
;; definition for method 3 of type joint-exploder-tuning
(defmethod inspect joint-exploder-tuning ((obj joint-exploder-tuning))
(format #t "[~8x] ~A~%" obj 'joint-exploder-tuning)
(format #t "~Texplosion: ~D~%" (-> obj explosion))
(format #t "~Tduration: ~D~%" (-> obj duration))
(format #t "~Tgravity: ~f~%" (-> obj gravity))
(format #t "~Trot-speed: ~f~%" (-> obj rot-speed))
(format #t "~Tfountain-rand-transv-lo: #<vector @ #x~X>~%" (-> obj fountain-rand-transv-lo))
(format #t "~Tfountain-rand-transv-hi: #<vector @ #x~X>~%" (-> obj fountain-rand-transv-hi))
(format #t "~Taway-from-focal-pt: #<vector @ #x~X>~%" (-> obj fountain-rand-transv-lo))
(format #t "~Taway-from-rand-transv-xz-lo: ~f~%" (-> obj fountain-rand-transv-hi x))
(format #t "~Taway-from-rand-transv-xz-hi: ~f~%" (-> obj fountain-rand-transv-hi y))
(format #t "~Taway-from-rand-transv-y-lo: ~f~%" (-> obj fountain-rand-transv-hi z))
(format #t "~Taway-from-rand-transv-y-hi: ~f~%" (-> obj fountain-rand-transv-hi w))
obj
)
;; definition of type joint-exploder-static-joint-params
(deftype joint-exploder-static-joint-params (structure)
((joint-index int16 :offset-assert 0)
(parent-joint-index int16 :offset-assert 2)
)
:method-count-assert 9
:size-assert #x4
:flag-assert #x900000004
)
;; definition for method 3 of type joint-exploder-static-joint-params
(defmethod inspect joint-exploder-static-joint-params ((obj joint-exploder-static-joint-params))
(format #t "[~8x] ~A~%" obj 'joint-exploder-static-joint-params)
(format #t "~Tjoint-index: ~D~%" (-> obj joint-index))
(format #t "~Tparent-joint-index: ~D~%" (-> obj parent-joint-index))
obj
)
;; definition of type joint-exploder-static-params
(deftype joint-exploder-static-params (basic)
((joints (array joint-exploder-static-joint-params) :offset-assert 4)
)
:method-count-assert 9
:size-assert #x8
:flag-assert #x900000008
)
;; definition for method 3 of type joint-exploder-static-params
(defmethod inspect joint-exploder-static-params ((obj joint-exploder-static-params))
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tjoints: ~A~%" (-> obj joints))
obj
)
;; definition of type joint-exploder-joint
(deftype joint-exploder-joint (structure)
((next int16 :offset-assert 0)
(prev int16 :offset-assert 2)
(joint-index int16 :offset-assert 4)
(rspeed float :offset-assert 8)
(mat matrix :inline :offset-assert 16)
(rmat matrix :inline :offset-assert 80)
(transv vector :inline :offset-assert 144)
(prev-pos vector :inline :offset-assert 160)
)
:method-count-assert 9
:size-assert #xb0
:flag-assert #x9000000b0
)
;; definition for method 3 of type joint-exploder-joint
(defmethod inspect joint-exploder-joint ((obj joint-exploder-joint))
(format #t "[~8x] ~A~%" obj 'joint-exploder-joint)
(format #t "~Tnext: ~D~%" (-> obj next))
(format #t "~Tprev: ~D~%" (-> obj prev))
(format #t "~Tjoint-index: ~D~%" (-> obj joint-index))
(format #t "~Trspeed: ~f~%" (-> obj rspeed))
(format #t "~Tmat: #<matrix @ #x~X>~%" (-> obj mat))
(format #t "~Trmat: #<matrix @ #x~X>~%" (-> obj rmat))
(format #t "~Ttransv: #<vector @ #x~X>~%" (-> obj transv))
(format #t "~Tprev-pos: #<vector @ #x~X>~%" (-> obj prev-pos))
obj
)
;; definition of type joint-exploder-joints
(deftype joint-exploder-joints (basic)
((num-joints int32 :offset-assert 4)
(joint joint-exploder-joint :inline :dynamic :offset 16)
)
:method-count-assert 9
:size-assert #x10
:flag-assert #x900000010
(:methods
(new (symbol type joint-exploder-static-params) _type_ 0)
)
)
;; definition for method 3 of type joint-exploder-joints
(defmethod inspect joint-exploder-joints ((obj joint-exploder-joints))
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tnum-joints: ~D~%" (-> obj num-joints))
(format #t "~Tjoint[0] @ #x~X~%" (-> obj joint))
obj
)
;; definition of type joint-exploder-list
(deftype joint-exploder-list (structure)
((head int32 :offset-assert 0)
(pre-moved? symbol :offset-assert 4)
(bbox-valid? symbol :offset-assert 8)
(bbox bounding-box :inline :offset-assert 16)
)
:method-count-assert 9
:size-assert #x30
:flag-assert #x900000030
)
;; definition for method 3 of type joint-exploder-list
(defmethod inspect joint-exploder-list ((obj joint-exploder-list))
(format #t "[~8x] ~A~%" obj 'joint-exploder-list)
(format #t "~Thead: ~D~%" (-> obj head))
(format #t "~Tpre-moved?: ~A~%" (-> obj pre-moved?))
(format #t "~Tbbox-valid?: ~A~%" (-> obj bbox-valid?))
(format #t "~Tbbox: #<bounding-box @ #x~X>~%" (-> obj bbox))
obj
)
;; definition of type joint-exploder
(deftype joint-exploder (process-drawable)
((parent-override (pointer process-drawable) :offset 12)
(die-if-below-y float :offset-assert 176)
(die-if-beyond-xz-dist-sqrd float :offset-assert 180)
(joints joint-exploder-joints :offset-assert 184)
(static-params joint-exploder-static-params :offset-assert 188)
(anim art-joint-anim :offset-assert 192)
(scale-vector vector :inline :offset-assert 208)
(tuning joint-exploder-tuning :inline :offset-assert 224)
(lists joint-exploder-list 5 :inline :offset-assert 288)
)
:heap-base #x1a0
:method-count-assert 29
:size-assert #x210
:flag-assert #x1d01a00210
(:methods
(TODO-RENAME-20 (_type_ joint-exploder-list int) int 20)
(TODO-RENAME-21 (_type_ joint-exploder-list joint-exploder-joint) none 21)
(TODO-RENAME-22 (_type_ joint-exploder-list) symbol 22)
(TODO-RENAME-23 (_type_) symbol 23)
(TODO-RENAME-24 (_type_ joint-exploder-list int) int 24)
(TODO-RENAME-25 (_type_ joint-exploder-list) symbol 25)
(TODO-RENAME-26 (_type_ joint-exploder-list int) int 26)
(TODO-RENAME-27 (_type_ joint-exploder-list int) joint-exploder-list 27)
(TODO-RENAME-28 (_type_ joint-exploder-list) none 28)
)
)
;; definition for method 3 of type joint-exploder
(defmethod inspect joint-exploder ((obj joint-exploder))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~T~Tdie-if-below-y: ~f~%" (-> obj die-if-below-y))
(format #t "~T~Tdie-if-beyond-xz-dist-sqrd: ~f~%" (-> obj die-if-beyond-xz-dist-sqrd))
(format #t "~T~Tjoints: ~A~%" (-> obj joints))
(format #t "~T~Tstatic-params: ~A~%" (-> obj static-params))
(format #t "~T~Tanim: ~A~%" (-> obj anim))
(format #t "~T~Tscale-vector: #<vector @ #x~X>~%" (-> obj scale-vector))
(format #t "~T~Ttuning: #<joint-exploder-tuning @ #x~X>~%" (-> obj tuning))
(format #t "~T~Tlists[5] @ #x~X~%" (-> obj lists))
obj
)
;; definition for method 5 of type joint-exploder-joints
;; INFO: Return type mismatch uint vs int.
(defmethod asize-of joint-exploder-joints ((obj joint-exploder-joints))
(the-as int (+ (-> obj type size) (* 176 (-> obj num-joints))))
)
;; definition for method 0 of type joint-exploder-joints
(defmethod new joint-exploder-joints ((allocation symbol) (type-to-make type) (arg0 joint-exploder-static-params))
(let* ((gp-0 (-> arg0 joints length))
(v0-0 (object-new allocation type-to-make (the-as int (+ (-> type-to-make size) (* 176 gp-0)))))
)
(set! (-> v0-0 num-joints) gp-0)
v0-0
)
)
;; definition for function joint-exploder-joint-callback
;; INFO: Return type mismatch int vs none.
(defun joint-exploder-joint-callback ((arg0 joint-exploder))
(let ((gp-0 (-> arg0 node-list)))
(let ((s4-0 (-> arg0 joints)))
(countdown (s3-0 (-> s4-0 num-joints))
(let* ((v1-3 (-> s4-0 joint s3-0))
(a0-5 (-> gp-0 data (-> v1-3 joint-index) bone transform))
)
(matrix*! a0-5 (-> v1-3 rmat) (-> v1-3 mat))
)
)
)
(let ((s5-1 (-> arg0 scale-vector)))
(countdown (s4-1 (-> gp-0 length))
(let ((a2-1 (-> gp-0 data s4-1 bone transform)))
(scale-matrix! a2-1 s5-1 a2-1)
)
)
)
)
0
(none)
)
;; definition for method 24 of type joint-exploder
;; Used lq/sq
(defmethod TODO-RENAME-24 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list) (arg1 int))
(let ((v0-0 (TODO-RENAME-26 obj arg0 arg1)))
(let* ((v1-1 (-> obj joints))
(v1-2 (-> v1-1 joint arg1))
)
(set! (-> v1-2 mat vector 0 quad) (the-as uint128 0))
(set! (-> v1-2 mat vector 1 quad) (the-as uint128 0))
(set! (-> v1-2 mat vector 2 quad) (the-as uint128 0))
(set! (-> v1-2 mat vector 3 quad) (-> obj root trans quad))
)
v0-0
)
)
;; definition for method 26 of type joint-exploder
(defmethod TODO-RENAME-26 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list) (arg1 int))
(let* ((v1-0 (-> obj joints))
(a2-1 (-> v1-0 joint arg1))
(a0-4 (-> a2-1 prev))
(v0-0 (-> a2-1 next))
)
(cond
((>= a0-4 0)
(set! (-> v1-0 joint a0-4 next) v0-0)
(if (>= v0-0 0)
(set! (-> (the-as joint-exploder-joint (-> v1-0 joint v0-0)) prev) a0-4)
)
)
(else
(set! (-> arg0 head) v0-0)
(cond
((>= v0-0 0)
(let ((v1-2 (-> v1-0 joint v0-0)))
(set! (-> v1-2 prev) -1)
)
)
(else
(set! (-> arg0 bbox-valid?) #f)
)
)
)
)
v0-0
)
)
;; definition for method 20 of type joint-exploder
(defmethod TODO-RENAME-20 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list) (arg1 int))
(let* ((v1-0 (-> obj joints))
(a3-0 (-> v1-0 joint arg1))
(a0-4 (-> arg0 head))
)
(set! (-> arg0 head) arg1)
(set! (-> a3-0 prev) -1)
(set! (-> a3-0 next) a0-4)
(when (>= a0-4 0)
(set! (-> (the-as joint-exploder-joint (-> v1-0 joint a0-4)) prev) arg1)
arg1
)
)
)
;; definition for method 21 of type joint-exploder
;; INFO: Return type mismatch int vs none.
;; Used lq/sq
(defmethod TODO-RENAME-21 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list) (arg1 joint-exploder-joint))
(let ((a1-1 (-> arg1 mat vector 3)))
(cond
((-> arg0 bbox-valid?)
(add-point! (-> arg0 bbox) (the-as vector3s a1-1))
)
(else
(set! (-> arg0 bbox-valid?) #t)
(set! (-> arg0 bbox min quad) (-> a1-1 quad))
(set! (-> arg0 bbox max quad) (-> a1-1 quad))
)
)
)
(add-point! (-> arg0 bbox) (the-as vector3s (-> arg1 prev-pos)))
(none)
)
;; definition for method 27 of type joint-exploder
;; Used lq/sq
(defmethod TODO-RENAME-27 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list) (arg1 int))
(local-vars (sv-16 int) (sv-32 int) (sv-48 int))
(let ((s4-0 (the-as joint-exploder-list #f)))
(let ((v1-0 1))
(until (= v1-0 5)
(let ((a0-4 (-> obj lists v1-0)))
(when (< (-> a0-4 head) 0)
(set! s4-0 a0-4)
(goto cfg-6)
)
)
(+! v1-0 1)
)
)
(label cfg-6)
(let ((s3-0 (the-as object s4-0)))
(cond
((the-as joint-exploder-list s3-0)
(set! (-> (the-as joint-exploder-list s3-0) pre-moved?) #t)
(set! (-> (the-as joint-exploder-list s3-0) bbox-valid?) #f)
)
(else
(set! s3-0 (-> obj lists))
)
)
(set! (-> arg0 bbox-valid?) #f)
(let ((s2-0 (-> obj joints))
(s1-0 (-> arg0 head))
)
(cond
((zero? arg1)
(let ((f30-0 (* 0.5 (+ (-> arg0 bbox min x) (-> arg0 bbox max x)))))
(while (>= s1-0 0)
(let ((s0-0 (-> s2-0 joint s1-0)))
(cond
((>= (-> s0-0 mat vector 3 x) f30-0)
(set! sv-16 (TODO-RENAME-26 obj arg0 s1-0))
(TODO-RENAME-20 obj (the-as joint-exploder-list s3-0) s1-0)
(set! s1-0 sv-16)
(TODO-RENAME-21 obj (the-as joint-exploder-list s3-0) s0-0)
)
(else
(TODO-RENAME-21 obj arg0 s0-0)
(set! s1-0 (-> s0-0 next))
)
)
)
)
)
)
((= arg1 1)
(let ((f30-1 (* 0.5 (+ (-> arg0 bbox min y) (-> arg0 bbox max y)))))
(while (>= s1-0 0)
(let ((s0-1 (-> s2-0 joint s1-0)))
(cond
((>= (-> s0-1 mat vector 3 y) f30-1)
(set! sv-32 (TODO-RENAME-26 obj arg0 s1-0))
(TODO-RENAME-20 obj (the-as joint-exploder-list s3-0) s1-0)
(set! s1-0 sv-32)
(TODO-RENAME-21 obj (the-as joint-exploder-list s3-0) s0-1)
)
(else
(TODO-RENAME-21 obj arg0 s0-1)
(set! s1-0 (-> s0-1 next))
)
)
)
)
)
)
((= arg1 2)
(let ((f30-2 (* 0.5 (+ (-> arg0 bbox min z) (-> arg0 bbox max z)))))
(while (>= s1-0 0)
(let ((s0-2 (-> s2-0 joint s1-0)))
(cond
((>= (-> s0-2 mat vector 3 z) f30-2)
(set! sv-48 (TODO-RENAME-26 obj arg0 s1-0))
(TODO-RENAME-20 obj (the-as joint-exploder-list s3-0) s1-0)
(set! s1-0 sv-48)
(TODO-RENAME-21 obj (the-as joint-exploder-list s3-0) s0-2)
)
(else
(TODO-RENAME-21 obj arg0 s0-2)
(set! s1-0 (-> s0-2 next))
)
)
)
)
)
)
)
)
)
s4-0
)
)
;; definition for method 28 of type joint-exploder
(defmethod TODO-RENAME-28 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list))
(when (and (-> arg0 bbox-valid?) (>= (-> arg0 head) 0))
(cond
((< 20480.0 (- (-> arg0 bbox max x) (-> arg0 bbox min x)))
(let ((a1-2 (TODO-RENAME-27 obj arg0 0)))
(if a1-2
(TODO-RENAME-28 obj a1-2)
)
)
(TODO-RENAME-28 obj arg0)
)
((< 20480.0 (- (-> arg0 bbox max y) (-> arg0 bbox min y)))
(let ((a1-5 (TODO-RENAME-27 obj arg0 1)))
(if a1-5
(TODO-RENAME-28 obj a1-5)
)
)
(TODO-RENAME-28 obj arg0)
)
((< 20480.0 (- (-> arg0 bbox max z) (-> arg0 bbox min z)))
(let ((a1-8 (TODO-RENAME-27 obj arg0 2)))
(if a1-8
(TODO-RENAME-28 obj a1-8)
)
)
(TODO-RENAME-28 obj arg0)
)
)
)
(none)
)
;; definition for method 25 of type joint-exploder
;; Used lq/sq
(defmethod TODO-RENAME-25 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list))
(set! (-> arg0 bbox-valid?) #f)
(set! (-> arg0 pre-moved?) #t)
(let ((s4-0 (-> obj joints))
(f30-0 (* (-> obj tuning gravity) (-> *display* seconds-per-frame)))
(s3-0 (-> arg0 head))
)
(while (>= s3-0 0)
(let* ((s2-0 (-> s4-0 joint s3-0))
(s1-0 (-> s2-0 mat vector 3))
)
(set! (-> s2-0 prev-pos quad) (-> s1-0 quad))
(+! (-> s2-0 transv y) f30-0)
(vector-v+! s1-0 s1-0 (-> s2-0 transv))
(let ((f0-3 0.99)
(f2-1 (* (-> s2-0 rspeed) (-> *display* seconds-per-frame)))
(f5-0 (-> s2-0 rmat vector 0 x))
(f4-0 (-> s2-0 rmat vector 0 y))
(f3-0 (-> s2-0 rmat vector 1 x))
(f1-2 (-> s2-0 rmat vector 1 y))
)
(set! (-> s2-0 rmat vector 0 x) (- (* f5-0 f0-3) (* f4-0 f2-1)))
(set! (-> s2-0 rmat vector 0 y) (+ (* f5-0 f2-1) (* f4-0 f0-3)))
(set! (-> s2-0 rmat vector 1 x) (- (* f3-0 f0-3) (* f1-2 f2-1)))
(set! (-> s2-0 rmat vector 1 y) (+ (* f3-0 f2-1) (* f1-2 f0-3)))
)
(cond
((or
(< (-> s1-0 y) (-> obj die-if-below-y))
(< (-> obj die-if-beyond-xz-dist-sqrd) (vector-vector-xz-distance s1-0 (-> obj root trans)))
)
(set! s3-0 (TODO-RENAME-24 obj arg0 s3-0))
)
(else
(TODO-RENAME-21 obj arg0 s2-0)
(set! s3-0 (-> s2-0 next))
)
)
)
)
)
#f
)
;; definition for method 22 of type joint-exploder
;; Used lq/sq
(defmethod TODO-RENAME-22 joint-exploder ((obj joint-exploder) (arg0 joint-exploder-list))
(dummy-13 *collide-cache* (-> arg0 bbox) (the-as uint 1) obj (the-as uint 1))
(let ((gp-1 (-> obj joints))
(v1-2 (-> arg0 head))
)
(while (>= v1-2 0)
(let ((s5-1 (-> gp-1 joint v1-2)))
(let ((s4-0 (-> s5-1 mat vector 3))
(a2-1 (new 'stack-no-clear 'vector))
(s3-0 (new 'stack-no-clear 'collide-tri-result))
)
(vector-! a2-1 s4-0 (-> s5-1 prev-pos))
(when (>= (dummy-18 *collide-cache* (-> s5-1 prev-pos) a2-1 40.96 1 s3-0 1) 0.0)
(set! (-> s4-0 quad) (-> s3-0 intersect quad))
(let ((f28-0 (vector-xz-length (-> s5-1 transv))))
(vector-reflect! (-> s5-1 transv) (-> s5-1 transv) (-> s3-0 normal))
(let ((f30-0 (-> s5-1 transv y)))
(set! (-> s5-1 transv y) 0.0)
(vector-normalize! (-> s5-1 transv) (* 0.75 f28-0))
(set! (-> s5-1 transv y) (* 0.7 f30-0))
)
)
(+! (-> s4-0 y) (* 40.96 (-> s3-0 normal y)))
(set! (-> s4-0 w) 1.0)
(set! (-> s5-1 rspeed) (* 0.5 (-> s5-1 rspeed)))
)
)
(set! v1-2 (-> s5-1 next))
)
)
)
#f
)
;; failed to figure out what this is:
(defstate joint-exploder-shatter (joint-exploder)
:enter
(behavior () (set! (-> self state-time) (-> *display* base-frame-counter)) (none))
:trans
(behavior ()
(let* ((f1-0 (the float (- (-> *display* base-frame-counter) (-> self state-time))))
(f0-2 (- 1.0 (/ f1-0 (the float (-> self tuning duration)))))
(f1-2 (- 1.0 (/ f1-0 (* 0.75 (the float (-> self tuning duration))))))
)
(if (< f1-2 0.0)
(set! f1-2 0.0)
)
(set-vector! (-> self scale-vector) f0-2 f1-2 f0-2 1.0)
)
(dotimes (v1-8 5)
(set! (-> self lists v1-8 pre-moved?) #f)
)
(dotimes (gp-0 5)
(let ((s5-0 (-> self lists gp-0)))
(when (>= (-> s5-0 head) 0)
(when (not (-> s5-0 pre-moved?))
(TODO-RENAME-25 self s5-0)
(if (nonzero? gp-0)
(TODO-RENAME-28 self s5-0)
)
)
)
)
)
(let ((gp-1 (new 'stack-no-clear 'bounding-box)))
(let ((v1-26 (-> self root trans)))
(set! (-> gp-1 min quad) (-> v1-26 quad))
(set! (-> gp-1 max quad) (-> v1-26 quad))
)
(dotimes (s5-1 5)
(let ((s4-0 (-> self lists s5-1)))
(if (-> s4-0 bbox-valid?)
(add-box! gp-1 (-> s4-0 bbox))
)
(if (nonzero? s5-1)
(TODO-RENAME-22 self s4-0)
)
)
)
(let ((s5-2 (-> self draw bounds)))
(set-vector!
s5-2
(* 0.5 (+ (-> gp-1 min x) (-> gp-1 max x)))
(* 0.5 (+ (-> gp-1 min y) (-> gp-1 max y)))
(* 0.5 (+ (-> gp-1 min z) (-> gp-1 max z)))
1.0
)
(let ((f0-12 (+ 16384.0 (vector-vector-distance s5-2 (-> gp-1 max)))))
(vector-! s5-2 s5-2 (-> self root trans))
(set! (-> s5-2 w) f0-12)
)
)
)
0
(none)
)
:code
(behavior ()
(set! (-> self state-time) (-> *display* base-frame-counter))
(until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (the-as int (-> self tuning duration)))
(suspend)
(let ((a0-0 (-> self skel root-channel 0)))
(set! (-> a0-0 param 0) 1.0)
(joint-control-channel-group-eval! a0-0 (the-as art-joint-anim #f) num-func-loop!)
)
)
(none)
)
:post
(the-as (function none :behavior joint-exploder) ja-post)
)
;; definition for method 23 of type joint-exploder
;; Used lq/sq
(defmethod TODO-RENAME-23 joint-exploder ((obj joint-exploder))
(let ((gp-0 (-> obj joints)))
(dotimes (s4-0 (-> gp-0 num-joints))
(let ((v1-2 (-> obj static-params joints s4-0))
(s3-0 (-> gp-0 joint s4-0))
)
(let ((a0-6 (-> v1-2 parent-joint-index)))
(set! (-> s3-0 prev) (+ s4-0 -1))
(set! (-> s3-0 next) (+ s4-0 1))
(set! (-> s3-0 joint-index) (-> v1-2 joint-index))
(set! (-> s3-0 rspeed) (-> obj tuning rot-speed))
(cond
((>= a0-6 0)
(if (zero? a0-6)
(set! a0-6 (-> v1-2 joint-index))
)
(let* ((a3-0 (-> obj parent-override 0 node-list data a0-6 bone transform))
(a2-0 (-> s3-0 mat))
(v1-9 (-> a3-0 vector 0 quad))
(a0-8 (-> a3-0 vector 1 quad))
(a1-4 (-> a3-0 vector 2 quad))
(a3-1 (-> a3-0 vector 3 quad))
)
(set! (-> a2-0 vector 0 quad) v1-9)
(set! (-> a2-0 vector 1 quad) a0-8)
(set! (-> a2-0 vector 2 quad) a1-4)
(set! (-> a2-0 vector 3 quad) a3-1)
)
(matrix-identity! (-> s3-0 rmat))
)
(else
(let* ((a3-2 (-> obj node-list data (-> v1-2 joint-index) bone transform))
(a2-1 (-> s3-0 mat))
(v1-15 (-> a3-2 vector 0 quad))
(a0-11 (-> a3-2 vector 1 quad))
(a1-5 (-> a3-2 vector 2 quad))
(a3-3 (-> a3-2 vector 3 quad))
)
(set! (-> a2-1 vector 0 quad) v1-15)
(set! (-> a2-1 vector 1 quad) a0-11)
(set! (-> a2-1 vector 2 quad) a1-5)
(set! (-> a2-1 vector 3 quad) a3-3)
)
(matrix-identity! (-> s3-0 rmat))
)
)
)
(case (-> obj tuning explosion)
((1)
(vector-! (-> s3-0 transv) (-> s3-0 mat vector 3) (-> obj tuning fountain-rand-transv-lo))
(vector-normalize!
(-> s3-0 transv)
(rand-vu-float-range (-> obj tuning fountain-rand-transv-hi x) (-> obj tuning fountain-rand-transv-hi y))
)
(+!
(-> s3-0 transv y)
(rand-vu-float-range (-> obj tuning fountain-rand-transv-hi z) (-> obj tuning fountain-rand-transv-hi w))
)
(set! (-> s3-0 transv w) 1.0)
)
(else
(let ((s1-1 (-> obj tuning fountain-rand-transv-lo))
(s2-1 (-> obj tuning fountain-rand-transv-hi))
)
(set-vector!
(-> s3-0 transv)
(rand-vu-float-range (-> s1-1 x) (-> s2-1 x))
(rand-vu-float-range (-> s1-1 y) (-> s2-1 y))
(rand-vu-float-range (-> s1-1 z) (-> s2-1 z))
1.0
)
)
)
)
)
)
(when (nonzero? (-> gp-0 num-joints))
(let ((v1-26 (-> gp-0 joint (+ (-> gp-0 num-joints) -1))))
(set! (-> v1-26 next) -1)
)
(let ((v1-27 (the-as joint-exploder-list (&-> obj stack 224))))
(set! (-> v1-27 head) 0)
(let ((s5-1 (-> v1-27 bbox)))
(let ((v1-28 (the-as structure (-> gp-0 joint 0 mat vector 3))))
(set! (-> s5-1 min quad) (-> (the-as matrix v1-28) vector 0 quad))
(set! (-> s5-1 max quad) (-> (the-as matrix v1-28) vector 0 quad))
)
(dotimes (s4-1 (-> gp-0 num-joints))
(add-point! s5-1 (the-as vector3s (+ (the-as uint (-> gp-0 joint 0 mat vector 3)) (* 176 s4-1))))
)
)
)
#f
)
)
)
;; definition for method 7 of type joint-exploder
;; INFO: Return type mismatch process-drawable vs joint-exploder.
(defmethod relocate joint-exploder ((obj joint-exploder) (arg0 int))
(if (nonzero? (-> obj joints))
(&+! (-> obj joints) arg0)
)
(the-as joint-exploder ((method-of-type process-drawable relocate) obj arg0))
)
;; definition for function joint-exploder-init-by-other
;; INFO: Return type mismatch object vs none.
;; Used lq/sq
(defbehavior joint-exploder-init-by-other joint-exploder ((arg0 skeleton-group) (arg1 int) (arg2 joint-exploder-static-params) (arg3 joint-exploder-static-params))
(set! (-> self static-params) arg3)
(set! (-> self die-if-beyond-xz-dist-sqrd) 10485760000.0)
(mem-copy! (the-as pointer (-> self tuning)) (the-as pointer arg2) 64)
(set! (-> self joints) (new 'process 'joint-exploder-joints arg3))
(dotimes (v1-1 5)
(let ((a0-6 (-> self lists v1-1)))
(set! (-> a0-6 head) -1)
(set! (-> a0-6 bbox-valid?) #f)
(set! (-> a0-6 pre-moved?) #f)
)
)
(set! (-> self mask) (logior (process-mask enemy) (-> self mask)))
(set! (-> self root) (new 'process 'trsqv))
(set! (-> self root trans quad) (-> self parent-override 0 root trans quad))
(quaternion-copy! (-> self root quat) (-> self parent-override 0 root quat))
(set! (-> self root scale quad) (-> self parent-override 0 root scale quad))
(initialize-skeleton self arg0 '())
(logior! (-> self skel status) 1)
(set! (-> self anim) (the-as art-joint-anim (-> self draw art-group data arg1)))
(ja-channel-set! 1)
(let ((gp-1 (-> self skel root-channel 0)))
(joint-control-channel-group-eval! gp-1 (-> self anim) num-func-identity)
(set! (-> gp-1 frame-num) 0.0)
)
(ja-post)
(TODO-RENAME-23 self)
(set! (-> self die-if-below-y) (+ -102400.0 (-> self root trans y)))
(set! (-> self skel postbind-function) joint-exploder-joint-callback)
(go joint-exploder-shatter)
(none)
)
;; definition for method 0 of type joint-exploder-tuning
;; INFO: Return type mismatch structure vs joint-exploder-tuning.
(defmethod new joint-exploder-tuning ((allocation symbol) (type-to-make type) (arg0 int))
(let ((t9-0 (method-of-type structure new))
(v1-1 type-to-make)
)
(-> type-to-make size)
(let ((v0-0 (the-as joint-exploder-tuning (t9-0 allocation v1-1))))
(set! (-> v0-0 explosion) (the-as uint arg0))
(set! (-> v0-0 duration) (the-as uint 600))
(set! (-> v0-0 gravity) -286720.0)
(set! (-> v0-0 rot-speed) 8.4)
(cond
((zero? arg0)
(set-vector! (-> v0-0 fountain-rand-transv-lo) -81920.0 20480.0 -81920.0 1.0)
(set-vector! (-> v0-0 fountain-rand-transv-hi) 81920.0 61440.0 81920.0 1.0)
)
((= arg0 1)
(vector-reset! (-> v0-0 fountain-rand-transv-lo))
(set! (-> v0-0 fountain-rand-transv-hi x) 49152.0)
(set! (-> v0-0 fountain-rand-transv-hi y) 163840.0)
(set! (-> v0-0 fountain-rand-transv-hi z) 20480.0)
(set! (-> v0-0 fountain-rand-transv-hi w) 61440.0)
)
)
v0-0
)
)
)

1351
test/decompiler/reference/levels/misty/balloonlurker_REF.gc generated vendored Normal file
View file

File diff suppressed because it is too large Load diff