mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
f4085a4362
Cleans up every `dummy-*` and `TODO-RENAME-*` method up with either proper names or by renaming them to `[type-name]-method-[method-id]` similar to Jak 2's `all-types`. Also fixes the bad format string in `collide-cache` and adds the event handler hack to Jak 1. The game boots and runs fine, but I might have missed a PAL patch or other manual patches here and there, please double-check if possible.
419 lines
14 KiB
Common Lisp
419 lines
14 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: final-door.gc
|
|
;; name in dgo: final-door
|
|
;; dgos: FIN, L1
|
|
|
|
(define-extern power-left type)
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(import "goal_src/jak1/import/power-left-ag.gc")
|
|
(import "goal_src/jak1/import/power-right-ag.gc")
|
|
(import "goal_src/jak1/import/powercellalt-ag.gc")
|
|
|
|
(deftype fin-door (process-hidden)
|
|
()
|
|
:method-count-assert 15
|
|
:size-assert #x70
|
|
:flag-assert #xf00000070
|
|
)
|
|
|
|
|
|
(deftype final-door (process-drawable)
|
|
()
|
|
:heap-base #x40
|
|
:method-count-assert 23
|
|
:size-assert #xb0
|
|
:flag-assert #x17004000b0
|
|
(:methods
|
|
(idle () _type_ :state 20)
|
|
(final-door-method-21 (_type_) none 21)
|
|
(open (symbol) _type_ :state 22)
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *power-left-sg* power-left power-left-lod0-jg power-left-idle-ja
|
|
((power-left-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 11 0 12)
|
|
)
|
|
|
|
(defskelgroup *power-right-sg* power-right power-right-lod0-jg power-right-idle-ja
|
|
((power-right-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 11 0 12)
|
|
)
|
|
|
|
(defskelgroup *powercellalt-sg* powercellalt powercellalt-lod0-jg powercellalt-idle-ja
|
|
((powercellalt-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 2)
|
|
)
|
|
|
|
(defstate idle (final-door)
|
|
:virtual #t
|
|
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
|
(case event-type
|
|
(('open)
|
|
(go-virtual open #f)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(transform-post)
|
|
(logior! (-> self mask) (process-mask sleep))
|
|
(suspend)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defstate open (final-door)
|
|
:virtual #t
|
|
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
|
(the-as object (case event-type
|
|
(('brightness)
|
|
(let ((f0-0 (the-as float (-> event param 0)))
|
|
(f1-0 (the-as float (-> event param 1)))
|
|
)
|
|
(set-vector! (-> self draw color-mult) f0-0 f0-0 f0-0 f0-0)
|
|
(let ((v0-0 (-> self draw color-emissive)))
|
|
(set! (-> v0-0 x) f1-0)
|
|
(set! (-> v0-0 y) f1-0)
|
|
(set! (-> v0-0 z) f1-0)
|
|
(set! (-> v0-0 w) f1-0)
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ((arg0 symbol))
|
|
(case (-> self type)
|
|
((power-left)
|
|
(ja-no-eval :group! (-> self draw art-group data 2) :num! (seek! max 0.353) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(transform-post)
|
|
(suspend)
|
|
(ja :num! (seek! max 0.353))
|
|
)
|
|
)
|
|
(else
|
|
(ja-no-eval :group! (-> self draw art-group data 2) :num! (seek! max 0.353) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(transform-post)
|
|
(suspend)
|
|
(ja :num! (seek! max 0.353))
|
|
)
|
|
)
|
|
)
|
|
(transform-post)
|
|
(logior! (-> self mask) (process-mask sleep))
|
|
(suspend)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defmethod init-from-entity! final-door ((obj final-door) (arg0 entity-actor))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-others))))
|
|
(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-mesh s4-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-kind wall-object))
|
|
(set! (-> s3-0 collide-with) (collide-kind target))
|
|
(set! (-> s3-0 prim-core action) (collide-action solid))
|
|
(set! (-> s3-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s3-0 transform-index) 3)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 45056.0 0.0 49152.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> obj root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! obj arg0)
|
|
(final-door-method-21 obj)
|
|
(go (method-of-object obj idle))
|
|
(none)
|
|
)
|
|
|
|
(deftype power-left (final-door)
|
|
()
|
|
:heap-base #x40
|
|
:method-count-assert 23
|
|
:size-assert #xb0
|
|
:flag-assert #x17004000b0
|
|
)
|
|
|
|
|
|
(deftype power-right (final-door)
|
|
()
|
|
:heap-base #x40
|
|
:method-count-assert 23
|
|
:size-assert #xb0
|
|
:flag-assert #x17004000b0
|
|
)
|
|
|
|
|
|
(defstate idle (power-left)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(ja-post)
|
|
(loop
|
|
(if (and (and *target* (>= 61440.0 (vector-vector-distance (-> self root trans) (-> *target* control trans))))
|
|
(and (not (logtest? (-> *target* state-flags) (state-flags grabbed)))
|
|
(and (>= (-> *game-info* fuel) 100.0)
|
|
(not (and (-> self entity) (logtest? (-> self entity extra perm status) (entity-perm-status complete))))
|
|
(= (get-task-status (game-task finalboss-movies)) (task-status need-reward-speech))
|
|
(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)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
)
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defmethod final-door-method-21 power-left ((obj power-left))
|
|
(initialize-skeleton obj *power-left-sg* '())
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod final-door-method-21 power-right ((obj power-right))
|
|
(initialize-skeleton obj *power-right-sg* '())
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(deftype powercellalt (process-drawable)
|
|
((root-override collide-shape-moving :offset 112)
|
|
(jump-pos vector :inline :offset-assert 176)
|
|
(base vector :inline :offset-assert 192)
|
|
(index int32 :offset-assert 208)
|
|
)
|
|
:heap-base #x70
|
|
:method-count-assert 23
|
|
:size-assert #xd4
|
|
:flag-assert #x17007000d4
|
|
(:methods
|
|
(powercellalt-method-20 () none 20)
|
|
(jump () _type_ :state 21)
|
|
(idle () _type_ :state 22)
|
|
)
|
|
)
|
|
|
|
|
|
(defstate jump (powercellalt)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(sound-play "cell-prize")
|
|
(let ((gp-1 (new 'stack 'trajectory)))
|
|
(set! (-> self base y) (-> self jump-pos y))
|
|
(setup-from-to-duration! gp-1 (-> self root-override trans) (-> self jump-pos) 300.0 -2.2755556)
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 1))
|
|
(let ((f0-2 (the float (- (-> *display* base-frame-counter) (-> self state-time)))))
|
|
(eval-position! gp-1 f0-2 (-> self root-override trans))
|
|
)
|
|
(transform-post)
|
|
(spawn (-> self part) (the-as vector (-> self root-override root-prim prim-core)))
|
|
(suspend)
|
|
(if (nonzero? (-> self skel))
|
|
(ja :num! (loop! 0.5))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self root-override trans quad) (-> self jump-pos quad))
|
|
(set! (-> self base quad) (-> self root-override trans quad))
|
|
(transform-post)
|
|
(sound-play "land-pcmetal" :pitch 2)
|
|
(process-spawn
|
|
part-tracker
|
|
:init part-tracker-init
|
|
(-> *part-group-id-table* 4)
|
|
-1
|
|
#f
|
|
#f
|
|
#f
|
|
(-> self root-override root-prim prim-core)
|
|
:to *entity-pool*
|
|
)
|
|
(go-virtual idle)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defstate idle (powercellalt)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(loop
|
|
(vector<-cspace!
|
|
(-> self root-override trans)
|
|
(-> (the-as process-drawable (-> self parent 0)) node-list data (-> self index))
|
|
)
|
|
(transform-post)
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defbehavior powercellalt-init-by-other powercellalt ((arg0 entity-actor) (arg1 vector) (arg2 vector) (arg3 int))
|
|
(set! (-> self entity) arg0)
|
|
(let ((s3-0 (new 'process 'collide-shape-moving self (collide-list-enum hit-by-player))))
|
|
(set! (-> s3-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s3-0 reaction) default-collision-reaction)
|
|
(set! (-> s3-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
|
|
)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-sphere s3-0 (the-as uint 0))))
|
|
(set! (-> s2-0 prim-core collide-as) (collide-kind powerup))
|
|
(set! (-> s2-0 collide-with) (collide-kind target))
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 0.0 0.0 4915.2)
|
|
(set-root-prim! s3-0 s2-0)
|
|
)
|
|
(set! (-> s3-0 nav-radius) (* 0.75 (-> s3-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s3-0)
|
|
(set! (-> self root-override) s3-0)
|
|
)
|
|
(set! (-> self root-override trans quad) (-> arg1 quad))
|
|
(set! (-> self jump-pos quad) (-> arg2 quad))
|
|
(set-vector! (-> self root-override scale) 0.5 0.5 0.5 1.0)
|
|
(set! (-> self index) arg3)
|
|
(initialize-skeleton self *powercellalt-sg* '())
|
|
(set! (-> self part) (create-launch-control (-> *part-group-id-table* 63) self))
|
|
enter-state
|
|
(-> self root-override trans)
|
|
(-> self jump-pos)
|
|
(go-virtual jump)
|
|
(none)
|
|
)
|
|
|
|
(defstate target-final-door (target)
|
|
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
|
((-> target-grab event) proc arg1 event-type event)
|
|
)
|
|
:enter (behavior ((arg0 basic) (arg1 handle))
|
|
(send-event *camera* 'change-to-entity-by-name "camera-403")
|
|
(set! (-> self control unknown-surface00) *empty-mods*)
|
|
(logior! (-> self state-flags) (state-flags invulnerable grabbed))
|
|
(set-setting! 'allow-progress #f 0.0 0)
|
|
(none)
|
|
)
|
|
:exit (behavior ()
|
|
(send-event *camera* 'change-state *camera-base-mode* (seconds 0.2))
|
|
(logclear! (-> self state-flags) (state-flags invulnerable grabbed))
|
|
(target-exit)
|
|
(remove-setting! 'allow-progress)
|
|
(none)
|
|
)
|
|
:trans (behavior ()
|
|
(set-letterbox-frames (seconds 0.017))
|
|
(none)
|
|
)
|
|
:code (behavior ((arg0 basic) (arg1 handle))
|
|
(local-vars (sv-144 process) (sv-160 vector) (sv-176 process) (sv-192 vector))
|
|
(let ((a0-2 (get-task-control (game-task finalboss-movies))))
|
|
(save-reminder a0-2 (logior (get-reminder a0-2 0) 2) 0)
|
|
)
|
|
(move-to-point! (-> self control) (new 'static 'vector :x 11368946.0 :y 2215900.2 :z -19405602.0 :w 1.0))
|
|
(set-quaternion! (-> self control) (the-as quaternion (new 'static 'vector :y -0.8472 :w 0.5312)))
|
|
(rot->dir-targ! (-> self control))
|
|
(transform-post)
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja-no-eval :group! (-> self draw art-group data 88) :num! (seek! (ja-aframe 18.0 0)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe 18.0 0)))
|
|
)
|
|
(let ((s4-3 (-> (handle->process (the-as handle arg0)) entity))
|
|
(s3-1 (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data 7)))
|
|
)
|
|
(dotimes (s2-0 50)
|
|
(when (handle->process (the-as handle arg0))
|
|
(let ((s1-0 (handle->process (the-as handle arg0)))
|
|
(s0-0 (+ s2-0 4))
|
|
)
|
|
(set! sv-160
|
|
(vector<-cspace! (new 'stack-no-clear 'vector) (-> (the-as process-drawable s1-0) node-list data s0-0))
|
|
)
|
|
(set! sv-144 (get-process *default-dead-pool* powercellalt #x4000))
|
|
(when sv-144
|
|
(let ((t9-16 (method-of-type powercellalt activate)))
|
|
(t9-16 (the-as powercellalt sv-144) s1-0 'powercellalt (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process sv-144 powercellalt-init-by-other s4-3 s3-1 sv-160 s0-0)
|
|
(-> sv-144 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(let ((s1-1 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) s1-1) (seconds 0.1))
|
|
(suspend)
|
|
)
|
|
)
|
|
(when (handle->process arg1)
|
|
(let ((s1-2 (handle->process arg1))
|
|
(s0-1 (+ s2-0 4))
|
|
)
|
|
(set! sv-192
|
|
(vector<-cspace! (new 'stack-no-clear 'vector) (-> (the-as process-drawable s1-2) node-list data s0-1))
|
|
)
|
|
(set! sv-176 (get-process *default-dead-pool* powercellalt #x4000))
|
|
(when sv-176
|
|
(let ((t9-20 (method-of-type powercellalt activate)))
|
|
(t9-20 (the-as powercellalt sv-176) s1-2 'powercellalt (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process sv-176 powercellalt-init-by-other s4-3 s3-1 sv-192 s0-1)
|
|
(-> sv-176 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(let ((s1-3 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) s1-3) (seconds 0.1))
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((gp-1 (-> *display* base-frame-counter)))
|
|
(until (>= (- (-> *display* base-frame-counter) gp-1) (seconds 2))
|
|
(suspend)
|
|
)
|
|
)
|
|
(let ((v0-22 (entity-by-name "sage-finalboss-1"))
|
|
(a1-26 (new 'stack-no-clear 'event-message-block))
|
|
)
|
|
(set! (-> a1-26 from) self)
|
|
(set! (-> a1-26 num-params) 0)
|
|
(set! (-> a1-26 message) 'play-anim)
|
|
(let ((v1-70 v0-22))
|
|
(send-event-function
|
|
(if v1-70
|
|
(-> v1-70 extra process)
|
|
)
|
|
a1-26
|
|
)
|
|
)
|
|
)
|
|
(go target-stance)
|
|
(none)
|
|
)
|
|
:post target-no-stick-post
|
|
)
|