mirror of
https://github.com/open-goal/jak-project
synced 2026-05-23 23:05:43 -04:00
ManDude
80a002f8c0
* make birthing work * fix float representation on defskelgroup * test * update * debugger improvements & dont upload aux sprites * ? * fix progress * fixes * fixes * Create bea.gd * fix test * fix xmm reg clobbering in kernel (water) * cleanup cam-start * clear gamepad state every frame * allow controller connects and disconnects while running
1967 lines
53 KiB
Common Lisp
Vendored
Generated
1967 lines
53 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for method 52 of type process-taskable
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod dummy-52 process-taskable ((obj process-taskable))
|
|
(let ((v1-1 (-> obj draw shadow-ctrl)))
|
|
(when v1-1
|
|
(let ((a0-1 v1-1))
|
|
(set! (-> a0-1 settings bot-plane w) (- -12288.0))
|
|
)
|
|
0
|
|
(set! (-> v1-1 settings top-plane w) (- 4096.0))
|
|
0
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 9 of type gui-query
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod
|
|
init!
|
|
gui-query
|
|
((obj gui-query)
|
|
(arg0 string)
|
|
(arg1 int)
|
|
(arg2 int)
|
|
(arg3 int)
|
|
(arg4 symbol)
|
|
(arg5 string)
|
|
)
|
|
(set! (-> obj x-position) arg1)
|
|
(set! (-> obj y-position) arg2)
|
|
(set! (-> obj message-space) arg3)
|
|
(set! (-> obj only-allow-cancel) arg4)
|
|
(set! (-> obj message) arg0)
|
|
(set! (-> obj decision) 'undecided)
|
|
(set! (-> obj no-msg) arg5)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 10 of type gui-query
|
|
(defmethod get-response gui-query ((obj gui-query))
|
|
(kill-current-level-hint '() '(sidekick voicebox stinger) 'exit)
|
|
(level-hint-surpress!)
|
|
(hide-hud)
|
|
(when (hud-hidden?)
|
|
(when (-> obj message)
|
|
(let
|
|
((a1-2
|
|
(new
|
|
'stack
|
|
'font-context
|
|
*font-default-matrix*
|
|
(-> obj x-position)
|
|
(-> obj y-position)
|
|
0.0
|
|
(font-color default)
|
|
(font-flags shadow kerning)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-4 a1-2))
|
|
(set! (-> v1-4 width) (the float (- 512 (-> obj x-position))))
|
|
)
|
|
(let ((v1-5 a1-2))
|
|
(set! (-> v1-5 height) (the float 40))
|
|
)
|
|
(let ((v1-6 a1-2))
|
|
(set! (-> v1-6 scale) 0.9)
|
|
)
|
|
(set! (-> a1-2 flags) (font-flags shadow kerning left large))
|
|
(print-game-text (-> obj message) a1-2 #f 128 22)
|
|
)
|
|
)
|
|
(cond
|
|
((-> obj only-allow-cancel)
|
|
(when (-> obj no-msg)
|
|
(clear *temp-string*)
|
|
(format *temp-string* "; = ~S" (-> obj no-msg))
|
|
(let*
|
|
((s4-0 (-> *display* frames (-> *display* on-screen) frame global-buf))
|
|
(s5-0 (-> s4-0 base))
|
|
)
|
|
(draw-string-xy
|
|
*temp-string*
|
|
s4-0
|
|
(-> obj x-position)
|
|
(+ (-> obj y-position) 5 (-> obj message-space))
|
|
(font-color default)
|
|
(font-flags shadow kerning large)
|
|
)
|
|
(let ((a3-4 (-> s4-0 base)))
|
|
(let ((v1-17 (the-as object (-> s4-0 base))))
|
|
(set!
|
|
(-> (the-as dma-packet v1-17) dma)
|
|
(new 'static 'dma-tag :id (dma-tag-id next))
|
|
)
|
|
(set! (-> (the-as dma-packet v1-17) vif0) (new 'static 'vif-tag))
|
|
(set! (-> (the-as dma-packet v1-17) vif1) (new 'static 'vif-tag))
|
|
(set! (-> s4-0 base) (&+ (the-as pointer v1-17) 16))
|
|
)
|
|
(dma-bucket-insert-tag
|
|
(-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
(bucket-id debug-draw0)
|
|
s5-0
|
|
(the-as (pointer dma-tag) a3-4)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(let*
|
|
((s4-1 (-> *display* frames (-> *display* on-screen) frame global-buf))
|
|
(s5-1 (-> s4-1 base))
|
|
)
|
|
(draw-string-xy
|
|
(lookup-text! *common-text* (game-text-id confirm) #f)
|
|
s4-1
|
|
(-> obj x-position)
|
|
(+ (-> obj y-position) 5 (-> obj message-space))
|
|
(font-color default)
|
|
(font-flags shadow kerning large)
|
|
)
|
|
(let ((a3-7 (-> s4-1 base)))
|
|
(let ((v1-29 (the-as object (-> s4-1 base))))
|
|
(set!
|
|
(-> (the-as dma-packet v1-29) dma)
|
|
(new 'static 'dma-tag :id (dma-tag-id next))
|
|
)
|
|
(set! (-> (the-as dma-packet v1-29) vif0) (new 'static 'vif-tag))
|
|
(set! (-> (the-as dma-packet v1-29) vif1) (new 'static 'vif-tag))
|
|
(set! (-> s4-1 base) (&+ (the-as pointer v1-29) 16))
|
|
)
|
|
(dma-bucket-insert-tag
|
|
(-> *display* frames (-> *display* on-screen) frame bucket-group)
|
|
(bucket-id debug-draw0)
|
|
s5-1
|
|
(the-as (pointer dma-tag) a3-7)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((!= (-> obj decision) 'undecided)
|
|
)
|
|
((and
|
|
(logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x))
|
|
(not (-> obj only-allow-cancel))
|
|
)
|
|
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons x))
|
|
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons x))
|
|
(set! (-> obj decision) 'yes)
|
|
)
|
|
((logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons triangle))
|
|
(logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons triangle))
|
|
(logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons triangle))
|
|
(set! (-> obj decision) 'no)
|
|
)
|
|
)
|
|
)
|
|
(-> obj decision)
|
|
)
|
|
|
|
;; definition for method 7 of type process-taskable
|
|
;; INFO: Return type mismatch process-drawable vs process-taskable.
|
|
(defmethod relocate process-taskable ((obj process-taskable) (arg0 int))
|
|
(the-as
|
|
process-taskable
|
|
((method-of-type process-drawable relocate) obj arg0)
|
|
)
|
|
)
|
|
|
|
;; definition for method 46 of type process-taskable
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod dummy-46 process-taskable ((obj process-taskable))
|
|
(with-pp
|
|
(when (nonzero? (-> obj sound-flava))
|
|
(let
|
|
((s5-1
|
|
(vector-!
|
|
(new 'stack-no-clear 'vector)
|
|
(target-pos 0)
|
|
(the-as vector (-> obj root-override root-prim prim-core))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> s5-1 y) (* 4.0 (-> s5-1 y)))
|
|
(cond
|
|
((< (vector-length s5-1) 102400.0)
|
|
(when (not (-> obj have-flava))
|
|
(set! (-> obj have-flava) #t)
|
|
(set-setting!
|
|
*setting-control*
|
|
pp
|
|
'sound-flava
|
|
#f
|
|
20.0
|
|
(the-as int (-> obj sound-flava))
|
|
)
|
|
)
|
|
)
|
|
((-> obj have-flava)
|
|
(clear-pending-settings-from-process *setting-control* pp 'sound-flava)
|
|
(set! (-> obj have-flava) #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (-> obj music)
|
|
(let
|
|
((s5-3
|
|
(vector-!
|
|
(new 'stack-no-clear 'vector)
|
|
(target-pos 0)
|
|
(the-as vector (-> obj root-override root-prim prim-core))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> s5-3 y) (* 4.0 (-> s5-3 y)))
|
|
(cond
|
|
((< (vector-length s5-3) 102400.0)
|
|
(when (not (-> obj have-music))
|
|
(set! (-> obj have-music) #t)
|
|
(set-setting!
|
|
*setting-control*
|
|
pp
|
|
'music
|
|
(the-as symbol (-> obj music))
|
|
0.0
|
|
0
|
|
)
|
|
)
|
|
)
|
|
((-> obj have-music)
|
|
(clear-pending-settings-from-process *setting-control* pp 'music)
|
|
(set! (-> obj have-music) #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 31 of type process-taskable
|
|
;; INFO: Return type mismatch art-joint-anim vs art-element.
|
|
(defmethod get-art-elem process-taskable ((obj process-taskable))
|
|
(the-as art-element (if (> (-> obj skel active-channels) 0)
|
|
(-> obj skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 32 of type process-taskable
|
|
;; INFO: Return type mismatch symbol vs basic.
|
|
(defmethod play-anim! process-taskable ((obj process-taskable) (arg0 symbol))
|
|
(the-as basic #f)
|
|
)
|
|
|
|
;; definition for method 33 of type process-taskable
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod dummy-33 process-taskable ((obj process-taskable))
|
|
(let ((s5-0 (play-anim! obj #f)))
|
|
(if (type-type? (-> s5-0 type) spool-anim)
|
|
(spool-push *art-control* (-> (the-as spool-anim s5-0) name) 0 obj -99.0)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 51 of type process-taskable
|
|
(defmethod close-anim-file! process-taskable ((obj process-taskable))
|
|
(let* ((gp-0 (play-anim! obj #f))
|
|
(v1-2 (if (and (nonzero? gp-0) (type-type? (-> gp-0 type) spool-anim))
|
|
gp-0
|
|
)
|
|
)
|
|
)
|
|
(if v1-2
|
|
(file-status *art-control* (-> (the-as spool-anim v1-2) name) 0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 34 of type process-taskable
|
|
;; INFO: Return type mismatch symbol vs spool-anim.
|
|
(defmethod
|
|
get-accept-anim
|
|
process-taskable
|
|
((obj process-taskable) (arg0 symbol))
|
|
(the-as spool-anim #f)
|
|
)
|
|
|
|
;; definition for method 35 of type process-taskable
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod push-accept-anim process-taskable ((obj process-taskable))
|
|
(let ((s5-0 (get-accept-anim obj #f)))
|
|
(if (type-type? (-> s5-0 type) spool-anim)
|
|
(spool-push *art-control* (-> s5-0 name) 0 obj -99.0)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 36 of type process-taskable
|
|
;; INFO: Return type mismatch symbol vs spool-anim.
|
|
(defmethod
|
|
get-reject-anim
|
|
process-taskable
|
|
((obj process-taskable) (arg0 symbol))
|
|
(the-as spool-anim #f)
|
|
)
|
|
|
|
;; definition for method 37 of type process-taskable
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod push-reject-anim process-taskable ((obj process-taskable))
|
|
(let ((s5-0 (get-reject-anim obj #f)))
|
|
(if (type-type? (-> s5-0 type) spool-anim)
|
|
(spool-push *art-control* (-> s5-0 name) 0 obj -99.0)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 38 of type process-taskable
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod dummy-38 process-taskable ((obj process-taskable))
|
|
(if (nonzero? (-> obj cell-for-task))
|
|
(go (method-of-object obj give-cell))
|
|
)
|
|
(go (method-of-object obj release))
|
|
(none)
|
|
)
|
|
|
|
;; definition for function process-taskable-anim-loop
|
|
(defbehavior process-taskable-anim-loop process-taskable ()
|
|
(when (!= (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
(get-art-elem self)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(let ((gp-0 (-> self skel root-channel 0)))
|
|
(set! (-> gp-0 frame-group) (the-as art-joint-anim (get-art-elem self)))
|
|
)
|
|
)
|
|
(while #t
|
|
(suspend)
|
|
(let ((a0-8 (-> self skel root-channel 0)))
|
|
(set! (-> a0-8 param 0) 1.0)
|
|
(joint-control-channel-group-eval!
|
|
a0-8
|
|
(the-as art-joint-anim #f)
|
|
num-func-loop!
|
|
)
|
|
)
|
|
(if (= (-> self next-state name) 'idle)
|
|
(TODO-RENAME-43 self)
|
|
)
|
|
)
|
|
(the-as none 0)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate release (process-taskable)
|
|
:virtual #t
|
|
:trans
|
|
(behavior ()
|
|
(when (process-release? *target*)
|
|
(send-event *target* 'trans 'restore (-> self old-target-pos))
|
|
(if (should-display? self)
|
|
(go-virtual idle)
|
|
(go-virtual hidden)
|
|
)
|
|
)
|
|
(dummy-33 self)
|
|
((-> self cur-trans-hook))
|
|
(none)
|
|
)
|
|
:code
|
|
process-taskable-anim-loop
|
|
:post
|
|
(the-as (function none :behavior process-taskable) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate give-cell (process-taskable)
|
|
:virtual #t
|
|
:trans
|
|
(behavior ()
|
|
(cond
|
|
((nonzero? (-> self cell-for-task))
|
|
(let ((gp-0 (handle->process (-> self cell-x))))
|
|
(when gp-0
|
|
(send-event *target* 'trans 'reset)
|
|
(send-event gp-0 'pickup (target-pos 0))
|
|
(go-virtual idle)
|
|
)
|
|
)
|
|
(format #t "ERROR<GMJ>: ~S no cell spawned~%" (-> self name))
|
|
(send-event *target* 'get-pickup 6 (the float (-> self cell-for-task)))
|
|
)
|
|
(else
|
|
(format
|
|
#t
|
|
"ERROR<GMJ>: ~S got into give-cell with give-cell == #f task = ~S~%"
|
|
(-> self name)
|
|
(game-task->string (current-task (-> self tasks)))
|
|
)
|
|
)
|
|
)
|
|
(go-virtual release)
|
|
(dummy-33 self)
|
|
((-> self cur-trans-hook))
|
|
(none)
|
|
)
|
|
:code
|
|
process-taskable-anim-loop
|
|
:post
|
|
(the-as (function none :behavior process-taskable) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate lose (process-taskable)
|
|
:virtual #t
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(if
|
|
(and
|
|
(>= (- (-> *display* base-frame-counter) (-> self state-time)) 1500)
|
|
(or
|
|
(not *target*)
|
|
(<
|
|
20480.0
|
|
(vector-vector-distance
|
|
(-> self root-override trans)
|
|
(-> *target* control trans)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(go-virtual idle)
|
|
)
|
|
((-> self cur-trans-hook))
|
|
(none)
|
|
)
|
|
:code
|
|
process-taskable-anim-loop
|
|
:post
|
|
(the-as (function none :behavior process-taskable) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate enter-playing (process-taskable)
|
|
:virtual #t
|
|
:code
|
|
process-taskable-anim-loop
|
|
:post
|
|
(the-as (function none :behavior process-taskable) ja-post)
|
|
)
|
|
|
|
;; definition for function process-taskable-play-anim-enter
|
|
(defbehavior process-taskable-play-anim-enter process-taskable ()
|
|
(init! (-> self query) (the-as string #f) 40 150 25 #t (the-as string #f))
|
|
(logior! (-> self skel status) 8)
|
|
(let ((gp-0 (get-process *default-dead-pool* othercam #x4000)))
|
|
(set! (-> self camera) (ppointer->handle (when gp-0
|
|
(let
|
|
((t9-2
|
|
(method-of-type
|
|
othercam
|
|
activate
|
|
)
|
|
)
|
|
)
|
|
(t9-2
|
|
(the-as othercam gp-0)
|
|
self
|
|
'othercam
|
|
(the-as pointer #x70004000)
|
|
)
|
|
)
|
|
(run-now-in-process
|
|
gp-0
|
|
othercam-init-by-other
|
|
self
|
|
(-> self cam-joint-index)
|
|
#f
|
|
#t
|
|
)
|
|
(-> gp-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self cell-for-task) (game-task none))
|
|
(set! (-> self skippable) #f)
|
|
(set! (-> self blend-on-exit) #f)
|
|
(set! (-> self will-talk) #f)
|
|
#f
|
|
)
|
|
|
|
;; definition for function process-taskable-play-anim-exit
|
|
(defbehavior process-taskable-play-anim-exit process-taskable ()
|
|
(set! (-> self skel status) (logand -9 (-> self skel status)))
|
|
(let ((a0-4 (handle->process (-> self camera))))
|
|
(if a0-4
|
|
(deactivate a0-4)
|
|
)
|
|
)
|
|
(set! (-> self last-talk) (the-as uint (-> *display* game-frame-counter)))
|
|
(dummy-52 self)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function process-taskable-play-anim-trans
|
|
(defbehavior process-taskable-play-anim-trans process-taskable ()
|
|
(if (nonzero? *camera-look-through-other*)
|
|
(set! *camera-look-through-other* 2)
|
|
)
|
|
(set-letterbox-frames 5)
|
|
(draw-npc-shadow self)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function process-taskable-play-anim-code
|
|
(defbehavior
|
|
process-taskable-play-anim-code process-taskable
|
|
((arg0 art-joint-anim) (arg1 basic))
|
|
(when (nonzero? (-> self cell-for-task))
|
|
(cond
|
|
((name= (-> self state name) "play-anim")
|
|
(let ((s4-0 (get-process *default-dead-pool* fuel-cell #x4000)))
|
|
(set! (-> self cell-x) (ppointer->handle (when s4-0
|
|
(let
|
|
((t9-2
|
|
(method-of-type
|
|
fuel-cell
|
|
activate
|
|
)
|
|
)
|
|
)
|
|
(t9-2
|
|
(the-as fuel-cell s4-0)
|
|
self
|
|
'fuel-cell
|
|
(the-as pointer #x70004000)
|
|
)
|
|
)
|
|
(run-now-in-process
|
|
s4-0
|
|
fuel-cell-init-as-clone
|
|
(process->handle self)
|
|
(-> self cell-for-task)
|
|
)
|
|
(-> s4-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(format
|
|
#t
|
|
"ERROR<GMJ>: ~S ~S trying to give cell on release~%"
|
|
(-> self name)
|
|
(-> self state name)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((and arg1 (type-type? (-> arg1 type) spool-anim))
|
|
(when *target*
|
|
(while (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) 'clone-anim)
|
|
(set! (-> a1-9 param 0) (the-as uint self))
|
|
(not (send-event-function *target* a1-9))
|
|
)
|
|
(spool-push *art-control* (-> (the-as spool-anim arg1) name) 0 self -99.0)
|
|
(format #t "WARNING: ~A stall on not cloning.~%" (-> self name))
|
|
(suspend)
|
|
)
|
|
(send-event (ppointer->process (-> *target* sidekick)) 'matrix 'play-anim)
|
|
(send-event *target* 'blend-shape #t)
|
|
)
|
|
(push-setting!
|
|
*setting-control*
|
|
self
|
|
'music-volume
|
|
'rel
|
|
(-> *setting-control* current music-volume-movie)
|
|
0
|
|
)
|
|
(push-setting!
|
|
*setting-control*
|
|
self
|
|
'sfx-volume
|
|
'rel
|
|
(-> *setting-control* current sfx-volume-movie)
|
|
0
|
|
)
|
|
(push-setting!
|
|
*setting-control*
|
|
self
|
|
'ambient-volume
|
|
'rel
|
|
(-> *setting-control* current ambient-volume-movie)
|
|
0
|
|
)
|
|
(if (-> self blend-on-exit)
|
|
(set! (-> self blend-on-exit) arg0)
|
|
)
|
|
(if (and *debug-segment* *cheat-mode*)
|
|
(ja-play-spooled-anim
|
|
(the-as spool-anim arg1)
|
|
arg0
|
|
(the-as art-joint-anim (-> self blend-on-exit))
|
|
(lambda ((arg0 process-taskable))
|
|
(= (get-response (-> arg0 query)) 'no)
|
|
)
|
|
)
|
|
(ja-play-spooled-anim
|
|
(the-as spool-anim arg1)
|
|
arg0
|
|
(the-as art-joint-anim (-> self blend-on-exit))
|
|
(the-as (function process-drawable symbol) false-func)
|
|
)
|
|
)
|
|
(clear-pending-settings-from-process *setting-control* self 'music-volume)
|
|
(clear-pending-settings-from-process *setting-control* self 'sfx-volume)
|
|
(clear-pending-settings-from-process *setting-control* self 'ambient-volume)
|
|
(send-event *target* 'blend-shape #f)
|
|
)
|
|
(else
|
|
(when (not arg1)
|
|
(format
|
|
#t
|
|
"ERROR<GMJ>: ~S ~S got #f from anim picker~%"
|
|
(-> self name)
|
|
(-> self state name)
|
|
)
|
|
(set! arg1 (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
)
|
|
(when (not (type-type? (-> arg1 type) art-joint-anim))
|
|
(format
|
|
0
|
|
"ERROR<GMJ>: ~S ~S anim picker didn't return spool-anim or joint-art-anim (probably need to override it)~%"
|
|
(-> self name)
|
|
(-> self state name)
|
|
)
|
|
(set! arg1 (if (> (-> self skel active-channels) 0)
|
|
(-> self skel root-channel 0 frame-group)
|
|
)
|
|
)
|
|
)
|
|
(format
|
|
#t
|
|
"~S ~S anim ~S~%"
|
|
(-> self name)
|
|
(-> self state name)
|
|
(-> (the-as art-joint-anim arg1) name)
|
|
)
|
|
(ja-channel-push! 1 60)
|
|
(set!
|
|
(-> self skel root-channel 0 frame-group)
|
|
(the-as art-joint-anim arg1)
|
|
)
|
|
(when (< (ja-num-frames 0) 3)
|
|
(suspend)
|
|
(suspend)
|
|
0
|
|
)
|
|
(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)
|
|
(when (and *debug-segment* (= (get-response (-> self query)) 'no))
|
|
(let ((v1-106 (-> self skel root-channel 0)))
|
|
(set! (-> v1-106 num-func) num-func-identity)
|
|
(set!
|
|
(-> v1-106 frame-num)
|
|
(the float (+ (-> v1-106 frame-group data 0 length) -1))
|
|
)
|
|
)
|
|
)
|
|
(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!
|
|
)
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate play-accept (process-taskable)
|
|
:virtual #t
|
|
:enter
|
|
(the-as
|
|
(function none :behavior process-taskable)
|
|
process-taskable-play-anim-enter
|
|
)
|
|
:exit
|
|
process-taskable-play-anim-exit
|
|
:trans
|
|
(behavior ()
|
|
(process-taskable-play-anim-trans)
|
|
((-> self cur-trans-hook))
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(process-taskable-play-anim-code
|
|
(the-as art-joint-anim (get-art-elem self))
|
|
(get-accept-anim self #t)
|
|
)
|
|
(while (not (process-release? *target*))
|
|
(suspend)
|
|
)
|
|
(go-virtual enter-playing)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior process-taskable) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate play-reject (process-taskable)
|
|
:virtual #t
|
|
:enter
|
|
(the-as
|
|
(function none :behavior process-taskable)
|
|
process-taskable-play-anim-enter
|
|
)
|
|
:exit
|
|
process-taskable-play-anim-exit
|
|
:trans
|
|
(behavior ()
|
|
(process-taskable-play-anim-trans)
|
|
((-> self cur-trans-hook))
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(process-taskable-play-anim-code
|
|
(the-as art-joint-anim (get-art-elem self))
|
|
(get-reject-anim self #t)
|
|
)
|
|
(go-virtual release)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior process-taskable) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate query (process-taskable)
|
|
:virtual #t
|
|
:enter
|
|
(behavior ()
|
|
(init!
|
|
(-> self query)
|
|
(lookup-text! *common-text* (game-text-id confirm-play) #f)
|
|
40
|
|
150
|
|
25
|
|
#f
|
|
(lookup-text! *common-text* (game-text-id quit) #f)
|
|
)
|
|
(none)
|
|
)
|
|
:exit
|
|
process-taskable-play-anim-exit
|
|
:trans
|
|
(behavior ()
|
|
(case (current-status (-> self tasks))
|
|
(((task-status need-reminder-a))
|
|
(case (get-response (-> self query))
|
|
(('yes)
|
|
(go-virtual play-accept)
|
|
)
|
|
(('no)
|
|
(go-virtual play-reject)
|
|
)
|
|
)
|
|
(push-accept-anim self)
|
|
)
|
|
(else
|
|
(let ((gp-0 (get-response (-> self query))))
|
|
(cond
|
|
((and (= gp-0 'yes) (process-release? *target*))
|
|
(go-virtual enter-playing)
|
|
)
|
|
((= gp-0 'no)
|
|
(go-virtual play-reject)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(push-reject-anim self)
|
|
(set! *camera-look-through-other* 2)
|
|
((-> self cur-trans-hook))
|
|
(none)
|
|
)
|
|
:code
|
|
process-taskable-anim-loop
|
|
:post
|
|
(the-as (function none :behavior process-taskable) ja-post)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate play-anim (process-taskable)
|
|
:virtual #t
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('shadow)
|
|
(cond
|
|
((-> arg3 param 0)
|
|
(let ((v0-0 (the-as object (-> self shadow-backup))))
|
|
(set! (-> self draw shadow) (the-as shadow-geo v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self draw shadow) #f)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(('shadow-min-max)
|
|
(let ((v1-5 (-> self draw shadow-ctrl)))
|
|
(let ((a0-4 v1-5))
|
|
(set!
|
|
(-> a0-4 settings bot-plane w)
|
|
(- (the-as float (-> arg3 param 0)))
|
|
)
|
|
)
|
|
0
|
|
(set! (-> v1-5 settings top-plane w) (- (the-as float (-> arg3 param 1))))
|
|
)
|
|
0
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(the-as
|
|
(function none :behavior process-taskable)
|
|
process-taskable-play-anim-enter
|
|
)
|
|
:exit
|
|
process-taskable-play-anim-exit
|
|
:trans
|
|
(behavior ()
|
|
(process-taskable-play-anim-trans)
|
|
(let ((a3-0 (handle->process (-> self cell-x))))
|
|
(if a3-0
|
|
(spool-push *art-control* (-> self fuel-cell-anim name) 0 a3-0 -99.0)
|
|
)
|
|
)
|
|
((-> self cur-trans-hook))
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(process-taskable-play-anim-code
|
|
(the-as art-joint-anim (get-art-elem self))
|
|
(play-anim! self #t)
|
|
)
|
|
(dummy-38 self)
|
|
(none)
|
|
)
|
|
:post
|
|
(the-as (function none :behavior process-taskable) ja-post)
|
|
)
|
|
|
|
;; definition for function process-taskable-clean-up-after-talking
|
|
(defbehavior process-taskable-clean-up-after-talking process-taskable ()
|
|
(set! (-> self draw status) (logand -3 (-> self draw status)))
|
|
(set! (-> self skel status) (logand -2 (-> self skel status)))
|
|
(clear-pending-settings-from-process *setting-control* self 'border-mode)
|
|
(clear-pending-settings-from-process *setting-control* self 'talking)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 39 of type process-taskable
|
|
(defmethod should-display? process-taskable ((obj process-taskable))
|
|
#t
|
|
)
|
|
|
|
;; definition for function process-taskable-hide-handler
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defbehavior
|
|
process-taskable-hide-handler process-taskable
|
|
((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(case arg2
|
|
(('clone)
|
|
(go-virtual be-clone (the-as handle (-> arg3 param 0)))
|
|
)
|
|
(('play-anim)
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(set! (-> self been-kicked) #t)
|
|
(go-virtual idle)
|
|
)
|
|
(('hidden-other)
|
|
(go-virtual hidden-other)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function process-taskable-hide-enter
|
|
;; INFO: Return type mismatch none vs int.
|
|
(defbehavior process-taskable-hide-enter process-taskable ()
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(let ((v1-3 (-> self draw shadow-ctrl)))
|
|
(logior! (-> v1-3 settings flags) 32)
|
|
)
|
|
0
|
|
(process-taskable-clean-up-after-talking)
|
|
(dummy-48 (-> self root-override))
|
|
(ja-channel-set! 0)
|
|
(the-as int (ja-post))
|
|
)
|
|
|
|
;; definition for function process-taskable-hide-exit
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defbehavior process-taskable-hide-exit process-taskable ((arg0 symbol))
|
|
(cond
|
|
(arg0
|
|
(process-entity-status! self (entity-perm-status bit-3) #f)
|
|
)
|
|
(else
|
|
(ja-channel-set! 1)
|
|
(let ((gp-0 (-> self skel root-channel 0)))
|
|
(set! (-> gp-0 frame-group) (the-as art-joint-anim (get-art-elem self)))
|
|
)
|
|
(dummy-49 (-> self root-override))
|
|
(process-entity-status! self (entity-perm-status bit-3) #t)
|
|
(let ((v1-7 (-> self draw shadow-ctrl)))
|
|
(set! (-> v1-7 settings flags) (logand -33 (-> v1-7 settings flags)))
|
|
)
|
|
0
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate hidden (process-taskable)
|
|
:virtual #t
|
|
:event
|
|
(the-as
|
|
(function process int symbol event-message-block object :behavior process-taskable)
|
|
process-taskable-hide-handler
|
|
)
|
|
:enter
|
|
(the-as
|
|
(function none :behavior process-taskable)
|
|
process-taskable-hide-enter
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(process-taskable-hide-exit (= (-> self next-state name) 'hidden))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(if (>= (- (-> *display* base-frame-counter) (-> self state-time)) 300)
|
|
(process-entity-status! self (entity-perm-status bit-3) #f)
|
|
)
|
|
(if (or (-> self been-kicked) (should-display? self))
|
|
(go-virtual idle)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(the-as (function none :behavior process-taskable) anim-loop)
|
|
)
|
|
|
|
;; definition for method 50 of type process-taskable
|
|
;; WARN: disable def twice: 4. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
|
|
(defmethod TODO-RENAME-50 process-taskable ((obj process-taskable))
|
|
(if *target*
|
|
(or
|
|
(not *target*)
|
|
(<
|
|
245760.0
|
|
(vector-vector-distance
|
|
(-> obj root-override trans)
|
|
(-> *target* control trans)
|
|
)
|
|
)
|
|
)
|
|
(<
|
|
60397978000.0
|
|
(vector-vector-distance-squared
|
|
(the-as vector (-> obj root-override root-prim prim-core))
|
|
(camera-pos)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate hidden-other (process-taskable)
|
|
:virtual #t
|
|
:event
|
|
(the-as
|
|
(function process int symbol event-message-block object :behavior process-taskable)
|
|
process-taskable-hide-handler
|
|
)
|
|
:enter
|
|
(the-as
|
|
(function none :behavior process-taskable)
|
|
process-taskable-hide-enter
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(process-taskable-hide-exit (= (-> self next-state name) 'hidden-other))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(if (>= (- (-> *display* base-frame-counter) (-> self state-time)) 300)
|
|
(process-entity-status! self (entity-perm-status bit-3) #f)
|
|
)
|
|
(cond
|
|
((-> self been-kicked)
|
|
(go-virtual idle)
|
|
)
|
|
((TODO-RENAME-50 self)
|
|
(if (should-display? self)
|
|
(go-virtual idle)
|
|
(go-virtual hidden)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:code
|
|
(the-as (function none :behavior process-taskable) anim-loop)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate be-clone (process-taskable)
|
|
:virtual #t
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(let ((v1-0 arg2))
|
|
(the-as shadow-geo (cond
|
|
((= v1-0 'shadow)
|
|
(the-as shadow-geo (cond
|
|
((-> arg3 param 0)
|
|
(let
|
|
((v0-0 (-> self shadow-backup)))
|
|
(set! (-> self draw shadow) v0-0)
|
|
v0-0
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self draw shadow) #f)
|
|
(the-as shadow-geo #f)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((= v1-0 'shadow-min-max)
|
|
(let ((v1-5 (-> self draw shadow-ctrl)))
|
|
(let ((a0-5 v1-5))
|
|
(set!
|
|
(-> a0-5 settings bot-plane w)
|
|
(- (the-as float (-> arg3 param 0)))
|
|
)
|
|
)
|
|
0
|
|
(set!
|
|
(-> v1-5 settings top-plane w)
|
|
(- (the-as float (-> arg3 param 1)))
|
|
)
|
|
)
|
|
(the-as shadow-geo 0)
|
|
)
|
|
((= v1-0 'end-mode)
|
|
(the-as shadow-geo (if (should-display? self)
|
|
(the-as
|
|
shadow-geo
|
|
(go-virtual idle)
|
|
)
|
|
(the-as
|
|
shadow-geo
|
|
(go-virtual hidden)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ((arg0 handle))
|
|
(logior! (-> self skel status) 8)
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(set-vector!
|
|
(-> self draw bounds)
|
|
0.0
|
|
(-> self draw-bounds-y-offset)
|
|
0.0
|
|
(-> self draw bounds w)
|
|
)
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(set! (-> self skel status) (logand -41 (-> self skel status)))
|
|
(logior! (-> self mask) (process-mask actor-pause))
|
|
(let ((v1-6 (-> self entity extra trans)))
|
|
(if v1-6
|
|
(set! (-> self root-override trans quad) (-> v1-6 quad))
|
|
)
|
|
)
|
|
(ja-channel-set! 0)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(draw-npc-shadow self)
|
|
((-> self cur-trans-hook))
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ((arg0 handle))
|
|
(clone-anim arg0 (-> self center-joint-index) #t "")
|
|
(format #t "ERROR<GMJ>: handle invalid while ~S is cloning~%" (-> self name))
|
|
(go-virtual hidden)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 47 of type process-taskable
|
|
(defmethod target-above-threshold? process-taskable ((obj process-taskable))
|
|
#t
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (process-taskable)
|
|
:virtual #t
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(let ((v1-0 arg2))
|
|
(the-as object (cond
|
|
((= v1-0 'attack)
|
|
(the-as symbol (when (-> self bounce-away)
|
|
(let
|
|
((a1-3
|
|
(new 'stack-no-clear 'event-message-block
|
|
)
|
|
)
|
|
)
|
|
(set! (-> a1-3 from) self)
|
|
(set! (-> a1-3 num-params) 2)
|
|
(set! (-> a1-3 message) 'shove)
|
|
(set! (-> a1-3 param 0) (the-as uint #f))
|
|
(let
|
|
((v1-4
|
|
(new 'static 'attack-info :mask #xc0)
|
|
)
|
|
)
|
|
(set! (-> v1-4 shove-back) 12288.0)
|
|
(set! (-> v1-4 shove-up) 4096.0)
|
|
(set!
|
|
(-> a1-3 param 1)
|
|
(the-as uint v1-4)
|
|
)
|
|
)
|
|
(the-as
|
|
symbol
|
|
(send-event-function arg0 a1-3)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((= v1-0 'touch)
|
|
(the-as
|
|
symbol
|
|
(dummy-55
|
|
(-> self root-override)
|
|
arg0
|
|
(-> arg3 param 0)
|
|
0.7
|
|
6144.0
|
|
16384.0
|
|
)
|
|
)
|
|
)
|
|
((= v1-0 'clone)
|
|
(the-as
|
|
symbol
|
|
(go-virtual be-clone (the-as handle (-> arg3 param 0)))
|
|
)
|
|
)
|
|
((= v1-0 'play-anim)
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(let ((v0-0 #t))
|
|
(set! (-> self been-kicked) v0-0)
|
|
v0-0
|
|
)
|
|
)
|
|
((= v1-0 'hidden-other)
|
|
(the-as symbol (go-virtual hidden-other))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ()
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(process-taskable-clean-up-after-talking)
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(cond
|
|
((or
|
|
(= (-> self next-state name) 'dead-state)
|
|
(= (-> self next-state name) 'idle)
|
|
)
|
|
(process-entity-status! self (entity-perm-status bit-3) #f)
|
|
)
|
|
(else
|
|
(kill-current-level-hint '() '() 'exit)
|
|
(logior! (-> self skel status) 1)
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(process-entity-status! self (entity-perm-status bit-3) #t)
|
|
(set-setting! *setting-control* self 'border-mode #f 0.0 0)
|
|
(set-setting!
|
|
*setting-control*
|
|
self
|
|
'talking
|
|
(the-as symbol (process->ppointer self))
|
|
0.0
|
|
0
|
|
)
|
|
(copy-settings-from-target! *setting-control*)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(when (>= (- (-> *display* base-frame-counter) (-> self state-time)) 60)
|
|
(logior! (-> self mask) (process-mask actor-pause))
|
|
(process-entity-status! self (entity-perm-status bit-3) #f)
|
|
)
|
|
(cond
|
|
((not *target*)
|
|
)
|
|
((not (-> self will-talk))
|
|
(if
|
|
(>=
|
|
(- (-> *display* game-frame-counter) (the-as int (-> self last-talk)))
|
|
3000
|
|
)
|
|
(set! (-> self will-talk) #t)
|
|
)
|
|
)
|
|
((begin
|
|
(dummy-46 self)
|
|
(and
|
|
(not
|
|
(and
|
|
(logtest? (-> *target* control unknown-surface00 flags) 2048)
|
|
(zero? (logand (-> *target* control status) 1))
|
|
)
|
|
)
|
|
(<
|
|
(-> (target-pos 0) y)
|
|
(+ 8192.0 (-> self root-override root-prim prim-core world-sphere y))
|
|
)
|
|
(<
|
|
(vector-vector-distance
|
|
(target-pos 0)
|
|
(the-as vector (-> self root-override root-prim prim-core))
|
|
)
|
|
32768.0
|
|
)
|
|
(= (-> *level* loading-level) (-> *level* level-default))
|
|
(not (movie?))
|
|
(not (level-hint-displayed?))
|
|
(none-reserved? *art-control*)
|
|
(not *progress-process*)
|
|
(and
|
|
(not (handle->process (-> *game-info* other-camera-handle)))
|
|
(close-anim-file! self)
|
|
)
|
|
)
|
|
)
|
|
(first-any (-> self tasks) #t)
|
|
(when (target-above-threshold? self)
|
|
(case (current-status (-> self tasks))
|
|
(((task-status need-hint)
|
|
(task-status need-introduction)
|
|
(task-status need-reminder)
|
|
(task-status need-reminder-a)
|
|
(task-status need-reward-speech)
|
|
)
|
|
(kill-current-level-hint '() '(sidekick voicebox ambient) 'exit)
|
|
(level-hint-surpress!)
|
|
(hide-hud)
|
|
(when (and (hud-hidden?) (can-grab-display? self))
|
|
(let
|
|
((gp-1
|
|
(new
|
|
'stack
|
|
'font-context
|
|
*font-default-matrix*
|
|
32
|
|
140
|
|
0.0
|
|
(font-color default)
|
|
(font-flags shadow kerning)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-57 gp-1))
|
|
(set! (-> v1-57 width) (the float 440))
|
|
)
|
|
(let ((v1-58 gp-1))
|
|
(set! (-> v1-58 height) (the float 60))
|
|
)
|
|
(let ((v1-59 gp-1))
|
|
(set! (-> v1-59 scale) 0.9)
|
|
)
|
|
(set! (-> gp-1 flags) (font-flags shadow kerning left large))
|
|
(print-game-text
|
|
(lookup-text!
|
|
*common-text*
|
|
(the-as game-text-id (-> self talk-message))
|
|
#f
|
|
)
|
|
gp-1
|
|
#f
|
|
128
|
|
22
|
|
)
|
|
)
|
|
(when
|
|
(and
|
|
(logtest?
|
|
(-> *cpad-list* cpads 0 button0-rel 0)
|
|
(pad-buttons circle)
|
|
)
|
|
(process-grab? *target*)
|
|
)
|
|
(logclear!
|
|
(-> *cpad-list* cpads 0 button0-abs 0)
|
|
(pad-buttons circle)
|
|
)
|
|
(logclear!
|
|
(-> *cpad-list* cpads 0 button0-rel 0)
|
|
(pad-buttons circle)
|
|
)
|
|
(send-event *target* 'trans 'save (-> self old-target-pos))
|
|
(go-virtual play-anim)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (= (-> *level* loading-level) (-> *level* level-default))
|
|
(dummy-33 self)
|
|
)
|
|
(draw-npc-shadow self)
|
|
(when
|
|
(and
|
|
(-> self been-kicked)
|
|
(and
|
|
(not *progress-process*)
|
|
(process-grab? *target*)
|
|
(not (handle->process (-> *game-info* other-camera-handle)))
|
|
)
|
|
)
|
|
(set! (-> self been-kicked) #f)
|
|
(send-event *target* 'trans 'save (-> self old-target-pos))
|
|
(go-virtual play-anim)
|
|
)
|
|
((-> self cur-trans-hook))
|
|
(none)
|
|
)
|
|
:code
|
|
process-taskable-anim-loop
|
|
:post
|
|
(behavior ()
|
|
(when *target*
|
|
(when (!= (-> self neck-joint-index) -1)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace! gp-0 (-> self node-list data (-> self neck-joint-index)))
|
|
(if *target*
|
|
(look-at-enemy! (-> *target* neck) gp-0 'nothing self)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(transform-post)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 41 of type process-taskable
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod
|
|
initialize-collision
|
|
process-taskable
|
|
((obj process-taskable) (arg0 int) (arg1 vector))
|
|
(let
|
|
((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player))))
|
|
(let ((s4-0 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
|
|
(set! (-> s4-0 prim-core collide-as) (the-as uint 256))
|
|
(set! (-> s4-0 collide-with) (the-as uint 16))
|
|
(set! (-> s4-0 prim-core action) (the-as uint 1))
|
|
(set! (-> s4-0 prim-core offense) 4)
|
|
(set! (-> s4-0 transform-index) arg0)
|
|
(set-vector!
|
|
(-> s4-0 local-sphere)
|
|
(-> arg1 x)
|
|
(-> arg1 y)
|
|
(-> arg1 z)
|
|
(-> arg1 w)
|
|
)
|
|
)
|
|
(dummy-46 s5-0)
|
|
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
|
|
(dummy-50 s5-0)
|
|
(set! (-> obj root-override) s5-0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 40 of type process-taskable
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod
|
|
dummy-40
|
|
process-taskable
|
|
((obj process-taskable)
|
|
(arg0 object)
|
|
(arg1 skeleton-group)
|
|
(arg2 int)
|
|
(arg3 int)
|
|
(arg4 vector)
|
|
(arg5 int)
|
|
)
|
|
(let ((s3-0 arg2)
|
|
(s4-0 arg3)
|
|
(s0-0 arg4)
|
|
(s5-0 arg5)
|
|
)
|
|
(stack-size-set! (-> obj main-thread) 512)
|
|
(initialize-collision obj s3-0 s0-0)
|
|
(process-drawable-from-entity! obj (the-as entity-actor arg0))
|
|
(let* ((a0-4 obj)
|
|
(t9-3 (method-of-object a0-4 initialize-skeleton))
|
|
(a2-2 '())
|
|
(a1-4 arg1)
|
|
)
|
|
(t9-3 a0-4 a1-4 a2-2)
|
|
(set! (-> obj shadow-backup) (-> obj draw shadow))
|
|
(logior! (-> obj skel status) 256)
|
|
(set! (-> obj root-override pause-adjust-distance) -122880.0)
|
|
(set! (-> obj fuel-cell-anim) (fuel-cell-pick-anim obj))
|
|
(set! (-> obj draw origin-joint-index) (the-as uint s3-0))
|
|
(set! (-> obj draw shadow-joint-index) (the-as uint s3-0))
|
|
(set! (-> obj center-joint-index) s3-0)
|
|
(set! (-> obj draw-bounds-y-offset) (-> obj draw bounds y))
|
|
(set! (-> obj have-flava) #f)
|
|
(set! (-> obj music) #f)
|
|
(set! (-> obj have-music) #f)
|
|
(set! (-> obj cam-joint-index) s4-0)
|
|
(set! (-> obj cell-x) (the-as handle #f))
|
|
(set! (-> obj cell-for-task) (game-task none))
|
|
(set! (-> obj camera) (the-as handle #f))
|
|
(set! (-> obj will-talk) #t)
|
|
(set! (-> obj talk-message) (the-as uint 260))
|
|
(set! (-> obj last-talk) (the-as uint 0))
|
|
(set! (-> obj bounce-away) #t)
|
|
(set! (-> obj been-kicked) #f)
|
|
(set! (-> obj neck-joint-index) s5-0)
|
|
(set! (-> obj cur-trans-hook) nothing)
|
|
(dummy-9
|
|
(-> obj ambient)
|
|
(the-as vector a1-4)
|
|
(the-as int a2-2)
|
|
(the-as float arg2)
|
|
(the-as process-drawable arg3)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> obj event-hook) (-> (method-of-object obj idle) event))
|
|
(set!
|
|
(-> obj draw shadow-ctrl)
|
|
(new 'process 'shadow-control 0.0 0.0 614400.0 (the-as float 60) 245760.0)
|
|
)
|
|
(dummy-52 obj)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 42 of type process-taskable
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod dummy-42 process-taskable ((obj process-taskable))
|
|
(cond
|
|
((not (should-display? obj))
|
|
(go (method-of-object obj hidden))
|
|
)
|
|
((= (current-status (-> obj tasks)) (task-status need-resolution))
|
|
(go (method-of-object obj give-cell))
|
|
)
|
|
(else
|
|
(go (method-of-object obj idle))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 43 of type process-taskable
|
|
;; INFO: Return type mismatch int vs symbol.
|
|
(defmethod TODO-RENAME-43 process-taskable ((obj process-taskable))
|
|
(the-as symbol 0)
|
|
)
|
|
|
|
;; definition for method 9 of type ambient-control
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defmethod
|
|
dummy-9
|
|
ambient-control
|
|
((obj ambient-control)
|
|
(arg0 vector)
|
|
(arg1 int)
|
|
(arg2 float)
|
|
(arg3 process-drawable)
|
|
)
|
|
(set! (-> obj last-ambient-time) (-> *display* game-frame-counter))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 10 of type ambient-control
|
|
(defmethod
|
|
TODO-RENAME-10
|
|
ambient-control
|
|
((obj ambient-control)
|
|
(arg0 vector)
|
|
(arg1 int)
|
|
(arg2 float)
|
|
(arg3 process-drawable)
|
|
)
|
|
(when
|
|
(< (- (-> *display* game-frame-counter) (-> obj last-ambient-time)) arg1)
|
|
(set! arg0 (the-as vector #f))
|
|
(goto cfg-6)
|
|
)
|
|
(vector-for-ambient arg3 arg0)
|
|
(when (< arg2 (vector-length arg0))
|
|
(set! arg0 (the-as vector #f))
|
|
(goto cfg-6)
|
|
)
|
|
(label cfg-6)
|
|
arg0
|
|
)
|
|
|
|
;; definition for method 11 of type ambient-control
|
|
(defmethod
|
|
play-ambient
|
|
ambient-control
|
|
((obj ambient-control) (arg0 string) (arg1 symbol) (arg2 vector))
|
|
(when
|
|
(and
|
|
(not (string= arg0 (-> obj last-ambient)))
|
|
(or
|
|
arg1
|
|
(can-hint-be-played?
|
|
(game-text-id one)
|
|
(the-as entity #f)
|
|
(the-as string #f)
|
|
)
|
|
)
|
|
(= (-> *level* loading-level) (-> *level* level-default))
|
|
(ambient-hint-spawn arg0 arg2 *entity-pool* 'ambient)
|
|
)
|
|
(set! (-> obj last-ambient-time) (-> *display* game-frame-counter))
|
|
(set! (-> obj last-ambient) arg0)
|
|
(return #t)
|
|
)
|
|
#f
|
|
)
|
|
|
|
;; definition for function vector-for-ambient
|
|
(defun vector-for-ambient ((arg0 process-drawable) (arg1 vector))
|
|
(if *target*
|
|
(vector-! arg1 (target-pos 0) (-> arg0 root trans))
|
|
(vector-! arg1 (camera-pos) (-> arg0 root trans))
|
|
)
|
|
arg1
|
|
)
|
|
|
|
;; definition for function othercam-calc
|
|
(defun othercam-calc ((arg0 float))
|
|
(let ((f0-3 (* 2.0 (atan (/ 14.941477 (* 20.3 arg0)) 1.0))))
|
|
(set! (-> *camera-other-fov* data) f0-3)
|
|
f0-3
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate othercam-running (othercam)
|
|
:event
|
|
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(local-vars (v0-0 object))
|
|
(case arg2
|
|
(('die)
|
|
(set! v0-0 #t)
|
|
(set! (-> self die?) (the-as symbol v0-0))
|
|
v0-0
|
|
)
|
|
(('joint)
|
|
(let ((t9-0 type-type?)
|
|
(v1-1 (-> arg3 param 0))
|
|
)
|
|
(cond
|
|
((t9-0 (rtype-of v1-1) string)
|
|
(let
|
|
((v1-8
|
|
(dummy-10
|
|
(-> (the-as process-taskable (-> self hand process 0)) draw jgeo)
|
|
(the-as string (-> arg3 param 0))
|
|
(the-as type #f)
|
|
)
|
|
)
|
|
)
|
|
(when v1-8
|
|
(set! v0-0 (+ (-> v1-8 number) 1))
|
|
(set! (-> self cam-joint-index) (the-as int v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
((zero? (logand (-> arg3 param 0) 7))
|
|
(set! v0-0 (-> arg3 param 0))
|
|
(set! (-> self cam-joint-index) (the-as int v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('mask)
|
|
(set! v0-0 (-> arg3 param 0))
|
|
(set! (-> self mask-to-clear) (the-as uint v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
:enter
|
|
(behavior ()
|
|
(hide-hud-quick)
|
|
(case (-> self spooling?)
|
|
(('logo)
|
|
)
|
|
(else
|
|
(push-setting!
|
|
*setting-control*
|
|
self
|
|
'process-mask
|
|
'set
|
|
0.0
|
|
(-> self mask-to-clear)
|
|
)
|
|
(push-setting!
|
|
*setting-control*
|
|
self
|
|
'movie
|
|
(process->ppointer self)
|
|
0.0
|
|
0
|
|
)
|
|
(if (not (-> self border-value))
|
|
(push-setting!
|
|
*setting-control*
|
|
self
|
|
'border-mode
|
|
(-> self border-value)
|
|
0.0
|
|
0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self had-valid-frame) #f)
|
|
(let ((gp-0 (-> self hand process 0)))
|
|
(vector<-cspace!
|
|
(-> self old-pos)
|
|
(->
|
|
(the-as process-taskable gp-0)
|
|
node-list
|
|
data
|
|
(-> self cam-joint-index)
|
|
)
|
|
)
|
|
(let
|
|
((v1-19
|
|
(->
|
|
(the-as process-taskable gp-0)
|
|
node-list
|
|
data
|
|
(-> self cam-joint-index)
|
|
bone
|
|
transform
|
|
)
|
|
)
|
|
)
|
|
(vector-normalize-copy! (-> self old-mat-z) (-> v1-19 vector 2) -1.0)
|
|
)
|
|
)
|
|
(copy-settings-from-target! *setting-control*)
|
|
(none)
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(clear-pending-settings-from-process *setting-control* self 'process-mask)
|
|
(copy-settings-from-target! *setting-control*)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(while #t
|
|
(let ((s2-0 (-> self hand process 0)))
|
|
(when (not s2-0)
|
|
(format #t "ERROR<GMJ>: othercam parent invalid~%")
|
|
(deactivate self)
|
|
)
|
|
(set!
|
|
(-> *camera-other-root* quad)
|
|
(-> (the-as process-taskable s2-0) root-override trans quad)
|
|
)
|
|
(let
|
|
((s4-0
|
|
(->
|
|
(the-as process-taskable s2-0)
|
|
node-list
|
|
data
|
|
(-> self cam-joint-index)
|
|
bone
|
|
transform
|
|
)
|
|
)
|
|
(s3-0
|
|
(->
|
|
(the-as process-taskable s2-0)
|
|
node-list
|
|
data
|
|
(-> self cam-joint-index)
|
|
bone
|
|
scale
|
|
)
|
|
)
|
|
(gp-0 (new 'stack-no-clear 'vector))
|
|
(s5-0 (new 'stack-no-clear 'vector))
|
|
(s1-0
|
|
(or
|
|
(!= (-> self spooling?) #t)
|
|
(logtest? (-> (the-as process-taskable s2-0) skel status) 32)
|
|
)
|
|
)
|
|
)
|
|
(vector<-cspace!
|
|
s5-0
|
|
(->
|
|
(the-as process-taskable s2-0)
|
|
node-list
|
|
data
|
|
(-> self cam-joint-index)
|
|
)
|
|
)
|
|
(vector-normalize-copy! gp-0 (-> s4-0 vector 2) -1.0)
|
|
(when s1-0
|
|
(when (not (-> self had-valid-frame))
|
|
(set! (-> self had-valid-frame) #t)
|
|
(set! (-> self old-pos quad) (-> s5-0 quad))
|
|
(set! (-> self old-mat-z quad) (-> gp-0 quad))
|
|
)
|
|
(when #t
|
|
(set! (-> *camera-other-trans* quad) (-> s5-0 quad))
|
|
(vector-normalize-copy!
|
|
(the-as vector (-> *camera-other-matrix* vector))
|
|
(the-as vector (-> s4-0 vector))
|
|
-1.0
|
|
)
|
|
(set! (-> *camera-other-matrix* vector 0 w) 0.0)
|
|
(vector-normalize-copy!
|
|
(-> *camera-other-matrix* vector 1)
|
|
(-> s4-0 vector 1)
|
|
1.0
|
|
)
|
|
(set! (-> *camera-other-matrix* vector 1 w) 0.0)
|
|
(vector-normalize-copy!
|
|
(-> *camera-other-matrix* vector 2)
|
|
(-> s4-0 vector 2)
|
|
-1.0
|
|
)
|
|
(set! (-> *camera-other-matrix* vector 2 w) 0.0)
|
|
(vector-reset! (-> *camera-other-matrix* vector 3))
|
|
(othercam-calc (-> s3-0 x))
|
|
)
|
|
(set! *camera-look-through-other* 2)
|
|
(set! (-> self old-pos quad) (-> s5-0 quad))
|
|
(set! (-> self old-mat-z quad) (-> gp-0 quad))
|
|
)
|
|
)
|
|
)
|
|
(suspend)
|
|
(let ((a0-25 (-> self hand process 0)))
|
|
(when
|
|
(or
|
|
(-> self die?)
|
|
(and (not (-> self survive-anim-end?)) (ja-anim-done? a0-25))
|
|
)
|
|
(let ((gp-1 (-> *display* base-frame-counter)))
|
|
(while
|
|
(and
|
|
(< (- (-> *display* base-frame-counter) gp-1) #x4650)
|
|
(or
|
|
(and
|
|
(-> self entity)
|
|
(not
|
|
(is-object-visible?
|
|
(-> self entity extra level)
|
|
(-> self entity extra vis-id)
|
|
)
|
|
)
|
|
)
|
|
(<
|
|
81920.0
|
|
(vector-vector-distance (camera-pos) (-> *math-camera* trans))
|
|
)
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
(deactivate self)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; definition for function othercam-init-by-other
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defbehavior
|
|
othercam-init-by-other othercam
|
|
((arg0 process-taskable) (arg1 symbol) (arg2 symbol) (arg3 symbol))
|
|
(set! (-> self spooling?) arg3)
|
|
(case (-> self spooling?)
|
|
(('logo)
|
|
)
|
|
(else
|
|
(set! (-> *game-info* other-camera-handle) (process->handle self))
|
|
)
|
|
)
|
|
(set! (-> self hand) (process->handle arg0))
|
|
(set! (-> self cam-joint-index) (the-as int arg1))
|
|
(logclear! (-> self mask) (process-mask pause menu actor-pause))
|
|
(set! (-> self border-value) #f)
|
|
(set! (-> self die?) #f)
|
|
(set! (-> self survive-anim-end?) arg2)
|
|
(set! (-> self mask-to-clear) (the-as uint #x4a0800))
|
|
(set! (-> self event-hook) (-> othercam-running event))
|
|
(go othercam-running)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 48 of type process-taskable
|
|
(defmethod draw-npc-shadow process-taskable ((obj process-taskable))
|
|
(let ((gp-0 (-> obj draw shadow-ctrl)))
|
|
(cond
|
|
((and
|
|
(-> obj draw shadow)
|
|
(zero? (-> obj draw cur-lod))
|
|
(logtest? (-> obj draw status) 8)
|
|
)
|
|
(dummy-15 gp-0 (-> obj draw origin) -4096.0 4096.0 32768.0)
|
|
(dummy-14 gp-0)
|
|
)
|
|
(else
|
|
(let ((v1-10 gp-0))
|
|
(logior! (-> v1-10 settings flags) 32)
|
|
)
|
|
0
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|