mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-17 05:31:46 -04:00
Code Issues Packages Projects Releases Wiki Activity
Files
2ef23b27863c3bf851cf918f133bf073e05d434c
jak-project/test/decompiler/reference/jak3/engine/target/target_REF.gc
T
Hat Kid 93afb02cf4 decomp3: spawn target, add merc and particle buckets and some temporary hacks (#3445) 
This includes all the collision stuff needed to spawn `target`,
decompiles the sparticle code and adds some of the PC hacks needed for
merc to run (it doesn't work quite right and looks bad, likely due to a
combination of code copied from Jak 2 and the time of day hacks).

There are a bunch of temporary hacks (see commits) in place to prevent
the game from crashing quite as much, but it is still extremely prone to
doing so due to lots of missing functions/potentially bad decomp.

---------

Co-authored-by: water <awaterford111445@gmail.com>
2024-04-05 00:07:39 -04:00

4233 lines
161 KiB
Common Lisp
Vendored
Generated
Raw Blame History

;;-*-Lisp-*-
(in-package goal)
;; definition for function target-falling-trans
;; WARN: Return type mismatch int vs none.
(defbehavior target-falling-trans target ((arg0 symbol) (arg1 time-frame) (arg2 symbol))
(set! arg2 (and (cpad-pressed? (-> self control cpad number) circle) (and (can-feet? #f) arg2)))
(if arg2
(go target-attack-air #f)
)
(when (= arg0 'target-eco-powerup)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(not (logtest? (water-flag touch-water) (-> self water flags)))
(not (time-elapsed? (-> self state-time) (seconds 3)))
(not (logtest? (-> self target-flags) (target-flags prevent-jump)))
)
(target-jump-go)
)
)
(if (logtest? (-> self control status) (collide-status on-surface))
(go target-hit-ground #f)
)
(when (if (and (< (target-move-dist (-> *TARGET-bank* stuck-time)) (-> *TARGET-bank* stuck-distance))
(>= arg1 0)
(time-elapsed? (-> self state-time) arg1)
(not (and *cheat-mode* (cpad-hold? (-> self control cpad number) r2)))
)
#t
)
(logior! (-> self control status) (collide-status on-surface))
(go target-hit-ground 'stuck)
)
(when (and (and (focus-test? self light) (nonzero? (-> self lightjak)))
(and (cpad-pressed? (-> self control cpad number) triangle)
(logtest? (the-as game-feature (logand (game-feature lightjak-regen) (-> *setting-control* user-current features)))
(-> self game features)
)
(and (< (-> self fact health) (-> self fact health-max)) (zero? (-> self lightjak latch-out-time)))
)
)
(set! (-> self lightjak lightjak-before-powerjak) #t)
(go target-lightjak-regen 0)
)
(if (!= (-> self state-time) (current-time))
(slide-down-test)
)
0
(none)
)
;; failed to figure out what this is:
(defstate target-startup (target)
:event target-standard-event-handler
:code (behavior ()
(suspend)
(suspend)
(go target-stance)
)
:post target-no-move-post
)
;; failed to figure out what this is:
(defstate target-stance (target)
:event target-standard-event-handler
:enter (behavior ()
(set! (-> self control mod-surface) *walk-mods*)
(set-time! (-> self state-time))
)
:exit (behavior ()
(logclear! (-> self target-flags) (target-flags lleg-still rleg-still))
(set! (-> self control bend-target) 0.0)
(target-state-hook-exit)
)
:trans (behavior ()
((-> self state-hook))
(if (and (logtest? (water-flag wading) (-> self water flags)) (not (using-gun? self)))
(go target-wade-stance)
)
(when (= (-> self control ground-pat material) (pat-material ice))
(set! (-> self control bend-target) 0.0)
(logclear! (-> self target-flags) (target-flags lleg-still rleg-still lleg-no-ik rleg-no-ik))
(remove-exit)
(go target-ice-stance)
)
(when (move-legs?)
(set! (-> self control bend-target) 0.0)
(logclear! (-> self target-flags) (target-flags lleg-still rleg-still lleg-no-ik rleg-no-ik))
(remove-exit)
(go target-walk)
)
(if (want-to-powerjak?)
(go target-powerjak-get-on)
)
(if (and (cpad-hold? (-> self control cpad number) r1)
(and (focus-test? self dark) (nonzero? (-> self darkjak)))
(= (-> self ext-anim) (target-anim dark))
(logtest? (the-as game-feature (logand (game-feature darkjak-smack) (-> *setting-control* user-current features)))
(-> self game features)
)
(can-hands? #t)
)
(go target-darkjak-smack-charge)
)
(when (and (cpad-pressed? (-> self control cpad number) triangle)
(logtest? (game-secrets button-invis) (-> self game secrets))
(and (focus-test? self dark) (nonzero? (-> self darkjak)))
(not (logtest? (target-flags invisible) (-> self target-flags)))
(>= (-> self game eco-pill-dark) (-> *FACT-bank* darkjak-button-invis-inc))
)
(target-invisible-start (seconds 30))
(if (not (logtest? (-> self darkjak stage) (darkjak-stage force-on active)))
(send-event self 'get-pickup (pickup-type eco-pill-dark) (- (-> *FACT-bank* darkjak-button-invis-inc)))
)
)
(when (and (cpad-hold? (-> self control cpad number) l1) (can-duck?))
(logclear! (-> self target-flags) (target-flags lleg-still rleg-still lleg-no-ik rleg-no-ik))
(set! (-> self control bend-target) 0.0)
(remove-exit)
(go target-duck-stance #f)
)
(when (and (and (focus-test? self light) (nonzero? (-> self lightjak)))
(and (cpad-pressed? (-> self control cpad number) triangle)
(logtest? (game-feature lightjak-regen) (-> self game features))
(and (< (-> self fact health) (-> self fact health-max)) (zero? (-> self lightjak latch-out-time)))
)
)
(set! (-> self lightjak lightjak-before-powerjak) #t)
(go target-lightjak-regen 0)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(can-jump? #f)
)
(target-jump-go)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons circle)
)
(can-feet? #t)
)
(go target-attack)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons square)
)
(can-hands? #t)
)
(go target-running-attack)
)
(if (and (using-gun? self)
(and (-> self next-state) (= (-> self next-state name) 'target-stance))
(let ((v1-163 (ja-group)))
(and v1-163 (or (= v1-163 jakb-stance-loop-ja) (= v1-163 jakb-lightjak-stance-ja)))
)
)
(go target-gun-stance)
)
(if (and (logtest? (game-feature feature19) (-> self game features))
(logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons r1)
)
)
(go target-carry-pickup)
)
(slide-down-test)
(fall-test target-falling (-> *TARGET-bank* fall-height))
)
:code target-stance-anim
:post target-post
)
;; failed to figure out what this is:
(defstate target-walk (target)
:event target-walk-event-handler
:enter (behavior ()
(set-time! (-> self state-time))
(set! (-> self control mod-surface) *walk-mods*)
)
:exit (behavior ()
(target-effect-exit)
(target-state-hook-exit)
)
:trans (behavior ()
((-> self state-hook))
(if (and (using-gun? self)
(and (-> self next-state) (= (-> self next-state name) 'target-walk))
(not (and (focus-test? self dark) (nonzero? (-> self darkjak))))
)
(go target-gun-walk)
)
(when (= (-> self control ground-pat material) (pat-material ice))
(target-effect-exit)
(remove-exit)
(go target-ice-walk)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons l1)
)
(and (!= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0) (can-roll?))
)
(go target-roll)
)
(when (and (cpad-hold? (-> self control cpad number) l1) (can-duck?))
(target-effect-exit)
(remove-exit)
(go target-duck-walk #f)
)
(when (not (move-legs?))
(target-effect-exit)
(remove-exit)
(go target-stance)
)
(if (want-to-powerjak?)
(go target-powerjak-get-on)
)
(if (and (cpad-hold? (-> self control cpad number) r1)
(and (focus-test? self dark) (nonzero? (-> self darkjak)))
(= (-> self ext-anim) (target-anim dark))
(logtest? (the-as game-feature (logand (game-feature darkjak-smack) (-> *setting-control* user-current features)))
(-> self game features)
)
(can-hands? #t)
)
(go target-darkjak-smack-charge)
)
(when (and (cpad-pressed? (-> self control cpad number) triangle)
(logtest? (game-secrets button-invis) (-> self game secrets))
(and (focus-test? self dark) (nonzero? (-> self darkjak)))
(not (logtest? (target-flags invisible) (-> self target-flags)))
(>= (-> self game eco-pill-dark) (-> *FACT-bank* darkjak-button-invis-inc))
)
(target-invisible-start (seconds 30))
(if (not (logtest? (-> self darkjak stage) (darkjak-stage force-on active)))
(send-event self 'get-pickup (pickup-type eco-pill-dark) (- (-> *FACT-bank* darkjak-button-invis-inc)))
)
)
(when (and (and (focus-test? self light) (nonzero? (-> self lightjak)))
(and (cpad-pressed? (-> self control cpad number) triangle)
(logtest? (game-feature lightjak-regen) (-> self game features))
(and (< (-> self fact health) (-> self fact health-max)) (zero? (-> self lightjak latch-out-time)))
)
)
(set! (-> self lightjak lightjak-before-powerjak) #t)
(go target-lightjak-regen 0)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(can-jump? #f)
)
(target-jump-go)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons circle)
)
(can-feet? #t)
)
(go target-attack)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons square)
)
(can-hands? #t)
)
(go target-running-attack)
)
(when (and (turn-around?) (time-elapsed? (-> self state-time) (seconds 0.3)))
(set! (-> self control transv quad)
(-> self control transv-history (-> self control idx-of-fastest-xz-vel) quad)
)
(set! (-> self control transv w) 1.0)
(go target-turn-around)
)
(if (and (logtest? (game-feature feature19) (-> self game features))
(logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons r1)
)
)
(go target-carry-pickup)
)
(if (wall-hide?)
(go target-hide)
)
(slide-down-test)
(fall-test target-falling (-> *TARGET-bank* fall-height))
)
:code (behavior ()
(target-walk-anim -300)
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-turn-around (target)
:event target-standard-event-handler
:enter (behavior ()
(vector-turn-to (-> self control transv))
(set! (-> self control mod-surface) *turn-around-mods*)
(set! (-> self control bend-target) 1.0)
)
:exit (behavior ()
(target-state-hook-exit)
(set-forward-vel 0.0)
(set! (-> self control ctrl-xz-vel) 0.0)
(set-quaternion! (-> self control) (-> self control dir-targ))
(set! (-> self control bend-target) 0.0)
)
:trans (behavior ()
((-> self state-hook))
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(can-jump? #f)
)
(target-jump-go)
)
(if (and (cpad-pressed? (-> self control cpad number) circle) (can-feet? #t))
(go target-attack)
)
(if (and (cpad-pressed? (-> self control cpad number) square) (can-hands? #t))
(go target-running-attack)
)
(if (and (not (logtest? (-> self control status) (collide-status on-surface)))
(time-elapsed? (-> self control last-time-on-surface) (seconds 0.08))
)
(go target-falling #f)
)
(slide-down-test)
)
:code (behavior ()
(ja-channel-push! 1 (seconds 0.04))
(ja :group! jakb-turn-around-ja :num! min)
(quaternion-rotate-y! (-> self control dir-targ) (-> self control dir-targ) 32768.0)
(compute-alignment! (-> self align))
(until (ja-done? 0)
(suspend)
(ja :num! (seek! max 2.0))
(compute-alignment! (-> self align))
(align! (-> self align) (align-opts adjust-quat) 1.0 1.0 1.0)
)
(remove-exit)
(set! (-> self control bend-target) 0.0)
(set! (-> self control ctrl-xz-vel) (* 40960.0 (-> self darkjak-giant-interp)))
(set-forward-vel (-> self control ctrl-xz-vel))
(target-state-hook-exit)
(go target-walk)
)
:post target-no-stick-post
)
;; failed to figure out what this is:
(defstate target-slide-down (target)
:event target-walk-event-handler
:enter (behavior ()
(set! (-> self control mod-surface) *jump-mods*)
)
:exit (behavior ()
(set-time! (-> self control unknown-time-frame13))
)
:trans (behavior ()
(when (or (logtest? (-> self control status) (collide-status on-surface))
(if (< (target-move-dist (-> *TARGET-bank* stuck-time)) (-> *TARGET-bank* stuck-distance))
#t
)
)
(logior! (-> self control status) (collide-status on-surface))
(if (using-gun? self)
(go target-stance)
(go target-duck-stance #f)
)
)
)
:code (behavior ()
(cond
((= (-> self ext-anim) (target-anim default))
(let ((v1-3 (ja-group)))
(if (not (and v1-3 (= v1-3 jakb-duck-stance-ja)))
(ja-channel-push! 1 (seconds 0.1))
)
)
(until #f
(ja-no-eval :group! jakb-duck-stance-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
)
#f
)
(else
(let ((v1-34 (ja-group)))
(if (not (and v1-34 (= v1-34 jakb-jump-loop-ja)))
(ja-channel-push! 1 (seconds 0.1))
)
)
(until #f
(ja-no-eval :group! jakb-jump-loop-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
)
#f
)
)
)
:post target-post
)
;; definition for symbol *slide-down-mods*, type surface
(define *slide-down-mods* (new 'static 'surface
:name 'run
:turnv 131072.0
:turnvf 60.0
:turnvv 524288.0
:turnvvf 30.0
:tiltv 65536.0
:tiltvf 150.0
:tiltvv 262144.0
:tiltvvf 15.0
:transv-max 81920.0
:target-speed 81920.0
:seek0 0.4
:seek90 0.4
:seek180 0.4
:fric 1.0
: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
:flags (surface-flag no-turn-around)
)
)
;; definition for symbol *slide-jump-mods*, type surface
(define *slide-jump-mods* (new 'static 'surface
:name 'jump
:turnv 32768.0
:turnvf 300.0
:turnvv 18204.445
:turnvvf 30.0
:tiltv 32768.0
:tiltvf 150.0
:tiltvv 262144.0
:tiltvvf 15.0
:transv-max 65536.0
:target-speed 65536.0
:seek0 0.05
:seek90 0.05
:seek180 0.05
: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
:mode 'air
:flags (surface-flag check-edge air)
)
)
;; failed to figure out what this is:
(defstate target-slide-down-to-ground (target)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(case message
(('slide)
#f
)
(else
(target-standard-event-handler proc argc message block)
)
)
)
:enter (behavior ()
(set-time! (-> self state-time))
(set! (-> self control mod-surface) *slide-down-mods*)
(set! (-> self control sliding-start-time) 0)
(set! (-> self control force-turn-to-strength) 1.0)
(set! (-> self control force-turn-to-speed) 1.0)
)
:exit (behavior ()
(target-effect-exit)
(target-exit)
(set-time! (-> self control unknown-time-frame13))
)
:trans (behavior ()
(if (and (or (and (logtest? (-> self control status) (collide-status on-surface))
(and (< 0.9 (-> self control surface-angle))
(!= (-> self control cur-pat material) 14)
(!= (-> self control cur-pat event) 7)
(!= (-> self control cur-pat event) 14)
(or (= (-> self control cur-pat mode) (pat-mode ground))
(= (-> self control cur-pat mode) (pat-mode halfpipe))
)
)
)
(if (< (target-move-dist (-> *TARGET-bank* stuck-time)) (-> *TARGET-bank* stuck-distance))
#t
)
)
(zero? (-> self control sliding-start-time))
)
(set-time! (-> self control sliding-start-time))
)
(when (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(can-jump? #f)
(!= (-> self state-time) (current-time))
)
(forward-up-nopitch->quaternion
(-> self control dir-targ)
(vector-normalize-copy! (new 'stack-no-clear 'vector) (-> self control force-turn-to-direction) 1.0)
(vector-y-quaternion! (new 'stack-no-clear 'vector) (-> self control quat))
)
(vector-normalize-copy! (-> self control transv) (-> self control force-turn-to-direction) 40960.0)
(go target-jump (-> *TARGET-bank* jump-height-min) (-> *TARGET-bank* jump-height-max) *slide-jump-mods*)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons circle)
)
(can-feet? #t)
(!= (-> self state-time) (current-time))
)
(go target-attack)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons square)
)
(can-hands? #t)
(time-elapsed? (-> self control last-running-attack-end-time) (seconds 0.7))
(!= (-> self state-time) (current-time))
)
(go target-running-attack)
)
(when (= (-> self control force-turn-to-strength) 0.0)
(logior! (-> self control status) (collide-status on-surface))
(if (using-gun? self)
(go target-stance)
(go target-duck-stance #f)
)
)
(set! (-> self control ctrl-xz-vel) (* 40960.0 (-> self darkjak-giant-interp)))
)
:code (-> target-walk code)
:post (behavior ()
(cond
((zero? (-> self control sliding-start-time))
(vector-normalize!
(vector-flatten!
(-> self control force-turn-to-direction)
(vector-negate! (new 'stack-no-clear 'vector) (-> self control dynam gravity-normal))
(-> self control surface-normal)
)
1.0
)
(if (< 0.0
(vector-dot
(-> self control force-turn-to-direction)
(vector-z-quaternion! (new 'stack-no-clear 'vector) (-> self control quat-for-control))
)
)
(forward-up-nopitch->quaternion
(-> self control dir-targ)
(-> self control force-turn-to-direction)
(vector-y-quaternion! (new-stack-vector0) (-> self control dir-targ))
)
(forward-up-nopitch->quaternion
(-> self control dir-targ)
(vector-negate! (new 'stack-no-clear 'vector) (-> self control force-turn-to-direction))
(vector-y-quaternion! (new-stack-vector0) (-> self control dir-targ))
)
)
)
((nonzero? (-> self control sliding-start-time))
(seek! (-> self control force-turn-to-strength) 0.0 (* 4.0 (seconds-per-frame)))
)
)
(set! (-> self control turn-lockout-end-time) (+ (current-time) (seconds 0.1)))
(target-post)
)
)
;; definition for function init-var-jump
;; INFO: Used lq/sq
(defbehavior init-var-jump target ((arg0 float) (arg1 float) (arg2 symbol) (arg3 symbol) (arg4 vector) (arg5 float))
(logclear! (-> self control status) (collide-status touch-ceiling-sticky))
(set-time! (-> self control unknown-time-frame19))
(delete-back-vel)
(let* ((f0-0 arg5)
(f1-0 0.0)
(f2-2 (+ (* 0.0016666667 (-> self control dynam gravity-length))
(fmax 0.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
)
)
(f0-1 (* f0-0 (fmax f1-0 (/ (* 0.5 f2-2 f2-2) (-> self control dynam gravity-length)))))
(s5-1 (+ arg0 f0-1))
)
(let ((s2-1 (+ arg1 f0-1)))
(when (not (time-elapsed? (-> self control rider-time) (seconds 0.05)))
(let ((f0-4
(fmax
0.0
(fmin 28672.0 (* 0.5 (vector-dot (-> self control dynam gravity-normal) (-> self control rider-last-move))))
)
)
)
(set! s5-1 (+ s5-1 f0-4))
(set! s2-1 (+ s2-1 f0-4))
)
(send-event self 'push-transv (-> self control rider-last-move) (seconds 100))
)
(set! (-> self control unknown-float36) 0.0)
(set! (-> self control unknown-float37) 0.0)
(cond
(arg3
(set! (-> self control unknown-word04)
(the-as uint (- s5-1 (+ -409.6 (-> *TARGET-bank* jump-collide-offset))))
)
(set! (-> self control did-move-to-pole-or-max-jump-height) (- s2-1 (-> *TARGET-bank* jump-collide-offset)))
)
(else
(set! (-> self control unknown-word04) (the-as uint s5-1))
(set! (-> self control did-move-to-pole-or-max-jump-height) s2-1)
)
)
)
(when arg2
(- (sqrtf (* 2.0 (-> self control dynam gravity-length) s5-1))
(* 0.008333334 (- (-> self control dynam gravity-length)))
)
(new 'stack-no-clear 'vector)
(let ((v1-55 (new-stack-vector0)))
(let ((f0-20 (vector-dot (-> self control dynam gravity-normal) arg4)))
0.0
(vector-! v1-55 arg4 (vector-float*! v1-55 (-> self control dynam gravity-normal) f0-20))
)
(let* ((f0-21 (vector-length v1-55))
(f1-18 f0-21)
(f2-15
(- (sqrtf (* 2.0 (-> self control dynam gravity-length) s5-1))
(* 0.008333334 (- (-> self control dynam gravity-length)))
)
)
)
(vector+!
arg4
(vector-float*! arg4 (-> self control dynam gravity-normal) f2-15)
(vector-float*! v1-55 v1-55 (/ f0-21 f1-18))
)
)
)
)
)
(let ((v0-2 (-> self control unknown-vector37)))
(set! (-> v0-2 quad) (-> self control trans quad))
v0-2
)
)
;; definition for function mod-var-jump
;; INFO: Used lq/sq
(defbehavior mod-var-jump target ((arg0 symbol) (arg1 symbol) (arg2 symbol) (arg3 vector))
(local-vars (v0-1 vector))
(let ((f0-1 (* 0.033333335 (the float (- (current-time) (-> self state-time))))))
(cond
((or (< 1.0 f0-1) (< (-> self control unknown-float36) 0.0) (not arg2))
(set! (-> self control unknown-float36) -1.0)
)
(else
(set! (-> self control unknown-float36) f0-1)
(set! (-> self control unknown-float37) f0-1)
(when arg0
(let ((s3-1 (vector-! (new-stack-vector0) (-> self control trans) (-> self control unknown-vector37)))
(s4-0 (new-stack-vector0))
)
(let ((f1-5 (vector-dot (-> self control dynam gravity-normal) arg3)))
0.0
(vector-! s4-0 arg3 (vector-float*! s4-0 (-> self control dynam gravity-normal) f1-5))
)
(let* ((f30-0 (vector-length s4-0))
(f28-0 f30-0)
(f0-7
(- (sqrtf
(* 2.0
(-> self control dynam gravity-length)
(- (lerp-scale
(the-as float (-> self control unknown-word04))
(-> self control did-move-to-pole-or-max-jump-height)
f0-1
0.0
1.0
)
(vector-dot (-> self control dynam gravity-normal) s3-1)
)
)
)
(* 0.008333334 (- (-> self control dynam gravity-length)))
)
)
)
(vector+!
arg3
(vector-float*! arg3 (-> self control dynam gravity-normal) f0-7)
(vector-float*! s4-0 s4-0 (/ f30-0 f28-0))
)
)
)
)
)
)
)
0
(when (and arg1 (ja-group) (and (-> (ja-group) extra) #t))
(let ((v1-57 (res-lump-struct (-> (ja-group) extra) 'collide-offset vector :time (ja-aframe-num 0))))
(cond
(v1-57
(set! v0-1 (-> self control anim-collide-offset-local))
(set! (-> v0-1 quad) (-> v1-57 quad))
)
(else
(set! v0-1 (-> self control anim-collide-offset-local))
(set! (-> v0-1 quad) (the-as uint128 0))
)
)
)
v0-1
)
)
;; definition for symbol *duck-mods*, type surface
(define *duck-mods*
(new 'static 'surface
:name 'duck
:turnv 131072.0
:turnvf 30.0
:turnvv 524288.0
:turnvvf 30.0
:tiltv 65536.0
:tiltvf 150.0
:tiltvv 262144.0
:tiltvvf 15.0
:transv-max 16384.0
:target-speed 16384.0
:seek0 1.0
:seek90 1.0
:seek180 1.0
:fric 1.0
: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))
(surface-clamp-speed arg0 arg1 arg2 arg3)
(when (= arg3 1)
(cond
((or (and (focus-test? self dark) (nonzero? (-> self darkjak)))
(and (using-gun? self) (= (gun->eco (-> self gun gun-type)) (pickup-type eco-blue)))
)
(set! (-> arg0 target-speed) 0.0)
(set! (-> arg0 seek0) 0.0)
(set! (-> arg0 seek90) 0.0)
(set! (-> arg0 seek180) 0.0)
(set! (-> arg0 turnv) 0.0)
(set! (-> arg0 turnvv) 0.0)
)
(else
(set! (-> arg0 target-speed) 16384.0)
)
)
)
)
:flags (surface-flag duck)
)
)
;; failed to figure out what this is:
(defstate target-duck-stance (target)
:event target-standard-event-handler
:enter (behavior ((arg0 symbol))
(if (not arg0)
(set-time! (-> self state-time))
)
(set! (-> self control bend-target) 1.0)
(set! (-> self control mod-surface) *duck-mods*)
(target-collide-set! 'duck 1.0)
(set! (-> self control unknown-sound-id00) (new 'static 'sound-id))
0
)
:exit (behavior ()
(if (not (and (-> self next-state) (let ((v1-3 (-> self next-state name)))
(or (= v1-3 'target-duck-walk)
(= v1-3 'target-duck-stance)
(= v1-3 'target-walk)
(= v1-3 'target-stance)
(= v1-3 'target-stance-look-around)
)
)
)
)
(target-state-hook-exit)
)
(target-exit)
(if (= (-> self control collide-mode) 'duck)
(target-collide-set! 'normal 0.0)
)
)
:trans (behavior ()
((-> self state-hook))
(if (or (and (or (not (cpad-hold? (-> self control cpad number) l1))
(logtest? (-> self target-flags) (target-flags prevent-duck))
)
(let ((v1-13 (ja-group)))
(and (not (and v1-13 (or (= v1-13 jakb-duck-roll-end-ja)
(= v1-13 jakb-duck-roll-ja)
(= v1-13 jakb-gun-duck-roll-end-ja)
(= v1-13 jakb-gun-duck-roll-ja)
)
)
)
(can-exit-duck? self)
)
)
)
(and (nonzero? (-> self ext-anim)) (!= (-> self ext-anim) 2))
)
(go target-stance)
)
(if (and (move-legs?) (and (!= (-> self control current-surface seek0) 0.0) (zero? (-> self ext-anim))))
(go target-duck-walk 'duck)
)
(if (want-to-powerjak?)
(go target-powerjak-get-on)
)
(if (and (cpad-hold? (-> self control cpad number) r1)
(and (focus-test? self dark) (nonzero? (-> self darkjak)))
(= (-> self ext-anim) (target-anim dark))
(logtest? (the-as game-feature (logand (game-feature darkjak-smack) (-> *setting-control* user-current features)))
(-> self game features)
)
(can-hands? #t)
)
(go target-darkjak-smack-charge)
)
(when (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(can-jump? #f)
)
(if (= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
(go target-high-jump (-> *TARGET-bank* duck-jump-height-min) (-> *TARGET-bank* duck-jump-height-max) 'duck)
(target-jump-go)
)
)
(when (and (cpad-pressed? (-> self control cpad number) square) (can-hands? #t))
(if (and (can-exit-duck? self)
(not (logtest? (-> self control current-surface flags) (surface-flag no-jump)))
(not (logtest? (-> self target-flags) (target-flags prevent-jump)))
)
(go
target-attack-uppercut
(-> *TARGET-bank* attack-jump-height-min)
(-> *TARGET-bank* attack-jump-height-max)
)
)
)
(fall-test target-falling (-> *TARGET-bank* fall-height))
(slide-down-test)
)
:code (behavior ((arg0 symbol))
(let ((v1-2 (ja-group)))
(cond
((and v1-2 (or (= v1-2 jakb-duck-roll-ja) (= v1-2 jakb-gun-duck-roll-ja)))
(set! (-> self neck flex-blend) 0.0)
(set! (-> self neck base-joint) (the-as uint 8))
(cond
((using-gun? self)
(set! (-> self gun surpress-time) (+ (current-time) (seconds 0.7)))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-duck-roll-end-ja)
0.0
0
30
1.0
6.0
#f
)
(ja-no-eval :group! jakb-gun-duck-roll-end-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
)
(else
(ja-no-eval :group! jakb-duck-roll-end-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
)
)
(set! (-> self neck flex-blend) 1.0)
(set! (-> self neck base-joint) (the-as uint 6))
)
((let ((v1-68 (ja-group)))
(and (and v1-68 (= v1-68 jakb-duck-stance-ja)) (= (-> self skel root-channel 0) (-> self skel channel)))
)
)
((let ((v1-78 (ja-group)))
(and v1-78 (or (= v1-78 jakb-duck-walk-ja) (= v1-78 jakb-gun-duck-walk-ja)))
)
(ja-channel-push! 1 (seconds 0.1))
)
((and (and (focus-test? self dark) (nonzero? (-> self darkjak))) (= (-> self ext-anim) (target-anim dark)))
(ja-channel-push! 1 (seconds 0.05))
(ja-no-eval :group! (-> self draw art-group data 473) :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
)
((= (-> self ext-anim) (target-anim default))
(ja-channel-push! 1 (seconds 0.04))
(ja-no-eval :group! jakb-stance-to-duck-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
)
(else
(go target-stance)
)
)
)
(until #f
(cond
((and (and (focus-test? self dark) (nonzero? (-> self darkjak))) (= (-> self ext-anim) (target-anim dark)))
(ja-no-eval :group! (-> self draw art-group data 474) :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
)
(else
(ja-no-eval :group! jakb-duck-stance-ja :num! (seek!) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
)
)
)
#f
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-duck-walk (target)
:event target-standard-event-handler
:enter (behavior ((arg0 symbol))
(let ((gp-0 arg0))
(if (nonzero? (-> self ext-anim))
(go target-duck-stance arg0)
)
(if (not gp-0)
(set-time! (-> self state-time))
)
)
(set! (-> self control bend-target) 1.0)
(target-collide-set! 'duck 1.0)
(let ((v1-11 (ja-group)))
(if (not (and v1-11 (or (= v1-11 jakb-duck-roll-ja) (= v1-11 jakb-gun-duck-roll-ja))))
(set! (-> self control mod-surface) *duck-mods*)
)
)
)
:exit (-> target-duck-stance exit)
:trans (behavior ()
(local-vars (v1-22 joint-control-channel))
((-> self state-hook))
(when (and (or (not (cpad-hold? (-> self control cpad number) l1))
(logtest? (-> self target-flags) (target-flags prevent-duck))
(and (logtest? (water-flag wading) (-> self water flags))
(>= (- (- (-> self control trans y) (- (-> self water base-height) (-> self water wade-height)))) 2457.6)
)
)
(can-exit-duck? self)
)
(if (and (using-gun? self)
(begin (set! v1-22 (get-channel (-> self skel top-anim) 0)) v1-22)
(= (-> v1-22 frame-group) jakb-gun-duck-roll-end-ja)
)
(target-top-anim-base-mode 60)
)
(go target-walk)
)
(if (not (move-legs?))
(go target-duck-stance 'duck)
)
(if (want-to-powerjak?)
(go target-powerjak-get-on)
)
(when (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(can-jump? #f)
)
(if (= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
(go target-high-jump (-> *TARGET-bank* duck-jump-height-min) (-> *TARGET-bank* duck-jump-height-max) 'duck)
(target-jump-go)
)
)
(if (and (cpad-pressed? (-> self control cpad number) square)
(can-hands? #t)
(can-exit-duck? self)
(not (logtest? (-> self control current-surface flags) (surface-flag no-jump)))
(not (logtest? (-> self target-flags) (target-flags prevent-jump)))
)
(go
target-attack-uppercut
(-> *TARGET-bank* attack-jump-height-min)
(-> *TARGET-bank* attack-jump-height-max)
)
)
(fall-test target-falling (-> *TARGET-bank* fall-height))
(slide-down-test)
)
:code (behavior ((arg0 symbol))
(let ((gp-0 (if (using-gun? self)
jakb-gun-duck-walk-ja
jakb-duck-walk-ja
)
)
(v1-6 (ja-group))
)
(cond
((and (and v1-6 (or (= v1-6 jakb-duck-walk-ja) (= v1-6 jakb-gun-duck-walk-ja)))
(= (-> self skel root-channel 0) (-> self skel channel))
)
)
(else
(let ((v1-16 (ja-group)))
(cond
((and v1-16 (= v1-16 jakb-duck-stance-ja))
(ja-channel-push! 1 (seconds 0.45))
(ja :group! gp-0 :num! min)
)
(else
(ja-channel-push! 1 (seconds 0.1))
(ja :group! gp-0 :num! min)
)
)
)
)
)
)
(logior! (-> self target-flags) (target-flags lleg-no-ik rleg-no-ik))
(until #f
(if (= (-> self skel root-channel 0) (-> self skel channel))
(set! (-> self control mod-surface) *duck-mods*)
)
(ja :num! (loop! (fmin 3.0 (/ (-> self control ctrl-xz-vel)
(* 60.0 (/ (-> *TARGET-bank* duck-walk-cycle-dist) (-> *TARGET-bank* run-cycle-length)))
)
)
)
)
(suspend)
)
#f
)
:post target-post
)
;; definition for function target-jump-top-anim
;; WARN: Return type mismatch int vs none.
(defbehavior target-jump-top-anim target ()
(let ((gp-0 (get-channel (-> self skel top-anim) 0)))
(when gp-0
(let ((s5-0 (-> gp-0 frame-group))
(f0-0 (ja-aframe-num 0))
)
(when (or (= s5-0 jakb-gun-side-jump-ja) (= s5-0 jakb-gun-front-jump-ja))
(let ((v1-13 (ja-group)))
(if (and v1-13 (= v1-13 jakb-duck-high-jump-ja))
(set! (-> gp-0 frame-num) (/ (- f0-0 (+ 16.0 (-> s5-0 artist-base))) (-> s5-0 artist-step)))
(set! (-> gp-0 frame-num) (/ (- f0-0 (-> s5-0 artist-base)) (-> s5-0 artist-step)))
)
)
)
)
)
)
0
(none)
)
;; failed to figure out what this is:
(defstate target-jump (target)
:event target-jump-event-handler
:enter (behavior ((arg0 float) (arg1 float) (arg2 surface))
(when (= (-> self control jump-kind) 'launch)
(talker-spawn-func (-> *talker-speech* 45) *entity-pool* (target-pos 0) (the-as region #f))
(talker-spawn-func (-> *talker-speech* 46) *entity-pool* (target-pos 0) (the-as region #f))
enter-state
(let ((a0-7 (-> self control unknown-dword07))
(a1-3 (-> self control unknown-dword08))
(a2-3 (-> self control unknown-vector37))
)
(set! (-> a2-3 quad) (-> (the-as vector (-> self control unknown-dword09)) quad))
(go target-launch (the-as float a0-7) (the-as symbol a1-3) a2-3 (-> self control unknown-dword10))
)
)
(set-time! (-> self state-time))
(sound-play "jump" :vol 70)
(init-var-jump arg0 arg1 #t #t (-> self control transv) 2.0)
(logclear! (-> self control status) (collide-status on-surface on-ground touch-surface))
(set! arg2 (cond
(arg2
(empty)
arg2
)
(else
*jump-mods*
)
)
)
(set! (-> self control mod-surface) arg2)
(set! (-> self control unknown-float36)
(fmax 0.0 (fmin 1.0 (* 0.00004359654 (+ -11468.8 (-> self control ctrl-xz-vel)))))
)
(set! (-> self control unknown-float35)
(fmax 0.0 (fmin 1.0 (* 0.000048828126 (+ -10240.0 (-> self control ctrl-xz-vel)))))
)
)
:exit target-exit
:trans (behavior ()
(set! (-> self control unknown-float36)
(fmax
(-> self control unknown-float36)
(* 0.003921569 (the float (-> *cpad-list* cpads (-> self control cpad number) abutton 6)))
)
)
(let ((t9-0 target-falling-trans)
(a0-1 #f)
(v1-12 (ja-group))
)
(t9-0
a0-1
(the-as time-frame (if (and v1-12 (= v1-12 jakb-jump-loop-ja))
15
-1
)
)
#t
)
)
(if (and (cpad-pressed? (-> self control cpad number) x)
(< (vector-dot (-> self control dynam gravity-normal) (-> self control transv))
(* 12288.0 (-> self darkjak-giant-interp) (-> self darkjak-giant-interp))
)
(and (< -116736.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
(not (logtest? (water-flag touch-water) (-> self water flags)))
(not (logtest? (target-flags prevent-jump prevent-double-jump) (-> self target-flags)))
)
)
(go target-double-jump (-> *TARGET-bank* double-jump-height-min) (-> *TARGET-bank* double-jump-height-max))
)
(if (and (cpad-pressed? (-> self control cpad number) square)
(and (< (vector-dot (-> self control dynam gravity-normal) (-> self control transv))
(* 26624.0 (-> self darkjak-giant-interp) (-> self darkjak-giant-interp))
)
(< -61440.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
(and (time-elapsed? (-> self control last-time-of-stuck) (the-as time-frame (-> *TARGET-bank* stuck-timeout)))
(not (logtest? (-> self target-flags) (target-flags prevent-attack)))
(not (logtest? (-> self control current-surface flags) (surface-flag no-attack no-hands)))
(not (and (not (using-gun? self)) (!= (-> self skel top-anim interp) 0.0)))
)
)
)
(go
target-flop
65502.96
-163840.0
(the-as float (if (= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
0
#x47866666
)
)
'flop
)
)
(mod-var-jump #t #t (cpad-hold? (-> self control cpad number) x) (-> self control transv))
(slide-down-test)
(seek!
(-> self control unknown-float35)
(fmax 0.0 (fmin 1.0 (* 0.000048828126 (+ -10240.0 (-> self control ctrl-xz-vel)))))
(seconds-per-frame)
)
)
:code (behavior ((arg0 float) (arg1 float) (arg2 surface))
(let ((f28-0 20.0)
(f30-0 1.0)
)
(when (and (using-gun? self) (not (-> self gun charge-active?)))
(set! (-> self gun top-anim-low-high) 0.0)
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-blue))
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-side-jump-ja) 0.0 30 30 1.0 0.0 #f)
)
(else
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-front-jump-ja)
0.0
30
30
1.0
0.0
#f
)
)
)
)
(let ((v1-21 (ja-group)))
(cond
((and (and v1-21 (= v1-21 jakb-flop-down-land-ja)) (>= 25.0 (ja-aframe-num 0)) (>= (ja-aframe-num 0) 17.0))
(set! (-> self neck flex-blend) 0.0)
(ja-channel-push! 1 0)
(cond
((and (using-gun? self) (zero? (-> self ext-anim)))
(ja :group! jakb-duck-high-jump-ja :num! (identity (ja-aframe 16.0 0)))
(set! f28-0 35.0)
)
(else
(ja :group! jakb-flop-jump-ja :num! (identity (ja-aframe 25.0 0)))
(set! f28-0 24.0)
(set! f30-0 0.3)
)
)
)
((and (and (focus-test? self dark) (nonzero? (-> self darkjak))) (= (-> self ext-anim) (target-anim dark)))
(ja-channel-push! 1 (seconds 0.05))
(ja :group! (-> self draw art-group data 444) :num! min)
(suspend)
0
)
(else
(ja-channel-push! 2 (seconds 0.05))
(ja :group! jakb-jump-ja :num! min)
(let ((a0-26 (-> self skel root-channel 1)))
(let ((f0-8 (-> self control unknown-float35)))
(set! (-> a0-26 frame-interp 1) f0-8)
(set! (-> a0-26 frame-interp 0) f0-8)
)
(set! (-> a0-26 frame-group) (the-as art-joint-anim jakb-jump-forward-ja))
(set! (-> a0-26 param 0) 0.0)
(joint-control-channel-group-eval! a0-26 (the-as art-joint-anim jakb-jump-forward-ja) num-func-chan)
)
(suspend)
(ja :group! jakb-jump-ja :num! (+!))
(let ((a0-28 (-> self skel root-channel 1)))
(let ((f0-11 (-> self control unknown-float35)))
(set! (-> a0-28 frame-interp 1) f0-11)
(set! (-> a0-28 frame-interp 0) f0-11)
)
(set! (-> a0-28 frame-group) (the-as art-joint-anim jakb-jump-forward-ja))
(set! (-> a0-28 param 0) 0.0)
(joint-control-channel-group-eval! a0-28 (the-as art-joint-anim jakb-jump-forward-ja) num-func-chan)
)
(suspend)
0
)
)
)
(until (ja-done? 0)
(let ((f26-1 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
(f24-0 (- f28-0 (ja-aframe-num 0)))
)
(target-jump-top-anim)
(ja :num! (seek! max (if (and (< 0.0 f26-1) (< 0.0 f24-0))
(fmin (fmin 3.0 f24-0) (/ (* 5.0 f24-0) (the float (time-to-apex f26-1 -245760.0))))
f30-0
)
)
)
)
(when (>= (ja-group-size) 2)
(let ((a0-33 (-> self skel root-channel 1)))
(let ((f0-26 (-> self control unknown-float35)))
(set! (-> a0-33 frame-interp 1) f0-26)
(set! (-> a0-33 frame-interp 0) f0-26)
)
(set! (-> a0-33 param 0) 0.0)
(joint-control-channel-group-eval! a0-33 (the-as art-joint-anim #f) num-func-chan)
)
)
(suspend)
)
)
(target-falling-anim -1 (seconds 0.2))
(go target-falling #f)
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-jump-forward (target)
:event target-jump-event-handler
:enter (behavior ((arg0 float) (arg1 float) (arg2 symbol))
((-> target-jump enter) arg0 arg1 (the-as surface #f))
(set! (-> self control mod-surface) *forward-jump-mods*)
)
:exit target-exit
:trans (-> target-jump trans)
:code (behavior ((arg0 float) (arg1 float) (arg2 symbol))
(when (and (using-gun? self) (not (-> self gun charge-active?)))
(set! (-> self gun top-anim-low-high) 0.0)
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-blue))
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-side-jump-ja) 3.0 30 30 1.0 0.0 #f)
)
(else
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-front-jump-ja)
3.0
30
30
1.0
0.0
#f
)
)
)
)
(ja-channel-set! 1)
(ja-no-eval :group! jakb-jump-ja :num! (seek!) :frame-num (ja-aframe 3.0 0))
(until (ja-done? 0)
(set! (-> self control time-of-last-clear-wall-in-jump) 0)
(suspend)
(ja :num! (seek!))
)
(ja-no-eval :group! jakb-jump-loop-ja :num! (loop!) :frame-num 0.0)
(until #f
(suspend)
(target-jump-top-anim)
(ja :group! jakb-jump-loop-ja :num! (loop!))
)
#f
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-double-jump (target)
:event target-jump-event-handler
:enter (behavior ((arg0 float) (arg1 float))
(if (and (cpad-pressed? (-> self control cpad number) x)
(and (focus-test? self light)
(nonzero? (-> self lightjak))
(logtest? (-> self lightjak stage) (lightjak-stage swoop))
)
(logtest? (the-as game-feature (logand (game-feature lightjak-swoop) (-> *setting-control* user-current features)))
(-> self game features)
)
(>= (-> self game eco-pill-light) (-> *FACT-bank* lightjak-swoop-inc))
(= (-> self fact shield-level) 0.0)
(time-elapsed? (-> self control last-time-of-stuck) (the-as time-frame (-> *TARGET-bank* stuck-timeout)))
(not (logtest? (-> self target-flags) (target-flags prevent-attack)))
(not (logtest? (-> self control current-surface flags) (surface-flag no-attack no-feet)))
(and (not (and (not (using-gun? self)) (!= (-> self skel top-anim interp) 0.0)))
(zero? (-> self lightjak latch-out-time))
)
)
(go target-lightjak-swoop 1.2)
)
(when (= (-> self control jump-kind) 'launch)
enter-state
(let ((a0-21 (-> self control unknown-dword07))
(a1-1 (-> self control unknown-dword08))
(a2-0 (-> self control unknown-vector37))
)
(set! (-> a2-0 quad) (-> (the-as vector (-> self control unknown-dword09)) quad))
(go target-launch (the-as float a0-21) (the-as symbol a1-1) a2-0 (-> self control unknown-dword10))
)
)
(set-time! (-> self state-time))
(init-var-jump arg0 arg1 #t #t (-> self control transv) 2.0)
(logclear! (-> self control status) (collide-status on-surface on-ground touch-surface))
(if (!= (-> self control mod-surface) *slide-jump-mods*)
(set! (-> self control mod-surface) *double-jump-mods*)
)
)
:exit target-exit
:trans (behavior ()
(let ((t9-0 target-falling-trans)
(a0-0 #f)
(v1-2 (ja-group))
)
(t9-0
a0-0
(the-as time-frame (if (and v1-2 (= v1-2 jakb-jump-loop-ja))
15
-1
)
)
#t
)
)
(if (and (cpad-pressed? (-> self control cpad number) square)
(< (vector-dot (-> self control dynam gravity-normal) (-> self control transv)) 22118.4)
(< -61440.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
(and (time-elapsed? (-> self control last-time-of-stuck) (the-as time-frame (-> *TARGET-bank* stuck-timeout)))
(not (logtest? (-> self target-flags) (target-flags prevent-attack)))
(not (logtest? (-> self control current-surface flags) (surface-flag no-attack no-hands)))
(not (and (not (using-gun? self)) (!= (-> self skel top-anim interp) 0.0)))
)
)
(go
target-flop
33775.48
-122880.0
(the-as float (if (= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
0
#x47866666
)
)
'flop
)
)
(if (!= (-> self state-time) (current-time))
(mod-var-jump #t #t (cpad-hold? (-> self control cpad number) x) (-> self control transv))
)
(seek!
(-> self control unknown-float35)
(fmax 0.0 (fmin 1.0 (* 0.000048828126 (+ -10240.0 (-> self control ctrl-xz-vel)))))
(seconds-per-frame)
)
)
:code (behavior ((arg0 float) (arg1 float))
(sound-play "jump-double")
(when (and (using-gun? self) (not (-> self gun charge-active?)))
(set! (-> self gun top-anim-low-high) 0.0)
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-blue))
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-side-jump-ja) 7.0 30 30 1.0 0.0 #f)
)
(else
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-front-jump-ja)
7.0
30
30
1.0
0.0
#f
)
)
)
)
(cond
((and (and (focus-test? self dark) (nonzero? (-> self darkjak))) (= (-> self ext-anim) (target-anim dark)))
(ja-channel-push! 1 (seconds 0.05))
(ja-no-eval :group! (-> self draw art-group data 444) :num! (seek!) :frame-num (ja-aframe 7.0 0))
)
(else
(ja-channel-push! 2 (seconds 0.05))
(ja-no-eval :group! jakb-jump-ja :num! (seek!) :frame-num (ja-aframe 5.0 0))
(ja :chan 1 :group! jakb-jump-forward-ja :num! (chan 0))
)
)
(until (ja-done? 0)
(suspend)
(target-jump-top-anim)
(ja :num! (seek!))
(when (>= (ja-group-size) 2)
(let ((a0-20 (-> self skel root-channel 1)))
(let ((f0-13 (-> self control unknown-float35)))
(set! (-> a0-20 frame-interp 1) f0-13)
(set! (-> a0-20 frame-interp 0) f0-13)
)
(set! (-> a0-20 param 0) 0.0)
(joint-control-channel-group-eval! a0-20 (the-as art-joint-anim #f) num-func-chan)
)
)
)
(target-falling-anim -1 (seconds 0.2))
(go target-falling #f)
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-high-jump (target)
:event target-jump-event-handler
:enter (behavior ((arg0 float) (arg1 float) (arg2 object))
(when (and (= (-> self control jump-kind) 'launch) (!= arg2 'launch))
enter-state
(let ((a0-3 (-> self control unknown-dword07))
(a1-1 (-> self control unknown-dword08))
(a2-1 (-> self control unknown-vector37))
)
(set! (-> a2-1 quad) (-> (the-as vector (-> self control unknown-dword09)) quad))
(go target-launch (the-as float a0-3) (the-as symbol a1-1) a2-1 (-> self control unknown-dword10))
)
)
(set! (-> self control unknown-symbol03) (the-as float arg2))
(if (and (or (= arg2 'duck) (= arg2 'launch)) (zero? (-> self ext-anim)))
(go target-duck-high-jump arg0 arg1 (the-as symbol arg2))
)
(set-time! (-> self state-time))
(logclear! (-> self control status) (collide-status on-surface on-ground touch-surface))
(sound-play "jump" :pitch 0.3)
(init-var-jump arg0 arg1 #t #t (-> self control transv) 2.0)
(set! (-> self control mod-surface) (cond
((= arg2 'flip)
*flip-jump-mods*
)
((= arg2 'flop-forward)
*forward-high-jump-mods*
)
(else
*high-jump-mods*
)
)
)
(set! (-> self control unknown-float35)
(fmax 0.0 (fmin 0.5 (* 0.00008138021 (+ -409.6 (-> self control ctrl-xz-vel)))))
)
)
:exit target-exit
:trans (behavior ()
(let ((t9-0 target-falling-trans)
(a0-0 #f)
(v1-2 (ja-group))
)
(t9-0
a0-0
(the-as time-frame (if (and v1-2 (= v1-2 jakb-jump-loop-ja))
15
-1
)
)
#t
)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons square)
)
(< (vector-dot (-> self control dynam gravity-normal) (-> self control transv)) 73728.0)
(< -61440.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
(and (time-elapsed? (-> self control last-time-of-stuck) (the-as time-frame (-> *TARGET-bank* stuck-timeout)))
(not (logtest? (-> self target-flags) (target-flags prevent-attack)))
(not (logtest? (-> self control current-surface flags) (surface-flag no-attack no-hands)))
(not (and (not (using-gun? self)) (!= (-> self skel top-anim interp) 0.0)))
)
)
(go
target-flop
33775.48
-122880.0
(the-as float (if (= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
0
#x47866666
)
)
'flop
)
)
(mod-var-jump #t #t (cpad-hold? (-> self control cpad number) x) (-> self control transv))
(seek!
(-> self control unknown-float35)
(fmax 0.0 (fmin 1.0 (* 0.00012207031 (+ -2048.0 (-> self control ctrl-xz-vel)))))
(seconds-per-frame)
)
)
:code (-> target-jump code)
:post target-post
)
;; failed to figure out what this is:
(defstate target-duck-high-jump (target)
:event target-standard-event-handler
:enter (behavior ((arg0 float) (arg1 float) (arg2 symbol))
(set-time! (-> self state-time))
(logclear! (-> self control status) (collide-status on-surface on-ground touch-surface))
(set! (-> self control mod-surface) *turn-around-mods*)
(case arg2
(('launch)
)
(else
)
)
)
:exit target-exit
:code (behavior ((arg0 float) (arg1 float) (arg2 symbol))
(let ((v1-2 (ja-group)))
(if (not (and (and v1-2 (= v1-2 jakb-duck-stance-ja)) (= (-> self skel root-channel 0) (-> self skel channel))))
(ja-channel-push! 1 (seconds 0.04))
)
)
(let ((v1-11 arg2))
(cond
((or (= v1-11 'flop) (= v1-11 'flop-forward))
(ja-no-eval :group! jakb-flop-jump-ja :num! (seek! (ja-aframe 25.0 0)) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek! (ja-aframe 25.0 0)))
)
)
((using-gun? self)
(ja :group! jakb-duck-high-jump-ja :num! (identity (ja-aframe 16.0 0)))
)
(else
(ja-no-eval :group! jakb-duck-high-jump-ja :num! (seek! (ja-aframe 16.0 0)) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek! (ja-aframe 16.0 0)))
)
)
)
)
(go target-duck-high-jump-jump arg0 arg1 arg2)
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-duck-high-jump-jump (target)
:event target-jump-event-handler
:enter (behavior ((arg0 float) (arg1 float) (arg2 symbol))
(set! (-> self control unknown-symbol03) (the-as float arg2))
(set-time! (-> self state-time))
(sound-play "jump" :vol 80 :pitch -0.4)
(init-var-jump arg0 arg1 #t #f (-> self control transv) 2.0)
(logclear! (-> self control status) (collide-status on-surface on-ground touch-surface))
(cond
((= arg2 'launch)
(set! (-> self neck flex-blend) 0.0)
(set! (-> self control mod-surface) *launch-jump-mods*)
)
(else
(set! (-> self control mod-surface) *high-jump-mods*)
)
)
)
:exit target-exit
:trans (behavior ()
((-> target-high-jump trans))
(let ((v1-2 (-> self control unknown-symbol03)))
(when (= (the-as int v1-2) 'launch)
(when *sound-player-enable*
(let ((gp-0 (the-as sound-rpc-set-param (get-sound-buffer-entry))))
(set! (-> gp-0 command) (sound-command set-param))
(set! (-> gp-0 id) (-> self control unknown-sound-id00))
(let ((a1-0 (ear-trans 0)))
(let ((s5-0 self))
(when (= a1-0 #t)
(if (and s5-0 (type? s5-0 process-drawable) (nonzero? (-> s5-0 control)))
(set! a1-0 (-> s5-0 control trans))
(set! a1-0 (the-as vector #f))
)
)
)
(sound-trans-convert (-> gp-0 params trans) a1-0)
)
(set! (-> gp-0 params mask) (the-as uint 32))
(-> gp-0 id)
)
)
)
)
)
:code (behavior ((arg0 float) (arg1 float) (arg2 symbol))
(when (and (using-gun? self) (not (-> self gun charge-active?)))
(set! (-> self gun top-anim-low-high) 0.0)
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-blue))
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-side-jump-ja) 0.0 30 30 1.0 0.0 #f)
)
(else
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-front-jump-ja)
0.0
30
30
1.0
0.0
#f
)
)
)
)
(let* ((f30-0 1.0)
(v1-18 arg2)
(f28-0 (cond
((= v1-18 'launch)
110.0
)
((or (= v1-18 'flop) (= v1-18 'flop-forward))
(set! f30-0 0.75)
44.0
)
(else
35.0
)
)
)
)
(until (ja-done? 0)
(let ((f24-0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
(f26-0 (- f28-0 (ja-aframe-num 0)))
)
(target-jump-top-anim)
(let ((f22-1 (fmin (fmin 3.0 f26-0) (/ (* 5.0 f26-0) (the float (time-to-apex f24-0 -245760.0)))))
(s5-0 (-> self skel root-channel 0))
)
(set! (-> s5-0 param 0) (the float (+ (-> s5-0 frame-group frames num-frames) -1)))
(let ((v1-41 (cond
((and (< 0.0 f24-0) (< 0.0 f26-0))
(if (= arg2 'launch)
(set! f30-0 (lerp f30-0 (* 4.0 f22-1) 0.25))
)
f22-1
)
(else
f30-0
)
)
)
)
(set! (-> s5-0 param 1) v1-41)
)
(joint-control-channel-group-eval! s5-0 (the-as art-joint-anim #f) num-func-seek!)
)
)
(suspend)
)
)
(cond
((or (= arg2 'flop) (= arg2 'flop-forward))
(ja-channel-push! 1 (seconds 0.5))
(ja-no-eval :group! jakb-jump-loop-ja :num! (loop!) :frame-num 0.0)
(until #f
(suspend)
(ja :group! jakb-jump-loop-ja :num! (loop!))
)
#f
)
(else
(ja-no-eval :group! jakb-jump-loop-ja :num! (loop!) :frame-num 0.0)
(until #f
(suspend)
(ja :group! jakb-jump-loop-ja :num! (loop!))
)
#f
)
)
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-falling (target)
:event target-jump-event-handler
:enter (behavior ((arg0 symbol))
(case arg0
(('uppercut)
(set! (-> self control mod-surface) *uppercut-jump-mods*)
)
(else
(set! (-> self control mod-surface) *jump-mods*)
)
)
(set! (-> self control unknown-word04) (the-as uint arg0))
(set-time! (-> self state-time))
)
:trans (behavior ()
(target-falling-trans
(the-as symbol (-> self control unknown-spool-anim00))
(the-as time-frame (if (= (-> self control unknown-spool-anim00) #f)
0
(the-as int (/ (the-as int (-> *TARGET-bank* stuck-time)) 2))
)
)
#t
)
)
:code (behavior ((arg0 symbol))
(case arg0
(('uppercut)
(ja-no-eval :num! (seek!))
(while (not (ja-done? 0))
(suspend)
(ja-eval)
)
(set! (-> self gun surpress-time) 0)
(send-event self 'gun (-> self gun gun-type))
(set! (-> self gun track-target-hold-time) 0)
0
)
(('hit)
(ja-channel-push! 1 (seconds 0.3))
(ja-no-eval :group! jakb-hit-from-front-ja :num! (seek!) :frame-num (ja-aframe 15.0 0))
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
)
)
(target-falling-anim -1 (seconds 0.33))
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-hit-ground (target)
:event target-walk-event-handler
:enter (behavior ((arg0 symbol))
(set! (-> self control turn-go-the-long-way) 0.0)
(cond
((or (= arg0 'stuck) (focus-test? self indax))
)
(else
(let ((f0-2
(vector-dot
(-> self control dynam gravity-normal)
(vector-! (new 'stack-no-clear 'vector) (-> self control last-trans-any-surf) (-> self control trans))
)
)
)
(if (and (< (-> *TARGET-bank* fall-far) f0-2) (not (logtest? (-> self control status) (collide-status on-water))))
(go target-hit-ground-hard f0-2)
)
)
)
)
(cond
((= arg0 'stuck)
)
(else
(target-land-effect)
)
)
(set! (-> self control last-running-attack-end-time) 0)
(set! (-> self control last-attack-end-time) 0)
(if (>= (-> self control ground-impact-vel) (-> *TARGET-bank* fall-stumble-threshold))
(set-forward-vel 0.0)
)
(if (!= (-> self control ground-pat material) (pat-material ice))
(delete-back-vel)
)
(set! (-> self control mod-surface) *walk-mods*)
(start-bobbing!
(-> self water)
(lerp-scale 0.0 4096.0 (-> self control ground-impact-vel) 40960.0 102400.0)
600
1500
)
(when (and (using-gun? self) (let ((v1-35 (-> self water flags)))
(and (not (and (logtest? (water-flag touch-water) v1-35)
(logtest? (water-flag under-water swimming) v1-35)
(not (logtest? (focus-status mech) (-> self focus-status)))
)
)
(not (-> self gun charge-active?))
)
)
)
(set! (-> self gun top-anim-low-high) 0.0)
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-blue))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-side-jump-land-ja)
0.0
30
30
1.0
0.0
#f
)
)
(((pickup-type eco-red) (pickup-type eco-dark))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-front-jump-land-ja)
0.0
30
30
1.0
0.0
#f
)
)
(else
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-front-jump-land-ja)
0.0
30
30
1.0
25.0
#f
)
)
)
)
)
:exit (behavior ()
(logclear! (-> self target-flags) (target-flags lleg-still rleg-still lleg-no-ik rleg-no-ik))
)
:trans (behavior ()
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(can-jump? #f)
)
(target-jump-go)
)
(if (and (or (cpad-hold? (-> self control cpad number) l1) (not (can-exit-duck? self))) (can-duck?))
(go target-duck-stance #f)
)
(when (!= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
(if (logtest? (water-flag wading) (-> self water flags))
(go target-wade-walk)
(go target-walk)
)
)
(if (want-to-powerjak?)
(go target-powerjak-get-on)
)
(if (and (cpad-hold? (-> self control cpad number) r1)
(and (focus-test? self dark) (nonzero? (-> self darkjak)))
(logtest? (the-as game-feature (logand (game-feature darkjak-smack) (-> *setting-control* user-current features)))
(-> self game features)
)
(can-hands? #t)
)
(go target-darkjak-smack-charge)
)
(when (and (cpad-pressed? (-> self control cpad number) triangle)
(logtest? (game-secrets button-invis) (-> self game secrets))
(and (focus-test? self dark) (nonzero? (-> self darkjak)))
(not (logtest? (target-flags invisible) (-> self target-flags)))
(>= (-> self game eco-pill-dark) (-> *FACT-bank* darkjak-button-invis-inc))
)
(target-invisible-start (seconds 30))
(if (not (logtest? (-> self darkjak stage) (darkjak-stage force-on active)))
(send-event self 'get-pickup (pickup-type eco-pill-dark) (- (-> *FACT-bank* darkjak-button-invis-inc)))
)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons circle)
)
(can-feet? #t)
)
(go target-attack)
)
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons square)
)
(can-hands? #t)
)
(go target-running-attack)
)
(if (and (using-gun? self) (-> self gun charge-active?))
(go target-stance)
)
(fall-test target-falling (-> *TARGET-bank* fall-height))
(slide-down-test)
)
:code (behavior ((arg0 symbol))
(target-hit-ground-anim #f (are-still?))
(go target-stance)
)
:post target-post
)
;; definition for symbol *attack-mods*, type surface
(define *attack-mods* (new 'static 'surface
:name 'attack
:tiltv 65536.0
:tiltvf 150.0
:tiltvv 262144.0
:tiltvvf 15.0
:transv-max 40960.0
:target-speed 40960.0
:seek0 1.0
:seek90 1.0
:seek180 1.0
:fric 1.0
: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))
(case arg3
((1)
(case (-> self control ground-pat event)
(((pat-event slide))
(set! (-> arg0 seek0) 0.05)
(set! (-> arg0 seek90) 0.05)
(set! (-> arg0 seek180) 0.05)
)
)
)
)
)
:mode 'attack
:flags (surface-flag attack spin gun-inactive gun-turn-fast)
)
)
;; failed to figure out what this is:
(let ((v1-25 (copy *attack-mods* 'global)))
(set! (-> v1-25 flags) (surface-flag attack spin gun-turn-fast))
(set! (-> v1-25 mult-hook)
(the-as
(function surface surface surface int none)
(lambda :behavior target
((arg0 surface) (arg1 surface) (arg2 surface) (arg3 int))
((-> *attack-mods* mult-hook) arg0 arg1 arg2 arg3)
(when (= arg3 1)
(if (and (nonzero? (-> self gun turn-fast-hold-time)) (< (current-time) (-> self gun turn-fast-hold-time)))
(set-quaternion! (-> self control) (-> self control dir-targ))
)
)
)
)
)
(set! *attack-end-mods* v1-25)
)
;; failed to figure out what this is:
(let ((v1-27 (copy *attack-mods* 'global)))
(set! (-> v1-27 seek0) 0.0)
(set! (-> v1-27 fric) 0.0)
(set! (-> v1-27 nonlin-fric-dist) 0.0)
(set! (-> v1-27 transv-max) 81920.0)
(set! (-> v1-27 target-speed) 245760.0)
(set! *attack-find-mods* v1-27)
)
;; failed to figure out what this is:
(defstate target-attack (target)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(case message
(('touched)
(cond
(((method-of-type touching-shapes-entry prims-touching?)
(the-as touching-shapes-entry (-> block param 0))
(-> self control)
(the-as uint 1920)
)
(when (target-send-attack
proc
(-> self control danger-mode)
(the-as touching-shapes-entry (-> block param 0))
(the-as int (-> self control target-attack-id))
(the-as int (-> self control attack-count))
(-> self control penetrate-using)
)
(set-time! (-> self gun combo-window-start))
(let ((v0-2 (the-as object (-> self state name))))
(set! (-> self gun combo-window-state) (the-as symbol v0-2))
v0-2
)
)
)
(else
(target-dangerous-event-handler proc argc message block)
)
)
)
(('gun-combo)
(when (-> block param 0)
(forward-up-nopitch->quaternion
(-> self control dir-targ)
(vector-! (new 'stack-no-clear 'vector) (-> self gun track-trans) (-> self control trans))
(vector-y-quaternion! (new-stack-vector0) (-> self control dir-targ))
)
(set-quaternion! (-> self control) (-> self control dir-targ))
(go target-stance)
)
#t
)
(('slide)
#f
)
(else
(target-dangerous-event-handler proc argc message block)
)
)
)
:enter (behavior ()
(set-time! (-> self state-time))
(target-start-attack)
(target-danger-set! 'spin #f)
(if (not (or (not (and (focus-test? self dark) (nonzero? (-> self darkjak))))
(logtest? (-> self darkjak stage) (darkjak-stage force-on active))
)
)
(send-event self 'get-pickup (pickup-type eco-pill-dark) (- (-> *FACT-bank* darkjak-spin-inc)))
)
(set! (-> self control mod-surface) *attack-mods*)
(set! (-> self water drip-mult) 4.0)
(set! (-> self neck flex-blend) 0.0)
(set! (-> self gun track-target-hold-time) 0)
(if (< 0.0 (-> self control turn-to-magnitude))
(forward-up-nopitch->quaternion
(-> self control dir-targ)
(-> self control to-target-pt-xz)
(vector-y-quaternion! (new-stack-vector0) (-> self control dir-targ))
)
)
(set-quaternion! (-> self control) (-> self control dir-targ))
(quaternion-copy! (-> self control unknown-quaternion04) (-> self control dir-targ))
(set! (-> self control unknown-float41) 0.0)
(set! (-> self control unknown-float42) 0.0)
)
:exit (behavior ()
(if (zero? (-> self gun track-target-hold-time))
(quaternion-copy! (-> self control dir-targ) (-> self control unknown-quaternion04))
)
(set-time! (-> self control last-attack-end-time))
(target-exit)
)
:code (behavior ()
(let ((s5-0 jakb-attack-from-stance-ja)
(gp-0 (if (and (focus-test? self dark)
(nonzero? (-> self darkjak))
(logtest? (-> self darkjak stage) (darkjak-stage no-anim))
)
(combo-tracker-method-13
(-> self control unknown-combo-tracker00)
(if (time-elapsed? (-> self control send-attack-time) (seconds 2))
(the-as handle #f)
(-> self control send-attack-dest)
)
(-> self control trans)
49152.0
(-> self control c-R-w fvec)
65536.0
)
)
)
)
(if gp-0
(combo-tracker-method-12
(-> self control unknown-combo-tracker00)
(-> self control trans)
(get-trans gp-0 3)
gp-0
(current-time)
)
)
(cond
((and (and (focus-test? self dark) (nonzero? (-> self darkjak))) (= (-> self ext-anim) (target-anim dark)))
(set! s5-0 (-> self draw art-group data 449))
(quaternion-rotate-y! (-> self control quat-for-control) (-> self control quat-for-control) -1365.3334)
(set! (-> self control unknown-sound-id01) (sound-play "spin-kick"))
)
((using-gun? self)
(set! (-> self gun top-anim-low-high) 0.0)
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-yellow))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-from-stance-ja)
0.0
30
30
1.0
0.0
#f
)
(set! s5-0 jakb-gun-attack-from-stance-ja)
(quaternion-rotate-y! (-> self control quat-for-control) (-> self control quat-for-control) -3276.8)
(set! (-> self control unknown-sound-id01) (sound-play "spin-kick"))
)
(((pickup-type eco-blue))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-from-stance-blue-ja)
0.0
30
30
1.0
0.0
#f
)
(set! s5-0 jakb-gun-attack-from-stance-blue-ja)
(set! (-> self control unknown-sound-id01) (sound-play "blue-whoosh"))
)
(else
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-from-stance-ja)
0.0
30
30
1.0
0.0
#f
)
(set! s5-0 jakb-gun-attack-from-stance-ja)
(quaternion-rotate-y! (-> self control quat-for-control) (-> self control quat-for-control) -3276.8)
(set! (-> self control unknown-sound-id01) (sound-play "spin-kick"))
)
)
)
(else
(quaternion-rotate-y! (-> self control quat-for-control) (-> self control quat-for-control) -1365.3334)
(set! (-> self control unknown-sound-id01) (sound-play "spin-kick"))
)
)
(ja-channel-push! 1 (seconds 0.05))
(ja-no-eval :group! s5-0 :num! (seek! max (-> self control current-surface align-speed)) :frame-num 0.0)
(until (ja-done? 0)
(compute-alignment! (-> self align))
(align! (-> self align) (align-opts adjust-quat) 1.0 1.0 1.0)
(set! (-> self control mod-surface) *attack-mods*)
(when (and gp-0 (send-event (handle->process (-> self control unknown-combo-tracker00 target)) 'combo))
(let* ((s5-1 (handle->process (-> self control unknown-combo-tracker00 target)))
(s5-2 (get-trans
(the-as process-focusable (if (type? s5-1 process-focusable)
(the-as process-focusable s5-1)
)
)
3
)
)
)
(when (< 4096.0 (vector-vector-xz-distance s5-2 (-> self control trans)))
(let ((f30-1 (-> self control transv y)))
(vector-! (-> self control transv) s5-2 (-> self control trans))
(let ((v1-116
(point-tracker-method-11
(-> self control unknown-combo-tracker00)
(new 'stack-no-clear 'vector)
(-> self control trans)
s5-2
(* 0.009107469 (the float (- (current-time) (-> self control unknown-combo-tracker00 move-start-time))))
)
)
)
(vector-xz-normalize!
(-> self control transv)
(fmin 163840.0 (sqrtf (+ (* (-> v1-116 x) (-> v1-116 x)) (* (-> v1-116 z) (-> v1-116 z)))))
)
)
(set! (-> self control mod-surface) *attack-find-mods*)
(set! (-> self control transv y) f30-1)
)
)
)
)
(when (and (= (-> self fact eco-type) 2) (>= (-> self fact eco-level) 1.0))
(do-effect (-> self skel effect) (the-as symbol "group-red-eco-spinkick") (ja-frame-num 0) 49)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 153 (seconds 0.1))
(talker-spawn-func (-> *talker-speech* 47) *entity-pool* (target-pos 0) (the-as region #f))
)
(when (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(can-jump? #f)
)
(set-quaternion! (-> self control) (-> self control dir-targ))
(target-jump-go)
)
(suspend)
(ja :num! (seek! max (-> self control current-surface align-speed)))
)
)
(cond
((and (and (focus-test? self dark) (nonzero? (-> self darkjak))) (= (-> self ext-anim) (target-anim dark)))
(quaternion-rotate-y! (-> self control quat-for-control) (-> self control quat-for-control) -12743.111)
)
((using-gun? self)
(when (zero? (-> self gun track-target-hold-time))
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-blue))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-from-stance-blue-end-ja)
0.0
0
60
1.0
6.0
#f
)
(quaternion-rotate-y! (-> self control quat-for-control) (-> self control quat-for-control) -3640.889)
)
(((pickup-type eco-yellow))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-from-stance-end-ja)
0.0
0
60
1.0
6.0
#f
)
(quaternion-rotate-y! (-> self control quat-for-control) (-> self control quat-for-control) -5461.3335)
)
(else
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-from-stance-end-ja)
0.0
0
60
1.0
6.0
#f
)
(quaternion-rotate-y! (-> self control quat-for-control) (-> self control quat-for-control) -5461.3335)
)
)
)
)
(else
(quaternion-rotate-y! (-> self control quat-for-control) (-> self control quat-for-control) -1365.3334)
)
)
(go target-stance)
)
:post target-post
)
;; definition for symbol *run-attack-mods*, type surface
(define *run-attack-mods* (new 'static 'surface
:name 'punch
:tiltv 32768.0
:tiltvf 150.0
:tiltvv 262144.0
:tiltvvf 15.0
:transv-max 91750.4
:target-speed 122880.0
:seek90 0.5
:seek180 0.15
:slip-factor 1.0
:slide-factor 1.0
:slope-up-factor 0.25
: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
:mode 'attack
:flags (surface-flag no-turn-around turn-to-pad attack gun-inactive)
)
)
;; failed to figure out what this is:
(defstate target-running-attack (target)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(case message
(('touched)
(cond
(((method-of-type touching-shapes-entry prims-touching?)
(the-as touching-shapes-entry (-> block param 0))
(-> self control)
(the-as uint 1920)
)
(let ((gp-1 (target-send-attack
proc
(-> self control danger-mode)
(the-as touching-shapes-entry (-> block param 0))
(the-as int (-> self control target-attack-id))
(the-as int (-> self control attack-count))
(-> self control penetrate-using)
)
)
)
(when gp-1
(set-time! (-> self control sliding-start-time))
(set-time! (-> self gun combo-window-start))
(set! (-> self gun combo-window-state) (-> self state name))
(let ((v1-13 (if (type? proc process-focusable)
proc
)
)
)
(when v1-13
(let* ((s5-1 (-> (the-as process-focusable v1-13) root))
(v1-14 (if (type? s5-1 collide-shape)
s5-1
)
)
)
(if (and v1-14 (or (logtest? (-> v1-14 root-prim prim-core collide-as) (collide-spec enemy))
(logtest? (-> v1-14 root-prim prim-core action) (collide-action no-smack))
)
)
(+! (-> self control unknown-word04) 1)
)
)
)
)
(cond
((or (= gp-1 'die) (= gp-1 'push))
(let ((v0-2 (the-as object (current-time))))
(set! (-> self control unknown-time-frame18) (the-as time-frame v0-2))
v0-2
)
)
((= gp-1 'back)
(let ((f0-0 -122880.0))
(set! (-> self control unknown-word04) (the-as uint f0-0))
f0-0
)
)
)
)
)
)
(else
(target-dangerous-event-handler proc argc message block)
)
)
)
(('gun-combo)
(if (-> block param 0)
(go target-stance)
)
#t
)
(('slide)
#f
)
(else
(target-dangerous-event-handler proc argc message block)
)
)
)
:enter (behavior ()
(if (and (and (focus-test? self dark) (nonzero? (-> self darkjak)))
(and (-> self next-state) (= (-> self next-state name) 'target-running-attack))
(and (= (-> self ext-anim) (target-anim dark)) (zero? (-> self darkjak latch-out-time)))
)
(go target-darkjak-running-attack)
)
(logclear! (-> *cpad-list* cpads (-> self control cpad number) button0-abs 0) (pad-buttons square))
(logclear! (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0) (pad-buttons square))
(set-time! (-> self state-time))
(combo-tracker-method-12
(-> self control unknown-combo-tracker00)
*null-vector*
*null-vector*
(the-as process #f)
(current-time)
)
(set! (-> self control sliding-start-time) 0)
(set! (-> self control unknown-time-frame18) 0)
(set! (-> self control unknown-word04) (the-as uint 0))
(set! (-> self control unknown-word04) (the-as uint 0.0))
(set! (-> self control mod-surface) *run-attack-mods*)
(cond
((= (-> self control ground-pat event) (pat-event slide))
(set! (-> *run-attack-mods* turnv) 0.0)
(set! (-> *run-attack-mods* turnvv) 0.0)
)
(else
(set! (-> *run-attack-mods* turnv) 655360.0)
(set! (-> *run-attack-mods* turnvv) 655360.0)
)
)
(set! (-> self neck flex-blend) 0.0)
(set! (-> self gun track-target-hold-time) 0)
(if (or (< (fabs (-> self control local-slope-x)) 0.3) (< 0.3 (fabs (-> self control local-slope-z))))
(set! (-> self control bend-target) 1.0)
)
(set! (-> self upper-body twist z) 0.0)
)
:exit (behavior ()
(set! (-> self control dynam gravity-max) (-> self control standard-dynamics gravity-max))
(set! (-> self control dynam gravity-length) (-> self control standard-dynamics gravity-length))
(set! (-> *run-attack-mods* turnv) 0.0)
(set! (-> *run-attack-mods* turnvv) 0.0)
(set-time! (-> self control last-running-attack-end-time))
(target-exit)
)
:trans (behavior ()
(when (!= (-> self state-time) (current-time))
(when (and (or (smack-surface? #t)
(and (>= (-> self control surface-slope-z) 0.7)
(not (logtest? (-> self control status) (collide-status touch-actor)))
)
)
(begin
(set-time! (-> self control unknown-time-frame18))
(set! (-> self control bend-target) 0.0)
(let ((v1-11 (new-stack-vector0))
(f0-3 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
)
0.0
(vector-! v1-11 (-> self control transv) (vector-float*! v1-11 (-> self control dynam gravity-normal) f0-3))
(let* ((f1-3 (vector-length v1-11))
(f2-0 f1-3)
(f0-4 (fmin 0.0 f0-3))
)
(vector+!
(-> self control transv)
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f0-4)
(vector-float*! v1-11 v1-11 (/ f1-3 f2-0))
)
)
)
#t
)
(or (zero? (-> self control sliding-start-time))
(time-elapsed? (-> self control sliding-start-time) (seconds 0.04))
)
(!= (-> self control unknown-word04) 1)
)
)
(if (and (cpad-pressed? (-> self control cpad number) x)
(< 4096.0 (-> self control ctrl-xz-vel))
(or (time-elapsed? (-> self state-time) (seconds 0.1))
(not (logtest? (-> *cpad-list* cpads (-> self control cpad number) button0-abs 0) (pad-buttons square)))
)
(not (logtest? (-> self target-flags) (target-flags prevent-jump prevent-attack)))
(not (logtest? (-> self control current-surface flags) (surface-flag no-attack)))
(let ((v1-48 (ja-group)))
(and (not (and v1-48 (= v1-48 jakb-darkjak-attack-combo3-ja)))
(and (not (logtest? (-> self control current-surface flags) (surface-flag no-jump)))
(not (logtest? (-> self target-flags) (target-flags prevent-jump)))
)
)
)
)
(go
target-attack-uppercut
(-> *TARGET-bank* attack-jump-height-min)
(-> *TARGET-bank* attack-jump-height-max)
)
)
(if (and (logtest? (water-flag touch-water) (-> self water flags))
(zero? (mod (- (current-time) (-> self state-time)) 21))
)
(spawn-ripples
(-> self water)
0.6
(vector<-cspace! (new 'stack-no-clear 'vector) (joint-node jakb-lod0-jg neckB))
0
(-> self control transv)
#f
)
)
(when (and (= (-> self fact eco-type) 2) (>= (-> self fact eco-level) 1.0))
(do-effect (-> self skel effect) (the-as symbol "group-red-eco-spinkick") (ja-frame-num 0) 28)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 153 (seconds 0.1))
(talker-spawn-func (-> *talker-speech* 47) *entity-pool* (target-pos 0) (the-as region #f))
)
)
)
:code (behavior ()
(if (logtest? (water-flag touch-water) (-> self water flags))
(sound-play "swim-stroke")
)
(set! (-> self control dynam gravity-max) 368640.0)
(set! (-> self control dynam gravity-length) 368640.0)
(let ((gp-1 jakb-attack-punch-ja))
(ja-channel-push! 1 (seconds 0.02))
(when (using-gun? self)
(set! (-> self gun top-anim-low-high) 0.0)
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-yellow))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-butt-ja)
0.0
30
60
1.0
0.0
#f
)
(set! gp-1 jakb-gun-attack-butt-blue-ja)
)
(((pickup-type eco-blue))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-butt-blue-ja)
0.0
30
60
1.0
0.0
#f
)
(set! gp-1 jakb-gun-attack-butt-blue-ja)
)
(else
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-butt-ja)
0.0
30
60
1.0
0.0
#f
)
(set! gp-1 jakb-gun-attack-butt-ja)
)
)
)
(ja-no-eval :group! gp-1 :num! (seek!))
)
(target-start-attack)
(target-danger-set! 'punch #f)
(if (not (or (not (and (focus-test? self dark) (nonzero? (-> self darkjak))))
(logtest? (-> self darkjak stage) (darkjak-stage force-on active))
)
)
(send-event self 'get-pickup (pickup-type eco-pill-dark) (- (-> *FACT-bank* darkjak-punch-inc)))
)
(initialize (-> self control impact-ctrl) self 28 3276.8 (-> self control root-prim prim-core collide-with))
(let ((f26-0 (the-as number 0.0))
(f30-0 1.0)
(gp-2 0)
(f28-0 1.0)
)
(until (ja-done? 0)
(compute-alignment! (-> self align))
(when (not (ja-min? 0))
(cond
((and (>= (ja-aframe-num 0) 20.0)
(and (and (not (logtest? (-> self control status) (collide-status on-surface)))
(time-elapsed? (-> self control last-time-on-surface) (-> *TARGET-bank* ground-timeout))
(>= 0.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
(>= (target-height-above-ground) (-> *TARGET-bank* fall-height))
)
(time-elapsed? (-> self control sliding-start-time) (seconds 0.04))
)
)
(go target-falling #f)
)
((< (the-as float f26-0) 0.0)
(set! f26-0 (seek (the-as float f26-0) -0.04096 (* 491520.0 (seconds-per-frame))))
(set-forward-vel (the-as float f26-0))
)
((and (nonzero? (-> self control unknown-time-frame18))
(time-elapsed? (-> self control unknown-time-frame18) (seconds 0.04))
)
(set-forward-vel 0.0)
)
((and (not (cpad-hold? (-> self control cpad number) square))
(time-elapsed? (-> self control unknown-combo-tracker00 move-start-time) (seconds 0.05))
)
(if (= (-> self control ground-pat material) (pat-material ice))
(set-forward-vel (fmax 32768.0 (* 0.8 (-> self control ctrl-xz-vel))))
(set-forward-vel (* 0.8 (-> self control ctrl-xz-vel)))
)
)
((ja-done? 0)
(set-forward-vel (the-as float f26-0))
)
(else
(set! f26-0
(* (target-align-vel-z-adjust (-> self align delta trans z)) (-> self clock frames-per-second) f30-0)
)
(set-forward-vel (the-as float f26-0))
)
)
)
(let ((s5-1 (new-stack-vector0)))
(vector-matrix*! s5-1 (-> self control transv) (-> self control w-R-c))
(set! (-> s5-1 y) 0.0)
(vector-matrix*! (-> self control align-xz-vel) s5-1 (-> self control c-R-w))
)
(when (!= (the-as float (-> self control unknown-word04)) 0.0)
(activate! *camera-smush-control* 819.2 15 75 1.0 0.9 (-> *display* camera-clock))
(set! f26-0 (-> self control unknown-word04))
(set! (-> self control unknown-word04) (the-as uint 0.0))
)
(when (and (>= (the-as float f26-0) 0.0)
(let ((s5-2 (ja-group))
(f24-0 (ja-aframe-num 0))
)
(if (or (and (= s5-2 jakb-attack-punch-ja)
(>= f24-0 10.0)
(>= (the float (+ (-> (the-as art-joint-anim jakb-attack-punch-ja) frames num-frames) -1)) (ja-frame-num 0))
)
(and (= s5-2 jakb-gun-attack-butt-ja)
(>= f24-0 10.0)
(>= (the float (+ (-> (the-as art-joint-anim jakb-gun-attack-butt-ja) frames num-frames) -1))
(ja-frame-num 0)
)
)
(and (= s5-2 jakb-gun-attack-butt-blue-ja)
(>= f24-0 10.0)
(>= (the float (+ (-> (the-as art-joint-anim jakb-gun-attack-butt-blue-ja) frames num-frames) -1))
(ja-frame-num 0)
)
)
)
#t
)
)
)
(let ((s5-3 (new 'stack-no-clear 'collide-query)))
(when (and (>= (impact-control-method-11
(-> self control impact-ctrl)
s5-3
(the-as process #f)
(new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1 :board #x1)
)
0.0
)
(>= 0.0 (vector-dot (-> s5-3 best-other-tri normal) (-> self control impact-ctrl dir)))
)
(when (= (-> s5-3 best-other-tri pat mode) (pat-mode wall))
(cond
((logtest? (-> *part-group-id-table* 12 flags) (sp-group-flag sp13))
(set! (-> *launch-matrix* trans quad) (-> s5-3 best-other-tri intersect quad))
(part-tracker-spawn part-tracker-subsampler :to self :group (-> *part-group-id-table* 12))
)
(else
(set! (-> *launch-matrix* trans quad) (-> s5-3 best-other-tri intersect quad))
(part-tracker-spawn part-tracker :to self :group (-> *part-group-id-table* 12))
)
)
(let ((name (if (using-gun? self)
(the-as sound-name (static-sound-name "gun-punch-w-hit"))
(the-as sound-name (static-sound-name "punch-w-hit"))
)
)
)
(play-effect-sound
(-> self skel effect)
(the-as symbol "punch")
-1.0
(-> self control impact-ctrl joint)
(the-as basic #f)
(the-as sound-name name)
)
)
(activate! *camera-smush-control* 819.2 15 75 1.0 0.9 (-> *display* camera-clock))
(set! f26-0 -61440.0)
)
)
)
)
(suspend)
(ja :num! (seek! max (* (-> self control current-surface align-speed) f28-0)))
(if (time-elapsed? (-> self state-time) (seconds 0.1))
(set! (-> *run-attack-mods* turnvv) 0.0)
)
(if (< 2 gp-2)
(set! f30-0 (* f30-0 (fmin 1.0 (-> self control zx-vel-frac))))
)
(+! gp-2 1)
)
)
(if (and (not (logtest? (-> self control status) (collide-status on-surface)))
(time-elapsed? (-> self control last-time-on-surface) (-> *TARGET-bank* ground-timeout))
(>= 0.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
(>= (target-height-above-ground) (-> *TARGET-bank* fall-height))
)
(go target-falling #f)
)
(when (and (using-gun? self)
(or (< (-> self control pad-magnitude) 0.7) (= (gun->eco (-> self gun gun-type)) (pickup-type eco-blue)))
)
(set! (-> self gun surpress-time) (+ (current-time) (seconds 0.5)))
(when (zero? (-> self gun track-target-hold-time))
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-blue))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-butt-blue-end-ja)
0.0
0
60
1.0
12.0
#f
)
)
(else
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-butt-end-ja)
0.0
0
60
1.0
12.0
#f
)
)
)
)
)
(go target-stance)
)
:post target-post
)
;; definition for symbol *jump-attack-mods*, type surface
(define *jump-attack-mods*
(new 'static 'surface
:name 'attack
:turnvv 18204.445
:turnvvf 30.0
:tiltv 32768.0
:tiltvf 150.0
:tiltvv 262144.0
:tiltvvf 15.0
:transv-max 24576.0
:target-speed 24576.0
:seek0 0.9
:seek90 0.9
:seek180 0.9
:fric 0.2
: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))
(case arg3
((1)
(if (and (>= (-> self gun fire-pending) 2) (< (-> self gun fire-pending) 5))
(logclear! (-> arg0 flags) (surface-flag gun-direct))
)
(case (-> self control ground-pat event)
(((pat-event slide))
(set! (-> arg0 seek0) 0.05)
(set! (-> arg0 seek90) 0.05)
(set! (-> arg0 seek180) 0.05)
)
)
)
)
)
:mode 'air
:flags (surface-flag check-edge air attack spin gun-direct laser-hide)
)
)
;; failed to figure out what this is:
(defstate target-attack-air (target)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(let ((v0-0 (target-bonk-event-handler proc argc message block)))
(cond
(v0-0
(empty)
v0-0
)
(else
(target-dangerous-event-handler proc argc message block)
)
)
)
)
:enter (behavior ((arg0 symbol))
(set-time! (-> self state-time))
(logclear! (-> self control status) (collide-status on-surface on-ground touch-surface))
(target-start-attack)
(target-danger-set! 'spin-air #f)
(if (not (or (not (and (focus-test? self dark) (nonzero? (-> self darkjak))))
(logtest? (-> self darkjak stage) (darkjak-stage force-on active))
)
)
(send-event self 'get-pickup (pickup-type eco-pill-dark) (- (-> *FACT-bank* darkjak-spin-inc)))
)
(set! (-> self control mod-surface) *jump-attack-mods*)
(set! (-> self neck flex-blend) 0.0)
(let ((f0-4 (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
(cond
((or (>= 0.0 f0-4) (= arg0 'flop))
(let ((v1-28 (new-stack-vector0)))
(let ((f0-6 (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
0.0
(vector-! v1-28 (-> self control transv) (vector-float*! v1-28 (-> self control dynam gravity-normal) f0-6))
)
(let* ((f0-7 (vector-length v1-28))
(f1-2 f0-7)
(f2-0 33775.48)
)
(vector+!
(-> self control transv)
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f2-0)
(vector-float*! v1-28 v1-28 (/ f0-7 f1-2))
)
)
)
)
(else
(let* ((f1-5 (/ f0-4 (* (-> self control dynam gravity-length) (seconds-per-frame))))
(f0-9 (* 0.5 f1-5 (seconds-per-frame) f0-4))
)
(let ((v1-36 (ja-group)))
(if (and v1-36
(or (= v1-36 jakb-attack-uppercut-ja)
(= v1-36 jakb-gun-attack-upperbutt-ja)
(= v1-36 jakb-gun-attack-upperbutt-blue-ja)
)
)
(set! f0-9
(fmax
0.0
(- (-> *TARGET-bank* attack-jump-height-max)
(vector-dot
(-> self control dynam gravity-normal)
(vector-! (new 'stack-no-clear 'vector) (-> self control trans) (-> self control last-trans-any-surf))
)
)
)
)
)
)
(let ((v1-47 (new-stack-vector0)))
(let ((f1-11 (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
0.0
(vector-! v1-47 (-> self control transv) (vector-float*! v1-47 (-> self control dynam gravity-normal) f1-11))
)
(let* ((f1-12 (vector-length v1-47))
(f2-7 f1-12)
(f0-14 (+ 1024.0 (sqrtf (* 245760.0 (+ 2048.0 f0-9)))))
)
(vector+!
(-> self control transv)
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f0-14)
(vector-float*! v1-47 v1-47 (/ f1-12 f2-7))
)
)
)
)
)
)
)
(set! (-> self control dynam gravity-length) 122880.0)
(set! (-> self control last-trans-any-surf quad) (-> self control trans quad))
)
:exit (behavior ()
(set! (-> self control dynam gravity-max) (-> self control standard-dynamics gravity-max))
(set! (-> self control dynam gravity-length) (-> self control standard-dynamics gravity-length))
(set-time! (-> self control last-attack-end-time))
(target-exit)
)
:trans (behavior ()
(when (logtest? (-> self control status) (collide-status on-surface))
(set-quaternion! (-> self control) (-> self control dir-targ))
(go target-hit-ground #f)
)
(if (time-elapsed? (-> self state-time) (seconds 0.5))
(seek!
(-> self control dynam gravity-length)
(-> self control standard-dynamics gravity-length)
(* 245760.0 (seconds-per-frame))
)
)
(when (and (time-elapsed? (-> self state-time) (seconds 0.05))
(< (vector-dot (-> self control dynam gravity-normal) (-> self control last-transv))
(vector-dot (-> self control dynam gravity-normal) (-> self control transv))
)
)
(set! (-> self control dynam gravity-max) (-> self control standard-dynamics gravity-max))
(set! (-> self control dynam gravity-length) (-> self control standard-dynamics gravity-length))
)
(when (and (= (-> self fact eco-type) 2) (>= (-> self fact eco-level) 1.0))
(do-effect (-> self skel effect) (the-as symbol "group-red-eco-spinkick") (ja-frame-num 0) 43)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 153 (seconds 0.1))
(talker-spawn-func (-> *talker-speech* 47) *entity-pool* (target-pos 0) (the-as region #f))
)
(when (and (cpad-pressed? (-> self control cpad number) r1)
(zero? (-> self gun fire-pending))
(!= (-> self gun gun-type) 31)
)
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-yellow))
(+! (-> self gun fire-pending) 5)
)
(((pickup-type eco-blue))
(+! (-> self gun fire-pending) 5)
(set! (-> self gun fire-spinv) 218453.33)
)
(((pickup-type eco-red))
(+! (-> self gun fire-pending) 2)
)
)
)
)
:code (behavior ((arg0 symbol))
(target-attack-air-anim)
(go target-falling #f)
)
:post target-post
)
;; failed to figure out what this is:
(let ((v1-34 (copy *turn-around-mods* 'global)))
(set! (-> v1-34 flags) (surface-flag attack gun-inactive))
(set! *uppercut-mods* v1-34)
)
;; definition for symbol *uppercut-jump-mods*, type surface
(define *uppercut-jump-mods* (new 'static 'surface
:name 'uppercut
:turnvv 18204.445
:turnvvf 30.0
:tiltv 32768.0
:tiltvf 150.0
:tiltvv 262144.0
:tiltvvf 15.0
:transv-max 32768.0
:target-speed 32768.0
:seek0 0.3
:seek90 0.3
:seek180 0.3
:fric 0.2
: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))
(surface-clamp-speed arg0 arg1 arg2 arg3)
(when (= arg3 1)
(when (nonzero? (-> self gun track-target-hold-time))
(set! (-> arg0 turnv) 262144.0)
(set! (-> arg0 turnvf) 15.0)
)
)
)
:mode 'air
:flags (surface-flag check-edge air attack spin gun-direct laser-hide)
)
)
;; failed to figure out what this is:
(defstate target-attack-uppercut (target)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(case message
(('change-mode)
(if (and (= (-> block param 0) 'gun) (focus-test? self dark))
#f
(target-dangerous-event-handler proc argc message block)
)
)
(else
(target-dangerous-event-handler proc argc message block)
)
)
)
:enter (behavior ((arg0 float) (arg1 float))
(set-time! (-> self state-time))
(target-start-attack)
(target-danger-set! 'uppercut #f)
(if (not (or (not (and (focus-test? self dark) (nonzero? (-> self darkjak))))
(logtest? (-> self darkjak stage) (darkjak-stage force-on active))
)
)
(send-event self 'get-pickup (pickup-type eco-pill-dark) (- (-> *FACT-bank* darkjak-uppercut-inc)))
)
(set! (-> self control mod-surface) *uppercut-mods*)
(set! (-> self neck flex-blend) 0.0)
(set! (-> self gun surpress-time) (+ (current-time) (seconds 0.15)))
(if (using-gun? self)
(target-top-anim-base-mode 37)
)
(set! (-> self control unknown-sound-id00) (new 'static 'sound-id))
0
)
:exit (behavior ()
(if (not (and (-> self next-state) (= (-> self next-state name) 'target-darkjak-bomb1)))
(set-action!
*gui-control*
(gui-action stop)
(-> self control unknown-sound-id00)
(gui-channel none)
(gui-action none)
(the-as string #f)
(the-as (function gui-connection symbol) #f)
(the-as process #f)
)
)
(target-exit)
)
:code (behavior ((arg0 float) (arg1 float))
(let* ((v1-2 (ja-group))
(f30-0 (if (and v1-2 (= v1-2 jakb-duck-stance-ja))
5.0
0.0
)
)
)
(cond
((using-gun? self)
(set! (-> self gun top-anim-low-high) 0.0)
(case (gun->eco (-> self gun gun-type))
(((pickup-type eco-blue))
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-upperbutt-blue-ja)
f30-0
5
30
1.0
0.0
#f
)
(ja-no-eval :group! jakb-gun-attack-upperbutt-blue-ja
:num! (seek! (ja-aframe 7.0 0))
:frame-num (ja-aframe f30-0 0)
)
(until (ja-done? 0)
(suspend)
(ja :num! (seek! (ja-aframe 7.0 0)))
)
)
(else
(push-anim-to-targ
(-> self skel top-anim)
(the-as art-joint-anim jakb-gun-attack-upperbutt-ja)
f30-0
5
30
1.0
0.0
#f
)
(ja-no-eval :group! jakb-gun-attack-upperbutt-ja
:num! (seek! (ja-aframe 7.0 0))
:frame-num (ja-aframe f30-0 0)
)
(until (ja-done? 0)
(suspend)
(ja :num! (seek! (ja-aframe 7.0 0)))
)
)
)
)
((and (and (focus-test? self dark)
(nonzero? (-> self darkjak))
(logtest? (-> self darkjak stage) (darkjak-stage giant))
)
(and (= (-> self ext-anim) (target-anim dark))
(logtest? (the-as game-feature (logand (game-feature darkjak-bomb1) (-> *setting-control* user-current features)))
(-> self game features)
)
(zero? (-> self darkjak latch-out-time))
(>= (-> self game eco-pill-dark) (-> *FACT-bank* darkjak-bomb-min))
)
)
(set! (-> self control unknown-sound-id00)
(add-process *gui-control* self (gui-channel jak-effect-1) (gui-action queue) "darkbom1" -99.0 0)
)
(ja-no-eval :group! (-> self draw art-group data 441)
:num! (seek! (ja-aframe 7.0 0))
:frame-num (ja-aframe f30-0 0)
)
(until (ja-done? 0)
(suspend)
(ja :num! (seek! (ja-aframe 7.0 0)))
)
(go target-darkjak-bomb1 arg0 arg1)
)
(else
(ja-no-eval :group! jakb-attack-uppercut-ja :num! (seek! (ja-aframe 7.0 0)) :frame-num (ja-aframe f30-0 0))
(until (ja-done? 0)
(suspend)
(ja :num! (seek! (ja-aframe 7.0 0)))
)
)
)
)
(go target-attack-uppercut-jump arg0 arg1)
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-attack-uppercut-jump (target)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(case message
(('gun-combo)
(when (-> block param 0)
(forward-up-nopitch->quaternion
(-> self control dir-targ)
(vector-! (new 'stack-no-clear 'vector) (-> self gun track-trans) (-> self control trans))
(vector-y-quaternion! (new-stack-vector0) (-> self control dir-targ))
)
(let ((v1-7 (new-stack-vector0)))
(let ((f0-1 (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
0.0
(vector-! v1-7 (-> self control transv) (vector-float*! v1-7 (-> self control dynam gravity-normal) f0-1))
)
(let* ((f0-2 (vector-length v1-7))
(f1-1 f0-2)
(f2-3
(- (sqrtf (* 8192.0 (-> self control dynam gravity-length)))
(* 0.008333334 (- (-> self control dynam gravity-length)))
)
)
)
(vector+!
(-> self control transv)
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f2-3)
(vector-float*! v1-7 v1-7 (/ f0-2 f1-1))
)
)
)
(set! (-> self gun surpress-time) (+ (current-time) (seconds 0.5)))
(go target-falling 'uppercut)
)
#t
)
(else
(target-dangerous-event-handler proc argc message block)
)
)
)
:enter (behavior ((arg0 float) (arg1 float))
(if (and (= (-> self control ground-pat material) (pat-material ice)) (< 32768.0 (-> self control ctrl-xz-vel)))
(set-forward-vel 32768.0)
)
(set-time! (-> self state-time))
(init-var-jump arg0 arg1 #t #f (-> self control transv) 2.0)
(logclear! (-> self control status) (collide-status on-surface on-ground touch-surface))
(set! (-> self neck flex-blend) 0.0)
(set! (-> self control mod-surface) *uppercut-jump-mods*)
(target-start-attack)
(target-danger-set! 'uppercut #f)
(set-time! (-> self gun combo-window-start))
(set! (-> self gun combo-window-state) (-> self state name))
(set! (-> self gun track-target-hold-time) 0)
0
)
:exit target-exit
:trans (behavior ()
(if (logtest? (-> self control status) (collide-status on-surface))
(go target-hit-ground #f)
)
(when (and (cpad-pressed? (-> self control cpad number) square)
(< (vector-dot (-> self control dynam gravity-normal) (-> self control transv)) 22118.4)
(< -61440.0 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
(and (time-elapsed? (-> self control last-time-of-stuck) (the-as time-frame (-> *TARGET-bank* stuck-timeout)))
(not (logtest? (-> self target-flags) (target-flags prevent-attack)))
(not (logtest? (-> self control current-surface flags) (surface-flag no-attack no-hands)))
(not (and (not (using-gun? self)) (!= (-> self skel top-anim interp) 0.0)))
)
)
(set-quaternion! (-> self control) (-> self control dir-targ))
(build-conversions (-> self control transv))
(go
target-flop
65502.96
-163840.0
(the-as float (if (= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
0
#x47866666
)
)
'flop
)
)
(if (and (cpad-pressed? (-> self control cpad number) circle)
(and (can-feet? #f)
(let ((v1-65 (ja-group)))
(and v1-65 (or (= v1-65 jakb-attack-uppercut-ja) (= v1-65 jakb-gun-attack-upperbutt-ja)))
)
(>= (ja-aframe-num 0) 12.0)
)
)
(go target-attack-air 'uppercut)
)
(mod-var-jump #t #t (cpad-hold? (-> self control cpad number) x) (-> self control transv))
(when (and (= (-> self fact eco-type) 2) (>= (-> self fact eco-level) 1.0))
(do-effect (-> self skel effect) (the-as symbol "group-red-eco-spinkick") (ja-frame-num 0) 28)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 153 (seconds 0.1))
)
(if (and (= (-> self control danger-mode) 'uppercut)
(< (vector-dot (-> self control dynam gravity-normal) (-> self control transv)) -8192.0)
)
(target-danger-set! 'harmless #f)
)
(slide-down-test)
)
:code (behavior ((arg0 float) (arg1 float))
(when (or (= (-> self skel top-anim frame-group) jakb-gun-attack-upperbutt-ja)
(= (-> self skel top-anim frame-group) jakb-gun-attack-upperbutt-blue-ja)
)
(let ((v1-10 (get-channel (-> self skel top-anim) 0)))
(if v1-10
(set! (-> v1-10 param 1) 0.9)
)
)
)
(compute-alignment! (-> self align))
(until (ja-done? 0)
(suspend)
(ja :num! (seek! max 0.9))
(compute-alignment! (-> self align))
(set! (-> self control turn-go-the-long-way) 1.0)
(let ((v1-27 (ja-group)))
(if (and v1-27 (= v1-27 jakb-attack-uppercut-ja))
(align!
(-> self align)
(the-as align-opts (cond
((>= 30.0 (ja-aframe-num 0))
(set! (-> self gun surpress-time) (+ (current-time) (seconds 0.1)))
(if (nonzero? (-> self gun track-target-hold-time))
2
18
)
)
((>= 43.0 (ja-aframe-num 0))
(set! (-> self control mod-surface) *double-jump-mods*)
2
)
(else
0
)
)
)
1.0
0.95
1.0
)
(align!
(-> self align)
(the-as align-opts (cond
((>= 35.0 (ja-aframe-num 0))
(set! (-> self gun surpress-time) (+ (current-time) (seconds 0.1)))
(if (nonzero? (-> self gun track-target-hold-time))
2
18
)
)
((>= 43.0 (ja-aframe-num 0))
(set! (-> self control mod-surface) *double-jump-mods*)
2
)
(else
0
)
)
)
1.0
0.95
1.0
)
)
)
)
(set-time! (-> self gun surpress-time))
(go target-falling #f)
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-flop (target)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(local-vars (v1-0 symbol))
(let ((v0-0 (target-bonk-event-handler proc argc message block)))
(cond
(v0-0
(empty)
v0-0
)
((begin (set! v1-0 message) (= v1-0 'slide))
#f
)
((= v1-0 'swim)
(cond
((< 6144.0 (target-height-above-ground))
(sound-play "swim-flop")
(set! (-> self control unknown-float43) 0.0)
(go target-swim-down)
)
(else
(go target-flop-hit-ground 'swim)
)
)
)
(else
(target-dangerous-event-handler proc argc message block)
)
)
)
)
:enter (behavior ((arg0 float) (arg1 float) (arg2 float) (arg3 object))
(cond
((and (= (-> self fact eco-type) 1) (>= (-> self fact eco-level) 1.0))
(go target-yellow-jump-blast)
)
((and (and (focus-test? self dark)
(nonzero? (-> self darkjak))
(logtest? (-> self darkjak stage) (darkjak-stage invinc))
)
(and (= (-> self ext-anim) (target-anim dark))
(logtest? (the-as game-feature (logand (game-feature darkjak-bomb0) (-> *setting-control* user-current features)))
(-> self game features)
)
(zero? (-> self darkjak latch-out-time))
(>= (-> self game eco-pill-dark) (-> *FACT-bank* darkjak-bomb-min))
)
)
(go target-darkjak-bomb0)
)
)
(if (= arg2 0.0)
(set-forward-vel arg2)
(set-forward-vel (-> self control ctrl-xz-vel))
)
(set-time! (-> self state-time))
(logclear! (-> self control status) (collide-status on-surface on-ground touch-surface))
(set! (-> self control mod-surface) *flop-mods*)
(set! (-> self neck flex-blend) 0.0)
(set! (-> self control unknown-word04) (the-as uint 0))
(set! (-> self control dynam gravity-max) 245760.0)
(set! (-> self control dynam gravity-length) 245760.0)
(let ((v1-44 (new-stack-vector0)))
(let ((f0-8 (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
0.0
(vector-! v1-44 (-> self control transv) (vector-float*! v1-44 (-> self control dynam gravity-normal) f0-8))
)
(let* ((f0-9 (vector-length v1-44))
(f1-4 f0-9)
(f2-0 29491.2)
)
(vector+!
(-> self control transv)
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f2-0)
(vector-float*! v1-44 v1-44 (/ f0-9 f1-4))
)
)
)
)
:exit (behavior ()
(let ((v1-2 (get-channel (-> self skel top-anim) 0)))
(when v1-2
(case (-> v1-2 frame-group)
((jakb-gun-flop-down-ja)
(set! (-> v1-2 param 1) 10.0)
)
)
)
)
(target-danger-set! 'harmless #f)
(set! (-> self control dynam gravity-max) (-> self control standard-dynamics gravity-max))
(set! (-> self control dynam gravity-length) (-> self control standard-dynamics gravity-length))
(set! (-> self control dynam gravity quad) (-> self control standard-dynamics gravity quad))
(set! (-> self neck flex-blend) 1.0)
)
:trans (behavior ()
(delete-back-vel)
(let ((gp-1 (logtest? (-> self control status) (collide-status on-surface))))
(when (and (not gp-1) (let ((v1-6 (ja-group)))
(and v1-6 (or (= v1-6 jakb-flop-down-loop-ja) (= v1-6 jakb-moving-flop-down-ja)))
)
)
(when (and (or (< (target-move-dist (seconds 0.1)) 1638.4)
(and (logtest? (-> self control status) (collide-status touch-wall)) (< 0.7 (-> self control poly-angle)))
)
(not (logtest? (-> self control status) (collide-status touch-actor)))
(>= (-> self control unknown-word04) (the-as uint 2))
)
(set-time! (-> self control last-time-of-stuck))
(set! gp-1 'stuck)
)
)
(when gp-1
(logior! (-> self control status) (collide-status on-surface))
(when (or (and (= (-> self fact eco-type) 2) (>= (-> self fact eco-level) 1.0))
(and (focus-test? self dark)
(nonzero? (-> self darkjak))
(logtest? (-> self darkjak stage) (darkjak-stage bomb0))
)
)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 255 (seconds 0.5))
(if (and (= (-> self fact eco-type) 2) (>= (-> self fact eco-level) 1.0))
(do-effect (-> self skel effect) (the-as symbol "group-red-eco-strike-ground") (ja-frame-num 0) 0)
)
(let ((v1-56
(process-spawn
touch-tracker
:init touch-tracker-init
(-> self control trans)
#x45800000
30
:name "touch-tracker"
:to self
)
)
)
(send-event
(ppointer->process v1-56)
'function
(lambda :behavior target
((arg0 process-focusable))
(set! (-> arg0 root root-prim local-sphere w)
(seek (-> arg0 root root-prim local-sphere w) 28672.0 (* 286720.0 (seconds-per-frame)))
)
)
)
)
)
(go target-flop-hit-ground gp-1)
)
)
(when (and (= (-> self fact eco-type) 2) (>= (-> self fact eco-level) 1.0))
(do-effect
(-> self skel effect)
(the-as symbol "group-red-eco-spinkick")
(ja-frame-num 0)
(if (rand-vu-percent? 0.5)
28
19
)
)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 153 (seconds 0.1))
)
(when (and (not (-> self control danger-mode))
(let ((v1-80 (ja-group)))
(and v1-80 (= v1-80 jakb-flop-down-ja))
)
(>= (ja-aframe-num 0) 8.0)
)
(target-start-attack)
(target-danger-set! 'flop #f)
(if (not (or (not (and (focus-test? self dark) (nonzero? (-> self darkjak))))
(logtest? (-> self darkjak stage) (darkjak-stage force-on active))
)
)
(send-event self 'get-pickup (pickup-type eco-pill-dark) (- (-> *FACT-bank* darkjak-flop-inc)))
)
)
)
:code (behavior ((arg0 float) (arg1 float) (arg2 float) (arg3 object))
(if (using-gun? self)
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-flop-down-ja) 0.0 0 30 1.0 0.0 #f)
)
(ja-channel-set! 2)
(ja-no-eval :group! jakb-flop-down-ja :num! (seek!) :frame-num 0.0)
(ja :chan 1 :group! jakb-moving-flop-down-ja :num! (chan 0) :frame-num 0.0)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
(let ((gp-1 (-> self skel root-channel 1)))
(let ((f0-10 (lerp-scale 0.0 1.0 (-> self control ctrl-xz-vel) 0.0 40960.0)))
(set! (-> gp-1 frame-interp 1) f0-10)
(set! (-> gp-1 frame-interp 0) f0-10)
)
(set! (-> gp-1 param 0) (the float (+ (-> gp-1 frame-group frames num-frames) -1)))
(set! (-> gp-1 param 1) 1.0)
(joint-control-channel-group-eval! gp-1 (the-as art-joint-anim #f) num-func-seek!)
)
)
(set! (-> self control dynam gravity-length) (-> self control standard-dynamics gravity-length))
(set! (-> self control dynam gravity quad) (-> self control standard-dynamics gravity quad))
(target-danger-set! 'flop-down #f)
(let ((v1-56 (get-channel (-> self skel top-anim) 0)))
(if (and v1-56 (= (-> v1-56 frame-group) jakb-gun-flop-down-ja))
(set! (-> v1-56 param 1) 0.0)
)
)
(let ((f30-0 1.0))
(let ((v1-58 (new-stack-vector0)))
(let ((f0-17 (vector-dot (-> self control dynam gravity-normal) (-> self control align-xz-vel))))
0.0
(vector-!
v1-58
(-> self control align-xz-vel)
(vector-float*! v1-58 (-> self control dynam gravity-normal) f0-17)
)
)
(let* ((f0-18 (vector-length v1-58))
(f1-1 f0-18)
(f2-0 -368640.0)
)
(vector+!
(-> self control align-xz-vel)
(vector-float*! (-> self control align-xz-vel) (-> self control dynam gravity-normal) f2-0)
(vector-float*! v1-58 v1-58 (/ f0-18 f1-1))
)
)
)
(let ((v1-59 (new-stack-vector0)))
(let ((f0-21 (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
0.0
(vector-! v1-59 (-> self control transv) (vector-float*! v1-59 (-> self control dynam gravity-normal) f0-21))
)
(let* ((f0-22 (vector-length v1-59))
(f1-3 f0-22)
(f2-2 (* -368640.0 f30-0))
)
(vector+!
(-> self control transv)
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f2-2)
(vector-float*! v1-59 v1-59 (/ f0-22 f1-3))
)
)
)
(suspend)
(until #f
(+! (-> self control unknown-word04) 1)
(ja :num! (seek!))
(let ((gp-2 (-> self skel root-channel 1)))
(let ((f0-28 (lerp-scale 0.0 1.0 (-> self control ctrl-xz-vel) 0.0 40960.0)))
(set! (-> gp-2 frame-interp 1) f0-28)
(set! (-> gp-2 frame-interp 0) f0-28)
)
(set! (-> gp-2 param 0) 0.0)
(joint-control-channel-group-eval! gp-2 (the-as art-joint-anim #f) num-func-chan)
)
(set! f30-0 (* f30-0 (fmin 1.0 (-> self control zx-vel-frac))))
(let ((v1-77 (new-stack-vector0))
(f0-33 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
)
0.0
(vector-! v1-77 (-> self control transv) (vector-float*! v1-77 (-> self control dynam gravity-normal) f0-33))
(let* ((f2-3 (vector-length v1-77))
(f1-7 f2-3)
)
(if (< (-> self control current-surface transv-max) f2-3)
(set! f2-3 (-> self control current-surface transv-max))
)
(vector+!
(-> self control transv)
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f0-33)
(vector-float*! v1-77 v1-77 (/ f2-3 f1-7))
)
)
)
(if (and (time-elapsed? (-> self state-time) (-> *TARGET-bank* fall-timeout)) (!= (-> self tobot?) 'tobot))
(go target-falling #f)
)
(if (and (= *cheat-mode* 'debug)
(cpad-hold? (-> self control cpad number) r2)
(not *pause-lock*)
(!= (-> self tobot?) 'tobot)
)
(go target-falling #f)
)
(suspend)
)
)
#f
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-flop-hit-ground (target)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(cond
((and (-> self next-state) (= (-> self next-state name) 'target-flop-hit-ground))
(case message
(('swim 'slide)
#f
)
(else
(target-standard-event-handler proc argc message block)
)
)
)
(else
(target-jump-event-handler proc argc message block)
)
)
)
:enter (behavior ((arg0 symbol))
(let ((f0-1 (vector-dot
(-> self control dynam gravity-normal)
(vector-! (new 'stack-no-clear 'vector) (-> self control highest-jump-mark) (-> self control trans))
)
)
)
(if (< (-> *TARGET-bank* fall-far) f0-1)
(go target-hit-ground-hard f0-1)
)
)
(target-land-effect)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 255 (seconds 0.1))
(set-time! (-> self state-time))
(set! (-> self control unknown-word04) (the-as uint arg0))
(set-forward-vel 0.0)
(set! (-> self control mod-surface) *flop-land-mods*)
(logclear! (-> *flop-land-mods* flags) (surface-flag check-edge))
(logior! (-> self target-flags) (target-flags tf15))
(set! (-> self neck flex-blend) 0.0)
(cond
((= arg0 'swim)
)
(else
)
)
)
:exit target-exit
:trans (behavior ()
(when (and (!= (-> self control unknown-spool-anim00) 'stuck) (!= (-> self state-time) (current-time)))
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons circle)
)
(can-feet? #f)
)
(go target-attack-air 'flop)
)
)
(when (and (and (= (-> self fact eco-type) 2) (>= (-> self fact eco-level) 1.0))
(not (time-elapsed? (-> self state-time) (seconds 0.25)))
)
(do-effect
(-> self skel effect)
(the-as symbol "group-red-eco-spinkick")
(ja-frame-num 0)
(if (rand-vu-percent? 0.5)
28
19
)
)
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 153 (seconds 0.1))
)
(let ((v1-37 (ja-group)))
(if (and (and v1-37 (= v1-37 jakb-flop-down-land-ja)) (>= (ja-aframe-num 0) 28.0))
(logior! (-> *flop-land-mods* flags) (surface-flag check-edge))
)
)
(slide-down-test)
)
:code (behavior ((arg0 symbol))
(target-hit-ground-anim arg0 (are-still?))
(go target-falling #f)
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-roll (target)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(if (= message 'touched)
(send-event proc 'roll)
)
(case message
(('gun-combo)
(when (-> block param 0)
(forward-up-nopitch->quaternion
(-> self control dir-targ)
(vector-! (new 'stack-no-clear 'vector) (-> self gun track-trans) (-> self control trans))
(vector-y-quaternion! (new-stack-vector0) (-> self control dir-targ))
)
(let ((a0-8 (-> self control)))
(set-quaternion! a0-8 (-> self control dir-targ))
(go target-duck-stance (the-as symbol a0-8))
)
)
#t
)
(else
(target-standard-event-handler proc argc message block)
)
)
)
:enter (behavior ()
(target-collide-set! 'duck 1.0)
(set-time! (-> self state-time))
(set! (-> self neck flex-blend) 0.0)
(set! (-> self neck base-joint) (the-as uint 8))
(set! (-> self control mod-surface) *roll-mods*)
(+! (-> self control unknown-word02) 1)
(rot->dir-targ! (-> self control))
(set-forward-vel (+ (-> *TARGET-bank* roll-speed-min)
(* (-> *TARGET-bank* roll-speed-inc) (the float (+ (-> self control unknown-word02) -1)))
)
)
(if (or (< (fabs (-> self control local-slope-x)) 0.3) (< 0.3 (fabs (-> self control local-slope-z))))
(set! (-> self control bend-target) 1.0)
)
(set! (-> self control unknown-word04) (the-as uint 0))
(set! (-> self control did-move-to-pole-or-max-jump-height) 0.0)
(set! (-> self gun track-target-hold-time) 0)
)
:exit (behavior ()
(when (not (and (-> self next-state) (= (-> self next-state name) 'target-roll)))
(set! (-> self control unknown-word02) 0)
(set-time! (-> self control last-roll-end-time))
)
(target-exit)
(target-collide-set! 'normal 0.0)
)
:code (behavior ()
(let ((gp-0 0))
0
(let ((s5-0 0)
(f30-0 1.0)
(s4-0 #f)
)
(ja-channel-push! 1 (seconds 0.04))
(cond
((using-gun? self)
(set! (-> self gun top-anim-low-high) 0.0)
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-duck-roll-ja) 0.0 15 30 1.0 0.0 #f)
(ja :group! jakb-gun-duck-roll-ja :num! min)
)
(else
(ja :group! jakb-duck-roll-ja :num! min)
)
)
(until (ja-done? 0)
(if (cpad-pressed? (-> self control cpad number) x)
(set! gp-0 (the-as int (current-time)))
)
(when (and (not s4-0) (time-elapsed? (-> self state-time) (seconds 0.2)))
(set! s4-0 #t)
(set-time! (-> self gun combo-window-start))
(set! (-> self gun combo-window-state) (-> self state name))
)
(when (and (or (smack-surface? #f) (>= (-> self control surface-slope-z) 0.7))
(>= (the-as uint (- (current-time) (the-as int (-> self control unknown-word04)))) (the-as uint 3))
(time-elapsed? (-> self state-time) 1)
)
(when (>= 6.0 (ja-aframe-num 0))
(if (using-gun? self)
(target-top-anim-base-mode 15)
)
(target-shoved
(-> *TARGET-bank* smack-surface-dist)
(-> *TARGET-bank* smack-surface-height)
(the-as process #f)
target-hit
)
)
(if (zero? s5-0)
(set! s5-0 (the-as int (current-time)))
)
)
(if (cpad-pressed? (-> self control cpad number) square)
(current-time)
)
(compute-alignment! (-> self align))
(cond
((nonzero? s5-0)
)
(else
(align! (-> self align) (align-opts adjust-xz-vel) 1.0 1.0 f30-0)
(let ((s3-2 (new-stack-vector0)))
(vector-matrix*! s3-2 (-> self control transv) (-> self control w-R-c))
(set! (-> s3-2 y) 0.0)
(vector-matrix*! (-> self control align-xz-vel) s3-2 (-> self control c-R-w))
)
)
)
(suspend)
(ja :num! (seek!))
(set! f30-0 (* f30-0 (fmin 1.0 (-> self control zx-vel-frac))))
)
)
(if (and (or (not (time-elapsed? (the-as time-frame gp-0) (-> *TARGET-bank* roll-jump-pre-window)))
(cpad-pressed? (-> self control cpad number) x)
)
(can-jump? 'target-roll-flip)
)
(go target-roll-flip (-> *TARGET-bank* roll-flip-height) (-> *TARGET-bank* roll-flip-dist))
)
)
(set-time! (-> self state-hook-time))
(set! (-> self state-hook)
(the-as
(function none :behavior target)
(lambda :behavior target
()
(cond
((time-elapsed? (-> self state-hook-time) (-> *TARGET-bank* roll-jump-post-window))
(let ((v0-0 (the-as object nothing)))
(set! (-> self state-hook) (the-as (function none :behavior target) v0-0))
v0-0
)
)
(else
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(can-jump? 'target-roll-flip)
)
(go target-roll-flip (-> *TARGET-bank* roll-flip-height) (-> *TARGET-bank* roll-flip-dist))
)
)
)
)
)
)
(set! (-> self gun surpress-time) (+ (current-time) (seconds 0.2)))
(go target-duck-stance 'roll)
)
:post target-post
)
;; failed to figure out what this is:
(defstate target-roll-flip (target)
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
(case message
(('gun-combo)
(when (-> block param 0)
(forward-up-nopitch->quaternion
(-> self control dir-targ)
(vector-! (new 'stack-no-clear 'vector) (-> self gun track-trans) (-> self control trans))
(vector-y-quaternion! (new-stack-vector0) (-> self control dir-targ))
)
(set-quaternion! (-> self control) (-> self control dir-targ))
(go target-falling #f)
)
#t
)
(else
(target-jump-event-handler proc argc message block)
)
)
)
:enter (behavior ((arg0 float) (arg1 float))
(set! (-> self control mod-surface) *roll-flip-mods*)
(set! (-> self neck flex-blend) 0.0)
(set! (-> self neck base-joint) (the-as uint 8))
(set! (-> self gun track-target-hold-time) 0)
(set-time! (-> self gun combo-window-start))
(set! (-> self gun combo-window-state) (-> self state name))
(target-collide-set! 'duck 1.0)
)
:exit (behavior ()
(target-exit)
(target-collide-set! 'normal 0.0)
)
:trans (behavior ()
(if (and (or (smack-surface? #f)
(< (target-move-dist (-> *TARGET-bank* stuck-time)) (-> *TARGET-bank* stuck-distance))
)
(and (!= (-> self state-time) (current-time)) (not (using-gun? self)))
)
(target-shoved
(-> *TARGET-bank* smack-surface-dist)
(-> *TARGET-bank* smack-surface-height)
(the-as process #f)
target-hit
)
)
(if (and (cpad-pressed? (-> self control cpad number) circle)
(can-feet? #f)
(let ((v1-20 (ja-group)))
(and (and v1-20 (= v1-20 jakb-jump-loop-ja)) (= (-> self skel root-channel 0) (-> self skel channel)))
)
)
(go target-attack-air #f)
)
)
:code (behavior ((arg0 float) (arg1 float))
(local-vars (v1-37 symbol))
(ja-channel-push! 1 (seconds 0.04))
(ja :group! jakb-roll-flip-ja :num! min)
(when (using-gun? self)
(set! (-> self gun top-anim-low-high) 0.0)
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-roll-flip-ja) 0.0 0 30 1.0 0.0 #f)
)
(let ((f30-0 1.0))
(until v1-37
(compute-alignment! (-> self align))
(if (not (ja-max? 0))
(align!
(-> self align)
(align-opts adjust-y-vel adjust-xz-vel)
1.0
(/ arg0 (-> *TARGET-bank* roll-flip-art-height))
(* f30-0 (/ arg1 (-> *TARGET-bank* roll-flip-art-dist)))
)
(align!
(-> self align)
(align-opts adjust-xz-vel)
1.0
1.0
(* f30-0 (/ arg1 (-> *TARGET-bank* roll-flip-art-dist)))
)
)
(let ((s4-1 (new-stack-vector0)))
(vector-matrix*! s4-1 (-> self control transv) (-> self control w-R-c))
(set! (-> s4-1 y) 0.0)
(vector-matrix*! (-> self control align-xz-vel) s4-1 (-> self control c-R-w))
)
(suspend)
(ja :num! (seek!))
(set! f30-0 (* f30-0 (fmin 1.0 (-> self control zx-vel-frac))))
(set! v1-37
(or (ja-max? 0)
(and (>= (ja-aframe-num 0) 4.0) (logtest? (-> self control status) (collide-status on-surface)))
)
)
)
)
(set-time! (-> self state-time))
(while (not (logtest? (-> self control status) (collide-status on-surface)))
(when (time-elapsed? (-> self state-time) (seconds 0.01))
(let ((v1-50 (ja-group)))
(when (not (and v1-50 (= v1-50 jakb-jump-loop-ja)))
(ja-channel-push! 1 (seconds 0.1))
(ja :group! jakb-jump-loop-ja :num! min)
)
)
)
(let ((v1-59 (new-stack-vector0))
(f0-19 (vector-dot (-> self control dynam gravity-normal) (-> self control transv)))
)
0.0
(vector-! v1-59 (-> self control transv) (vector-float*! v1-59 (-> self control dynam gravity-normal) f0-19))
(let* ((f2-0 (vector-length v1-59))
(f1-7 f2-0)
(f2-1 (* 0.9 f2-0))
)
(vector+!
(-> self control transv)
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f0-19)
(vector-float*! v1-59 v1-59 (/ f2-1 f1-7))
)
)
)
(suspend)
(let ((v1-62 (ja-group)))
(if (and v1-62 (= v1-62 jakb-jump-loop-ja))
(ja :num! (loop!))
(ja :num-func num-func-identity :frame-num max)
)
)
)
(target-land-effect)
(set! (-> self gun surpress-time) (+ (current-time) (seconds 0.1)))
(set-time! (-> self state-hook-time))
(set! (-> self state-hook)
(the-as
(function none :behavior target)
(lambda :behavior target
()
(cond
((time-elapsed? (-> self state-hook-time) (seconds 0.1))
(let ((v0-0 (the-as object nothing)))
(set! (-> self state-hook) (the-as (function none :behavior target) v0-0))
v0-0
)
)
(else
(if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control cpad number) button0-rel 0)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 1)
)
(-> *cpad-list* cpads (-> self control cpad number) button0-rel 2)
)
(pad-buttons x)
)
(can-jump? #f)
(or (not (-> *TARGET-bank* strafe-duck-jump)) (not (enabled-gun? self)))
)
(go target-high-jump (-> *TARGET-bank* flip-jump-height-min) (-> *TARGET-bank* flip-jump-height-max) 'flip)
)
)
)
)
)
)
(cond
((not (can-exit-duck? self))
(go target-duck-stance #f)
)
(else
(let ((v1-86 (ja-group)))
(if (and v1-86 (= v1-86 jakb-jump-loop-ja))
(go target-hit-ground #f)
(go target-stance)
)
)
)
)
)
:post target-post
)
Reference in New Issue View Git Blame Copy Permalink