mirror of
https://github.com/open-goal/jak-project
synced 2026-08-02 16:46:26 -04:00
Hat Kid
fc43870d85
This renames the method object in `defmethod`s to `this` and adds detection for the `set-time!` and `time-elapsed?` macros. Definitely my biggest PR yet...
368 lines
17 KiB
Common Lisp
Vendored
Generated
368 lines
17 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type target
|
|
(deftype target (process-focusable)
|
|
((self target :override)
|
|
(fact fact-info-target :override)
|
|
(control control-info :offset 128)
|
|
(skel2 joint-control :offset-assert 204)
|
|
(shadow-backup shadow-geo :offset-assert 208)
|
|
(target-flags uint32 :offset 188)
|
|
(game game-info :offset-assert 212)
|
|
(neck joint-mod :offset-assert 216)
|
|
(head joint-mod :offset-assert 220)
|
|
(upper-body joint-mod :offset-assert 224)
|
|
(horns joint-mod :offset-assert 228)
|
|
(hair joint-mod 2 :offset-assert 232)
|
|
(darkjak-interp float :offset-assert 240)
|
|
(darkjak-giant-interp float :offset-assert 244)
|
|
(arm-ik joint-mod-ik 2 :offset-assert 248)
|
|
(leg-ik joint-mod-ik 2 :offset-assert 256)
|
|
(foot joint-mod 2 :offset-assert 264)
|
|
(mech-ik joint-mod-ik 2 :offset-assert 272)
|
|
(init-time time-frame :offset 272)
|
|
(teleport-time time-frame :offset-assert 280)
|
|
(state-hook-time time-frame :offset-assert 288)
|
|
(state-hook (function none :behavior target) :offset-assert 296)
|
|
(cam-user-mode symbol :offset-assert 300)
|
|
(sidekick (pointer sidekick) :offset-assert 304)
|
|
(manipy (pointer manipy) :offset-assert 308)
|
|
(mirror (pointer process-drawable) :offset-assert 312)
|
|
(attack-info attack-info :inline :offset-assert 320)
|
|
(attack-info-rec attack-info :inline :offset-assert 480)
|
|
(attack-info-old attack-info 8 :inline :offset-assert 640)
|
|
(anim-seed uint64 :offset-assert 1920)
|
|
(alt-cam-pos vector :inline :offset-assert 1936)
|
|
(current-level level :offset-assert 1952)
|
|
(saved-pos transformq :inline :offset-assert 1968)
|
|
(saved-owner uint64 :offset-assert 2016)
|
|
(alt-neck-pos vector :inline :offset-assert 2032)
|
|
(focus-search (array collide-shape) :offset-assert 2048)
|
|
(excitement float :offset-assert 2052)
|
|
(shock-effect-time time-frame :offset-assert 2056)
|
|
(beard? symbol :offset-assert 2064)
|
|
(spool-anim spool-anim :offset-assert 2068)
|
|
(ambient-time time-frame :offset-assert 2072)
|
|
(fp-hud handle :offset-assert 2080)
|
|
(no-load-wait uint64 :offset-assert 2088)
|
|
(no-look-around-wait uint64 :offset-assert 2096)
|
|
(burn-proc handle :offset-assert 2104)
|
|
(pre-joint-hook (function none :behavior target) :offset-assert 2112)
|
|
(notify handle :offset-assert 2120)
|
|
(mode-cache basic :offset-assert 2128)
|
|
(mode-param1 handle :offset-assert 2136)
|
|
(mode-param2 uint64 :offset-assert 2144)
|
|
(mode-param3 uint64 :offset-assert 2152)
|
|
(tobot-state state :offset-assert 2160)
|
|
(tobot? symbol :offset-assert 2164)
|
|
(tobot-recorder basic :offset-assert 2168)
|
|
(color-effect basic :offset-assert 2172)
|
|
(color-effect-start-time time-frame :offset-assert 2176)
|
|
(color-effect-duration uint64 :offset-assert 2184)
|
|
(racer racer-info :offset-assert 2192)
|
|
(tube tube-info :offset-assert 2196)
|
|
(flut flut-info :offset-assert 2200)
|
|
(board board-info :offset-assert 2204)
|
|
(pilot pilot-info :offset-assert 2208)
|
|
(gun gun-info :offset-assert 2212)
|
|
(mech mech-info :offset-assert 2216)
|
|
(turret turret-info :offset-assert 2220)
|
|
(darkjak darkjak-info :offset-assert 2224)
|
|
(indax indax-info :offset-assert 2228)
|
|
)
|
|
:heap-base #x840
|
|
:method-count-assert 29
|
|
:size-assert #x8b8
|
|
:flag-assert #x1d084008b8
|
|
(:methods
|
|
(do-edge-grabs (_type_ collide-cache collide-edge-spec) none 27)
|
|
(init-target (_type_ continue-point symbol) none :behavior target 28)
|
|
)
|
|
(:states
|
|
target-attack
|
|
(target-attack-air symbol)
|
|
(target-attack-uppercut float float)
|
|
(target-attack-uppercut-jump float float)
|
|
(target-board-clone-anim handle)
|
|
target-board-duck-stance
|
|
target-board-falling
|
|
(target-board-flip float float symbol)
|
|
(target-board-get-off object symbol)
|
|
target-board-get-on
|
|
(target-board-grab symbol)
|
|
(target-board-grenade handle)
|
|
target-board-halfpipe
|
|
(target-board-hit vector attack-info)
|
|
target-board-hit-ground
|
|
(target-board-hold float float symbol)
|
|
(target-board-jump meters meters symbol)
|
|
target-board-jump-kick
|
|
(target-board-pegasus handle)
|
|
(target-board-ride-edge symbol)
|
|
target-board-stance
|
|
(target-board-start object)
|
|
(target-board-trickx float float symbol)
|
|
(target-board-turn-to vector time-frame)
|
|
(target-board-wall-kick vector float)
|
|
target-carry-drop
|
|
target-carry-falling
|
|
(target-carry-hit-ground symbol)
|
|
(target-carry-jump float float symbol)
|
|
target-carry-pickup
|
|
target-carry-stance
|
|
target-carry-throw
|
|
target-carry-walk
|
|
(target-clone-anim handle)
|
|
(target-continue continue-point)
|
|
target-darkjak-bomb0
|
|
(target-darkjak-bomb1 float float)
|
|
target-darkjak-get-off
|
|
(target-darkjak-get-on darkjak-stage)
|
|
target-darkjak-giant
|
|
target-darkjak-running-attack
|
|
(target-death symbol)
|
|
(target-demo symbol)
|
|
(target-double-jump float float)
|
|
(target-duck-high-jump float float symbol)
|
|
(target-duck-high-jump-jump float float symbol)
|
|
(target-duck-stance symbol)
|
|
(target-duck-walk symbol)
|
|
target-edge-grab
|
|
(target-edge-grab-jump float float)
|
|
target-edge-grab-off
|
|
(target-falling symbol)
|
|
target-float
|
|
(target-flop float float float)
|
|
(target-flop-hit-ground symbol)
|
|
(target-flut-start handle)
|
|
(target-grab symbol)
|
|
target-gun-stance
|
|
target-gun-walk
|
|
target-hide
|
|
(target-high-jump float float object)
|
|
(target-hit symbol attack-info)
|
|
(target-hit-ground symbol)
|
|
(target-hit-ground-hard float)
|
|
target-ice-stance
|
|
target-ice-walk
|
|
target-indax-attack
|
|
(target-indax-attack-air symbol)
|
|
(target-indax-death symbol)
|
|
(target-indax-double-jump float float)
|
|
(target-indax-falling symbol)
|
|
(target-indax-hit symbol attack-info)
|
|
(target-indax-hit-ground symbol)
|
|
(target-indax-jump float float surface)
|
|
target-indax-running-attack
|
|
target-indax-stance
|
|
(target-indax-start handle)
|
|
target-indax-trip
|
|
target-indax-walk
|
|
(target-jump float float surface)
|
|
(target-jump-forward float float)
|
|
(target-launch float symbol vector int)
|
|
target-load-wait
|
|
target-look-around
|
|
target-mech-carry-drag
|
|
target-mech-carry-drop
|
|
target-mech-carry-falling
|
|
(target-mech-carry-hit-ground symbol)
|
|
(target-mech-carry-jump float float symbol)
|
|
target-mech-carry-pickup
|
|
target-mech-carry-stance
|
|
target-mech-carry-throw
|
|
target-mech-carry-walk
|
|
(target-mech-clone-anim handle)
|
|
(target-mech-death symbol)
|
|
(target-mech-falling symbol)
|
|
target-mech-get-off
|
|
(target-mech-get-on handle)
|
|
target-mech-grab
|
|
(target-mech-hit symbol attack-info)
|
|
(target-mech-hit-ground symbol)
|
|
(target-mech-jump float float surface)
|
|
target-mech-punch
|
|
target-mech-stance
|
|
(target-mech-start handle float symbol)
|
|
target-mech-walk
|
|
(target-pilot-clone-anim handle)
|
|
(target-pilot-death symbol)
|
|
(target-pilot-edge-grab pilot-edge-grab-info)
|
|
target-pilot-get-off
|
|
target-pilot-get-on
|
|
target-pilot-grab
|
|
(target-pilot-hit symbol attack-info)
|
|
target-pilot-impact
|
|
target-pilot-stance
|
|
(target-pilot-start handle symbol symbol)
|
|
(target-play-anim string handle)
|
|
(target-pole-cycle handle)
|
|
(target-pole-flip-forward float float float)
|
|
(target-pole-flip-forward-jump float float)
|
|
(target-pole-flip-up object object float)
|
|
(target-pole-flip-up-jump float float)
|
|
(target-racing-start handle)
|
|
target-roll
|
|
(target-roll-flip float float)
|
|
target-running-attack
|
|
target-slide-down
|
|
target-slide-down-to-ground
|
|
target-stance
|
|
target-stance-ambient
|
|
target-stance-look-around
|
|
target-startup
|
|
target-swim-down
|
|
(target-swim-jump float float)
|
|
(target-swim-jump-jump float float surface)
|
|
target-swim-stance
|
|
target-swim-up
|
|
target-swim-walk
|
|
(target-title symbol)
|
|
target-tube
|
|
(target-tube-death symbol)
|
|
(target-tube-hit symbol attack-info)
|
|
(target-tube-jump float float)
|
|
(target-tube-start handle)
|
|
target-turn-around
|
|
target-turret-get-off
|
|
(target-turret-get-on handle)
|
|
(target-turret-stance handle)
|
|
target-wade-stance
|
|
target-wade-walk
|
|
target-walk
|
|
(target-warp-in vector vector target)
|
|
(target-warp-out vector vector target)
|
|
target-yellow-jump-blast
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type target
|
|
(defmethod inspect target ((this target))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-focusable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tcontrol: ~A~%" (-> this control))
|
|
(format #t "~2Tskel2: ~A~%" (-> this skel2))
|
|
(format #t "~2Tshadow-backup: ~A~%" (-> this shadow-backup))
|
|
(format #t "~2Ttarget-flags: ~D~%" (-> this state-flags))
|
|
(format #t "~2Tgame: ~A~%" (-> this game))
|
|
(format #t "~2Tneck: ~A~%" (-> this neck))
|
|
(format #t "~2Thead: ~A~%" (-> this head))
|
|
(format #t "~2Tupper-body: ~A~%" (-> this upper-body))
|
|
(format #t "~2Thorns: ~A~%" (-> this horns))
|
|
(format #t "~2Thair[2] @ #x~X~%" (-> this hair))
|
|
(format #t "~2Tdarkjak-interp: ~f~%" (-> this darkjak-interp))
|
|
(format #t "~2Tdarkjak-giant-interp: ~f~%" (-> this darkjak-giant-interp))
|
|
(format #t "~2Tarm-ik[2] @ #x~X~%" (-> this arm-ik))
|
|
(format #t "~2Tleg-ik[2] @ #x~X~%" (-> this leg-ik))
|
|
(format #t "~2Tfoot[2] @ #x~X~%" (-> this foot))
|
|
(format #t "~2Tinit-time: ~D~%" (-> this init-time))
|
|
(format #t "~2Tteleport-time: ~D~%" (-> this teleport-time))
|
|
(format #t "~2Tstate-hook-time: ~D~%" (-> this state-hook-time))
|
|
(format #t "~2Tstate-hook: ~A~%" (-> this state-hook))
|
|
(format #t "~2Tcam-user-mode: ~A~%" (-> this cam-user-mode))
|
|
(format #t "~2Tsidekick: #x~X~%" (-> this sidekick))
|
|
(format #t "~2Tmanipy: #x~X~%" (-> this manipy))
|
|
(format #t "~2Tmirror: #x~X~%" (-> this mirror))
|
|
(format #t "~2Tattack-info: #<attack-info @ #x~X>~%" (-> this attack-info))
|
|
(format #t "~2Tattack-info-rec: #<attack-info @ #x~X>~%" (-> this attack-info-rec))
|
|
(format #t "~2Tattack-info-old[8] @ #x~X~%" (-> this attack-info-old))
|
|
(format #t "~2Tanim-seed: ~D~%" (-> this anim-seed))
|
|
(format #t "~2Talt-cam-pos: ~`vector`P~%" (-> this alt-cam-pos))
|
|
(format #t "~2Tcurrent-level: ~A~%" (-> this current-level))
|
|
(format #t "~2Tsaved-pos: #<transformq @ #x~X>~%" (-> this saved-pos))
|
|
(format #t "~2Tsaved-owner: ~D~%" (-> this saved-owner))
|
|
(format #t "~2Talt-neck-pos: ~`vector`P~%" (-> this alt-neck-pos))
|
|
(format #t "~2Tfocus-search: ~A~%" (-> this focus-search))
|
|
(format #t "~2Texcitement: ~f~%" (-> this excitement))
|
|
(format #t "~2Tshock-effect-time: ~D~%" (-> this shock-effect-time))
|
|
(format #t "~2Tbeard?: ~A~%" (-> this beard?))
|
|
(format #t "~2Tspool-anim: ~A~%" (-> this spool-anim))
|
|
(format #t "~2Tambient-time: ~D~%" (-> this ambient-time))
|
|
(format #t "~2Tfp-hud: ~D~%" (-> this fp-hud))
|
|
(format #t "~2Tno-load-wait: ~D~%" (-> this no-load-wait))
|
|
(format #t "~2Tno-look-around-wait: ~D~%" (-> this no-look-around-wait))
|
|
(format #t "~2Tburn-proc: ~D~%" (-> this burn-proc))
|
|
(format #t "~2Tpre-joint-hook: ~A~%" (-> this pre-joint-hook))
|
|
(format #t "~2Tnotify: ~D~%" (-> this notify))
|
|
(format #t "~2Tmode-cache: ~A~%" (-> this mode-cache))
|
|
(format #t "~2Tmode-param1: ~D~%" (-> this mode-param1))
|
|
(format #t "~2Tmode-param2: ~A~%" (-> this mode-param2))
|
|
(format #t "~2Tmode-param3: ~A~%" (-> this mode-param3))
|
|
(format #t "~2Ttobot-state: ~A~%" (-> this tobot-state))
|
|
(format #t "~2Ttobot?: ~A~%" (-> this tobot?))
|
|
(format #t "~2Ttobot-recorder: ~A~%" (-> this tobot-recorder))
|
|
(format #t "~2Tcolor-effect: ~A~%" (-> this color-effect))
|
|
(format #t "~2Tcolor-effect-start-time: ~D~%" (-> this color-effect-start-time))
|
|
(format #t "~2Tcolor-effect-duration: ~D~%" (-> this color-effect-duration))
|
|
(format #t "~2Tracer: ~A~%" (-> this racer))
|
|
(format #t "~2Ttube: ~A~%" (-> this tube))
|
|
(format #t "~2Tflut: ~A~%" (-> this flut))
|
|
(format #t "~2Tboard: ~A~%" (-> this board))
|
|
(format #t "~2Tpilot: ~A~%" (-> this pilot))
|
|
(format #t "~2Tgun: ~A~%" (-> this gun))
|
|
(format #t "~2Tmech: ~A~%" (-> this mech))
|
|
(format #t "~2Tturret: ~A~%" (-> this turret))
|
|
(format #t "~2Tdarkjak: ~A~%" (-> this darkjak))
|
|
(format #t "~2Tindax: ~A~%" (-> this indax))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition (perm) for symbol *target*, type target
|
|
(define-perm *target* target #f)
|
|
|
|
;; definition of type sidekick
|
|
(deftype sidekick (process-drawable)
|
|
((parent (pointer target) :override)
|
|
(control control-info :offset 128)
|
|
(anim-seed uint64 :offset 208)
|
|
(shadow-in-movie? symbol :offset-assert 216)
|
|
(special-anim-time time-frame :offset-assert 224)
|
|
(special-anim-interp float :offset-assert 232)
|
|
(special-anim-frame float :offset-assert 236)
|
|
(offset transformq :inline :offset-assert 240)
|
|
(mirror (pointer process-drawable) :offset-assert 288)
|
|
)
|
|
:heap-base #xb0
|
|
:method-count-assert 20
|
|
:size-assert #x124
|
|
:flag-assert #x1400b00124
|
|
(:states
|
|
sidekick-clone
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sidekick
|
|
(defmethod inspect sidekick ((this sidekick))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tcontrol: ~A~%" (-> this root))
|
|
(format #t "~2Tstate-time: ~D~%" (-> this state-time))
|
|
(format #t "~2Tanim-seed: ~D~%" (-> this anim-seed))
|
|
(format #t "~2Tshadow-in-movie?: ~A~%" (-> this shadow-in-movie?))
|
|
(format #t "~2Tspecial-anim-time: ~D~%" (-> this special-anim-time))
|
|
(format #t "~2Tspecial-anim-interp: ~f~%" (-> this special-anim-interp))
|
|
(format #t "~2Tspecial-anim-frame: ~f~%" (-> this special-anim-frame))
|
|
(format #t "~2Toffset: #<transformq @ #x~X>~%" (-> this offset))
|
|
(format #t "~2Tmirror: #x~X~%" (-> this mirror))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition (perm) for symbol *sidekick*, type sidekick
|
|
(define-perm *sidekick* sidekick #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(new 'static 'boxed-array :type type pilot-info mech-info turret-info indax-info tube-info)
|