mirror of
https://github.com/open-goal/jak-project
synced 2026-09-12 12:55:22 -04:00
Hat Kid
2969833b2d
- `speech` - `ambient` - `water-h` - `vol-h` - `generic-obs` - `carry-h` - `pilot-h` - `board-h` - `gun-h` - `flut-h` - `indax-h` - `lightjak-h` - `darkjak-h` - `target-util` - `history` - `collide-reaction-target` - `logic-target` - `sidekick` - `projectile` - `voicebox` - `ragdoll-edit` - most of `ragdoll` (not added to gsrc yet) - `curves` - `find-nearest` - `lightjak-wings` - `target-handler` - `target-anim` - `target` - `target2` - `target-swim` - `target-lightjak` - `target-invisible` - `target-death` - `target-gun` - `gun-util` - `board-util` - `target-board` - `board-states` - `mech-h` - `vol` - `vent` - `viewer` - `gem-pool` - `collectables` - `crates` - `secrets-menu` Additionally: - Detection of non-virtual state inheritance - Added a config file that allows overriding the process stack size set by `stack-size-set!` calls - Fix for integer multiplication with `r0` - Fixed detection for the following macros: - `static-attack-info` - `defpart` and `defpartgroup` (probably still needs adjustments, uses Jak 2 implementation at the moment) - `sound-play` (Jak 3 seems to always call `sound-play-by-name` with a `sound-group` of 0, so the macro has been temporarily defaulted to use that) One somewhat significant change made here that should be noted is that the return type of `process::init-from-entity!` was changed to `object`. I've been thinking about this for a while, since it looks a bit nicer without the `(none)` at the end and I have recently encountered init methods that early return `0`.
318 lines
8.5 KiB
Common Lisp
Vendored
Generated
318 lines
8.5 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type sync-info-params
|
|
(deftype sync-info-params (structure)
|
|
"Parameters used to set up a [[sync-info]]."
|
|
((sync-type symbol)
|
|
(sync-flags sync-flags)
|
|
(entity entity-actor)
|
|
(period uint32)
|
|
(percent float)
|
|
(ease-in float)
|
|
(ease-out float)
|
|
(pause-in float)
|
|
(pause-out float)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sync-info-params
|
|
(defmethod inspect ((this sync-info-params))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sync-info-params)
|
|
(format #t "~1Tsync-type: ~A~%" (-> this sync-type))
|
|
(format #t "~1Tsync-flags: ~D~%" (-> this sync-flags))
|
|
(format #t "~1Tentity: ~A~%" (-> this entity))
|
|
(format #t "~1Tperiod: ~D~%" (-> this period))
|
|
(format #t "~1Tpercent: ~f~%" (-> this percent))
|
|
(format #t "~1Tease-in: ~f~%" (-> this ease-in))
|
|
(format #t "~1Tease-out: ~f~%" (-> this ease-out))
|
|
(format #t "~1Tpause-in: ~f~%" (-> this pause-in))
|
|
(format #t "~1Tpause-out: ~f~%" (-> this pause-out))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sync-info
|
|
(deftype sync-info (structure)
|
|
((sync-flags sync-flags)
|
|
(offset float)
|
|
(period uint32)
|
|
)
|
|
(:methods
|
|
(sync-info-method-9 () none)
|
|
(sync-info-method-10 () none)
|
|
(get-norm! (_type_ int) float)
|
|
(sync-info-method-12 () none)
|
|
(initialize! (_type_ sync-info-params) none)
|
|
(sync-info-method-14 () none)
|
|
(sync-info-method-15 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sync-info
|
|
(defmethod inspect ((this sync-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sync-info)
|
|
(format #t "~1Tsync-flags: ~D~%" (-> this sync-flags))
|
|
(format #t "~1Toffset: ~f~%" (-> this offset))
|
|
(format #t "~1Tperiod: ~D~%" (-> this period))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sync-linear
|
|
(deftype sync-linear (sync-info)
|
|
()
|
|
:pack-me
|
|
)
|
|
|
|
;; definition for method 3 of type sync-linear
|
|
(defmethod inspect ((this sync-linear))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sync-linear)
|
|
(format #t "~1Tsync-flags: ~D~%" (-> this sync-flags))
|
|
(format #t "~1Toffset: ~f~%" (-> this offset))
|
|
(format #t "~1Tperiod: ~D~%" (-> this period))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sync-eased
|
|
(deftype sync-eased (sync-info)
|
|
((tlo float)
|
|
(thi float)
|
|
(ylo float)
|
|
(m2 float)
|
|
(yend float)
|
|
(pause-in float)
|
|
(pause-out float)
|
|
)
|
|
:pack-me
|
|
)
|
|
|
|
;; definition for method 3 of type sync-eased
|
|
(defmethod inspect ((this sync-eased))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sync-eased)
|
|
(format #t "~1Tsync-flags: ~D~%" (-> this sync-flags))
|
|
(format #t "~1Toffset: ~f~%" (-> this offset))
|
|
(format #t "~1Tperiod: ~D~%" (-> this period))
|
|
(format #t "~1Ttlo: ~f~%" (-> this tlo))
|
|
(format #t "~1Tthi: ~f~%" (-> this thi))
|
|
(format #t "~1Tylo: ~f~%" (-> this ylo))
|
|
(format #t "~1Tm2: ~f~%" (-> this m2))
|
|
(format #t "~1Tyend: ~f~%" (-> this yend))
|
|
(format #t "~1Tpause-in: ~f~%" (-> this pause-in))
|
|
(format #t "~1Tpause-out: ~f~%" (-> this pause-out))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type sync-paused
|
|
(deftype sync-paused (sync-info)
|
|
((pause-in float)
|
|
(pause-out float)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type sync-paused
|
|
(defmethod inspect ((this sync-paused))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'sync-paused)
|
|
(format #t "~1Tsync-flags: ~D~%" (-> this sync-flags))
|
|
(format #t "~1Toffset: ~f~%" (-> this offset))
|
|
(format #t "~1Tperiod: ~D~%" (-> this period))
|
|
(format #t "~1Tpause-in: ~f~%" (-> this pause-in))
|
|
(format #t "~1Tpause-out: ~f~%" (-> this pause-out))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type delayed-rand-float
|
|
(deftype delayed-rand-float (structure)
|
|
((min-time int32)
|
|
(max-time int32)
|
|
(max-val float)
|
|
(timer int32)
|
|
(start-time time-frame)
|
|
(value float)
|
|
)
|
|
:pack-me
|
|
(:methods
|
|
(delayed-rand-float-method-9 () none)
|
|
(delayed-rand-float-method-10 () none)
|
|
(delayed-rand-float-method-11 () none)
|
|
(delayed-rand-float-method-12 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type delayed-rand-float
|
|
(defmethod inspect ((this delayed-rand-float))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'delayed-rand-float)
|
|
(format #t "~1Tmin-time: ~D~%" (-> this min-time))
|
|
(format #t "~1Tmax-time: ~D~%" (-> this max-time))
|
|
(format #t "~1Tmax-val: ~f~%" (-> this max-val))
|
|
(format #t "~1Ttimer: ~D~%" (-> this timer))
|
|
(format #t "~1Tstart-time: ~D~%" (-> this start-time))
|
|
(format #t "~1Tvalue: ~f~%" (-> this value))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type oscillating-float
|
|
(deftype oscillating-float (structure)
|
|
((value float)
|
|
(target float)
|
|
(vel float)
|
|
(max-vel float)
|
|
(damping float)
|
|
(accel float)
|
|
)
|
|
:allow-misaligned
|
|
(:methods
|
|
(oscillating-float-method-9 () none)
|
|
(oscillating-float-method-10 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type oscillating-float
|
|
(defmethod inspect ((this oscillating-float))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'oscillating-float)
|
|
(format #t "~1Tvalue: ~f~%" (-> this value))
|
|
(format #t "~1Ttarget: ~f~%" (-> this target))
|
|
(format #t "~1Tvel: ~f~%" (-> this vel))
|
|
(format #t "~1Tmax-vel: ~f~%" (-> this max-vel))
|
|
(format #t "~1Tdamping: ~f~%" (-> this damping))
|
|
(format #t "~1Taccel: ~f~%" (-> this accel))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type bouncing-float
|
|
(deftype bouncing-float (structure)
|
|
((osc oscillating-float :inline)
|
|
(max-value float)
|
|
(min-value float)
|
|
(elasticity float)
|
|
(state int32)
|
|
)
|
|
:allow-misaligned
|
|
(:methods
|
|
(bouncing-float-method-9 () none)
|
|
(bouncing-float-method-10 () none)
|
|
(bouncing-float-method-11 () none)
|
|
(bouncing-float-method-12 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type bouncing-float
|
|
(defmethod inspect ((this bouncing-float))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'bouncing-float)
|
|
(format #t "~1Tosc: #<oscillating-float @ #x~X>~%" (-> this osc))
|
|
(format #t "~1Tmax-value: ~f~%" (-> this max-value))
|
|
(format #t "~1Tmin-value: ~f~%" (-> this min-value))
|
|
(format #t "~1Telasticity: ~f~%" (-> this elasticity))
|
|
(format #t "~1Tstate: ~D~%" (-> this state))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type delayed-rand-vector
|
|
(deftype delayed-rand-vector (structure)
|
|
((min-time int32)
|
|
(max-time int32)
|
|
(xz-max float)
|
|
(y-max float)
|
|
(timer int32)
|
|
(start-time time-frame)
|
|
(value vector :inline)
|
|
)
|
|
(:methods
|
|
(delayed-rand-vector-method-9 () none)
|
|
(delayed-rand-vector-method-10 () none)
|
|
(delayed-rand-vector-method-11 () none)
|
|
(delayed-rand-vector-method-12 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type delayed-rand-vector
|
|
(defmethod inspect ((this delayed-rand-vector))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'delayed-rand-vector)
|
|
(format #t "~1Tmin-time: ~D~%" (-> this min-time))
|
|
(format #t "~1Tmax-time: ~D~%" (-> this max-time))
|
|
(format #t "~1Txz-max: ~f~%" (-> this xz-max))
|
|
(format #t "~1Ty-max: ~f~%" (-> this y-max))
|
|
(format #t "~1Ttimer: ~D~%" (-> this timer))
|
|
(format #t "~1Tstart-time: ~D~%" (-> this start-time))
|
|
(format #t "~1Tvalue: #<vector @ #x~X>~%" (-> this value))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type oscillating-vector
|
|
(deftype oscillating-vector (structure)
|
|
((value vector :inline)
|
|
(target vector :inline)
|
|
(vel vector :inline)
|
|
(max-vel float)
|
|
(damping float)
|
|
(accel float)
|
|
)
|
|
(:methods
|
|
(oscillating-vector-method-9 () none)
|
|
(oscillating-vector-method-10 () none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type oscillating-vector
|
|
(defmethod inspect ((this oscillating-vector))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'oscillating-vector)
|
|
(format #t "~1Tvalue: #<vector @ #x~X>~%" (-> this value))
|
|
(format #t "~1Ttarget: #<vector @ #x~X>~%" (-> this target))
|
|
(format #t "~1Tvel: #<vector @ #x~X>~%" (-> this vel))
|
|
(format #t "~1Tmax-vel: ~f~%" (-> this max-vel))
|
|
(format #t "~1Tdamping: ~f~%" (-> this damping))
|
|
(format #t "~1Taccel: ~f~%" (-> this accel))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|