mirror of
https://github.com/open-goal/jak-project
synced 2026-07-09 23:01:56 -04:00
water111
7348e6a4ff
Update the decompiler to use the new vf macros. Also, fix a bunch of silly casting issues where accessing inline fields with an offset of 0 would be better than a cast:  --------- Co-authored-by: water111 <awaterford1111445@gmail.com>
3562 lines
144 KiB
Common Lisp
Vendored
Generated
3562 lines
144 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for symbol *gun-walk-mods*, type surface
|
|
(define *gun-walk-mods*
|
|
(new 'static 'surface
|
|
:name 'run
|
|
:turnv 18204.445
|
|
:turnvf 60.0
|
|
:turnvv 72817.78
|
|
:turnvvf 300.0
|
|
: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)
|
|
(let* ((f0-0 (deg-diff (y-angle (-> self control)) (vector-y-angle (-> self control to-target-pt-xz))))
|
|
(f30-0 (lerp-scale 0.0 1.0 (fabs f0-0) 1820.4445 6371.5557))
|
|
)
|
|
(cond
|
|
((and (logtest? (-> self gun track?) (gun-track-flags gutflags-0))
|
|
(!= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
|
|
(>= (-> self gun track-turnv-range)
|
|
(vector-vector-distance (-> self control trans) (-> self gun track-trans))
|
|
)
|
|
)
|
|
(let* ((s5-1 (-> self control))
|
|
(s3-0 (-> self gun track-trans))
|
|
(f0-4
|
|
(deg-diff (y-angle s5-1) (vector-y-angle (vector-! (new 'stack-no-clear 'vector) s3-0 (-> s5-1 trans))))
|
|
)
|
|
)
|
|
(set! (-> self control unknown-float003) (lerp-scale 0.0 2.0 (fabs f0-4) 0.0 3640.889))
|
|
)
|
|
#t
|
|
)
|
|
((< (-> self control unknown-float003) f30-0)
|
|
(seek! (-> self control unknown-float003) f30-0 (* 4.0 (seconds-per-frame)))
|
|
)
|
|
(else
|
|
(seek! (-> self control unknown-float003) f30-0 (seconds-per-frame))
|
|
)
|
|
)
|
|
)
|
|
(let ((f30-1 131072.0)
|
|
(f0-15 30.0)
|
|
)
|
|
(when (< 1.0 (-> self control unknown-float003))
|
|
(set! f30-1 (lerp-scale 131072.0 291271.12 (-> self control unknown-float003) 1.0 2.0))
|
|
(set! f0-15 (lerp-scale 30.0 15.0 (-> self control unknown-float003) 1.0 2.0))
|
|
(set! (-> arg0 turnvv) f30-1)
|
|
(set! (-> arg0 turnvvf) f0-15)
|
|
)
|
|
(set! (-> arg0 turnv) f30-1)
|
|
(set! (-> arg0 turnvf) f0-15)
|
|
)
|
|
(cond
|
|
((and (nonzero? (-> self gun track-target-hold-time)) (< (current-time) (-> self gun track-target-hold-time)))
|
|
(set! (-> arg0 turnvv) 0.0)
|
|
(set! (-> arg0 turnvvf) 0.0)
|
|
(set! (-> arg0 seek0) 0.0)
|
|
(set! (-> arg0 seek90) 0.0)
|
|
(set! (-> arg0 seek180) 0.0)
|
|
(set! (-> arg0 transv-max) 0.0)
|
|
)
|
|
((and (-> self next-state) (= (-> self next-state name) 'target-gun-stance))
|
|
(set! (-> arg0 turnv) 364088.88)
|
|
(set! (-> arg0 turnvf) 30.0)
|
|
arg0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:flags (surface-flag look-around no-turn-around)
|
|
)
|
|
)
|
|
|
|
;; definition for function want-to-gun?
|
|
(defbehavior want-to-gun? process ((arg0 target) (arg1 symbol))
|
|
(local-vars (v1-43 symbol))
|
|
(and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(time-elapsed? (-> arg0 gun gun-time) (seconds 0.1))
|
|
(not (focus-test? arg0 dead hit board mech dark teleporting))
|
|
(not (logtest? (surface-flag gun-inactive gun-hide gun-off) (-> arg0 control current-surface flags)))
|
|
(not (logtest? (target-flags prevent-gun invisible) (-> arg0 target-flags)))
|
|
(logtest? (logand (game-feature
|
|
gun-red-1
|
|
gun-red-2
|
|
gun-red-3
|
|
gun-yellow-1
|
|
gun-yellow-2
|
|
gun-yellow-3
|
|
gun-blue-1
|
|
gun-blue-2
|
|
gun-blue-3
|
|
gun-dark-1
|
|
gun-dark-2
|
|
gun-dark-3
|
|
)
|
|
(-> *setting-control* user-current features)
|
|
)
|
|
(-> arg0 game features)
|
|
)
|
|
(-> *setting-control* user-current gun)
|
|
(or (not (logtest? (-> arg0 control current-surface flags) (surface-flag duck))) (can-exit-duck? arg0))
|
|
(or (not (focus-test? arg0 pilot)) (-> arg0 pilot gun?))
|
|
(not (and (-> arg0 next-state) (let ((v1-29 (-> arg0 next-state name)))
|
|
(or (= v1-29 'target-powerjak-get-on) (= v1-29 'target-lightjak-get-on))
|
|
)
|
|
)
|
|
)
|
|
(zero? (-> arg0 lightjak shield-start-time))
|
|
(or arg1
|
|
(nonzero? (-> arg0 gun using-gun-type))
|
|
(begin
|
|
(set! v1-43 (and (cpad-hold? (-> arg0 control cpad number) r1)
|
|
(not (focus-test? arg0 grabbed))
|
|
(begin (set! v1-43 #t) (set! (-> arg0 gun latch?) v1-43) v1-43)
|
|
)
|
|
)
|
|
v1-43
|
|
)
|
|
(-> arg0 gun latch?)
|
|
)
|
|
(not (-> arg0 skel top-anim frame-group))
|
|
(time-elapsed? (-> arg0 control time-of-last-debug-float) (seconds 0.1))
|
|
(not (-> arg0 board latch?))
|
|
)
|
|
)
|
|
|
|
;; definition for function target-gun-event-handler
|
|
(defbehavior target-gun-event-handler target ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(cond
|
|
((and (= arg2 'query) (= (-> arg3 param 0) 'mode))
|
|
'gun
|
|
)
|
|
(else
|
|
(case arg2
|
|
(('change-mode)
|
|
(case (-> arg3 param 0)
|
|
(('grab)
|
|
(when (not (focus-test? self dead))
|
|
(if (not (-> arg3 param 1))
|
|
#t
|
|
(go target-grab 'stance)
|
|
)
|
|
)
|
|
)
|
|
(('gun)
|
|
(let ((v1-9 (-> arg3 param 2)))
|
|
(when (nonzero? v1-9)
|
|
(set! (-> self gun using-gun-type) (the-as pickup-type v1-9))
|
|
v1-9
|
|
)
|
|
)
|
|
)
|
|
(('falling)
|
|
(go target-falling #f)
|
|
)
|
|
(('look-around)
|
|
(go target-look-around)
|
|
)
|
|
(('normal 'board 'pilot)
|
|
(if (and (using-gun? self) (target-gun-end-mode #f))
|
|
(go target-stance)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(target-standard-event-handler arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function target-gun-setup
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-gun-setup target ((arg0 symbol))
|
|
(when (zero? (-> self gun))
|
|
(if (= (-> self game gun-type) (pickup-type none))
|
|
(set! (-> self game gun-type) (pickup-type gun-red-1))
|
|
)
|
|
(set! (-> self gun) (new 'process 'gun-info))
|
|
(set! (-> self gun process) (process->ppointer self))
|
|
(set! (-> self gun strip) #f)
|
|
(set! (-> self gun uv-slide) 0.0)
|
|
(set! (-> self gun gun) (the-as (pointer gun) #f))
|
|
(set! (-> self gun active?) #f)
|
|
(set! (-> self gun latch?) #f)
|
|
(set! (-> self gun put-away?) #f)
|
|
(set! (-> self gun charge-active?) (the-as handle #f))
|
|
(set! (-> self gun mode-sound-bank) #f)
|
|
(set! (-> self skel top-anim) (new 'process 'top-anim-joint-control self))
|
|
(set! (-> self skel interp-select 0) 0)
|
|
(set! (-> self skel interp-select 1) 0)
|
|
(quaternion-identity! (the-as quaternion (-> self gun top-anim-twist)))
|
|
(set! (-> self gun combo-window-state) #f)
|
|
((method-of-type focus reset-to-collide-spec) (-> self gun track-target 0) (collide-spec jak player-list))
|
|
(reset-to-collide-spec (-> self gun track-target 1) (collide-spec jak player-list))
|
|
(add-connection *pad-engine* self target-gun-marking-menu self #f #f)
|
|
)
|
|
(if (not arg0)
|
|
(target-gun-end-mode #f)
|
|
)
|
|
(when (-> self gun gun)
|
|
(deactivate (-> self gun gun 0))
|
|
(set! (-> self gun gun) (the-as (pointer gun) #f))
|
|
)
|
|
(if arg0
|
|
(set! (-> self gun gun) (process-spawn gun :init gun-init :name "gun" :from *8k-dead-pool* :to self))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-init
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-gun-init target ((arg0 pickup-type))
|
|
(target-darkjak-end-mode #f)
|
|
(let ((gp-0 (-> self gun)))
|
|
(if (zero? (-> gp-0 hips))
|
|
(set! (-> gp-0 hips) (new 'process 'joint-mod (joint-mod-mode rotate) self 38))
|
|
)
|
|
(if (zero? (-> gp-0 upper-body))
|
|
(set! (-> gp-0 upper-body) (-> self upper-body))
|
|
)
|
|
(mode-set! (-> gp-0 hips) (joint-mod-mode rotate))
|
|
(set! (-> gp-0 gun-roty) (y-angle (-> self control)))
|
|
(reset (-> self skel top-anim))
|
|
(set! (-> self skel top-anim interp) 1.0)
|
|
(quaternion-identity! (the-as quaternion (-> self gun top-anim-twist)))
|
|
(quaternion-identity! (the-as quaternion (-> self gun top-anim-twist-targ)))
|
|
(set! (-> self gun top-anim-twist-reset) (the-as uint 0))
|
|
(set! (-> gp-0 gun-type) (pickup-type gun-yellow-1))
|
|
(target-gun-type-set! arg0)
|
|
(set-time! (-> gp-0 gun-get-on-time))
|
|
)
|
|
(set! (-> self board latch?) #f)
|
|
(set! (-> self gun put-away?) #f)
|
|
(set! (-> self gun active?) #f)
|
|
(set! (-> self gun surpress-time) 0)
|
|
(set! (-> self gun track?) (gun-track-flags gutflags-1 gutflags-2))
|
|
(set! (-> self gun track-turn) 0.0)
|
|
(set! (-> self gun track-tilt) 0.0)
|
|
(set! (-> self gun track-target-hold-time) 0)
|
|
(set! (-> self gun turn-fast-hold-time) 0)
|
|
(set! (-> self gun gun-delay-fire) 0.0)
|
|
((method-of-type focus reset-to-collide-spec) (-> self gun track-target 0) (collide-spec jak player-list))
|
|
(set! (-> self gun fire-dir-rot) 0.0)
|
|
(set! (-> self control unknown-float003) 0.0)
|
|
(set! (-> self gun blue-whine-volume) 0.0)
|
|
(if (zero? (-> self gun blue-whine-sound-id))
|
|
(set! (-> self gun blue-whine-sound-id) (new-sound-id))
|
|
)
|
|
(sound-play "gun-takeout")
|
|
(set! (-> self gun charge-ammo) 0.0)
|
|
(set! (-> self gun charge-start-time) 0)
|
|
(set! (-> self gun top-anim-tilt-up) 0.0)
|
|
(let ((f30-0
|
|
(if (or (nonzero? (-> self gun fire-pending)) (cpad-hold? (-> self control cpad number) r1) (-> self gun latch?))
|
|
2.0
|
|
1.0
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((focus-test? self pilot-riding)
|
|
(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-pilot-gun-yellow-takeout-ja)
|
|
0.0
|
|
0
|
|
15
|
|
f30-0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type eco-red))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-takeout-ja)
|
|
0.0
|
|
0
|
|
15
|
|
f30-0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type eco-blue))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-blue-takeout-ja)
|
|
0.0
|
|
0
|
|
15
|
|
f30-0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type eco-dark))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-dark-takeout-ja)
|
|
0.0
|
|
0
|
|
15
|
|
f30-0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(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-yellow-takeout-ja)
|
|
0.0
|
|
0
|
|
15
|
|
f30-0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type eco-red))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-red-takeout-ja)
|
|
0.0
|
|
0
|
|
15
|
|
f30-0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type eco-blue))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-blue-takeout-ja)
|
|
0.0
|
|
0
|
|
15
|
|
f30-0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type eco-dark))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-dark-takeout-ja)
|
|
0.0
|
|
0
|
|
15
|
|
f30-0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (= (-> self control collide-mode) 'duck)
|
|
(target-collide-set! (-> self control collide-mode) (-> self control collide-mode-transition))
|
|
(target-collide-set! 'gun 0.0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-exit
|
|
(defun target-gun-exit ()
|
|
#f
|
|
)
|
|
|
|
;; definition for function target-gun-end-mode
|
|
(defbehavior target-gun-end-mode target ((arg0 symbol))
|
|
(let ((s5-0 #f))
|
|
(when (using-gun? self)
|
|
(set! (-> self gun fire-pending) 0)
|
|
(mode-set! (-> self gun hips) (joint-mod-mode flex-blend))
|
|
(send-event *camera* 'clear-slave-option (cam-slave-options STICKY_ANGLE BLOCK_RIGHT_STICK GUN_CAM))
|
|
(send-event *camera* 'set-dist #f #f)
|
|
(send-event *camera* 'yes-follow)
|
|
(let ((v1-17 (the-as sound-rpc-set-param (get-sound-buffer-entry))))
|
|
(set! (-> v1-17 command) (sound-command set-param))
|
|
(set! (-> v1-17 id) (-> self gun blue-whine-sound-id))
|
|
(set! (-> v1-17 params volume) -4)
|
|
(set! (-> v1-17 auto-time) 120)
|
|
(set! (-> v1-17 auto-from) 2)
|
|
(set! (-> v1-17 params mask) (the-as uint 17))
|
|
(-> v1-17 id)
|
|
)
|
|
(set! (-> self gun active?) #f)
|
|
(cond
|
|
((and (not (logtest? (surface-flag gun-fast-exit) (-> self control current-surface flags)))
|
|
(not (focus-test? self dead))
|
|
(!= arg0 'fast-exit)
|
|
)
|
|
(sound-play "gun-putaway")
|
|
(cond
|
|
((focus-test? self pilot-riding)
|
|
(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-pilot-gun-yellow-takeout-ja)
|
|
0.0
|
|
10
|
|
0
|
|
-1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self skel top-anim frame-post-put-away) (the-as basic #t))
|
|
)
|
|
(((pickup-type eco-red))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-takeout-ja)
|
|
0.0
|
|
10
|
|
0
|
|
-1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self skel top-anim frame-post-put-away) (the-as basic #t))
|
|
)
|
|
(((pickup-type eco-blue))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-blue-takeout-ja)
|
|
0.0
|
|
10
|
|
0
|
|
-1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self skel top-anim frame-post-put-away) (the-as basic #t))
|
|
)
|
|
(((pickup-type eco-dark))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-dark-takeout-ja)
|
|
0.0
|
|
10
|
|
0
|
|
-1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self skel top-anim frame-post-put-away) (the-as basic #t))
|
|
)
|
|
(else
|
|
(set! (-> self skel top-anim interp) 0.0)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(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-yellow-takeout-ja)
|
|
0.0
|
|
10
|
|
0
|
|
-1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self skel top-anim frame-post-put-away) (the-as basic #t))
|
|
)
|
|
(((pickup-type eco-red))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-red-takeout-ja)
|
|
0.0
|
|
10
|
|
0
|
|
-1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self skel top-anim frame-post-put-away) (the-as basic #t))
|
|
)
|
|
(((pickup-type eco-blue))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-blue-takeout-ja)
|
|
14.0
|
|
10
|
|
0
|
|
-1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self skel top-anim frame-post-put-away) (the-as basic #t))
|
|
)
|
|
(((pickup-type eco-dark))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-dark-takeout-ja)
|
|
0.0
|
|
10
|
|
0
|
|
-1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self skel top-anim frame-post-put-away) (the-as basic #t))
|
|
)
|
|
(else
|
|
(set! (-> self skel top-anim interp) 0.0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self skel top-anim interp) 0.0)
|
|
)
|
|
)
|
|
(set! (-> self gun gun-delay-fire) 0.0)
|
|
(set! (-> self gun gun-type) (pickup-type none))
|
|
(setting-control-method-14 *setting-control* (-> self gun mode-sound-bank))
|
|
(set! (-> self gun mode-sound-bank) #f)
|
|
(remove-setting! 'sound-flava)
|
|
(if (= (-> self control collide-mode) 'duck)
|
|
(target-collide-set! (-> self control collide-mode) (-> self control collide-mode-transition))
|
|
(target-collide-set! 'normal 0.0)
|
|
)
|
|
(set! s5-0 #t)
|
|
)
|
|
(when arg0
|
|
(set! (-> self gun using-gun-type) (pickup-type none))
|
|
(set! (-> self gun latch?) #f)
|
|
(set! (-> self gun put-away?) #f)
|
|
)
|
|
s5-0
|
|
)
|
|
)
|
|
|
|
;; definition for function quat<-gun!
|
|
(defun quat<-gun! ((arg0 quaternion) (arg1 quaternion))
|
|
(gun->eco (the-as pickup-type arg1))
|
|
(quaternion-copy! arg0 (the-as quaternion *null-vector*))
|
|
)
|
|
|
|
;; definition for function target-gun-ammo-out-pick
|
|
(defbehavior target-gun-ammo-out-pick target ()
|
|
(cond
|
|
((and (and (logtest? (-> self game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-yellow-1 gun-yellow-2 gun-yellow-3))
|
|
(-> self game features)
|
|
)
|
|
)
|
|
(< 0.0 (-> self game gun-ammo 0))
|
|
)
|
|
29
|
|
)
|
|
((and (and (logtest? (-> self game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-red-1 gun-red-2 gun-red-3))
|
|
(-> self game features)
|
|
)
|
|
)
|
|
(< 0.0 (-> self game gun-ammo 1))
|
|
)
|
|
26
|
|
)
|
|
((and (and (logtest? (-> self game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-blue-1 gun-blue-2 gun-blue-3))
|
|
(-> self game features)
|
|
)
|
|
)
|
|
(< 0.0 (-> self game gun-ammo 2))
|
|
)
|
|
32
|
|
)
|
|
((and (and (logtest? (-> self game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (game-feature gun-dark-1 gun-dark-2 gun-dark-3) (-> *setting-control* user-current features))
|
|
(-> self game features)
|
|
)
|
|
)
|
|
(< 0.0 (-> self game gun-ammo 3))
|
|
)
|
|
35
|
|
)
|
|
(else
|
|
0
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function target-gun-type-set!
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-gun-type-set! target ((arg0 pickup-type))
|
|
(if (= arg0 (pickup-type none))
|
|
(set! arg0 (-> self game gun-type))
|
|
)
|
|
(when (not (logtest? (the-as game-feature (ash 1 (+ (the-as int arg0) -20)))
|
|
(logand (-> self game features) (-> *setting-control* user-current features))
|
|
)
|
|
)
|
|
(when (and (logtest? (-> self game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-yellow-1))
|
|
(-> self game features)
|
|
)
|
|
)
|
|
(set! arg0 (pickup-type gun-yellow-1))
|
|
(goto cfg-39)
|
|
)
|
|
(when (and (logtest? (-> self game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-red-1))
|
|
(-> self game features)
|
|
)
|
|
)
|
|
(set! arg0 (pickup-type gun-red-1))
|
|
(goto cfg-39)
|
|
)
|
|
(when (and (logtest? (-> self game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-blue-1))
|
|
(-> self game features)
|
|
)
|
|
)
|
|
(set! arg0 (pickup-type gun-blue-1))
|
|
(goto cfg-39)
|
|
)
|
|
(when (and (logtest? (-> self game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-dark-1))
|
|
(-> self game features)
|
|
)
|
|
)
|
|
(set! arg0 (pickup-type gun-dark-1))
|
|
(goto cfg-39)
|
|
)
|
|
(set! arg0 (pickup-type none))
|
|
(label cfg-39)
|
|
(cond
|
|
((zero? (the-as int arg0))
|
|
(set! arg0 (the-as pickup-type arg0))
|
|
(goto cfg-116)
|
|
)
|
|
(else
|
|
(empty)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self game gun-type) (the-as pickup-type arg0))
|
|
(set! (-> self gun track-turnv-range) 81920.0)
|
|
(set! (-> self gun track-tilt-range) 0.0)
|
|
(set! (-> self gun track-turn-range) 0.0)
|
|
(set! (-> self gun track-turn-max) 1820.4445)
|
|
(set! (-> self gun track-tilt-max) 16019.911)
|
|
(set! (-> self gun gun-control) (the-as uint 1))
|
|
(set! (-> self gun fire-spin) 0.0)
|
|
(set! (-> self gun fire-spinv) 0.0)
|
|
(set! (-> self gun fire-time) 0)
|
|
(set! (-> self gun laser-active?) #t)
|
|
(set! (-> self gun top-anim-gun-height) 5283.84)
|
|
(set! (-> self gun top-anim-low-high) 0.0)
|
|
(set! (-> self gun gun-delay-fire) 0.0)
|
|
(set! (-> self skel top-anim frame-speed) 1.0)
|
|
(set! (-> self skel top-anim frame-targ) #f)
|
|
(truncate-player-ammo (pickup-type ammo-red))
|
|
(truncate-player-ammo (pickup-type ammo-yellow))
|
|
(truncate-player-ammo (pickup-type ammo-blue))
|
|
(truncate-player-ammo (pickup-type ammo-dark))
|
|
(when (using-gun? self)
|
|
(let ((s5-0 (gun->eco (-> self gun gun-type))))
|
|
(-> self gun gun-type)
|
|
(set! (-> self gun gun-type) (the-as pickup-type arg0))
|
|
(set! (-> self gun using-gun-type) (the-as pickup-type arg0))
|
|
(setting-control-method-14 *setting-control* (-> self gun mode-sound-bank))
|
|
(set! (-> self gun mode-sound-bank) #f)
|
|
((lambda :behavior target
|
|
((arg0 pickup-type))
|
|
(case arg0
|
|
(((pickup-type gun-yellow-1))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modeguy1 0.0 0))
|
|
)
|
|
(((pickup-type gun-yellow-2))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modeguy2 0.0 0))
|
|
)
|
|
(((pickup-type gun-yellow-3))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modeguy3 0.0 0))
|
|
)
|
|
(((pickup-type gun-red-1))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modegur1 0.0 0))
|
|
)
|
|
(((pickup-type gun-red-2))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modegur2 0.0 0))
|
|
)
|
|
(((pickup-type gun-red-3))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modegur3 0.0 0))
|
|
)
|
|
(((pickup-type gun-blue-1))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modegub1 0.0 0))
|
|
)
|
|
(((pickup-type gun-blue-2))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modegub2 0.0 0))
|
|
)
|
|
(((pickup-type gun-blue-3))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modegub3 0.0 0))
|
|
)
|
|
(((pickup-type gun-dark-1))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modegud1 0.0 0))
|
|
)
|
|
(((pickup-type gun-dark-2))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modegud2 0.0 0))
|
|
)
|
|
(((pickup-type gun-dark-3))
|
|
(set! (-> self gun mode-sound-bank) (add-setting! 'mode-sound-bank 'modegud3 0.0 0))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
(the-as pickup-type arg0)
|
|
)
|
|
(case (the-as int arg0)
|
|
((32 29 35 26)
|
|
(set! (-> self gun ammo-required) 1.0)
|
|
)
|
|
((27)
|
|
(set! (-> self gun ammo-required) 1.0)
|
|
)
|
|
((28)
|
|
(set! (-> self gun ammo-required) (if (logtest? (game-secrets gun-upgrade-red-3) (-> *game-info* secrets))
|
|
8.0
|
|
10.0
|
|
)
|
|
)
|
|
)
|
|
((36)
|
|
(set! (-> self gun ammo-required) 1.0)
|
|
)
|
|
((37)
|
|
(set! (-> self gun ammo-required) (if (logtest? (game-secrets gun-upgrade-dark-3) (-> *game-info* secrets))
|
|
8.0
|
|
10.0
|
|
)
|
|
)
|
|
)
|
|
((33)
|
|
(set! (-> self gun ammo-required) 1.0)
|
|
)
|
|
((34)
|
|
(set! (-> self gun ammo-required) 1.0)
|
|
)
|
|
((30)
|
|
(set! (-> self gun ammo-required) 1.0)
|
|
)
|
|
((31)
|
|
(set! (-> self gun ammo-required) 10.0)
|
|
)
|
|
)
|
|
(case (the-as int arg0)
|
|
((32 33 34)
|
|
(set! (-> self gun gun-control) (the-as uint 4))
|
|
(set! (-> self gun fire-range) 327680.0)
|
|
(set! (-> self gun track-find-range) 327680.0)
|
|
(set! (-> self gun track-turn-range) 327680.0)
|
|
(set! (-> self gun track-turn-max) 910.2222)
|
|
(set! (-> self gun track-tilt-range) 327680.0)
|
|
(set! (-> self gun track-angle-mult) 1.75)
|
|
(set! (-> self gun track-require) (the-as uint 26))
|
|
(set! (-> self gun fire-delay) (the-as uint 15))
|
|
(set! (-> self gun combo-fire-delay) (the-as uint 30))
|
|
(set! (-> self gun track-beam-size) 2457.6)
|
|
(remove-setting! 'gun-min-height)
|
|
(remove-setting! 'gun-max-height)
|
|
)
|
|
((29 30)
|
|
(set! (-> self gun fire-range) 409600.0)
|
|
(set! (-> self gun track-find-range) 286720.0)
|
|
(set! (-> self gun track-tilt-range) 409600.0)
|
|
(set! (-> self gun track-turn-range) 409600.0)
|
|
(set! (-> self gun track-angle-mult) 1.75)
|
|
(set! (-> self gun track-require) (the-as uint 26))
|
|
(set! (-> self gun fire-delay) (the-as uint 96))
|
|
(set! (-> self gun combo-fire-delay) (the-as uint 30))
|
|
(set! (-> self gun track-beam-size) 819.2)
|
|
(remove-setting! 'gun-min-height)
|
|
(remove-setting! 'gun-max-height)
|
|
)
|
|
((31)
|
|
(set! (-> self gun fire-delay) (the-as uint 0))
|
|
(set! (-> self gun laser-active?) #f)
|
|
(set! (-> self gun fire-range) 0.0)
|
|
(set! (-> self gun track-find-range) 0.0)
|
|
(set! (-> self gun track-tilt-range) 0.0)
|
|
(set! (-> self gun track-turn-range) 0.0)
|
|
(set! (-> self gun track-turn-max) 0.0)
|
|
(set! (-> self gun track-angle-mult) 0.0)
|
|
(set! (-> self gun track-require) (the-as uint 0))
|
|
0
|
|
)
|
|
((26 28)
|
|
(set! (-> self gun fire-range) 61440.0)
|
|
(set! (-> self gun track-find-range) 81920.0)
|
|
(set! (-> self gun track-tilt-range) 61440.0)
|
|
(set! (-> self gun track-turn-range) 61440.0)
|
|
(set! (-> self gun track-turn-max) 910.2222)
|
|
(set! (-> self gun track-angle-mult) 0.0)
|
|
(set! (-> self gun track-require) (the-as uint 26))
|
|
(if (or (and (logtest? (game-secrets gun-upgrade-red-1) (-> *game-info* secrets)) (= (the-as int arg0) 26))
|
|
(and (logtest? (game-secrets gun-upgrade-red-3) (-> *game-info* secrets)) (= (the-as int arg0) 28))
|
|
)
|
|
(set! (-> self gun fire-delay) (the-as uint 180))
|
|
(set! (-> self gun fire-delay) (the-as uint 330))
|
|
)
|
|
(set! (-> self gun combo-fire-delay) (the-as uint 150))
|
|
(set! (-> self gun track-beam-size) 1228.8)
|
|
(remove-setting! 'gun-min-height)
|
|
(set-setting! 'gun-max-height 'abs (meters 6) 0)
|
|
)
|
|
((27)
|
|
(set! (-> self gun fire-delay) (the-as uint 240))
|
|
(set! (-> self gun gun-control) (the-as uint 2))
|
|
(set! (-> self gun laser-active?) #f)
|
|
(set! (-> self gun fire-range) 0.0)
|
|
(set! (-> self gun track-find-range) 0.0)
|
|
(set! (-> self gun track-tilt-range) 0.0)
|
|
(set! (-> self gun track-turn-range) 0.0)
|
|
(set! (-> self gun track-turn-max) 0.0)
|
|
(set! (-> self gun track-angle-mult) 0.0)
|
|
(set! (-> self gun track-require) (the-as uint 0))
|
|
0
|
|
)
|
|
((35 36 37)
|
|
(set! (-> self gun gun-control) (the-as uint 2))
|
|
(set! (-> self gun fire-range) 1638400.0)
|
|
(set! (-> self gun track-tilt-range) 1638400.0)
|
|
(set! (-> self gun track-turn-range) 1638400.0)
|
|
(set! (-> self gun track-find-range) 1638400.0)
|
|
(set! (-> self gun track-angle-mult) 1.75)
|
|
(set! (-> self gun fire-delay) (the-as uint 255))
|
|
(set! (-> self gun combo-fire-delay) (the-as uint 150))
|
|
(set! (-> self gun track-beam-size) 1228.8)
|
|
(set! (-> self gun track-require) (the-as uint 24))
|
|
(remove-setting! 'gun-min-height)
|
|
(remove-setting! 'gun-max-height)
|
|
)
|
|
)
|
|
(quat<-gun! (the-as quaternion (-> self gun top-anim-twist-targ)) (the-as quaternion arg0))
|
|
(set! (-> self skel top-anim frame-post-blend) 0.1333333)
|
|
((lambda :behavior target
|
|
((arg0 pickup-type) (arg1 pickup-type))
|
|
(cond
|
|
((focus-test? self pilot-riding)
|
|
(let ((v1-2 (gun->eco arg0)))
|
|
(cond
|
|
((or (and (= arg1 (pickup-type eco-red)) (= v1-2 (pickup-type eco-dark)))
|
|
(and (= arg1 v1-2) (or (= v1-2 (pickup-type eco-red)) (= v1-2 (pickup-type eco-dark))))
|
|
)
|
|
(if (rand-vu-percent? 0.5)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-dark-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-yellow-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-dark)) (= v1-2 (pickup-type eco-red)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-dark-ja)
|
|
0.0
|
|
30
|
|
0
|
|
-1.0
|
|
0.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((or (and (= arg1 (pickup-type eco-red)) (= v1-2 (pickup-type eco-yellow)))
|
|
(and (= arg1 v1-2) (= v1-2 (pickup-type eco-yellow)))
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-yellow-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-yellow)) (= v1-2 (pickup-type eco-red)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-yellow-ja)
|
|
0.0
|
|
30
|
|
0
|
|
-1.0
|
|
0.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-red)) (= v1-2 (pickup-type eco-blue)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-blue-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-blue)) (= v1-2 (pickup-type eco-red)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-blue-ja)
|
|
0.0
|
|
30
|
|
0
|
|
-1.0
|
|
0.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-yellow)) (= v1-2 (pickup-type eco-blue)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-yellow-blue-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 v1-2) (= v1-2 (pickup-type eco-blue)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-blue-blue-ja)
|
|
0.0
|
|
30
|
|
0
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-blue)) (= v1-2 (pickup-type eco-yellow)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-yellow-blue-ja)
|
|
0.0
|
|
30
|
|
0
|
|
-1.0
|
|
0.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-dark)) (= v1-2 (pickup-type eco-yellow)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-yellow-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-dark)) (= v1-2 (pickup-type eco-blue)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-blue-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-blue)) (= v1-2 (pickup-type eco-dark)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-blue-ja)
|
|
0.0
|
|
30
|
|
0
|
|
-1.0
|
|
0.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-yellow)) (= v1-2 (pickup-type eco-dark)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-yellow-ja)
|
|
0.0
|
|
30
|
|
0
|
|
-1.0
|
|
0.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(let ((v1-60 (gun->eco arg0)))
|
|
(cond
|
|
((and (= arg1 (pickup-type eco-red)) (= v1-60 (pickup-type eco-dark)))
|
|
(if (rand-vu-percent? 0.5)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-side-to-front-hop-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-transformation-twirl-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-2" :group 0))
|
|
)
|
|
)
|
|
)
|
|
((or (and (= arg1 (pickup-type eco-dark)) (= v1-60 (pickup-type eco-red)))
|
|
(and (= arg1 v1-60)
|
|
(or (= v1-60 (pickup-type eco-red)) (= v1-60 (pickup-type eco-dark)) (= v1-60 (pickup-type eco-yellow)))
|
|
)
|
|
)
|
|
(if (rand-vu-percent? 0.5)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-side-to-front-hop-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-transformation-twirl-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-2" :group 0))
|
|
)
|
|
)
|
|
)
|
|
((and (= arg1 v1-60) (= v1-60 (pickup-type eco-blue)))
|
|
(if (or (rand-vu-percent? 0.5) (nonzero? (-> self ext-anim)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-side-to-side-hop-1-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-side-to-side-hop-2-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-dark)) (= v1-60 (pickup-type eco-yellow)))
|
|
(if (rand-vu-percent? 0.5)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-transformation-twirl-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-2" :group 0))
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-front-to-side-hop-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-3" :group 0))
|
|
)
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-red)) (= v1-60 (pickup-type eco-yellow)))
|
|
(if (rand-vu-percent? 0.5)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-transformation-twirl-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-2" :group 0))
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-front-to-side-hop-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-3" :group 0))
|
|
)
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-yellow)) (= v1-60 (pickup-type eco-red)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-side-to-front-hop-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-yellow)) (= v1-60 (pickup-type eco-dark)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-side-to-front-hop-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-1" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-red)) (= v1-60 (pickup-type eco-blue)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-front-to-blue-hop-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-4" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-dark)) (= v1-60 (pickup-type eco-blue)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-front-to-blue-hop-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-4" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-blue)) (= v1-60 (pickup-type eco-red)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-blue-to-front-hop-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-5" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-blue)) (= v1-60 (pickup-type eco-dark)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-blue-to-front-hop-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-5" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-yellow)) (= v1-60 (pickup-type eco-blue)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-front-to-blue-hop-ja)
|
|
0.0
|
|
30
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-4" :group 0))
|
|
)
|
|
)
|
|
((and (= arg1 (pickup-type eco-blue)) (= v1-60 (pickup-type eco-yellow)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-blue-to-yellow-ja)
|
|
0.0
|
|
19
|
|
19
|
|
1.0
|
|
2.0
|
|
(the-as symbol (static-sound-spec "gun-trans-6" :group 0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
(the-as pickup-type arg0)
|
|
s5-0
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self gun upper-body twist-max x) (-> self gun track-tilt-max))
|
|
(set! (-> self gun upper-body twist-max y) (-> self gun track-turn-max))
|
|
(set! (-> self gun upper-body twist-max z) (-> self gun track-tilt-range))
|
|
(set! (-> self gun upper-body twist-max w) (-> self gun track-turn-range))
|
|
(set! (-> self gun upper-body max-dist) (fmax (-> self gun track-tilt-range) (-> self gun track-turn-range)))
|
|
(label cfg-116)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-marking-menu
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun target-gun-marking-menu ((arg0 target))
|
|
(local-vars (v1-64 int) (v1-102 int) (v1-140 int))
|
|
(update (-> arg0 ext-anim-control))
|
|
(when (and (not (paused?))
|
|
(not (and (focus-test? arg0 dark) (nonzero? (-> arg0 darkjak))))
|
|
(or (not (logtest? (surface-flag sf29) (-> arg0 control current-surface flags)))
|
|
(-> *setting-control* user-current change-gun)
|
|
)
|
|
(-> *setting-control* user-current gun)
|
|
)
|
|
(let ((s5-0 (the-as int (-> arg0 gun using-gun-type))))
|
|
(cond
|
|
((cpad-pressed? (-> arg0 control cpad number) down)
|
|
(set! (-> arg0 gun gun-select-time 1) (-> *display* real-clock frame-counter))
|
|
(set! s5-0
|
|
(cond
|
|
((= (gun->eco (the-as pickup-type s5-0)) (pickup-type eco-yellow))
|
|
(dotimes (v1-26 3)
|
|
(+! s5-0 1)
|
|
(if (< 31 s5-0)
|
|
(set! s5-0 29)
|
|
)
|
|
(when (logtest? (the-as game-feature (ash 1 (+ s5-0 -20)))
|
|
(logand (-> arg0 game features) (-> *setting-control* user-current features))
|
|
)
|
|
(set! s5-0 s5-0)
|
|
(goto cfg-49)
|
|
)
|
|
)
|
|
29
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-yellow-1))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
29
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-yellow-2))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
30
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-yellow-3))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
31
|
|
)
|
|
(else
|
|
(empty)
|
|
s5-0
|
|
)
|
|
)
|
|
)
|
|
(label cfg-49)
|
|
)
|
|
((cpad-pressed? (-> arg0 control cpad number) up)
|
|
(set! (-> arg0 gun gun-select-time 0) (-> *display* real-clock frame-counter))
|
|
(set! v1-64
|
|
(cond
|
|
((= (gun->eco (the-as pickup-type s5-0)) (pickup-type eco-red))
|
|
(dotimes (v1-63 3)
|
|
(set! s5-0 (+ s5-0 1))
|
|
(if (< 28 s5-0)
|
|
(set! s5-0 26)
|
|
)
|
|
(when (logtest? (the-as game-feature (ash 1 (+ s5-0 -20)))
|
|
(logand (-> arg0 game features) (-> *setting-control* user-current features))
|
|
)
|
|
(set! v1-64 s5-0)
|
|
(goto cfg-86)
|
|
)
|
|
)
|
|
26
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-red-1))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
26
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-red-2))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
27
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-red-3))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
28
|
|
)
|
|
(else
|
|
s5-0
|
|
)
|
|
)
|
|
)
|
|
(label cfg-86)
|
|
(set! s5-0 v1-64)
|
|
)
|
|
((cpad-pressed? (-> arg0 control cpad number) left)
|
|
(set! (-> arg0 gun gun-select-time 2) (-> *display* real-clock frame-counter))
|
|
(set! v1-102
|
|
(cond
|
|
((= (gun->eco (the-as pickup-type s5-0)) (pickup-type eco-blue))
|
|
(dotimes (v1-101 3)
|
|
(set! s5-0 (+ s5-0 1))
|
|
(if (< 34 s5-0)
|
|
(set! s5-0 32)
|
|
)
|
|
(when (logtest? (the-as game-feature (ash 1 (+ s5-0 -20)))
|
|
(logand (-> arg0 game features) (-> *setting-control* user-current features))
|
|
)
|
|
(set! v1-102 s5-0)
|
|
(goto cfg-123)
|
|
)
|
|
)
|
|
32
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-blue-1))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
32
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-blue-2))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
33
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-blue-3))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
34
|
|
)
|
|
(else
|
|
s5-0
|
|
)
|
|
)
|
|
)
|
|
(label cfg-123)
|
|
(set! s5-0 v1-102)
|
|
)
|
|
((cpad-pressed? (-> arg0 control cpad number) right)
|
|
(set! (-> arg0 gun gun-select-time 3) (-> *display* real-clock frame-counter))
|
|
(set! v1-140
|
|
(cond
|
|
((= (gun->eco (the-as pickup-type s5-0)) (pickup-type eco-dark))
|
|
(dotimes (v1-139 3)
|
|
(set! s5-0 (+ s5-0 1))
|
|
(if (< 37 s5-0)
|
|
(set! s5-0 35)
|
|
)
|
|
(when (logtest? (the-as game-feature (ash 1 (+ s5-0 -20)))
|
|
(logand (-> arg0 game features) (-> *setting-control* user-current features))
|
|
)
|
|
(set! v1-140 s5-0)
|
|
(goto cfg-160)
|
|
)
|
|
)
|
|
35
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (-> *setting-control* user-current features) (game-feature gun-dark-1))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
35
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (game-feature gun-dark-2) (-> *setting-control* user-current features))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
36
|
|
)
|
|
((and (logtest? (-> arg0 game features) (game-feature gun))
|
|
(-> *setting-control* user-current gun)
|
|
(logtest? (logand (game-feature gun-dark-3) (-> *setting-control* user-current features))
|
|
(-> arg0 game features)
|
|
)
|
|
)
|
|
37
|
|
)
|
|
(else
|
|
s5-0
|
|
)
|
|
)
|
|
)
|
|
(label cfg-160)
|
|
(set! s5-0 v1-140)
|
|
)
|
|
)
|
|
(when (and (nonzero? s5-0)
|
|
(logtest? (the-as game-feature (ash 1 (+ s5-0 -20)))
|
|
(logand (-> arg0 game features) (-> *setting-control* user-current features))
|
|
)
|
|
(or (not (focus-test? arg0 pilot)) (and (nonzero? (-> arg0 pilot)) (-> arg0 pilot gun?)))
|
|
(begin (set! (-> arg0 gun using-gun-type) (the-as pickup-type s5-0)) s5-0)
|
|
(!= s5-0 (-> arg0 gun gun-type))
|
|
(let ((v1-179 (-> arg0 skel top-anim frame-targ)))
|
|
(or (not v1-179)
|
|
(= v1-179 (-> arg0 draw art-group data 342))
|
|
(= v1-179 (-> arg0 draw art-group data 338))
|
|
(= v1-179 (-> arg0 draw art-group data 343))
|
|
(= v1-179 (-> arg0 draw art-group data 339))
|
|
(= v1-179 (-> arg0 draw art-group data 296))
|
|
(= v1-179 (-> arg0 draw art-group data 238))
|
|
)
|
|
)
|
|
(not (handle->process (-> arg0 gun charge-active?)))
|
|
)
|
|
(cond
|
|
((using-gun? arg0)
|
|
(sound-play "select-option")
|
|
(send-event arg0 'gun-type s5-0)
|
|
)
|
|
((want-to-gun? arg0 #t)
|
|
(send-event arg0 'change-mode 'gun #f s5-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-build-track-list
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-gun-build-track-list target ()
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(vector-copy! gp-0 (-> self control trans))
|
|
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
|
(let ((s4-0 (-> self gun track-dir)))
|
|
(vector-copy! s4-0 (if (and (or (= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
|
|
(logtest? (surface-flag gun-strafe) (-> self control current-surface flags))
|
|
)
|
|
(not (and (focus-test? self dark) (nonzero? (-> self darkjak))))
|
|
)
|
|
(-> self gun fire-dir)
|
|
(-> self control to-target-pt-xz)
|
|
)
|
|
)
|
|
(vector-flatten! s4-0 s4-0 (-> self control c-R-w uvec))
|
|
(vector-normalize! s4-0 1.0)
|
|
(+! (-> gp-0 y) 6144.0)
|
|
(vector+float*! gp-0 gp-0 s4-0 -32768.0)
|
|
(vector+float*! s5-0 gp-0 s4-0 (+ 32768.0 (-> self gun track-find-range)))
|
|
)
|
|
(let ((s4-1 (-> self focus-search))
|
|
(s3-0 (vector-average! (new 'stack-no-clear 'vector) gp-0 s5-0))
|
|
)
|
|
(set! (-> s3-0 w) (* 0.5 (vector-vector-distance gp-0 s5-0)))
|
|
(set! (-> s4-1 length) (fill-actor-list-for-box *actor-hash* s3-0 (-> s4-1 data) (-> s4-1 allocated-length)))
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-find-track
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-gun-find-track target ()
|
|
(if (logtest? (-> self gun upper-body track-mode) (track-mode lock-on))
|
|
(logior! (-> self gun track?) (gun-track-flags gutflags-3))
|
|
(logclear! (-> self gun track?) (gun-track-flags gutflags-3))
|
|
)
|
|
(let ((gp-0 (the-as process-focusable #f)))
|
|
(when (and (or (not (time-elapsed? (-> self control time-of-last-nonzero-input) (seconds 0.2)))
|
|
(and (logtest? (-> self control mod-surface flags) (surface-flag air))
|
|
(not (logtest? (-> self control status) (collide-status on-surface)))
|
|
)
|
|
(or (logtest? (surface-flag gun-direct) (-> self control current-surface flags))
|
|
(= (gun->eco (-> self gun gun-type)) (pickup-type eco-dark))
|
|
)
|
|
)
|
|
(>= (current-time) (-> self gun track-target-hold-time))
|
|
)
|
|
(target-gun-build-track-list)
|
|
(let ((gp-1 (vector<-cspace! (new 'stack-no-clear 'vector) (joint-node jakb-lod0-jg neckB))))
|
|
(+! (-> gp-1 y) 2048.0)
|
|
(cond
|
|
((logtest? (surface-flag gun-strafe) (-> self control current-surface flags))
|
|
(set! gp-0 (find-nearest-focusable
|
|
(-> self focus-search)
|
|
(-> self control trans)
|
|
(+ 32768.0 (-> self gun track-find-range))
|
|
(search-info-flag crate attackable enemy cull-angle probe prefer-center)
|
|
(the-as search-info-flag (-> self gun track-require))
|
|
(-> self gun track-dir)
|
|
gp-1
|
|
10922.667
|
|
)
|
|
)
|
|
)
|
|
((or (and (logtest? (-> self control mod-surface flags) (surface-flag air))
|
|
(not (logtest? (-> self control status) (collide-status on-surface)))
|
|
)
|
|
(logtest? (surface-flag gun-direct) (-> self control current-surface flags))
|
|
)
|
|
(set! gp-0 (find-nearest-focusable
|
|
(-> self focus-search)
|
|
(-> self control trans)
|
|
(fmin 122880.0 (+ 32768.0 (-> self gun track-find-range)))
|
|
(search-info-flag crate attackable enemy cull-angle probe)
|
|
(the-as search-info-flag (-> self gun track-require))
|
|
(-> self gun track-dir)
|
|
gp-1
|
|
16384.0
|
|
)
|
|
)
|
|
)
|
|
((= (gun->eco (-> self gun gun-type)) (pickup-type eco-dark))
|
|
(set! gp-0 (find-nearest-focusable
|
|
(-> self focus-search)
|
|
(-> self control trans)
|
|
(+ 32768.0 (-> self gun track-find-range))
|
|
(search-info-flag crate attackable enemy cull-angle prefer-center)
|
|
(the-as search-info-flag (-> self gun track-require))
|
|
(-> self gun track-dir)
|
|
gp-1
|
|
5461.3335
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! gp-0 (find-nearest-focusable
|
|
(-> self focus-search)
|
|
(-> self control trans)
|
|
(+ 32768.0 (-> self gun track-find-range))
|
|
(search-info-flag crate attackable enemy cull-angle probe prefer-center)
|
|
(the-as search-info-flag (-> self gun track-require))
|
|
(-> self gun track-dir)
|
|
gp-1
|
|
5461.3335
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
(gp-0
|
|
(set! (-> self gun track-target-hold-time) 0)
|
|
(set! (-> self gun track?) (gun-track-flags gutflags-0 gutflags-1 gutflags-2))
|
|
(vector-copy! (-> self gun track-trans) (get-trans gp-0 3))
|
|
(when ((method-of-type focus focus-on!) (-> self gun track-target 0) gp-0)
|
|
(set-time! (-> self gun track-start-time))
|
|
(if (not (time-elapsed? (-> self control time-of-last-nonzero-input) (seconds 0.2)))
|
|
(set-time! (-> self gun track-press-start-time))
|
|
)
|
|
)
|
|
(if (logtest? (get-search-info-flag gp-0) (search-info-flag guard enemy attackable-priority))
|
|
(focus-on! (-> self gun track-target 1) gp-0)
|
|
)
|
|
)
|
|
(else
|
|
(let ((s5-2 (handle->process (-> self gun track-target 0 handle))))
|
|
(cond
|
|
((or (not s5-2)
|
|
(or (and (focus-test? (the-as process-focusable s5-2) dead) (zero? (-> self gun track-target-hold-time)))
|
|
(and (not (and (nonzero? (-> self gun track-target-hold-time)) (< (current-time) (-> self gun track-target-hold-time)))
|
|
)
|
|
(and (not (logtest? (surface-flag spin) (-> self control current-surface flags)))
|
|
(let ((f30-0 21845.334)
|
|
(s4-1 (-> self control))
|
|
(s2-0 (-> self gun track-trans))
|
|
)
|
|
(< f30-0
|
|
(fabs
|
|
(deg-diff (y-angle s4-1) (vector-y-angle (vector-! (new 'stack-no-clear 'vector) s2-0 (-> s4-1 trans))))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(or (and (or (and (logtest? (-> self control mod-surface flags) (surface-flag air))
|
|
(not (logtest? (-> self control status) (collide-status on-surface)))
|
|
)
|
|
(logtest? (surface-flag gun-direct) (-> self control current-surface flags))
|
|
)
|
|
(< 102400.0 (vector-vector-distance (-> self control trans) (-> self gun track-trans)))
|
|
(< (vector-dot
|
|
(-> self gun track-dir)
|
|
(vector-normalize!
|
|
(vector-! (new 'stack-no-clear 'vector) (-> self gun track-trans) (-> self control trans))
|
|
1.0
|
|
)
|
|
)
|
|
0.5
|
|
)
|
|
)
|
|
(logtest? (get-search-info-flag (the-as process-focusable s5-2)) (search-info-flag abort))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self gun track?) (gun-track-flags gutflags-1 gutflags-2))
|
|
(set! (-> self gun track-target-hold-time) 0)
|
|
((method-of-type focus clear-focused) (-> self gun track-target 0))
|
|
)
|
|
(else
|
|
(let ((a0-67 (get-search-info-flag (the-as process-focusable s5-2))))
|
|
(cond
|
|
((and (not (not (or (zero? a0-67) (logtest? a0-67 (search-info-flag abort)))))
|
|
(zero? (-> self gun track-target-hold-time))
|
|
)
|
|
(logclear! (-> self gun track?) (gun-track-flags gutflags-2))
|
|
(vector-copy! (-> self gun track-trans) (get-trans (the-as process-focusable s5-2) 3))
|
|
)
|
|
(else
|
|
(vector-copy! (-> self gun track-trans) (get-trans (the-as process-focusable s5-2) 3))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((s5-3 (handle->process (-> self gun track-target 1 handle))))
|
|
(cond
|
|
((logtest? (surface-flag gun-strafe) (-> self control current-surface flags))
|
|
(send-event *camera* 'set-slave-option (cam-slave-options STICKY_ANGLE))
|
|
)
|
|
(s5-3
|
|
(let ((s4-7 (get-trans (the-as process-focusable s5-3) 3)))
|
|
(let ((s3-1 (new 'stack-no-clear 'vector4w)))
|
|
(cond
|
|
((and (logtest? (get-search-info-flag (the-as process-focusable s5-3))
|
|
(search-info-flag guard enemy attackable-priority)
|
|
)
|
|
(transform-point-qword! s3-1 s4-7)
|
|
)
|
|
(let ((v1-171 (+ (/ (-> s3-1 x) 16) -2048)))
|
|
(+ (/ (-> s3-1 y) 16) -2048)
|
|
(let ((a0-90 (abs v1-171)))
|
|
(cond
|
|
((< a0-90 65)
|
|
(send-event *camera* 'set-slave-option (cam-slave-options STICKY_ANGLE))
|
|
)
|
|
((let ((a0-94 120))
|
|
(set! v1-171 (abs v1-171))
|
|
(< a0-94 v1-171)
|
|
)
|
|
(send-event *camera* 'clear-slave-option (cam-slave-options STICKY_ANGLE))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(send-event *camera* 'clear-slave-option (cam-slave-options STICKY_ANGLE))
|
|
)
|
|
)
|
|
)
|
|
(if (and s5-3 *gun-marks* (!= gp-0 s5-3))
|
|
(add-debug-sphere #t (bucket-id debug-no-zbuf1) s4-7 (-> s4-7 w) (new 'static 'rgba :g #x80 :b #xff :a #x40))
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(send-event *camera* 'clear-slave-option (cam-slave-options STICKY_ANGLE))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (-> self gun track?) (gun-track-flags gutflags-0))
|
|
(if *gun-marks*
|
|
(add-debug-sphere
|
|
#t
|
|
(bucket-id debug-no-zbuf1)
|
|
(-> self gun track-trans)
|
|
(-> self gun track-trans w)
|
|
(new 'static 'rgba :r #xff :g #xff :a #x40)
|
|
)
|
|
)
|
|
(send-event (handle->process (-> self gun track-target 0 handle)) 'tracked)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-top-anim-base-mode
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-top-anim-base-mode target ((arg0 int))
|
|
(cond
|
|
((focus-test? self pilot-riding)
|
|
(case (-> self gun gun-type)
|
|
(((pickup-type gun-yellow-1) (pickup-type gun-yellow-2) (pickup-type gun-yellow-3))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-yellow-idle-ja)
|
|
0.0
|
|
arg0
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type gun-blue-1) (pickup-type gun-blue-2) (pickup-type gun-blue-3))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-blue-idle-ja)
|
|
0.0
|
|
arg0
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type gun-red-1) (pickup-type gun-red-3))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-idle-ja)
|
|
0.0
|
|
arg0
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type gun-dark-1) (pickup-type gun-red-2) (pickup-type gun-dark-2) (pickup-type gun-dark-3))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-dark-idle-ja)
|
|
0.0
|
|
arg0
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(case (-> self gun gun-type)
|
|
(((pickup-type gun-yellow-1) (pickup-type gun-yellow-2))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-stance-yellow-ja)
|
|
0.0
|
|
arg0
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self gun top-anim-low-high) 1.0)
|
|
(if (zero? (-> self gun fire-pending))
|
|
(set-time! (-> self gun fire-time))
|
|
)
|
|
)
|
|
(((pickup-type gun-yellow-3))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-stance-yellow-low-ja)
|
|
0.0
|
|
arg0
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type gun-blue-1) (pickup-type gun-blue-2) (pickup-type gun-blue-3))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-stance-blue-ja)
|
|
0.0
|
|
arg0
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type gun-red-1) (pickup-type gun-red-3))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-stance-dark-ja)
|
|
0.0
|
|
arg0
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(((pickup-type gun-dark-1) (pickup-type gun-red-2) (pickup-type gun-dark-2) (pickup-type gun-dark-3))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-stance-dark-ja)
|
|
0.0
|
|
arg0
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-combo-start
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-gun-combo-start target ((arg0 int) (arg1 time-frame))
|
|
(target-top-anim-base-mode arg0)
|
|
(set! (-> self gun surpress-time) (+ (current-time) arg0))
|
|
(set! (-> self gun track-target-hold-time) (+ (current-time) arg1))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-joint-pre0
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-gun-joint-pre0 target ()
|
|
(if (!= (not (logtest? (-> self game features) (game-feature gun))) (not (-> self gun gun)))
|
|
(target-gun-setup (logtest? (-> self game features) (game-feature gun)))
|
|
)
|
|
(if (and (time-elapsed? (-> self gun combo-window-start) (seconds 0.7)) (zero? (-> self gun fire-pending)))
|
|
(set! (-> self gun combo-window-state) #f)
|
|
)
|
|
(cond
|
|
((and (cpad-pressed? (-> self control cpad number) r1)
|
|
(not (time-elapsed? (-> self gun combo-window-start) (seconds 0.7)))
|
|
(not (focus-test? self mech dark))
|
|
(not (logtest? (surface-flag gun-off) (-> self control current-surface flags)))
|
|
(not (logtest? (target-flags prevent-gun invisible) (-> self target-flags)))
|
|
(zero? (-> self gun track-target-hold-time))
|
|
)
|
|
(when (send-event self 'gun-combo #f)
|
|
(let ((gp-0 (combo-tracker-method-13
|
|
(-> self gun attack-combo)
|
|
(the-as handle #f)
|
|
(-> self control trans)
|
|
61440.0
|
|
(-> self control c-R-w fvec)
|
|
65536.0
|
|
)
|
|
)
|
|
)
|
|
(when gp-0
|
|
(if (not (using-gun? self))
|
|
(send-event self 'change-mode 'gun #f (pickup-type none))
|
|
)
|
|
(combo-tracker-method-12
|
|
(-> self gun attack-combo)
|
|
(-> self control trans)
|
|
(get-trans gp-0 3)
|
|
gp-0
|
|
(current-time)
|
|
)
|
|
((method-of-type focus focus-on!) (-> self gun track-target 0) gp-0)
|
|
(focus-on! (-> self gun track-target 1) gp-0)
|
|
(vector-copy! (-> self gun track-trans) (get-trans gp-0 3))
|
|
(set! (-> self gun track?) (gun-track-flags gutflags-0 gutflags-1 gutflags-2))
|
|
(if (zero? (-> self gun fire-pending))
|
|
(+! (-> self gun fire-pending) 1)
|
|
)
|
|
(set-time! (-> self gun fire-pending-time))
|
|
(target-gun-combo-start 20 (seconds 0.4))
|
|
(send-event self 'gun-combo #t)
|
|
(case (-> self gun combo-window-state)
|
|
(('target-attack 'target-running-attack)
|
|
(case (gun->eco (-> self gun gun-type))
|
|
(((pickup-type eco-red) (pickup-type eco-dark))
|
|
)
|
|
(else
|
|
(+! (-> self gun fire-pending) 2)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((and (cpad-pressed? (-> self control cpad number) r1)
|
|
(not (focus-test? self mech dark))
|
|
(using-gun? self)
|
|
(logtest? (surface-flag gun-turn-fast) (-> self control current-surface flags))
|
|
(not (logtest? (target-flags prevent-gun invisible) (-> self target-flags)))
|
|
(zero? (-> self gun track-target-hold-time))
|
|
(or (zero? (-> self gun turn-fast-hold-time)) (>= (current-time) (-> self gun turn-fast-hold-time)))
|
|
)
|
|
(if (zero? (-> self gun fire-pending))
|
|
(+! (-> self gun fire-pending) 1)
|
|
)
|
|
(set-time! (-> self gun fire-pending-time))
|
|
(target-top-anim-base-mode 60)
|
|
(set! (-> self gun surpress-time) (+ (current-time) (seconds 0.2)))
|
|
(set! (-> self gun turn-fast-hold-time) (+ (current-time) (seconds 0.2)))
|
|
(send-event self 'gun-combo #t)
|
|
)
|
|
)
|
|
(when (and (not (using-gun? self)) (want-to-gun? self #f))
|
|
(let ((gp-2 (nonzero? (-> self gun using-gun-type))))
|
|
(send-event self 'change-mode 'gun #f (-> self gun using-gun-type))
|
|
(when (and (not gp-2) (or (cpad-hold? (-> self control cpad number) r1) (-> self gun latch?)))
|
|
(if (zero? (-> self gun fire-pending))
|
|
(+! (-> self gun fire-pending) 1)
|
|
)
|
|
(set-time! (-> self gun fire-pending-time))
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((using-gun? self)
|
|
(when (and (nonzero? (-> self gun top-anim-twist-reset))
|
|
(< (the-as time-frame (-> self gun top-anim-twist-reset)) (current-time))
|
|
)
|
|
(quat<-gun! (the-as quaternion (-> self gun top-anim-twist-targ)) (the-as quaternion (-> self gun gun-type)))
|
|
(set! (-> self gun top-anim-twist-reset) (the-as uint 0))
|
|
0
|
|
)
|
|
(cond
|
|
((and (= (-> self control collide-mode) 'normal) (!= (-> self control collide-mode) 'duck))
|
|
(target-collide-set! 'gun 0.0)
|
|
)
|
|
((= (-> self control collide-mode) 'gun)
|
|
(cond
|
|
((or (and (not (logtest? (-> self control status) (collide-status on-surface)))
|
|
(or (and (logtest? (-> self control mod-surface flags) (surface-flag air))
|
|
(not (logtest? (-> self control status) (collide-status on-surface)))
|
|
)
|
|
(< 2048.0 (target-height-above-ground))
|
|
)
|
|
)
|
|
(focus-test? self edge-grab)
|
|
(-> *setting-control* user-current doorway)
|
|
)
|
|
(if (!= (-> self control duck-gun-tube-transision) 0.0)
|
|
(target-collide-set! 'gun 0.0)
|
|
)
|
|
)
|
|
(else
|
|
(when (!= (-> self control duck-gun-tube-transision) 1.0)
|
|
(when (= (-> self control collide-mode) 'gun)
|
|
(let ((gp-3 (new 'stack-no-clear 'collide-query))
|
|
(s5-2 (new 'stack-no-clear 'inline-array 'sphere 1))
|
|
)
|
|
(dotimes (s4-1 1)
|
|
((method-of-type sphere new) (the-as symbol (-> s5-2 s4-1)) sphere)
|
|
)
|
|
(let ((f30-1 (seek (-> self control collide-mode-transition) 1.0 (/ (-> self clock time-adjust-ratio) 10))))
|
|
(set! (-> s5-2 0 quad) (-> self control collision-spheres 2 prim-core world-sphere quad))
|
|
(set! (-> s5-2 0 r) (lerp-scale (-> *TARGET-bank* body-radius) 7372.8 f30-1 0.0 1.0))
|
|
(let ((v1-214 gp-3))
|
|
(set! (-> v1-214 best-dist) (the-as float s5-2))
|
|
(set! (-> v1-214 best-other-prim) (the-as collide-shape-prim 1))
|
|
(set! (-> v1-214 collide-with) (-> self control root-prim prim-core collide-with))
|
|
(set! (-> v1-214 ignore-process0) #f)
|
|
(set! (-> v1-214 ignore-process1) #f)
|
|
(set! (-> v1-214 ignore-pat)
|
|
(new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1 :board #x1)
|
|
)
|
|
(set! (-> v1-214 best-my-prim) (the-as collide-shape-prim #t))
|
|
(set! (-> v1-214 action-mask) (collide-action solid))
|
|
)
|
|
(if (not (fill-and-probe-using-spheres *collide-cache* gp-3))
|
|
(target-collide-set! 'gun f30-1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(target-gun-find-track)
|
|
(cond
|
|
((and (= (gun->eco (-> self gun gun-type)) (pickup-type eco-blue))
|
|
(not (logtest? (-> self gun track?) (gun-track-flags gutflags-0)))
|
|
)
|
|
(let ((f0-8 (vector-vector-distance (-> self gun fire-point) (-> self gun laser-hit-point))))
|
|
(cond
|
|
((< f0-8 122880.0)
|
|
(seek!
|
|
(-> self gun top-anim-tilt-up)
|
|
(lerp-scale -1820.4445 0.0 f0-8 61440.0 122880.0)
|
|
(* 5461.3335 (seconds-per-frame))
|
|
)
|
|
)
|
|
((!= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
|
|
(seek! (-> self gun top-anim-tilt-up) 0.0 (* 1820.4445 (seconds-per-frame)))
|
|
)
|
|
)
|
|
)
|
|
(quaternion-rotate-x!
|
|
(the-as quaternion (-> self gun top-anim-twist-targ))
|
|
(the-as quaternion *null-vector*)
|
|
(-> self gun top-anim-tilt-up)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self gun top-anim-tilt-up) 0.0)
|
|
(quat<-gun! (the-as quaternion (-> self gun top-anim-twist-targ)) (the-as quaternion (-> self gun gun-type)))
|
|
)
|
|
)
|
|
(quaternion-slerp!
|
|
(the-as quaternion (-> self gun top-anim-twist))
|
|
(the-as quaternion (-> self gun top-anim-twist))
|
|
(the-as quaternion (-> self gun top-anim-twist-targ))
|
|
0.1
|
|
)
|
|
(trs-set!
|
|
(-> self upper-body)
|
|
(the-as vector #f)
|
|
(the-as quaternion (-> self gun top-anim-twist))
|
|
(the-as vector #f)
|
|
)
|
|
(cond
|
|
((or (and (nonzero? (-> self gun track-target-hold-time)) (< (current-time) (-> self gun track-target-hold-time)))
|
|
(and (nonzero? (-> self gun turn-fast-hold-time)) (< (current-time) (-> self gun turn-fast-hold-time)))
|
|
(and (logtest? (-> self gun track?) (gun-track-flags gutflags-0))
|
|
(logtest? (-> self gun track?) (gun-track-flags gutflags-2))
|
|
)
|
|
(or (logtest? (surface-flag gun-strafe) (-> self control current-surface flags))
|
|
(focus-test? self pilot-riding)
|
|
)
|
|
)
|
|
(seek! (-> self upper-body twist z) 0.0 (* 65536.0 (seconds-per-frame)))
|
|
)
|
|
((logtest? (surface-flag gun-no-twist) (-> self control current-surface flags))
|
|
(seek! (-> self upper-body twist z) 0.0 (* 16384.0 (seconds-per-frame)))
|
|
)
|
|
((and (< 0.0 (-> self control turn-to-magnitude))
|
|
(not (logtest? (-> self control current-surface flags) (surface-flag duck)))
|
|
)
|
|
(let* ((f0-28 (deg-diff (y-angle (-> self control)) (vector-y-angle (-> self control to-target-pt-xz))))
|
|
(f0-30 (fmax -5461.3335 (fmin 5461.3335 f0-28)))
|
|
)
|
|
(seek! (-> self upper-body twist z) f0-30 (fabs (/ f0-30 5)))
|
|
)
|
|
)
|
|
)
|
|
(vector-copy! (new 'stack-no-clear 'vector) (-> self control trans))
|
|
(if (logtest? (surface-flag gun-no-twist) (-> self control current-surface flags))
|
|
(set! (-> self upper-body flex-blend) 0.0)
|
|
(seek! (-> self upper-body flex-blend) 1.0 (* 8.0 (seconds-per-frame)))
|
|
)
|
|
(when (logtest? (-> self gun track?) (gun-track-flags gutflags-0))
|
|
(vector-copy! (-> self gun top-anim-look-at) (-> self gun track-trans))
|
|
(let ((gp-6 (new 'stack-no-clear 'vector)))
|
|
(vector-copy! gp-6 (-> self gun top-anim-look-at))
|
|
(case (gun->eco (-> self gun gun-type))
|
|
(((pickup-type eco-yellow))
|
|
(+! (-> gp-6 y) -409.6)
|
|
)
|
|
(((pickup-type eco-blue))
|
|
(+! (-> gp-6 y) 2457.6)
|
|
)
|
|
(else
|
|
(+! (-> gp-6 y) -1638.4)
|
|
)
|
|
)
|
|
(if (not (logtest? (surface-flag gun-no-twist) (-> self control current-surface flags)))
|
|
(target-set! (-> self upper-body) gp-6)
|
|
)
|
|
(when *gun-marks*
|
|
(add-debug-sphere
|
|
#t
|
|
(bucket-id debug-no-zbuf1)
|
|
(-> self gun top-anim-look-at)
|
|
(meters 0.2)
|
|
(the-as rgba (new 'static 'rgba :r #xff :a #x80))
|
|
)
|
|
(add-debug-sphere
|
|
#t
|
|
(bucket-id debug-no-zbuf1)
|
|
gp-6
|
|
(meters 0.1)
|
|
(the-as rgba (new 'static 'rgba :r #xff :g #xff :a #x80))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-341 (-> self neck)))
|
|
(set! (-> v1-341 blend) 0.0)
|
|
)
|
|
)
|
|
(cond
|
|
((and (logtest? (-> self gun track?) (gun-track-flags gutflags-0))
|
|
(logtest? (get-search-info-flag (the-as process-focusable (handle->process (-> self gun track-target 0 handle))))
|
|
(search-info-flag guard enemy attackable-priority)
|
|
)
|
|
)
|
|
(if (and (not (time-elapsed? (-> self gun track-press-start-time) (seconds 0.5)))
|
|
(< (-> self control time-between-zero-inputs) (seconds 0.5))
|
|
(and (= (-> self control turn-to-magnitude) 0.0)
|
|
(not (logtest? (-> self control current-surface flags) (surface-flag air attack)))
|
|
(-> self gun active?)
|
|
)
|
|
)
|
|
(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))
|
|
)
|
|
)
|
|
(cond
|
|
((or (and (nonzero? (-> self gun track-target-hold-time)) (< (current-time) (-> self gun track-target-hold-time)))
|
|
(and (nonzero? (-> self gun turn-fast-hold-time)) (< (current-time) (-> self gun turn-fast-hold-time)))
|
|
)
|
|
(set! (-> self gun track?) (gun-track-flags gutflags-0 gutflags-1 gutflags-2))
|
|
(set! (-> self gun upper-body twist-max y) 21845.334)
|
|
(set! (-> self gun upper-body twist-speed-y) 0.2)
|
|
(set! (-> self gun upper-body twist-speed-x) 0.6)
|
|
)
|
|
((and (or (and (logtest? (-> self control mod-surface flags) (surface-flag air))
|
|
(not (logtest? (-> self control status) (collide-status on-surface)))
|
|
)
|
|
(logtest? (surface-flag gun-direct) (-> self control current-surface flags))
|
|
)
|
|
(< (vector-vector-distance (-> self control trans) (-> self gun track-trans)) 81920.0)
|
|
)
|
|
(set! (-> self gun upper-body twist-max y) 16384.0)
|
|
(set! (-> self gun upper-body twist-speed-y) 0.2)
|
|
(set! (-> self gun upper-body twist-speed-x) 0.1)
|
|
)
|
|
((or (= (-> *cpad-list* cpads (-> self control cpad number) stick0-speed) 0.0)
|
|
(let ((f30-2 10922.667)
|
|
(gp-10 deg-diff)
|
|
(v1-424 (-> self control))
|
|
(a1-49 (-> self gun track-trans))
|
|
)
|
|
(>= f30-2
|
|
(gp-10
|
|
(vector-y-angle (vector-! (new 'stack-no-clear 'vector) a1-49 (-> v1-424 trans)))
|
|
(vector-y-angle (-> self control to-target-pt-xz))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self gun upper-body twist-max y)
|
|
(lerp-scale
|
|
10922.667
|
|
(-> self gun track-turn-max)
|
|
(vector-vector-distance (-> self control trans) (-> self gun track-trans))
|
|
20480.0
|
|
61440.0
|
|
)
|
|
)
|
|
(set! (-> self gun upper-body twist-speed-y)
|
|
(lerp-scale
|
|
0.3
|
|
0.1
|
|
(vector-vector-distance (-> self control trans) (-> self gun track-trans))
|
|
16384.0
|
|
40960.0
|
|
)
|
|
)
|
|
(set! (-> self gun upper-body twist-speed-x) 0.1)
|
|
)
|
|
(else
|
|
(set! (-> self gun upper-body twist-max y) (-> self gun track-turn-max))
|
|
(set! (-> self gun upper-body twist-speed-y) 0.1)
|
|
(set! (-> self gun upper-body twist-speed-x) 0.1)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self gun upper-body twist-max y) (-> self gun track-turn-max))
|
|
(set! (-> self gun upper-body twist-speed-y) 0.1)
|
|
(set! (-> self gun upper-body twist-speed-x) 0.1)
|
|
)
|
|
)
|
|
(set! (-> self gun upper-body track-mode) (the-as track-mode (-> self gun track?)))
|
|
(when (not (time-elapsed? (-> self gun fire-time) (seconds 1.5)))
|
|
(let ((v1-466 (-> self neck)))
|
|
(set! (-> v1-466 blend) 0.0)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(seek! (-> self upper-body flex-blend) 0.0 (* 16.0 (seconds-per-frame)))
|
|
(seek! (-> self upper-body twist z) 0.0 (* 65536.0 (seconds-per-frame)))
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-joint-pre
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-gun-joint-pre target ()
|
|
(local-vars (gp-0 art-element))
|
|
(target-gun-joint-pre0)
|
|
(cond
|
|
((focus-test? self pilot-riding)
|
|
(let ((v1-3 (gun->eco (-> self gun gun-type))))
|
|
(set! (-> self skel top-anim base-anim) (cond
|
|
((= v1-3 (pickup-type eco-yellow))
|
|
jakb-pilot-gun-yellow-idle-ja
|
|
)
|
|
((= v1-3 (pickup-type eco-red))
|
|
jakb-pilot-gun-red-idle-ja
|
|
)
|
|
((= v1-3 (pickup-type eco-blue))
|
|
jakb-pilot-gun-blue-idle-ja
|
|
)
|
|
(else
|
|
jakb-pilot-gun-dark-idle-ja
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(let ((v1-14 (gun->eco (-> self gun gun-type))))
|
|
(set! gp-0
|
|
(cond
|
|
((= v1-14 (pickup-type eco-yellow))
|
|
(let ((v1-17 (ja-group)))
|
|
(cond
|
|
((and (and v1-17 (or (= v1-17 self) (= v1-17 jakb-gun-walk-side-ja) (= v1-17 jakb-wade-shallow-walk-ja)))
|
|
(< (-> self gun top-anim-low-high) 0.5)
|
|
)
|
|
(let ((s5-0 (get-channel (-> self skel top-anim) 0)))
|
|
(set! gp-0 (if (< 0.9 (-> self control unknown-float002))
|
|
jakb-gun-front-run-ja
|
|
jakb-gun-front-walk-ja
|
|
)
|
|
)
|
|
(set! (-> self skel top-anim base-anim-blend) 0.1)
|
|
(when (and s5-0 (= (-> s5-0 frame-group) gp-0))
|
|
(set! (-> s5-0 frame-num) (ja-frame-num 0))
|
|
(set! (-> self skel top-anim base-anim-speed) 0.0)
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
((let ((v1-42 (ja-group)))
|
|
(and (and v1-42 (or (= v1-42 self) (= v1-42 jakb-gun-duck-walk-ja))) (< (-> self gun top-anim-low-high) 0.5))
|
|
)
|
|
(let ((s5-1 (get-channel (-> self skel top-anim) 0)))
|
|
(set! gp-0 jakb-gun-duck-walk-ja)
|
|
(set! (-> self skel top-anim base-anim-blend) 0.1)
|
|
(when (and s5-1 (= (-> s5-1 frame-group) gp-0))
|
|
(set! (-> s5-1 frame-num) (ja-frame-num 0))
|
|
(set! (-> self skel top-anim base-anim-speed) 0.0)
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
((< (-> self gun top-anim-low-high) 0.5)
|
|
jakb-gun-stance-yellow-low-ja
|
|
)
|
|
(else
|
|
(when (and (or (time-elapsed? (-> self gun fire-time) (seconds 1.5))
|
|
(= (-> self gun gun-type) (pickup-type gun-yellow-3))
|
|
)
|
|
(let ((v1-74 (-> self skel top-anim frame-group)))
|
|
(or (= v1-74 jakb-gun-yellow-highlow-ja) (= v1-74 jakb-gun-stance-yellow-ja))
|
|
)
|
|
(not (logtest? (focus-status pilot) (-> self focus-status)))
|
|
)
|
|
(seek! (-> self gun top-anim-low-high) 0.0 (* 6.0 (seconds-per-frame)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-yellow-highlow-ja)
|
|
0.0
|
|
0
|
|
60
|
|
(if (< 20480.0 (-> self control ctrl-xz-vel))
|
|
2.0
|
|
1.0
|
|
)
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
jakb-gun-stance-yellow-ja
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((= v1-14 (pickup-type eco-red))
|
|
(let ((v1-92 (ja-group)))
|
|
(cond
|
|
((and v1-92 (or (= v1-92 self) (= v1-92 jakb-walk-ja) (= v1-92 jakb-wade-shallow-walk-ja)))
|
|
(let ((s5-2 (get-channel (-> self skel top-anim) 0)))
|
|
(set! gp-0 (if (< 0.9 (-> self control unknown-float002))
|
|
jakb-gun-front-run-ja
|
|
jakb-gun-front-walk-ja
|
|
)
|
|
)
|
|
(set! (-> self skel top-anim base-anim-blend) 0.1)
|
|
(when (and s5-2 (= (-> s5-2 frame-group) gp-0))
|
|
(set! (-> s5-2 frame-num) (ja-frame-num 0))
|
|
(set! (-> self skel top-anim base-anim-speed) 0.0)
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
(else
|
|
(let ((v1-114 (ja-group)))
|
|
(cond
|
|
((and v1-114 (or (= v1-114 self) (= v1-114 jakb-gun-duck-walk-ja)))
|
|
(let ((s5-3 (get-channel (-> self skel top-anim) 0)))
|
|
(set! gp-0 jakb-gun-duck-walk-ja)
|
|
(set! (-> self skel top-anim base-anim-blend) 0.1)
|
|
(when (and s5-3 (= (-> s5-3 frame-group) gp-0))
|
|
(set! (-> s5-3 frame-num) (ja-frame-num 0))
|
|
(set! (-> self skel top-anim base-anim-speed) 0.0)
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
((or (< (-> self gun top-anim-low-high) 0.5) (nonzero? (-> self ext-anim)))
|
|
jakb-gun-stance-ja
|
|
)
|
|
(else
|
|
(when (and (or (time-elapsed? (-> self gun fire-time) (seconds 2.5))
|
|
(= (-> self gun gun-type) (pickup-type gun-red-2))
|
|
(and (< 4096.0 (-> self control ctrl-xz-vel)) (time-elapsed? (-> self gun fire-time) (seconds 1.25)))
|
|
)
|
|
(let ((v1-153 (-> self skel top-anim frame-group)))
|
|
(or (= v1-153 jakb-gun-stance-red-sideways-ja)
|
|
(= v1-153 jakb-gun-red-from-sideways-ja)
|
|
(= v1-153 jakb-gun-stance-ja)
|
|
)
|
|
)
|
|
)
|
|
(seek! (-> self gun top-anim-low-high) 0.0 (* 6.0 (seconds-per-frame)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-red-from-sideways-ja)
|
|
0.0
|
|
0
|
|
30
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
jakb-gun-stance-red-sideways-ja
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((= v1-14 (pickup-type eco-blue))
|
|
(let ((v1-168 (ja-group)))
|
|
(cond
|
|
((and (and v1-168 (or (= v1-168 self) (= v1-168 jakb-gun-walk-side-ja) (= v1-168 jakb-wade-shallow-walk-ja)))
|
|
(< (-> self gun top-anim-low-high) 0.5)
|
|
(or (time-elapsed? (-> self gun fire-time) (seconds 0.2))
|
|
(and (= (-> self gun gun-type) (pickup-type gun-blue-2))
|
|
(not (and (-> self next-state) (= (-> self next-state name) 'target-gun-stance)))
|
|
)
|
|
)
|
|
)
|
|
(let ((s5-4 (get-channel (-> self skel top-anim) 0)))
|
|
(set! gp-0 (if (< 0.9 (-> self control unknown-float002))
|
|
jakb-gun-run-blue-ja
|
|
jakb-gun-walk-blue-ja
|
|
)
|
|
)
|
|
(set! (-> self skel top-anim base-anim-blend) 0.1)
|
|
(when (and s5-4 (= (-> s5-4 frame-group) gp-0))
|
|
(set! (-> s5-4 frame-num) (ja-frame-num 0))
|
|
(set! (-> self skel top-anim base-anim-speed) 0.0)
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
((and (= (-> self gun gun-type) (pickup-type gun-blue-2))
|
|
(not (time-elapsed? (-> self gun fire-time) (seconds 0.05)))
|
|
(-> self next-state)
|
|
(= (-> self next-state name) 'target-gun-stance)
|
|
)
|
|
jakb-gun-blue-stance-2-ja
|
|
)
|
|
(else
|
|
jakb-gun-stance-blue-ja
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((let ((v1-218 (ja-group)))
|
|
(and v1-218 (or (= v1-218 self) (= v1-218 jakb-walk-ja) (= v1-218 jakb-wade-shallow-walk-ja)))
|
|
)
|
|
(let ((s5-5 (get-channel (-> self skel top-anim) 0)))
|
|
(set! gp-0 (if (< 0.9 (-> self control unknown-float002))
|
|
jakb-gun-front-run-ja
|
|
jakb-gun-front-walk-ja
|
|
)
|
|
)
|
|
(set! (-> self skel top-anim base-anim-blend) 0.1)
|
|
(when (and s5-5 (= (-> s5-5 frame-group) gp-0))
|
|
(set! (-> s5-5 frame-num) (ja-frame-num 0))
|
|
(set! (-> self skel top-anim base-anim-speed) 0.0)
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
(else
|
|
(let ((v1-240 (ja-group)))
|
|
(cond
|
|
((and v1-240 (or (= v1-240 self) (= v1-240 jakb-gun-duck-walk-ja)))
|
|
(let ((s5-6 (get-channel (-> self skel top-anim) 0)))
|
|
(set! gp-0 jakb-gun-duck-walk-ja)
|
|
(set! (-> self skel top-anim base-anim-blend) 0.1)
|
|
(when (and s5-6 (= (-> s5-6 frame-group) gp-0))
|
|
(set! (-> s5-6 frame-num) (ja-frame-num 0))
|
|
(set! (-> self skel top-anim base-anim-speed) 0.0)
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
(else
|
|
jakb-gun-stance-dark-ja
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self skel top-anim base-anim) gp-0)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-compute-pos
|
|
;; INFO: Used lq/sq
|
|
(defbehavior target-gun-compute-pos target ()
|
|
(let ((a1-0 (-> self node-list data 36 bone transform))
|
|
(a2-0 (if (-> self sidekick)
|
|
(-> self sidekick 0 node-list data 28 bone transform)
|
|
(-> self node-list data 36 bone transform)
|
|
)
|
|
)
|
|
(gp-0 (new 'stack-no-clear 'matrix))
|
|
)
|
|
(matrix-lerp! gp-0 a1-0 a2-0 (-> self gun gun-daxter))
|
|
(matrix->transformq (-> self gun gun-pos) gp-0)
|
|
(vector-copy! (-> self gun gun-pos scale) (-> self control scale))
|
|
(when (and (using-gun? self)
|
|
(and (focus-test? self edge-grab) (let ((v1-18 (ja-group)))
|
|
(and v1-18 (or (= v1-18 jakb-jump-loop-ja)
|
|
(= v1-18 jakb-falling-to-edge-grab-ja)
|
|
(= v1-18 jakb-edge-grab-stance0-ja)
|
|
(= v1-18 jakb-edge-grab-stance1-ja)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((s4-0 (new 'static 'vector :y 491.52 :w 1.0))
|
|
(a1-5 (new 'static 'vector :x -16384.0 :z -16384.0 :w 1.0))
|
|
(s5-0 (new 'stack-no-clear 'quaternion))
|
|
)
|
|
(matrix-rotate-xyz! gp-0 a1-5)
|
|
(matrix->quaternion s5-0 gp-0)
|
|
(vector+! (-> self gun gun-pos trans) (-> *edge-grab-info* center-hold) s4-0)
|
|
(vector+float*!
|
|
(-> self gun gun-pos trans)
|
|
(-> self gun gun-pos trans)
|
|
(-> self node-list data 0 bone transform fvec)
|
|
778.24
|
|
)
|
|
(quaternion-normalize! (quaternion*! (-> self gun gun-pos quat) (-> self control quat) s5-0))
|
|
)
|
|
)
|
|
gp-0
|
|
)
|
|
)
|
|
|
|
;; definition for function target-gun-joint-points
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-gun-joint-points target ()
|
|
(when (-> self gun gun)
|
|
(set! (-> self gun gun-daxter)
|
|
(if (and (focus-test? self pilot-riding)
|
|
(nonzero? (-> self skel float-channels))
|
|
(= (-> (get-channel (-> self skel top-anim) (the-as int (+ (-> self skel float-channels) -1))) frame-interp 1)
|
|
1.0
|
|
)
|
|
)
|
|
1.0
|
|
0.0
|
|
)
|
|
)
|
|
(cond
|
|
((using-gun? self)
|
|
(set! (-> self gun gun-roty-targ) (y-angle (-> self control)))
|
|
(set! (-> self gun gun-roty) (-> self gun gun-roty-targ))
|
|
(set! (-> self gun gun-roty-rel) 0.0)
|
|
(let ((v1-24 (get-channel (-> self skel top-anim) 0)))
|
|
(cond
|
|
((not v1-24)
|
|
)
|
|
((handle->process (-> self gun charge-active?))
|
|
(cond
|
|
((and (= (-> v1-24 frame-group) jakb-gun-dark-fire-ja) (>= (-> v1-24 frame-num) 8.5))
|
|
(set! (-> v1-24 frame-num) 5.0)
|
|
)
|
|
((and (= (-> v1-24 frame-group) jakb-pilot-gun-dark-fire-ja) (>= (-> v1-24 frame-num) 8.0))
|
|
(set! (-> v1-24 frame-num) 3.0)
|
|
)
|
|
((and (= (-> v1-24 frame-group) jakb-gun-red-fire-2-ja) (>= (-> v1-24 frame-num) 8.5))
|
|
(set! (-> v1-24 frame-num) 5.0)
|
|
)
|
|
((not (-> self skel top-anim frame-targ))
|
|
(case (-> self gun gun-type)
|
|
(((pickup-type gun-red-2))
|
|
(if (!= (-> v1-24 frame-group) jakb-gun-red-fire-2-ja)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-red-fire-2-ja)
|
|
0.0
|
|
30
|
|
15
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(((pickup-type gun-dark-1) (pickup-type gun-dark-2) (pickup-type gun-dark-3))
|
|
(if (!= (-> v1-24 frame-group) jakb-gun-dark-fire-ja)
|
|
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-dark-fire-ja) 0.0 30 15 1.0 0.0 #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((and (= (-> v1-24 frame-group) jakb-gun-dark-fire-ja) (< (-> v1-24 frame-num) 9.0))
|
|
(set! (-> v1-24 frame-num) 10.0)
|
|
)
|
|
((and (= (-> v1-24 frame-group) jakb-pilot-gun-dark-fire-ja) (< (-> v1-24 frame-num) 9.0))
|
|
(set! (-> v1-24 frame-num) 9.0)
|
|
)
|
|
((and (= (-> v1-24 frame-group) jakb-gun-red-fire-2-ja) (< (-> v1-24 frame-num) 9.0))
|
|
(let ((a0-65 (new-stack-vector0)))
|
|
(let ((f0-17 (vector-dot (-> self control dynam gravity-normal) (-> self control transv))))
|
|
0.0
|
|
(vector-! a0-65 (-> self control transv) (vector-float*! a0-65 (-> self control dynam gravity-normal) f0-17))
|
|
)
|
|
(let* ((f0-18 (vector-length a0-65))
|
|
(f1-8 f0-18)
|
|
(f2-0 65502.96)
|
|
)
|
|
(vector+!
|
|
(-> self control transv)
|
|
(vector-float*! (-> self control transv) (-> self control dynam gravity-normal) f2-0)
|
|
(vector-float*! a0-65 a0-65 (/ f0-18 f1-8))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> v1-24 frame-num) 10.0)
|
|
)
|
|
((and (= (-> v1-24 frame-group) jakb-gun-yellow-fire-3-ja)
|
|
(!= (-> self gun gun-delay-fire) 0.0)
|
|
(< (-> self gun gun-delay-fire) (-> v1-24 frame-num))
|
|
)
|
|
(target-gun-fire-yellow (-> self gun gun-type))
|
|
(set! (-> self gun gun-delay-fire) 0.0)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self gun active?)
|
|
(and (not (logtest? (surface-flag gun-inactive gun-hide gun-off) (-> self control current-surface flags)))
|
|
(and (time-elapsed? (-> self gun gun-get-on-time) (seconds 0.1))
|
|
(>= (current-time) (-> self gun surpress-time))
|
|
(let ((v1-48 (-> self skel top-anim frame-group))
|
|
(f0-24 (-> self skel top-anim frame-num))
|
|
)
|
|
(and (not (and v1-48
|
|
(or (= v1-48 jakb-gun-red-takeout-ja)
|
|
(= v1-48 jakb-gun-blue-takeout-ja)
|
|
(= v1-48 jakb-gun-yellow-takeout-ja)
|
|
(= v1-48 jakb-gun-dark-takeout-ja)
|
|
(and jakb-pilot-gun-red-takeout-ja
|
|
(or (= v1-48 jakb-pilot-gun-red-takeout-ja)
|
|
(= v1-48 jakb-pilot-gun-blue-takeout-ja)
|
|
(= v1-48 jakb-pilot-gun-yellow-takeout-ja)
|
|
(= v1-48 jakb-pilot-gun-dark-takeout-ja)
|
|
(= v1-48 jakb-pilot-gun-red-dark-ja)
|
|
(= v1-48 jakb-pilot-gun-red-yellow-ja)
|
|
(= v1-48 jakb-pilot-gun-red-blue-ja)
|
|
(= v1-48 jakb-pilot-gun-yellow-blue-ja)
|
|
)
|
|
)
|
|
(and (= v1-48 jakb-gun-attack-butt-end-ja) (>= 6.8 f0-24))
|
|
(or (and (= v1-48 jakb-gun-attack-butt-blue-end-ja) (>= 6.8 f0-24))
|
|
(and jakb-gun-dark-fire-twirl-ja
|
|
(or (= v1-48 jakb-gun-dark-fire-twirl-ja) (= v1-48 jakb-gun-yellow-fire-twirl-ja))
|
|
)
|
|
(= v1-48 jakb-gun-transformation-twirl-ja)
|
|
(= v1-48 jakb-gun-front-to-side-hop-ja)
|
|
(= v1-48 jakb-gun-side-to-front-hop-ja)
|
|
(= v1-48 jakb-gun-side-to-side-hop-1-ja)
|
|
(= v1-48 jakb-gun-side-to-side-hop-2-ja)
|
|
(= v1-48 jakb-gun-blue-to-front-hop-ja)
|
|
(= v1-48 jakb-gun-front-to-blue-hop-ja)
|
|
(= v1-48 jakb-gun-hit-from-front-ja)
|
|
(= v1-48 jakb-gun-hit-from-back-ja)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-53 (-> self skel top-anim frame-group-push)))
|
|
(not (and v1-53
|
|
(or (= v1-53 jakb-gun-red-takeout-ja)
|
|
(= v1-53 jakb-gun-blue-takeout-ja)
|
|
(= v1-53 jakb-gun-yellow-takeout-ja)
|
|
(= v1-53 jakb-gun-dark-takeout-ja)
|
|
(and jakb-pilot-gun-red-takeout-ja
|
|
(or (= v1-53 jakb-pilot-gun-red-takeout-ja)
|
|
(= v1-53 jakb-pilot-gun-blue-takeout-ja)
|
|
(= v1-53 jakb-pilot-gun-yellow-takeout-ja)
|
|
(= v1-53 jakb-pilot-gun-dark-takeout-ja)
|
|
(= v1-53 jakb-pilot-gun-red-dark-ja)
|
|
(= v1-53 jakb-pilot-gun-red-yellow-ja)
|
|
(= v1-53 jakb-pilot-gun-red-blue-ja)
|
|
(= v1-53 jakb-pilot-gun-yellow-blue-ja)
|
|
)
|
|
)
|
|
(and jakb-gun-dark-fire-twirl-ja
|
|
(or (= v1-53 jakb-gun-dark-fire-twirl-ja) (= v1-53 jakb-gun-yellow-fire-twirl-ja))
|
|
)
|
|
(= v1-53 jakb-gun-transformation-twirl-ja)
|
|
(= v1-53 jakb-gun-front-to-side-hop-ja)
|
|
(= v1-53 jakb-gun-side-to-front-hop-ja)
|
|
(= v1-53 jakb-gun-side-to-side-hop-1-ja)
|
|
(= v1-53 jakb-gun-side-to-side-hop-2-ja)
|
|
(= v1-53 jakb-gun-blue-to-front-hop-ja)
|
|
(= v1-53 jakb-gun-front-to-blue-hop-ja)
|
|
(= v1-53 jakb-gun-hit-from-front-ja)
|
|
(= v1-53 jakb-gun-hit-from-back-ja)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (-> self gun active?)
|
|
(set-time! (-> self gun active-time))
|
|
)
|
|
(set! (-> self gun laser-active?)
|
|
(not (logtest? (surface-flag gun-inactive gun-hide gun-off laser-hide) (-> self control current-surface flags))
|
|
)
|
|
)
|
|
(when (and (not (and (not (logtest? (surface-flag gun-inactive gun-hide gun-off) (-> self control current-surface flags)))
|
|
(time-elapsed? (-> self gun gun-get-on-time) (seconds 0.1))
|
|
(>= (current-time) (-> self gun surpress-time))
|
|
)
|
|
)
|
|
(and (time-elapsed? (-> self gun fire-pending-time) (seconds 0.2))
|
|
(time-elapsed? (-> self gun active-time) (seconds 0.2))
|
|
(= (-> self gun fire-pending) 1)
|
|
)
|
|
)
|
|
(set! (-> self gun fire-pending) 0)
|
|
0
|
|
)
|
|
(if (and (or (logtest? (surface-flag gun-hide gun-off) (-> self control current-surface flags))
|
|
(logtest? (target-flags prevent-gun invisible) (-> self target-flags))
|
|
(and (or (and (cpad-hold? (-> self control cpad number) up)
|
|
(>= (- (-> *display* real-clock frame-counter) (-> self gun gun-select-time 0)) (seconds 0.8))
|
|
)
|
|
(and (cpad-hold? (-> self control cpad number) down)
|
|
(>= (- (-> *display* real-clock frame-counter) (-> self gun gun-select-time 1)) (seconds 0.8))
|
|
)
|
|
(and (cpad-hold? (-> self control cpad number) left)
|
|
(>= (- (-> *display* real-clock frame-counter) (-> self gun gun-select-time 2)) (seconds 0.8))
|
|
)
|
|
(and (cpad-hold? (-> self control cpad number) right)
|
|
(>= (- (-> *display* real-clock frame-counter) (-> self gun gun-select-time 3)) (seconds 0.8))
|
|
)
|
|
)
|
|
(not (cpad-hold? (-> self control cpad number) r1))
|
|
(not (logtest? (surface-flag gun-inactive) (-> self control current-surface flags)))
|
|
(not (logtest? (-> self focus-status) (focus-status grabbed)))
|
|
)
|
|
(or (-> self gun put-away?)
|
|
(not (logtest? (-> self game features) (game-feature gun)))
|
|
(not (logtest? (the-as game-feature (ash 1 (+ (the-as int (-> self gun gun-type)) -20)))
|
|
(logand (-> self game features) (-> *setting-control* user-current features))
|
|
)
|
|
)
|
|
(not (-> *setting-control* user-current gun))
|
|
(focus-test? self dead dark)
|
|
(-> self board latch?)
|
|
)
|
|
)
|
|
(time-elapsed? (-> self gun gun-get-on-time) (seconds 0.1))
|
|
(let ((v1-170 (-> self skel top-anim frame-targ)))
|
|
(or (not v1-170)
|
|
(= v1-170 jakb-gun-side-jump-ja)
|
|
(= v1-170 jakb-gun-front-jump-ja)
|
|
(= v1-170 jakb-gun-side-jump-land-ja)
|
|
(= v1-170 jakb-gun-front-jump-land-ja)
|
|
(= v1-170 jakb-gun-front-run-ja)
|
|
(= v1-170 jakb-gun-front-walk-ja)
|
|
(= v1-170 jakb-gun-run-blue-ja)
|
|
(= v1-170 jakb-gun-walk-blue-ja)
|
|
(logtest? (surface-flag gun-fast-exit) (-> self control current-surface flags))
|
|
)
|
|
)
|
|
)
|
|
(target-gun-end-mode (not (logtest? (surface-flag gun-hide) (-> self control current-surface flags))))
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self gun active?) #f)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-fire
|
|
;; WARN: Return type mismatch symbol vs none.
|
|
(defbehavior target-gun-fire target ((arg0 pickup-type))
|
|
(when (using-gun? self)
|
|
(set! (-> self gun gun-delay-fire) 0.0)
|
|
(let ((gp-0 (-> self gun))
|
|
(s5-0 (gun->ammo arg0))
|
|
)
|
|
#t
|
|
(let* ((v1-2 (gun->eco (-> gp-0 gun-type)))
|
|
(v1-3 (cond
|
|
((= v1-2 (pickup-type eco-yellow))
|
|
(target-gun-can-fire-yellow? arg0)
|
|
)
|
|
((= v1-2 (pickup-type eco-red))
|
|
(target-gun-can-fire-red? arg0)
|
|
)
|
|
((= v1-2 (pickup-type eco-blue))
|
|
(target-gun-can-fire-blue? arg0)
|
|
)
|
|
((= v1-2 (pickup-type eco-dark))
|
|
(target-gun-can-fire-dark? arg0)
|
|
)
|
|
)
|
|
)
|
|
(f0-1 (-> self game gun-ammo (+ s5-0 -15)))
|
|
)
|
|
(cond
|
|
((and v1-3 (or (>= f0-1 (-> self gun ammo-required))
|
|
(logtest? (target-flags tf16) (-> self target-flags))
|
|
(logtest? (game-secrets endless-ammo) (-> self game secrets))
|
|
)
|
|
)
|
|
(send-event (handle->process (-> self gun track-target 0 handle)) 'tracked-fire (-> gp-0 gun-type))
|
|
(case (-> gp-0 gun-type)
|
|
(((pickup-type gun-blue-1)
|
|
(pickup-type gun-yellow-1)
|
|
(pickup-type gun-dark-1)
|
|
(pickup-type gun-red-1)
|
|
(pickup-type gun-red-3)
|
|
(pickup-type gun-yellow-2)
|
|
(pickup-type gun-dark-2)
|
|
(pickup-type gun-dark-3)
|
|
)
|
|
(pickup-collectable! (-> self fact) s5-0 (- (-> self gun ammo-required)) (the-as handle #f))
|
|
(if (and (and (focus-test? self light) (nonzero? (-> self lightjak)))
|
|
(not (logtest? (-> self lightjak stage) (lightjak-stage ls1)))
|
|
)
|
|
(pickup-collectable! (-> self fact) (pickup-type eco-pill-light) -1.0 (the-as handle #f))
|
|
)
|
|
)
|
|
)
|
|
(case (-> gp-0 gun-type)
|
|
(((pickup-type gun-blue-1) (pickup-type gun-blue-3))
|
|
(cond
|
|
((focus-test? self pilot-riding)
|
|
(let ((v1-39 (get-channel (-> self skel top-anim) 0)))
|
|
(when (not (or (= (-> self skel top-anim frame-group) jakb-pilot-gun-blue-fire-ja)
|
|
(and v1-39 (= (-> v1-39 frame-group) jakb-pilot-gun-blue-fire-ja))
|
|
)
|
|
)
|
|
(if (< 4096.0 (-> self control ctrl-xz-vel))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-blue-fire-single-ja)
|
|
1.0
|
|
9
|
|
9
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-blue-fire-single-ja)
|
|
1.0
|
|
6
|
|
6
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(let ((v1-56 (get-channel (-> self skel top-anim) 0)))
|
|
(when (not (or (= (-> self skel top-anim frame-group) jakb-gun-blue-fire-ja)
|
|
(and v1-56 (= (-> v1-56 frame-group) jakb-gun-blue-fire-ja))
|
|
)
|
|
)
|
|
(if (< 4096.0 (-> self control ctrl-xz-vel))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-blue-fire-single-ja)
|
|
1.0
|
|
9
|
|
9
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-blue-fire-single-ja)
|
|
1.0
|
|
6
|
|
6
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(target-gun-fire-blue (-> self gun gun-type))
|
|
)
|
|
(((pickup-type gun-blue-2))
|
|
(let ((v1-75 (get-channel (-> self skel top-anim) 0)))
|
|
(if (not (or (= (-> self skel top-anim frame-group) jakb-gun-blue-fire-2-ja)
|
|
(and v1-75 (= (-> v1-75 frame-group) jakb-gun-blue-fire-2-ja))
|
|
(not (and (-> self next-state) (= (-> self next-state name) 'target-gun-stance)))
|
|
)
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-blue-fire-2-ja)
|
|
0.0
|
|
(cond
|
|
((and v1-75
|
|
(or (= (-> v1-75 frame-group) jakb-gun-blue-fire-2-ja) (= (-> v1-75 frame-group) jakb-gun-blue-stance-2-ja))
|
|
)
|
|
0
|
|
)
|
|
((not (time-elapsed? (-> self gun fire-time) (seconds 0.05)))
|
|
75
|
|
)
|
|
(else
|
|
15
|
|
)
|
|
)
|
|
15
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(target-gun-fire-blue (-> self gun gun-type))
|
|
)
|
|
(((pickup-type gun-yellow-1) (pickup-type gun-yellow-2))
|
|
(cond
|
|
((focus-test? self pilot-riding)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-yellow-fire-ja)
|
|
0.0
|
|
15
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
((< (-> self gun top-anim-low-high) 0.5)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-yellow-fire-low-ja)
|
|
0.0
|
|
15
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self gun top-anim-low-high) 1.0)
|
|
)
|
|
(else
|
|
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-yellow-fire-ja) 0.0 0 0 1.0 0.0 #f)
|
|
)
|
|
)
|
|
(target-gun-fire-yellow (-> self gun gun-type))
|
|
)
|
|
(((pickup-type gun-yellow-3))
|
|
(cond
|
|
((focus-test? self pilot-riding)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-yellow-fire-ja)
|
|
0.0
|
|
15
|
|
0
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(target-gun-fire-yellow (-> self gun gun-type))
|
|
)
|
|
(else
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-yellow-fire-3-ja)
|
|
0.0
|
|
0
|
|
15
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self gun gun-delay-fire) 2.5)
|
|
)
|
|
)
|
|
)
|
|
(((pickup-type gun-red-1) (pickup-type gun-red-3))
|
|
1.0
|
|
(let* ((s5-1 600)
|
|
(s4-1 (or (and (logtest? (game-secrets gun-upgrade-red-1) (-> *game-info* secrets))
|
|
(= (-> gp-0 gun-type) (pickup-type gun-red-1))
|
|
)
|
|
(and (logtest? (game-secrets gun-upgrade-red-3) (-> *game-info* secrets))
|
|
(= (-> gp-0 gun-type) (pickup-type gun-red-3))
|
|
)
|
|
)
|
|
)
|
|
(f30-0 (if s4-1
|
|
1.4
|
|
1.0
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((focus-test? self pilot-riding)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-red-fire-ja)
|
|
0.0
|
|
15
|
|
0
|
|
(if (= f30-0 1.0)
|
|
f30-0
|
|
(* 1.05 f30-0)
|
|
)
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
((and (< 0.5 (-> self gun top-anim-low-high)) (zero? (-> self ext-anim)))
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-red-fire-from-sideways-ja)
|
|
0.0
|
|
0
|
|
15
|
|
f30-0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self gun top-anim-low-high) 0.0)
|
|
)
|
|
((and (rand-vu-percent? 0.2)
|
|
(not (time-elapsed? (-> self gun fire-time) s5-1))
|
|
(= (-> self ext-anim) (target-anim default))
|
|
(= (-> gp-0 gun-type) (pickup-type gun-red-1))
|
|
(not (logtest? (game-secrets gun-upgrade-red-1) (-> self game secrets)))
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-dark-fire-twirl-ja)
|
|
0.0
|
|
0
|
|
15
|
|
(if (logtest? (game-feature feature21) (-> self game features))
|
|
1.7
|
|
1.0
|
|
)
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
((and (or (rand-vu-percent? 0.2) (= (-> self skel top-anim frame-targ) jakb-gun-red-fire-ja))
|
|
(and (not (time-elapsed? (-> self gun fire-time) s5-1)) (zero? (-> self ext-anim)))
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-red-fire-to-sideways-ja)
|
|
0.0
|
|
0
|
|
15
|
|
f30-0
|
|
0.0
|
|
#f
|
|
)
|
|
(set! (-> self gun top-anim-low-high) 1.0)
|
|
)
|
|
(s4-1
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-red-fire-fast-ja)
|
|
0.0
|
|
0
|
|
15
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(else
|
|
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-red-fire-ja) 1.0 0 15 f30-0 0.0 #f)
|
|
)
|
|
)
|
|
)
|
|
(target-gun-fire-red (-> self gun gun-type))
|
|
)
|
|
(((pickup-type gun-dark-1) (pickup-type gun-dark-2) (pickup-type gun-dark-3))
|
|
(if (focus-test? self pilot-riding)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-dark-fire-ja)
|
|
0.0
|
|
30
|
|
15
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(push-anim-to-targ (-> self skel top-anim) (the-as art-joint-anim jakb-gun-dark-fire-ja) 0.0 30 15 1.0 0.0 #f)
|
|
)
|
|
(target-gun-fire-dark (-> self gun gun-type))
|
|
)
|
|
(((pickup-type gun-red-2))
|
|
(if (focus-test? self pilot-riding)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-pilot-gun-dark-fire-ja)
|
|
0.0
|
|
30
|
|
15
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim jakb-gun-red-fire-2-ja)
|
|
0.0
|
|
30
|
|
15
|
|
1.0
|
|
0.0
|
|
#f
|
|
)
|
|
)
|
|
(target-gun-fire-red (-> self gun gun-type))
|
|
)
|
|
)
|
|
#t
|
|
)
|
|
(else
|
|
(let ((v1-231 (target-gun-ammo-out-pick)))
|
|
(cond
|
|
((nonzero? v1-231)
|
|
(if (nonzero? v1-231)
|
|
(set! (-> self gun using-gun-type) (the-as pickup-type v1-231))
|
|
)
|
|
(if (zero? (-> self gun fire-pending))
|
|
(+! (-> self gun fire-pending) 1)
|
|
)
|
|
)
|
|
(else
|
|
(sound-play "walk-san1")
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-check
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defbehavior target-gun-check target ()
|
|
(when (using-gun? self)
|
|
(let ((gp-0 (-> self gun)))
|
|
(cond
|
|
((and (focus-test? self pilot-riding) (nonzero? (-> self skel float-channels)))
|
|
(set! (-> self skel top-anim interp-select 0) (the-as uint (shl 8 32)))
|
|
(set! (-> self skel top-anim interp-select 1) (the-as uint 0))
|
|
0
|
|
)
|
|
(else
|
|
(set! (-> self skel top-anim interp-select 0) (the-as uint #x3ff0001bffffbff0))
|
|
(set! (-> self skel top-anim interp-select 1) (the-as uint 0))
|
|
0
|
|
)
|
|
)
|
|
(if (not (or (focus-test? self in-head) (= (gun->eco (-> self gun gun-type)) (pickup-type eco-red))))
|
|
(gun-info-method-9 gp-0)
|
|
)
|
|
(if (and (logtest? (surface-flag spin) (-> self control current-surface flags))
|
|
(logtest? (-> self control current-surface flags) (surface-flag air))
|
|
)
|
|
(set! (-> gp-0 combo-window-state) 'target-attack-air)
|
|
)
|
|
(if (cpad-pressed? (-> self control cpad number) r1)
|
|
(set-time! (-> gp-0 fire-start-time))
|
|
)
|
|
(case (-> gp-0 gun-control)
|
|
((1)
|
|
(when (and (cpad-pressed? (-> self control cpad number) r1)
|
|
(< (the-as time-frame (+ (-> gp-0 fire-delay) -30)) (- (current-time) (-> gp-0 fire-time)))
|
|
)
|
|
(set-time! (-> gp-0 fire-pending-time))
|
|
(if (zero? (-> self gun fire-pending))
|
|
(+! (-> self gun fire-pending) 1)
|
|
)
|
|
(set! (-> gp-0 fire-charge) 0.5)
|
|
)
|
|
(when (and (or (time-elapsed? (-> gp-0 fire-time) (the-as time-frame (-> gp-0 fire-delay)))
|
|
(case (-> gp-0 combo-window-state)
|
|
(('target-attack-air 'target-attack 'target-running-attack)
|
|
(time-elapsed? (-> gp-0 fire-time) (the-as time-frame (-> gp-0 combo-fire-delay)))
|
|
)
|
|
)
|
|
)
|
|
(> (-> gp-0 fire-pending) 0)
|
|
(-> self gun active?)
|
|
)
|
|
(seekl! (-> self gun fire-pending) 0 1)
|
|
(cond
|
|
((send-event self 'gun (-> gp-0 gun-type))
|
|
(set-time! (-> self gun fire-time))
|
|
)
|
|
(else
|
|
(set! (-> self gun fire-time) 0)
|
|
0
|
|
)
|
|
)
|
|
#t
|
|
)
|
|
)
|
|
((2)
|
|
(when (and (cpad-hold? (-> self control cpad number) r1)
|
|
(and (not (handle->process (-> self gun charge-active?)))
|
|
(< (the-as time-frame (+ (-> gp-0 fire-delay) -30)) (- (current-time) (-> gp-0 fire-time)))
|
|
)
|
|
)
|
|
(set-time! (-> gp-0 fire-pending-time))
|
|
(if (zero? (-> self gun fire-pending))
|
|
(+! (-> self gun fire-pending) 1)
|
|
)
|
|
(set! (-> gp-0 fire-charge) 0.5)
|
|
)
|
|
(when (and (time-elapsed? (-> gp-0 fire-time) (the-as time-frame (-> gp-0 fire-delay)))
|
|
(> (-> gp-0 fire-pending) 0)
|
|
(-> self gun active?)
|
|
)
|
|
(seekl! (-> self gun fire-pending) 0 1)
|
|
(cond
|
|
((send-event self 'gun (-> gp-0 gun-type))
|
|
(set-time! (-> self gun fire-time))
|
|
)
|
|
(else
|
|
(set! (-> self gun fire-time) 0)
|
|
0
|
|
)
|
|
)
|
|
#t
|
|
)
|
|
)
|
|
((4)
|
|
(cond
|
|
((and (cpad-hold? (-> self control cpad number) r1) (-> gp-0 active?))
|
|
(seek! (-> gp-0 fire-spinv) 218453.33 (* 145635.56 (seconds-per-frame)))
|
|
(if (and (nonzero? (-> self gun track-target-hold-time)) (< (current-time) (-> self gun track-target-hold-time)))
|
|
(set! (-> gp-0 fire-spinv) 218453.33)
|
|
)
|
|
)
|
|
(else
|
|
(seek! (-> gp-0 fire-spinv) 0.0 (* 109226.664 (seconds-per-frame)))
|
|
)
|
|
)
|
|
(set! (-> gp-0 fire-spin)
|
|
(the float (sar (shl (the int (+ (-> gp-0 fire-spin) (* (-> gp-0 fire-spinv) (seconds-per-frame)))) 48) 48))
|
|
)
|
|
(cond
|
|
((= (-> gp-0 gun-type) (pickup-type gun-blue-2))
|
|
(set! (-> gp-0 fire-delay) (the-as uint 0))
|
|
0
|
|
)
|
|
(else
|
|
(set! (-> gp-0 fire-delay) (the-as uint (the int (lerp-scale 120.0 30.0 (-> gp-0 fire-spinv) 0.0 218453.33))))
|
|
)
|
|
)
|
|
(when (and (>= (-> gp-0 fire-spinv) 218453.33)
|
|
(and (or (< 0.0 (-> self game gun-ammo 2))
|
|
(logtest? (target-flags tf16) (-> self target-flags))
|
|
(logtest? (game-secrets endless-ammo) (-> self game secrets))
|
|
)
|
|
(and (-> gp-0 active?)
|
|
(or (= (-> gp-0 gun-type) (pickup-type gun-blue-1)) (= (-> gp-0 gun-type) (pickup-type gun-blue-3)))
|
|
(not (or (= (-> self skel top-anim frame-group) jakb-gun-blue-fire-ja)
|
|
(= (-> self skel top-anim frame-group) jakb-pilot-gun-blue-fire-ja)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let* ((f0-23 (+ (-> self gun top-anim-blue-cycle) (the float (rand-vu-int-range 1 3))))
|
|
(f0-24 (- f0-23 (* (the float (the int (/ f0-23 4.0))) 4.0)))
|
|
)
|
|
(set! (-> self gun top-anim-blue-cycle) f0-24)
|
|
(push-anim-to-targ
|
|
(-> self skel top-anim)
|
|
(the-as art-joint-anim (if (focus-test? self pilot-riding)
|
|
jakb-pilot-gun-blue-fire-ja
|
|
jakb-gun-blue-fire-ja
|
|
)
|
|
)
|
|
(* 6.0 f0-24)
|
|
0
|
|
5
|
|
1.0
|
|
(- 18.0 (* 6.0 f0-24))
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(when (and (cpad-hold? (-> self control cpad number) r1)
|
|
(-> self gun active?)
|
|
(< (the-as time-frame (+ (-> gp-0 fire-delay) -30)) (- (current-time) (-> gp-0 fire-time)))
|
|
)
|
|
(set-time! (-> gp-0 fire-pending-time))
|
|
(if (zero? (-> self gun fire-pending))
|
|
(+! (-> self gun fire-pending) 1)
|
|
)
|
|
(set! (-> gp-0 fire-charge) 0.5)
|
|
)
|
|
(when (and (time-elapsed? (-> gp-0 fire-time) (the-as time-frame (-> gp-0 fire-delay)))
|
|
(> (-> gp-0 fire-pending) 0)
|
|
(-> self gun active?)
|
|
)
|
|
(seekl! (-> self gun fire-pending) 0 1)
|
|
(cond
|
|
((send-event self 'gun (-> gp-0 gun-type))
|
|
(set-time! (-> self gun fire-time))
|
|
)
|
|
(else
|
|
(set! (-> self gun fire-time) 0)
|
|
0
|
|
)
|
|
)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
(case (gun->eco (-> gp-0 gun-type))
|
|
(((pickup-type eco-blue))
|
|
(set! (-> gp-0 blue-whine-volume) (* 0.000004577637 (-> gp-0 fire-spinv)))
|
|
(sound-play-by-name
|
|
(static-sound-name "blue-gun-whine")
|
|
(-> gp-0 blue-whine-sound-id)
|
|
(the int (* 1024.0 (fmin 1.0 (* 2.0 (-> gp-0 blue-whine-volume)))))
|
|
(the int (* 1524.0 (lerp-scale -0.9 0.5 (-> gp-0 blue-whine-volume) 0.0 1.0)))
|
|
0
|
|
(sound-group)
|
|
#t
|
|
)
|
|
)
|
|
(else
|
|
(when (!= (-> gp-0 blue-whine-volume) 0.0)
|
|
(let ((v1-253 (the-as sound-rpc-set-param (get-sound-buffer-entry))))
|
|
(set! (-> v1-253 command) (sound-command set-param))
|
|
(set! (-> v1-253 id) (-> gp-0 blue-whine-sound-id))
|
|
(set! (-> v1-253 params volume) -4)
|
|
(set! (-> v1-253 auto-time) 120)
|
|
(set! (-> v1-253 auto-from) 2)
|
|
(set! (-> v1-253 params mask) (the-as uint 17))
|
|
(-> v1-253 id)
|
|
)
|
|
(set! (-> gp-0 blue-whine-volume) 0.0)
|
|
)
|
|
)
|
|
)
|
|
(set-time! (-> gp-0 gun-time))
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function camera-rotate-to-vector
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defun camera-rotate-to-vector ((arg0 vector) (arg1 vector))
|
|
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
|
(vector-copy! s5-0 arg0)
|
|
(let ((s4-0 (new 'stack-no-clear 'vector)))
|
|
(vector-copy! s4-0 (-> (camera-matrix) fvec))
|
|
(vector-flatten! s5-0 s5-0 arg1)
|
|
(vector-normalize! s5-0 1.0)
|
|
(vector-flatten! s4-0 s4-0 arg1)
|
|
(vector-normalize! s4-0 1.0)
|
|
(let ((f30-0 (vector-y-angle s5-0))
|
|
(f0-0 (vector-y-angle s4-0))
|
|
)
|
|
(send-event *camera* 'joystick (fmax -1.0 (fmin 1.0 (* 0.00018310547 (deg-diff f0-0 f30-0)))) 1.0)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-real-post
|
|
;; INFO: Used lq/sq
|
|
(defbehavior target-gun-real-post target ()
|
|
(let ((f30-0 (-> self clock clock-ratio)))
|
|
(let ((gp-1 (max 1 (the int (-> self clock time-adjust-ratio)))))
|
|
(update-rates! (-> self clock) (/ f30-0 (the float gp-1)))
|
|
(while (nonzero? gp-1)
|
|
(+! gp-1 -1)
|
|
(set! (-> self control remaining-ctrl-iterations) gp-1)
|
|
(flag-setup)
|
|
(build-conversions (-> self control transv))
|
|
(do-rotations1)
|
|
(let ((s4-0 (new-stack-vector0)))
|
|
(read-pad s4-0)
|
|
(turn-to-vector s4-0 (debounce-speed
|
|
(-> self control pad-magnitude)
|
|
(-> self control last-pad-magnitude)
|
|
(-> self control pad-xz-dir)
|
|
(-> self control last-pad-xz-dir)
|
|
)
|
|
)
|
|
)
|
|
(add-thrust)
|
|
(add-gravity)
|
|
(do-rotations2)
|
|
(reverse-conversions (-> self control transv))
|
|
(pre-collide-setup)
|
|
(let ((a2-1 (new 'stack-no-clear 'collide-query))
|
|
(v1-13 (-> self control))
|
|
)
|
|
(set! (-> a2-1 collide-with) (-> v1-13 root-prim prim-core collide-with))
|
|
(set! (-> a2-1 ignore-process0) self)
|
|
(set! (-> a2-1 ignore-process1) #f)
|
|
(set! (-> a2-1 ignore-pat) (-> v1-13 pat-ignore-mask))
|
|
(set! (-> a2-1 action-mask) (collide-action solid))
|
|
(fill-cache-integrate-and-collide v1-13 (-> v1-13 transv) a2-1 (meters 1))
|
|
)
|
|
(if (and (logtest? (-> self control root-prim prim-core action) (collide-action check-edge))
|
|
(>= (vector-dot
|
|
(-> self control dynam gravity-normal)
|
|
(vector-! (new 'stack-no-clear 'vector) (-> self control trans) (-> self control gspot-pos))
|
|
)
|
|
(-> *TARGET-bank* edge-grab-height-off-ground)
|
|
)
|
|
)
|
|
(target-method-28 *target* *collide-cache* *collide-edge-spec*)
|
|
)
|
|
(bend-gravity)
|
|
(post-flag-setup)
|
|
)
|
|
)
|
|
(update-rates! (-> self clock) f30-0)
|
|
)
|
|
(ja-post)
|
|
(joint-points)
|
|
(do-target-gspot)
|
|
(target-powerup-process)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-gun-post
|
|
(defbehavior target-gun-post target ()
|
|
(target-gun-real-post)
|
|
(none)
|
|
)
|