mirror of
https://github.com/open-goal/jak-project
synced 2026-08-18 13:53:01 -04:00
Tyler Wilding
50197c0695
* cleanup: cleanup all-types and all state definitions * these are fine * these are fine * these are fine * everything is fine * gsrc updated * remove define-externs in gsrc
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 int64 :offset-assert 280)
|
|
(loc-t-duration int64 :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 :offset 408)
|
|
(yellow-gun joint-mod :offset 424)
|
|
(palette-val float :offset 428)
|
|
(looping-sound ambient-sound 4 :offset 432)
|
|
(dda robotboss-dda :offset 448)
|
|
(valid-frames int32 :offset 452)
|
|
(skip-cut symbol :offset 456)
|
|
(keep-charging symbol :offset 460)
|
|
)
|
|
:heap-base #x16
|
|
:method-count-assert 21
|
|
:size-assert #x1d0
|
|
:flag-assert #x15001601d0
|
|
(: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)
|
|
)
|