mirror of
https://github.com/open-goal/jak-project
synced 2026-06-26 18:42:01 -04:00
Tyler Wilding
445 lines
18 KiB
Common Lisp
Vendored
Generated
445 lines
18 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type process-drawable
|
|
(deftype process-drawable (process)
|
|
"This is the main base class for in-game objects.
|
|
This handles drawing, collision, animation, navigation, particles, sounds, physics, etc.
|
|
The actual child classes will add most of the functionality, and this just serves as a common
|
|
container for references to the `-control` objects for this object."
|
|
((root trsqv)
|
|
(node-list cspace-array)
|
|
(draw draw-control)
|
|
(skel joint-control)
|
|
(nav nav-control)
|
|
(align align-control)
|
|
(path path-control)
|
|
(vol vol-control)
|
|
(fact fact-info)
|
|
(link actor-link-info)
|
|
(part sparticle-launch-control)
|
|
(water water-control)
|
|
(sound ambient-sound)
|
|
(carry carry-info)
|
|
(rbody rigid-body-control)
|
|
(state-flags state-flags)
|
|
(state-time time-frame)
|
|
)
|
|
(:methods
|
|
(initialize-skeleton (_type_ skeleton-group pair) draw-control)
|
|
(initialize-skeleton-by-name (_type_ string) draw-control)
|
|
(apply-alignment (_type_ align-opts transformq vector) trsqv)
|
|
(cleanup-for-death (_type_) none)
|
|
(relocate-nav (_type_ int) none)
|
|
(evaluate-joint-control (_type_) none)
|
|
)
|
|
(:states
|
|
(process-drawable-art-error string)
|
|
process-drawable-idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type process-drawable
|
|
(defmethod inspect ((this process-drawable))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Troot: ~A~%" (-> this root))
|
|
(format #t "~2Tnode-list: ~A~%" (-> this node-list))
|
|
(format #t "~2Tdraw: ~A~%" (-> this draw))
|
|
(format #t "~2Tskel: ~A~%" (-> this skel))
|
|
(format #t "~2Tnav: ~A~%" (-> this nav))
|
|
(format #t "~2Talign: ~A~%" (-> this align))
|
|
(format #t "~2Tpath: ~A~%" (-> this path))
|
|
(format #t "~2Tvol: ~A~%" (-> this vol))
|
|
(format #t "~2Tfact: ~A~%" (-> this fact))
|
|
(format #t "~2Tlink: ~A~%" (-> this link))
|
|
(format #t "~2Tpart: ~A~%" (-> this part))
|
|
(format #t "~2Twater: ~A~%" (-> this water))
|
|
(format #t "~2Tsound: ~A~%" (-> this sound))
|
|
(format #t "~2Tcarry: ~A~%" (-> this carry))
|
|
(format #t "~2Trbody: ~A~%" (-> this rbody))
|
|
(format #t "~2Tstate-flags: ~D~%" (-> this state-flags))
|
|
(format #t "~2Tstate-time: ~D~%" (-> this state-time))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type process-drawable-reserved
|
|
(deftype process-drawable-reserved (process-drawable)
|
|
"A process drawable with a lot of unused method slots.
|
|
GOAL cannot increase the number of methods at runtime, so, for interactive development, it is useful
|
|
to have a type with a large number of slots which can be turned into real methods without needed to reboot the PS2."
|
|
()
|
|
(:methods
|
|
(process-drawable-reserved-method-20 () none)
|
|
(process-drawable-reserved-method-21 () none)
|
|
(process-drawable-reserved-method-22 () none)
|
|
(process-drawable-reserved-method-23 () none)
|
|
(process-drawable-reserved-method-24 () none)
|
|
(process-drawable-reserved-method-25 () none)
|
|
(process-drawable-reserved-method-26 () none)
|
|
(process-drawable-reserved-method-27 () none)
|
|
(process-drawable-reserved-method-28 () none)
|
|
(process-drawable-reserved-method-29 () none)
|
|
(process-drawable-reserved-method-30 () none)
|
|
(process-drawable-reserved-method-31 () none)
|
|
(process-drawable-reserved-method-32 () none)
|
|
(process-drawable-reserved-method-33 () none)
|
|
(process-drawable-reserved-method-34 () none)
|
|
(process-drawable-reserved-method-35 () none)
|
|
(process-drawable-reserved-method-36 () none)
|
|
(process-drawable-reserved-method-37 () none)
|
|
(process-drawable-reserved-method-38 () none)
|
|
(process-drawable-reserved-method-39 () none)
|
|
(process-drawable-reserved-method-40 () none)
|
|
(process-drawable-reserved-method-41 () none)
|
|
(process-drawable-reserved-method-42 () none)
|
|
(process-drawable-reserved-method-43 () none)
|
|
(process-drawable-reserved-method-44 () none)
|
|
(process-drawable-reserved-method-45 () none)
|
|
(process-drawable-reserved-method-46 () none)
|
|
(process-drawable-reserved-method-47 () none)
|
|
(process-drawable-reserved-method-48 () none)
|
|
(process-drawable-reserved-method-49 () none)
|
|
(process-drawable-reserved-method-50 () none)
|
|
(process-drawable-reserved-method-51 () none)
|
|
(process-drawable-reserved-method-52 () none)
|
|
(process-drawable-reserved-method-53 () none)
|
|
(process-drawable-reserved-method-54 () none)
|
|
(process-drawable-reserved-method-55 () none)
|
|
(process-drawable-reserved-method-56 () none)
|
|
(process-drawable-reserved-method-57 () none)
|
|
(process-drawable-reserved-method-58 () none)
|
|
(process-drawable-reserved-method-59 () none)
|
|
(process-drawable-reserved-method-60 () none)
|
|
(process-drawable-reserved-method-61 () none)
|
|
(process-drawable-reserved-method-62 () none)
|
|
(process-drawable-reserved-method-63 () none)
|
|
(process-drawable-reserved-method-64 () none)
|
|
(process-drawable-reserved-method-65 () none)
|
|
(process-drawable-reserved-method-66 () none)
|
|
(process-drawable-reserved-method-67 () none)
|
|
(process-drawable-reserved-method-68 () none)
|
|
(process-drawable-reserved-method-69 () none)
|
|
(process-drawable-reserved-method-70 () none)
|
|
(process-drawable-reserved-method-71 () none)
|
|
(process-drawable-reserved-method-72 () none)
|
|
(process-drawable-reserved-method-73 () none)
|
|
(process-drawable-reserved-method-74 () none)
|
|
(process-drawable-reserved-method-75 () none)
|
|
(process-drawable-reserved-method-76 () none)
|
|
(process-drawable-reserved-method-77 () none)
|
|
(process-drawable-reserved-method-78 () none)
|
|
(process-drawable-reserved-method-79 () none)
|
|
(process-drawable-reserved-method-80 () none)
|
|
(process-drawable-reserved-method-81 () none)
|
|
(process-drawable-reserved-method-82 () none)
|
|
(process-drawable-reserved-method-83 () none)
|
|
(process-drawable-reserved-method-84 () none)
|
|
(process-drawable-reserved-method-85 () none)
|
|
(process-drawable-reserved-method-86 () none)
|
|
(process-drawable-reserved-method-87 () none)
|
|
(process-drawable-reserved-method-88 () none)
|
|
(process-drawable-reserved-method-89 () none)
|
|
(process-drawable-reserved-method-90 () none)
|
|
(process-drawable-reserved-method-91 () none)
|
|
(process-drawable-reserved-method-92 () none)
|
|
(process-drawable-reserved-method-93 () none)
|
|
(process-drawable-reserved-method-94 () none)
|
|
(process-drawable-reserved-method-95 () none)
|
|
(process-drawable-reserved-method-96 () none)
|
|
(process-drawable-reserved-method-97 () none)
|
|
(process-drawable-reserved-method-98 () none)
|
|
(process-drawable-reserved-method-99 () none)
|
|
(process-drawable-reserved-method-100 () none)
|
|
(process-drawable-reserved-method-101 () none)
|
|
(process-drawable-reserved-method-102 () none)
|
|
(process-drawable-reserved-method-103 () none)
|
|
(process-drawable-reserved-method-104 () none)
|
|
(process-drawable-reserved-method-105 () none)
|
|
(process-drawable-reserved-method-106 () none)
|
|
(process-drawable-reserved-method-107 () none)
|
|
(process-drawable-reserved-method-108 () none)
|
|
(process-drawable-reserved-method-109 () none)
|
|
(process-drawable-reserved-method-110 () none)
|
|
(process-drawable-reserved-method-111 () none)
|
|
(process-drawable-reserved-method-112 () none)
|
|
(process-drawable-reserved-method-113 () none)
|
|
(process-drawable-reserved-method-114 () none)
|
|
(process-drawable-reserved-method-115 () none)
|
|
(process-drawable-reserved-method-116 () none)
|
|
(process-drawable-reserved-method-117 () none)
|
|
(process-drawable-reserved-method-118 () none)
|
|
(process-drawable-reserved-method-119 () none)
|
|
(process-drawable-reserved-method-120 () none)
|
|
(process-drawable-reserved-method-121 () none)
|
|
(process-drawable-reserved-method-122 () none)
|
|
(process-drawable-reserved-method-123 () none)
|
|
(process-drawable-reserved-method-124 () none)
|
|
(process-drawable-reserved-method-125 () none)
|
|
(process-drawable-reserved-method-126 () none)
|
|
(process-drawable-reserved-method-127 () none)
|
|
(process-drawable-reserved-method-128 () none)
|
|
(process-drawable-reserved-method-129 () none)
|
|
(process-drawable-reserved-method-130 () none)
|
|
(process-drawable-reserved-method-131 () none)
|
|
(process-drawable-reserved-method-132 () none)
|
|
(process-drawable-reserved-method-133 () none)
|
|
(process-drawable-reserved-method-134 () none)
|
|
(process-drawable-reserved-method-135 () none)
|
|
(process-drawable-reserved-method-136 () none)
|
|
(process-drawable-reserved-method-137 () none)
|
|
(process-drawable-reserved-method-138 () none)
|
|
(process-drawable-reserved-method-139 () none)
|
|
(process-drawable-reserved-method-140 () none)
|
|
(process-drawable-reserved-method-141 () none)
|
|
(process-drawable-reserved-method-142 () none)
|
|
(process-drawable-reserved-method-143 () none)
|
|
(process-drawable-reserved-method-144 () none)
|
|
(process-drawable-reserved-method-145 () none)
|
|
(process-drawable-reserved-method-146 () none)
|
|
(process-drawable-reserved-method-147 () none)
|
|
(process-drawable-reserved-method-148 () none)
|
|
(process-drawable-reserved-method-149 () none)
|
|
(process-drawable-reserved-method-150 () none)
|
|
(process-drawable-reserved-method-151 () none)
|
|
(process-drawable-reserved-method-152 () none)
|
|
(process-drawable-reserved-method-153 () none)
|
|
(process-drawable-reserved-method-154 () none)
|
|
(process-drawable-reserved-method-155 () none)
|
|
(process-drawable-reserved-method-156 () none)
|
|
(process-drawable-reserved-method-157 () none)
|
|
(process-drawable-reserved-method-158 () none)
|
|
(process-drawable-reserved-method-159 () none)
|
|
(process-drawable-reserved-method-160 () none)
|
|
(process-drawable-reserved-method-161 () none)
|
|
(process-drawable-reserved-method-162 () none)
|
|
(process-drawable-reserved-method-163 () none)
|
|
(process-drawable-reserved-method-164 () none)
|
|
(process-drawable-reserved-method-165 () none)
|
|
(process-drawable-reserved-method-166 () none)
|
|
(process-drawable-reserved-method-167 () none)
|
|
(process-drawable-reserved-method-168 () none)
|
|
(process-drawable-reserved-method-169 () none)
|
|
(process-drawable-reserved-method-170 () none)
|
|
(process-drawable-reserved-method-171 () none)
|
|
(process-drawable-reserved-method-172 () none)
|
|
(process-drawable-reserved-method-173 () none)
|
|
(process-drawable-reserved-method-174 () none)
|
|
(process-drawable-reserved-method-175 () none)
|
|
(process-drawable-reserved-method-176 () none)
|
|
(process-drawable-reserved-method-177 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type process-drawable-reserved
|
|
(defmethod inspect ((this process-drawable-reserved))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type attack-dir-info
|
|
(deftype attack-dir-info (structure)
|
|
"Information about the position/direction of an attack."
|
|
((dir vector :inline)
|
|
(xz-dir vector :inline)
|
|
(attacker-velocity vector :inline)
|
|
(pos vector :inline)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type attack-dir-info
|
|
(defmethod inspect ((this attack-dir-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'attack-dir-info)
|
|
(format #t "~1Tdir: #<vector @ #x~X>~%" (-> this dir))
|
|
(format #t "~1Txz-dir: #<vector @ #x~X>~%" (-> this xz-dir))
|
|
(format #t "~1Tattacker-velocity: #<vector @ #x~X>~%" (-> this attacker-velocity))
|
|
(format #t "~1Tpos: #<vector @ #x~X>~%" (-> this pos))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type attack-info
|
|
(deftype attack-info (structure)
|
|
"Information about an incoming attack."
|
|
((trans vector :inline)
|
|
(vector vector :inline)
|
|
(attacker-velocity vector :inline)
|
|
(intersection vector :inline)
|
|
(attacker handle)
|
|
(attack-time time-frame)
|
|
(invinc-time time-frame)
|
|
(mask attack-mask)
|
|
(mode symbol)
|
|
(shove-back meters)
|
|
(shove-up meters)
|
|
(speed meters)
|
|
(dist meters)
|
|
(control float)
|
|
(angle symbol)
|
|
(rotate-to degrees)
|
|
(prev-state state)
|
|
(id uint32)
|
|
(count uint32)
|
|
(penetrate-using penetrate)
|
|
(damage float)
|
|
(shield-damage float)
|
|
(knock knocked-type)
|
|
(test symbol)
|
|
)
|
|
(:methods
|
|
(attack-info-method-9 (_type_ attack-info process-drawable process-drawable) none)
|
|
(compute-intersect-info (_type_ object process-drawable process touching-shapes-entry) attack-info)
|
|
(combine! (_type_ attack-info process-drawable) attack-info)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type attack-info
|
|
(defmethod inspect ((this attack-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-50)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'attack-info)
|
|
(format #t "~1Ttrans: ~`vector`P~%" (-> this trans))
|
|
(format #t "~1Tvector: ~`vector`P~%" (-> this vector))
|
|
(format #t "~1Tattacker-velocity: ~`vector`P~%" (-> this attacker-velocity))
|
|
(format #t "~1Tintersection: ~`vector`P~%" (-> this intersection))
|
|
(format #t "~1Tattacker: ~`handle`P~%" (-> this attacker))
|
|
(format #t "~1Tattack-time: ~D~%" (-> this attack-time))
|
|
(format #t "~1Tinvinc-time: ~D~%" (-> this invinc-time))
|
|
(format #t "~1Tmask: #x~X : (attack-info-mask " (-> this mask))
|
|
(let ((s5-0 (-> this mask)))
|
|
(if (= (logand s5-0 (attack-mask vector)) (attack-mask vector))
|
|
(format #t "vector ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask angle)) (attack-mask angle))
|
|
(format #t "angle ")
|
|
)
|
|
(if (= (logand (attack-mask test) s5-0) (attack-mask test))
|
|
(format #t "test ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask invinc-time)) (attack-mask invinc-time))
|
|
(format #t "invinc-time ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask attacker)) (attack-mask attacker))
|
|
(format #t "attacker ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask dist)) (attack-mask dist))
|
|
(format #t "dist ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask intersection)) (attack-mask intersection))
|
|
(format #t "intersection ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask shove-back)) (attack-mask shove-back))
|
|
(format #t "shove-back ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask shove-up)) (attack-mask shove-up))
|
|
(format #t "shove-up ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask mode)) (attack-mask mode))
|
|
(format #t "mode ")
|
|
)
|
|
(if (= (logand (attack-mask count) s5-0) (attack-mask count))
|
|
(format #t "count ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask rotate-to)) (attack-mask rotate-to))
|
|
(format #t "rotate-to ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask speed)) (attack-mask speed))
|
|
(format #t "speed ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask attack-time)) (attack-mask attack-time))
|
|
(format #t "attack-time ")
|
|
)
|
|
(if (= (logand (attack-mask damage) s5-0) (attack-mask damage))
|
|
(format #t "damage ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask control)) (attack-mask control))
|
|
(format #t "control ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask trans)) (attack-mask trans))
|
|
(format #t "trans ")
|
|
)
|
|
(if (= (logand (attack-mask penetrate-using) s5-0) (attack-mask penetrate-using))
|
|
(format #t "penetrate-using ")
|
|
)
|
|
(if (= (logand (attack-mask attacker-velocity) s5-0) (attack-mask attacker-velocity))
|
|
(format #t "attacker-velocity ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask id)) (attack-mask id))
|
|
(format #t "id ")
|
|
)
|
|
(if (= (logand s5-0 (attack-mask prev-state)) (attack-mask prev-state))
|
|
(format #t "prev-state ")
|
|
)
|
|
(if (= (logand (attack-mask knock) s5-0) (attack-mask knock))
|
|
(format #t "knock ")
|
|
)
|
|
(if (= (logand (attack-mask shield-damage) s5-0) (attack-mask shield-damage))
|
|
(format #t "shield-damage ")
|
|
)
|
|
)
|
|
(format #t ")~%")
|
|
(format #t "~1Tmode: ~A~%" (-> this mode))
|
|
(format #t "~1Tshove-back: (meters ~m)~%" (-> this shove-back))
|
|
(format #t "~1Tshove-up: (meters ~m)~%" (-> this shove-up))
|
|
(format #t "~1Tspeed: (meters ~m)~%" (-> this speed))
|
|
(format #t "~1Tdist: (meters ~m)~%" (-> this dist))
|
|
(format #t "~1Tcontrol: ~f~%" (-> this control))
|
|
(format #t "~1Tangle: ~A~%" (-> this angle))
|
|
(format #t "~1Trotate-to: (deg ~r)~%" (-> this rotate-to))
|
|
(format #t "~1Tprev-state: ~A~%" (-> this prev-state))
|
|
(format #t "~1Tid: ~D~%" (-> this id))
|
|
(format #t "~1Tcount: ~D~%" (-> this count))
|
|
(format #t "~1Tpenetrate-using: ~D~%" (-> this penetrate-using))
|
|
(format #t "~1Tdamage: ~f~%" (-> this damage))
|
|
(format #t "~1Tshield-damage: ~f~%" (-> this shield-damage))
|
|
(format #t "~1Tknock: ~D~%" (-> this knock))
|
|
(format #t "~1Ttest: ~A~%" (-> this test))
|
|
(label cfg-50)
|
|
this
|
|
)
|
|
|
|
;; definition of type ground-tween-info
|
|
(deftype ground-tween-info (structure)
|
|
((chan uint8 3)
|
|
(blend float 3)
|
|
(group uint32 5)
|
|
)
|
|
:pack-me
|
|
)
|
|
|
|
;; definition for method 3 of type ground-tween-info
|
|
(defmethod inspect ((this ground-tween-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'ground-tween-info)
|
|
(format #t "~1Tchan[3] @ #x~X~%" (-> this chan))
|
|
(format #t "~1Tblend[3] @ #x~X~%" (-> this blend))
|
|
(format #t "~1Tgroup[5] @ #x~X~%" (-> this group))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|