mirror of
https://github.com/open-goal/jak-project
synced 2026-06-02 02:00:40 -04:00
ManDude
66e395d547
* detect `seek!` and `seekl!` * fancy struct instead of pair mess * fixes * i think this was wrong? * update refs * update source * More logical branching * even better branching
4694 lines
179 KiB
Common Lisp
Vendored
Generated
4694 lines
179 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for method 20 of type robotboss
|
|
(defmethod ease-loc-t robotboss ((obj robotboss))
|
|
(parameter-ease-sin-clamp (-> obj loc-t))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *robotboss-blueeco-sg* robotboss-blueeco
|
|
0
|
|
2
|
|
((1 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 200)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *robotboss-redeco-sg* robotboss-redeco
|
|
0
|
|
2
|
|
((1 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 200)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *robotboss-yelloweco-sg* robotboss-yelloweco
|
|
0
|
|
2
|
|
((1 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 200)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; definition for function robotboss-cut-cam-exit
|
|
;; INFO: Return type mismatch symbol vs none.
|
|
(defbehavior robotboss-cut-cam-exit robotboss ()
|
|
(set! (-> self valid-frames) 0)
|
|
(if (and *target* (logtest? (-> *target* state-flags) 256))
|
|
(process-release? *target*)
|
|
)
|
|
(logclear! (-> self skel status) (janim-status inited))
|
|
(set! (-> self skip-cut) #f)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function robotboss-cut-cam
|
|
;; Used lq/sq
|
|
(defbehavior robotboss-cut-cam robotboss ((arg0 float) (arg1 float) (arg2 int))
|
|
(let ((f0-0 (ja-aframe-num 0)))
|
|
(cond
|
|
((or (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
arg2
|
|
)
|
|
)
|
|
(< f0-0 arg0)
|
|
(< arg1 f0-0)
|
|
)
|
|
(robotboss-cut-cam-exit)
|
|
)
|
|
((or (and (logtest? (-> *target* control unknown-surface00 flags) 2048)
|
|
(zero? (logand (-> *target* control status) 1))
|
|
)
|
|
(-> self skip-cut)
|
|
)
|
|
(set! (-> self skip-cut) #t)
|
|
)
|
|
(else
|
|
(logior! (-> self skel status) (janim-status inited))
|
|
(process-grab? *target*)
|
|
(set! (-> *camera-other-root* quad) (-> self root-override trans quad))
|
|
(let ((s5-1 (-> self node-list data 88 bone transform))
|
|
(gp-1 (-> self node-list data 88 bone scale))
|
|
)
|
|
(let ((s4-1 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! s4-1 (-> self node-list data 88))
|
|
(set! (-> *camera-other-trans* quad) (-> s4-1 quad))
|
|
)
|
|
(vector-normalize-copy!
|
|
(the-as vector (-> *camera-other-matrix* vector))
|
|
(the-as vector (-> s5-1 vector))
|
|
(the-as float -1.0)
|
|
)
|
|
(set! (-> *camera-other-matrix* vector 0 w) 0.0)
|
|
(vector-normalize-copy! (-> *camera-other-matrix* vector 1) (-> s5-1 vector 1) (the-as float 1.0))
|
|
(set! (-> *camera-other-matrix* vector 1 w) 0.0)
|
|
(vector-normalize-copy! (-> *camera-other-matrix* vector 2) (-> s5-1 vector 2) (the-as float -1.0))
|
|
(set! (-> *camera-other-matrix* vector 2 w) 0.0)
|
|
(vector-reset! (-> *camera-other-matrix* vector 3))
|
|
(othercam-calc (-> gp-1 x))
|
|
)
|
|
(hide-hud-quick)
|
|
(set! *camera-look-through-other* 2)
|
|
(when (< (-> self valid-frames) 2)
|
|
(set-blackout-frames (seconds 0.033333335))
|
|
(+! (-> self valid-frames) 1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function robotboss-always-trans
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defbehavior robotboss-always-trans robotboss ((arg0 (state robotboss)))
|
|
(when (-> self blue-smoke)
|
|
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! s5-0 (-> self node-list data 7))
|
|
(spawn (-> self particle 2) s5-0)
|
|
)
|
|
)
|
|
(when (-> self red-smoke)
|
|
(let ((s5-1 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! s5-1 (-> self node-list data 47))
|
|
(spawn (-> self particle 3) s5-1)
|
|
(vector<-cspace! s5-1 (-> self node-list data 51))
|
|
(spawn (-> self particle 3) s5-1)
|
|
)
|
|
)
|
|
(when (-> self yellow-smoke)
|
|
(let ((s5-2 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! s5-2 (-> self node-list data 27))
|
|
(spawn (-> self particle 4) s5-2)
|
|
)
|
|
)
|
|
(let* ((f0-1 (- 0.0 (-> self palette-val)))
|
|
(f0-2 (if (< 0.0 f0-1)
|
|
(fmin 0.1 f0-1)
|
|
(fmax -0.1 f0-1)
|
|
)
|
|
)
|
|
)
|
|
(+! (-> self palette-val) f0-2)
|
|
)
|
|
(set! (-> *palette-fade-controls* control 2 fade) (-> self palette-val))
|
|
(b! (not (-> self ignore-camera)) cfg-11 :delay (empty-form))
|
|
(b! #t cfg-66 :delay (nop!))
|
|
(label cfg-11)
|
|
(b! *target* cfg-13 :delay (empty-form))
|
|
(b! #t cfg-66 :delay (nop!))
|
|
(label cfg-13)
|
|
(let ((a1-8 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-8 from) self)
|
|
(set! (-> a1-8 num-params) 1)
|
|
(set! (-> a1-8 message) 'query-state)
|
|
(set! (-> a1-8 param 0) (the-as uint cam-eye))
|
|
(b! (not (send-event-function *camera* a1-8)) cfg-15 :delay (empty-form))
|
|
)
|
|
(b! #t cfg-66 :delay (nop!))
|
|
(label cfg-15)
|
|
(let ((a1-9 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-9 from) self)
|
|
(set! (-> a1-9 num-params) 1)
|
|
(set! (-> a1-9 message) 'query-state)
|
|
(set! (-> a1-9 param 0) (the-as uint cam-launcher-longfall))
|
|
(b! (not (send-event-function *camera* a1-9)) cfg-19 :delay (empty-form))
|
|
)
|
|
(when (-> *camera* cam-entity)
|
|
(let ((s5-4 *camera-base-mode*))
|
|
(set! *camera-base-mode* cam-launcher-longfall)
|
|
(send-event *camera* 'clear-entity)
|
|
(set! *camera-base-mode* s5-4)
|
|
)
|
|
)
|
|
(b! #t cfg-66 :delay (nop!))
|
|
(label cfg-19)
|
|
(b!
|
|
(not
|
|
(and (-> self des-cam-entity)
|
|
(or (< (vector-vector-xz-distance (-> self entity extra trans) (target-pos 0)) 188416.0)
|
|
(and *target*
|
|
(>= 290816.0 (vector-vector-xz-distance (-> self root-override trans) (-> *target* control trans)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
cfg-37
|
|
:delay
|
|
(empty-form)
|
|
)
|
|
(if (or (not (-> *camera* cam-entity))
|
|
(not (string=
|
|
(-> self des-cam-entity)
|
|
(res-lump-struct (-> *camera* cam-entity) 'name string :time (the-as float -1000000000.0))
|
|
)
|
|
)
|
|
)
|
|
(send-event *camera* 'change-to-entity-by-name (-> self des-cam-entity))
|
|
)
|
|
(b! #t cfg-66 :delay (nop!))
|
|
(label cfg-37)
|
|
(b!
|
|
(not
|
|
(or (< (vector-vector-xz-distance (-> self entity extra trans) (target-pos 0)) 73728.0)
|
|
(and *target*
|
|
(>= 290816.0 (vector-vector-xz-distance (-> self root-override trans) (-> *target* control trans)))
|
|
)
|
|
)
|
|
)
|
|
cfg-49
|
|
:delay
|
|
(empty-form)
|
|
)
|
|
(let ((a1-18 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-18 from) self)
|
|
(set! (-> a1-18 num-params) 1)
|
|
(set! (-> a1-18 message) 'query-state)
|
|
(set! (-> a1-18 param 0) (the-as uint cam-robotboss))
|
|
(when (not (send-event-function *camera* a1-18))
|
|
(send-event *camera* 'change-state cam-robotboss 300)
|
|
(send-event *camera* 'clear-entity)
|
|
)
|
|
)
|
|
(b! #t cfg-66 :delay (nop!))
|
|
(label cfg-49)
|
|
(when (and (< 196608.0 (vector-vector-xz-distance (-> self entity extra trans) (target-pos 0)))
|
|
(< (vector-vector-xz-distance (-> self entity extra trans) (target-pos 0)) 614400.0)
|
|
(not (and *target*
|
|
(>= 299008.0 (vector-vector-xz-distance (-> self root-override trans) (-> *target* control trans)))
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-24 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-24 from) self)
|
|
(set! (-> a1-24 num-params) 1)
|
|
(set! (-> a1-24 message) 'query-state)
|
|
(set! (-> a1-24 param 0) (the-as uint cam-string))
|
|
(when (not (send-event-function *camera* a1-24))
|
|
(send-event *camera* 'point-of-interest #f)
|
|
(send-event *camera* 'force-blend 300)
|
|
(send-event *camera* 'clear-entity)
|
|
(send-event *camera* 'change-state cam-string 300)
|
|
)
|
|
)
|
|
)
|
|
(label cfg-66)
|
|
(let ((a1-29 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-29 from) self)
|
|
(set! (-> a1-29 num-params) 1)
|
|
(set! (-> a1-29 message) 'query-state)
|
|
(set! (-> a1-29 param 0) (the-as uint cam-string))
|
|
(cond
|
|
((send-event-function *camera* a1-29)
|
|
)
|
|
((-> self use-interesting)
|
|
(let ((s5-10 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! s5-10 (-> self node-list data 87))
|
|
(send-event *camera* 'point-of-interest s5-10)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (and arg0 *debug-segment* (cpad-pressed? 1 x))
|
|
(logclear! (-> *cpad-list* cpads 1 button0-abs 0) (pad-buttons x))
|
|
(logclear! (-> *cpad-list* cpads 1 button0-rel 0) (pad-buttons x))
|
|
(go arg0)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function robotboss-shooting-trans
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defbehavior robotboss-shooting-trans robotboss ((arg0 int))
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-0 (-> self node-list data arg0))
|
|
(send-event (handle->process (-> self shot-attractor)) 'trans gp-0)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function robotboss-setup-for-hits
|
|
(defbehavior robotboss-setup-for-hits robotboss ((arg0 int) (arg1 int))
|
|
(set! (-> self took-hit) #f)
|
|
(set! (-> self hits-to-go) arg1)
|
|
(set! (-> self vulnerable) arg0)
|
|
(let ((gp-0 (new 'stack 'sphere)))
|
|
(set! (-> gp-0 w) 4096.0)
|
|
(let ((s5-0 (get-process *default-dead-pool* manipy #x4000)))
|
|
(set! (-> self shot-attractor)
|
|
(ppointer->handle
|
|
(when s5-0
|
|
(let ((t9-2 (method-of-type manipy activate)))
|
|
(t9-2 (the-as manipy s5-0) self 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-0 manipy-init (-> self root-override trans) (-> self entity) *redring-sg* gp-0)
|
|
(-> s5-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event (handle->process (-> self shot-attractor)) 'attackable #t)
|
|
(send-event (handle->process (-> self shot-attractor)) 'draw #f)
|
|
)
|
|
|
|
;; definition for function robotboss-yellow-eco-off
|
|
(defbehavior robotboss-yellow-eco-off robotboss ()
|
|
(logior! (-> self alts 7 extra perm status) (entity-perm-status bit-9))
|
|
(logior! (-> self alts 8 extra perm status) (entity-perm-status bit-9))
|
|
(logior! (-> self alts 9 extra perm status) (entity-perm-status bit-9))
|
|
(let ((v0-0 (logior (-> self alts 10 extra perm status) (entity-perm-status bit-9))))
|
|
(set! (-> self alts 10 extra perm status) v0-0)
|
|
v0-0
|
|
)
|
|
)
|
|
|
|
;; definition for function robotboss-yellow-eco-on
|
|
(defbehavior robotboss-yellow-eco-on robotboss ()
|
|
(logclear! (-> self alts 7 extra perm status) (entity-perm-status bit-9))
|
|
(logclear! (-> self alts 8 extra perm status) (entity-perm-status bit-9))
|
|
(logclear! (-> self alts 9 extra perm status) (entity-perm-status bit-9))
|
|
(let ((v0-0 (logclear (-> self alts 10 extra perm status) (entity-perm-status bit-9))))
|
|
(set! (-> self alts 10 extra perm status) v0-0)
|
|
v0-0
|
|
)
|
|
)
|
|
|
|
;; definition for function robotboss-anim-blend-loop
|
|
(defbehavior robotboss-anim-blend-loop robotboss ((arg0 art-joint-anim))
|
|
(let ((s5-0 (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
)
|
|
(ja-channel-push! 2 0)
|
|
(let ((s4-0 (-> self skel root-channel 0)))
|
|
(joint-control-channel-group-eval! s4-0 arg0 num-func-identity)
|
|
(set! (-> s4-0 frame-num) 0.0)
|
|
)
|
|
(let ((gp-1 (-> self skel root-channel 1)))
|
|
(joint-control-channel-group-eval! gp-1 s5-0 num-func-identity)
|
|
(set! (-> gp-1 frame-num) 0.0)
|
|
)
|
|
)
|
|
(while #t
|
|
(let ((a0-4 (-> self skel root-channel 0)))
|
|
(set! (-> a0-4 param 0) 1.0)
|
|
(joint-control-channel-group-eval! a0-4 (the-as art-joint-anim #f) num-func-loop!)
|
|
)
|
|
(let ((gp-2 (-> self skel root-channel 1)))
|
|
(set! (-> gp-2 frame-interp) (- 1.0 (ease-loc-t self)))
|
|
(set! (-> gp-2 param 0) 0.0)
|
|
(joint-control-channel-group-eval! gp-2 (the-as art-joint-anim #f) num-func-chan)
|
|
)
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function robotboss-position
|
|
;; Used lq/sq
|
|
(defbehavior robotboss-position robotboss ()
|
|
(let ((s5-0 (-> self entity extra trans))
|
|
(gp-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(let ((s4-0 (new 'stack-no-clear 'matrix)))
|
|
(set! (-> self loc-t) (/ (the float (- (-> *display* game-frame-counter) (-> self loc-t-start)))
|
|
(the float (-> self loc-t-duration))
|
|
)
|
|
)
|
|
(set! (-> self loc-t) (fmin 1.0 (-> self loc-t)))
|
|
(vector-lerp! gp-0 (-> self old-loc) (-> self desired-loc) (ease-loc-t self))
|
|
(matrix-rotate-y! s4-0 (-> gp-0 x))
|
|
(set! (-> gp-0 x) 0.0)
|
|
(vector-matrix*! gp-0 gp-0 s4-0)
|
|
(vector+! (-> self root-override trans) gp-0 (-> self entity extra trans))
|
|
(vector-negate! (the-as vector (-> s4-0 vector)) (the-as vector (-> s4-0 vector)))
|
|
(vector-negate! (-> s4-0 vector 2) (-> s4-0 vector 2))
|
|
(matrix->quaternion (-> self root-override quat) s4-0)
|
|
)
|
|
(vector-! gp-0 s5-0 (-> self root-override trans))
|
|
(set! (-> gp-0 y) 0.0)
|
|
(vector-normalize! gp-0 (the-as float 204800.0))
|
|
(set! (-> gp-0 y) 32768.0)
|
|
(vector+! gp-0 gp-0 s5-0)
|
|
(send-event *camera* 'set-pivot gp-0)
|
|
)
|
|
(when (-> self alts 6)
|
|
(let ((a0-16 (-> self alts 6 extra process))
|
|
(f0-10 (+ (-> self entity extra trans y) (-> self desired-pool-y)))
|
|
)
|
|
(when a0-16
|
|
(let ((v1-23 (new 'stack-no-clear 'vector)))
|
|
(set! (-> v1-23 quad) (-> (the-as process-drawable a0-16) root trans quad))
|
|
(cond
|
|
((< (-> v1-23 y) (+ -204.8 f0-10))
|
|
(set! (-> v1-23 y) (+ 20.48 (-> v1-23 y)))
|
|
)
|
|
((< (+ 204.8 f0-10) (-> v1-23 y))
|
|
(set! (-> v1-23 y) (+ -20.48 (-> v1-23 y)))
|
|
)
|
|
)
|
|
(send-event a0-16 'move-to v1-23)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function robotboss-darkecobomb
|
|
;; Used lq/sq
|
|
(defbehavior robotboss-darkecobomb robotboss ((arg0 vector) (arg1 float))
|
|
(+! (-> self children-spawned) 1)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(let ((s4-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-0 (-> self node-list data 60))
|
|
(set! (-> s4-0 quad) (-> self entity extra trans quad))
|
|
(vector+! s4-0 s4-0 arg0)
|
|
(let ((s3-1 (get-process *default-dead-pool* darkecobomb #x4000)))
|
|
(when s3-1
|
|
(let ((t9-2 (method-of-type darkecobomb activate)))
|
|
(t9-2 (the-as darkecobomb s3-1) self 'darkecobomb (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s3-1 darkecobomb-init-by-other gp-0 s4-0 61440.0 300 arg1)
|
|
(-> s3-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(let ((s5-1 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s5-1
|
|
(let ((t9-5 (method-of-type part-tracker activate)))
|
|
(t9-5 (the-as part-tracker s5-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-1 part-tracker-init (-> *part-group-id-table* 638) 300 #f #f #f gp-0)
|
|
(-> s5-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function robotboss-bomb-handler
|
|
(defbehavior robotboss-bomb-handler robotboss ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(local-vars (v0-0 object))
|
|
(case arg2
|
|
(('flash)
|
|
(let ((f0-1 (* 0.0078125 (the-as float (-> arg3 param 0)))))
|
|
(set! (-> self palette-val) f0-1)
|
|
f0-1
|
|
)
|
|
)
|
|
(('bomb-done)
|
|
(set! (-> self des-cam-entity) #f)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 0)
|
|
(set! (-> a1-1 message) 'hide)
|
|
(let ((t9-0 send-event-function)
|
|
(v1-4 (-> self alts 11))
|
|
)
|
|
(t9-0
|
|
(if v1-4
|
|
(-> v1-4 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
(set! v0-0 (+ (-> self children-spawned) -2))
|
|
(set! (-> self children-spawned) (the-as int v0-0))
|
|
v0-0
|
|
)
|
|
(('bomb-going)
|
|
(set! (-> self des-cam-entity) #f)
|
|
(set! v0-0 #t)
|
|
(set! (-> self ignore-camera) (the-as symbol v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function robotboss-handler
|
|
;; INFO: Return type mismatch number vs object.
|
|
(defbehavior robotboss-handler robotboss ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(let ((v1-0 arg2))
|
|
(the-as object (cond
|
|
((= v1-0 'flash)
|
|
(let ((f0-1 (* 0.0078125 (the-as float (-> arg3 param 0)))))
|
|
(set! (-> self palette-val) f0-1)
|
|
f0-1
|
|
)
|
|
)
|
|
((= v1-0 'attack)
|
|
(when (>= arg1 2)
|
|
(case (-> arg3 param 1)
|
|
(('eco-yellow)
|
|
(let ((a0-5 (-> arg3 param 0)))
|
|
(when (and a0-5 ((method-of-type touching-shapes-entry prims-touching?)
|
|
(the-as touching-shapes-entry a0-5)
|
|
(-> self root-override)
|
|
(the-as uint (-> self vulnerable))
|
|
)
|
|
)
|
|
(when (> (-> self hits-to-go) 0)
|
|
(set! (-> self took-hit) #t)
|
|
(let ((v0-0 (the-as number (+ (-> self hits-to-go) -1))))
|
|
(set! (-> self hits-to-go) (the-as int v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-yellow-dark-bomb-wait (robotboss)
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(let ((v1-0 arg2))
|
|
(the-as object (cond
|
|
((= v1-0 'white-eco-picked-up)
|
|
(close-specific-task! (game-task finalboss-movies) (task-status unknown))
|
|
(entity-birth-no-kill (-> self alts 5))
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) self)
|
|
(set! (-> a1-2 num-params) 0)
|
|
(set! (-> a1-2 message) 'play-anim)
|
|
(let ((t9-2 send-event-function)
|
|
(v1-2 (-> self alts 5))
|
|
)
|
|
(t9-2
|
|
(if v1-2
|
|
(-> v1-2 extra process)
|
|
)
|
|
a1-2
|
|
)
|
|
)
|
|
)
|
|
(cleanup-for-death self)
|
|
(deactivate self)
|
|
)
|
|
(else
|
|
(robotboss-bomb-handler arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self state-time) (-> *display* game-frame-counter))
|
|
(set! (-> self children-spawned) 0)
|
|
0
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(set! (-> self des-cam-entity) #f)
|
|
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-0 from) self)
|
|
(set! (-> a1-0 num-params) 0)
|
|
(set! (-> a1-0 message) 'beam-off)
|
|
(let ((t9-0 send-event-function)
|
|
(v1-1 (-> self alts 3))
|
|
)
|
|
(t9-0
|
|
(if v1-1
|
|
(-> v1-1 extra process)
|
|
)
|
|
a1-0
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 0)
|
|
(set! (-> a1-1 message) 'beam-off)
|
|
(let ((t9-1 send-event-function)
|
|
(v1-5 (-> self alts 2))
|
|
)
|
|
(t9-1
|
|
(if v1-5
|
|
(-> v1-5 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) self)
|
|
(set! (-> a1-2 num-params) 0)
|
|
(set! (-> a1-2 message) 'beam-off)
|
|
(let ((t9-2 send-event-function)
|
|
(v1-9 (-> self alts 1))
|
|
)
|
|
(t9-2
|
|
(if v1-9
|
|
(-> v1-9 extra process)
|
|
)
|
|
a1-2
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-3 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-3 from) self)
|
|
(set! (-> a1-3 num-params) 0)
|
|
(set! (-> a1-3 message) 'beam-off)
|
|
(let ((t9-3 send-event-function)
|
|
(v1-13 (-> self alts 4))
|
|
)
|
|
(t9-3
|
|
(if v1-13
|
|
(-> v1-13 extra process)
|
|
)
|
|
a1-3
|
|
)
|
|
)
|
|
)
|
|
(send-event (handle->process (-> self white-eco)) 'beam-off)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans (the-as (state robotboss) #f))
|
|
(spool-push *art-control* "green-sagecage-outro-beat-boss-a" 0 self (the-as float -1.0))
|
|
(robotboss-position)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-11 (-> self skel root-channel 0)))
|
|
(set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 32)))
|
|
)
|
|
(let ((a0-6 (-> self skel root-channel 0)))
|
|
(set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 1) 1.0)
|
|
(set! (-> a0-6 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-6
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(when (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 1))
|
|
(robotboss-darkecobomb (new 'static 'vector :y 40960.0 :z 81920.0) (-> self dda yellow-bomb-time))
|
|
(play-ambient (-> self ambient) "GOL-AM20" #t (the-as vector #f))
|
|
)
|
|
(suspend)
|
|
(let ((a0-10 (-> self skel root-channel 0)))
|
|
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
|
|
(set! (-> a0-10 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-52 (-> self skel root-channel 0)))
|
|
(set! (-> v1-52 frame-group) (the-as art-joint-anim (-> self draw art-group data 32)))
|
|
)
|
|
(let ((a0-16 (-> self skel root-channel 0)))
|
|
(set! (-> a0-16 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-16 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-16 param 1) 1.0)
|
|
(set! (-> a0-16 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-16
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(if (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 2))
|
|
(robotboss-darkecobomb (new 'static 'vector :y 40960.0 :z -81920.0) (+ -150.0 (-> self dda yellow-bomb-time)))
|
|
)
|
|
(suspend)
|
|
(let ((a0-19 (-> self skel root-channel 0)))
|
|
(set! (-> a0-19 param 0) (the float (+ (-> a0-19 frame-group data 0 length) -1)))
|
|
(set! (-> a0-19 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-19 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-93 (-> self skel root-channel 0)))
|
|
(set! (-> v1-93 frame-group) (the-as art-joint-anim (-> self draw art-group data 32)))
|
|
)
|
|
(let ((a0-25 (-> self skel root-channel 0)))
|
|
(set! (-> a0-25 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-25 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-25 param 1) 1.0)
|
|
(set! (-> a0-25 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-25
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(if (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 3))
|
|
(robotboss-darkecobomb (new 'static 'vector :x 81920.0 :y 40960.0) (+ -300.0 (-> self dda yellow-bomb-time)))
|
|
)
|
|
(suspend)
|
|
(let ((a0-28 (-> self skel root-channel 0)))
|
|
(set! (-> a0-28 param 0) (the float (+ (-> a0-28 frame-group data 0 length) -1)))
|
|
(set! (-> a0-28 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-28 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-134 (-> self skel root-channel 0)))
|
|
(set! (-> v1-134 frame-group) (the-as art-joint-anim (-> self draw art-group data 32)))
|
|
)
|
|
(let ((a0-34 (-> self skel root-channel 0)))
|
|
(set! (-> a0-34 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-34 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-34 param 1) 1.0)
|
|
(set! (-> a0-34 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-34
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(when (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 4))
|
|
(robotboss-darkecobomb (new 'static 'vector :x -81920.0 :y 40960.0) (+ -450.0 (-> self dda yellow-bomb-time)))
|
|
(play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
|
|
(set! (-> self des-cam-entity) "camera-365")
|
|
)
|
|
(suspend)
|
|
(let ((a0-38 (-> self skel root-channel 0)))
|
|
(set! (-> a0-38 param 0) (the float (+ (-> a0-38 frame-group data 0 length) -1)))
|
|
(set! (-> a0-38 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-38 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(while #t
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 30)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-183 (-> self skel root-channel 0)))
|
|
(set! (-> v1-183 frame-group) (the-as art-joint-anim (-> self draw art-group data 30)))
|
|
)
|
|
)
|
|
(let ((a0-48 (-> self skel root-channel 0)))
|
|
(set! (-> a0-48 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-48 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-48 param 1) 1.0)
|
|
(set! (-> a0-48 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-48
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-49 (-> self skel root-channel 0)))
|
|
(set! (-> a0-49 param 0) (the float (+ (-> a0-49 frame-group data 0 length) -1)))
|
|
(set! (-> a0-49 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-49 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-daxter-sacrifice-movie (robotboss)
|
|
:code
|
|
(behavior ()
|
|
(set-blackout-frames (seconds 100))
|
|
(entity-birth-no-kill (-> self alts 5))
|
|
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-0 from) self)
|
|
(set! (-> a1-0 num-params) 0)
|
|
(set! (-> a1-0 message) 'play-anim)
|
|
(let ((t9-2 send-event-function)
|
|
(v1-1 (-> self alts 5))
|
|
)
|
|
(t9-2
|
|
(if v1-1
|
|
(-> v1-1 extra process)
|
|
)
|
|
a1-0
|
|
)
|
|
)
|
|
)
|
|
(suspend)
|
|
(while (movie?)
|
|
(suspend)
|
|
)
|
|
(set-blackout-frames 0)
|
|
(go robotboss-yellow-dark-bomb-wait)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-white-eco-movie (robotboss)
|
|
:enter
|
|
(behavior ()
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(set! (-> self children-spawned) 0)
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(ja-post)
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(logclear! (-> self draw status) (draw-status hidden))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(spool-push *art-control* "green-sagecage-daxter-sacrifice" 0 self (the-as float -1.0))
|
|
(when (and (< (-> self children-spawned) 1)
|
|
(>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 0.95))
|
|
)
|
|
(+! (-> self children-spawned) 1)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(set! (-> gp-0 quad) (-> self entity extra trans quad))
|
|
(set! (-> gp-0 y) (+ 81920.0 (-> gp-0 y)))
|
|
(let ((s5-0 (get-process *default-dead-pool* light-eco-mother #x4000)))
|
|
(set! (-> self white-eco)
|
|
(ppointer->handle
|
|
(when s5-0
|
|
(let ((t9-2 (method-of-type light-eco-mother activate)))
|
|
(t9-2 (the-as light-eco-mother s5-0) self 'light-eco-mother (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-0 light-eco-mother-init-by-other (-> self entity) gp-0)
|
|
(-> s5-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-0 from) self)
|
|
(set! (-> a1-0 num-params) 1)
|
|
(set! (-> a1-0 message) 'open)
|
|
(set! (-> a1-0 param 0) (the-as uint (-> *part-group-id-table* 674)))
|
|
(let ((t9-0 send-event-function)
|
|
(v1-4 (-> self alts 3))
|
|
)
|
|
(t9-0
|
|
(if v1-4
|
|
(-> v1-4 extra process)
|
|
)
|
|
a1-0
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 1)
|
|
(set! (-> a1-1 message) 'open)
|
|
(set! (-> a1-1 param 0) (the-as uint (-> *part-group-id-table* 675)))
|
|
(let ((t9-1 send-event-function)
|
|
(v1-11 (-> self alts 2))
|
|
)
|
|
(t9-1
|
|
(if v1-11
|
|
(-> v1-11 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) self)
|
|
(set! (-> a1-2 num-params) 1)
|
|
(set! (-> a1-2 message) 'open)
|
|
(set! (-> a1-2 param 0) (the-as uint (-> *part-group-id-table* 676)))
|
|
(let ((t9-2 send-event-function)
|
|
(v1-18 (-> self alts 1))
|
|
)
|
|
(t9-2
|
|
(if v1-18
|
|
(-> v1-18 extra process)
|
|
)
|
|
a1-2
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-3 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-3 from) self)
|
|
(set! (-> a1-3 num-params) 1)
|
|
(set! (-> a1-3 message) 'open)
|
|
(set! (-> a1-3 param 0) (the-as uint (-> *part-group-id-table* 677)))
|
|
(let ((t9-3 send-event-function)
|
|
(v1-25 (-> self alts 4))
|
|
)
|
|
(t9-3
|
|
(if v1-25
|
|
(-> v1-25 extra process)
|
|
)
|
|
a1-3
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-4 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-4 from) self)
|
|
(set! (-> a1-4 num-params) 3)
|
|
(set! (-> a1-4 message) 'beam-on)
|
|
(set! (-> a1-4 param 0) (the-as uint (-> *part-group-id-table* 666)))
|
|
(set! (-> a1-4 param 1) (the-as uint (-> *part-group-id-table* 666)))
|
|
(set! (-> a1-4 param 2) (the-as uint (-> self entity extra trans)))
|
|
(let ((t9-4 send-event-function)
|
|
(v1-37 (-> self alts 3))
|
|
)
|
|
(t9-4
|
|
(if v1-37
|
|
(-> v1-37 extra process)
|
|
)
|
|
a1-4
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-5 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-5 from) self)
|
|
(set! (-> a1-5 num-params) 3)
|
|
(set! (-> a1-5 message) 'beam-on)
|
|
(set! (-> a1-5 param 0) (the-as uint (-> *part-group-id-table* 672)))
|
|
(set! (-> a1-5 param 1) (the-as uint (-> *part-group-id-table* 672)))
|
|
(set! (-> a1-5 param 2) (the-as uint (-> self entity extra trans)))
|
|
(let ((t9-5 send-event-function)
|
|
(v1-49 (-> self alts 2))
|
|
)
|
|
(t9-5
|
|
(if v1-49
|
|
(-> v1-49 extra process)
|
|
)
|
|
a1-5
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-6 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-6 from) self)
|
|
(set! (-> a1-6 num-params) 3)
|
|
(set! (-> a1-6 message) 'beam-on)
|
|
(set! (-> a1-6 param 0) (the-as uint (-> *part-group-id-table* 668)))
|
|
(set! (-> a1-6 param 1) (the-as uint (-> *part-group-id-table* 668)))
|
|
(set! (-> a1-6 param 2) (the-as uint (-> self entity extra trans)))
|
|
(let ((t9-6 send-event-function)
|
|
(v1-61 (-> self alts 1))
|
|
)
|
|
(t9-6
|
|
(if v1-61
|
|
(-> v1-61 extra process)
|
|
)
|
|
a1-6
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-7 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-7 from) self)
|
|
(set! (-> a1-7 num-params) 3)
|
|
(set! (-> a1-7 message) 'beam-on)
|
|
(set! (-> a1-7 param 0) (the-as uint (-> *part-group-id-table* 670)))
|
|
(set! (-> a1-7 param 1) (the-as uint (-> *part-group-id-table* 670)))
|
|
(set! (-> a1-7 param 2) (the-as uint (-> self entity extra trans)))
|
|
(let ((t9-7 send-event-function)
|
|
(v1-73 (-> self alts 4))
|
|
)
|
|
(t9-7
|
|
(if v1-73
|
|
(-> v1-73 extra process)
|
|
)
|
|
a1-7
|
|
)
|
|
)
|
|
)
|
|
(let* ((gp-0 (get-process *default-dead-pool* finalbosscam #x4000))
|
|
(gp-1 (ppointer->handle (when gp-0
|
|
(let ((t9-9 (method-of-type finalbosscam activate)))
|
|
(t9-9 (the-as finalbosscam gp-0) self 'finalbosscam (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process gp-0 finalbosscam-init-by-other (-> self entity))
|
|
(-> gp-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event (handle->process gp-1) 'play-anim)
|
|
(suspend)
|
|
(while (movie?)
|
|
(suspend)
|
|
)
|
|
(let ((a0-18 (handle->process gp-1)))
|
|
(if a0-18
|
|
(deactivate a0-18)
|
|
)
|
|
)
|
|
)
|
|
(case (get-task-status (game-task finalboss-movies))
|
|
(((task-status unknown))
|
|
(go robotboss-daxter-sacrifice-movie)
|
|
)
|
|
(else
|
|
(go robotboss-yellow-dark-bomb-wait)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-yellow-dark-bomb (robotboss)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self old-loc quad) (-> self desired-loc quad))
|
|
(set-vector! (-> self desired-loc) 16384.0 -81920.0 716800.0 1.0)
|
|
(set! (-> self loc-t) 0.0)
|
|
(set! (-> self loc-t-start) (-> *display* game-frame-counter))
|
|
(set! (-> self loc-t-duration) (seconds 4))
|
|
(set! (-> self desired-pool-y) -16384.0)
|
|
(play-ambient (-> self ambient) "GOL-AM01" #t (the-as vector #f))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans (the-as (state robotboss) #f))
|
|
(spool-push *art-control* "finalbosscam-white-eco" 0 self (the-as float -1.0))
|
|
(if (>= (-> self loc-t) 1.0)
|
|
(go robotboss-white-eco-movie)
|
|
)
|
|
(robotboss-position)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-2 (-> self skel root-channel 0)))
|
|
(set! (-> v1-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 31)))
|
|
)
|
|
(let ((a0-4 (-> self skel root-channel 0)))
|
|
(set! (-> a0-4 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-4 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-4 param 1) 1.0)
|
|
(set! (-> a0-4 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-4
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-5 (-> self skel root-channel 0)))
|
|
(set! (-> a0-5 param 0) (the float (+ (-> a0-5 frame-group data 0 length) -1)))
|
|
(set! (-> a0-5 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 30)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-41 (-> self skel root-channel 0)))
|
|
(set! (-> v1-41 frame-group) (the-as art-joint-anim (-> self draw art-group data 30)))
|
|
)
|
|
)
|
|
(while #t
|
|
(let ((a0-15 (-> self skel root-channel 0)))
|
|
(set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-15 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-15 param 1) 1.0)
|
|
(set! (-> a0-15 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-15
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-16 (-> self skel root-channel 0)))
|
|
(set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
|
|
(set! (-> a0-16 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; definition for function robotboss-yellowshot
|
|
;; INFO: Return type mismatch sound-id vs none.
|
|
;; Used lq/sq
|
|
(defbehavior robotboss-yellowshot robotboss ()
|
|
(+! (-> self children-spawned) 1)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-0 (-> self node-list data 21))
|
|
(set! (-> gp-0 y) 1972633.6)
|
|
(if *target*
|
|
(set! (-> s5-0 quad) (-> (target-pos 0) quad))
|
|
(set! (-> s5-0 quad) (-> self entity extra trans quad))
|
|
)
|
|
(set! (-> s5-0 y) (+ 8192.0 (-> self entity extra trans y)))
|
|
(vector-! s5-0 s5-0 gp-0)
|
|
(vector-normalize! s5-0 (the-as float 819200.0))
|
|
(vector+! s5-0 s5-0 gp-0)
|
|
(let ((s4-1 (get-process *default-dead-pool* yellowshot #x4000)))
|
|
(when s4-1
|
|
(let ((t9-4 (method-of-type yellowshot activate)))
|
|
(t9-4 (the-as yellowshot s4-1) self 'yellowshot (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s4-1 yellowshot-init-by-other gp-0 s5-0 0.0 750)
|
|
(-> s4-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(send-event self 'flash 255.0)
|
|
(let ((s5-1 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s5-1
|
|
(let ((t9-8 (method-of-type part-tracker activate)))
|
|
(t9-8 (the-as part-tracker s5-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-1 part-tracker-init (-> *part-group-id-table* 642) 300 #f #f #f gp-0)
|
|
(-> s5-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(sound-play-by-name (static-sound-name "bfg-fire") (new-sound-id) 1024 0 0 1 #t)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function robotboss-is-yellow-hit
|
|
(defbehavior robotboss-is-yellow-hit robotboss ()
|
|
(or (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 28)
|
|
)
|
|
(= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 35)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function robotboss-time-to-shoot-yellow
|
|
(defbehavior robotboss-time-to-shoot-yellow robotboss ()
|
|
(>= (- (-> *display* game-frame-counter) (-> self state-time)) (+ (-> self till-next-shot) 750))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-yellow-wait (robotboss)
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('hit-jak)
|
|
(let* ((v1-2 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-3 (the-as number (logior #x3f800000 v1-2)))
|
|
(f0-2 (+ -1.0 (the-as float v1-3)))
|
|
)
|
|
(cond
|
|
((< 0.75 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
|
|
)
|
|
((< 0.5 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM12" #t (the-as vector #f))
|
|
)
|
|
((< 0.25 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM15" #t (the-as vector #f))
|
|
)
|
|
(else
|
|
(play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('missed-jak)
|
|
(let* ((v1-13 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-14 (the-as number (logior #x3f800000 v1-13)))
|
|
(f0-5 (+ -1.0 (the-as float v1-14)))
|
|
)
|
|
(if (< 0.5 f0-5)
|
|
(play-ambient (-> self ambient) "GOL-AM14" #t (the-as vector #f))
|
|
(play-ambient (-> self ambient) "MAI-AM02" #t (the-as vector #f))
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(robotboss-handler arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self hits-to-go) -1)
|
|
(set! (-> self state-time) (-> *display* game-frame-counter))
|
|
(set! (-> self till-next-shot) 300)
|
|
(set! (-> self use-interesting) #t)
|
|
(set! (-> self keep-charging) #f)
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(let ((a0-1 (handle->process (-> self shot-attractor))))
|
|
(if a0-1
|
|
(deactivate a0-1)
|
|
)
|
|
)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 1)
|
|
(set! (-> a1-1 message) 'open)
|
|
(set! (-> a1-1 param 0) (the-as uint (-> *part-group-id-table* 677)))
|
|
(let ((t9-1 send-event-function)
|
|
(v1-10 (-> self alts 4))
|
|
)
|
|
(t9-1
|
|
(if v1-10
|
|
(-> v1-10 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) self)
|
|
(set! (-> a1-2 num-params) 1)
|
|
(set! (-> a1-2 message) 'open)
|
|
(set! (-> a1-2 param 0) (the-as uint 0.4))
|
|
(let ((t9-2 send-event-function)
|
|
(v1-17 (-> self alts 0))
|
|
)
|
|
(t9-2
|
|
(if v1-17
|
|
(-> v1-17 extra process)
|
|
)
|
|
a1-2
|
|
)
|
|
)
|
|
)
|
|
(set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 3 collide-with)
|
|
(collide-kind)
|
|
)
|
|
(set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 3 prim-core collide-as)
|
|
(collide-kind)
|
|
)
|
|
(set! (-> self use-interesting) #f)
|
|
(send-event *camera* 'point-of-interest #f)
|
|
(if (nonzero? (-> self yellow-gun))
|
|
(set-mode! (-> self yellow-gun) (joint-mod-handler-mode flex-blend))
|
|
)
|
|
(robotboss-yellow-eco-off)
|
|
(robotboss-cut-cam-exit)
|
|
(stop! (-> self looping-sound 3))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-yellow-dark-bomb)
|
|
(robotboss-shooting-trans 21)
|
|
(cond
|
|
((zero? (-> self hits-to-go))
|
|
(set! (-> self keep-charging) #f)
|
|
(stop! (-> self looping-sound 3))
|
|
(robotboss-yellow-eco-off)
|
|
(set! (-> self took-hit) #f)
|
|
(+! (-> self hits-to-go) -1)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-8 (-> self skel root-channel 0)))
|
|
(set! (-> v1-8 frame-group) (the-as art-joint-anim (-> self draw art-group data 35)))
|
|
)
|
|
(set! (-> self yellow-smoke) #t)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-0 (-> self node-list data 27))
|
|
(let ((s5-0 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s5-0
|
|
(let ((t9-7 (method-of-type part-tracker activate)))
|
|
(t9-7 (the-as part-tracker s5-0) *entity-pool* 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-0 part-tracker-init (-> *part-group-id-table* 653) 300 #f #f #f gp-0)
|
|
(-> s5-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(let* ((s5-1 (get-process *default-dead-pool* manipy #x4000))
|
|
(gp-1 (when s5-1
|
|
(let ((t9-10 (method-of-type manipy activate)))
|
|
(t9-10 (the-as manipy s5-1) self 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
s5-1
|
|
manipy-init
|
|
(-> self root-override trans)
|
|
(-> self entity)
|
|
*robotboss-yelloweco-sg*
|
|
#f
|
|
)
|
|
(-> s5-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(send-event (ppointer->process (-> self parent)) 'flash 255.0)
|
|
(send-event (ppointer->process gp-1) 'anim-mode 'play1)
|
|
(send-event (ppointer->process gp-1) 'rot-quat (-> self root-override quat))
|
|
(send-event (ppointer->process gp-1) 'art-joint-anim "robotboss-yelloweco-yellow-last-hit")
|
|
)
|
|
)
|
|
((and (> (-> self hits-to-go) 0) (-> self took-hit))
|
|
(if (not (play-ambient (-> self ambient) "GOL-AM17" #t (the-as vector #f)))
|
|
(play-ambient (-> self ambient) "MAI-AM06" #t (the-as vector #f))
|
|
)
|
|
(set! (-> self took-hit) #f)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-54 (-> self skel root-channel 0)))
|
|
(set! (-> v1-54 frame-group) (the-as art-joint-anim (-> self draw art-group data 28)))
|
|
)
|
|
)
|
|
)
|
|
(robotboss-position)
|
|
(robotboss-cut-cam (the-as float 5.0) (the-as float 50.0) (the-as int (-> self draw art-group data 29)))
|
|
(when (and (-> self keep-charging)
|
|
(>= (- (-> *display* game-frame-counter) (-> self state-time)) (-> self till-next-shot))
|
|
)
|
|
(let ((gp-2 (new 'stack-no-clear 'vector)))
|
|
(update! (-> self looping-sound 3))
|
|
(vector<-cspace! gp-2 (-> self node-list data 21))
|
|
(spawn (-> self particle 6) gp-2)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(robotboss-setup-for-hits 8 (-> self dda yellow-gun-hits))
|
|
(if (nonzero? (-> self yellow-gun))
|
|
(set-mode! (-> self yellow-gun) (joint-mod-handler-mode look-at))
|
|
)
|
|
(while #t
|
|
(when (not (robotboss-time-to-shoot-yellow))
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 26)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-23 (-> self skel root-channel 0)))
|
|
(set! (-> v1-23 frame-group) (the-as art-joint-anim (-> self draw art-group data 26)))
|
|
)
|
|
)
|
|
(when (>= (- (-> *display* game-frame-counter) (-> self state-time)) (-> self till-next-shot))
|
|
(let ((v1-30 (-> self skel root-channel 0)))
|
|
(set! (-> v1-30 num-func) num-func-identity)
|
|
(set! (-> v1-30 frame-num) 15.0)
|
|
)
|
|
)
|
|
(while (not (or (>= (- (-> *display* game-frame-counter) (-> self state-time)) (-> self till-next-shot))
|
|
(= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 35)
|
|
)
|
|
)
|
|
)
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 26)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-40 (-> self skel root-channel 0)))
|
|
(set! (-> v1-40 frame-group) (the-as art-joint-anim (-> self draw art-group data 26)))
|
|
)
|
|
)
|
|
(let ((a0-24 (-> self skel root-channel 0)))
|
|
(set! (-> a0-24 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-24 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-24 param 1) 1.0)
|
|
(set! (-> a0-24 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-24
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(if (robotboss-is-yellow-hit)
|
|
(goto cfg-36)
|
|
)
|
|
(suspend)
|
|
(let ((a0-25 (-> self skel root-channel 0)))
|
|
(set! (-> a0-25 param 0) (the float (+ (-> a0-25 frame-group data 0 length) -1)))
|
|
(set! (-> a0-25 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-25 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(label cfg-36)
|
|
(when (not (robotboss-is-yellow-hit))
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 26)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-93 (-> self skel root-channel 0)))
|
|
(set! (-> v1-93 frame-group) (the-as art-joint-anim (-> self draw art-group data 26)))
|
|
)
|
|
)
|
|
(let ((a0-41 (-> self skel root-channel 0)))
|
|
(set! (-> a0-41 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-41 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-41 param 1) 1.0)
|
|
(set! (-> a0-41 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-41
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(if (robotboss-is-yellow-hit)
|
|
(goto cfg-55)
|
|
)
|
|
(if (< 15.0 (ja-aframe-num 0))
|
|
(set! (-> self keep-charging) #t)
|
|
)
|
|
(suspend)
|
|
(let ((a0-43 (-> self skel root-channel 0)))
|
|
(set! (-> a0-43 param 0) (the float (+ (-> a0-43 frame-group data 0 length) -1)))
|
|
(set! (-> a0-43 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-43 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(label cfg-55)
|
|
(when (and (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 35)
|
|
)
|
|
)
|
|
(or (robotboss-time-to-shoot-yellow) (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 28)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self state-time) (-> *display* game-frame-counter))
|
|
(let* ((f30-1 (-> self dda yellow-shot-time-min))
|
|
(f28-0 (-> self dda yellow-shot-time-rnd))
|
|
(v1-147 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-148 (the-as number (logior #x3f800000 v1-147)))
|
|
)
|
|
(set! (-> self till-next-shot)
|
|
(the int (+ f30-1 (the float (the int (* f28-0 (+ -1.0 (the-as float v1-148)))))))
|
|
)
|
|
)
|
|
(stop! (-> self looping-sound 3))
|
|
(robotboss-yellowshot)
|
|
(robotboss-yellow-eco-on)
|
|
(let* ((v1-154 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-155 (the-as number (logior #x3f800000 v1-154)))
|
|
(f0-29 (+ -1.0 (the-as float v1-155)))
|
|
)
|
|
(cond
|
|
((< 0.8333333 f0-29)
|
|
(play-ambient (-> self ambient) "GOL-AM04" #t (the-as vector #f))
|
|
)
|
|
((< 0.6666667 f0-29)
|
|
(play-ambient (-> self ambient) "GOL-AM09" #t (the-as vector #f))
|
|
)
|
|
((< 0.5 f0-29)
|
|
(play-ambient (-> self ambient) "GOL-AM08" #t (the-as vector #f))
|
|
)
|
|
((< 0.33333334 f0-29)
|
|
(play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
|
|
)
|
|
((< 0.16666667 f0-29)
|
|
(play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
|
|
)
|
|
(else
|
|
(play-ambient (-> self ambient) "MAI-AM02" #t (the-as vector #f))
|
|
)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 15)
|
|
(let ((v1-176 (-> self skel root-channel 0)))
|
|
(set! (-> v1-176 frame-group) (the-as art-joint-anim (-> self draw art-group data 27)))
|
|
)
|
|
)
|
|
(let ((a0-70 (-> self skel root-channel 0)))
|
|
(set! (-> a0-70 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-70 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-70 param 1) 1.0)
|
|
(set! (-> a0-70 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-70
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-71 (-> self skel root-channel 0)))
|
|
(set! (-> a0-71 param 0) (the float (+ (-> a0-71 frame-group data 0 length) -1)))
|
|
(set! (-> a0-71 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-71 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(when (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 35)
|
|
)
|
|
(let ((a0-77 (-> self skel root-channel 0)))
|
|
(set! (-> a0-77 frame-group) (the-as art-joint-anim (-> self draw art-group data 29)))
|
|
(set! (-> a0-77 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 29)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-77 param 1) 1.0)
|
|
(set! (-> a0-77 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-77 (the-as art-joint-anim (-> self draw art-group data 29)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-78 (-> self skel root-channel 0)))
|
|
(set! (-> a0-78 param 0) (the float (+ (-> a0-78 frame-group data 0 length) -1)))
|
|
(set! (-> a0-78 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-78 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(go robotboss-yellow-dark-bomb)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(behavior ()
|
|
(when *target*
|
|
(if (nonzero? (-> self yellow-gun))
|
|
(set-target! (-> self yellow-gun) (target-pos 5))
|
|
)
|
|
)
|
|
(transform-post)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-yellow (robotboss)
|
|
:event
|
|
robotboss-handler
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self old-loc quad) (-> self desired-loc quad))
|
|
(set-vector! (-> self desired-loc) 13653.333 77824.0 491520.0 1.0)
|
|
(set! (-> self loc-t) 0.0)
|
|
(set! (-> self loc-t-start) (-> *display* game-frame-counter))
|
|
(set! (-> self loc-t-duration) (seconds 3))
|
|
(set! (-> self desired-pool-y) -18432.0)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-yellow-wait)
|
|
(if (>= (-> self loc-t) 1.0)
|
|
(go robotboss-yellow-wait)
|
|
)
|
|
(robotboss-position)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-11 (-> self skel root-channel 0)))
|
|
(set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 25)))
|
|
)
|
|
(let ((a0-6 (-> self skel root-channel 0)))
|
|
(set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 1) 1.0)
|
|
(set! (-> a0-6 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-6
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-7 (-> self skel root-channel 0)))
|
|
(set! (-> a0-7 param 0) (the float (+ (-> a0-7 frame-group data 0 length) -1)))
|
|
(set! (-> a0-7 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-7 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(while #t
|
|
(cond
|
|
((and *target* (< (+ 81920.0 (-> self entity extra trans y)) (-> (target-pos 0) y)))
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 23)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 240)
|
|
(let ((v1-55 (-> self skel root-channel 0)))
|
|
(set! (-> v1-55 frame-group) (the-as art-joint-anim (-> self draw art-group data 23)))
|
|
)
|
|
)
|
|
)
|
|
((not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 21)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-64 (-> self skel root-channel 0)))
|
|
(set! (-> v1-64 frame-group) (the-as art-joint-anim (-> self draw art-group data 21)))
|
|
)
|
|
)
|
|
)
|
|
(let ((a0-27 (-> self skel root-channel 0)))
|
|
(set! (-> a0-27 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-27 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-27 param 1) 1.0)
|
|
(set! (-> a0-27 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-27
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-28 (-> self skel root-channel 0)))
|
|
(set! (-> a0-28 param 0) (the float (+ (-> a0-28 frame-group data 0 length) -1)))
|
|
(set! (-> a0-28 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-28 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-red-dark-bomb-wait (robotboss)
|
|
:event
|
|
robotboss-bomb-handler
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self children-spawned) 0)
|
|
(logior! (-> self alts 11 extra perm status) (entity-perm-status bit-3))
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(set! (-> self ignore-camera) #f)
|
|
(set! (-> self des-cam-entity) #f)
|
|
(logclear! (-> self alts 11 extra perm status) (entity-perm-status bit-3))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-yellow)
|
|
(if (and (< (-> self children-spawned) 0)
|
|
(or (not *target*) (!= (-> *target* control unknown-surface00 name) 'launch-jump))
|
|
)
|
|
(go robotboss-yellow)
|
|
)
|
|
(robotboss-position)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-11 (-> self skel root-channel 0)))
|
|
(set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 24)))
|
|
)
|
|
(let ((a0-6 (-> self skel root-channel 0)))
|
|
(set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 1) 1.0)
|
|
(set! (-> a0-6 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-6
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(when (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 1))
|
|
(robotboss-darkecobomb (new 'static 'vector :y 32768.0) (-> self dda red-bomb-time))
|
|
(set! (-> self des-cam-entity) "camera-365")
|
|
)
|
|
(suspend)
|
|
(let ((a0-9 (-> self skel root-channel 0)))
|
|
(set! (-> a0-9 param 0) (the float (+ (-> a0-9 frame-group data 0 length) -1)))
|
|
(set! (-> a0-9 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-9 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(while #t
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 21)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-57 (-> self skel root-channel 0)))
|
|
(set! (-> v1-57 frame-group) (the-as art-joint-anim (-> self draw art-group data 21)))
|
|
)
|
|
)
|
|
(let ((a0-19 (-> self skel root-channel 0)))
|
|
(set! (-> a0-19 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-19 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-19 param 1) 1.0)
|
|
(set! (-> a0-19 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-19
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-20 (-> self skel root-channel 0)))
|
|
(set! (-> a0-20 param 0) (the float (+ (-> a0-20 frame-group data 0 length) -1)))
|
|
(set! (-> a0-20 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-20 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-red-dark-bomb (robotboss)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self old-loc quad) (-> self desired-loc quad))
|
|
(set-vector! (-> self desired-loc) 0.0 -81920.0 716800.0 1.0)
|
|
(set! (-> self loc-t) 0.0)
|
|
(set! (-> self loc-t-start) (-> *display* game-frame-counter))
|
|
(set! (-> self loc-t-duration) (seconds 3))
|
|
(set! (-> self desired-pool-y) -20480.0)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-red-dark-bomb-wait)
|
|
(robotboss-position)
|
|
(if (>= (-> self loc-t) 1.0)
|
|
(go robotboss-red-dark-bomb-wait)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-2 (-> self skel root-channel 0)))
|
|
(set! (-> v1-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 22)))
|
|
)
|
|
(let ((a0-4 (-> self skel root-channel 0)))
|
|
(set! (-> a0-4 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-4 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-4 param 1) 1.0)
|
|
(set! (-> a0-4 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-4
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-5 (-> self skel root-channel 0)))
|
|
(set! (-> a0-5 param 0) (the float (+ (-> a0-5 frame-group data 0 length) -1)))
|
|
(set! (-> a0-5 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 21)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-41 (-> self skel root-channel 0)))
|
|
(set! (-> v1-41 frame-group) (the-as art-joint-anim (-> self draw art-group data 21)))
|
|
)
|
|
)
|
|
(while #t
|
|
(let ((a0-15 (-> self skel root-channel 0)))
|
|
(set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-15 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-15 param 1) 1.0)
|
|
(set! (-> a0-15 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-15
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-16 (-> self skel root-channel 0)))
|
|
(set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
|
|
(set! (-> a0-16 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; definition of type redshot-launch-info
|
|
(deftype redshot-launch-info (structure)
|
|
((dest vector :inline :offset-assert 0)
|
|
(flight-time time-frame :offset-assert 16)
|
|
(stall-time time-frame :offset-assert 24)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x20
|
|
:flag-assert #x900000020
|
|
)
|
|
|
|
;; definition for method 3 of type redshot-launch-info
|
|
(defmethod inspect redshot-launch-info ((obj redshot-launch-info))
|
|
(format #t "[~8x] ~A~%" obj 'redshot-launch-info)
|
|
(format #t "~Tdest: #<vector @ #x~X>~%" (-> obj dest))
|
|
(format #t "~Tflight-time: ~D~%" (-> obj flight-time))
|
|
(format #t "~Tstall-time: ~D~%" (-> obj stall-time))
|
|
obj
|
|
)
|
|
|
|
;; definition of type redshot-launch-array
|
|
(deftype redshot-launch-array (structure)
|
|
((info redshot-launch-info 6 :inline :offset-assert 0)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #xc0
|
|
:flag-assert #x9000000c0
|
|
)
|
|
|
|
;; definition for method 3 of type redshot-launch-array
|
|
(defmethod inspect redshot-launch-array ((obj redshot-launch-array))
|
|
(format #t "[~8x] ~A~%" obj 'redshot-launch-array)
|
|
(format #t "~Tinfo[6] @ #x~X~%" (-> obj info))
|
|
obj
|
|
)
|
|
|
|
;; definition for function robotboss-redshot-fill-array
|
|
;; INFO: Return type mismatch symbol vs none.
|
|
;; Used lq/sq
|
|
(defbehavior robotboss-redshot-fill-array robotboss ((arg0 redshot-launch-array))
|
|
(let ((s2-0 0)
|
|
(s4-0 (new 'stack-no-clear 'vector))
|
|
(s5-0 (new-stack-vector0))
|
|
)
|
|
0.0
|
|
(dotimes (s3-0 6)
|
|
(let ((s1-0 (-> arg0 info s3-0)))
|
|
(let* ((f30-0 -40960.0)
|
|
(f28-0 81920.0)
|
|
(v1-4 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-5 (the-as number (logior #x3f800000 v1-4)))
|
|
)
|
|
(set! (-> s1-0 dest x) (+ f30-0 (* f28-0 (+ -1.0 (the-as float v1-5)))))
|
|
)
|
|
(set! (-> s1-0 dest y) 0.0)
|
|
(let* ((f30-1 -40960.0)
|
|
(f28-1 81920.0)
|
|
(v1-10 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-11 (the-as number (logior #x3f800000 v1-10)))
|
|
)
|
|
(set! (-> s1-0 dest z) (+ f30-1 (* f28-1 (+ -1.0 (the-as float v1-11)))))
|
|
)
|
|
(set! (-> s1-0 dest w) 1.0)
|
|
)
|
|
(dotimes (s1-1 s3-0)
|
|
(vector-! s4-0 (the-as vector (-> arg0 info s3-0)) (the-as vector (-> arg0 info s1-1)))
|
|
(let ((f0-13 (vector-length-squared s4-0)))
|
|
(if (< f0-13 1073741800.0)
|
|
(vector+float*!
|
|
(the-as vector (-> arg0 info s3-0))
|
|
(the-as vector (-> arg0 info s1-1))
|
|
s4-0
|
|
(/ 32768.0 (sqrtf f0-13))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(vector+! s5-0 s5-0 (the-as vector (-> arg0 info s3-0)))
|
|
(let* ((f30-2 60.0)
|
|
(v1-27 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-28 (the-as number (logior #x3f800000 v1-27)))
|
|
)
|
|
(set! (-> arg0 info s3-0 flight-time)
|
|
(the-as time-frame (+ (the int (* f30-2 (+ -1.0 (the-as float v1-28)))) 180))
|
|
)
|
|
)
|
|
(let* ((s1-3 (max 150 (- (the-as time-frame s2-0) (-> arg0 info s3-0 flight-time))))
|
|
(f30-3 60.0)
|
|
(v1-38 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-39 (the-as number (logior #x3f800000 v1-38)))
|
|
)
|
|
(set! (-> arg0 info s3-0 stall-time)
|
|
(the-as time-frame (+ (the int (* f30-3 (+ -1.0 (the-as float v1-39)))) 300 s1-3))
|
|
)
|
|
)
|
|
(set! s2-0 (the-as int (+ (-> arg0 info s3-0 flight-time) (-> arg0 info s3-0 stall-time))))
|
|
)
|
|
(vector-float*! s5-0 s5-0 0.16666667)
|
|
(vector-! s5-0 (-> self entity extra trans) s5-0)
|
|
(dotimes (v1-53 6)
|
|
(vector+! (the-as vector (-> arg0 info v1-53)) (the-as vector (-> arg0 info v1-53)) s5-0)
|
|
(set! (-> arg0 info v1-53 dest y) (+ 2048.0 (-> arg0 info v1-53 dest y)))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function robotboss-redshot
|
|
;; WARN: Stack slot load at 64 mismatch: defined as size 4, got size 16
|
|
;; Used lq/sq
|
|
(defbehavior robotboss-redshot robotboss ((arg0 redshot-launch-info) (arg1 symbol))
|
|
(local-vars (sv-32 redshot-launch-info) (sv-48 vector) (sv-64 float) (sv-80 time-frame) (sv-96 time-frame))
|
|
(set! sv-32 arg0)
|
|
(let ((s5-0 arg1))
|
|
(+! (-> self children-spawned) 1)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-0 (-> self node-list data 40))
|
|
(let ((s4-0 (get-process *default-dead-pool* redshot #x4000)))
|
|
(when s4-0
|
|
(let ((t9-2 (method-of-type redshot activate)))
|
|
(t9-2 (the-as redshot s4-0) self 'redshot (the-as pointer #x70004000))
|
|
)
|
|
(let ((s3-0 run-function-in-process)
|
|
(s2-0 s4-0)
|
|
(s1-0 redshot-init-by-other)
|
|
(s0-0 gp-0)
|
|
)
|
|
(set! sv-48 (-> sv-32 dest))
|
|
(let* ((f30-0 20480.0)
|
|
(f28-0 12288.0)
|
|
(v1-10 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-11 (the-as number (logior #x3f800000 v1-10)))
|
|
)
|
|
(set! sv-64 (+ f30-0 (* f28-0 (+ -1.0 (the-as float v1-11)))))
|
|
)
|
|
(set! sv-80 (-> sv-32 flight-time))
|
|
(set! sv-96 (-> sv-32 stall-time))
|
|
(let* ((f30-1 300.0)
|
|
(v1-19 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-20 (the-as number (logior #x3f800000 v1-19)))
|
|
(t3-0 (the int (* f30-1 (+ -1.0 (the-as float v1-20)))))
|
|
)
|
|
((the-as (function object object object object object object object object none) s3-0)
|
|
s2-0
|
|
s1-0
|
|
s0-0
|
|
sv-48
|
|
sv-64
|
|
sv-80
|
|
sv-96
|
|
t3-0
|
|
)
|
|
)
|
|
)
|
|
(-> s4-0 ppointer)
|
|
)
|
|
)
|
|
(when s5-0
|
|
(let ((s5-1 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s5-1
|
|
(let ((t9-7 (method-of-type part-tracker activate)))
|
|
(t9-7 (the-as part-tracker s5-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-1 part-tracker-init (-> *part-group-id-table* 641) 300 #f #f #f gp-0)
|
|
(-> s5-1 ppointer)
|
|
)
|
|
)
|
|
(sound-play-by-name (static-sound-name "red-fire") (new-sound-id) 1024 0 0 1 #t)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function robotboss-is-red-hit
|
|
(defbehavior robotboss-is-red-hit robotboss ()
|
|
(or (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 19)
|
|
)
|
|
(= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 34)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-red-wait (robotboss)
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('hit-jak)
|
|
(let* ((v1-2 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-3 (the-as number (logior #x3f800000 v1-2)))
|
|
(f0-2 (+ -1.0 (the-as float v1-3)))
|
|
)
|
|
(cond
|
|
((< 0.75 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
|
|
)
|
|
((< 0.5 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM12" #t (the-as vector #f))
|
|
)
|
|
((< 0.25 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM15" #t (the-as vector #f))
|
|
)
|
|
(else
|
|
(play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('missed-jak)
|
|
(let* ((v1-13 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-14 (the-as number (logior #x3f800000 v1-13)))
|
|
(f0-5 (+ -1.0 (the-as float v1-14)))
|
|
)
|
|
(if (< 0.5 f0-5)
|
|
(play-ambient (-> self ambient) "GOL-AM14" #t (the-as vector #f))
|
|
(play-ambient (-> self ambient) "MAI-AM01" #t (the-as vector #f))
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(robotboss-handler arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self hits-to-go) -1)
|
|
(set! (-> self des-cam-entity) "camera-390")
|
|
(set! (-> self use-interesting) #t)
|
|
(set! (-> self state-time) (-> *display* game-frame-counter))
|
|
(set! (-> self till-next-shot) 0)
|
|
0
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(let ((a0-1 (handle->process (-> self shot-attractor))))
|
|
(if a0-1
|
|
(deactivate a0-1)
|
|
)
|
|
)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 1)
|
|
(set! (-> a1-1 message) 'open)
|
|
(set! (-> a1-1 param 0) (the-as uint (-> *part-group-id-table* 676)))
|
|
(let ((t9-1 send-event-function)
|
|
(v1-10 (-> self alts 1))
|
|
)
|
|
(t9-1
|
|
(if v1-10
|
|
(-> v1-10 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) self)
|
|
(set! (-> a1-2 num-params) 1)
|
|
(set! (-> a1-2 message) 'open)
|
|
(set! (-> a1-2 param 0) (the-as uint 0.3))
|
|
(let ((t9-2 send-event-function)
|
|
(v1-17 (-> self alts 0))
|
|
)
|
|
(t9-2
|
|
(if v1-17
|
|
(-> v1-17 extra process)
|
|
)
|
|
a1-2
|
|
)
|
|
)
|
|
)
|
|
(set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 5 collide-with)
|
|
(collide-kind)
|
|
)
|
|
(set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 5 prim-core collide-as)
|
|
(collide-kind)
|
|
)
|
|
(set! (-> self use-interesting) #f)
|
|
(set! (-> self des-cam-entity) #f)
|
|
(robotboss-yellow-eco-off)
|
|
(let ((a1-3 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-3 from) self)
|
|
(set! (-> a1-3 num-params) 0)
|
|
(set! (-> a1-3 message) 'show)
|
|
(let ((t9-4 send-event-function)
|
|
(v1-27 (-> self alts 11))
|
|
)
|
|
(t9-4
|
|
(if v1-27
|
|
(-> v1-27 extra process)
|
|
)
|
|
a1-3
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-red-dark-bomb)
|
|
(robotboss-shooting-trans 40)
|
|
(cond
|
|
((zero? (-> self hits-to-go))
|
|
(robotboss-yellow-eco-off)
|
|
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-0 from) self)
|
|
(set! (-> a1-0 num-params) 0)
|
|
(set! (-> a1-0 message) 'show)
|
|
(let ((t9-3 send-event-function)
|
|
(v1-3 (-> self alts 11))
|
|
)
|
|
(t9-3
|
|
(if v1-3
|
|
(-> v1-3 extra process)
|
|
)
|
|
a1-0
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self took-hit) #f)
|
|
(+! (-> self hits-to-go) -1)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-10 (-> self skel root-channel 0)))
|
|
(set! (-> v1-10 frame-group) (the-as art-joint-anim (-> self draw art-group data 34)))
|
|
)
|
|
(set! (-> self red-smoke) #t)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-0 (-> self node-list data 51))
|
|
(let ((s5-0 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s5-0
|
|
(let ((t9-7 (method-of-type part-tracker activate)))
|
|
(t9-7 (the-as part-tracker s5-0) *entity-pool* 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-0 part-tracker-init (-> *part-group-id-table* 649) 300 #f #f #f gp-0)
|
|
(-> s5-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(let* ((s5-1 (get-process *default-dead-pool* manipy #x4000))
|
|
(gp-1
|
|
(when s5-1
|
|
(let ((t9-10 (method-of-type manipy activate)))
|
|
(t9-10 (the-as manipy s5-1) self 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-1 manipy-init (-> self root-override trans) (-> self entity) *robotboss-redeco-sg* #f)
|
|
(-> s5-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(send-event (ppointer->process (-> self parent)) 'flash 255.0)
|
|
(send-event (ppointer->process gp-1) 'anim-mode 'play1)
|
|
(send-event (ppointer->process gp-1) 'rot-quat (-> self root-override quat))
|
|
(send-event (ppointer->process gp-1) 'art-joint-anim "robotboss-redeco-red-last-hit")
|
|
)
|
|
)
|
|
((and (> (-> self hits-to-go) 0) (-> self took-hit))
|
|
(if (not (play-ambient (-> self ambient) "GOL-AM17" #t (the-as vector #f)))
|
|
(play-ambient (-> self ambient) "MAI-AM06" #t (the-as vector #f))
|
|
)
|
|
(set! (-> self took-hit) #f)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-56 (-> self skel root-channel 0)))
|
|
(set! (-> v1-56 frame-group) (the-as art-joint-anim (-> self draw art-group data 19)))
|
|
)
|
|
)
|
|
)
|
|
(robotboss-position)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(robotboss-setup-for-hits 1 5)
|
|
(while #t
|
|
(until (or (>= (- (-> *display* game-frame-counter) (-> self state-time)) (-> self till-next-shot))
|
|
(= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 34)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-11 (-> self skel root-channel 0)))
|
|
(set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 16)))
|
|
)
|
|
(let ((a0-7 (-> self skel root-channel 0)))
|
|
(set! (-> a0-7 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-7 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-7 param 1) 1.0)
|
|
(set! (-> a0-7 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-7
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(if (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 34)
|
|
)
|
|
(goto cfg-24)
|
|
)
|
|
(suspend)
|
|
(let ((a0-12 (-> self skel root-channel 0)))
|
|
(set! (-> a0-12 param 0) (the float (+ (-> a0-12 frame-group data 0 length) -1)))
|
|
(set! (-> a0-12 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-12 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(label cfg-24)
|
|
(set! (-> self state-time) (-> *display* game-frame-counter))
|
|
(let* ((f30-0 (-> self dda red-shot-time-min))
|
|
(f28-0 (-> self dda red-shot-time-rnd))
|
|
(v1-65 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-66 (the-as number (logior #x3f800000 v1-65)))
|
|
)
|
|
(set! (-> self till-next-shot)
|
|
(the int (+ f30-0 (the float (the int (* f28-0 (+ -1.0 (the-as float v1-66)))))))
|
|
)
|
|
)
|
|
(when (not (robotboss-is-red-hit))
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-72 (-> self skel root-channel 0)))
|
|
(set! (-> v1-72 frame-group) (the-as art-joint-anim (-> self draw art-group data 17)))
|
|
)
|
|
(let ((a0-27 (-> self skel root-channel 0)))
|
|
(set! (-> a0-27 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-27 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-27 param 1) 1.0)
|
|
(set! (-> a0-27 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-27
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(update! (-> self looping-sound 2))
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-0 (-> self node-list data 40))
|
|
(spawn (-> self particle 5) gp-0)
|
|
)
|
|
(if (robotboss-is-red-hit)
|
|
(goto cfg-37)
|
|
)
|
|
(suspend)
|
|
(let ((a0-31 (-> self skel root-channel 0)))
|
|
(set! (-> a0-31 param 0) (the float (+ (-> a0-31 frame-group data 0 length) -1)))
|
|
(set! (-> a0-31 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-31 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(label cfg-37)
|
|
(stop! (-> self looping-sound 2))
|
|
)
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 34)
|
|
)
|
|
)
|
|
(let* ((v1-120 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-121 (the-as number (logior #x3f800000 v1-120)))
|
|
(f30-1 (+ -1.0 (the-as float v1-121)))
|
|
(gp-1 (new 'stack-no-clear 'redshot-launch-array))
|
|
(s5-0 (-> self dda red-shots-min))
|
|
)
|
|
(robotboss-yellow-eco-on)
|
|
(robotboss-redshot-fill-array gp-1)
|
|
(robotboss-redshot (the-as redshot-launch-info (-> gp-1 info)) #t)
|
|
(let* ((v1-127 (+ s5-0 (the int (* f30-1 (the float (-> self dda red-shots-rnd))))))
|
|
(s5-1 (+ (min 6 v1-127) -1))
|
|
)
|
|
(dotimes (s4-0 s5-1)
|
|
(robotboss-redshot (-> gp-1 info (+ s4-0 1)) #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (not (robotboss-is-red-hit))
|
|
(let* ((v1-135 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-136 (the-as number (logior #x3f800000 v1-135)))
|
|
(f0-33 (+ -1.0 (the-as float v1-136)))
|
|
)
|
|
(cond
|
|
((< 0.8333333 f0-33)
|
|
(play-ambient (-> self ambient) "GOL-AM04" #t (the-as vector #f))
|
|
)
|
|
((< 0.6666667 f0-33)
|
|
(play-ambient (-> self ambient) "GOL-AM05" #t (the-as vector #f))
|
|
)
|
|
((< 0.5 f0-33)
|
|
(play-ambient (-> self ambient) "GOL-AM08" #t (the-as vector #f))
|
|
)
|
|
((< 0.33333334 f0-33)
|
|
(play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
|
|
)
|
|
((< 0.16666667 f0-33)
|
|
(play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
|
|
)
|
|
(else
|
|
(play-ambient (-> self ambient) "MAI-AM02" #t (the-as vector #f))
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-157 (-> self skel root-channel 0)))
|
|
(set! (-> v1-157 frame-group) (the-as art-joint-anim (-> self draw art-group data 18)))
|
|
)
|
|
)
|
|
(let ((a0-56 (-> self skel root-channel 0)))
|
|
(set! (-> a0-56 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-56 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-56 param 1) 1.0)
|
|
(set! (-> a0-56 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-56
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-57 (-> self skel root-channel 0)))
|
|
(set! (-> a0-57 param 0) (the float (+ (-> a0-57 frame-group data 0 length) -1)))
|
|
(set! (-> a0-57 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-57 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(when (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 34)
|
|
)
|
|
(let ((a0-63 (-> self skel root-channel 0)))
|
|
(set! (-> a0-63 frame-group) (the-as art-joint-anim (-> self draw art-group data 20)))
|
|
(set! (-> a0-63 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 20)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-63 param 1) 1.0)
|
|
(set! (-> a0-63 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-63 (the-as art-joint-anim (-> self draw art-group data 20)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-64 (-> self skel root-channel 0)))
|
|
(set! (-> a0-64 param 0) (the float (+ (-> a0-64 frame-group data 0 length) -1)))
|
|
(set! (-> a0-64 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-64 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(go robotboss-red-dark-bomb)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-red (robotboss)
|
|
:event
|
|
robotboss-handler
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self old-loc quad) (-> self desired-loc quad))
|
|
(set-vector! (-> self desired-loc) 8192.0 -40960.0 327680.0 1.0)
|
|
(set! (-> self loc-t) 0.0)
|
|
(set! (-> self loc-t-start) (-> *display* game-frame-counter))
|
|
(set! (-> self loc-t-duration) (seconds 3))
|
|
(set! (-> self desired-pool-y) -22528.0)
|
|
(set-setting! *setting-control* self 'sound-flava #f (the-as float 40.0) 48)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-red-wait)
|
|
(if (>= (-> self loc-t) 1.0)
|
|
(go robotboss-red-wait)
|
|
)
|
|
(robotboss-position)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-11 (-> self skel root-channel 0)))
|
|
(set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 15)))
|
|
)
|
|
(let ((a0-6 (-> self skel root-channel 0)))
|
|
(set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 1) 1.0)
|
|
(set! (-> a0-6 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-6
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-7 (-> self skel root-channel 0)))
|
|
(set! (-> a0-7 param 0) (the float (+ (-> a0-7 frame-group data 0 length) -1)))
|
|
(set! (-> a0-7 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-7 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(while #t
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 6)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-50 (-> self skel root-channel 0)))
|
|
(set! (-> v1-50 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
|
|
)
|
|
)
|
|
(let ((a0-17 (-> self skel root-channel 0)))
|
|
(set! (-> a0-17 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-17 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-17 param 1) 1.0)
|
|
(set! (-> a0-17 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-17
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-18 (-> self skel root-channel 0)))
|
|
(set! (-> a0-18 param 0) (the float (+ (-> a0-18 frame-group data 0 length) -1)))
|
|
(set! (-> a0-18 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-18 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-green-dark-bomb-wait (robotboss)
|
|
:event
|
|
robotboss-bomb-handler
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self children-spawned) 0)
|
|
0
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(set! (-> self ignore-camera) #f)
|
|
(set! (-> self des-cam-entity) #f)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-red)
|
|
(if (and (< (-> self children-spawned) 0)
|
|
(or (not *target*) (!= (-> *target* control unknown-surface00 name) 'launch-jump))
|
|
)
|
|
(go robotboss-red)
|
|
)
|
|
(robotboss-position)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-11 (-> self skel root-channel 0)))
|
|
(set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 9)))
|
|
)
|
|
(let ((a0-6 (-> self skel root-channel 0)))
|
|
(set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 1) 1.0)
|
|
(set! (-> a0-6 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-6
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(when (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 1))
|
|
(robotboss-darkecobomb (new 'static 'vector :y 32768.0) (-> self dda green-bomb-time))
|
|
(set! (-> self des-cam-entity) "camera-365")
|
|
(play-ambient (-> self ambient) "GOL-AM11" #t (the-as vector #f))
|
|
)
|
|
(suspend)
|
|
(let ((a0-10 (-> self skel root-channel 0)))
|
|
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
|
|
(set! (-> a0-10 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(while #t
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 6)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-59 (-> self skel root-channel 0)))
|
|
(set! (-> v1-59 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
|
|
)
|
|
)
|
|
(let ((a0-20 (-> self skel root-channel 0)))
|
|
(set! (-> a0-20 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-20 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-20 param 1) 1.0)
|
|
(set! (-> a0-20 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-20
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-21 (-> self skel root-channel 0)))
|
|
(set! (-> a0-21 param 0) (the float (+ (-> a0-21 frame-group data 0 length) -1)))
|
|
(set! (-> a0-21 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-21 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-green-dark-bomb (robotboss)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self old-loc quad) (-> self desired-loc quad))
|
|
(set-vector! (-> self desired-loc) 16384.0 -81920.0 716800.0 1.0)
|
|
(set! (-> self loc-t) 0.0)
|
|
(set! (-> self loc-t-start) (-> *display* game-frame-counter))
|
|
(set! (-> self loc-t-duration) (seconds 3))
|
|
(set! (-> self desired-pool-y) -24576.0)
|
|
(play-ambient (-> self ambient) "MAI-AM01" #t (the-as vector #f))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-green-dark-bomb-wait)
|
|
(robotboss-position)
|
|
(if (>= (-> self loc-t) 1.0)
|
|
(go robotboss-green-dark-bomb-wait)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-2 (-> self skel root-channel 0)))
|
|
(set! (-> v1-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 14)))
|
|
)
|
|
(let ((a0-4 (-> self skel root-channel 0)))
|
|
(set! (-> a0-4 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-4 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-4 param 1) 1.0)
|
|
(set! (-> a0-4 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-4
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-5 (-> self skel root-channel 0)))
|
|
(set! (-> a0-5 param 0) (the float (+ (-> a0-5 frame-group data 0 length) -1)))
|
|
(set! (-> a0-5 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 6)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-41 (-> self skel root-channel 0)))
|
|
(set! (-> v1-41 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
|
|
)
|
|
)
|
|
(while #t
|
|
(let ((a0-15 (-> self skel root-channel 0)))
|
|
(set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-15 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-15 param 1) 1.0)
|
|
(set! (-> a0-15 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-15
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-16 (-> self skel root-channel 0)))
|
|
(set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
|
|
(set! (-> a0-16 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; definition for function robotboss-greenshot
|
|
;; INFO: Return type mismatch sound-id vs none.
|
|
;; Used lq/sq
|
|
(defbehavior robotboss-greenshot robotboss ((arg0 vector) (arg1 float) (arg2 int) (arg3 symbol))
|
|
(+! (-> self children-spawned) 1)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(let ((s2-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-0 (-> self node-list data 68))
|
|
(set! (-> s2-0 quad) (-> self entity extra trans quad))
|
|
(set! (-> s2-0 y) (+ -40960.0 (-> s2-0 y)))
|
|
(vector+! s2-0 s2-0 arg0)
|
|
(let ((s1-1 (get-process *default-dead-pool* greenshot #x4000)))
|
|
(when s1-1
|
|
(let ((t9-2 (method-of-type greenshot activate)))
|
|
(t9-2 (the-as greenshot s1-1) self 'greenshot (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s1-1 greenshot-init-by-other gp-0 s2-0 arg1 arg2)
|
|
(-> s1-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(when arg3
|
|
(let ((s5-1 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s5-1
|
|
(let ((t9-5 (method-of-type part-tracker activate)))
|
|
(t9-5 (the-as part-tracker s5-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-1 part-tracker-init (-> *part-group-id-table* 640) 300 #f #f #f gp-0)
|
|
(-> s5-1 ppointer)
|
|
)
|
|
)
|
|
(sound-play-by-name (static-sound-name "green-fire") (new-sound-id) 1024 0 0 1 #t)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-green-wait (robotboss)
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('trigger)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-3 (-> self skel root-channel 0)))
|
|
(set! (-> v1-3 frame-group) (the-as art-joint-anim (-> self draw art-group data 13)))
|
|
)
|
|
(robotboss-yellow-eco-off)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) self)
|
|
(set! (-> a1-2 num-params) 0)
|
|
(set! (-> a1-2 message) 'show)
|
|
(let ((t9-2 send-event-function)
|
|
(v1-5 (-> self alts 11))
|
|
)
|
|
(t9-2
|
|
(if v1-5
|
|
(-> v1-5 extra process)
|
|
)
|
|
a1-2
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('hit-jak)
|
|
(let* ((v1-8 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-9 (the-as number (logior #x3f800000 v1-8)))
|
|
(f0-2 (+ -1.0 (the-as float v1-9)))
|
|
)
|
|
(cond
|
|
((< 0.75 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
|
|
)
|
|
((< 0.5 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM12" #t (the-as vector #f))
|
|
)
|
|
((< 0.25 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM15" #t (the-as vector #f))
|
|
)
|
|
(else
|
|
(play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('blob-died)
|
|
(let* ((v1-19 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-20 (the-as number (logior #x3f800000 v1-19)))
|
|
(f0-5 (+ -1.0 (the-as float v1-20)))
|
|
)
|
|
(cond
|
|
((< 0.75 f0-5)
|
|
(play-ambient (-> self ambient) "MAI-AM02" #t (the-as vector #f))
|
|
)
|
|
((< 0.5 f0-5)
|
|
(play-ambient (-> self ambient) "GOL-AM03" #t (the-as vector #f))
|
|
)
|
|
((< 0.25 f0-5)
|
|
(play-ambient (-> self ambient) "GOL-AM14" #t (the-as vector #f))
|
|
)
|
|
(else
|
|
(play-ambient (-> self ambient) "GOL-AM02" #t (the-as vector #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(robotboss-handler arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self state-time) (-> *display* game-frame-counter))
|
|
(set! (-> self children-spawned) 0)
|
|
(robotboss-setup-for-hits 2 5)
|
|
(set! (-> self des-cam-entity) "camera-385")
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(let ((a0-1 (handle->process (-> self shot-attractor))))
|
|
(if a0-1
|
|
(deactivate a0-1)
|
|
)
|
|
)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 1)
|
|
(set! (-> a1-1 message) 'open)
|
|
(set! (-> a1-1 param 0) (the-as uint (-> *part-group-id-table* 675)))
|
|
(let ((t9-1 send-event-function)
|
|
(v1-10 (-> self alts 2))
|
|
)
|
|
(t9-1
|
|
(if v1-10
|
|
(-> v1-10 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) self)
|
|
(set! (-> a1-2 num-params) 1)
|
|
(set! (-> a1-2 message) 'open)
|
|
(set! (-> a1-2 param 0) (the-as uint 0.2))
|
|
(let ((t9-2 send-event-function)
|
|
(v1-17 (-> self alts 0))
|
|
)
|
|
(t9-2
|
|
(if v1-17
|
|
(-> v1-17 extra process)
|
|
)
|
|
a1-2
|
|
)
|
|
)
|
|
)
|
|
(set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 9 collide-with)
|
|
(collide-kind)
|
|
)
|
|
(set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 9 prim-core collide-as)
|
|
(collide-kind)
|
|
)
|
|
(set! (-> self des-cam-entity) #f)
|
|
(robotboss-yellow-eco-off)
|
|
(let ((a1-3 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-3 from) self)
|
|
(set! (-> a1-3 num-params) 0)
|
|
(set! (-> a1-3 message) 'show)
|
|
(let ((t9-4 send-event-function)
|
|
(v1-27 (-> self alts 11))
|
|
)
|
|
(t9-4
|
|
(if v1-27
|
|
(-> v1-27 extra process)
|
|
)
|
|
a1-3
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-green-dark-bomb)
|
|
(cond
|
|
((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 0.4))
|
|
(< (-> self children-spawned) 1)
|
|
)
|
|
(robotboss-greenshot (new 'static 'vector) (the-as float 24576.0) 600 #t)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-9 (-> self skel root-channel 0)))
|
|
(set! (-> v1-9 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
|
|
)
|
|
)
|
|
((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 1.2))
|
|
(< (-> self children-spawned) 3)
|
|
)
|
|
(robotboss-greenshot (new 'static 'vector :x 8192.0) (the-as float 16384.0) 600 #t)
|
|
(robotboss-greenshot (new 'static 'vector :z 8192.0) (the-as float 32768.0) 660 #f)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-20 (-> self skel root-channel 0)))
|
|
(set! (-> v1-20 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
|
|
)
|
|
)
|
|
((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 2.6))
|
|
(< (-> self children-spawned) 6)
|
|
)
|
|
(robotboss-greenshot (new 'static 'vector :z 12288.0) (the-as float 20480.0) 600 #t)
|
|
(robotboss-greenshot (new 'static 'vector :x 8192.0) (the-as float 8192.0) 660 #f)
|
|
(robotboss-greenshot (new 'static 'vector) (the-as float 36864.0) 720 #f)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-32 (-> self skel root-channel 0)))
|
|
(set! (-> v1-32 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
|
|
)
|
|
)
|
|
((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 4))
|
|
(< (-> self children-spawned) 7)
|
|
)
|
|
(robotboss-greenshot (new 'static 'vector) (the-as float 24576.0) 600 #t)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-42 (-> self skel root-channel 0)))
|
|
(set! (-> v1-42 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
|
|
)
|
|
)
|
|
((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 5.5))
|
|
(< (-> self children-spawned) 9)
|
|
)
|
|
(robotboss-greenshot (new 'static 'vector) (the-as float 12288.0) 600 #t)
|
|
(robotboss-greenshot (new 'static 'vector :x 4096.0 :z 12288.0) (the-as float 32768.0) 600 #f)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-53 (-> self skel root-channel 0)))
|
|
(set! (-> v1-53 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
|
|
)
|
|
)
|
|
((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 8))
|
|
(< (-> self children-spawned) 10)
|
|
)
|
|
(+! (-> self children-spawned) 1)
|
|
(let ((gp-0 (get-process *default-dead-pool* green-eco-lurker-gen #x4000)))
|
|
(when gp-0
|
|
(let ((t9-16 (method-of-type green-eco-lurker-gen activate)))
|
|
(t9-16 (the-as green-eco-lurker-gen gp-0) self 'green-eco-lurker-gen (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
gp-0
|
|
green-eco-lurker-gen-init-by-other
|
|
(-> self entity)
|
|
(-> self entity extra trans)
|
|
(-> self dda num-blobs)
|
|
)
|
|
(-> gp-0 ppointer)
|
|
)
|
|
)
|
|
(set! (-> self old-loc quad) (-> self desired-loc quad))
|
|
(set-vector! (-> self desired-loc) 24576.0 0.0 655360.0 1.0)
|
|
(set! (-> self loc-t) 0.0)
|
|
(set! (-> self loc-t-start) (-> *display* game-frame-counter))
|
|
(set! (-> self loc-t-duration) (seconds 3))
|
|
(set! (-> self desired-pool-y) -26624.0)
|
|
)
|
|
((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 8.2))
|
|
(< (-> self children-spawned) 11)
|
|
)
|
|
(+! (-> self children-spawned) 1)
|
|
(robotboss-yellow-eco-on)
|
|
)
|
|
)
|
|
(robotboss-position)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(while #t
|
|
(cond
|
|
((= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 13)
|
|
)
|
|
(go robotboss-green-dark-bomb)
|
|
)
|
|
((not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 6)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-25 (-> self skel root-channel 0)))
|
|
(set! (-> v1-25 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
|
|
)
|
|
)
|
|
)
|
|
(let ((a0-14 (-> self skel root-channel 0)))
|
|
(set! (-> a0-14 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-14 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-14 param 1) 1.0)
|
|
(set! (-> a0-14 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-14
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-15 (-> self skel root-channel 0)))
|
|
(set! (-> a0-15 param 0) (the float (+ (-> a0-15 frame-group data 0 length) -1)))
|
|
(set! (-> a0-15 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-15 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-green (robotboss)
|
|
:event
|
|
robotboss-handler
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self old-loc quad) (-> self desired-loc quad))
|
|
(set-vector! (-> self desired-loc) 24576.0 0.0 245760.0 1.0)
|
|
(set! (-> self loc-t) 0.0)
|
|
(set! (-> self loc-t-start) (-> *display* game-frame-counter))
|
|
(set! (-> self loc-t-duration) (seconds 3))
|
|
(set! (-> self desired-pool-y) -26624.0)
|
|
(play-ambient (-> self ambient) "GOL-AM01" #t (the-as vector #f))
|
|
(set-setting! *setting-control* self 'sound-flava #f (the-as float 40.0) 47)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-green-wait)
|
|
(if (>= (-> self loc-t) 1.0)
|
|
(go robotboss-green-wait)
|
|
)
|
|
(robotboss-position)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-11 (-> self skel root-channel 0)))
|
|
(set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 10)))
|
|
)
|
|
(let ((a0-6 (-> self skel root-channel 0)))
|
|
(set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 1) 1.0)
|
|
(set! (-> a0-6 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-6
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-7 (-> self skel root-channel 0)))
|
|
(set! (-> a0-7 param 0) (the float (+ (-> a0-7 frame-group data 0 length) -1)))
|
|
(set! (-> a0-7 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-7 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(while #t
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 6)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-50 (-> self skel root-channel 0)))
|
|
(set! (-> v1-50 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
|
|
)
|
|
)
|
|
(let ((a0-17 (-> self skel root-channel 0)))
|
|
(set! (-> a0-17 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-17 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-17 param 1) 1.0)
|
|
(set! (-> a0-17 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-17
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-18 (-> self skel root-channel 0)))
|
|
(set! (-> a0-18 param 0) (the float (+ (-> a0-18 frame-group data 0 length) -1)))
|
|
(set! (-> a0-18 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-18 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-blue-dark-bomb-wait (robotboss)
|
|
:event
|
|
robotboss-bomb-handler
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self children-spawned) 0)
|
|
0
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(set! (-> self ignore-camera) #f)
|
|
(set! (-> self des-cam-entity) #f)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-green)
|
|
(if (and (< (-> self children-spawned) 0)
|
|
(or (not *target*) (!= (-> *target* control unknown-surface00 name) 'launch-jump))
|
|
)
|
|
(go robotboss-green)
|
|
)
|
|
(robotboss-position)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(let ((a0-0 (-> self skel root-channel 0)))
|
|
(set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
|
|
(set! (-> a0-0 param 1) 1.0)
|
|
(joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-11 (-> self skel root-channel 0)))
|
|
(set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 9)))
|
|
)
|
|
(let ((a0-6 (-> self skel root-channel 0)))
|
|
(set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-6 param 1) 1.0)
|
|
(set! (-> a0-6 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-6
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(when (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 1))
|
|
(robotboss-darkecobomb (new 'static 'vector :y 32768.0) (the-as float 3600.0))
|
|
(set! (-> self des-cam-entity) "camera-365")
|
|
(play-ambient (-> self ambient) "MAI-AM04" #t (the-as vector #f))
|
|
)
|
|
(suspend)
|
|
(let ((a0-10 (-> self skel root-channel 0)))
|
|
(set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
|
|
(set! (-> a0-10 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(while #t
|
|
(cond
|
|
((and *target* (< (+ 81920.0 (-> self entity extra trans y)) (-> (target-pos 0) y)))
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 7)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 240)
|
|
(let ((v1-64 (-> self skel root-channel 0)))
|
|
(set! (-> v1-64 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
|
|
)
|
|
)
|
|
)
|
|
((not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 6)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-73 (-> self skel root-channel 0)))
|
|
(set! (-> v1-73 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
|
|
)
|
|
)
|
|
)
|
|
(let ((a0-30 (-> self skel root-channel 0)))
|
|
(set! (-> a0-30 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-30 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-30 param 1) 1.0)
|
|
(set! (-> a0-30 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-30
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-31 (-> self skel root-channel 0)))
|
|
(set! (-> a0-31 param 0) (the float (+ (-> a0-31 frame-group data 0 length) -1)))
|
|
(set! (-> a0-31 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-31 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-blue-dark-bomb (robotboss)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self old-loc quad) (-> self desired-loc quad))
|
|
(set-vector! (-> self desired-loc) 16384.0 -118784.0 614400.0 1.0)
|
|
(set! (-> self loc-t) 0.0)
|
|
(set! (-> self loc-t-start) (-> *display* game-frame-counter))
|
|
(set! (-> self loc-t-duration) (seconds 3))
|
|
(set! (-> self desired-pool-y) -28672.0)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-blue-dark-bomb-wait)
|
|
(robotboss-position)
|
|
(if (>= (-> self loc-t) 1.0)
|
|
(go robotboss-blue-dark-bomb-wait)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-2 (-> self skel root-channel 0)))
|
|
(set! (-> v1-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
|
|
)
|
|
(let ((a0-4 (-> self skel root-channel 0)))
|
|
(set! (-> a0-4 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-4 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-4 param 1) 1.0)
|
|
(set! (-> a0-4 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-4
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-5 (-> self skel root-channel 0)))
|
|
(set! (-> a0-5 param 0) (the float (+ (-> a0-5 frame-group data 0 length) -1)))
|
|
(set! (-> a0-5 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 6)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-41 (-> self skel root-channel 0)))
|
|
(set! (-> v1-41 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
|
|
)
|
|
)
|
|
(while #t
|
|
(let ((a0-15 (-> self skel root-channel 0)))
|
|
(set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-15 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-15 param 1) 1.0)
|
|
(set! (-> a0-15 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-15
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-16 (-> self skel root-channel 0)))
|
|
(set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
|
|
(set! (-> a0-16 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; definition for function robotboss-blue-beam
|
|
;; INFO: Return type mismatch object vs none.
|
|
;; Used lq/sq
|
|
(defbehavior robotboss-blue-beam robotboss ((arg0 int) (arg1 symbol))
|
|
(let ((s4-0 (new 'stack-no-clear 'vector))
|
|
(gp-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(let ((s3-0 (new 'stack-no-clear 'vector)))
|
|
(set! (-> gp-0 quad) (-> self entity extra trans quad))
|
|
(vector<-cspace! s4-0 (-> self node-list data arg0))
|
|
(vector-! s3-0 gp-0 s4-0)
|
|
(let ((f30-0 (vector-y-angle s3-0))
|
|
(f0-1 (- 16384.0 (vector-x-angle s3-0)))
|
|
)
|
|
(set! (-> *part-id-table* 2546 init-specs 14 initial-valuef) f30-0)
|
|
(set! (-> *part-id-table* 2546 init-specs 13 initial-valuef) f0-1)
|
|
(set! (-> *part-id-table* 2548 init-specs 14 initial-valuef) f30-0)
|
|
(set! (-> *part-id-table* 2548 init-specs 13 initial-valuef) f0-1)
|
|
(set! (-> *part-id-table* 2545 init-specs 14 initial-valuef) f30-0)
|
|
(set! (-> *part-id-table* 2545 init-specs 13 initial-valuef) f0-1)
|
|
)
|
|
)
|
|
(cond
|
|
((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 0.4))
|
|
(= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 3)
|
|
)
|
|
)
|
|
(spawn (-> self particle 0) s4-0)
|
|
(when (and arg1 (nonzero? (-> self looping-sound 0)))
|
|
(update! (-> self looping-sound 0))
|
|
(when (and *target* (zero? (logand (-> *target* state-flags) #x80f8)))
|
|
(let ((t2-0 (new 'stack-no-clear 'collide-tri-result))
|
|
(a2-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(vector-! a2-0 gp-0 s4-0)
|
|
(when (>= (fill-and-probe-using-line-sphere
|
|
*collide-cache*
|
|
s4-0
|
|
a2-0
|
|
(the-as float 4096.0)
|
|
(collide-kind target)
|
|
self
|
|
t2-0
|
|
1
|
|
)
|
|
0.0
|
|
)
|
|
(let ((a1-13 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-13 from) self)
|
|
(set! (-> a1-13 num-params) 2)
|
|
(set! (-> a1-13 message) 'attack)
|
|
(set! (-> a1-13 param 0) (the-as uint #f))
|
|
(let ((v1-50 (new 'static 'attack-info :mask #xc0)))
|
|
(set! (-> v1-50 shove-up) 10240.0)
|
|
(set! (-> v1-50 shove-back) 30720.0)
|
|
(set! (-> a1-13 param 1) (the-as uint v1-50))
|
|
)
|
|
(send-event-function *target* a1-13)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((nonzero? (-> self looping-sound 0))
|
|
(stop! (-> self looping-sound 0))
|
|
)
|
|
)
|
|
(cond
|
|
((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 1.4))
|
|
(not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 5)
|
|
)
|
|
)
|
|
)
|
|
(spawn (-> self particle 1) gp-0)
|
|
(when (and arg1 (nonzero? (-> self looping-sound 1)))
|
|
(update! (-> self looping-sound 1))
|
|
(when (and *target*
|
|
(zero? (logand (-> *target* state-flags) #x80f8))
|
|
(>= 8192.0 (vector-vector-distance gp-0 (target-pos 0)))
|
|
)
|
|
(let ((a1-16 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-16 from) self)
|
|
(set! (-> a1-16 num-params) 2)
|
|
(set! (-> a1-16 message) 'attack)
|
|
(set! (-> a1-16 param 0) (the-as uint #f))
|
|
(let ((v1-80 (new 'static 'attack-info :mask #xc0)))
|
|
(set! (-> v1-80 shove-up) 10240.0)
|
|
(set! (-> v1-80 shove-back) 30720.0)
|
|
(set! (-> a1-16 param 1) (the-as uint v1-80))
|
|
)
|
|
(send-event-function *target* a1-16)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((nonzero? (-> self looping-sound 1))
|
|
(stop! (-> self looping-sound 1))
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function robotboss-set-dda
|
|
;; INFO: Return type mismatch robotboss-dda vs none.
|
|
(defbehavior robotboss-set-dda robotboss ()
|
|
0
|
|
(let ((gp-0 (-> self entity extra perm)))
|
|
(logior! (-> gp-0 status) (entity-perm-status user-set-from-cstage))
|
|
(seekl! (-> gp-0 user-int8 0) 255 1)
|
|
(let ((v1-5 (-> gp-0 user-int8 0)))
|
|
(set! (-> self dda) (cond
|
|
((< 15 v1-5)
|
|
(new 'static 'robotboss-dda
|
|
:blue-bomb-time 4800.0
|
|
:num-blobs 8
|
|
:green-bomb-time 4200.0
|
|
:red-shots-min 3
|
|
:red-shot-time-min 5400.0
|
|
:red-shot-time-rnd 600.0
|
|
:red-bomb-time 3600.0
|
|
:yellow-shot-time-min 1800.0
|
|
:yellow-gun-hits 7
|
|
:yellow-bomb-time 4800.0
|
|
)
|
|
)
|
|
((< 10 v1-5)
|
|
(new 'static 'robotboss-dda
|
|
:blue-bomb-time 4800.0
|
|
:num-blobs 10
|
|
:green-bomb-time 4200.0
|
|
:red-shots-min 4
|
|
:red-shot-time-min 4800.0
|
|
:red-shot-time-rnd 600.0
|
|
:red-bomb-time 3600.0
|
|
:yellow-shot-time-min 1500.0
|
|
:yellow-gun-hits 10
|
|
:yellow-bomb-time 4800.0
|
|
)
|
|
)
|
|
((< 5 v1-5)
|
|
(new 'static 'robotboss-dda
|
|
:blue-bomb-time 4800.0
|
|
:num-blobs 11
|
|
:green-bomb-time 4200.0
|
|
:red-shots-min 4
|
|
:red-shot-time-min 4200.0
|
|
:red-shot-time-rnd 600.0
|
|
:red-bomb-time 3600.0
|
|
:yellow-shot-time-min 1200.0
|
|
:yellow-gun-hits 13
|
|
:yellow-bomb-time 4800.0
|
|
)
|
|
)
|
|
(else
|
|
(new 'static 'robotboss-dda
|
|
:blue-bomb-time 4800.0
|
|
:num-blobs 12
|
|
:green-bomb-time 4200.0
|
|
:red-shots-min 5
|
|
:red-shot-time-min 3600.0
|
|
:red-shot-time-rnd 600.0
|
|
:red-bomb-time 3600.0
|
|
:yellow-shot-time-min 900.0
|
|
:yellow-gun-hits 16
|
|
:yellow-bomb-time 4800.0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function robotboss-blue-done
|
|
(defbehavior robotboss-blue-done robotboss ()
|
|
(robotboss-yellow-eco-off)
|
|
(let ((a1-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-0 from) self)
|
|
(set! (-> a1-0 num-params) 0)
|
|
(set! (-> a1-0 message) 'show)
|
|
(let ((t9-1 send-event-function)
|
|
(v1-1 (-> self alts 11))
|
|
)
|
|
(t9-1
|
|
(if v1-1
|
|
(-> v1-1 extra process)
|
|
)
|
|
a1-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate robotboss-blue-wait (robotboss)
|
|
:event
|
|
robotboss-handler
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self state-time) (-> *display* game-frame-counter))
|
|
(robotboss-setup-for-hits 4 5)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 0)
|
|
(set! (-> a1-1 message) 'hide)
|
|
(let ((t9-1 send-event-function)
|
|
(v1-3 (-> self alts 11))
|
|
)
|
|
(t9-1
|
|
(if v1-3
|
|
(-> v1-3 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
(process-entity-status! self (entity-perm-status bit-3) #t)
|
|
(set! (-> self use-interesting) #t)
|
|
(robotboss-yellow-eco-on)
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(let ((a0-1 (handle->process (-> self shot-attractor))))
|
|
(if a0-1
|
|
(deactivate a0-1)
|
|
)
|
|
)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 1)
|
|
(set! (-> a1-1 message) 'open)
|
|
(set! (-> a1-1 param 0) (the-as uint (-> *part-group-id-table* 674)))
|
|
(let ((t9-1 send-event-function)
|
|
(v1-10 (-> self alts 3))
|
|
)
|
|
(t9-1
|
|
(if v1-10
|
|
(-> v1-10 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) self)
|
|
(set! (-> a1-2 num-params) 1)
|
|
(set! (-> a1-2 message) 'open)
|
|
(set! (-> a1-2 param 0) (the-as uint 0.1))
|
|
(let ((t9-2 send-event-function)
|
|
(v1-17 (-> self alts 0))
|
|
)
|
|
(t9-2
|
|
(if v1-17
|
|
(-> v1-17 extra process)
|
|
)
|
|
a1-2
|
|
)
|
|
)
|
|
)
|
|
(set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 0 collide-with)
|
|
(collide-kind)
|
|
)
|
|
(set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 0 prim-core collide-as)
|
|
(collide-kind)
|
|
)
|
|
(set! (-> self use-interesting) #f)
|
|
(send-event *camera* 'point-of-interest #f)
|
|
(robotboss-blue-done)
|
|
(if (nonzero? (-> self looping-sound 0))
|
|
(stop! (-> self looping-sound 0))
|
|
)
|
|
(if (nonzero? (-> self looping-sound 1))
|
|
(stop! (-> self looping-sound 1))
|
|
)
|
|
(robotboss-set-dda)
|
|
(robotboss-cut-cam-exit)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(robotboss-always-trans robotboss-blue-dark-bomb)
|
|
(robotboss-shooting-trans 9)
|
|
(cond
|
|
((zero? (-> self hits-to-go))
|
|
(play-ambient (-> self ambient) "GOL-AM06" #t (the-as vector #f))
|
|
(robotboss-blue-done)
|
|
(set! (-> self took-hit) #f)
|
|
(+! (-> self hits-to-go) -1)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-8 (-> self skel root-channel 0)))
|
|
(set! (-> v1-8 frame-group) (the-as art-joint-anim (-> self draw art-group data 33)))
|
|
)
|
|
(sound-play-by-name (static-sound-name "explod-eye") (new-sound-id) 1024 0 0 1 #t)
|
|
(set! (-> self blue-smoke) #t)
|
|
(let ((gp-1 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-1 (-> self node-list data 7))
|
|
(let ((s5-1 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when s5-1
|
|
(let ((t9-9 (method-of-type part-tracker activate)))
|
|
(t9-9 (the-as part-tracker s5-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-1 part-tracker-init (-> *part-group-id-table* 644) 300 #f #f #f gp-1)
|
|
(-> s5-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(let* ((s5-2 (get-process *default-dead-pool* manipy #x4000))
|
|
(gp-2
|
|
(when s5-2
|
|
(let ((t9-12 (method-of-type manipy activate)))
|
|
(t9-12 (the-as manipy s5-2) self 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-2 manipy-init (-> self root-override trans) (-> self entity) *robotboss-blueeco-sg* #f)
|
|
(-> s5-2 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(send-event (ppointer->process (-> self parent)) 'flash 255.0)
|
|
(send-event (ppointer->process gp-2) 'anim-mode 'play1)
|
|
(send-event (ppointer->process gp-2) 'rot-quat (-> self root-override quat))
|
|
(send-event (ppointer->process gp-2) 'art-joint-anim "robotboss-blueeco-blue-last-hit")
|
|
)
|
|
)
|
|
((-> self took-hit)
|
|
(if (not (play-ambient (-> self ambient) "GOL-AM17" #t (the-as vector #f)))
|
|
(play-ambient (-> self ambient) "MAI-AM06" #t (the-as vector #f))
|
|
)
|
|
(set! (-> self took-hit) #f)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-54 (-> self skel root-channel 0)))
|
|
(set! (-> v1-54 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
|
|
)
|
|
)
|
|
)
|
|
(when (not (or (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 5)
|
|
)
|
|
(= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 33)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(robotboss-blue-beam 8 #t)
|
|
(robotboss-blue-beam 9 #f)
|
|
(when (TODO-RENAME-10 (-> self ambient) (new 'stack-no-clear 'vector) (seconds 10) (the-as float 327680.0) self)
|
|
(let* ((v1-73 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-74 (the-as number (logior #x3f800000 v1-73)))
|
|
(f0-2 (+ -1.0 (the-as float v1-74)))
|
|
)
|
|
(cond
|
|
((< 0.8 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM02" #t (the-as vector #f))
|
|
)
|
|
((< 0.6 f0-2)
|
|
(play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
|
|
)
|
|
((< 0.4 f0-2)
|
|
(play-ambient (-> self ambient) "MAI-AM08" #t (the-as vector #f))
|
|
)
|
|
((< 0.2 f0-2)
|
|
(play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
|
|
)
|
|
(else
|
|
(play-ambient (-> self ambient) "GOL-AM07" #t (the-as vector #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(robotboss-position)
|
|
(robotboss-cut-cam (the-as float 5.0) (the-as float 50.0) (the-as int (-> self draw art-group data 5)))
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(ja-channel-push! 1 120)
|
|
(let ((a0-1 (-> self skel root-channel 0)))
|
|
(set! (-> a0-1 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
|
|
(set! (-> a0-1 param 0)
|
|
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
|
|
)
|
|
(set! (-> a0-1 param 1) 1.0)
|
|
(set! (-> a0-1 frame-num) 0.0)
|
|
(joint-control-channel-group! a0-1 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-2 (-> self skel root-channel 0)))
|
|
(set! (-> a0-2 param 0) (the float (+ (-> a0-2 frame-group data 0 length) -1)))
|
|
(set! (-> a0-2 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-2 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(while #t
|
|
(when (not (= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(-> self draw art-group data 3)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((v1-32 (-> self skel root-channel 0)))
|
|
(set! (-> v1-32 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
|
|
)
|
|
)
|
|
(let ((a0-12 (-> self skel root-channel 0)))
|
|
(set! (-> a0-12 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-12 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-12 param 1) 1.0)
|
|
(set! (-> a0-12 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-12
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-13 (-> self skel root-channel 0)))
|
|
(set! (-> a0-13 param 0) (the float (+ (-> a0-13 frame-group data 0 length) -1)))
|
|
(set! (-> a0-13 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-13 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(when (<= (-> self hits-to-go) 0)
|
|
(let ((a1-6 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-6 from) self)
|
|
(set! (-> a1-6 num-params) 1)
|
|
(set! (-> a1-6 message) 'target)
|
|
(set! (-> a1-6 param 0) (the-as uint 0.0))
|
|
(let ((t9-8 send-event-function)
|
|
(v1-69 (-> self alts 12))
|
|
)
|
|
(t9-8
|
|
(if v1-69
|
|
(-> v1-69 extra process)
|
|
)
|
|
a1-6
|
|
)
|
|
)
|
|
)
|
|
(ja-channel-push! 1 30)
|
|
(let ((v1-74 (-> self skel root-channel 0)))
|
|
(set! (-> v1-74 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
|
|
)
|
|
(let ((a0-20 (-> self skel root-channel 0)))
|
|
(set! (-> a0-20 frame-group) (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
(set! (-> a0-20 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
data
|
|
0
|
|
length
|
|
)
|
|
-1
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a0-20 param 1) 1.0)
|
|
(set! (-> a0-20 frame-num) 0.0)
|
|
(joint-control-channel-group!
|
|
a0-20
|
|
(if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
num-func-seek!
|
|
)
|
|
)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(let ((a0-21 (-> self skel root-channel 0)))
|
|
(set! (-> a0-21 param 0) (the float (+ (-> a0-21 frame-group data 0 length) -1)))
|
|
(set! (-> a0-21 param 1) 1.0)
|
|
(joint-control-channel-group-eval! a0-21 (the-as art-joint-anim #f) num-func-seek!)
|
|
)
|
|
)
|
|
(go robotboss-blue-dark-bomb)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior robotboss) transform-post)
|
|
)
|
|
|
|
;; definition for method 11 of type robotboss
|
|
;; INFO: Return type mismatch object vs none.
|
|
;; Used lq/sq
|
|
(defmethod init-from-entity! robotboss ((obj robotboss) (arg0 entity-actor))
|
|
(stack-size-set! (-> obj main-thread) 512)
|
|
(let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-0 reaction) default-collision-reaction)
|
|
(set! (-> s4-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
|
|
)
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 19) 0)))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s3-0 collide-with) (collide-kind target))
|
|
(set! (-> s3-0 prim-core action) (collide-action solid))
|
|
(set! (-> s3-0 transform-index) 0)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 368640.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 4))))
|
|
(set! (-> s2-0 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-0 collide-with) (collide-kind target))
|
|
(set! (-> s2-0 prim-core action) (collide-action solid))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-0 transform-index) 7)
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 0.0 0.0 32768.0)
|
|
(append-prim s3-0 s2-0)
|
|
)
|
|
(let ((s2-1 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 0))))
|
|
(set! (-> s2-1 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-1 collide-with) (collide-kind target))
|
|
(set! (-> s2-1 prim-core action) (collide-action solid))
|
|
(set! (-> s2-1 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-1 transform-index) 6)
|
|
(set-vector! (-> s2-1 local-sphere) 0.0 0.0 0.0 57344.0)
|
|
(append-prim s3-0 s2-1)
|
|
)
|
|
(let ((s2-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0))))
|
|
(set! (-> s2-2 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-2 collide-with) (collide-kind target))
|
|
(set! (-> s2-2 prim-core action) (collide-action solid))
|
|
(set! (-> s2-2 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-2 transform-index) 6)
|
|
(set-vector! (-> s2-2 local-sphere) 0.0 -57344.0 61440.0 73728.0)
|
|
(append-prim s3-0 s2-2)
|
|
)
|
|
(let ((s2-3 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 3) (the-as uint 8))))
|
|
(set! (-> s2-3 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-3 collide-with) (collide-kind target))
|
|
(set! (-> s2-3 prim-core action) (collide-action solid))
|
|
(set! (-> s2-3 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-3 transform-index) 16)
|
|
(set-vector! (-> s2-3 local-sphere) 0.0 -20480.0 69632.0 237568.0)
|
|
(append-prim s3-0 s2-3)
|
|
)
|
|
(let ((s2-4 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 4) (the-as uint 0))))
|
|
(set! (-> s2-4 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-4 collide-with) (collide-kind target))
|
|
(set! (-> s2-4 prim-core action) (collide-action solid))
|
|
(set! (-> s2-4 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-4 transform-index) 14)
|
|
(set-vector! (-> s2-4 local-sphere) 0.0 0.0 0.0 81920.0)
|
|
(append-prim s3-0 s2-4)
|
|
)
|
|
(let ((s2-5 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 5) (the-as uint 1))))
|
|
(set! (-> s2-5 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-5 collide-with) (collide-kind target))
|
|
(set! (-> s2-5 prim-core action) (collide-action solid))
|
|
(set! (-> s2-5 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-5 transform-index) 39)
|
|
(set-vector! (-> s2-5 local-sphere) 0.0 0.0 0.0 69632.0)
|
|
(append-prim s3-0 s2-5)
|
|
)
|
|
(let ((s2-6 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 6) (the-as uint 0))))
|
|
(set! (-> s2-6 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-6 collide-with) (collide-kind target))
|
|
(set! (-> s2-6 prim-core action) (collide-action solid))
|
|
(set! (-> s2-6 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-6 transform-index) 31)
|
|
(set-vector! (-> s2-6 local-sphere) 0.0 -57344.0 0.0 90112.0)
|
|
(append-prim s3-0 s2-6)
|
|
)
|
|
(let ((s2-7 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 7) (the-as uint 0))))
|
|
(set! (-> s2-7 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-7 collide-with) (collide-kind target))
|
|
(set! (-> s2-7 prim-core action) (collide-action solid))
|
|
(set! (-> s2-7 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-7 transform-index) 30)
|
|
(set-vector! (-> s2-7 local-sphere) 0.0 24576.0 0.0 81920.0)
|
|
(append-prim s3-0 s2-7)
|
|
)
|
|
(let ((s2-8 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 8) (the-as uint 0))))
|
|
(set! (-> s2-8 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-8 collide-with) (collide-kind target))
|
|
(set! (-> s2-8 prim-core action) (collide-action solid))
|
|
(set! (-> s2-8 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-8 transform-index) 57)
|
|
(set-vector! (-> s2-8 local-sphere) 0.0 0.0 0.0 81920.0)
|
|
(append-prim s3-0 s2-8)
|
|
)
|
|
(let ((s2-9 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 9) (the-as uint 2))))
|
|
(set! (-> s2-9 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-9 collide-with) (collide-kind target))
|
|
(set! (-> s2-9 prim-core action) (collide-action solid))
|
|
(set! (-> s2-9 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-9 transform-index) 68)
|
|
(set-vector! (-> s2-9 local-sphere) 0.0 0.0 0.0 49152.0)
|
|
(append-prim s3-0 s2-9)
|
|
)
|
|
(let ((s2-10 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 10) (the-as uint 0))))
|
|
(set! (-> s2-10 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-10 collide-with) (collide-kind target))
|
|
(set! (-> s2-10 prim-core action) (collide-action solid))
|
|
(set! (-> s2-10 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-10 transform-index) 4)
|
|
(set-vector! (-> s2-10 local-sphere) 0.0 24576.0 0.0 102400.0)
|
|
(append-prim s3-0 s2-10)
|
|
)
|
|
(let ((s2-11 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 11) (the-as uint 0))))
|
|
(set! (-> s2-11 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-11 collide-with) (collide-kind target))
|
|
(set! (-> s2-11 prim-core action) (collide-action solid))
|
|
(set! (-> s2-11 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-11 transform-index) 77)
|
|
(set-vector! (-> s2-11 local-sphere) 0.0 0.0 0.0 73728.0)
|
|
(append-prim s3-0 s2-11)
|
|
)
|
|
(let ((s2-12 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 12) (the-as uint 0))))
|
|
(set! (-> s2-12 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-12 collide-with) (collide-kind target))
|
|
(set! (-> s2-12 prim-core action) (collide-action solid))
|
|
(set! (-> s2-12 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-12 transform-index) 75)
|
|
(set-vector! (-> s2-12 local-sphere) 0.0 24576.0 0.0 81920.0)
|
|
(append-prim s3-0 s2-12)
|
|
)
|
|
(let ((s2-13 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 13) (the-as uint 0))))
|
|
(set! (-> s2-13 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-13 collide-with) (collide-kind target))
|
|
(set! (-> s2-13 prim-core action) (collide-action solid))
|
|
(set! (-> s2-13 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-13 transform-index) 74)
|
|
(set-vector! (-> s2-13 local-sphere) 0.0 40960.0 0.0 73728.0)
|
|
(append-prim s3-0 s2-13)
|
|
)
|
|
(let ((s2-14 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 14) (the-as uint 0))))
|
|
(set! (-> s2-14 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-14 collide-with) (collide-kind target))
|
|
(set! (-> s2-14 prim-core action) (collide-action solid))
|
|
(set! (-> s2-14 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-14 transform-index) 73)
|
|
(set-vector! (-> s2-14 local-sphere) 0.0 32768.0 0.0 61440.0)
|
|
(append-prim s3-0 s2-14)
|
|
)
|
|
(let ((s2-15 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 15) (the-as uint 0))))
|
|
(set! (-> s2-15 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-15 collide-with) (collide-kind target))
|
|
(set! (-> s2-15 prim-core action) (collide-action solid))
|
|
(set! (-> s2-15 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-15 transform-index) 84)
|
|
(set-vector! (-> s2-15 local-sphere) 0.0 40960.0 -8192.0 98304.0)
|
|
(append-prim s3-0 s2-15)
|
|
)
|
|
(let ((s2-16 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 16) (the-as uint 0))))
|
|
(set! (-> s2-16 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-16 collide-with) (collide-kind target))
|
|
(set! (-> s2-16 prim-core action) (collide-action solid))
|
|
(set! (-> s2-16 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-16 transform-index) 83)
|
|
(set-vector! (-> s2-16 local-sphere) 0.0 65536.0 0.0 73728.0)
|
|
(append-prim s3-0 s2-16)
|
|
)
|
|
(let ((s2-17 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 17) (the-as uint 0))))
|
|
(set! (-> s2-17 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-17 collide-with) (collide-kind target))
|
|
(set! (-> s2-17 prim-core action) (collide-action solid))
|
|
(set! (-> s2-17 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-17 transform-index) 82)
|
|
(set-vector! (-> s2-17 local-sphere) 0.0 32768.0 0.0 61440.0)
|
|
(append-prim s3-0 s2-17)
|
|
)
|
|
(let ((s2-18 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 18) (the-as uint 0))))
|
|
(set! (-> s2-18 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-18 collide-with) (collide-kind target))
|
|
(set! (-> s2-18 prim-core action) (collide-action solid))
|
|
(set! (-> s2-18 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-18 transform-index) 3)
|
|
(set-vector! (-> s2-18 local-sphere) 0.0 0.0 0.0 61440.0)
|
|
(append-prim s3-0 s2-18)
|
|
)
|
|
)
|
|
(set! (-> s4-0 nav-radius) 4096.0)
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> obj root-override) s4-0)
|
|
)
|
|
(process-drawable-from-entity! obj arg0)
|
|
(initialize-skeleton obj *robotboss-sg* '())
|
|
(aybabtu 2)
|
|
(set! (-> obj nav) (new 'process 'nav-control (-> obj root-override) 16 (the-as float 40960.0)))
|
|
(logior! (-> obj nav flags) (nav-control-flags display-marks navcf3 navcf5 navcf6 navcf7))
|
|
(logclear! (-> obj root-override nav-flags) (nav-flags navf0))
|
|
(set! (-> obj path) (new 'process 'path-control obj 'path (the-as float 0.0)))
|
|
(logior! (-> obj path flags) (path-control-flag display draw-line draw-point draw-text))
|
|
(logclear! (-> obj mask) (process-mask actor-pause))
|
|
(set! (-> obj root-override pause-adjust-distance) 1228800.0)
|
|
(set-vector! (-> obj old-loc) 8192.0 0.0 245760.0 1.0)
|
|
(set! (-> obj desired-loc quad) (-> obj old-loc quad))
|
|
(set! (-> obj loc-t) 1.0)
|
|
(set! (-> obj loc-t-duration) 1)
|
|
(set! (-> obj loc-t-start) 0)
|
|
(set! (-> obj shot-attractor) (the-as handle #f))
|
|
(set! (-> obj white-eco) (the-as handle #f))
|
|
(set! (-> obj desired-pool-y) -30720.0)
|
|
(set! (-> obj des-cam-entity) #f)
|
|
(set! (-> obj use-interesting) #f)
|
|
(set! (-> obj ignore-camera) #f)
|
|
(dotimes (v1-211 13)
|
|
(set! (-> obj alts v1-211) #f)
|
|
)
|
|
(let ((s5-1 (entity-actor-count (-> obj entity) 'alt-actor)))
|
|
(dotimes (s4-1 (min 13 s5-1))
|
|
(set! (-> obj alts s4-1) (entity-actor-lookup (-> obj entity) 'alt-actor s4-1))
|
|
)
|
|
)
|
|
(set! (-> obj particle 0) (create-launch-control (-> *part-group-id-table* 636) obj))
|
|
(set! (-> obj particle 1) (create-launch-control (-> *part-group-id-table* 637) obj))
|
|
(set! (-> obj particle 2) (create-launch-control (-> *part-group-id-table* 645) obj))
|
|
(set! (-> obj particle 3) (create-launch-control (-> *part-group-id-table* 650) obj))
|
|
(set! (-> obj particle 4) (create-launch-control (-> *part-group-id-table* 654) obj))
|
|
(set! (-> obj particle 5) (create-launch-control (-> *part-group-id-table* 646) obj))
|
|
(set! (-> obj particle 6) (create-launch-control (-> *part-group-id-table* 651) obj))
|
|
(set! (-> obj looping-sound 0) (new
|
|
'process
|
|
'ambient-sound
|
|
(new 'static 'sound-spec
|
|
:mask #x80
|
|
:num 1.0
|
|
:group #x1
|
|
:sound-name (static-sound-name "robo-blue-lp")
|
|
:volume #x400
|
|
:fo-max 80
|
|
)
|
|
(-> obj root-override trans)
|
|
)
|
|
)
|
|
(set! (-> obj looping-sound 1) (new
|
|
'process
|
|
'ambient-sound
|
|
(new 'static 'sound-spec
|
|
:mask #x80
|
|
:num 1.0
|
|
:group #x1
|
|
:sound-name (static-sound-name "eco-torch")
|
|
:volume #x400
|
|
:fo-max 80
|
|
)
|
|
(-> obj root-override trans)
|
|
)
|
|
)
|
|
(set! (-> obj looping-sound 2) (new
|
|
'process
|
|
'ambient-sound
|
|
(new 'static 'sound-spec
|
|
:mask #x80
|
|
:num 1.0
|
|
:group #x1
|
|
:sound-name (static-sound-name "red-buzz")
|
|
:volume #x400
|
|
:fo-max 80
|
|
)
|
|
(-> obj root-override trans)
|
|
)
|
|
)
|
|
(set! (-> obj looping-sound 3) (new
|
|
'process
|
|
'ambient-sound
|
|
(new 'static 'sound-spec
|
|
:mask #x80
|
|
:num 1.0
|
|
:group #x1
|
|
:sound-name (static-sound-name "bfg-buzz")
|
|
:volume #x400
|
|
:fo-max 80
|
|
)
|
|
(-> obj root-override trans)
|
|
)
|
|
)
|
|
(set! (-> obj blue-smoke) #f)
|
|
(set! (-> obj red-smoke) #f)
|
|
(set! (-> obj yellow-smoke) #f)
|
|
(dummy-9 (-> obj ambient))
|
|
(set! (-> obj yellow-gun) (new 'process 'joint-mod (joint-mod-handler-mode flex-blend) obj 16))
|
|
(set-vector! (-> obj yellow-gun twist-max) 8192.0 8192.0 0.0 1.0)
|
|
(set! (-> obj yellow-gun up) (the-as uint 1))
|
|
(set! (-> obj yellow-gun nose) (the-as uint 2))
|
|
(set! (-> obj yellow-gun ear) (the-as uint 0))
|
|
(set! (-> obj yellow-gun max-dist) 819200.0)
|
|
(set! (-> obj yellow-gun ignore-angle) 16384.0)
|
|
(set! (-> obj palette-val) 0.0)
|
|
(set! (-> obj dda) (new 'static 'robotboss-dda
|
|
:blue-bomb-time 4200.0
|
|
:num-blobs 12
|
|
:green-bomb-time 4200.0
|
|
:red-shots-min 5
|
|
:red-shot-time-min 3600.0
|
|
:red-shot-time-rnd 600.0
|
|
:red-bomb-time 3600.0
|
|
:yellow-shot-time-min 900.0
|
|
:yellow-shot-time-rnd 600.0
|
|
:yellow-gun-hits 5
|
|
:yellow-bomb-time 3600.0
|
|
)
|
|
)
|
|
(go robotboss-blue-wait)
|
|
(none)
|
|
)
|