mirror of
https://github.com/open-goal/jak-project
synced 2026-09-07 03:30:01 -04:00
ManDude
24578b64b9
* hardcode `time-frame`things * Update cam-states_REF.gc * Update level-info_REF.gc * update refs 1 * update refs 2 * update refs 3 * update refs 4 * update refs 5 * update detection and casting * Update FormExpressionAnalysis.cpp * update refs 6 * update mood decomp * update refs 7 * update refs 8 * remove temp entity birth code * update time-frame casts * fix compiler * hardcode stuff and fix some types * fix some bitfield detection being wrong * bug fixes * detect seconds on adds with immediate * update refs 9 * fix casts and rand-vu-int-range bugs (update refs 10) * update refs 11 * update 12 * update 13 * update 14 * Update game-info_REF.gc * improve cpad macros detection * remove unused code * update refs * clang * update source code * Update cam-states.gc * `lavatube-energy` finish * update refs * fix actor bank stuff * Update navigate.gc * reduce entity default stack size * Update transformq-h.gc * oops forgot these * fix code and tests * fix mood sound stuff * Update load-dgo.gc * Update README.md
204 lines
8.5 KiB
Common Lisp
Vendored
Generated
204 lines
8.5 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type robotboss-dda
|
|
(deftype robotboss-dda (structure)
|
|
((blue-bomb-time float :offset-assert 0)
|
|
(num-blobs int32 :offset-assert 4)
|
|
(green-bomb-time float :offset-assert 8)
|
|
(red-shots-min int32 :offset-assert 12)
|
|
(red-shots-rnd int32 :offset-assert 16)
|
|
(red-shot-time-min float :offset-assert 20)
|
|
(red-shot-time-rnd float :offset-assert 24)
|
|
(red-bomb-time float :offset-assert 28)
|
|
(yellow-shot-time-min float :offset-assert 32)
|
|
(yellow-shot-time-rnd float :offset-assert 36)
|
|
(yellow-gun-hits int32 :offset-assert 40)
|
|
(yellow-bomb-time float :offset-assert 44)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x30
|
|
:flag-assert #x900000030
|
|
)
|
|
|
|
;; definition for method 3 of type robotboss-dda
|
|
(defmethod inspect robotboss-dda ((obj robotboss-dda))
|
|
(format #t "[~8x] ~A~%" obj 'robotboss-dda)
|
|
(format #t "~Tblue-bomb-time: ~f~%" (-> obj blue-bomb-time))
|
|
(format #t "~Tnum-blobs: ~D~%" (-> obj num-blobs))
|
|
(format #t "~Tgreen-bomb-time: ~f~%" (-> obj green-bomb-time))
|
|
(format #t "~Tred-shots-min: ~D~%" (-> obj red-shots-min))
|
|
(format #t "~Tred-shots-rnd: ~D~%" (-> obj red-shots-rnd))
|
|
(format #t "~Tred-shot-time-min: ~f~%" (-> obj red-shot-time-min))
|
|
(format #t "~Tred-shot-time-rnd: ~f~%" (-> obj red-shot-time-rnd))
|
|
(format #t "~Tred-bomb-time: ~f~%" (-> obj red-bomb-time))
|
|
(format #t "~Tyellow-shot-time-min: ~f~%" (-> obj yellow-shot-time-min))
|
|
(format #t "~Tyellow-shot-time-rnd: ~f~%" (-> obj yellow-shot-time-rnd))
|
|
(format #t "~Tyellow-gun-hits: ~D~%" (-> obj yellow-gun-hits))
|
|
(format #t "~Tyellow-bomb-time: ~f~%" (-> obj yellow-bomb-time))
|
|
obj
|
|
)
|
|
|
|
;; definition of type robotboss
|
|
(deftype robotboss (process-drawable)
|
|
((root-override collide-shape-moving :offset 112)
|
|
(alts entity-actor 13 :offset-assert 176)
|
|
(desired-loc vector :inline :offset-assert 240)
|
|
(old-loc vector :inline :offset-assert 256)
|
|
(loc-t float :offset-assert 272)
|
|
(loc-t-start time-frame :offset-assert 280)
|
|
(loc-t-duration time-frame :offset-assert 288)
|
|
(hits-to-go int32 :offset-assert 296)
|
|
(took-hit symbol :offset-assert 300)
|
|
(children-spawned int32 :offset-assert 304)
|
|
(vulnerable int64 :offset-assert 312)
|
|
(till-next-shot int64 :offset-assert 320)
|
|
(shot-attractor handle :offset-assert 328)
|
|
(desired-pool-y float :offset-assert 336)
|
|
(particle sparticle-launch-control 7 :offset-assert 340)
|
|
(blue-smoke symbol :offset-assert 368)
|
|
(red-smoke symbol :offset-assert 372)
|
|
(yellow-smoke symbol :offset-assert 376)
|
|
(white-eco handle :offset-assert 384)
|
|
(des-cam-entity string :offset-assert 392)
|
|
(use-interesting symbol :offset-assert 396)
|
|
(ignore-camera symbol :offset-assert 400)
|
|
(ambient ambient-control :inline :offset-assert 408)
|
|
(yellow-gun joint-mod :offset-assert 424)
|
|
(palette-val float :offset-assert 428)
|
|
(looping-sound ambient-sound 4 :offset-assert 432)
|
|
(dda robotboss-dda :offset-assert 448)
|
|
(valid-frames int32 :offset-assert 452)
|
|
(skip-cut symbol :offset-assert 456)
|
|
(keep-charging symbol :offset-assert 460)
|
|
)
|
|
:heap-base #x160
|
|
:method-count-assert 21
|
|
:size-assert #x1d0
|
|
:flag-assert #x15016001d0
|
|
(:methods
|
|
(ease-loc-t (_type_) float 20)
|
|
)
|
|
(:states
|
|
robotboss-blue-dark-bomb
|
|
robotboss-blue-dark-bomb-wait
|
|
robotboss-blue-wait
|
|
robotboss-daxter-sacrifice-movie
|
|
robotboss-green
|
|
robotboss-green-dark-bomb
|
|
robotboss-green-dark-bomb-wait
|
|
robotboss-green-wait
|
|
robotboss-red
|
|
robotboss-red-dark-bomb
|
|
robotboss-red-dark-bomb-wait
|
|
robotboss-red-wait
|
|
robotboss-white-eco-movie
|
|
robotboss-yellow
|
|
robotboss-yellow-dark-bomb
|
|
robotboss-yellow-dark-bomb-wait
|
|
robotboss-yellow-wait
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type robotboss
|
|
(defmethod inspect robotboss ((obj robotboss))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
(format #t "~T~Talts[13] @ #x~X~%" (-> obj alts))
|
|
(format #t "~T~Tdesired-loc: #<vector @ #x~X>~%" (-> obj desired-loc))
|
|
(format #t "~T~Told-loc: #<vector @ #x~X>~%" (-> obj old-loc))
|
|
(format #t "~T~Tloc-t: ~f~%" (-> obj loc-t))
|
|
(format #t "~T~Tloc-t-start: ~D~%" (-> obj loc-t-start))
|
|
(format #t "~T~Tloc-t-duration: ~D~%" (-> obj loc-t-duration))
|
|
(format #t "~T~Thits-to-go: ~D~%" (-> obj hits-to-go))
|
|
(format #t "~T~Ttook-hit: ~A~%" (-> obj took-hit))
|
|
(format #t "~T~Tchildren-spawned: ~D~%" (-> obj children-spawned))
|
|
(format #t "~T~Tvulnerable: ~D~%" (-> obj vulnerable))
|
|
(format #t "~T~Ttill-next-shot: ~D~%" (-> obj till-next-shot))
|
|
(format #t "~T~Tshot-attractor: ~D~%" (-> obj shot-attractor))
|
|
(format #t "~T~Tdesired-pool-y: ~f~%" (-> obj desired-pool-y))
|
|
(format #t "~T~Tparticle[7] @ #x~X~%" (-> obj particle))
|
|
(format #t "~T~Tblue-smoke: ~A~%" (-> obj blue-smoke))
|
|
(format #t "~T~Tred-smoke: ~A~%" (-> obj red-smoke))
|
|
(format #t "~T~Tyellow-smoke: ~A~%" (-> obj yellow-smoke))
|
|
(format #t "~T~Twhite-eco: ~D~%" (-> obj white-eco))
|
|
(format #t "~T~Tdes-cam-entity: ~A~%" (-> obj des-cam-entity))
|
|
(format #t "~T~Tuse-interesting: ~A~%" (-> obj use-interesting))
|
|
(format #t "~T~Tignore-camera: ~A~%" (-> obj ignore-camera))
|
|
(format #t "~T~Tambient: #<ambient-control @ #x~X>~%" (-> obj ambient))
|
|
(format #t "~T~Tyellow-gun: ~A~%" (-> obj yellow-gun))
|
|
(format #t "~T~Tpalette-val: ~f~%" (-> obj palette-val))
|
|
(format #t "~T~Tlooping-sound[4] @ #x~X~%" (-> obj looping-sound))
|
|
(format #t "~T~Tdda: #<robotboss-dda @ #x~X>~%" (-> obj dda))
|
|
(format #t "~T~Tvalid-frames: ~D~%" (-> obj valid-frames))
|
|
(format #t "~T~Tskip-cut: ~A~%" (-> obj skip-cut))
|
|
(format #t "~T~Tkeep-charging: ~A~%" (-> obj keep-charging))
|
|
obj
|
|
)
|
|
|
|
;; definition for method 7 of type robotboss
|
|
;; INFO: Return type mismatch process-drawable vs robotboss.
|
|
(defmethod relocate robotboss ((obj robotboss) (arg0 int))
|
|
(dotimes (v1-0 7)
|
|
(if (nonzero? (-> obj particle v1-0))
|
|
(&+! (-> obj particle v1-0) arg0)
|
|
)
|
|
)
|
|
(dotimes (v1-3 4)
|
|
(if (nonzero? (-> obj looping-sound v1-3))
|
|
(&+! (-> obj looping-sound v1-3) arg0)
|
|
)
|
|
)
|
|
(if (nonzero? (-> obj yellow-gun))
|
|
(&+! (-> obj yellow-gun) arg0)
|
|
)
|
|
(the-as robotboss ((method-of-type process-drawable relocate) obj arg0))
|
|
)
|
|
|
|
;; definition for method 10 of type robotboss
|
|
(defmethod deactivate robotboss ((obj robotboss))
|
|
(dotimes (s5-0 7)
|
|
(let ((a0-1 (-> obj particle s5-0)))
|
|
(if (nonzero? a0-1)
|
|
(kill-and-free-particles a0-1)
|
|
)
|
|
)
|
|
)
|
|
(dotimes (s5-1 4)
|
|
(let ((a0-2 (-> obj looping-sound s5-1)))
|
|
(if (nonzero? a0-2)
|
|
(stop! a0-2)
|
|
)
|
|
)
|
|
)
|
|
((method-of-type process-drawable deactivate) obj)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function target-has-all-the-cells?
|
|
;; INFO: Return type mismatch basic vs symbol.
|
|
(defun target-has-all-the-cells? ()
|
|
(with-pp
|
|
(the-as symbol (and *target* (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-0 from) pp)
|
|
(set! (-> a1-0 num-params) 2)
|
|
(set! (-> a1-0 message) 'query)
|
|
(set! (-> a1-0 param 0) (the-as uint 'pickup))
|
|
(set! (-> a1-0 param 1) (the-as uint 6))
|
|
(>= (the int (the-as float (send-event-function *target* a1-0))) 100)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *robotboss-sg* robotboss
|
|
0
|
|
2
|
|
((1 (meters 999999)))
|
|
:bounds (static-spherem 0 -10 0 80)
|
|
:longest-edge (meters 19.9)
|
|
)
|