mirror of
https://github.com/open-goal/jak-project
synced 2026-07-10 07:07:04 -04:00
Tyler Wilding
469 lines
19 KiB
Common Lisp
Vendored
Generated
469 lines
19 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type process-drawable
|
|
(deftype process-drawable (process-nettable)
|
|
((root trsqv)
|
|
(node-list cspace-array)
|
|
(draw draw-control)
|
|
(skel joint-control)
|
|
(nav nav-control)
|
|
(path path-control)
|
|
(vol vol-control)
|
|
(fact fact-info)
|
|
(link actor-link-info)
|
|
(part sparticle-launch-control)
|
|
(sound ambient-sound)
|
|
(rbody rigid-body-control)
|
|
(state-flags state-flags)
|
|
(state-time time-frame)
|
|
)
|
|
(:methods
|
|
(process-drawable-method-42 () none)
|
|
(process-drawable-method-43 () none)
|
|
(process-drawable-method-44 () none)
|
|
(process-drawable-method-45 () none)
|
|
(process-drawable-method-46 () none)
|
|
(process-drawable-method-47 () none)
|
|
(process-drawable-method-48 () none)
|
|
(process-drawable-method-49 () 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-nettable 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 "~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 "~2Tsound: ~A~%" (-> this sound))
|
|
(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-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)
|
|
(process-drawable-reserved-method-178 () none)
|
|
(process-drawable-reserved-method-179 () none)
|
|
(process-drawable-reserved-method-180 () none)
|
|
(process-drawable-reserved-method-181 () none)
|
|
(process-drawable-reserved-method-182 () none)
|
|
(process-drawable-reserved-method-183 () none)
|
|
(process-drawable-reserved-method-184 () none)
|
|
(process-drawable-reserved-method-185 () none)
|
|
(process-drawable-reserved-method-186 () none)
|
|
(process-drawable-reserved-method-187 () none)
|
|
(process-drawable-reserved-method-188 () none)
|
|
(process-drawable-reserved-method-189 () none)
|
|
(process-drawable-reserved-method-190 () none)
|
|
(process-drawable-reserved-method-191 () none)
|
|
(process-drawable-reserved-method-192 () none)
|
|
(process-drawable-reserved-method-193 () none)
|
|
(process-drawable-reserved-method-194 () none)
|
|
(process-drawable-reserved-method-195 () none)
|
|
(process-drawable-reserved-method-196 () none)
|
|
(process-drawable-reserved-method-197 () none)
|
|
(process-drawable-reserved-method-198 () none)
|
|
(process-drawable-reserved-method-199 () none)
|
|
(process-drawable-reserved-method-200 () none)
|
|
(process-drawable-reserved-method-201 () none)
|
|
(process-drawable-reserved-method-202 () none)
|
|
(process-drawable-reserved-method-203 () none)
|
|
(process-drawable-reserved-method-204 () none)
|
|
(process-drawable-reserved-method-205 () none)
|
|
(process-drawable-reserved-method-206 () none)
|
|
(process-drawable-reserved-method-207 () none)
|
|
(process-drawable-reserved-method-208 () none)
|
|
(process-drawable-reserved-method-209 () none)
|
|
(process-drawable-reserved-method-210 () none)
|
|
(process-drawable-reserved-method-211 () none)
|
|
(process-drawable-reserved-method-212 () none)
|
|
(process-drawable-reserved-method-213 () none)
|
|
(process-drawable-reserved-method-214 () none)
|
|
(process-drawable-reserved-method-215 () none)
|
|
(process-drawable-reserved-method-216 () none)
|
|
(process-drawable-reserved-method-217 () none)
|
|
(process-drawable-reserved-method-218 () none)
|
|
(process-drawable-reserved-method-219 () none)
|
|
(process-drawable-reserved-method-220 () none)
|
|
(process-drawable-reserved-method-221 () none)
|
|
(process-drawable-reserved-method-222 () none)
|
|
(process-drawable-reserved-method-223 () none)
|
|
(process-drawable-reserved-method-224 () none)
|
|
(process-drawable-reserved-method-225 () none)
|
|
(process-drawable-reserved-method-226 () none)
|
|
(process-drawable-reserved-method-227 () none)
|
|
(process-drawable-reserved-method-228 () none)
|
|
(process-drawable-reserved-method-229 () none)
|
|
(process-drawable-reserved-method-230 () none)
|
|
(process-drawable-reserved-method-231 () none)
|
|
(process-drawable-reserved-method-232 () none)
|
|
(process-drawable-reserved-method-233 () none)
|
|
(process-drawable-reserved-method-234 () none)
|
|
(process-drawable-reserved-method-235 () none)
|
|
(process-drawable-reserved-method-236 () none)
|
|
(process-drawable-reserved-method-237 () none)
|
|
(process-drawable-reserved-method-238 () none)
|
|
(process-drawable-reserved-method-239 () none)
|
|
(process-drawable-reserved-method-240 () none)
|
|
(process-drawable-reserved-method-241 () none)
|
|
(process-drawable-reserved-method-242 () none)
|
|
(process-drawable-reserved-method-243 () none)
|
|
(process-drawable-reserved-method-244 () none)
|
|
(process-drawable-reserved-method-245 () none)
|
|
(process-drawable-reserved-method-246 () none)
|
|
(process-drawable-reserved-method-247 () 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 uint8)
|
|
(penetrate-using penetrate)
|
|
(damage float)
|
|
(shield-damage float)
|
|
(vehicle-damage-factor float)
|
|
(vehicle-impulse-factor float)
|
|
(knock knocked-type)
|
|
(test symbol)
|
|
)
|
|
(:methods
|
|
(attack-info-method-9 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type attack-info
|
|
(defmethod inspect ((this attack-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-56)
|
|
)
|
|
(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 (attack-mask wpn-type) s5-0) (attack-mask wpn-type))
|
|
(format #t "wpn-type ")
|
|
)
|
|
(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 vehicle-damage-factor) s5-0) (attack-mask vehicle-damage-factor))
|
|
(format #t "vehicle-damage-factor ")
|
|
)
|
|
(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 vehicle-impulse-factor) s5-0) (attack-mask vehicle-impulse-factor))
|
|
(format #t "vehicle-impulse-factor ")
|
|
)
|
|
(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 "~1Twpn-type: ~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 "~1Tvehicle-damage-factor: ~f~%" (-> this vehicle-damage-factor))
|
|
(format #t "~1Tvehicle-impulse-factor: ~f~%" (-> this vehicle-impulse-factor))
|
|
(format #t "~1Tknock: ~D~%" (-> this knock))
|
|
(format #t "~1Ttest: ~A~%" (-> this test))
|
|
(label cfg-56)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|
|
|
|
|
|
|
|
|