mirror of
https://github.com/open-goal/jak-project
synced 2026-05-30 08:56:59 -04:00
ManDude
0cdeed9be7
* [pp2] put `define` dest on a single line * update source! * Update type_analysis.cpp * update old credits & racer code * change clang-cl args (REALLY force avx) * Update credits_REF.gc * comment small unused code * add timer to decompiler * fix unnecessary copy-constructors (no speed increase) * fixes * Update expression_build.cpp * wtf is this thing anyway * im bored. * clang * fix! * Revert "fix!" This reverts commit5b1ce6c718. * Revert "clang" This reverts commit5e67d9ccd1. * Revert "im bored." This reverts commit070e957ce8. * Revert "Update expression_build.cpp" This reverts commitb94d092fc5. * Revert "fixes" This reverts commitf3d871f60a. * Revert "fix unnecessary copy-constructors (no speed increase)" This reverts commit9100725802. * Keep the random inoffensive changes * Revert "Update type_analysis.cpp" This reverts commitd2456a5c75. * Update type_analysis.cpp
1554 lines
60 KiB
Common Lisp
Vendored
Generated
1554 lines
60 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *deathcam-sg* deathcam
|
|
0
|
|
2
|
|
((1 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 4)
|
|
:longest-edge (meters 0)
|
|
:texture-level 2
|
|
)
|
|
|
|
;; definition for symbol *auto-continue*, type symbol
|
|
(define *auto-continue* #f)
|
|
|
|
;; definition for function next-level
|
|
;; INFO: Return type mismatch symbol vs level-load-info.
|
|
(defun next-level ((arg0 symbol))
|
|
(let ((v1-0 (lookup-level-info arg0)))
|
|
(the-as level-load-info (when v1-0
|
|
(let* ((a0-1 *level-load-list*)
|
|
(a1-0 (car a0-1))
|
|
)
|
|
(while (not (null? a0-1))
|
|
(let ((a1-1 (the-as basic (-> (the-as level-load-info a1-0) name))))
|
|
(if (= (-> (the-as level-load-info a1-1) index) (+ (-> v1-0 index) 1))
|
|
(return (the-as level-load-info a1-1))
|
|
)
|
|
)
|
|
(set! a0-1 (cdr a0-1))
|
|
(set! a1-0 (car a0-1))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate target-continue (target)
|
|
:event
|
|
target-generic-event-handler
|
|
:exit
|
|
(behavior ()
|
|
(set! (-> *load-boundary-target* 0 quad) (-> (camera-pos) quad))
|
|
(set! (-> *load-boundary-target* 1 quad) (-> (target-pos 0) quad))
|
|
(set! (-> *load-boundary-target* 2 quad) (-> *load-boundary-target* 0 quad))
|
|
(set! (-> *load-boundary-target* 3 quad) (-> *load-boundary-target* 1 quad))
|
|
(when (zero? (logand (-> *game-info* current-continue flags) (continue-flags intro sage-intro title)))
|
|
(set! (-> *level* border?) (-> *level* play?))
|
|
(set! (-> *setting-control* default border-mode) (-> *level* play?))
|
|
)
|
|
(clear-pending-settings-from-process *setting-control* self 'allow-pause)
|
|
(clear-pending-settings-from-process *setting-control* self 'allow-progress)
|
|
(clear-pending-settings-from-process *setting-control* self 'bg-a)
|
|
(clear-pending-settings-from-process *setting-control* self 'music-volume)
|
|
(clear-pending-settings-from-process *setting-control* self 'sfx-volume)
|
|
(clear-pending-settings-from-process *setting-control* self 'ambient-volume)
|
|
(clear-pending-settings-from-process *setting-control* self 'music)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ((arg0 continue-point))
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(if (-> *art-control* reserve-buffer)
|
|
(reserve-free *art-control* (-> *art-control* reserve-buffer heap))
|
|
)
|
|
(push-setting! *setting-control* self 'bg-a 'abs 1.0 0)
|
|
(set! (-> *setting-control* current bg-a) 1.0)
|
|
(set-setting! *setting-control* self 'sfx-volume 'abs (the-as float 0.0) 0)
|
|
(set-setting! *setting-control* self 'ambient-volume 'abs (the-as float 0.0) 0)
|
|
(let ((v1-20 (lookup-level-info (-> arg0 level))))
|
|
(when v1-20
|
|
(set-setting! *setting-control* self 'music (-> v1-20 music-bank) (the-as float 0.0) 0)
|
|
(set-setting! *setting-control* self 'music-volume 'abs (the-as float 0.0) 0)
|
|
)
|
|
)
|
|
(set! (-> *level* border?) #f)
|
|
(set! (-> *setting-control* default border-mode) #f)
|
|
(reset-target-state #t)
|
|
(target-exit)
|
|
(ja-channel-set! 0)
|
|
(quaternion-copy! (-> self control unknown-quaternion00) (-> arg0 quat))
|
|
(move-to-point! (-> self control) (-> arg0 trans))
|
|
(rot->dir-targ! (-> self control))
|
|
(set! (-> (&-> (-> self control) unknown-qword00) 0) (-> self control trans quad))
|
|
(cond
|
|
((not (string= (-> arg0 name) "default"))
|
|
(set! *external-cam-mode* #f)
|
|
(cam-stop)
|
|
(suspend)
|
|
0
|
|
)
|
|
(else
|
|
(send-event *camera* 'clear-entity)
|
|
(send-event *camera* 'change-state cam-fixed 0)
|
|
(suspend)
|
|
0
|
|
)
|
|
)
|
|
(set! (-> *load-state* vis-nick) (-> arg0 vis-nick))
|
|
(set! (-> *load-state* want 0 name) (-> arg0 lev0))
|
|
(set! (-> *load-state* want 0 display?) (-> arg0 disp0))
|
|
(set! (-> *load-state* want 0 force-vis?) #f)
|
|
(set! (-> *load-state* want 0 force-inside?) #f)
|
|
(set! (-> *load-state* want 1 name) (-> arg0 lev1))
|
|
(set! (-> *load-state* want 1 display?) (-> arg0 disp1))
|
|
(set! (-> *load-state* want 1 force-vis?) #f)
|
|
(set! (-> *load-state* want 1 force-inside?) #f)
|
|
(when (not (string= (-> arg0 name) "default"))
|
|
(while (not
|
|
(and (or (not (-> arg0 lev0)) (not (-> arg0 disp0)) (= (level-status *level* (-> arg0 lev0)) 'active))
|
|
(or (not (-> arg0 lev1)) (not (-> arg0 disp1)) (= (level-status *level* (-> arg0 lev1)) 'active))
|
|
)
|
|
)
|
|
(let ((v1-52 (lookup-level-info (-> arg0 level))))
|
|
(if (and v1-52
|
|
(= (-> *setting-control* current music) (-> v1-52 music-bank))
|
|
(zero? (logand (-> arg0 flags) (continue-flags sage-intro title)))
|
|
)
|
|
(clear-pending-settings-from-process *setting-control* self 'music-volume)
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
(backup-load-state-and-set-cmds *load-state* '())
|
|
(execute-command *load-state* '(teleport))
|
|
(let* ((s5-0 (-> arg0 load-commands))
|
|
(a1-18 (car s5-0))
|
|
)
|
|
(while (not (null? s5-0))
|
|
(execute-command *load-state* (the-as pair a1-18))
|
|
(set! s5-0 (cdr s5-0))
|
|
(set! a1-18 (car s5-0))
|
|
)
|
|
)
|
|
(restore-load-state *load-state*)
|
|
(set! (-> *ACTOR-bank* birth-max) 1000)
|
|
(new 'stack 'transformq)
|
|
(cond
|
|
((not (string= (-> arg0 name) "default"))
|
|
(cam-start #t)
|
|
(suspend)
|
|
(suspend)
|
|
(set! (-> *camera-combiner* trans quad) (-> arg0 camera-trans quad))
|
|
(let ((s5-1 (-> *camera-combiner* inv-camera-rot))
|
|
(s4-0 (-> arg0 camera-rot))
|
|
)
|
|
(matrix-identity! s5-1)
|
|
(set! (-> s5-1 vector 0 x) (-> s4-0 0))
|
|
(set! (-> s5-1 vector 0 y) (-> s4-0 1))
|
|
(set! (-> s5-1 vector 0 z) (-> s4-0 2))
|
|
(set! (-> s5-1 vector 1 x) (-> s4-0 3))
|
|
(set! (-> s5-1 vector 1 y) (-> s4-0 4))
|
|
(set! (-> s5-1 vector 1 z) (-> s4-0 5))
|
|
(set! (-> s5-1 vector 2 x) (-> s4-0 6))
|
|
(set! (-> s5-1 vector 2 y) (-> s4-0 7))
|
|
(set! (-> s5-1 vector 2 z) (-> s4-0 8))
|
|
)
|
|
(send-event *camera* 'change-target self)
|
|
(send-event *camera* 'no-intro)
|
|
(send-event *camera* 'clear-entity)
|
|
(send-event *camera* 'force-blend 0)
|
|
(send-event *camera* 'change-state cam-fixed 0)
|
|
(send-event *camera* 'change-state cam-string 0)
|
|
)
|
|
(else
|
|
(send-event *camera* 'change-target self)
|
|
(send-event *camera* 'change-state cam-string 0)
|
|
(send-event *camera* 'teleport)
|
|
(send-event *camera* 'no-intro)
|
|
(send-event *camera* 'clear-entity)
|
|
)
|
|
)
|
|
(send-event self 'level-enter (-> arg0 level))
|
|
(dotimes (v1-124 (-> *level* length))
|
|
(let ((a0-64 (-> *level* level v1-124)))
|
|
(if (= (-> a0-64 status) 'active)
|
|
(set! (-> a0-64 all-visible?) 'loading)
|
|
)
|
|
)
|
|
)
|
|
(let ((s5-2 (level-get *level* (-> arg0 level))))
|
|
(when s5-2
|
|
(while (and (= (-> s5-2 all-visible?) 'loading) (-> *level* vis?))
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
(set! *spawn-actors* #t)
|
|
(set! *teleport* #t)
|
|
(set! (-> *ACTOR-bank* birth-max) 1000)
|
|
(set-blackout-frames (seconds 0.1))
|
|
(cond
|
|
((logtest? (-> arg0 flags) (continue-flags title))
|
|
(go target-title)
|
|
)
|
|
((logtest? (-> arg0 flags) (continue-flags intro))
|
|
(start-sequence-a)
|
|
)
|
|
((logtest? (-> arg0 flags) (continue-flags sage-intro))
|
|
(let ((s5-3 (entity-by-name "sage-23")))
|
|
(when s5-3
|
|
(set-blackout-frames (seconds 100))
|
|
(entity-birth-no-kill s5-3)
|
|
(suspend)
|
|
(send-event
|
|
(if s5-3
|
|
(-> s5-3 extra process)
|
|
)
|
|
'play-anim
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((and (logtest? (-> arg0 flags) (continue-flags sage-ecorocks))
|
|
(or (= (get-task-status (game-task beach-ecorocks)) (task-status need-hint))
|
|
(= (get-task-status (game-task beach-ecorocks)) (task-status need-introduction))
|
|
)
|
|
)
|
|
(let ((s5-4 (entity-by-name "sage-23")))
|
|
(when s5-4
|
|
(set-blackout-frames (seconds 100))
|
|
(entity-birth-no-kill s5-4)
|
|
(suspend)
|
|
(set! arg0 (get-continue-by-name *game-info* "village1-hut"))
|
|
(send-event
|
|
(if s5-4
|
|
(-> s5-4 extra process)
|
|
)
|
|
'play-anim
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((logtest? (-> arg0 flags) (continue-flags demo))
|
|
(go target-demo)
|
|
)
|
|
((logtest? (-> arg0 flags) (continue-flags sage-demo-convo))
|
|
(set-blackout-frames (seconds 1))
|
|
(let ((s5-5 (get-process *default-dead-pool* process #x4000)))
|
|
(when s5-5
|
|
(let ((t9-60 (method-of-type process activate)))
|
|
(t9-60 s5-5 *default-pool* 'process (the-as pointer #x70004000))
|
|
)
|
|
(run-next-time-in-process
|
|
s5-5
|
|
(lambda ()
|
|
(local-vars (v1-10 basic))
|
|
(let ((gp-0 (entity-by-name "sage-23")))
|
|
(when gp-0
|
|
(set-blackout-frames (seconds 100))
|
|
(entity-birth-no-kill gp-0)
|
|
(suspend)
|
|
(suspend)
|
|
(send-event
|
|
(if gp-0
|
|
(-> gp-0 extra process)
|
|
)
|
|
'play-anim
|
|
)
|
|
)
|
|
)
|
|
(let ((gp-1 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) gp-1) (seconds 2))
|
|
(suspend)
|
|
)
|
|
)
|
|
(until (not v1-10)
|
|
(suspend)
|
|
(set! v1-10 (and *target* (logtest? (-> *target* state-flags) 256)))
|
|
)
|
|
(set! (-> *cpad-list* cpads 0 change-time) (-> *display* base-frame-counter))
|
|
(reset-actors 'dead)
|
|
(start 'play (get-continue-by-name *game-info* "misty-start"))
|
|
)
|
|
)
|
|
(-> s5-5 ppointer)
|
|
)
|
|
)
|
|
)
|
|
((logtest? (-> arg0 flags) (continue-flags warp))
|
|
(let ((s5-6 (new 'static 'vector)))
|
|
(cond
|
|
((string= (-> arg0 name) "village1-warp")
|
|
(set! (-> s5-6 quad) (-> (entity-by-name "villagea-part-1") extra trans quad))
|
|
(suspend)
|
|
(let ((s4-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> s4-2 from) self)
|
|
(set! (-> s4-2 num-params) 0)
|
|
(set! (-> s4-2 message) 'hidden-other)
|
|
(let ((s3-0 send-event-function)
|
|
(v1-175 (entity-by-name "sage-23"))
|
|
)
|
|
(s3-0
|
|
(if v1-175
|
|
(-> v1-175 extra process)
|
|
)
|
|
s4-2
|
|
)
|
|
)
|
|
)
|
|
(let ((s4-3 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> s4-3 from) self)
|
|
(set! (-> s4-3 num-params) 0)
|
|
(set! (-> s4-3 message) 'hidden-other)
|
|
(let ((s3-1 send-event-function)
|
|
(v1-179 (entity-by-name "assistant-11"))
|
|
)
|
|
(s3-1
|
|
(if v1-179
|
|
(-> v1-179 extra process)
|
|
)
|
|
s4-3
|
|
)
|
|
)
|
|
)
|
|
(set-continue! *game-info* "village1-hut")
|
|
)
|
|
((or (string= (-> arg0 name) "training-warp") (string= (-> arg0 name) "game-start"))
|
|
(if (logtest? (-> arg0 flags) (continue-flags game-start))
|
|
(close-specific-task! (game-task intro) (task-status need-resolution))
|
|
)
|
|
(set! (-> s5-6 quad) (-> (entity-by-name "training-part-1") extra trans quad))
|
|
(set-continue! *game-info* "training-start")
|
|
)
|
|
((string= (-> arg0 name) "village2-warp")
|
|
(set! (-> s5-6 quad) (-> (entity-by-name "villageb-part-55") extra trans quad))
|
|
(when (task-closed? (game-task village2-levitator) (task-status need-hint))
|
|
(suspend)
|
|
(let ((s4-6 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> s4-6 from) self)
|
|
(set! (-> s4-6 num-params) 0)
|
|
(set! (-> s4-6 message) 'hidden-other)
|
|
(let ((s3-2 send-event-function)
|
|
(v1-201 (entity-by-name "assistant-bluehut-1"))
|
|
)
|
|
(s3-2
|
|
(if v1-201
|
|
(-> v1-201 extra process)
|
|
)
|
|
s4-6
|
|
)
|
|
)
|
|
)
|
|
(let ((s4-7 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> s4-7 from) self)
|
|
(set! (-> s4-7 num-params) 0)
|
|
(set! (-> s4-7 message) 'hidden-other)
|
|
(let ((s3-3 send-event-function)
|
|
(v1-205 (entity-by-name "sage-bluehut-1"))
|
|
)
|
|
(s3-3
|
|
(if v1-205
|
|
(-> v1-205 extra process)
|
|
)
|
|
s4-7
|
|
)
|
|
)
|
|
)
|
|
(let ((s4-8 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> s4-8 from) self)
|
|
(set! (-> s4-8 num-params) 0)
|
|
(set! (-> s4-8 message) 'hidden-other)
|
|
(let ((s3-4 send-event-function)
|
|
(v1-209 (entity-by-name "flutflut-bluehut-1"))
|
|
)
|
|
(s3-4
|
|
(if v1-209
|
|
(-> v1-209 extra process)
|
|
)
|
|
s4-8
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set-continue! *game-info* "village2-start")
|
|
)
|
|
((string= (-> arg0 name) "village3-warp")
|
|
(set! (-> s5-6 quad) (-> (entity-by-name "villagec-part-32") extra trans quad))
|
|
(when (task-closed? (game-task village3-button) (task-status need-hint))
|
|
(suspend)
|
|
(let ((s4-10 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> s4-10 from) self)
|
|
(set! (-> s4-10 num-params) 0)
|
|
(set! (-> s4-10 message) 'hidden-other)
|
|
(let ((s3-5 send-event-function)
|
|
(v1-220 (entity-by-name "assistant-villagec-1"))
|
|
)
|
|
(s3-5
|
|
(if v1-220
|
|
(-> v1-220 extra process)
|
|
)
|
|
s4-10
|
|
)
|
|
)
|
|
)
|
|
(let ((s4-11 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> s4-11 from) self)
|
|
(set! (-> s4-11 num-params) 0)
|
|
(set! (-> s4-11 message) 'hidden-other)
|
|
(let ((s3-6 send-event-function)
|
|
(v1-224 (entity-by-name "sage-villagec-1"))
|
|
)
|
|
(s3-6
|
|
(if v1-224
|
|
(-> v1-224 extra process)
|
|
)
|
|
s4-11
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set-continue! *game-info* "village3-start")
|
|
)
|
|
((string= (-> arg0 name) "citadel-warp")
|
|
(set! (-> s5-6 quad) (-> (entity-by-name "citb-part-1") extra trans quad))
|
|
(when (task-closed? (game-task village4-button) (task-status need-hint))
|
|
(suspend)
|
|
(let ((s4-13 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> s4-13 from) self)
|
|
(set! (-> s4-13 num-params) 0)
|
|
(set! (-> s4-13 message) 'hidden-other)
|
|
(let ((s3-7 send-event-function)
|
|
(v1-235 (entity-by-name "assistant-lavatube-end-3"))
|
|
)
|
|
(s3-7
|
|
(if v1-235
|
|
(-> v1-235 extra process)
|
|
)
|
|
s4-13
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set-continue! *game-info* "lavatube-end")
|
|
)
|
|
)
|
|
(go target-warp-in s5-6 (-> arg0 trans))
|
|
)
|
|
)
|
|
(else
|
|
(let ((s5-7 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) s5-7) (seconds 0.05))
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set-continue! *game-info* arg0)
|
|
(when *auto-continue*
|
|
(let ((s5-8 (next-level (-> arg0 level))))
|
|
(when (and s5-8 (not (null? (-> s5-8 continues))))
|
|
(format 0 "~A ~A ~A~%" (-> arg0 level) (-> s5-8 name) (car (-> s5-8 continues)))
|
|
(inspect global)
|
|
(let ((gp-1 (get-process *default-dead-pool* process #x4000)))
|
|
(when gp-1
|
|
(let ((t9-104 (method-of-type process activate)))
|
|
(t9-104 gp-1 *default-pool* 'process (the-as pointer #x70004000))
|
|
)
|
|
(run-next-time-in-process gp-1 (lambda ((arg0 continue-point)) (start 'play arg0)) (car (-> s5-8 continues)))
|
|
(-> gp-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(ja-channel-set! 1)
|
|
(let ((v1-264 (-> self skel root-channel 0)))
|
|
(set! (-> v1-264 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
|
|
)
|
|
(suspend)
|
|
(logior! (-> self control status) 7)
|
|
(go target-stance)
|
|
(none)
|
|
)
|
|
:post
|
|
target-no-move-post
|
|
)
|
|
|
|
;; definition for symbol *smack-mods*, type surface
|
|
(define *smack-mods* (new 'static 'surface
|
|
:name 'jump
|
|
:tiltv 32768.0
|
|
:tiltvv 131072.0
|
|
:transv-max 40960.0
|
|
:target-speed 40960.0
|
|
:seek0 0.3
|
|
:seek90 0.3
|
|
:seek180 0.3
|
|
:fric 0.05
|
|
:nonlin-fric-dist 1.0
|
|
:slip-factor 1.0
|
|
:slide-factor 1.0
|
|
:slope-up-factor 1.0
|
|
:slope-down-factor 1.0
|
|
:slope-slip-angle 1.0
|
|
:impact-fric 1.0
|
|
:bend-factor 1.0
|
|
:bend-speed 1.0
|
|
:alignv 1.0
|
|
:slope-up-traction 1.0
|
|
:align-speed 1.0
|
|
:mult-hook
|
|
(lambda :behavior target
|
|
((arg0 surface) (arg1 surface) (arg2 surface) (arg3 int))
|
|
(when (= arg3 1)
|
|
(let ((f30-0 (-> self control unknown-float40))
|
|
(f28-0 (-> self control unknown-float41))
|
|
)
|
|
(set! (-> arg0 seek0) (lerp (-> arg0 seek0) (the-as float 409600.0) f28-0))
|
|
(set! (-> arg0 seek90) (lerp (-> arg0 seek90) (the-as float 409600.0) f28-0))
|
|
(set! (-> arg0 seek180) (lerp (-> arg0 seek180) (the-as float 409600.0) f28-0))
|
|
(set! (-> arg0 target-speed) (lerp (-> arg0 target-speed) f30-0 f28-0))
|
|
(set! (-> arg0 transv-max) (lerp (-> arg0 transv-max) f30-0 f28-0))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:mode 'air
|
|
:flags #x800
|
|
)
|
|
)
|
|
|
|
;; definition for symbol *smack-up-mods*, type surface
|
|
(define *smack-up-mods*
|
|
(new 'static 'surface
|
|
:name 'jump
|
|
:turnv 131072.0
|
|
:turnvv 32768.0
|
|
:tiltv 32768.0
|
|
:tiltvv 131072.0
|
|
:transv-max 40960.0
|
|
:target-speed 40960.0
|
|
:seek0 0.3
|
|
:seek90 0.3
|
|
:seek180 0.3
|
|
:fric 0.05
|
|
:nonlin-fric-dist 1.0
|
|
:slip-factor 1.0
|
|
:slide-factor 1.0
|
|
:slope-up-factor 1.0
|
|
:slope-down-factor 1.0
|
|
:slope-slip-angle 1.0
|
|
:impact-fric 1.0
|
|
:bend-factor 1.0
|
|
:bend-speed 1.0
|
|
:alignv 1.0
|
|
:slope-up-traction 1.0
|
|
:align-speed 1.0
|
|
:mult-hook
|
|
(lambda :behavior target
|
|
((arg0 surface) (arg1 surface) (arg2 surface) (arg3 int))
|
|
(when (= arg3 1)
|
|
(let ((f30-0 (-> self control unknown-float40))
|
|
(f28-0 (-> self control unknown-float41))
|
|
)
|
|
(set! (-> arg0 seek0) (lerp (-> arg0 seek0) (the-as float 409600.0) f28-0))
|
|
(set! (-> arg0 seek90) (lerp (-> arg0 seek90) (the-as float 409600.0) f28-0))
|
|
(set! (-> arg0 seek180) (lerp (-> arg0 seek180) (the-as float 409600.0) f28-0))
|
|
(set! (-> arg0 target-speed) (lerp (-> arg0 target-speed) f30-0 f28-0))
|
|
(set! (-> arg0 transv-max) (lerp (-> arg0 transv-max) f30-0 f28-0))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:mode 'air
|
|
:flags #x818
|
|
)
|
|
)
|
|
|
|
;; definition for function velocity-set-to-target!
|
|
;; Used lq/sq
|
|
(defbehavior velocity-set-to-target! target ((arg0 vector) (arg1 float) (arg2 attack-info))
|
|
(let* ((v1-1 (-> self control trans))
|
|
(gp-1 (vector-! (new 'stack-no-clear 'vector) arg0 v1-1))
|
|
)
|
|
(set! (-> gp-1 y) 0.0)
|
|
(set! (-> self control unknown-vector40 quad) (-> gp-1 quad))
|
|
(vector-xz-normalize! (-> self control unknown-vector40) (the-as float 1.0))
|
|
(set! (-> self control unknown-float50) 1.0)
|
|
(set! (-> self control unknown-float40) arg1)
|
|
(set! (-> self control unknown-float41) (- 1.0 (-> arg2 control)))
|
|
gp-1
|
|
)
|
|
)
|
|
|
|
;; definition for function target-hit-effect
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defbehavior target-hit-effect target ((arg0 attack-info))
|
|
(let ((s5-0 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s5-0
|
|
(let ((t9-1 (method-of-type part-tracker activate)))
|
|
(t9-1 (the-as part-tracker s5-0) self 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
s5-0
|
|
part-tracker-init
|
|
(-> *part-group-id-table* 1)
|
|
-1
|
|
#f
|
|
#f
|
|
#f
|
|
(if (logtest? (-> arg0 mask) 4)
|
|
(-> arg0 intersection)
|
|
(-> self control root-prim prim-core)
|
|
)
|
|
)
|
|
(-> s5-0 ppointer)
|
|
)
|
|
)
|
|
(let ((v1-9 (-> arg0 mode)))
|
|
(cond
|
|
((or (= v1-9 'endlessfall) (= v1-9 'instant-death))
|
|
)
|
|
((begin
|
|
(target-timed-invulnerable (-> arg0 invinc-time) self)
|
|
(cpad-set-buzz! (-> *cpad-list* cpads 0) 0 255 (seconds 0.5))
|
|
(let ((v1-13 (-> arg0 angle)))
|
|
(= v1-13 'up)
|
|
)
|
|
)
|
|
(sound-play-by-name (static-sound-name "hit-up") (new-sound-id) 1024 0 0 1 #t)
|
|
)
|
|
(else
|
|
(sound-play-by-name (static-sound-name "oof") (new-sound-id) 1024 0 0 1 #t)
|
|
)
|
|
)
|
|
)
|
|
(case (-> arg0 mode)
|
|
(('burn 'burnup)
|
|
(let ((gp-1 (get-process *default-dead-pool* process #x4000)))
|
|
(when gp-1
|
|
(let ((t9-10 (method-of-type process activate)))
|
|
(t9-10 gp-1 self 'process (the-as pointer #x70004000))
|
|
)
|
|
(run-next-time-in-process gp-1 process-drawable-burn-effect 1200)
|
|
(-> gp-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(('tar)
|
|
(sound-play-by-name (static-sound-name "get-burned") (new-sound-id) 1024 0 0 1 #t)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-hit-push
|
|
;; INFO: Return type mismatch symbol vs object.
|
|
;; Used lq/sq
|
|
(defbehavior target-hit-push target ((arg0 vector) (arg1 matrix) (arg2 float) (arg3 float) (arg4 attack-info))
|
|
(case (-> arg4 angle)
|
|
(('jump 'up 'up-forward)
|
|
(when (and (zero? (logand (-> self control root-prim prim-core action) (collide-action ca-9 ca-14)))
|
|
(not (and (= (-> self game mode) 'play) (>= 0.0 (-> self fact-info-target health))))
|
|
)
|
|
(if (and (cpad-pressed? (-> self control unknown-cpad-info00 number) circle) (can-feet?))
|
|
(go target-attack-air #f)
|
|
)
|
|
(if (and (cpad-pressed? (-> self control unknown-cpad-info00 number) square)
|
|
(< (vector-dot (-> self control dynam gravity-normal) (-> self control transv)) 26624.0)
|
|
(and (< -61440.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
|
|
(>= (- (-> *display* base-frame-counter) (-> self control unknown-dword36))
|
|
(the-as time-frame (-> *TARGET-bank* stuck-timeout))
|
|
)
|
|
(zero? (logand (-> self state-flags) 4096))
|
|
(zero? (logand (-> self control unknown-surface01 flags) 384))
|
|
)
|
|
)
|
|
(go
|
|
target-flop
|
|
(the-as float 65502.96)
|
|
(the-as float -163840.0)
|
|
(the-as float (if (= (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) stick0-speed) 0.0)
|
|
0.0
|
|
68812.8
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (if (and (< (target-move-dist (-> *TARGET-bank* stuck-time)) (-> *TARGET-bank* stuck-distance))
|
|
(and (>= (- (-> *display* base-frame-counter) (-> self state-time))
|
|
(the-as time-frame (-> *TARGET-bank* stuck-time))
|
|
)
|
|
(not (and *cheat-mode* (cpad-hold? (-> self control unknown-cpad-info00 number) r2)))
|
|
)
|
|
)
|
|
#t
|
|
)
|
|
(logior! (-> self control status) 1)
|
|
(return (the-as object 'stuck))
|
|
)
|
|
(let ((s1-0 (new-stack-vector0)))
|
|
(set! (-> s1-0 z) arg2)
|
|
(vector-matrix*! s1-0 s1-0 arg1)
|
|
(vector+! s1-0 s1-0 arg0)
|
|
(cond
|
|
((< (vector-vector-distance arg0 s1-0) (fabs (-> arg4 dist)))
|
|
(velocity-set-to-target! s1-0 (fabs arg3) arg4)
|
|
#t
|
|
)
|
|
(else
|
|
(set! (-> self control unknown-float40) 0.0)
|
|
(set! (-> self control unknown-float41) (- 1.0 (-> arg4 control)))
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function target-hit-orient
|
|
(defbehavior target-hit-orient target ((arg0 attack-info) (arg1 vector))
|
|
(let ((s5-0 #f))
|
|
(if (and (!= (-> arg0 angle) 'front)
|
|
(!= (-> arg0 angle) 'shove)
|
|
(logtest? (-> arg0 mask) 2)
|
|
(!= (-> arg0 shove-back) 0.0)
|
|
)
|
|
(forward-up-nopitch->quaternion (-> self control dir-targ) arg1 (-> self control dynam gravity-normal))
|
|
)
|
|
(case (-> arg0 angle)
|
|
(('back 'air)
|
|
(set! s5-0 #t)
|
|
)
|
|
(('up-forward)
|
|
(set! (-> self control unknown-surface00) *smack-up-mods*)
|
|
)
|
|
(('front)
|
|
(if (and (logtest? (-> arg0 mask) 2) (!= (-> arg0 shove-back) 0.0))
|
|
(forward-up-nopitch->quaternion
|
|
(-> self control dir-targ)
|
|
(vector-negate! (new 'stack-no-clear 'vector) arg1)
|
|
(-> self control dynam gravity-normal)
|
|
)
|
|
)
|
|
(set! s5-0 #t)
|
|
)
|
|
(('jump)
|
|
(set! s5-0 #t)
|
|
(set! (-> self control unknown-surface00) *forward-high-jump-mods*)
|
|
)
|
|
)
|
|
s5-0
|
|
)
|
|
)
|
|
|
|
;; definition for function target-hit-setup-anim
|
|
(defbehavior target-hit-setup-anim target ((arg0 attack-info))
|
|
(case (-> arg0 angle)
|
|
(('back)
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 74)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 22)
|
|
(let ((gp-1 (-> self skel root-channel 0)))
|
|
(joint-control-channel-group-eval!
|
|
gp-1
|
|
(the-as art-joint-anim (-> self draw art-group data 74))
|
|
num-func-identity
|
|
)
|
|
(let ((f0-0 0.0))
|
|
(set! (-> gp-1 frame-num) f0-0)
|
|
f0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('up 'up-forward)
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 75)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 22)
|
|
(let ((gp-2 (-> self skel root-channel 0)))
|
|
(joint-control-channel-group-eval!
|
|
gp-2
|
|
(the-as art-joint-anim (-> self draw art-group data 75))
|
|
num-func-identity
|
|
)
|
|
(let ((f0-1 0.0))
|
|
(set! (-> gp-2 frame-num) f0-1)
|
|
f0-1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('air 'jump)
|
|
(ja-channel-push! 1 15)
|
|
(let ((a0-21 (-> self skel root-channel 0)))
|
|
(set! (-> a0-21 frame-group) (the-as art-joint-anim (-> self draw art-group data 34)))
|
|
(set! (-> a0-21 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 34)) data 0 length) -1))
|
|
)
|
|
(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 34)) num-func-seek!)
|
|
)
|
|
(when (= (-> arg0 angle) 'air)
|
|
(sound-play-by-name (static-sound-name "smack-surface") (new-sound-id) 1024 0 0 1 #t)
|
|
(dummy-10 (-> self skel effect) 'group-smack-surface (the-as float 0.0) 5)
|
|
(dummy-10 (-> self skel effect) 'group-smack-surface-dizzy (the-as float 0.0) 8)
|
|
)
|
|
)
|
|
(('shove)
|
|
(ja-channel-push! 1 15)
|
|
(let ((a0-30 (-> self skel root-channel 0)))
|
|
(set! (-> a0-30 frame-group) (the-as art-joint-anim (-> self draw art-group data 78)))
|
|
(set! (-> a0-30 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 78)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-30 param 1) 1.0)
|
|
(set! (-> a0-30 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-30 (the-as art-joint-anim (-> self draw art-group data 78)) num-func-seek!)
|
|
)
|
|
(sound-play-by-name (static-sound-name "smack-surface") (new-sound-id) 1024 0 0 1 #t)
|
|
)
|
|
(else
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 73)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 22)
|
|
(let ((gp-5 (-> self skel root-channel 0)))
|
|
(joint-control-channel-group-eval!
|
|
gp-5
|
|
(the-as art-joint-anim (-> self draw art-group data 73))
|
|
num-func-identity
|
|
)
|
|
(let ((f0-10 0.0))
|
|
(set! (-> gp-5 frame-num) f0-10)
|
|
f0-10
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function target-hit-move
|
|
;; INFO: Return type mismatch int vs none.
|
|
;; Used lq/sq
|
|
(defbehavior target-hit-move target ((arg0 attack-info) (arg1 symbol) (arg2 (function none :behavior target)) (arg3 float))
|
|
(local-vars (v1-40 symbol) (s2-1 object))
|
|
(vector-identity! (-> self control transv))
|
|
(let ((s3-0 (new-stack-vector0)))
|
|
(let ((f0-1 (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
|
|
0.0
|
|
(vector-! s3-0 (-> self control transv) (vector-float*! s3-0 (-> self control dynam gravity-normal) f0-1))
|
|
)
|
|
(let* ((f0-2 (vector-length s3-0))
|
|
(f1-1 f0-2)
|
|
(f2-1 (+ 2048.0 (sqrtf (* 491520.0 (-> arg0 shove-up)))))
|
|
)
|
|
(vector+!
|
|
(-> self control transv)
|
|
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f2-1)
|
|
(vector-float*! s3-0 s3-0 (/ f0-2 f1-1))
|
|
)
|
|
)
|
|
)
|
|
(let ((s3-1 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s3-1 quad) (-> self control trans quad))
|
|
(let ((s1-1 (matrix-rotate-y! (new 'stack-no-clear 'matrix) (+ 32768.0 (vector-y-angle (-> arg0 vector)))))
|
|
(f30-1 0.0)
|
|
)
|
|
(set-quaternion! (-> self control) (-> self control dir-targ))
|
|
#t
|
|
(let ((f28-1 (* 1.05 (/ (* -60.0 arg3) (* (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
(ja-step 0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(until v1-40
|
|
(+! f30-1 (* (-> arg0 shove-back) f28-1 (-> *display* seconds-per-frame)))
|
|
(set! s2-1 (target-hit-push s3-1 s1-1 f30-1 (* (-> arg0 shove-back) f28-1) arg0))
|
|
(suspend)
|
|
(let ((a0-14 (-> self skel root-channel 0)))
|
|
(set! (-> a0-14 param 0) (the float (+ (-> a0-14 frame-group data 0 length) -1)))
|
|
(set! (-> a0-14 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-14 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(set! v1-40 (or (ja-done? 0) (and arg1 (logtest? (-> self control status) 1))))
|
|
)
|
|
(while (and (or (zero? (logand (-> self control status) 1)) s2-1) (!= s2-1 'stuck))
|
|
(arg2)
|
|
(+! f30-1 (* (-> arg0 shove-back) f28-1 (-> *display* seconds-per-frame)))
|
|
(set! s2-1 (target-hit-push s3-1 s1-1 f30-1 (* (-> arg0 shove-back) f28-1) arg0))
|
|
(if (not s2-1)
|
|
(set! (-> self state-flags) (logand -9 (-> self state-flags)))
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate target-hit (target)
|
|
:event
|
|
target-standard-event-handler
|
|
:exit
|
|
(behavior ()
|
|
(let ((gp-0 (new-stack-vector0))
|
|
(f30-0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
|
|
)
|
|
0.0
|
|
(vector-! gp-0 (-> self control transv) (vector-float*! gp-0 (-> self control dynam gravity-normal) f30-0))
|
|
(let* ((f1-0 (vector-length gp-0))
|
|
(f0-3 f1-0)
|
|
)
|
|
(if (< 40960.0 f1-0)
|
|
(set! f1-0 40960.0)
|
|
)
|
|
(vector+!
|
|
(-> self control transv)
|
|
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f30-0)
|
|
(vector-float*! gp-0 gp-0 (/ f1-0 f0-3))
|
|
)
|
|
)
|
|
)
|
|
(if (!= (-> self next-state name) 'target-death)
|
|
(set! (-> self state-flags) (logand -32777 (-> self state-flags)))
|
|
)
|
|
(target-exit)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(when (= *cheat-mode* 'debug)
|
|
(when (and (not *pause-lock*) (cpad-hold? (-> self control unknown-cpad-info00 number) r2))
|
|
(pickup-collectable! (-> self fact-info-target) (pickup-type eco-green) (the-as float 1.0) (the-as handle #f))
|
|
(go target-stance)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ((arg0 symbol) (arg1 attack-info))
|
|
(set! (-> self water flags) (logand -65537 (-> self water flags)))
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(let ((gp-0 (-> self attack-info)))
|
|
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
|
(let ((v1-4 gp-0))
|
|
(set! (-> v1-4 attacker) (the-as handle #f))
|
|
(set! (-> v1-4 mode) 'generic)
|
|
(set! (-> v1-4 shove-back) 6144.0)
|
|
(set! (-> v1-4 shove-up) 4915.2)
|
|
(set! (-> v1-4 angle) #f)
|
|
(set! (-> v1-4 trans quad) (-> self control trans quad))
|
|
(set! (-> v1-4 control) 0.0)
|
|
(set! (-> v1-4 invinc-time) (-> *TARGET-bank* hit-invulnerable-timeout))
|
|
)
|
|
(case arg0
|
|
(('shove)
|
|
(let ((v1-7 gp-0))
|
|
(set! (-> v1-7 shove-back) (-> *TARGET-bank* smack-surface-dist))
|
|
(set! (-> v1-7 shove-up) (-> *TARGET-bank* smack-surface-height))
|
|
(set! (-> v1-7 angle) 'shove)
|
|
)
|
|
)
|
|
)
|
|
(combine! gp-0 arg1)
|
|
(when (zero? (logand (-> gp-0 mask) 2))
|
|
(vector-z-quaternion! (-> gp-0 vector) (-> self control unknown-quaternion00))
|
|
(vector-xz-normalize! (-> gp-0 vector) (- (fabs (-> gp-0 shove-back))))
|
|
(set! (-> gp-0 vector y) (-> gp-0 shove-up))
|
|
)
|
|
(set! (-> s5-0 quad) (-> gp-0 vector quad))
|
|
(let ((f0-10 (vector-dot
|
|
(vector-normalize-copy! (new 'stack-no-clear 'vector) s5-0 (the-as float 1.0))
|
|
(vector-z-quaternion! (new 'stack-no-clear 'vector) (-> self control unknown-quaternion00))
|
|
)
|
|
)
|
|
)
|
|
(if (not (-> self attack-info angle))
|
|
(set! (-> self attack-info angle) (if (>= 0.0 f0-10)
|
|
'front
|
|
'back
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (= arg0 'attack)
|
|
(logior! (-> self state-flags) 8)
|
|
(set! (-> self game hit-time) (-> *display* base-frame-counter))
|
|
(case (-> gp-0 mode)
|
|
(('endlessfall)
|
|
(cond
|
|
((= (-> self game mode) 'debug)
|
|
(let ((s4-1 (new-stack-vector0)))
|
|
(set! (-> s4-1 quad) (-> self control last-known-safe-ground quad))
|
|
(ja-channel-set! 0)
|
|
(let ((s3-1 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) s3-1) (seconds 1))
|
|
(suspend)
|
|
)
|
|
)
|
|
(move-to-point! (-> self control) s4-1)
|
|
)
|
|
(set! (-> (&-> (-> self control) unknown-qword00) 0) (-> self control trans quad))
|
|
(send-event *camera* 'teleport)
|
|
(go target-stance)
|
|
)
|
|
(else
|
|
(pickup-collectable!
|
|
(-> self fact-info-target)
|
|
(pickup-type eco-green)
|
|
(the-as float -1000.0)
|
|
(the-as handle #f)
|
|
)
|
|
(go target-death (-> gp-0 mode))
|
|
)
|
|
)
|
|
)
|
|
(('drown-death 'sharkey 'lava 'dark-eco-pool 'ogreboss-super-boulder 'melt 'instant-death)
|
|
(pickup-collectable!
|
|
(-> self fact-info-target)
|
|
(pickup-type eco-green)
|
|
(the-as float -1000.0)
|
|
(the-as handle #f)
|
|
)
|
|
(if (= (-> self game mode) 'play)
|
|
(go target-death (-> gp-0 mode))
|
|
)
|
|
)
|
|
(('death)
|
|
(pickup-collectable!
|
|
(-> self fact-info-target)
|
|
(pickup-type eco-green)
|
|
(the-as float -1000.0)
|
|
(the-as handle #f)
|
|
)
|
|
)
|
|
(('plant-boss)
|
|
(pickup-collectable!
|
|
(-> self fact-info-target)
|
|
(pickup-type eco-green)
|
|
(- (-> *FACT-bank* health-single-inc))
|
|
(the-as handle #f)
|
|
)
|
|
(if (and (= (-> self game mode) 'play) (>= 0.0 (-> self fact-info-target health)))
|
|
(go target-death (-> gp-0 mode))
|
|
)
|
|
)
|
|
(else
|
|
(pickup-collectable!
|
|
(-> self fact-info-target)
|
|
(pickup-type eco-green)
|
|
(- (-> *FACT-bank* health-single-inc))
|
|
(the-as handle #f)
|
|
)
|
|
)
|
|
)
|
|
(target-hit-effect gp-0)
|
|
)
|
|
(set! (-> self control unknown-surface00) *smack-mods*)
|
|
(target-hit-setup-anim gp-0)
|
|
(target-hit-move gp-0 (target-hit-orient gp-0 s5-0) target-falling-anim-trans (the-as float 1.0))
|
|
)
|
|
(if (and (= (-> self game mode) 'play) (>= 0.0 (-> self fact-info-target health)))
|
|
(go target-death (-> gp-0 mode))
|
|
)
|
|
)
|
|
(go target-hit-ground #f)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior target) target-post)
|
|
)
|
|
|
|
;; definition for symbol *death-spool-array*, type (array spool-anim)
|
|
(define *death-spool-array*
|
|
(the-as (array spool-anim)
|
|
(new
|
|
'static
|
|
'boxed-array
|
|
:type spool-anim :length 11 :allocated-length 11
|
|
(new 'static 'spool-anim :name "death-0181" :index 3 :parts 1 :command-list '())
|
|
(new 'static 'spool-anim :name "death-0182" :index 4 :parts 1 :command-list '())
|
|
(new 'static 'spool-anim :name "death-0184" :index 5 :parts 1 :command-list '())
|
|
(new 'static 'spool-anim :name "death-0186" :index 6 :parts 1 :command-list '())
|
|
(new 'static 'spool-anim :name "death-0187" :index 7 :parts 1 :command-list '())
|
|
(new 'static 'spool-anim :name "death-0191" :index 8 :parts 1 :command-list '())
|
|
(new 'static 'spool-anim :name "death-0193" :index 9 :parts 2 :command-list '())
|
|
(new 'static 'spool-anim :name "death-0195" :index 10 :parts 1 :command-list '())
|
|
(new 'static 'spool-anim :name "death-0197" :index 11 :parts 2 :command-list '())
|
|
(new 'static 'spool-anim :name "death-0199" :index 12 :parts 2 :command-list '())
|
|
(new 'static 'spool-anim :name "death-0202" :index 13 :parts 1 :command-list '())
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if (!= *kernel-boot-message* 'play)
|
|
(set! (-> *death-spool-array* length) 3)
|
|
)
|
|
|
|
;; definition for function death-movie-remap
|
|
(defun death-movie-remap ((arg0 int) (arg1 int))
|
|
(let ((v1-0 (/ arg0 arg1)))
|
|
(mod
|
|
(if (zero? (logand v1-0 1))
|
|
(logxor v1-0 arg0)
|
|
(logand #xfffffff (- (logxor v1-0 arg0)))
|
|
)
|
|
arg1
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function target-death-anim
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defbehavior target-death-anim target ((arg0 spool-anim))
|
|
(set! (-> self control unknown-surface00) *neutral-mods*)
|
|
(ja-channel-push! 1 30)
|
|
(let ((a0-3 (-> self skel root-channel 0)))
|
|
(set! (-> a0-3 frame-group) (the-as art-joint-anim (-> self draw art-group data 76)))
|
|
(set! (-> a0-3 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 76)) data 0 length) -1))
|
|
)
|
|
(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 76)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(if arg0
|
|
(spool-push *art-control* (-> arg0 name) 0 self (the-as float -99.0))
|
|
)
|
|
(send-event *camera* 'joystick 0.0 -1.0)
|
|
(TODO-RENAME-9 (-> self align))
|
|
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
|
(when (zero? (logand (-> self align flags) 1))
|
|
(vector-matrix*! s5-0 (the-as vector (-> self align delta)) (-> self control unknown-matrix01))
|
|
(vector-float*! (-> self control transv) s5-0 (-> *display* frames-per-second))
|
|
)
|
|
)
|
|
(suspend)
|
|
(let ((a0-9 (-> self skel root-channel 0)))
|
|
(set! (-> a0-9 param 0) (the float (+ (-> a0-9 frame-group data 0 length) -1)))
|
|
(set! (-> a0-9 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-9 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate target-death (target)
|
|
:exit
|
|
(behavior ()
|
|
(set! (-> self state-flags) (logand -32777 (-> self state-flags)))
|
|
(target-exit)
|
|
(clear-pending-settings-from-process *setting-control* self 'process-mask)
|
|
(clear-pending-settings-from-process *setting-control* self 'allow-progress)
|
|
(restore-collide-with-as (-> self control))
|
|
(set! (-> self control pat-ignore-mask) (new 'static 'pat-surface :noentity #x1))
|
|
(set! (-> self control dynam gravity-max) (-> self control unknown-dynamics00 gravity-max))
|
|
(set! (-> self control dynam gravity-length) (-> self control unknown-dynamics00 gravity-length))
|
|
(none)
|
|
)
|
|
:trans
|
|
(-> target-hit trans)
|
|
:code
|
|
(behavior ((arg0 symbol))
|
|
(set! (-> self control unknown-uint20) (the-as uint #f))
|
|
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-0 from) self)
|
|
(set! (-> a1-0 num-params) 2)
|
|
(set! (-> a1-0 message) 'target)
|
|
(set! (-> a1-0 param 0) (the-as uint 'die))
|
|
(set! (-> a1-0 param 1) (the-as uint arg0))
|
|
(set! (-> self control unknown-int21)
|
|
(the-as int (send-event-function (handle->process (-> self attack-info attacker)) a1-0))
|
|
)
|
|
)
|
|
(set! (-> self neck flex-blend) 0.0)
|
|
(target-timed-invulnerable-off self)
|
|
(set-setting! *setting-control* self 'process-mask 'set (the-as float 0.0) #x14a0000)
|
|
(copy-settings-from-target! *setting-control*)
|
|
(set! (-> self control transv quad) (the-as uint128 0))
|
|
(logior! (-> self state-flags) #x8000)
|
|
(case arg0
|
|
(('none 'instant-death)
|
|
)
|
|
(('ogreboss-super-boulder)
|
|
(set! (-> self post-hook) target-no-ja-move-post)
|
|
(-> self attack-info attacker)
|
|
(ja-channel-set! 0)
|
|
(ja-post)
|
|
(let ((gp-1 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) gp-1) (seconds 1))
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
(('drown 'drown-death)
|
|
(sound-play-by-name (static-sound-name "death-drown") (new-sound-id) 1024 0 0 1 #t)
|
|
(set! (-> self water flags) (logand -17 (-> self water flags)))
|
|
(clear-collide-with-as (-> self control))
|
|
(set! (-> self control unknown-surface00) *dive-mods*)
|
|
(set! (-> self control dynam gravity-max) 6144.0)
|
|
(set! (-> self control dynam gravity-length) 6144.0)
|
|
(ja-channel-push! 1 30)
|
|
(let ((f30-0 0.7)
|
|
(gp-3 (-> self skel root-channel 0))
|
|
)
|
|
(set! (-> gp-3 frame-group) (the-as art-joint-anim (-> self draw art-group data 93)))
|
|
(set! (-> gp-3 param 0) (ja-aframe (the-as float 73.0) 0))
|
|
(let ((f30-1 (seek f30-0 (the-as float 0.05) (* 1.5 (-> *display* seconds-per-frame)))))
|
|
(set! (-> gp-3 param 1) f30-1)
|
|
(set! (-> gp-3 frame-num) 0.0)
|
|
(joint-control-channel-group! gp-3 (the-as art-joint-anim (-> self draw art-group data 93)) num-func-seek!)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((gp-4 (-> self skel root-channel 0)))
|
|
(set! (-> gp-4 param 0) (ja-aframe (the-as float 73.0) 0))
|
|
(set! f30-1 (seek f30-1 (the-as float 0.05) (* 1.5 (-> *display* seconds-per-frame))))
|
|
(set! (-> gp-4 param 1) f30-1)
|
|
(joint-control-channel-group-eval! gp-4 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('lava 'dark-eco-pool 'melt)
|
|
(let ((s5-1 (handle->process (-> self attack-info attacker))))
|
|
(when (if (and (nonzero? s5-1) (type-type? (-> s5-1 type) water-vol))
|
|
s5-1
|
|
)
|
|
(set! (-> self state-flags) (logior #x80000 (-> self state-flags)))
|
|
(set! (-> self alt-cam-pos y) (+ 4096.0 (-> self water height)))
|
|
)
|
|
)
|
|
(cond
|
|
((= arg0 'dark-eco-pool)
|
|
(sound-play-by-name (static-sound-name "death-darkeco") (new-sound-id) 1024 0 0 1 #t)
|
|
(let ((gp-6 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when gp-6
|
|
(let ((t9-21 (method-of-type part-tracker activate)))
|
|
(t9-21 (the-as part-tracker gp-6) *entity-pool* 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process gp-6 part-tracker-init (-> *part-group-id-table* 31) -1 #f #f #f (-> self control trans))
|
|
(-> gp-6 ppointer)
|
|
)
|
|
)
|
|
)
|
|
((or (= arg0 'lava) (= arg0 'melt))
|
|
(sound-play-by-name (static-sound-name "death-melt") (new-sound-id) 1024 0 0 1 #t)
|
|
(let ((gp-8 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when gp-8
|
|
(let ((t9-26 (method-of-type part-tracker activate)))
|
|
(t9-26 (the-as part-tracker gp-8) *entity-pool* 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process gp-8 part-tracker-init (-> *part-group-id-table* 32) -1 #f #f #f (-> self control trans))
|
|
(-> gp-8 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(clear-collide-with-as (-> self control))
|
|
(set! (-> self post-hook) target-no-ja-move-post)
|
|
(ja-channel-set! 0)
|
|
(ja-post)
|
|
(let ((gp-9 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) gp-9) (seconds 2))
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
(('endlessfall)
|
|
(sound-play-by-name (static-sound-name "death-fall") (new-sound-id) 1024 0 0 1 #t)
|
|
(camera-change-to (the-as string cam-endlessfall) 30 #f)
|
|
(set! (-> self control pat-ignore-mask unknown-bit) 1)
|
|
(set! (-> self water flags) (logand -17 (-> self water flags)))
|
|
(let ((f30-2 (fmin -4096.0 (- (-> self control ground-impact-vel)))))
|
|
(set! (-> self control unknown-uint20) (the-as uint f30-2))
|
|
(let ((gp-11 (new-stack-vector0)))
|
|
(let ((f0-14 (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
|
|
0.0
|
|
(vector-! gp-11 (-> self control transv) (vector-float*! gp-11 (-> self control dynam gravity-normal) f0-14))
|
|
)
|
|
(let* ((f0-15 (vector-length gp-11))
|
|
(f1-6 f0-15)
|
|
)
|
|
(vector+!
|
|
(-> self control transv)
|
|
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f30-2)
|
|
(vector-float*! gp-11 gp-11 (/ f0-15 f1-6))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self trans-hook)
|
|
(lambda :behavior target
|
|
()
|
|
(vector-seek! (-> self draw color-mult) *zero-vector* (-> *display* seconds-per-frame))
|
|
(let ((gp-0 (new-stack-vector0))
|
|
(f30-0 (the-as number (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
|
|
)
|
|
0.0
|
|
(vector-!
|
|
gp-0
|
|
(-> self control transv)
|
|
(vector-float*! gp-0 (-> self control dynam gravity-normal) (the-as float f30-0))
|
|
)
|
|
(let* ((f0-4 (vector-length gp-0))
|
|
(f1-0 f0-4)
|
|
)
|
|
(if (< (the-as float (-> self control unknown-uint20)) (the-as float f30-0))
|
|
(set! f30-0 (-> self control unknown-uint20))
|
|
)
|
|
(vector+!
|
|
(-> self control transv)
|
|
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) (the-as float f30-0))
|
|
(vector-float*! gp-0 gp-0 (/ f0-4 f1-0))
|
|
)
|
|
)
|
|
)
|
|
((-> target-hit trans))
|
|
(none)
|
|
)
|
|
)
|
|
(target-falling-anim (seconds 0.1) 99)
|
|
(ja-channel-push! 1 90)
|
|
(let ((a0-75 (-> self skel root-channel 0)))
|
|
(set! (-> a0-75 frame-group) (the-as art-joint-anim (-> self draw art-group data 43)))
|
|
(set! (-> a0-75 param 0) 0.5)
|
|
(set! (-> a0-75 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-75 (the-as art-joint-anim (-> self draw art-group data 43)) num-func-loop!)
|
|
)
|
|
(let ((gp-12 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) gp-12) (seconds 0.8))
|
|
(let ((a0-76 (-> self skel root-channel 0)))
|
|
(set! (-> a0-76 frame-group) (the-as art-joint-anim (-> self draw art-group data 43)))
|
|
(set! (-> a0-76 param 0) 0.5)
|
|
(joint-control-channel-group-eval!
|
|
a0-76
|
|
(the-as art-joint-anim (-> self draw art-group data 43))
|
|
num-func-loop!
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
(camera-change-to (the-as string 'base) 0 #f)
|
|
)
|
|
(('target-hit-ground-hard)
|
|
(set! (-> self control unknown-surface00) *neutral-mods*)
|
|
(ja-channel-push! 1 30)
|
|
(let ((a0-81 (-> self skel root-channel 0)))
|
|
(set! (-> a0-81 frame-group) (the-as art-joint-anim (-> self draw art-group data 77)))
|
|
(set! (-> a0-81 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 77)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-81 param 1) 1.0)
|
|
(set! (-> a0-81 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-81 (the-as art-joint-anim (-> self draw art-group data 77)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-82 (-> self skel root-channel 0)))
|
|
(set! (-> a0-82 param 0) (the float (+ (-> a0-82 frame-group data 0 length) -1)))
|
|
(set! (-> a0-82 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-82 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(('sharkey)
|
|
(send-event self 'dry)
|
|
(set! (-> self post-hook) target-no-ja-move-post)
|
|
(let ((gp-13 (-> self attack-info attacker)))
|
|
(ja-channel-set! 0)
|
|
(ja-post)
|
|
(while (and (handle->process gp-13) (not (-> self control unknown-spoolanim00)))
|
|
(send-event *camera* 'joystick 0.0 0.0)
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
(('plant-boss)
|
|
(set! (-> self trans-hook) #f)
|
|
(let ((gp-14 (-> self attack-info attacker))
|
|
(a1-44 (new 'stack-no-clear 'event-message-block))
|
|
)
|
|
(set! (-> a1-44 from) self)
|
|
(set! (-> a1-44 num-params) 0)
|
|
(set! (-> a1-44 message) 'joint)
|
|
(let ((s5-5 (the-as int (send-event-function (handle->process gp-14) a1-44))))
|
|
(send-event (ppointer->process (-> self sidekick)) 'matrix 'copy-parent)
|
|
(set! (-> self post-hook) target-no-ja-move-post)
|
|
(let ((a0-98 (-> self node-list data)))
|
|
(set! (-> a0-98 0 param0) nothing)
|
|
(set! (-> a0-98 0 param1) #f)
|
|
(set! (-> a0-98 0 param2) #f)
|
|
)
|
|
(while (and (handle->process gp-14) (not (-> self control unknown-spoolanim00)) (-> self control unknown-int21))
|
|
(let* ((v1-205 (-> (the-as process-drawable (handle->process gp-14)) node-list data s5-5 bone transform))
|
|
(a3-9 (-> self node-list data 0 bone transform))
|
|
(a0-106 (-> v1-205 vector 0 quad))
|
|
(a1-47 (-> v1-205 vector 1 quad))
|
|
(a2-26 (-> v1-205 vector 2 quad))
|
|
(v1-206 (-> v1-205 vector 3 quad))
|
|
)
|
|
(set! (-> a3-9 vector 0 quad) a0-106)
|
|
(set! (-> a3-9 vector 1 quad) a1-47)
|
|
(set! (-> a3-9 vector 2 quad) a2-26)
|
|
(set! (-> a3-9 vector 3 quad) v1-206)
|
|
)
|
|
(clone-anim-once gp-14 33 #f "")
|
|
(suspend)
|
|
0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('burn 'burnup)
|
|
(let ((gp-15 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when gp-15
|
|
(let ((t9-52 (method-of-type part-tracker activate)))
|
|
(t9-52 (the-as part-tracker gp-15) *entity-pool* 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
gp-15
|
|
part-tracker-init
|
|
(-> *part-group-id-table* 708)
|
|
-1
|
|
#f
|
|
#f
|
|
#f
|
|
(-> self control trans)
|
|
)
|
|
(-> gp-15 ppointer)
|
|
)
|
|
)
|
|
(target-death-anim (the-as spool-anim #f))
|
|
)
|
|
(else
|
|
(case arg0
|
|
(('tar)
|
|
(sound-play-by-name (static-sound-name "death-drown") (new-sound-id) 1024 0 0 1 #t)
|
|
)
|
|
)
|
|
(+! (-> *game-info* death-movie-tick) 1)
|
|
(if (= (death-movie-remap (+ (-> *game-info* death-movie-tick) -1) (-> *death-spool-array* length))
|
|
(death-movie-remap (-> *game-info* death-movie-tick) (-> *death-spool-array* length))
|
|
)
|
|
(+! (-> *game-info* death-movie-tick) 1)
|
|
)
|
|
(let ((gp-18
|
|
(-> *death-spool-array* (death-movie-remap (-> *game-info* death-movie-tick) (-> *death-spool-array* length)))
|
|
)
|
|
)
|
|
(set-setting! *setting-control* self 'allow-progress #f (the-as float 0.0) 0)
|
|
(target-death-anim gp-18)
|
|
(when (and (< (rand-vu-int-count (-> *game-info* death-movie-tick)) (* (-> *death-spool-array* length) 2))
|
|
(zero? (logand (-> self water flags) 512))
|
|
(!= (-> self control ground-pat material) 9)
|
|
(!= (-> self control ground-pat material) 10)
|
|
)
|
|
(iterate-process-tree
|
|
*entity-pool*
|
|
(lambda :behavior target
|
|
((arg0 process))
|
|
(if (and (logtest? (process-mask enemy) (-> arg0 mask))
|
|
(type-type? (-> arg0 type) process-drawable)
|
|
(nonzero? (-> (the-as process-drawable arg0) root))
|
|
(< (vector-vector-distance (-> (the-as process-drawable arg0) root trans) (-> *target* control trans))
|
|
61440.0
|
|
)
|
|
)
|
|
(process-entity-status! arg0 (entity-perm-status bit-9) #t)
|
|
)
|
|
)
|
|
*null-kernel-context*
|
|
)
|
|
(set! (-> *ACTOR-bank* birth-max) 1000)
|
|
(set! (-> self trans-hook) #f)
|
|
(send-event (ppointer->process (-> self sidekick)) 'matrix 'play-anim)
|
|
(send-event (ppointer->process (-> self sidekick)) 'shadow #f)
|
|
(send-event self 'blend-shape #t)
|
|
(let* ((s5-7 (get-process *default-dead-pool* pov-camera #x4000))
|
|
(s5-8
|
|
(ppointer->handle
|
|
(when s5-7
|
|
(let ((t9-68 (method-of-type pov-camera activate)))
|
|
(t9-68 (the-as pov-camera s5-7) *target-pool* 'pov-camera (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-7 pov-camera-init-by-other (-> self control trans) *deathcam-sg* gp-18 4 self '())
|
|
(-> s5-7 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event (handle->process s5-8) 'music-movie-volume 0.0)
|
|
(send-event (handle->process s5-8) 'sfx-movie-volume 50.0)
|
|
(set! (-> self post-hook) target-no-ja-move-post)
|
|
(while (not (-> self control unknown-spoolanim00))
|
|
(spool-push *art-control* (-> gp-18 name) 0 self (the-as float -99.0))
|
|
(clone-anim-once s5-8 33 #f "")
|
|
(suspend)
|
|
)
|
|
(let ((a0-155 (handle->process s5-8)))
|
|
(if a0-155
|
|
(deactivate a0-155)
|
|
)
|
|
)
|
|
)
|
|
(send-event (ppointer->process (-> self sidekick)) 'shadow #t)
|
|
(suspend)
|
|
0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self control transv quad) (the-as uint128 0))
|
|
(initialize! (-> self game) 'dead (the-as game-save #f) (the-as string #f))
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(anim-loop)
|
|
(none)
|
|
)
|
|
:post
|
|
target-no-stick-post
|
|
)
|