mirror of
https://github.com/open-goal/jak-project
synced 2026-06-19 07:47:29 -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
1257 lines
45 KiB
Common Lisp
Vendored
Generated
1257 lines
45 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *robotboss-cinematic-sg* robotboss-cinematic
|
|
0
|
|
2
|
|
((1 (meters 999999)))
|
|
:bounds (static-spherem 0 -10 0 2000)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *jak-white-sg* jak-white
|
|
0
|
|
2
|
|
((1 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 4)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *plat-eco-finalboss-unlit-sg* plat-eco-finalboss
|
|
0
|
|
8
|
|
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 3)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *plat-eco-finalboss-lit-sg* plat-eco-finalboss
|
|
4
|
|
8
|
|
((5 (meters 20)) (6 (meters 40)) (7 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 3)
|
|
:longest-edge (meters 0)
|
|
)
|
|
|
|
;; definition of type plat-eco-finalboss
|
|
(deftype plat-eco-finalboss (plat-eco)
|
|
((force-dest float :offset-assert 360)
|
|
(targ-dest float :offset-assert 364)
|
|
(dest float :offset-assert 368)
|
|
(speed float :offset-assert 372)
|
|
(touch-time time-frame :offset-assert 376)
|
|
)
|
|
:heap-base #x110
|
|
:method-count-assert 33
|
|
:size-assert #x180
|
|
:flag-assert #x2101100180
|
|
)
|
|
|
|
;; definition for method 3 of type plat-eco-finalboss
|
|
(defmethod inspect plat-eco-finalboss ((obj plat-eco-finalboss))
|
|
(let ((t9-0 (method-of-type plat-eco inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
(format #t "~T~Tforce-dest: ~f~%" (-> obj force-dest))
|
|
(format #t "~T~Ttarg-dest: ~f~%" (-> obj targ-dest))
|
|
(format #t "~T~Tdest: ~f~%" (-> obj dest))
|
|
(format #t "~T~Tspeed: ~f~%" (-> obj speed))
|
|
(format #t "~T~Ttouch-time: ~D~%" (-> obj touch-time))
|
|
obj
|
|
)
|
|
|
|
;; definition for method 23 of type plat-eco-finalboss
|
|
(defmethod get-unlit-skel plat-eco-finalboss ((obj plat-eco-finalboss))
|
|
*plat-eco-finalboss-unlit-sg*
|
|
)
|
|
|
|
;; definition for method 27 of type plat-eco-finalboss
|
|
(defmethod get-lit-skel plat-eco-finalboss ((obj plat-eco-finalboss))
|
|
*plat-eco-finalboss-lit-sg*
|
|
)
|
|
|
|
;; definition for method 26 of type plat-eco-finalboss
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod dummy-26 plat-eco-finalboss ((obj plat-eco-finalboss))
|
|
(set! (-> obj force-dest) -1.0)
|
|
(set! (-> obj targ-dest) -1.0)
|
|
(set! (-> obj dest) 0.0)
|
|
(set! (-> obj speed) 0.1)
|
|
(logclear! (-> obj mask) (process-mask actor-pause))
|
|
(process-entity-status! obj (entity-perm-status bit-3) #t)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate plat-path-active (plat-eco-finalboss)
|
|
:virtual #t
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('target)
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(let ((f0-0 (the-as float (-> arg3 param 0))))
|
|
(set! (-> self force-dest) f0-0)
|
|
f0-0
|
|
)
|
|
)
|
|
(('ridden 'edge-grabbed)
|
|
(if (>= (- (-> *display* base-frame-counter) (-> self touch-time)) (seconds 2))
|
|
(set! (-> self targ-dest) (cond
|
|
((= (-> self path-pos) 0.0)
|
|
(set! (-> self force-dest) -1.0)
|
|
0.99
|
|
)
|
|
((= (-> self path-pos) 0.99)
|
|
0.0
|
|
)
|
|
(else
|
|
(-> self targ-dest)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self touch-time) (-> *display* base-frame-counter))
|
|
#f
|
|
)
|
|
(else
|
|
(plat-event arg0 arg1 arg2 arg3)
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ((arg0 plat))
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(lods-assign! (-> self draw) (-> self lit-look))
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(cond
|
|
(arg0
|
|
)
|
|
(else
|
|
(dotimes (gp-1 5)
|
|
(spawn-projectile-blue *target*)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(let ((s5-0 (eval-path-curve! (-> self path) (new 'stack-no-clear 'vector) 0.0 'interp))
|
|
(gp-0 (eval-path-curve! (-> self path) (new 'stack-no-clear 'vector) 1.0 'interp))
|
|
)
|
|
(if (>= (- (-> *display* base-frame-counter) (-> self touch-time)) (seconds 3))
|
|
(set! (-> self targ-dest) -1.0)
|
|
)
|
|
(set! (-> self dest)
|
|
(cond
|
|
((>= (-> self force-dest) 0.0)
|
|
(-> self force-dest)
|
|
)
|
|
((>= (-> self targ-dest) 0.0)
|
|
(-> self targ-dest)
|
|
)
|
|
((< (vector-vector-xz-distance (target-pos 0) s5-0) (vector-vector-xz-distance (target-pos 0) gp-0))
|
|
0.0
|
|
)
|
|
(else
|
|
0.99
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (= (-> self state-time) (-> *display* base-frame-counter))
|
|
(set! (-> self path-pos) (-> self dest))
|
|
)
|
|
(seek! (-> self path-pos) (-> self dest) (* (-> self speed) (-> *display* seconds-per-frame)))
|
|
(eval-path-curve! (-> self path) (-> self basetrans) (-> self path-pos) 'interp)
|
|
(if (< (vector-vector-distance (-> self root-override trans) (ear-trans)) 81920.0)
|
|
(sound-play-by-name
|
|
(static-sound-name "eco-plat-hover")
|
|
(-> self sound-id)
|
|
1024
|
|
0
|
|
0
|
|
1
|
|
(the-as symbol (-> self root-override trans))
|
|
)
|
|
)
|
|
(plat-trans)
|
|
(let ((a1-8 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-8 from) self)
|
|
(set! (-> a1-8 num-params) 2)
|
|
(set! (-> a1-8 message) 'query)
|
|
(set! (-> a1-8 param 0) (the-as uint 'powerup))
|
|
(set! (-> a1-8 param 1) (the-as uint 1))
|
|
(when (send-event-function *target* a1-8)
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(set! (-> self force-dest) 0.0)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition of type sage-finalboss-particle
|
|
(deftype sage-finalboss-particle (structure)
|
|
((part sparticle-launch-control :offset-assert 0)
|
|
(active symbol :offset-assert 4)
|
|
)
|
|
:allow-misaligned
|
|
:method-count-assert 9
|
|
:size-assert #x8
|
|
:flag-assert #x900000008
|
|
)
|
|
|
|
;; definition for method 3 of type sage-finalboss-particle
|
|
(defmethod inspect sage-finalboss-particle ((obj sage-finalboss-particle))
|
|
(format #t "[~8x] ~A~%" obj 'sage-finalboss-particle)
|
|
(format #t "~Tpart: ~A~%" (-> obj part))
|
|
(format #t "~Tactive: ~A~%" (-> obj active))
|
|
obj
|
|
)
|
|
|
|
;; definition of type sage-finalboss
|
|
(deftype sage-finalboss (process-taskable)
|
|
((redsage handle :offset-assert 384)
|
|
(bluesage handle :offset-assert 392)
|
|
(yellowsage handle :offset-assert 400)
|
|
(assistant handle :offset-assert 408)
|
|
(robotplat handle :offset-assert 416)
|
|
(robotboss handle :offset-assert 424)
|
|
(silodoor handle :offset-assert 432)
|
|
(jak-white handle :offset-assert 440)
|
|
(left-door entity-actor :offset-assert 448)
|
|
(right-door entity-actor :offset-assert 452)
|
|
(kick-in-the-door symbol :offset-assert 456)
|
|
(kick-the-credits symbol :offset-assert 460)
|
|
(credit-fade float :offset-assert 464)
|
|
(palette-val float :offset-assert 468)
|
|
(particle sage-finalboss-particle 9 :inline :offset-assert 472)
|
|
(particle-whiteout sparticle-launch-control :offset-assert 616)
|
|
(credits-played symbol :offset-assert 620)
|
|
)
|
|
:heap-base #x200
|
|
:method-count-assert 53
|
|
:size-assert #x270
|
|
:flag-assert #x3502000270
|
|
(:states
|
|
sage-finalboss-credits
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sage-finalboss
|
|
(defmethod inspect sage-finalboss ((obj sage-finalboss))
|
|
(let ((t9-0 (method-of-type process-taskable inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
(format #t "~T~Tredsage: ~D~%" (-> obj redsage))
|
|
(format #t "~T~Tbluesage: ~D~%" (-> obj bluesage))
|
|
(format #t "~T~Tyellowsage: ~D~%" (-> obj yellowsage))
|
|
(format #t "~T~Tassistant: ~D~%" (-> obj assistant))
|
|
(format #t "~T~Trobotplat: ~D~%" (-> obj robotplat))
|
|
(format #t "~T~Trobotboss: ~D~%" (-> obj robotboss))
|
|
(format #t "~T~Tsilodoor: ~D~%" (-> obj silodoor))
|
|
(format #t "~T~Tjak-white: ~D~%" (-> obj jak-white))
|
|
(format #t "~T~Tleft-door: ~A~%" (-> obj left-door))
|
|
(format #t "~T~Tright-door: ~A~%" (-> obj right-door))
|
|
(format #t "~T~Tkick-in-the-door: ~A~%" (-> obj kick-in-the-door))
|
|
(format #t "~T~Tkick-the-credits: ~A~%" (-> obj kick-the-credits))
|
|
(format #t "~T~Tcredit-fade: ~f~%" (-> obj credit-fade))
|
|
(format #t "~T~Tpalette-val: ~f~%" (-> obj palette-val))
|
|
(format #t "~T~Tparticle[9] @ #x~X~%" (-> obj particle))
|
|
(format #t "~T~Tparticle-whiteout: ~A~%" (-> obj particle-whiteout))
|
|
(format #t "~T~Tcredits-played: ~A~%" (-> obj credits-played))
|
|
obj
|
|
)
|
|
|
|
;; definition for method 7 of type sage-finalboss
|
|
;; INFO: Return type mismatch process-taskable vs sage-finalboss.
|
|
(defmethod relocate sage-finalboss ((obj sage-finalboss) (arg0 int))
|
|
(dotimes (v1-0 9)
|
|
(if (nonzero? (-> obj particle v1-0 part))
|
|
(&+! (-> obj particle v1-0 part) arg0)
|
|
)
|
|
)
|
|
(if (nonzero? (-> obj particle-whiteout))
|
|
(&+! (-> obj particle-whiteout) arg0)
|
|
)
|
|
(the-as sage-finalboss ((method-of-type process-taskable relocate) obj arg0))
|
|
)
|
|
|
|
;; definition for method 10 of type sage-finalboss
|
|
(defmethod deactivate sage-finalboss ((obj sage-finalboss))
|
|
(dotimes (s5-0 9)
|
|
(let ((a0-1 (-> obj particle s5-0 part)))
|
|
(if (nonzero? a0-1)
|
|
(kill-and-free-particles a0-1)
|
|
)
|
|
)
|
|
)
|
|
(if (nonzero? (-> obj particle-whiteout))
|
|
(kill-and-free-particles (-> obj particle-whiteout))
|
|
)
|
|
((method-of-type process-taskable deactivate) obj)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *sage-finalboss-sg* green-sagecage
|
|
0
|
|
4
|
|
((1 (meters 20)) (2 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 2.5)
|
|
:longest-edge (meters 0)
|
|
:shadow 3
|
|
)
|
|
|
|
;; definition for method 44 of type sage-finalboss
|
|
;; INFO: Return type mismatch object vs symbol.
|
|
(defmethod play-reminder sage-finalboss ((obj sage-finalboss))
|
|
(let ((s5-0 (entity-by-name "red-sagecage-1")))
|
|
(when s5-0
|
|
(let ((s4-0 (get-process *default-dead-pool* manipy #x4000)))
|
|
(set! (-> obj redsage)
|
|
(ppointer->handle (when s4-0
|
|
(let ((t9-2 (method-of-type manipy activate)))
|
|
(t9-2 (the-as manipy s4-0) obj 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s4-0 manipy-init (-> obj root-override trans) s5-0 *redsage-sg* #f)
|
|
(-> s4-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event (handle->process (-> obj redsage)) 'anim-mode 'clone-anim)
|
|
(send-event (handle->process (-> obj redsage)) 'blend-shape #t)
|
|
(send-event (handle->process (-> obj redsage)) 'center-joint 3)
|
|
(send-event (handle->process (-> obj redsage)) 'origin-joint-index 3)
|
|
)
|
|
)
|
|
(let ((s5-1 (entity-by-name "blue-sagecage-1")))
|
|
(when s5-1
|
|
(let ((s4-1 (get-process *default-dead-pool* manipy #x4000)))
|
|
(set! (-> obj bluesage)
|
|
(ppointer->handle (when s4-1
|
|
(let ((t9-10 (method-of-type manipy activate)))
|
|
(t9-10 (the-as manipy s4-1) obj 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s4-1 manipy-init (-> obj root-override trans) s5-1 *bluesage-sg* #f)
|
|
(-> s4-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event (handle->process (-> obj bluesage)) 'anim-mode 'clone-anim)
|
|
(send-event (handle->process (-> obj bluesage)) 'blend-shape #t)
|
|
(send-event (handle->process (-> obj bluesage)) 'center-joint 3)
|
|
(send-event (handle->process (-> obj bluesage)) 'origin-joint-index 3)
|
|
)
|
|
)
|
|
(let ((s5-2 (entity-by-name "yellow-sagecage-1")))
|
|
(the-as
|
|
symbol
|
|
(when s5-2
|
|
(let ((s4-2 (get-process *default-dead-pool* manipy #x4000)))
|
|
(set! (-> obj yellowsage)
|
|
(ppointer->handle
|
|
(when s4-2
|
|
(let ((t9-18 (method-of-type manipy activate)))
|
|
(t9-18 (the-as manipy s4-2) obj 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s4-2 manipy-init (-> obj root-override trans) s5-2 *yellowsage-sg* #f)
|
|
(-> s4-2 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event (handle->process (-> obj yellowsage)) 'anim-mode 'clone-anim)
|
|
(send-event (handle->process (-> obj yellowsage)) 'blend-shape #t)
|
|
(send-event (handle->process (-> obj yellowsage)) 'center-joint 3)
|
|
(send-event (handle->process (-> obj yellowsage)) 'origin-joint-index 3)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 45 of type sage-finalboss
|
|
;; INFO: Return type mismatch object vs symbol.
|
|
(defmethod dummy-45 sage-finalboss ((obj sage-finalboss))
|
|
(let ((s5-0 (entity-by-name "assistant-lavatube-end-3")))
|
|
(the-as
|
|
symbol
|
|
(when s5-0
|
|
(let ((s4-0 (get-process *default-dead-pool* manipy #x4000)))
|
|
(set! (-> obj assistant)
|
|
(ppointer->handle
|
|
(when s4-0
|
|
(let ((t9-2 (method-of-type manipy activate)))
|
|
(t9-2 (the-as manipy s4-0) obj 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s4-0 manipy-init (-> obj root-override trans) s5-0 *assistant-lavatube-end-sg* #f)
|
|
(-> s4-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((s5-1 (handle->process (-> obj assistant))))
|
|
(if (the-as manipy s5-1)
|
|
(set! (-> (the-as manipy s5-1) draw level-index) (the-as uint (-> (level-get *level* 'finalboss) index)))
|
|
)
|
|
)
|
|
(send-event (handle->process (-> obj assistant)) 'anim-mode 'clone-anim)
|
|
(send-event (handle->process (-> obj assistant)) 'blend-shape #t)
|
|
(send-event (handle->process (-> obj assistant)) 'center-joint 3)
|
|
(send-event (handle->process (-> obj assistant)) 'origin-joint-index 3)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 32 of type sage-finalboss
|
|
;; Used lq/sq
|
|
(defmethod play-anim! sage-finalboss ((obj sage-finalboss) (arg0 symbol))
|
|
(with-pp
|
|
(case (current-status (-> obj tasks))
|
|
(((task-status unknown))
|
|
(when arg0
|
|
(close-current! (-> obj tasks))
|
|
(set-yaw-angle-clear-roll-pitch! (-> obj root-override) 0.0)
|
|
)
|
|
(new 'static 'spool-anim
|
|
:name "green-sagecage-daxter-sacrifice"
|
|
:index 8
|
|
:parts 6
|
|
:command-list
|
|
'((1 blackout 0) (236 joint "cameraB") (439 joint "camera"))
|
|
)
|
|
)
|
|
(((task-status need-introduction))
|
|
(when arg0
|
|
(set-yaw-angle-clear-roll-pitch! (-> obj root-override) 0.0)
|
|
(close-current! (-> obj tasks))
|
|
(let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
|
|
(set! (-> obj jak-white)
|
|
(ppointer->handle
|
|
(when s5-1
|
|
(let ((t9-6 (method-of-type manipy activate)))
|
|
(t9-6 (the-as manipy s5-1) obj 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-1 manipy-init (-> obj root-override trans) (-> obj entity) *jak-white-sg* #f)
|
|
(-> s5-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event
|
|
(handle->process (-> obj jak-white))
|
|
'eval
|
|
(lambda :behavior sage-finalboss () (set-vector! (-> self draw color-emissive) 0.5 0.5 0.5 0.0) (none))
|
|
)
|
|
(send-event (handle->process (-> obj jak-white)) 'anim-mode 'clone-anim)
|
|
(send-event (handle->process (-> obj jak-white)) 'origin-joint-index 3)
|
|
(send-event (handle->process (-> obj jak-white)) 'blend-shape #t)
|
|
(let ((s5-2 (get-process *default-dead-pool* manipy #x4000)))
|
|
(set! (-> obj robotboss)
|
|
(ppointer->handle
|
|
(when s5-2
|
|
(let ((t9-13 (method-of-type manipy activate)))
|
|
(t9-13 (the-as manipy s5-2) obj 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-2 manipy-init (-> obj root-override trans) (-> obj entity) *robotboss-cinematic-sg* #f)
|
|
(-> s5-2 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event (handle->process (-> obj robotboss)) 'anim-mode 'clone-anim)
|
|
(send-event (handle->process (-> obj robotboss)) 'origin-joint-index 3)
|
|
(let ((v1-67 (handle->process (-> obj robotboss))))
|
|
(if (the-as manipy v1-67)
|
|
(set! (-> (the-as manipy v1-67) draw bounds w) 2048000.0)
|
|
)
|
|
)
|
|
(let ((s5-3 (get-process *default-dead-pool* manipy #x4000)))
|
|
(set! (-> obj silodoor)
|
|
(ppointer->handle
|
|
(when s5-3
|
|
(let ((t9-18 (method-of-type manipy activate)))
|
|
(t9-18 (the-as manipy s5-3) obj 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s5-3 manipy-init (-> obj root-override trans) (-> obj entity) *silodoor-sg* #f)
|
|
(-> s5-3 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event (handle->process (-> obj silodoor)) 'anim-mode 'clone-anim)
|
|
(let ((v1-84 (handle->process (-> obj silodoor))))
|
|
(if (the-as manipy v1-84)
|
|
(set! (-> (the-as silodoor v1-84) draw bounds w) 2048000.0)
|
|
)
|
|
)
|
|
(send-event (process-by-name "silodoor-5" *active-pool*) 'hide)
|
|
(set-setting! *setting-control* pp 'music #f 0.0 0)
|
|
(set-setting! *setting-control* pp 'allow-progress #f 0.0 0)
|
|
)
|
|
(new 'static 'spool-anim
|
|
:name "green-sagecage-outro-beat-boss-a"
|
|
:index 9
|
|
:parts 8
|
|
:command-list
|
|
'((0 send-event self activate-particle 0)
|
|
(0 send-event self activate-particle 1)
|
|
(0 send-event self activate-particle 7)
|
|
(1 blackout 0)
|
|
(61 joint "cameraB")
|
|
(71 send-event self activate-particle 2)
|
|
(156 joint "camera")
|
|
(216 joint "cameraB")
|
|
(259 send-event self deactivate-particle 2)
|
|
(259 send-event self activate-particle 3)
|
|
(268 send-event self activate-particle 4)
|
|
(270 send-event self deactivate-particle 3)
|
|
(270 send-event self deactivate-particle 0)
|
|
(270 send-event self deactivate-particle 1)
|
|
(271 joint "camera")
|
|
(269 send-event self activate-particle 5)
|
|
(272 send-event self flash)
|
|
(272 eval (lambda :behavior sage-finalboss
|
|
()
|
|
(let ((a0-1 (get-task-control (game-task finalboss-movies))))
|
|
(save-reminder a0-1 (logior (get-reminder a0-1 0) 1) 0)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
(273 send-event self deactivate-particle 5)
|
|
(333 joint "cameraB")
|
|
(395 joint "camera")
|
|
(453 joint "cameraB")
|
|
(478 send-event self deactivate-particle 4)
|
|
(478 send-event self activate-particle 6)
|
|
(482 send-event self deactivate-particle 6)
|
|
(583 joint "camera")
|
|
(640 send-event self deactivate-particle 7)
|
|
)
|
|
)
|
|
)
|
|
(((task-status need-reminder-a))
|
|
(when arg0
|
|
(set-yaw-angle-clear-roll-pitch! (-> obj root-override) 0.0)
|
|
(close-current! (-> obj tasks))
|
|
(play-reminder obj)
|
|
(dummy-45 obj)
|
|
(set! (-> obj kick-the-credits) #t)
|
|
(let ((s5-5 (get-process *default-dead-pool* manipy #x4000)))
|
|
(set! (-> obj robotplat)
|
|
(ppointer->handle
|
|
(when s5-5
|
|
(let ((t9-30 (method-of-type manipy activate)))
|
|
(t9-30 (the-as manipy s5-5) obj 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process
|
|
s5-5
|
|
manipy-init
|
|
(-> obj root-override trans)
|
|
(-> obj entity)
|
|
*plat-eco-finalboss-lit-sg*
|
|
#f
|
|
)
|
|
(-> s5-5 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event (handle->process (-> obj robotplat)) 'anim-mode 'clone-anim)
|
|
(send-event (handle->process (-> obj robotplat)) 'origin-joint-index 3)
|
|
(set! (-> obj old-target-pos trans quad)
|
|
(-> (new 'static 'vector :x 11368946.0 :y 2215900.2 :z -19405602.0 :w 1.0) quad)
|
|
)
|
|
(quaternion-copy! (-> obj old-target-pos quat) (new 'static 'quaternion :y -0.8472 :w 0.5312))
|
|
(set-setting! *setting-control* pp 'music #f 0.0 0)
|
|
(set-setting! *setting-control* pp 'sfx-volume 'abs 0.0 0)
|
|
(set-setting! *setting-control* pp 'ambient-volume 'abs 0.0 0)
|
|
(set-setting! *setting-control* pp 'allow-progress #f 0.0 0)
|
|
)
|
|
(new 'static 'spool-anim
|
|
:name "green-sagecage-outro-beat-boss-b"
|
|
:index 10
|
|
:parts 27
|
|
:command-list
|
|
'((0 kill "crate-3250")
|
|
(0 kill "crate-3251")
|
|
(0 kill "crate-3252")
|
|
(0 kill "crate-3253")
|
|
(0 kill "crate-3254")
|
|
(0 kill "crate-3255")
|
|
(0 kill "crate-3256")
|
|
(0 kill "crate-3257")
|
|
(0 kill "crate-3258")
|
|
(0 kill "crate-3259")
|
|
(0 kill "plat-eco-finalboss-1")
|
|
(1 blackout 0)
|
|
(61 joint "cameraB")
|
|
(136 joint "camera")
|
|
(510 joint "cameraB")
|
|
(641 joint "camera")
|
|
(751 joint "cameraB")
|
|
(1096 joint "camera")
|
|
(1321 joint "cameraB")
|
|
(1521 joint "camera")
|
|
(1636 joint "cameraB")
|
|
(1751 joint "camera")
|
|
(1916 joint "cameraB")
|
|
(1996 joint "camera")
|
|
(2256 joint "cameraB")
|
|
)
|
|
)
|
|
)
|
|
(((task-status need-reminder))
|
|
(when arg0
|
|
(set-yaw-angle-clear-roll-pitch! (-> obj root-override) -13116.667)
|
|
(close-current! (-> obj tasks))
|
|
(dummy-45 obj)
|
|
(send-event *camera* 'teleport)
|
|
(set-setting! *setting-control* pp 'allow-progress #f 0.0 0)
|
|
)
|
|
(cond
|
|
((target-has-all-the-cells?)
|
|
(new 'static 'spool-anim
|
|
:name
|
|
"green-sagecage-outro-beat-boss-enough-cells"
|
|
:index 12
|
|
:parts 6
|
|
:command-list
|
|
'((0 send-event self fade)
|
|
(1 blackout 0)
|
|
(65 joint "cameraB")
|
|
(104 joint "camera")
|
|
(134 joint "cameraB")
|
|
(165 joint "camera")
|
|
(292 joint "cameraB")
|
|
(488 joint "camera")
|
|
(488 auto-save auto-save)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(if arg0
|
|
(set-setting! *setting-control* pp 'allow-progress #f 0.0 0)
|
|
)
|
|
(new 'static 'spool-anim
|
|
:name
|
|
"green-sagecage-outro-beat-boss-need-cells"
|
|
:index 11
|
|
:parts 8
|
|
:command-list
|
|
'((0 send-event self fade)
|
|
(1 blackout 0)
|
|
(65 joint "cameraB")
|
|
(104 joint "camera")
|
|
(134 joint "cameraB")
|
|
(165 joint "camera")
|
|
(292 joint "cameraB")
|
|
(488 joint "camera")
|
|
(488 auto-save auto-save)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(((task-status need-reward-speech))
|
|
(when arg0
|
|
(set-yaw-angle-clear-roll-pitch! (-> obj root-override) -13116.667)
|
|
(close-current! (-> obj tasks))
|
|
(dummy-45 obj)
|
|
(set! (-> obj left-door) (the-as entity-actor (entity-by-name "power-left-2")))
|
|
(set! (-> obj right-door) (the-as entity-actor (entity-by-name "power-right-2")))
|
|
(set-setting! *setting-control* pp 'allow-progress #f 0.0 0)
|
|
)
|
|
(new 'static 'spool-anim
|
|
:name "green-sagecage-outro-big-finish"
|
|
:index 13
|
|
:parts 7
|
|
:command-list
|
|
'((1 blackout 0)
|
|
(61 joint "cameraB")
|
|
(102 joint "camera")
|
|
(145 joint "cameraB")
|
|
(220 send-event "power-left-2" open)
|
|
(220 send-event "power-right-2" open)
|
|
(235 joint "camera")
|
|
(243 send-event self activate-particle 8)
|
|
(322 joint "cameraB")
|
|
(428 joint "camera")
|
|
(519 joint "cameraB")
|
|
(602 joint "camera")
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(if arg0
|
|
(format
|
|
0
|
|
"ERROR: <GMJ>: ~S playing anim for task status ~S~%"
|
|
(-> obj name)
|
|
(task-status->string (current-status (-> obj tasks)))
|
|
)
|
|
)
|
|
(-> obj draw art-group data 4)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 31 of type sage-finalboss
|
|
(defmethod get-art-elem sage-finalboss ((obj sage-finalboss))
|
|
(-> obj draw art-group data 4)
|
|
)
|
|
|
|
;; definition for function sage-finalboss-credit-particle
|
|
;; INFO: Return type mismatch float vs none.
|
|
(defbehavior sage-finalboss-credit-particle sage-finalboss ()
|
|
(when (< 0.0 (-> self credit-fade))
|
|
(if (> (-> self part matrix) 0)
|
|
(set-vector!
|
|
(sprite-get-user-hvdf (-> self part matrix))
|
|
2048.0
|
|
2048.0
|
|
(+ -1024.0 (-> *math-camera* hvdf-off z))
|
|
(-> *math-camera* hvdf-off w)
|
|
)
|
|
)
|
|
(set! (-> *part-id-table* 2827 init-specs 8 initial-valuef) (* 128.0 (-> self credit-fade)))
|
|
(cond
|
|
((< (-> self credit-fade) 1.0)
|
|
(set! (-> *part-id-table* 2825 init-specs 1 initial-valuef) 0.0)
|
|
(set! (-> *part-id-table* 2826 init-specs 1 initial-valuef) 0.0)
|
|
)
|
|
(else
|
|
(set! (-> *part-id-table* 2825 init-specs 1 initial-valuef) 1.0)
|
|
(set! (-> *part-id-table* 2826 init-specs 1 initial-valuef) 0.3)
|
|
)
|
|
)
|
|
(spawn (-> self part) *zero-vector*)
|
|
(set! (-> self credit-fade) (+ -0.008333334 (-> self credit-fade)))
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate play-anim (sage-finalboss)
|
|
:virtual #t
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('fade)
|
|
(let ((f0-0 1.0))
|
|
(set! (-> self credit-fade) f0-0)
|
|
f0-0
|
|
)
|
|
)
|
|
(('flash)
|
|
(let ((f0-1 1.9921875))
|
|
(set! (-> self palette-val) f0-1)
|
|
f0-1
|
|
)
|
|
)
|
|
(('activate-particle)
|
|
(let ((v0-0 (the-as object #t)))
|
|
(set! (-> self particle (-> arg3 param 0) active) (the-as symbol v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
(('deactivate-particle)
|
|
(set! (-> self particle (-> arg3 param 0) active) #f)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self credit-fade) 0.0)
|
|
((-> (method-of-type process-taskable play-anim) enter))
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(when (= (current-status (-> self tasks)) (task-status invalid))
|
|
(cond
|
|
((not (-> self credits-played))
|
|
(set! (-> self kick-the-credits) #t)
|
|
)
|
|
(else
|
|
(set-blackout-frames 0)
|
|
(initialize! *game-info* 'game (the-as game-save #f) "title-start")
|
|
)
|
|
)
|
|
)
|
|
(let ((a0-4 (handle->process (-> self redsage))))
|
|
(if a0-4
|
|
(deactivate a0-4)
|
|
)
|
|
)
|
|
(let ((a0-8 (handle->process (-> self bluesage))))
|
|
(if a0-8
|
|
(deactivate a0-8)
|
|
)
|
|
)
|
|
(let ((a0-12 (handle->process (-> self yellowsage))))
|
|
(if a0-12
|
|
(deactivate a0-12)
|
|
)
|
|
)
|
|
(let ((a0-16 (handle->process (-> self assistant))))
|
|
(if a0-16
|
|
(deactivate a0-16)
|
|
)
|
|
)
|
|
(let ((a0-20 (handle->process (-> self robotplat))))
|
|
(if a0-20
|
|
(deactivate a0-20)
|
|
)
|
|
)
|
|
(let ((a0-24 (handle->process (-> self robotboss))))
|
|
(if a0-24
|
|
(deactivate a0-24)
|
|
)
|
|
)
|
|
(let ((a0-28 (handle->process (-> self jak-white))))
|
|
(if a0-28
|
|
(deactivate a0-28)
|
|
)
|
|
)
|
|
(let ((a0-32 (handle->process (-> self silodoor))))
|
|
(if a0-32
|
|
(deactivate a0-32)
|
|
)
|
|
)
|
|
(when (-> self left-door)
|
|
(let ((a1-9 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-9 from) self)
|
|
(set! (-> a1-9 num-params) 2)
|
|
(set! (-> a1-9 message) 'brightness)
|
|
(set! (-> a1-9 param 0) (the-as uint 1.0))
|
|
(set! (-> a1-9 param 1) (the-as uint 0.0))
|
|
(let ((t9-11 send-event-function)
|
|
(v1-61 (-> self left-door))
|
|
)
|
|
(t9-11
|
|
(if v1-61
|
|
(-> v1-61 extra process)
|
|
)
|
|
a1-9
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self left-door) #f)
|
|
)
|
|
(when (-> self right-door)
|
|
(let ((a1-10 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-10 from) self)
|
|
(set! (-> a1-10 num-params) 2)
|
|
(set! (-> a1-10 message) 'brightness)
|
|
(set! (-> a1-10 param 0) (the-as uint 1.0))
|
|
(set! (-> a1-10 param 1) (the-as uint 0.0))
|
|
(let ((t9-12 send-event-function)
|
|
(v1-71 (-> self right-door))
|
|
)
|
|
(t9-12
|
|
(if v1-71
|
|
(-> v1-71 extra process)
|
|
)
|
|
a1-10
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self right-door) #f)
|
|
)
|
|
(cond
|
|
((= (current-status (-> self tasks)) (task-status need-reward-speech))
|
|
(if (target-has-all-the-cells?)
|
|
(set! (-> self kick-in-the-door) #t)
|
|
(start 'play (get-continue-by-name *game-info* "finalboss-start"))
|
|
)
|
|
)
|
|
((= (current-status (-> self tasks)) (task-status invalid))
|
|
)
|
|
(else
|
|
(set-blackout-frames (seconds 100))
|
|
)
|
|
)
|
|
(dotimes (v1-84 9)
|
|
(set! (-> self particle v1-84 active) #f)
|
|
)
|
|
((-> (method-of-type process-taskable play-anim) exit))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(local-vars (f28-0 float))
|
|
(when (-> self left-door)
|
|
(let ((f30-0 (ja-aframe-num 0)))
|
|
0.0
|
|
(let ((f30-1
|
|
(cond
|
|
((< f30-0 235.0)
|
|
(set! f28-0 1.0)
|
|
0.0
|
|
)
|
|
((< 320.0 f30-0)
|
|
(set! f28-0 1.0)
|
|
0.0
|
|
)
|
|
(else
|
|
(if (> (-> self particle-whiteout matrix) 0)
|
|
(set-vector!
|
|
(sprite-get-user-hvdf (-> self particle-whiteout matrix))
|
|
2048.0
|
|
2048.0
|
|
(+ -1024.0 (-> *math-camera* hvdf-off z))
|
|
(-> *math-camera* hvdf-off w)
|
|
)
|
|
)
|
|
(set! (-> *part-id-table* 2965 init-specs 8 initial-valuef) (fmax 0.0 (fmin 128.0 (* 0.75 (+ -240.0 f30-0)))))
|
|
(spawn (-> self particle-whiteout) *zero-vector*)
|
|
(set! f28-0 (fmin 2.0 (fmax 0.0 (* 0.033333335 (+ -235.0 f30-0)))))
|
|
f28-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-1 from) self)
|
|
(set! (-> a1-1 num-params) 2)
|
|
(set! (-> a1-1 message) 'brightness)
|
|
(set! (-> a1-1 param 0) (the-as uint f28-0))
|
|
(set! (-> a1-1 param 1) (the-as uint f30-1))
|
|
(let ((t9-3 send-event-function)
|
|
(v1-20 (-> self left-door))
|
|
)
|
|
(t9-3
|
|
(if v1-20
|
|
(-> v1-20 extra process)
|
|
)
|
|
a1-1
|
|
)
|
|
)
|
|
)
|
|
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-2 from) self)
|
|
(set! (-> a1-2 num-params) 2)
|
|
(set! (-> a1-2 message) 'brightness)
|
|
(set! (-> a1-2 param 0) (the-as uint f28-0))
|
|
(set! (-> a1-2 param 1) (the-as uint f30-1))
|
|
(let ((t9-4 send-event-function)
|
|
(v1-27 (-> self right-door))
|
|
)
|
|
(t9-4
|
|
(if v1-27
|
|
(-> v1-27 extra process)
|
|
)
|
|
a1-2
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (and *target* (-> self particle 0 active))
|
|
(let ((a1-3 (new 'stack-no-clear 'vector)))
|
|
(set! (-> a1-3 quad) (-> *target* draw origin quad))
|
|
(set! (-> a1-3 y) 1970176.0)
|
|
(spawn (-> self particle 0 part) a1-3)
|
|
)
|
|
)
|
|
(when (and (handle->process (-> self jak-white)) (-> self particle 1 active))
|
|
(let ((a0-17 (handle->process (-> self jak-white))))
|
|
(spawn
|
|
(-> self particle 1 part)
|
|
(process-drawable-random-point! (the-as process-drawable a0-17) (new 'stack-no-clear 'vector))
|
|
)
|
|
)
|
|
)
|
|
(when (and (handle->process (-> self jak-white)) (-> self particle 2 active))
|
|
(let* ((v1-52 (handle->process (-> self jak-white)))
|
|
(a1-11 (vector<-cspace! (new 'stack-no-clear 'vector) (-> (the-as process-drawable v1-52) node-list data 52)))
|
|
)
|
|
(spawn (-> self particle 2 part) a1-11)
|
|
)
|
|
)
|
|
(when (and (handle->process (-> self jak-white)) (-> self particle 3 active))
|
|
(let* ((v1-63 (handle->process (-> self jak-white)))
|
|
(a1-15 (vector<-cspace! (new 'stack-no-clear 'vector) (-> (the-as process-drawable v1-63) node-list data 52)))
|
|
)
|
|
(spawn (-> self particle 3 part) a1-15)
|
|
)
|
|
)
|
|
(if (and (handle->process (-> self robotboss)) (-> self particle 4 active))
|
|
(spawn (-> self particle 4 part) (process-drawable-random-point!
|
|
(the-as process-drawable (handle->process (-> self robotboss)))
|
|
(new 'stack-no-clear 'vector)
|
|
)
|
|
)
|
|
)
|
|
(if (and (handle->process (-> self robotboss)) (-> self particle 5 active))
|
|
(spawn
|
|
(-> self particle 5 part)
|
|
(vector<-cspace!
|
|
(new 'stack-no-clear 'vector)
|
|
(-> (the-as process-drawable (handle->process (-> self robotboss))) node-list data 15)
|
|
)
|
|
)
|
|
)
|
|
(if (and (handle->process (-> self robotboss)) (-> self particle 6 active))
|
|
(spawn
|
|
(-> self particle 6 part)
|
|
(vector<-cspace!
|
|
(new 'stack-no-clear 'vector)
|
|
(-> (the-as process-drawable (handle->process (-> self robotboss))) node-list data 6)
|
|
)
|
|
)
|
|
)
|
|
(when (and (handle->process (-> self robotboss)) (-> self particle 7 active))
|
|
(let ((gp-4 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-4 (-> (the-as process-drawable (handle->process (-> self robotboss))) node-list data 7))
|
|
(spawn (-> self particle 7 part) gp-4)
|
|
)
|
|
)
|
|
(when (-> self particle 8 active)
|
|
(let ((gp-5 (search-process-tree *active-pool* (lambda ((arg0 final-door)) (= (-> arg0 type) power-left))))
|
|
(a0-70 (search-process-tree *active-pool* (lambda ((arg0 final-door)) (= (-> arg0 type) power-left))))
|
|
(a1-43 (new 'stack-no-clear 'vector))
|
|
)
|
|
(vector+! a1-43 (-> (the-as final-door gp-5) root trans) (-> (the-as final-door a0-70) root trans))
|
|
(vector-float*! a1-43 a1-43 0.5)
|
|
(spawn (-> self particle 8 part) a1-43)
|
|
)
|
|
)
|
|
(sage-finalboss-credit-particle)
|
|
(let* ((f0-14 (- 0.0 (-> self palette-val)))
|
|
(f0-15 (if (< 0.0 f0-14)
|
|
(fmin 0.025 f0-14)
|
|
(fmax -0.025 f0-14)
|
|
)
|
|
)
|
|
)
|
|
(+! (-> self palette-val) f0-15)
|
|
)
|
|
(set! (-> *palette-fade-controls* control 2 fade) (-> self palette-val))
|
|
(case (current-status (-> self tasks))
|
|
(((task-status need-introduction))
|
|
(spool-push *art-control* "green-sagecage-outro-beat-boss-a" 0 self -1.0)
|
|
)
|
|
(((task-status need-reminder-a))
|
|
(spool-push *art-control* "green-sagecage-outro-beat-boss-b" 0 self -1.0)
|
|
)
|
|
(((task-status need-reminder))
|
|
(if (target-has-all-the-cells?)
|
|
(spool-push *art-control* "green-sagecage-outro-beat-boss-enough-cells" 0 self -1.0)
|
|
(spool-push *art-control* "green-sagecage-outro-beat-boss-need-cells" 0 self -1.0)
|
|
)
|
|
)
|
|
(((task-status need-reward-speech))
|
|
(spool-push *art-control* "green-sagecage-outro-big-finish" 0 self -1.0)
|
|
)
|
|
)
|
|
((-> (method-of-type process-taskable play-anim) trans))
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate sage-finalboss-credits (sage-finalboss)
|
|
:exit
|
|
(behavior ()
|
|
(when (= (current-status (-> self tasks)) (task-status invalid))
|
|
(set-blackout-frames 0)
|
|
(initialize! *game-info* 'game (the-as game-save #f) "title-start")
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(local-vars (s5-0 symbol))
|
|
(set! (-> self credits-played) #t)
|
|
(set-blackout-frames 0)
|
|
(set-blackout-frames (seconds 0.05))
|
|
(clear-pending-settings-from-process *setting-control* self 'sfx-volume)
|
|
(clear-pending-settings-from-process *setting-control* self 'ambient-volume)
|
|
(set-setting! *setting-control* self 'allow-pause #f 0.0 0)
|
|
(set-setting! *setting-control* self 'allow-progress #f 0.0 0)
|
|
(set-setting! *setting-control* self 'music 'ogreboss 0.0 0)
|
|
(set! (-> self state-time) (-> *display* game-frame-counter))
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(let ((gp-0 (-> self mask)))
|
|
(load-state-want-display-level 'finalboss 'special)
|
|
(logclear! (-> self mask) (process-mask pause progress))
|
|
(push-setting! *setting-control* self 'process-mask 'set 0.0 8212)
|
|
(copy-settings-from-target! *setting-control*)
|
|
(let ((f30-0 0.0)
|
|
(f28-0 0.5)
|
|
)
|
|
(until s5-0
|
|
(hide-hud-quick)
|
|
(set! (-> self credit-fade) 1.0)
|
|
(sage-finalboss-credit-particle)
|
|
(set! s5-0 (draw-end-credits (the int f30-0)))
|
|
(if (and *cheat-mode* (cpad-pressed? 0 triangle))
|
|
(set! s5-0 #t)
|
|
)
|
|
(cond
|
|
((paused?)
|
|
)
|
|
((and (< 1300.0 f30-0) (cpad-hold? 0 circle x))
|
|
(set! f28-0 (seek f28-0 16.0 (* 4.0 (-> *display* seconds-per-frame))))
|
|
(+! f30-0 (* f28-0 (-> *display* time-adjust-ratio)))
|
|
)
|
|
(else
|
|
(set! f28-0 (seek f28-0 0.5 (* 16.0 (-> *display* seconds-per-frame))))
|
|
(+! f30-0 (* f28-0 (-> *display* time-adjust-ratio)))
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
(set! (-> self mask) gp-0)
|
|
)
|
|
(load-state-want-display-level 'finalboss 'display)
|
|
(clear-pending-settings-from-process *setting-control* self 'allow-pause)
|
|
(clear-pending-settings-from-process *setting-control* self 'allow-progress)
|
|
(clear-pending-settings-from-process *setting-control* self 'process-mask)
|
|
(clear-pending-settings-from-process *setting-control* self 'music)
|
|
(copy-settings-from-target! *setting-control*)
|
|
(set-blackout-frames (seconds 0.05))
|
|
(let ((gp-1 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) gp-1) (seconds 0.05))
|
|
(suspend)
|
|
)
|
|
)
|
|
(go-virtual hidden)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 39 of type sage-finalboss
|
|
(defmethod should-display? sage-finalboss ((obj sage-finalboss))
|
|
#f
|
|
)
|
|
|
|
;; definition for function sage-finalboss-extra-trans
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defbehavior sage-finalboss-extra-trans sage-finalboss ()
|
|
(case (current-status (-> self tasks))
|
|
(((task-status need-reminder-a) (task-status need-reminder))
|
|
(send-event self 'play-anim)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function sage-finalboss-extra-enter
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defbehavior sage-finalboss-extra-enter sage-finalboss ()
|
|
(cond
|
|
((-> self kick-the-credits)
|
|
(set! (-> self kick-the-credits) #f)
|
|
(go sage-finalboss-credits)
|
|
)
|
|
((-> self kick-in-the-door)
|
|
(set! (-> self kick-in-the-door) #f)
|
|
(entity-birth-no-kill (entity-by-type power-right))
|
|
(entity-birth-no-kill (entity-by-type power-left))
|
|
(send-event
|
|
*target*
|
|
'change-mode
|
|
'final-door
|
|
(search-process-tree *active-pool* (lambda ((arg0 final-door)) (= (-> arg0 type) power-right)))
|
|
(search-process-tree *active-pool* (lambda ((arg0 final-door)) (= (-> arg0 type) power-left)))
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate hidden (sage-finalboss)
|
|
:virtual #t
|
|
:enter
|
|
(behavior ()
|
|
(sage-finalboss-extra-enter)
|
|
((-> (method-of-type process-taskable hidden) enter))
|
|
(clear-pending-settings-from-process *setting-control* self 'allow-progress)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(sage-finalboss-extra-trans)
|
|
((-> (method-of-type process-taskable hidden) trans))
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (sage-finalboss)
|
|
:virtual #t
|
|
:enter
|
|
(behavior ()
|
|
(sage-finalboss-extra-enter)
|
|
((-> (method-of-type process-taskable idle) enter))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(sage-finalboss-extra-trans)
|
|
((-> (method-of-type process-taskable idle) trans))
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 11 of type sage-finalboss
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! sage-finalboss ((obj sage-finalboss) (arg0 entity-actor))
|
|
(dummy-40 obj arg0 *sage-finalboss-sg* 3 40 (new 'static 'vector :w 4096.0) 5)
|
|
(set! (-> obj tasks) (get-task-control (game-task finalboss-movies)))
|
|
(set! (-> obj redsage) (the-as handle #f))
|
|
(set! (-> obj bluesage) (the-as handle #f))
|
|
(set! (-> obj yellowsage) (the-as handle #f))
|
|
(set! (-> obj assistant) (the-as handle #f))
|
|
(set! (-> obj robotplat) (the-as handle #f))
|
|
(set! (-> obj robotboss) (the-as handle #f))
|
|
(set! (-> obj jak-white) (the-as handle #f))
|
|
(set! (-> obj silodoor) (the-as handle #f))
|
|
(set! (-> obj left-door) #f)
|
|
(set! (-> obj right-door) #f)
|
|
(set! (-> obj kick-in-the-door) #f)
|
|
(set! (-> obj kick-the-credits) #f)
|
|
(set! (-> obj credits-played) #f)
|
|
(set! (-> obj part) (create-launch-control (-> *part-group-id-table* 682) obj))
|
|
(set! (-> obj part matrix) (sprite-allocate-user-hvdf))
|
|
(set! (-> obj particle-whiteout) (create-launch-control (-> *part-group-id-table* 706) obj))
|
|
(set! (-> obj particle-whiteout matrix) (sprite-allocate-user-hvdf))
|
|
(set! (-> obj particle 0 part) (create-launch-control (-> *part-group-id-table* 699) obj))
|
|
(set! (-> obj particle 1 part) (create-launch-control (-> *part-group-id-table* 700) obj))
|
|
(set! (-> obj particle 2 part) (create-launch-control (-> *part-group-id-table* 701) obj))
|
|
(set! (-> obj particle 3 part) (create-launch-control (-> *part-group-id-table* 702) obj))
|
|
(set! (-> obj particle 7 part) (create-launch-control (-> *part-group-id-table* 645) obj))
|
|
(set! (-> obj particle 4 part) (create-launch-control (-> *part-group-id-table* 703) obj))
|
|
(set! (-> obj particle 5 part) (create-launch-control (-> *part-group-id-table* 696) obj))
|
|
(set! (-> obj particle 6 part) (create-launch-control (-> *part-group-id-table* 704) obj))
|
|
(set! (-> obj particle 8 part) (create-launch-control (-> *part-group-id-table* 698) obj))
|
|
(dotimes (v1-37 9)
|
|
(set! (-> obj particle v1-37 active) #f)
|
|
)
|
|
(set! (-> obj palette-val) 0.0)
|
|
(set! (-> obj root-override trans y) (+ 2048.0 (-> obj root-override trans y)))
|
|
(if (not (should-display? obj))
|
|
(go (method-of-object obj hidden))
|
|
(go (method-of-object obj idle))
|
|
)
|
|
(none)
|
|
)
|