mirror of
https://github.com/open-goal/jak-project
synced 2026-08-07 10:16:45 -04:00
Hat Kid
93afb02cf4
This includes all the collision stuff needed to spawn `target`, decompiles the sparticle code and adds some of the PC hacks needed for merc to run (it doesn't work quite right and looks bad, likely due to a combination of code copied from Jak 2 and the time of day hacks). There are a bunch of temporary hacks (see commits) in place to prevent the game from crashing quite as much, but it is still extremely prone to doing so due to lots of missing functions/potentially bad decomp. --------- Co-authored-by: water <awaterford111445@gmail.com>
81 lines
2.2 KiB
Common Lisp
Vendored
Generated
81 lines
2.2 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type prim-beam-settings
|
|
(deftype prim-beam-settings (structure)
|
|
((width float)
|
|
(color rgba)
|
|
(alpha float)
|
|
(tex-id uint32)
|
|
(num-tiles float)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prim-beam-settings
|
|
(defmethod inspect ((this prim-beam-settings))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'prim-beam-settings)
|
|
(format #t "~1Twidth: ~f~%" (-> this width))
|
|
(format #t "~1Tcolor: ~D~%" (-> this color))
|
|
(format #t "~1Talpha: ~f~%" (-> this alpha))
|
|
(format #t "~1Ttex-id: ~D~%" (-> this tex-id))
|
|
(format #t "~1Tnum-tiles: ~f~%" (-> this num-tiles))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type prim-beam-params
|
|
(deftype prim-beam-params (structure)
|
|
((appearance prim-beam-settings)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prim-beam-params
|
|
(defmethod inspect ((this prim-beam-params))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'prim-beam-params)
|
|
(format #t "~1Tappearance: #<prim-beam-settings @ #x~X>~%" (-> this appearance))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type prim-beam-tracker-params
|
|
(deftype prim-beam-tracker-params (prim-beam-params)
|
|
((track-obj1 handle)
|
|
(track-obj2 handle)
|
|
(track-joint1 int32)
|
|
(track-joint2 int32)
|
|
(pos0 vector)
|
|
(pos1 vector)
|
|
(duration time-frame)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type prim-beam-tracker-params
|
|
(defmethod inspect ((this prim-beam-tracker-params))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'prim-beam-tracker-params)
|
|
(format #t "~1Tappearance: #<prim-beam-settings @ #x~X>~%" (-> this appearance))
|
|
(format #t "~1Ttrack-obj1: ~D~%" (-> this track-obj1))
|
|
(format #t "~1Ttrack-obj2: ~D~%" (-> this track-obj2))
|
|
(format #t "~1Ttrack-joint1: ~D~%" (-> this track-joint1))
|
|
(format #t "~1Ttrack-joint2: ~D~%" (-> this track-joint2))
|
|
(format #t "~1Tpos0: #<vector @ #x~X>~%" (-> this pos0))
|
|
(format #t "~1Tpos1: #<vector @ #x~X>~%" (-> this pos1))
|
|
(format #t "~1Tduration: ~D~%" (-> this duration))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|