mirror of
https://github.com/open-goal/jak-project
synced 2026-06-24 01:41:29 -04:00
Hat Kid
122de4ecf5
After spending the last month staring at and comparing Jak 3 and Jak 1 versions of a bunch of `target` code for my jetboard mod, I figured this would be a good opportunity to revive this ancient PR #1714 along with some other small misc fixes/improvements. Instead of directly replacing the old fields, I decided to opt for using overlay fields to maintain backwards compatibility with existing manual patches, files without ref tests and mods that might use these fields.
2466 lines
83 KiB
Common Lisp
Vendored
Generated
2466 lines
83 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function clone-anim-once
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defbehavior clone-anim-once process-drawable ((arg0 handle) (arg1 int) (arg2 symbol) (arg3 string))
|
|
(logclear! (-> self skel status) (janim-status spool))
|
|
(let ((s5-0 (handle->process arg0)))
|
|
(if (the-as process-drawable s5-0)
|
|
(joint-control-copy! (-> self skel) (-> (the-as process-drawable s5-0) skel))
|
|
)
|
|
(cond
|
|
((and (the-as process-drawable s5-0) (joint-control-remap!
|
|
(-> self skel)
|
|
(-> self draw art-group)
|
|
(-> (the-as process-drawable s5-0) draw art-group)
|
|
'()
|
|
0
|
|
arg3
|
|
)
|
|
)
|
|
(when arg2
|
|
(let* ((s4-1 (-> self root))
|
|
(a0-7 (if (and (nonzero? s4-1) (type-type? (-> s4-1 type) collide-shape))
|
|
(the-as collide-shape s4-1)
|
|
)
|
|
)
|
|
)
|
|
(if a0-7
|
|
(move-to-point! a0-7 (-> (the-as process-drawable s5-0) root trans))
|
|
(set! (-> self root trans quad) (-> (the-as process-drawable s5-0) root trans quad))
|
|
)
|
|
)
|
|
(quaternion-copy! (-> self root quat) (-> (the-as process-drawable s5-0) root quat))
|
|
)
|
|
(if (logtest? (-> (the-as process-drawable s5-0) skel status) (janim-status spool))
|
|
(logior! (-> self skel status) (janim-status spool))
|
|
)
|
|
(logclear! (-> self draw status) (draw-status hidden no-anim))
|
|
(if (not (-> self skel root-channel 0 frame-group))
|
|
(logior! (-> self draw status) (draw-status no-anim))
|
|
)
|
|
(let* ((s5-1 self)
|
|
(v1-37 (if (and (nonzero? s5-1) (type-type? (-> s5-1 type) manipy))
|
|
s5-1
|
|
)
|
|
)
|
|
)
|
|
(if (and manipy (not (-> (the-as manipy v1-37) draw?)))
|
|
(logior! (-> self draw status) (draw-status no-anim))
|
|
)
|
|
)
|
|
(do-joint-math! self)
|
|
(let ((a0-22 (-> self skel effect)))
|
|
(if a0-22
|
|
(effect-control-method-9 a0-22)
|
|
)
|
|
)
|
|
(if (logtest? (-> self skel status) (janim-status blerc blerc-done))
|
|
(merc-blend-shape self)
|
|
)
|
|
(if (logtest? (-> self skel status) (janim-status eye-done eye))
|
|
(merc-eye-anim self)
|
|
)
|
|
)
|
|
(else
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(ja-post)
|
|
)
|
|
)
|
|
)
|
|
(if (>= arg1 0)
|
|
(vector<-cspace! (-> self draw origin) (-> self node-list data arg1))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function clone-anim
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defbehavior clone-anim process-drawable ((arg0 handle) (arg1 int) (arg2 symbol) (arg3 string))
|
|
(ja-post)
|
|
(while (handle->process arg0)
|
|
(clone-anim-once arg0 arg1 #t arg3)
|
|
(suspend)
|
|
)
|
|
(logclear! (-> self skel status) (janim-status spool))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate swingpole-stance (swingpole)
|
|
:code (behavior ()
|
|
(loop
|
|
(when (and *target*
|
|
(< (vector-vector-distance (-> self root trans) (-> *target* control unknown-vector90)) (-> self range))
|
|
(logtest? (-> *target* control root-prim prim-core action) (collide-action edgegrab-possible))
|
|
(< (-> *target* control unknown-vector90 y) (+ (-> self root trans y) (/ (-> self range) 2)))
|
|
)
|
|
(if (send-event *target* 'pole-grab self)
|
|
(go swingpole-active)
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate swingpole-active (swingpole)
|
|
:code (behavior ()
|
|
(suspend)
|
|
(while (and *target* (= (handle->process (-> *target* control unknown-handle10)) self))
|
|
(suspend)
|
|
)
|
|
(suspend-for (seconds 0.5)
|
|
)
|
|
(go swingpole-stance)
|
|
)
|
|
)
|
|
|
|
;; definition for method 11 of type swingpole
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this swingpole) (arg0 entity-actor))
|
|
"Copy defaults from the entity."
|
|
(stack-size-set! (-> this main-thread) 128)
|
|
(logior! (-> this mask) (process-mask actor-pause))
|
|
(set! (-> this root) (new 'process 'trsq))
|
|
(set! (-> this root trans quad) (-> arg0 extra trans quad))
|
|
(quaternion-copy! (-> this root quat) (-> arg0 quat))
|
|
(vector-identity! (-> this root scale))
|
|
(vector-y-quaternion! (-> this dir) (-> this root quat))
|
|
(set! (-> this dir y) 0.0)
|
|
(vector-normalize! (-> this dir) 1.0)
|
|
(set! (-> this range) 12288.0)
|
|
(set! (-> this edge-length) 8192.0)
|
|
(go swingpole-stance)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate die (process-hidden)
|
|
:virtual #t
|
|
:code nothing
|
|
)
|
|
|
|
;; definition for method 11 of type process-hidden
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this process-hidden) (arg0 entity-actor))
|
|
"Copy defaults from the entity."
|
|
(process-entity-status! this (entity-perm-status dead) #t)
|
|
(go (method-of-object this die))
|
|
(none)
|
|
)
|
|
|
|
;; definition of type target-start
|
|
(deftype target-start (process-hidden)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type target-start
|
|
(defmethod inspect ((this target-start))
|
|
(format #t "[~8x] ~A~%" this (-> this type))
|
|
(format #t "~Tname: ~A~%" (-> this name))
|
|
(format #t "~Tmask: ~D~%" (-> this mask))
|
|
(format #t "~Tparent: #x~X~%" (-> this parent))
|
|
(format #t "~Tbrother: #x~X~%" (-> this brother))
|
|
(format #t "~Tchild: #x~X~%" (-> this child))
|
|
(format #t "~Tppointer: #x~X~%" (-> this ppointer))
|
|
(format #t "~Tself: ~A~%" (-> this self))
|
|
(format #t "~Tpool: ~A~%" (-> this pool))
|
|
(format #t "~Tstatus: ~A~%" (-> this status))
|
|
(format #t "~Tpid: ~D~%" (-> this pid))
|
|
(format #t "~Tmain-thread: ~A~%" (-> this main-thread))
|
|
(format #t "~Ttop-thread: ~A~%" (-> this top-thread))
|
|
(format #t "~Tentity: ~A~%" (-> this entity))
|
|
(format #t "~Tstate: ~A~%" (-> this state))
|
|
(format #t "~Ttrans-hook: ~A~%" (-> this trans-hook))
|
|
(format #t "~Tpost-hook: ~A~%" (-> this post-hook))
|
|
(format #t "~Tevent-hook: ~A~%" (-> this event-hook))
|
|
(format #t "~Tallocated-length: ~D~%" (-> this allocated-length))
|
|
(format #t "~Tnext-state: ~A~%" (-> this next-state))
|
|
(format #t "~Theap-base: #x~X~%" (-> this heap-base))
|
|
(format #t "~Theap-top: #x~X~%" (-> this heap-top))
|
|
(format #t "~Theap-cur: #x~X~%" (-> this heap-cur))
|
|
(format #t "~Tstack-frame-top: ~A~%" (-> this stack-frame-top))
|
|
(format #t "~Theap: #<kheap @ #x~X>~%" (&-> this heap-base))
|
|
(format #t "~Tconnection-list: ~`'connectable`P~%" (-> this connection-list))
|
|
(format #t "~Tstack[0] @ #x~X~%" (-> this stack))
|
|
this
|
|
)
|
|
|
|
;; definition of type camera-start
|
|
(deftype camera-start (process-hidden)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type camera-start
|
|
(defmethod inspect ((this camera-start))
|
|
(format #t "[~8x] ~A~%" this (-> this type))
|
|
(format #t "~Tname: ~A~%" (-> this name))
|
|
(format #t "~Tmask: ~D~%" (-> this mask))
|
|
(format #t "~Tparent: #x~X~%" (-> this parent))
|
|
(format #t "~Tbrother: #x~X~%" (-> this brother))
|
|
(format #t "~Tchild: #x~X~%" (-> this child))
|
|
(format #t "~Tppointer: #x~X~%" (-> this ppointer))
|
|
(format #t "~Tself: ~A~%" (-> this self))
|
|
(format #t "~Tpool: ~A~%" (-> this pool))
|
|
(format #t "~Tstatus: ~A~%" (-> this status))
|
|
(format #t "~Tpid: ~D~%" (-> this pid))
|
|
(format #t "~Tmain-thread: ~A~%" (-> this main-thread))
|
|
(format #t "~Ttop-thread: ~A~%" (-> this top-thread))
|
|
(format #t "~Tentity: ~A~%" (-> this entity))
|
|
(format #t "~Tstate: ~A~%" (-> this state))
|
|
(format #t "~Ttrans-hook: ~A~%" (-> this trans-hook))
|
|
(format #t "~Tpost-hook: ~A~%" (-> this post-hook))
|
|
(format #t "~Tevent-hook: ~A~%" (-> this event-hook))
|
|
(format #t "~Tallocated-length: ~D~%" (-> this allocated-length))
|
|
(format #t "~Tnext-state: ~A~%" (-> this next-state))
|
|
(format #t "~Theap-base: #x~X~%" (-> this heap-base))
|
|
(format #t "~Theap-top: #x~X~%" (-> this heap-top))
|
|
(format #t "~Theap-cur: #x~X~%" (-> this heap-cur))
|
|
(format #t "~Tstack-frame-top: ~A~%" (-> this stack-frame-top))
|
|
(format #t "~Theap: #<kheap @ #x~X>~%" (&-> this heap-base))
|
|
(format #t "~Tconnection-list: ~`'connectable`P~%" (-> this connection-list))
|
|
(format #t "~Tstack[0] @ #x~X~%" (-> this stack))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate manipy-idle (manipy)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(local-vars (v0-0 object))
|
|
(case message
|
|
(('attackable)
|
|
(cond
|
|
((-> block param 0)
|
|
(set! v0-0 (logior (process-mask attackable) (-> self mask)))
|
|
(set! (-> self mask) (the-as process-mask v0-0))
|
|
)
|
|
(else
|
|
(set! v0-0 (logclear (-> self mask) (process-mask attackable)))
|
|
(set! (-> self mask) (the-as process-mask v0-0))
|
|
)
|
|
)
|
|
v0-0
|
|
)
|
|
(('blend-shape)
|
|
(cond
|
|
((-> block param 0)
|
|
(set! v0-0 (logior (-> self skel status) (janim-status blerc eye)))
|
|
(set! (-> self skel status) (the-as janim-status v0-0))
|
|
)
|
|
(else
|
|
(set! v0-0 (logclear (-> self skel status) (janim-status blerc eye)))
|
|
(set! (-> self skel status) (the-as janim-status v0-0))
|
|
)
|
|
)
|
|
v0-0
|
|
)
|
|
(('shadow)
|
|
(cond
|
|
((-> block param 0)
|
|
(set! v0-0 (-> self shadow-backup))
|
|
(set! (-> self draw shadow) (the-as shadow-geo v0-0))
|
|
v0-0
|
|
)
|
|
(else
|
|
(set! (-> self draw shadow) #f)
|
|
#f
|
|
)
|
|
)
|
|
)
|
|
(('trans-hook)
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self new-trans-hook) (the-as (function none) v0-0))
|
|
v0-0
|
|
)
|
|
(('post-hook)
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self new-post-hook) (the-as (function none) v0-0))
|
|
v0-0
|
|
)
|
|
(('eval)
|
|
((the-as (function manipy none) (-> block param 0)) self)
|
|
)
|
|
(('become-hud-object)
|
|
(convert-to-hud-object self (the-as hud (-> block param 0)))
|
|
)
|
|
(('event-hook)
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self cur-event-hook) (the-as (function none) v0-0))
|
|
v0-0
|
|
)
|
|
(('art-joint-anim)
|
|
(set! (-> self new-joint-anim)
|
|
(the-as
|
|
art-joint-anim
|
|
(lookup-art (-> self draw art-group) (the-as string (-> block param 0)) art-joint-anim)
|
|
)
|
|
)
|
|
(set! v0-0 (-> block param 1))
|
|
(set! (-> self new-joint-anim-blend) (the-as uint v0-0))
|
|
v0-0
|
|
)
|
|
(('anim-mode)
|
|
(when (nonzero? (-> self skel))
|
|
(set! (-> self anim-mode) (the-as symbol (-> block param 0)))
|
|
(if (= (-> self anim-mode) 'clone-anim)
|
|
(ja-post)
|
|
)
|
|
(-> self anim-mode)
|
|
)
|
|
)
|
|
(('origin-joint-index 'center-joint)
|
|
(set! (-> self draw origin-joint-index) (-> block param 0))
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self draw shadow-joint-index) (the-as uint v0-0))
|
|
v0-0
|
|
)
|
|
(('max-vis-dist)
|
|
(set! (-> self draw lod-set lod (-> self draw lod-set max-lod) dist) (the-as float (-> block param 0)))
|
|
)
|
|
(('grab)
|
|
(set! (-> self cur-grab-handle) (process->handle (the-as process (-> block param 0))))
|
|
(let ((v1-30 (handle->process (-> self cur-grab-handle))))
|
|
(when v1-30
|
|
(set! v0-0 (-> self old-grab-pos))
|
|
(set! (-> (the-as vector v0-0) quad) (-> (the-as process-drawable v1-30) root trans quad))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
(('target)
|
|
(set! v0-0 (process->handle (the-as process (-> block param 0))))
|
|
(set! (-> self cur-target-handle) (the-as handle v0-0))
|
|
v0-0
|
|
)
|
|
(('trans)
|
|
(cond
|
|
((type-type? (-> self root type) collide-shape)
|
|
(move-to-point! (the-as collide-shape (-> self root)) (the-as vector (-> block param 0)))
|
|
)
|
|
(else
|
|
(set! v0-0 (-> self root trans))
|
|
(set! (-> (the-as vector v0-0) quad) (-> (the-as vector (-> block param 0)) quad))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
(('rot)
|
|
(let ((s5-0 (new 'stack-no-clear 'matrix)))
|
|
(matrix-rotate-y! s5-0 (the-as float (-> block param 0)))
|
|
(matrix->quaternion (-> self root quat) s5-0)
|
|
)
|
|
)
|
|
(('rot-quat)
|
|
(quaternion-copy! (-> self root quat) (the-as quaternion (-> block param 0)))
|
|
)
|
|
(('clone-copy-trans)
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self clone-copy-trans) (the-as symbol v0-0))
|
|
v0-0
|
|
)
|
|
(('release)
|
|
(set! (-> self cur-grab-handle) (the-as handle #f))
|
|
#f
|
|
)
|
|
(('draw)
|
|
(set! (-> self draw?) (the-as symbol (-> block param 0)))
|
|
(cond
|
|
((-> block param 0)
|
|
(let ((v1-47 (logtest? (-> self draw status) (draw-status hidden))))
|
|
(logclear! (-> self draw status) (draw-status hidden))
|
|
(when v1-47
|
|
(cond
|
|
((nonzero? (-> self skel))
|
|
(let ((gp-1 (-> self skel status)))
|
|
(logior! (-> self skel status) (janim-status inited))
|
|
(set! v0-0 (ja-post))
|
|
(set! (-> self skel status) gp-1)
|
|
)
|
|
v0-0
|
|
)
|
|
(else
|
|
(ja-post)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! v0-0 (logior (-> self draw status) (draw-status hidden)))
|
|
(set! (-> self draw status) (the-as draw-status v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
(('query)
|
|
(case (-> block param 0)
|
|
(('grab)
|
|
(handle->process (-> self cur-grab-handle))
|
|
)
|
|
(('done)
|
|
(case (-> self anim-mode)
|
|
(('play1 'play)
|
|
(>= (ja-frame-num 0) (the float (+ (-> (ja-group) data 0 length) -2)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('set-frame-num)
|
|
(let ((v1-73 (-> self skel root-channel 0)))
|
|
(set! (-> v1-73 num-func) num-func-identity)
|
|
(set! (-> v1-73 frame-num) (the-as float (-> block param 0)))
|
|
)
|
|
)
|
|
(else
|
|
(if (-> self cur-event-hook)
|
|
((-> self cur-event-hook))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(if (!= (-> self cur-trans-hook) (-> self new-trans-hook))
|
|
(set! (-> self cur-trans-hook) (-> self new-trans-hook))
|
|
)
|
|
(if (!= (-> self cur-post-hook) (-> self new-post-hook))
|
|
(set! (-> self cur-post-hook) (-> self new-post-hook))
|
|
)
|
|
(when (and (-> self new-joint-anim)
|
|
(nonzero? (-> self skel))
|
|
(and (!= (ja-group) (-> self new-joint-anim)) (!= (-> self anim-mode) 'clone-anim))
|
|
)
|
|
(ja-channel-push! 1 (the-as time-frame (-> self new-joint-anim-blend)))
|
|
(ja :group! (-> self new-joint-anim) :num! min)
|
|
)
|
|
(let ((v1-20 (handle->process (-> self cur-grab-handle))))
|
|
(when v1-20
|
|
(let ((gp-1 (-> (the-as process-drawable v1-20) root trans)))
|
|
(if (type-type? (-> self root type) collide-shape)
|
|
(move-by-vector!
|
|
(the-as collide-shape (-> self root))
|
|
(vector-! (new 'stack-no-clear 'vector) gp-1 (-> self old-grab-pos))
|
|
)
|
|
(vector+!
|
|
(-> self root trans)
|
|
(-> self root trans)
|
|
(vector-! (new 'stack-no-clear 'vector) gp-1 (-> self old-grab-pos))
|
|
)
|
|
)
|
|
(set! (-> self old-grab-pos quad) (-> gp-1 quad))
|
|
)
|
|
)
|
|
)
|
|
((-> self cur-trans-hook))
|
|
)
|
|
:code (behavior ()
|
|
(logclear! (-> self mask) (process-mask heap-shrunk))
|
|
(loop
|
|
((-> self cur-post-hook))
|
|
(if (!= (-> self anim-mode) 'clone-anim)
|
|
(ja-post)
|
|
)
|
|
(suspend)
|
|
(case (-> self anim-mode)
|
|
(('loop)
|
|
(ja :num! (loop!))
|
|
)
|
|
(('play)
|
|
(ja :num! (seek!))
|
|
)
|
|
(('copy-parent)
|
|
(ja :num-func num-func-identity
|
|
:frame-num (-> (the-as process-drawable (ppointer->process (-> self parent))) skel root-channel 0 frame-num)
|
|
)
|
|
)
|
|
(('clone-parent)
|
|
(let ((gp-0 (ppointer->process (-> self parent))))
|
|
(set! (-> self post-hook) #f)
|
|
(joint-control-copy! (-> self skel) (-> (the-as process-drawable gp-0) skel))
|
|
(joint-control-remap!
|
|
(-> self skel)
|
|
(-> self draw art-group)
|
|
(-> (the-as process-drawable gp-0) draw art-group)
|
|
'()
|
|
0
|
|
""
|
|
)
|
|
)
|
|
(do-joint-math! self)
|
|
)
|
|
(('clone-anim)
|
|
(clone-anim-once
|
|
(if (handle->process (-> self cur-target-handle))
|
|
(the-as handle (-> self cur-target-handle))
|
|
(ppointer->handle (-> self parent))
|
|
)
|
|
(the-as int (-> self draw origin-joint-index))
|
|
(-> self clone-copy-trans)
|
|
""
|
|
)
|
|
)
|
|
(('still)
|
|
)
|
|
(('play1)
|
|
(ja :num! (seek!))
|
|
(if (ja-done? 0)
|
|
(deactivate self)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function manipy-init
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defbehavior manipy-init manipy ((arg0 vector) (arg1 entity-actor) (arg2 skeleton-group) (arg3 vector))
|
|
(stack-size-set! (-> self main-thread) 128)
|
|
(logior! (-> self mask) (process-mask heap-shrunk))
|
|
(set! (-> self entity) arg1)
|
|
(cond
|
|
((= arg3 'collide-shape-moving)
|
|
(let ((s4-1 (new 'process 'collide-shape-moving self (collide-list-enum hit-by-player))))
|
|
(set! (-> s4-1 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-1 reaction) default-collision-reaction)
|
|
(set! (-> s4-1 no-reaction)
|
|
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
|
|
)
|
|
(let ((s3-1 (new 'process 'collide-shape-prim-sphere s4-1 (the-as uint 0))))
|
|
(set-vector! (-> s3-1 local-sphere) 0.0 0.0 0.0 4096.0)
|
|
(set-root-prim! s4-1 s3-1)
|
|
)
|
|
(set! (-> s4-1 nav-radius) (* 0.75 (-> s4-1 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-1)
|
|
(set! (-> self root) s4-1)
|
|
)
|
|
)
|
|
(arg3
|
|
(let ((s4-2 (new 'process 'collide-shape self (collide-list-enum hit-by-player))))
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-sphere s4-2 (the-as uint 0))))
|
|
(set! (-> s2-0 prim-core collide-as) (collide-kind powerup blue-eco-suck))
|
|
(set! (-> s2-0 collide-with) (collide-kind target))
|
|
(set-vector! (-> s2-0 local-sphere) (-> arg3 x) (-> arg3 y) (-> arg3 z) (-> arg3 w))
|
|
(set-root-prim! s4-2 s2-0)
|
|
)
|
|
(set! (-> s4-2 nav-radius) (* 0.75 (-> s4-2 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-2)
|
|
(set! (-> self root) s4-2)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self root) (new 'process 'trsqv))
|
|
)
|
|
)
|
|
(set! (-> self root trans quad) (-> arg0 quad))
|
|
(initialize-skeleton self arg2 '())
|
|
(if (type-type? (-> self root type) collide-shape)
|
|
(update-transforms! (the-as collide-shape (-> self root)))
|
|
)
|
|
(set! (-> self shadow-backup) (-> self draw shadow))
|
|
(set! (-> self new-trans-hook) nothing)
|
|
(set! (-> self cur-trans-hook) nothing)
|
|
(set! (-> self new-post-hook) nothing)
|
|
(set! (-> self cur-post-hook) nothing)
|
|
(set! (-> self cur-event-hook) #f)
|
|
(set! (-> self cur-grab-handle) (the-as handle #f))
|
|
(set! (-> self cur-target-handle) (the-as handle #f))
|
|
(set! (-> self clone-copy-trans) #t)
|
|
(set! (-> self draw?) #t)
|
|
(cond
|
|
((nonzero? (-> self skel))
|
|
(set! (-> self new-joint-anim) (ja-group))
|
|
(set! (-> self anim-mode) 'loop)
|
|
)
|
|
(else
|
|
(set! (-> self anim-mode) 'still)
|
|
)
|
|
)
|
|
(set! (-> self event-hook) (-> manipy-idle event))
|
|
(go manipy-idle)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 10 of type part-tracker
|
|
(defmethod deactivate ((this part-tracker))
|
|
(if (nonzero? (-> this part))
|
|
(kill-and-free-particles (-> this part))
|
|
)
|
|
((method-of-type process deactivate) this)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function part-tracker-notify
|
|
(defbehavior part-tracker-notify part-tracker ()
|
|
(let ((gp-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> gp-0 from) self)
|
|
(set! (-> gp-0 num-params) 1)
|
|
(set! (-> gp-0 message) 'notify)
|
|
(set! (-> gp-0 param 0) (the-as uint 'die))
|
|
(let ((s5-0 send-event-function)
|
|
(s4-0 (ppointer->process (-> self parent)))
|
|
)
|
|
(s5-0
|
|
(if (and (nonzero? s4-0) (type-type? (-> s4-0 type) process))
|
|
s4-0
|
|
)
|
|
gp-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate part-tracker-process (part-tracker)
|
|
:code (behavior ()
|
|
(set-time! (-> self start-time))
|
|
(while (not (time-elapsed? (-> self start-time) (-> self duration)))
|
|
(let ((gp-0 (handle->process (-> self target))))
|
|
(when gp-0
|
|
(if (and gp-0 (type-type? (-> gp-0 type) process-drawable) (nonzero? (-> (the-as process-drawable gp-0) root)))
|
|
(vector+! (-> self root trans) (-> (the-as process-drawable gp-0) root trans) (-> self offset))
|
|
)
|
|
)
|
|
)
|
|
(let ((gp-1 (-> self root trans)))
|
|
(if (-> self callback)
|
|
((-> self callback) self)
|
|
)
|
|
(spawn (-> self part) gp-1)
|
|
)
|
|
(suspend)
|
|
)
|
|
(suspend-for (-> self linger-duration)
|
|
(if (-> self linger-callback)
|
|
((-> self linger-callback) self)
|
|
)
|
|
)
|
|
(if (-> self linger-callback)
|
|
((-> self linger-callback) self)
|
|
)
|
|
(part-tracker-notify)
|
|
(suspend)
|
|
0
|
|
)
|
|
)
|
|
|
|
;; definition for function part-tracker-init
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defbehavior part-tracker-init part-tracker ((arg0 sparticle-launch-group)
|
|
(arg1 time-frame)
|
|
(arg2 (function part-tracker none))
|
|
(arg3 (pointer process-drawable))
|
|
(arg4 process)
|
|
(arg5 collide-prim-core)
|
|
)
|
|
(stack-size-set! (-> self main-thread) 128)
|
|
(set! (-> self root) (new 'process 'trsqv))
|
|
(set! (-> self root trans quad) (-> arg5 world-sphere quad))
|
|
(set! (-> self offset quad) (-> arg5 world-sphere quad))
|
|
(set! (-> self callback) (the-as (function part-tracker vector) arg2))
|
|
(set! (-> self linger-callback) #f)
|
|
(set! (-> self userdata) (the-as uint arg3))
|
|
(set! (-> self target) (process->handle arg4))
|
|
(set! arg1 (cond
|
|
((> arg1 0)
|
|
(empty)
|
|
arg1
|
|
)
|
|
(else
|
|
(the-as time-frame (-> arg0 duration))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> self duration) (the-as time-frame arg1))
|
|
(set! (-> self linger-duration) (the-as time-frame (-> arg0 linger-duration)))
|
|
(set! (-> self part) (create-launch-control arg0 self))
|
|
(go part-tracker-process)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function command-get-process
|
|
;; INFO: Return type mismatch object vs process.
|
|
;; ERROR: Failed load: (set! a0-1 (l.wu (+ a0-0 -4))) at op 11
|
|
;; WARN: disable def twice: 68. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
|
|
;; WARN: disable def twice: 82. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
|
|
;; WARN: disable def twice: 96. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
|
|
;; WARN: disable def twice: 110. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
|
|
(defbehavior command-get-process camera-tracker ((arg0 object) (arg1 process))
|
|
(the-as process (cond
|
|
((null? arg0)
|
|
(empty)
|
|
arg1
|
|
)
|
|
((type-type? (rtype-of arg0) process)
|
|
(the-as process arg0)
|
|
)
|
|
((= arg0 'target)
|
|
*target*
|
|
)
|
|
((= arg0 'sidekick)
|
|
(when *target*
|
|
(let ((v1-6 (-> *target* sidekick)))
|
|
(if v1-6
|
|
(the-as process (-> v1-6 0 self))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((= arg0 'parent)
|
|
(let ((v1-9 (-> self parent)))
|
|
(if v1-9
|
|
(the-as process (-> v1-9 0 self))
|
|
)
|
|
)
|
|
)
|
|
((= arg0 'camera)
|
|
*camera*
|
|
)
|
|
((type-type? (rtype-of arg0) string)
|
|
(process-by-ename (the-as string arg0))
|
|
)
|
|
((type-type? (-> self type) camera-tracker)
|
|
(let ((v1-13 self))
|
|
(cond
|
|
((= arg0 'work)
|
|
(handle->process (-> v1-13 work-process))
|
|
)
|
|
((= arg0 'grab)
|
|
(handle->process (-> v1-13 grab-target))
|
|
)
|
|
((= arg0 'look-at)
|
|
(handle->process (-> v1-13 look-at-target))
|
|
)
|
|
((= arg0 'pov)
|
|
(handle->process (-> v1-13 pov-target))
|
|
)
|
|
((= arg0 'anim)
|
|
(handle->process (-> v1-13 anim-process))
|
|
)
|
|
(else
|
|
(empty)
|
|
arg1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function command-get-camera
|
|
;; INFO: Return type mismatch object vs state.
|
|
;; ERROR: Failed load: (set! a0-3 (l.wu (+ a0-0 -4))) at op 47
|
|
(defun command-get-camera ((arg0 object) (arg1 state))
|
|
(the-as state (cond
|
|
((null? arg0)
|
|
(empty)
|
|
arg1
|
|
)
|
|
((= arg0 'base)
|
|
*camera-base-mode*
|
|
)
|
|
((= arg0 'string)
|
|
cam-string
|
|
)
|
|
((= arg0 'fixed)
|
|
cam-fixed
|
|
)
|
|
((type-type? (rtype-of arg0) symbol)
|
|
(the-as state (-> (the-as symbol arg0) value))
|
|
)
|
|
((type-type? (rtype-of arg0) string)
|
|
(the-as state arg0)
|
|
)
|
|
((type-type? (rtype-of arg0) state)
|
|
(the-as state arg0)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function command-get-trans
|
|
(defun command-get-trans ((arg0 object) (arg1 vector))
|
|
(cond
|
|
((null? arg0)
|
|
(empty)
|
|
arg1
|
|
)
|
|
((= arg0 'null)
|
|
*null-vector*
|
|
)
|
|
((= arg0 'target)
|
|
(target-pos 0)
|
|
)
|
|
((pair? arg0)
|
|
(let ((s4-0 (command-get-process (car arg0) *target*))
|
|
(v1-4 (command-get-int (car (cdr arg0)) 0))
|
|
)
|
|
(cond
|
|
(s4-0
|
|
(-> (the-as target s4-0) node-list data v1-4 bone transform vector 3)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(empty)
|
|
arg1
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function process-grab?
|
|
;; INFO: Return type mismatch object vs symbol.
|
|
(defbehavior process-grab? camera-tracker ((arg0 process))
|
|
(let ((gp-0 (command-get-process arg0 *target*)))
|
|
(the-as symbol (when gp-0
|
|
(if (type-type? (-> self type) camera-tracker)
|
|
(set! (-> self grab-target) (process->handle gp-0))
|
|
)
|
|
(send-event gp-0 'change-mode 'grab)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function process-release?
|
|
;; INFO: Return type mismatch object vs symbol.
|
|
(defbehavior process-release? process ((arg0 process))
|
|
(let ((gp-0 (command-get-process arg0 *target*)))
|
|
(the-as symbol (if (and gp-0 (send-event gp-0 'query 'mode) 'target-grab)
|
|
(send-event gp-0 'end-mode)
|
|
#t
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function camera-change-to
|
|
;; ERROR: function was not converted to expressions. Cannot decompile.
|
|
|
|
;; definition for function camera-look-at
|
|
(defbehavior camera-look-at camera-tracker ((arg0 pair) (arg1 uint))
|
|
(let ((gp-0 (command-get-process arg0 *target*)))
|
|
(when gp-0
|
|
(if (type-type? (-> self type) camera-tracker)
|
|
(set! (-> self look-at-target) (process->handle gp-0))
|
|
)
|
|
(send-event *camera* 'change-target gp-0 arg1)
|
|
)
|
|
gp-0
|
|
)
|
|
)
|
|
|
|
;; definition for function ja-anim-done?
|
|
;; INFO: Return type mismatch object vs symbol.
|
|
(defun ja-anim-done? ((arg0 process))
|
|
(with-pp
|
|
(let ((gp-0 (command-get-process arg0 *target*)))
|
|
(the-as
|
|
symbol
|
|
(when gp-0
|
|
(cond
|
|
((type-type? (-> gp-0 type) manipy)
|
|
(send-event gp-0 'query 'done)
|
|
)
|
|
((type-type? (-> gp-0 type) process-drawable)
|
|
(when (not (logtest? (-> (the-as process-drawable gp-0) skel status) (janim-status done)))
|
|
(let ((s5-0 pp))
|
|
(set! pp gp-0)
|
|
(let ((v0-1 (the-as object (ja-done? 0))))
|
|
(set! pp s5-0)
|
|
v0-1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function camera-pov-from
|
|
(defbehavior camera-pov-from camera-tracker ((arg0 pair) (arg1 uint))
|
|
(let ((gp-0 (command-get-process arg0 *target*)))
|
|
(when gp-0
|
|
(if (type-type? (-> self type) camera-tracker)
|
|
(set! (-> self pov-target) (process->handle gp-0))
|
|
)
|
|
(when (= arg1 -10)
|
|
(set! arg1 (the-as uint 0))
|
|
(when (> (-> (the-as process-drawable gp-0) skel active-channels) 0)
|
|
(let ((v1-11 (lookup-art (-> (the-as process-drawable gp-0) draw jgeo) "camera" (the-as type #f))))
|
|
(if v1-11
|
|
(set! arg1 (the-as uint (+ (-> v1-11 number) 1)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(send-event *camera* 'change-pov gp-0 arg1)
|
|
)
|
|
gp-0
|
|
)
|
|
)
|
|
|
|
;; definition for function camera-anim
|
|
(defbehavior camera-anim camera-tracker ((arg0 symbol) (arg1 basic) (arg2 entity))
|
|
(set! (-> self anim-process) (the-as handle #f))
|
|
(let* ((s2-0 (get-process *default-dead-pool* manipy #x4000))
|
|
(gp-0 (when s2-0
|
|
(let ((t9-1 (method-of-type manipy activate)))
|
|
(t9-1 (the-as manipy s2-0) self 'manipy (the-as pointer #x70004000))
|
|
)
|
|
((the-as (function process function object object object object object) run-function-in-process)
|
|
s2-0
|
|
manipy-init
|
|
arg2
|
|
#f
|
|
arg0
|
|
#f
|
|
)
|
|
(-> s2-0 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(when gp-0
|
|
(send-event (-> gp-0 0 self) 'anim-mode 'play1)
|
|
(send-event (-> gp-0 0 self) 'art-joint-anim arg1)
|
|
(set! (-> self anim-process) (ppointer->handle gp-0))
|
|
)
|
|
gp-0
|
|
)
|
|
)
|
|
|
|
;; definition for method 14 of type camera-tracker
|
|
;; INFO: Return type mismatch object vs process.
|
|
;; ERROR: Failed load: (set! v1-42 (l.wu (+ a0-22 -4))) at op 159
|
|
(defmethod eval ((this camera-tracker) (arg0 pair))
|
|
(with-pp
|
|
(let ((gp-0 (the-as object #f)))
|
|
(cond
|
|
((null? arg0)
|
|
)
|
|
((pair? arg0)
|
|
(let ((a2-0 (car arg0))
|
|
(s4-0 (cdr arg0))
|
|
)
|
|
(case a2-0
|
|
(('print)
|
|
(set! gp-0 (car s4-0))
|
|
(if (pair? gp-0)
|
|
(set! gp-0 (eval this (the-as pair gp-0)))
|
|
)
|
|
(format #t "~A MESSAGE (~D): ~A~%" this (current-time) gp-0)
|
|
)
|
|
(('while)
|
|
(let ((s3-0 (car s4-0)))
|
|
(while (eval this (the-as pair s3-0))
|
|
(let* ((s2-0 (cdr s4-0))
|
|
(a1-3 (car s2-0))
|
|
)
|
|
(while (not (null? s2-0))
|
|
(set! gp-0 (eval this (the-as pair a1-3)))
|
|
(set! s2-0 (cdr s2-0))
|
|
(set! a1-3 (car s2-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('until)
|
|
(let ((s3-1 (car s4-0)))
|
|
(while (not (eval this (the-as pair s3-1)))
|
|
(let* ((s2-1 (cdr s4-0))
|
|
(a1-5 (car s2-1))
|
|
)
|
|
(while (not (null? s2-1))
|
|
(set! gp-0 (eval this (the-as pair a1-5)))
|
|
(set! s2-1 (cdr s2-1))
|
|
(set! a1-5 (car s2-1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('not)
|
|
(set! gp-0 (not (eval this (the-as pair (car s4-0)))))
|
|
)
|
|
(('wait-for 'wait 'suspend)
|
|
(let ((s5-1 (command-get-time (car s4-0) 1)))
|
|
(suspend-for s5-1
|
|
)
|
|
)
|
|
)
|
|
(('message?)
|
|
(when (= (-> this message) (car s4-0))
|
|
(set! gp-0 (-> this message))
|
|
(set! (-> this message) #f)
|
|
)
|
|
)
|
|
(('send-event)
|
|
(let ((s5-2 (command-get-process (car s4-0) *target*))
|
|
(s3-2 (car (cdr s4-0)))
|
|
(s4-2 (cdr (cdr s4-0)))
|
|
)
|
|
(when (and s5-2 (not (null? s3-2)))
|
|
(let ((gp-1 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> gp-1 from) pp)
|
|
(let ((a0-22 s4-2))
|
|
(set! (-> gp-1 num-params) ((method-of-type (rtype-of a0-22) length) a0-22))
|
|
)
|
|
(set! (-> gp-1 message) (the-as symbol s3-2))
|
|
(set! (-> gp-1 param 0) (the-as uint (command-get-param (car s4-2) #f)))
|
|
(set! (-> gp-1 param 1) (the-as uint (command-get-param (car (cdr s4-2)) #f)))
|
|
(set! (-> gp-1 param 2) (the-as uint (command-get-param (car (cdr (cdr s4-2))) #f)))
|
|
(set! gp-0 (send-event-function s5-2 gp-1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('eval)
|
|
(let ((s4-3 (car s4-0)))
|
|
(if (and s4-3 (type-type? (-> (the-as basic s4-3) type) function))
|
|
(set! gp-0 ((the-as (function camera-tracker symbol) s4-3) this))
|
|
)
|
|
)
|
|
)
|
|
(('work-set!)
|
|
(set! gp-0 (process->handle (eval this (the-as pair (car s4-0)))))
|
|
(set! (-> this work-process) (the-as handle gp-0))
|
|
)
|
|
(('grab)
|
|
(let ((a0-38 (command-get-process (car s4-0) *target*)))
|
|
(set! gp-0 (process-grab? a0-38))
|
|
)
|
|
)
|
|
(('release)
|
|
(set! gp-0 (process-release? (handle->process (-> this grab-target))))
|
|
)
|
|
(('alive?)
|
|
(set! gp-0 (command-get-process (car s4-0) *target*))
|
|
)
|
|
(('draw)
|
|
(set! gp-0 (command-get-process (car s4-0) *target*))
|
|
(when (the-as target gp-0)
|
|
(if (car (cdr s4-0))
|
|
(logclear! (-> (the-as target gp-0) skel status) (janim-status drawn))
|
|
(logior! (-> (the-as target gp-0) skel status) (janim-status drawn))
|
|
)
|
|
)
|
|
)
|
|
(('camera-change-to 'camera)
|
|
(set! gp-0 (camera-change-to (the-as string (car s4-0)) (command-get-time (car (cdr s4-0)) 0) #f))
|
|
)
|
|
(('intro-done?)
|
|
(let ((a1-25 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-25 from) pp)
|
|
(set! (-> a1-25 num-params) 0)
|
|
(set! (-> a1-25 message) 'intro-done?)
|
|
(set! gp-0 (send-event-function *camera* a1-25))
|
|
)
|
|
)
|
|
(('camera-look-at 'look-at)
|
|
(set! gp-0 (camera-look-at (the-as pair (car s4-0)) (the-as uint (command-get-int (car (cdr s4-0)) 0))))
|
|
)
|
|
(('pov)
|
|
(set! gp-0 (camera-pov-from (the-as pair (car s4-0)) (the-as uint (command-get-int (car (cdr s4-0)) 0))))
|
|
)
|
|
(('camera-anim)
|
|
(let ((s2-2 (car s4-0))
|
|
(s3-3 (car (cdr s4-0)))
|
|
(s4-4 (command-get-trans (car (cdr (cdr s4-0))) *null-vector*))
|
|
(s1-0 string->symbol)
|
|
)
|
|
(format (clear *temp-string*) "*~S-sg*" s2-2)
|
|
(let ((s2-3 (-> (s1-0 *temp-string*) value)))
|
|
(when (type-type? (rtype-of s2-3) skeleton-group)
|
|
(set! (-> this anim-process) (the-as handle #f))
|
|
(let ((s1-1 (get-process *default-dead-pool* manipy #x4000)))
|
|
(set! gp-0 (when s1-1
|
|
(let ((t9-35 (method-of-type manipy activate)))
|
|
(t9-35 (the-as manipy s1-1) this 'manipy (the-as pointer #x70004000))
|
|
)
|
|
(run-now-in-process s1-1 manipy-init s4-4 #f s2-3 #f)
|
|
(-> s1-1 ppointer)
|
|
)
|
|
)
|
|
)
|
|
(send-event (-> (the-as (pointer process) gp-0) 0 self) 'anim-mode 'play1)
|
|
(send-event (-> (the-as (pointer process) gp-0) 0 self) 'art-joint-anim s3-3)
|
|
(set! (-> this anim-process) (ppointer->handle (the-as (pointer process) gp-0)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(format 0 "ERROR: camera-tracker does not know script line command ~A.~%" a2-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(format 0 "ERROR: camera-tracker requires a pair as a script line, not ~A.~%" arg0)
|
|
)
|
|
)
|
|
(the-as process gp-0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate camera-tracker-process (camera-tracker)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(local-vars (v0-0 uint))
|
|
(case message
|
|
(('message)
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self message) (the-as basic v0-0))
|
|
v0-0
|
|
)
|
|
(('mask)
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self mask-to-clear) (the-as process-mask v0-0))
|
|
v0-0
|
|
)
|
|
(('border)
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self border-value) (the-as basic v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ()
|
|
(if (-> self entity)
|
|
(set-or-clear-status! (-> self entity) (entity-perm-status bit-3) #t)
|
|
)
|
|
(if (not (-> self border-value))
|
|
(add-setting! 'border-mode (-> self border-value) 0.0 0)
|
|
)
|
|
(add-setting! 'process-mask 'set 0.0 (-> self mask-to-clear))
|
|
(add-setting! 'movie (process->ppointer self) 0.0 0)
|
|
(hide-hud-quick)
|
|
)
|
|
:exit (behavior ()
|
|
(if (-> self entity)
|
|
(set-or-clear-status! (-> self entity) (entity-perm-status bit-3) #f)
|
|
)
|
|
(send-event *camera* 'clear-entity)
|
|
)
|
|
:code (behavior ()
|
|
(cond
|
|
((-> self script-func)
|
|
((-> self script-func))
|
|
)
|
|
(else
|
|
(while (not (null? (-> self script-line)))
|
|
(eval self (the-as pair (-> self script-line car)))
|
|
(set! (-> self script-line) (the-as pair (-> self script-line cdr)))
|
|
)
|
|
)
|
|
)
|
|
(remove-setting! 'process-mask)
|
|
(send-event *camera* 'clear-entity)
|
|
(suspend)
|
|
(suspend)
|
|
(suspend)
|
|
0
|
|
)
|
|
)
|
|
|
|
;; definition for function camera-tracker-init
|
|
;; ERROR: Failed load: (set! a0-3 (l.wu (+ a0-0 -4))) at op 42
|
|
(defbehavior camera-tracker-init camera-tracker ((arg0 object))
|
|
(stack-size-set! (-> self main-thread) 512)
|
|
(logclear! (-> self mask) (process-mask actor-pause movie enemy platform projectile))
|
|
(set! (-> self mask-to-clear) (process-mask movie enemy platform projectile))
|
|
(set! (-> self grab-target) (the-as handle #f))
|
|
(set! (-> self grab-event) 'grab)
|
|
(set! (-> self release-event) 'end-mode)
|
|
(set! (-> self look-at-target) (the-as handle #f))
|
|
(set! (-> self pov-target) (the-as handle #f))
|
|
(set! (-> self callback) #f)
|
|
(set! (-> self userdata) #f)
|
|
(set-time! (-> self start-time))
|
|
(set! (-> self script) '())
|
|
(set! (-> self script-line) '())
|
|
(set! (-> self script-func) #f)
|
|
(set! (-> self message) #f)
|
|
(set! (-> self border-value) #f)
|
|
(cond
|
|
((pair? arg0)
|
|
(set! (-> self script) (the-as pair arg0))
|
|
(set! (-> self script-line) (the-as pair arg0))
|
|
)
|
|
((type-type? (rtype-of arg0) function)
|
|
(set! (-> self script-func) (the-as (function none) arg0))
|
|
)
|
|
(else
|
|
(format 0 "ERROR: camera-tracker requires a pair as a script, not ~A.~%" arg0)
|
|
)
|
|
)
|
|
(let* ((gp-1 (ppointer->process (-> self parent)))
|
|
(v1-17 (if (and (nonzero? gp-1) (type-type? (-> gp-1 type) process))
|
|
gp-1
|
|
)
|
|
)
|
|
)
|
|
(if v1-17
|
|
(set! (-> self entity) (-> (the-as process v1-17) entity))
|
|
)
|
|
)
|
|
(set! (-> self event-hook) (-> camera-tracker-process event))
|
|
(go camera-tracker-process)
|
|
)
|
|
|
|
;; definition of type med-res-level
|
|
(deftype med-res-level (process-drawable)
|
|
((level symbol)
|
|
(part-mode basic)
|
|
(index int32)
|
|
)
|
|
(:states
|
|
med-res-level-idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type med-res-level
|
|
(defmethod inspect ((this med-res-level))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tlevel: ~A~%" (-> this level))
|
|
(format #t "~T~Tpart-mode: ~A~%" (-> this part-mode))
|
|
(format #t "~T~Tindex: ~D~%" (-> this index))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate med-res-level-idle (med-res-level)
|
|
:code (behavior ()
|
|
(local-vars (v1-37 float))
|
|
(rlet ((vf0 :class vf)
|
|
(vf16 :class vf)
|
|
(vf17 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(loop
|
|
(let ((a0-1 (level-get *level* (-> self level)))
|
|
(v1-3 (-> *game-info* current-continue level))
|
|
)
|
|
(cond
|
|
((and a0-1 (or (= (-> a0-1 display?) 'special) (= (-> a0-1 display?) 'special-vis)))
|
|
(logclear! (-> self draw status) (draw-status hidden))
|
|
(if (nonzero? (-> self skel))
|
|
(ja :num! (loop!))
|
|
)
|
|
)
|
|
((or (and a0-1 (= (-> a0-1 status) 'active)) (= v1-3 'firecanyon))
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
)
|
|
((and (= (-> self level) 'firecanyon) (< (-> (camera-pos) y) 327680.0))
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
)
|
|
(else
|
|
(logclear! (-> self draw status) (draw-status hidden))
|
|
(if (nonzero? (-> self part))
|
|
(spawn (-> self part) (-> self root trans))
|
|
)
|
|
(if (nonzero? (-> self skel))
|
|
(ja :num! (loop!))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (not (logtest? (-> self draw status) (draw-status hidden)))
|
|
(let ((v1-36 (-> self draw))
|
|
(a0-18 (new 'stack-no-clear 'vector))
|
|
)
|
|
(.lvf vf16 (&-> v1-36 origin quad))
|
|
(.lvf vf17 (&-> v1-36 bounds quad))
|
|
(.mul.x.vf.w vf16 vf16 vf0)
|
|
(.add.vf vf16 vf16 vf17)
|
|
(.svf (&-> a0-18 quad) vf16)
|
|
)
|
|
(.mov v1-37 vf16)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
;; definition for symbol *lev-string*, type string
|
|
(define *lev-string* (new 'global 'string 64 (the-as string #f)))
|
|
|
|
;; definition for method 11 of type med-res-level
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this med-res-level) (arg0 entity-actor))
|
|
(stack-size-set! (-> this main-thread) 128)
|
|
"#f"
|
|
(let ((s4-0 (the-as (pointer sparticle-launch-group) #f)))
|
|
(let* ((sv-16 (new 'static 'res-tag))
|
|
(s3-0 (res-lump-data arg0 'art-name (pointer symbol) :tag-ptr (& sv-16)))
|
|
(s2-0 (-> s3-0 0))
|
|
)
|
|
(cond
|
|
((not s3-0)
|
|
)
|
|
((part-group-pointer? (the-as pointer s2-0))
|
|
(set! s4-0 (the-as (pointer sparticle-launch-group) (-> s3-0 0)))
|
|
)
|
|
((= (-> s2-0 type) string)
|
|
(set! s4-0 (lookup-part-group-pointer-by-name (the-as string s2-0)))
|
|
(if s4-0
|
|
(set! (-> s3-0 0) (the-as symbol s4-0))
|
|
)
|
|
)
|
|
((= (-> s2-0 type) symbol)
|
|
(let ((a0-7 (symbol->string s2-0)))
|
|
(set! s4-0 (lookup-part-group-pointer-by-name a0-7))
|
|
)
|
|
(if s4-0
|
|
(set! (-> s3-0 0) (the-as symbol s4-0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (the-as object s4-0)
|
|
(let ((a0-8 (-> s4-0 0)))
|
|
(if (and (nonzero? a0-8) (= (-> a0-8 type) sparticle-launch-group))
|
|
(set! (-> this part) (create-launch-control a0-8 this))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(process-entity-status! this (entity-perm-status bit-7) #t)
|
|
(let ((s4-1 (res-lump-struct (-> this entity) 'level structure))
|
|
(s3-1 (res-lump-value (-> this entity) 'index uint128))
|
|
)
|
|
(when s4-1
|
|
(set! (-> this level) (the-as symbol s4-1))
|
|
(set! (-> this index) (the-as int s3-1))
|
|
(set! (-> this root) (new 'process 'trsqv))
|
|
(process-drawable-from-entity! this arg0)
|
|
(logclear! (-> this mask) (process-mask actor-pause))
|
|
(format (clear *lev-string*) "med-res-~S~S" s4-1 (if (zero? s3-1)
|
|
""
|
|
(* s3-1 8)
|
|
)
|
|
)
|
|
(initialize-skeleton-by-name this *lev-string* '())
|
|
(logior! (-> this draw status) (draw-status do-not-check-distance))
|
|
(if (nonzero? (-> this draw))
|
|
(go med-res-level-idle)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 20 of type part-spawner
|
|
(defmethod is-visible? ((this part-spawner))
|
|
(sphere<-vector+r! (-> this world-sphere) (-> this root trans) (-> this radius))
|
|
(sphere-in-view-frustum? (-> this world-sphere))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate part-spawner-active (part-spawner)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('stop)
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(set! (-> self enable) #f)
|
|
#t
|
|
)
|
|
(('start)
|
|
(process-entity-status! self (entity-perm-status complete) #f)
|
|
(set! (-> self enable) #t)
|
|
#t
|
|
)
|
|
(('trans)
|
|
(let ((v0-1 (the-as object (-> (the-as vector (-> block param 0)) quad))))
|
|
(set! (-> self root trans quad) (the-as uint128 v0-1))
|
|
v0-1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(loop
|
|
(when (-> self enable)
|
|
(spawn (-> self part) (-> self root trans))
|
|
(if (nonzero? (-> self sound))
|
|
(update! (-> self sound))
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 11 of type part-spawner
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this part-spawner) (arg0 entity-actor))
|
|
(stack-size-set! (-> this main-thread) 128)
|
|
(logior! (-> this mask) (process-mask ambient))
|
|
(set! (-> this root) (new 'process 'trsqv))
|
|
(process-drawable-from-entity! this arg0)
|
|
(logclear! (-> this mask) (process-mask actor-pause))
|
|
(set! (-> this radius) 12288.0)
|
|
(set! (-> this enable)
|
|
(not (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status complete))))
|
|
)
|
|
(set! (-> this sound) (new 'process 'ambient-sound (-> this entity) (-> this root trans)))
|
|
(let ((s4-0 (the-as object "#f")))
|
|
(let ((s3-0 (the-as (pointer sparticle-launch-group) #f)))
|
|
(let* ((sv-16 (new 'static 'res-tag))
|
|
(s5-1 (res-lump-data arg0 'art-name (pointer (pointer sparticle-launch-group)) :tag-ptr (& sv-16)))
|
|
(s2-0 (-> s5-1 0))
|
|
)
|
|
(cond
|
|
((part-group-pointer? s2-0)
|
|
(set! s3-0 (-> s5-1 0))
|
|
)
|
|
((= (-> s2-0 -1) string)
|
|
(when (string= (the-as string s2-0) "group-beach-grotto-1")
|
|
(set! (-> this radius) 61440.0)
|
|
(go beach-part-grotto-1)
|
|
)
|
|
(set! s4-0 s2-0)
|
|
(set! s3-0 (lookup-part-group-pointer-by-name (the-as string s4-0)))
|
|
(if s3-0
|
|
(set! (-> s5-1 0) s3-0)
|
|
)
|
|
)
|
|
((= (-> s2-0 -1) symbol)
|
|
(set! s4-0 (-> (&-> s2-0 16334) 0))
|
|
(set! s3-0 (lookup-part-group-pointer-by-name (the-as string s4-0)))
|
|
(if s3-0
|
|
(set! (-> s5-1 0) s3-0)
|
|
)
|
|
)
|
|
(else
|
|
(go process-drawable-art-error (the-as string s2-0))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> this mode) s3-0)
|
|
(when s3-0
|
|
(let ((a0-19 (-> s3-0 0)))
|
|
(when (and (nonzero? a0-19) (= (-> a0-19 type) sparticle-launch-group))
|
|
(set! (-> this part) (create-launch-control a0-19 this))
|
|
(go part-spawner-active)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(go process-drawable-art-error (the-as string s4-0))
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition of type launcher
|
|
(deftype launcher (process-drawable)
|
|
((root collide-shape :override)
|
|
(spring-height meters)
|
|
(camera state)
|
|
(active-distance float)
|
|
(seek-time time-frame)
|
|
(dest vector :inline)
|
|
(sound-id sound-id)
|
|
)
|
|
(:states
|
|
launcher-active
|
|
launcher-deactivated
|
|
launcher-idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type launcher
|
|
(defmethod inspect ((this launcher))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tspring-height: (meters ~m)~%" (-> this spring-height))
|
|
(format #t "~T~Tcamera: ~A~%" (-> this camera))
|
|
(format #t "~T~Tactive-distance: ~f~%" (-> this active-distance))
|
|
(format #t "~T~Tseek-time: ~D~%" (-> this seek-time))
|
|
(format #t "~T~Tdest: ~`vector`P~%" (-> this dest))
|
|
(format #t "~T~Tsound-id: ~D~%" (-> this sound-id))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-beach-launcher
|
|
:id 37
|
|
:bounds (static-bspherem 0 3 0 5)
|
|
:parts ((sp-item 45 :fade-after (meters 100) :falloff-to (meters 100))
|
|
(sp-item 46 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
|
|
(sp-item 47 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
|
|
(sp-item 48 :fade-after (meters 50) :falloff-to (meters 80))
|
|
(sp-item 49 :fade-after (meters 70) :falloff-to (meters 100))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 45
|
|
:init-specs ((:num 1.5)
|
|
(:x (meters 1.5))
|
|
(:y (meters -0.5))
|
|
(:rot-x 5)
|
|
(:r 4096.0)
|
|
(:g 2867.2)
|
|
(:b 3276.8)
|
|
(:vel-y (meters 0.026666667))
|
|
(:timer (seconds 0.9))
|
|
(:flags (aux-list))
|
|
(:next-time (seconds 0.6))
|
|
(:next-launcher 50)
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 50
|
|
:init-specs ((:fade-b -4.551111))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 46
|
|
:init-specs ((:texture (hotdot effects))
|
|
(:num 1.0)
|
|
(:x (meters 0) (meters 1.8))
|
|
(:scale-x (meters 0.2))
|
|
(:rot-x (degrees 90))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 2.5) (meters 2.5))
|
|
(:r 0.0 1 128.0)
|
|
(:g 64.0 196.0)
|
|
(:b 128.0 128.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -0.0025))
|
|
(:scalevel-y (meters 0.24414062) (meters 0.48828125))
|
|
(:timer (seconds 0.27))
|
|
(:flags (bit3))
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 47
|
|
:init-specs ((:texture (hotdot effects))
|
|
(:num 2.0)
|
|
(:x (meters 1.8) (meters 1))
|
|
(:scale-x (meters 0.2))
|
|
(:rot-x (degrees 90))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 0.5) (meters 1))
|
|
(:r 0.0 1 128.0)
|
|
(:g 64.0 196.0)
|
|
(:b 128.0 128.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -0.0025))
|
|
(:scalevel-y (meters 0.048828125) (meters 0.09765625))
|
|
(:timer (seconds 0.27))
|
|
(:flags (bit3))
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 48
|
|
:init-specs ((:texture (woodchip effects))
|
|
(:num 1.5)
|
|
(:x (meters 2.9) (meters 2.5))
|
|
(:y (meters -0.5))
|
|
(:scale-x (meters 0.3) (meters 0.4))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 0.1) (meters 0.1))
|
|
(:r 10.0 6.0)
|
|
(:g 64.0 128.0)
|
|
(:b 10.0 6.0)
|
|
(:a 80.0)
|
|
(:vel-x (meters -0.011666667) (meters -0.0033333334))
|
|
(:vel-y (meters 0))
|
|
(:rotvel-z (degrees -1.2) 1 (degrees 2.4))
|
|
(:fade-a -0.2)
|
|
(:accel-y (meters 0.0016666667))
|
|
(:friction 0.996)
|
|
(:timer (seconds 0.6) (seconds 0.397))
|
|
(:flags (bit2))
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 49
|
|
:init-specs ((:texture (bigpuff effects))
|
|
(:num 0.5)
|
|
(:x (meters 2.9) (meters 2.5))
|
|
(:y (meters -0.5))
|
|
(:scale-x (meters 2) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 32.0 32.0)
|
|
(:g 32.0 32.0)
|
|
(:b 10.0 5.0)
|
|
(:a 0.0)
|
|
(:vel-x (meters -0.011666667) (meters -0.0033333334))
|
|
(:vel-y (meters 0))
|
|
(:rotvel-z (degrees -1.2) 1 (degrees 2.4))
|
|
(:fade-a 0.6)
|
|
(:accel-y (meters 0.0016666667))
|
|
(:friction 0.996)
|
|
(:timer (seconds 0.9))
|
|
(:flags (bit2 bit3))
|
|
(:next-time (seconds 0.15))
|
|
(:next-launcher 51)
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 51
|
|
:init-specs ((:fade-a -0.18))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-jungle-launcher
|
|
:id 38
|
|
:bounds (static-bspherem 0 3 0 5)
|
|
:parts ((sp-item 45 :fade-after (meters 100) :falloff-to (meters 100))
|
|
(sp-item 52 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
|
|
(sp-item 53 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
|
|
(sp-item 54 :fade-after (meters 70) :falloff-to (meters 100))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 52
|
|
:init-specs ((:texture (hotdot effects))
|
|
(:num 1.0)
|
|
(:x (meters 0) (meters 1.4))
|
|
(:scale-x (meters 0.2))
|
|
(:rot-x (degrees 90))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 2.5) (meters 2.5))
|
|
(:r 0.0 1 128.0)
|
|
(:g 64.0 196.0)
|
|
(:b 128.0 128.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -0.0025))
|
|
(:scalevel-y (meters 0.24414062) (meters 0.48828125))
|
|
(:timer (seconds 0.27))
|
|
(:flags (bit3))
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 53
|
|
:init-specs ((:texture (hotdot effects))
|
|
(:num 2.0)
|
|
(:x (meters 1.4) (meters 0.9))
|
|
(:scale-x (meters 0.2))
|
|
(:rot-x (degrees 90))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 0.5) (meters 1))
|
|
(:r 0.0 1 128.0)
|
|
(:g 64.0 196.0)
|
|
(:b 128.0 128.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -0.0025))
|
|
(:scalevel-y (meters 0.048828125) (meters 0.09765625))
|
|
(:timer (seconds 0.27))
|
|
(:flags (bit3))
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 54
|
|
:init-specs ((:texture (bigpuff effects))
|
|
(:num 0.5)
|
|
(:x (meters 2.9) (meters 2.5))
|
|
(:y (meters -0.5))
|
|
(:scale-x (meters 2) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 64.0 32.0)
|
|
(:g 32.0 32.0)
|
|
(:b 10.0 5.0)
|
|
(:a 0.0)
|
|
(:vel-x (meters -0.011666667) (meters -0.0033333334))
|
|
(:vel-y (meters 0))
|
|
(:rotvel-z (degrees -1.2) 1 (degrees 2.4))
|
|
(:fade-a 0.6)
|
|
(:accel-y (meters 0.0016666667))
|
|
(:friction 0.996)
|
|
(:timer (seconds 0.9))
|
|
(:flags (bit2 bit3))
|
|
(:next-time (seconds 0.15))
|
|
(:next-launcher 51)
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-swamp-launcher
|
|
:id 39
|
|
:bounds (static-bspherem 0 3 0 5)
|
|
:parts ((sp-item 45 :fade-after (meters 100) :falloff-to (meters 100))
|
|
(sp-item 46 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
|
|
(sp-item 47 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
|
|
(sp-item 55 :fade-after (meters 70) :falloff-to (meters 100))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 55
|
|
:init-specs ((:texture (bigpuff effects))
|
|
(:num 0.5)
|
|
(:x (meters 2.9) (meters 2.5))
|
|
(:y (meters -0.5))
|
|
(:scale-x (meters 2) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 16.0 16.0)
|
|
(:g 16.0 16.0)
|
|
(:b 5.0 2.5)
|
|
(:a 0.0)
|
|
(:vel-x (meters -0.011666667) (meters -0.0033333334))
|
|
(:vel-y (meters 0))
|
|
(:rotvel-z (degrees -1.2) 1 (degrees 2.4))
|
|
(:fade-a 0.6)
|
|
(:accel-y (meters 0.0016666667))
|
|
(:friction 0.996)
|
|
(:timer (seconds 0.9))
|
|
(:flags (bit2))
|
|
(:next-time (seconds 0.15))
|
|
(:next-launcher 51)
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; definition for function cam-launcher-joystick
|
|
;; INFO: Used lq/sq
|
|
(defbehavior cam-launcher-joystick camera-slave ()
|
|
(when *camera-read-analog*
|
|
(let ((s5-0 (new-stack-matrix0))
|
|
(gp-0 (vector-reset! (new 'stack-no-clear 'vector)))
|
|
)
|
|
(let* ((f0-0 (analog-input (the-as int (+ (-> *cpad-list* cpads 0 rightx) -128)) 0.0 48.0 110.0 -1.0))
|
|
(f1-1 (* -546.13336 f0-0))
|
|
(f0-2 (fmin 546.13336 (fmax -546.13336 f1-1)))
|
|
)
|
|
(matrix-axis-angle! s5-0 (-> *camera* local-down) f0-2)
|
|
)
|
|
(vector-! gp-0 (-> self trans) (-> *camera* tpos-curr))
|
|
(vector-matrix*! gp-0 gp-0 s5-0)
|
|
(vector+! (-> self trans) gp-0 (-> *camera* tpos-curr))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate cam-launcher-shortfall (camera-slave)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('teleport)
|
|
#f
|
|
)
|
|
(else
|
|
(cam-standard-event-handler proc argc message block)
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ()
|
|
(when (not (-> self enter-has-run))
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(vector--float*! (-> self trans) (-> *camera* tpos-curr) (-> *camera* local-down) 28672.0)
|
|
(vector-flatten! gp-0 (-> self tracking inv-mat vector 2) (-> *camera* local-down))
|
|
(vector-normalize! gp-0 1.0)
|
|
(set! (-> self pivot-pt quad) (-> gp-0 quad))
|
|
(vector+float*! gp-0 gp-0 (-> *camera* local-down) 1000.0)
|
|
(vector-normalize-copy! (-> self tracking inv-mat vector 2) gp-0 1.0)
|
|
)
|
|
(vector-cross!
|
|
(-> self tracking inv-mat vector 1)
|
|
(-> self tracking inv-mat vector 2)
|
|
(the-as vector (-> self tracking))
|
|
)
|
|
(set! (-> self blend-from-type) (the-as uint 0))
|
|
(set! (-> self blend-to-type) (the-as uint 0))
|
|
0
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(if (not (logtest? (-> *camera* master-options) 2))
|
|
(cam-slave-go cam-free-floating)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(let ((gp-0 (current-time)))
|
|
(loop
|
|
(when (not (paused?))
|
|
(vector--float*! (-> self trans) (-> *camera* tpos-curr) (-> *camera* local-down) 28672.0)
|
|
(send-event *camera* 'teleport)
|
|
(if (and (-> *camera* on-ground) (time-elapsed? gp-0 (seconds 1)))
|
|
(send-event *camera* 'change-state *camera-base-mode* (seconds 0.5))
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function cam-launcher-long-joystick
|
|
;; INFO: Used lq/sq
|
|
(defbehavior cam-launcher-long-joystick camera-slave ()
|
|
(when *camera-read-analog*
|
|
(let ((gp-0 (new-stack-matrix0)))
|
|
(let* ((f0-0 (analog-input (the-as int (+ (-> *cpad-list* cpads 0 rightx) -128)) 0.0 48.0 110.0 -1.0))
|
|
(f1-1 (* -546.13336 f0-0))
|
|
(f0-2 (fmin 546.13336 (fmax -546.13336 f1-1)))
|
|
)
|
|
(matrix-axis-angle! gp-0 (-> *camera* local-down) f0-2)
|
|
)
|
|
(vector-matrix*! (-> self view-flat) (-> self view-flat) gp-0)
|
|
)
|
|
(vector-normalize! (-> self view-flat) 4096.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate cam-launcher-longfall (camera-slave)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('teleport)
|
|
#f
|
|
)
|
|
(else
|
|
(cam-standard-event-handler proc argc message block)
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ()
|
|
(when (not (-> self enter-has-run))
|
|
(new 'stack-no-clear 'vector)
|
|
(vector-negate! (-> self view-flat) (-> self tracking inv-mat vector 2))
|
|
(vector-normalize! (-> self view-flat) 4096.0)
|
|
(vector--float*! (-> self trans) (-> *camera* tpos-curr) (-> *camera* local-down) 28672.0)
|
|
(vector+! (-> self trans) (-> self trans) (-> self view-flat))
|
|
(set! (-> self blend-from-type) (the-as uint 0))
|
|
(set! (-> self blend-to-type) (the-as uint 0))
|
|
(cam-calc-follow! (-> self tracking) (-> self trans) #f)
|
|
(slave-set-rotation! (-> self tracking) (-> self trans) (the-as float (-> self options)) (-> self fov) #f)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(if (not (logtest? (-> *camera* master-options) 2))
|
|
(cam-slave-go cam-free-floating)
|
|
)
|
|
(cam-launcher-long-joystick)
|
|
)
|
|
:code (behavior ()
|
|
(let ((gp-0 (current-time)))
|
|
(loop
|
|
(when (not (paused?))
|
|
(let ((s4-0 (new 'stack-no-clear 'vector))
|
|
(s5-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
0.0
|
|
0.0
|
|
0.0
|
|
(send-event *camera* 'teleport)
|
|
(let* ((f0-4 (vector-dot (-> self velocity) (-> *camera* local-down)))
|
|
(f30-0 (* 0.975 f0-4))
|
|
)
|
|
(vector--float*! s4-0 (-> *camera* tpos-curr) (-> *camera* local-down) 28672.0)
|
|
(vector-! s4-0 s4-0 (-> self trans))
|
|
(let ((f28-0 (vector-dot s4-0 (-> *camera* local-down))))
|
|
(vector--float*! s5-0 s4-0 (-> *camera* local-down) f28-0)
|
|
(cond
|
|
((< f28-0 f30-0)
|
|
(set! f30-0 f28-0)
|
|
)
|
|
((< 20480.0 f28-0)
|
|
(let ((f28-1 (+ -20480.0 f28-0)))
|
|
(let ((f0-8 (lerp f30-0 f28-1 0.005)))
|
|
(if (< f30-0 f0-8)
|
|
(set! f30-0 f0-8)
|
|
)
|
|
)
|
|
(if (< (* 0.09 f28-1) f30-0)
|
|
(set! f30-0 (* 0.09 f28-1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(vector+float*! (-> self velocity) s5-0 (-> *camera* local-down) f30-0)
|
|
)
|
|
)
|
|
(vector+! (-> self trans) (-> self trans) (-> self velocity))
|
|
(set! (-> self trans x) (-> *camera* tpos-curr x))
|
|
(set! (-> self trans z) (-> *camera* tpos-curr z))
|
|
(vector+! (-> self trans) (-> self trans) (-> self view-flat))
|
|
(if (and (-> *camera* on-ground) (time-elapsed? gp-0 (seconds 1)))
|
|
(send-event *camera* 'change-state *camera-base-mode* (seconds 0.5))
|
|
)
|
|
)
|
|
(vector-reset! (-> self tracking follow-off))
|
|
(vector+! (-> self tracking follow-pt) (-> *camera* tpos-curr-adj) (-> self tracking follow-off))
|
|
(vector--float*!
|
|
(-> self tracking follow-pt)
|
|
(-> self tracking follow-pt)
|
|
(-> *camera* local-down)
|
|
(-> *camera* target-height)
|
|
)
|
|
(slave-set-rotation! (-> self tracking) (-> self trans) (the-as float (-> self options)) (-> self fov) #f)
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate launcher-idle (launcher)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('instant-death)
|
|
(go launcher-deactivated)
|
|
)
|
|
(('trans)
|
|
(move-to-point! (-> self root) (the-as vector (-> block param 0)))
|
|
(update-transforms! (-> self root))
|
|
)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(when (and *target*
|
|
(>= (-> self active-distance) (vector-vector-distance (-> self root trans) (-> *target* control trans)))
|
|
)
|
|
(cond
|
|
((send-event *target* 'query 'powerup (pickup-type eco-blue))
|
|
(go launcher-active)
|
|
)
|
|
(else
|
|
(let ((gp-0 'target-launch))
|
|
(if (= (send-event *target* 'query 'mode) gp-0)
|
|
(send-event *target* 'end-mode)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (and (and *target* (>= 32768.0 (vector-vector-distance (-> self root trans) (-> *target* control trans))))
|
|
(not (send-event *target* 'query 'powerup (pickup-type eco-blue)))
|
|
)
|
|
(level-hint-spawn
|
|
(text-id sidekick-hint-launcher)
|
|
"sksp0035"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:code anim-loop
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate launcher-active (launcher)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(when (or (= message 'touch) (= message 'attack))
|
|
(set-time! (-> self state-time))
|
|
(send-event proc 'launch (-> self spring-height) (-> self camera) (-> self dest) (-> self seek-time))
|
|
)
|
|
(cond
|
|
((= message 'instant-death)
|
|
(go launcher-deactivated)
|
|
)
|
|
((= message 'trans)
|
|
(move-to-point! (-> self root) (the-as vector (-> block param 0)))
|
|
(update-transforms! (-> self root))
|
|
)
|
|
)
|
|
)
|
|
:exit (behavior ()
|
|
(let ((v1-0 (the-as sound-rpc-set-param (get-sound-buffer-entry))))
|
|
(set! (-> v1-0 command) (sound-command set-param))
|
|
(set! (-> v1-0 id) (-> self sound-id))
|
|
(set! (-> v1-0 parms volume) -4)
|
|
(set! (-> v1-0 auto-time) 120)
|
|
(set! (-> v1-0 auto-from) 2)
|
|
(set! (-> v1-0 parms mask) (sound-mask volume time))
|
|
(-> v1-0 id)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(if (or (or (not *target*)
|
|
(< (-> self active-distance) (vector-vector-distance (-> self root trans) (-> *target* control trans)))
|
|
)
|
|
(not (send-event *target* 'query 'powerup (pickup-type eco-blue)))
|
|
)
|
|
(go launcher-idle)
|
|
)
|
|
(spawn (-> self part) (-> self root trans))
|
|
(sound-play "launch-idle" :id (-> self sound-id))
|
|
(if (and (and *target* (>= (+ 2867.2 (-> self root root-prim prim-core world-sphere w))
|
|
(vector-vector-distance (-> self root trans) (-> *target* control trans))
|
|
)
|
|
)
|
|
(not (time-elapsed? (-> self state-time) (seconds 0.5)))
|
|
)
|
|
(send-event *target* 'launch (-> self spring-height) (-> self camera) (-> self dest) (-> self seek-time))
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(sound-play "launch-start")
|
|
(anim-loop)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate launcher-deactivated (launcher)
|
|
:code anim-loop
|
|
)
|
|
|
|
;; definition for method 11 of type launcher
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this launcher) (arg0 entity-actor))
|
|
(stack-size-set! (-> this main-thread) 128)
|
|
(let ((s4-0 (new 'process 'collide-shape this (collide-list-enum hit-by-player))))
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s3-0 collide-with) (collide-kind target))
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 12288.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
)
|
|
(set! (-> s4-0 nav-radius) 13926.4)
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(update-transforms! (-> this root))
|
|
(set! (-> this active-distance) 409600.0)
|
|
(set! (-> this spring-height) (res-lump-float arg0 'spring-height :default 163840.0))
|
|
(let ((s4-1 (res-lump-value arg0 'mode uint128)))
|
|
(let ((v1-18 (-> this entity extra level name)))
|
|
(set! (-> this part) (create-launch-control
|
|
(cond
|
|
((= v1-18 'beach)
|
|
group-beach-launcher
|
|
)
|
|
((= v1-18 'swamp)
|
|
group-swamp-launcher
|
|
)
|
|
(else
|
|
group-jungle-launcher
|
|
)
|
|
)
|
|
this
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-24 (logand (the-as int s4-1) 255)))
|
|
(cond
|
|
((= (the-as uint v1-24) 1)
|
|
(set! (-> this camera) cam-launcher-longfall)
|
|
)
|
|
((= (the-as uint v1-24) 2)
|
|
(set! (-> this camera) #f)
|
|
)
|
|
(else
|
|
(set! (-> this camera) cam-launcher-shortfall)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((v1-29 (res-lump-struct arg0 'alt-vector vector)))
|
|
(when v1-29
|
|
(set-vector! (-> this dest) (-> v1-29 x) (-> v1-29 y) (-> v1-29 z) 1.0)
|
|
(set! (-> this seek-time) (the-as time-frame (the int (* 300.0 (-> v1-29 w)))))
|
|
)
|
|
)
|
|
(set! (-> this sound-id) (new-sound-id))
|
|
(nav-mesh-connect this (-> this root) (the-as nav-control #f))
|
|
(go launcher-idle)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function launcher-init-by-other
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defbehavior launcher-init-by-other launcher ((arg0 vector) (arg1 float) (arg2 int) (arg3 float))
|
|
(stack-size-set! (-> self main-thread) 128)
|
|
(let ((s2-0 (new 'process 'collide-shape self (collide-list-enum hit-by-player))))
|
|
(let ((s1-0 (new 'process 'collide-shape-prim-sphere s2-0 (the-as uint 0))))
|
|
(set! (-> s1-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s1-0 collide-with) (collide-kind target))
|
|
(set-vector! (-> s1-0 local-sphere) 0.0 0.0 0.0 12288.0)
|
|
(set-root-prim! s2-0 s1-0)
|
|
)
|
|
(set! (-> s2-0 nav-radius) (* 0.75 (-> s2-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s2-0)
|
|
(set! (-> self root) s2-0)
|
|
)
|
|
(set! (-> self root trans quad) (-> arg0 quad))
|
|
(set-vector! (-> self root scale) 1.0 1.0 1.0 1.0)
|
|
(set-vector! (-> self root quat) 0.0 0.0 0.0 1.0)
|
|
(update-transforms! (-> self root))
|
|
(set! (-> self spring-height) arg1)
|
|
(set! (-> self active-distance) arg3)
|
|
(let ((v1-23 (-> self entity extra level name)))
|
|
(set! (-> self part) (create-launch-control
|
|
(cond
|
|
((= v1-23 'beach)
|
|
group-beach-launcher
|
|
)
|
|
((= v1-23 'swamp)
|
|
group-swamp-launcher
|
|
)
|
|
(else
|
|
group-jungle-launcher
|
|
)
|
|
)
|
|
self
|
|
)
|
|
)
|
|
)
|
|
(case (logand arg2 255)
|
|
((1)
|
|
(set! (-> self camera) cam-launcher-longfall)
|
|
)
|
|
((2)
|
|
(set! (-> self camera) #f)
|
|
)
|
|
(else
|
|
(set! (-> self camera) cam-launcher-shortfall)
|
|
)
|
|
)
|
|
(let ((v1-34 (res-lump-struct (-> self entity) 'alt-vector vector)))
|
|
(when v1-34
|
|
(set-vector! (-> self dest) (-> v1-34 x) (-> v1-34 y) (-> v1-34 z) 1.0)
|
|
(set! (-> self seek-time) (the-as time-frame (the int (* 300.0 (-> v1-34 w)))))
|
|
)
|
|
)
|
|
(set! (-> self sound-id) (new-sound-id))
|
|
(go launcher-idle)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate touch-tracker-idle (touch-tracker)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(local-vars (v0-0 object))
|
|
(case message
|
|
(('touched)
|
|
(let ((v1-1 (ppointer->process (-> self parent))))
|
|
(when (!= v1-1 proc)
|
|
(cond
|
|
((= (-> self event) 'attack)
|
|
(cond
|
|
((= (-> proc type) target)
|
|
(send-event
|
|
proc
|
|
(-> self event)
|
|
:from (the-as process v1-1)
|
|
#f
|
|
(static-attack-info ((mode (the-as symbol (-> self event-mode)))))
|
|
)
|
|
)
|
|
((= (-> v1-1 type) target)
|
|
(send-event
|
|
proc
|
|
(-> self event)
|
|
:from (the-as process v1-1)
|
|
#f
|
|
(-> self event-mode)
|
|
(-> *target* control target-attack-id)
|
|
(-> *target* control attack-count)
|
|
)
|
|
)
|
|
(else
|
|
(let ((a1-5 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-5 from) (the-as process v1-1))
|
|
(set! (-> a1-5 num-params) 4)
|
|
(set! (-> a1-5 message) (-> self event))
|
|
(set! (-> a1-5 param 0) (the-as uint #f))
|
|
(set! (-> a1-5 param 1) (the-as uint (-> self event-mode)))
|
|
(let ((v1-19 (+ *global-attack-id* 1)))
|
|
(set! *global-attack-id* v1-19)
|
|
(set! (-> a1-5 param 2) (the-as uint v1-19))
|
|
)
|
|
(set! (-> a1-5 param 3) (the-as uint 0))
|
|
(send-event-function proc a1-5)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((-> self event)
|
|
(send-event proc (-> self event) :from (the-as process v1-1))
|
|
)
|
|
(else
|
|
(let ((t0-5 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> t0-5 from) proc)
|
|
(set! (-> t0-5 num-params) argc)
|
|
(set! (-> t0-5 message) message)
|
|
(set! (-> t0-5 param 0) (-> block param 0))
|
|
(set! (-> t0-5 param 1) (-> block param 1))
|
|
(set! (-> t0-5 param 2) (-> block param 2))
|
|
(set! (-> t0-5 param 3) (-> block param 3))
|
|
(set! (-> t0-5 param 4) (-> block param 4))
|
|
(set! (-> t0-5 param 5) (-> block param 5))
|
|
(set! (-> t0-5 param 6) (-> block param 6))
|
|
(send-event-function v1-1 t0-5)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('target)
|
|
(set! v0-0 (process->handle (the-as process (-> block param 0))))
|
|
(set! (-> self target) (the-as handle v0-0))
|
|
v0-0
|
|
)
|
|
(('event)
|
|
(set! (-> self event) (the-as symbol (-> block param 0)))
|
|
(set! v0-0 (-> block param 1))
|
|
(set! (-> self event-mode) (the-as basic v0-0))
|
|
v0-0
|
|
)
|
|
(('exit)
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self run-function) (the-as (function object) v0-0))
|
|
v0-0
|
|
)
|
|
(('eval)
|
|
((the-as (function touch-tracker none) (-> block param 0)) self)
|
|
)
|
|
(('function)
|
|
(set! v0-0 (-> block param 0))
|
|
(set! (-> self callback) (the-as (function touch-tracker none) v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(set-time! (-> self state-time))
|
|
(while ((-> self run-function))
|
|
(let* ((gp-0 (handle->process (-> self target)))
|
|
(a0-4 (if (and (nonzero? gp-0) (type-type? (-> gp-0 type) process-drawable))
|
|
gp-0
|
|
)
|
|
)
|
|
)
|
|
(when a0-4
|
|
(let* ((gp-1 (-> (the-as process-drawable a0-4) root))
|
|
(a0-6 (if (and (nonzero? gp-1) (type-type? (-> gp-1 type) collide-shape))
|
|
gp-1
|
|
)
|
|
)
|
|
)
|
|
(if a0-6
|
|
(set! (-> self root trans quad) (-> (the-as collide-shape a0-6) root-prim prim-core world-sphere quad))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(if (-> self callback)
|
|
((-> self callback) self)
|
|
)
|
|
(update-transforms! (-> self root))
|
|
(let ((a1-3 (new 'stack-no-clear 'touching-shapes-entry)))
|
|
(set! (-> a1-3 cshape1) (the-as collide-shape 2))
|
|
(set! (-> a1-3 cshape2) (the-as collide-shape *touching-list*))
|
|
(find-overlapping-shapes (-> self root) (the-as overlaps-others-params a1-3))
|
|
)
|
|
(suspend)
|
|
)
|
|
(clear-collide-with-as (-> self root))
|
|
(suspend)
|
|
0
|
|
)
|
|
)
|
|
|
|
;; definition for function touch-tracker-init
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defbehavior touch-tracker-init touch-tracker ((arg0 vector) (arg1 float) (arg2 time-frame))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving self (collide-list-enum hit-by-player))))
|
|
(set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-0 reaction) default-collision-reaction)
|
|
(set! (-> s4-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
|
|
)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
|
|
(set! (-> s2-0 prim-core collide-as) (collide-kind target enemy))
|
|
(set! (-> s2-0 collide-with) (collide-kind cak-1 cak-2 cak-3 powerup crate enemy wall-object ground-object))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 0.0 0.0 arg1)
|
|
(set-root-prim! s4-0 s2-0)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> s4-0 event-self) 'touched)
|
|
(set! (-> self root) s4-0)
|
|
)
|
|
(set! (-> self root trans quad) (-> arg0 quad))
|
|
(set! (-> self duration) arg2)
|
|
(set! (-> self target) (the-as handle #f))
|
|
(set! (-> self event) #f)
|
|
(set! (-> self callback) #f)
|
|
(set! (-> self run-function)
|
|
(lambda :behavior touch-tracker () (not (time-elapsed? (-> self state-time) (-> self duration))))
|
|
)
|
|
(set! (-> self event-hook) (-> touch-tracker-idle event))
|
|
(go touch-tracker-idle)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function process-drawable-random-point!
|
|
(defun process-drawable-random-point! ((arg0 process-drawable) (arg1 vector))
|
|
(let ((v1-1 (-> arg0 node-list length))
|
|
(s4-0 (-> arg0 root))
|
|
)
|
|
(cond
|
|
((>= v1-1 7)
|
|
(let ((v1-2 (rand-vu-int-range 3 (+ v1-1 -1))))
|
|
(vector<-cspace! arg1 (-> arg0 node-list data v1-2))
|
|
)
|
|
)
|
|
((and (nonzero? s4-0) (type-type? (-> s4-0 type) collide-shape))
|
|
(vector+!
|
|
arg1
|
|
(-> (the-as collide-shape s4-0) root-prim prim-core world-sphere)
|
|
(rand-vu-sphere-point! arg1 (-> (the-as collide-shape s4-0) root-prim prim-core world-sphere w))
|
|
)
|
|
)
|
|
(else
|
|
(vector+! arg1 (-> arg0 root trans) (rand-vu-sphere-point! arg1 (-> arg0 draw bounds w)))
|
|
)
|
|
)
|
|
)
|
|
arg1
|
|
)
|
|
|
|
;; definition for function process-drawable-pair-random-point!
|
|
;; INFO: Used lq/sq
|
|
(defun process-drawable-pair-random-point! ((arg0 process-drawable) (arg1 process-drawable) (arg2 vector) (arg3 float))
|
|
(let ((s4-0 (new-stack-vector0))
|
|
(s3-0 (new-stack-vector0))
|
|
)
|
|
(process-drawable-random-point! arg0 s4-0)
|
|
(process-drawable-random-point! arg1 s3-0)
|
|
(vector-lerp! arg2 s4-0 s3-0 arg3)
|
|
)
|
|
)
|
|
|
|
;; definition for symbol *particle-quat*, type quaternion
|
|
(define *particle-quat* (new 'static 'quaternion :w 1.0))
|
|
|
|
;; definition for function birth-func-set-quat
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun birth-func-set-quat ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
|
|
(local-vars (a0-2 float) (a0-3 float))
|
|
(rlet ((vf0 :class vf)
|
|
(vf1 :class vf)
|
|
(vf2 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(let ((a0-1 arg2)
|
|
(v1-0 *particle-quat*)
|
|
)
|
|
(cond
|
|
((< (-> v1-0 w) 0.0)
|
|
(.lvf vf1 (&-> a0-1 conerot quad))
|
|
(.lvf vf2 (&-> v1-0 vec quad))
|
|
(.sub.vf.xyz vf1 vf0 vf2)
|
|
(.svf (&-> a0-1 conerot quad) vf1)
|
|
(.mov a0-2 vf1)
|
|
)
|
|
(else
|
|
(.lvf vf1 (&-> a0-1 conerot quad))
|
|
(.lvf vf2 (&-> v1-0 vec quad))
|
|
(.add.vf.xyz vf1 vf0 vf2)
|
|
(.svf (&-> a0-1 conerot quad) vf1)
|
|
(.mov a0-3 vf1)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 2528
|
|
:init-specs ((:texture (citadel-shield effects))
|
|
(:birth-func 'birth-func-set-quat)
|
|
(:num 1.0)
|
|
(:scale-x (meters 2) (meters 0.5))
|
|
(:scale-y (meters 5.6))
|
|
(:r 0.0 44.0)
|
|
(:g 0.0 64.0)
|
|
(:b 128.0 32.0)
|
|
(:a 128.0)
|
|
(:timer (seconds 0.017))
|
|
(:flags (bit2 bit3 bit14 left-multiply-quat))
|
|
)
|
|
)
|
|
|
|
;; definition for function draw-eco-beam
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun draw-eco-beam ((arg0 vector) (arg1 vector))
|
|
(when (line-in-view-frustum? arg0 arg1)
|
|
(let ((s2-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))
|
|
(gp-1 (new 'stack-no-clear 'vector))
|
|
(s4-0 (new 'stack-no-clear 'vector))
|
|
(s5-0 (new 'stack-no-clear 'quaternion))
|
|
)
|
|
(vector+*! gp-1 arg0 s2-1 0.5)
|
|
(vector-normalize-copy! s4-0 s2-1 1.0)
|
|
(set! (-> *part-id-table* 2528 init-specs 4 initial-valuef) (vector-length s2-1))
|
|
(forward-up->quaternion s5-0 s4-0 *y-vector*)
|
|
(dotimes (s4-1 3)
|
|
(quaternion-rotate-local-z! s5-0 s5-0 10922.667)
|
|
(quaternion-copy! *particle-quat* s5-0)
|
|
(launch-particles :system *sp-particle-system-3d* (-> *part-id-table* 2528) gp-1)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|