mirror of
https://github.com/open-goal/jak-project
synced 2026-08-31 09:41:05 -04:00
Tyler Wilding
2eca614870
This finishes off all the remaining "header" files that someone isn't already working on.
223 lines
7.0 KiB
Common Lisp
Vendored
Generated
223 lines
7.0 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type ruffian-course
|
|
(deftype ruffian-course (bot-course)
|
|
((ouch-speeches basic :offset-assert 48)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x34
|
|
:flag-assert #x900000034
|
|
)
|
|
|
|
;; definition for method 3 of type ruffian-course
|
|
(defmethod inspect ruffian-course ((obj ruffian-course))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~1Tcourse-id: ~D~%" (-> obj course-id))
|
|
(format #t "~1Tspeech-count: ~D~%" (-> obj speech-count))
|
|
(format #t "~1Tspot-count: ~D~%" (-> obj spot-count))
|
|
(format #t "~1Tretry-cookie: ~D~%" (-> obj retry-cookie))
|
|
(format #t "~1Ttoo-far-warn-speeches: ~A~%" (-> obj too-far-warn-speeches))
|
|
(format #t "~1Ttoo-far-fail-speeches: ~A~%" (-> obj too-far-fail-speeches))
|
|
(format #t "~1Tattack-player-speeches: ~A~%" (-> obj attack-player-speeches))
|
|
(format #t "~1Tdefault-check-too-far: ~A~%" (-> obj default-check-too-far))
|
|
(format #t "~1Twaypoints: ~A~%" (-> obj waypoints))
|
|
(format #t "~1Tspeeches: #x~X~%" (-> obj speeches))
|
|
(format #t "~1Tspeech-tunings: #x~X~%" (-> obj speech-tunings))
|
|
(format #t "~1Tdirs: #x~X~%" (-> obj dirs))
|
|
(format #t "~1Tspots: #x~X~%" (-> obj spots))
|
|
(format #t "~1Touch-speeches: ~A~%" (-> obj ouch-speeches))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; definition of type ruffian
|
|
(deftype ruffian (bot)
|
|
((travel-anim-interp float :offset-assert 992)
|
|
(fired-gun-count uint32 :offset-assert 996)
|
|
(next-fire-time time-frame :offset-assert 1000)
|
|
)
|
|
:heap-base #x370
|
|
:method-count-assert 246
|
|
:size-assert #x3f0
|
|
:flag-assert #xf6037003f0
|
|
(:methods
|
|
(ruffian-method-225 () none 225)
|
|
(ruffian-method-226 () none 226)
|
|
(ruffian-method-227 () none 227)
|
|
(ruffian-method-228 () none 228)
|
|
(ruffian-method-229 () none 229)
|
|
(ruffian-method-230 () none 230)
|
|
(ruffian-method-231 () none 231)
|
|
(ruffian-method-232 () none 232)
|
|
(ruffian-method-233 () none 233)
|
|
(ruffian-method-234 () none 234)
|
|
(ruffian-method-235 () none 235)
|
|
(ruffian-method-236 () none 236)
|
|
(ruffian-method-237 () none 237)
|
|
(ruffian-method-238 () none 238)
|
|
(ruffian-method-239 () none 239)
|
|
(ruffian-method-240 () none 240)
|
|
(ruffian-method-241 () none 241)
|
|
(ruffian-method-242 () none 242)
|
|
(ruffian-method-243 () none 243)
|
|
(ruffian-method-244 () none 244)
|
|
(ruffian-method-245 () none 245)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type ruffian
|
|
(defmethod inspect ruffian ((obj ruffian))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type bot inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
(format #t "~2Ttravel-anim-interp: ~f~%" (-> obj travel-anim-interp))
|
|
(format #t "~2Tfired-gun-count: ~D~%" (-> obj fired-gun-count))
|
|
(format #t "~2Tnext-fire-time: ~D~%" (-> obj next-fire-time))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; definition of type ruft-wait-spot
|
|
(deftype ruft-wait-spot (ai-task)
|
|
((check-done basic :offset 32)
|
|
(which-spot int8 :offset 36)
|
|
(num-spots uint8 :offset 37)
|
|
(spot-indexes int8 6 :offset 38)
|
|
)
|
|
:method-count-assert 12
|
|
:size-assert #x30
|
|
:flag-assert #xc00000030
|
|
)
|
|
|
|
;; definition for method 3 of type ruft-wait-spot
|
|
(defmethod inspect ruft-wait-spot ((obj ruft-wait-spot))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~1Tnext: ~A~%" (-> obj next))
|
|
(format #t "~1Tprev: ~A~%" (-> obj prev))
|
|
(format #t "~1Tpool: ~A~%" (-> obj pool))
|
|
(format #t "~1Tunique-id: ~D~%" (-> obj unique-id))
|
|
(format #t "~1Tbytes[16] @ #x~X~%" (-> obj bytes))
|
|
(format #t "~1Tcheck-done: ~A~%" (-> obj check-done))
|
|
(format #t "~1Twhich-spot: ~D~%" (-> obj which-spot))
|
|
(format #t "~1Tnum-spots: ~D~%" (-> obj num-spots))
|
|
(format #t "~1Tspot-indexes[6] @ #x~X~%" (-> obj spot-indexes))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; definition of type ruft-choose-jump
|
|
(deftype ruft-choose-jump (ai-task)
|
|
((check-done basic :offset 32)
|
|
(which-spot int8 :offset 36)
|
|
(num-spots uint8 :offset 37)
|
|
(src-spot-indexes int8 4 :offset 38)
|
|
(dest-spot-indexes int8 4 :offset 42)
|
|
)
|
|
:method-count-assert 14
|
|
:size-assert #x30
|
|
:flag-assert #xe00000030
|
|
(:methods
|
|
(ruft-choose-jump-method-12 () none 12)
|
|
(ruft-choose-jump-method-13 () none 13)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type ruft-choose-jump
|
|
(defmethod inspect ruft-choose-jump ((obj ruft-choose-jump))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~1Tnext: ~A~%" (-> obj next))
|
|
(format #t "~1Tprev: ~A~%" (-> obj prev))
|
|
(format #t "~1Tpool: ~A~%" (-> obj pool))
|
|
(format #t "~1Tunique-id: ~D~%" (-> obj unique-id))
|
|
(format #t "~1Tbytes[16] @ #x~X~%" (-> obj bytes))
|
|
(format #t "~1Tcheck-done: ~A~%" (-> obj check-done))
|
|
(format #t "~1Twhich-spot: ~D~%" (-> obj which-spot))
|
|
(format #t "~1Tnum-spots: ~D~%" (-> obj num-spots))
|
|
(format #t "~1Tsrc-spot-indexes[4] @ #x~X~%" (-> obj src-spot-indexes))
|
|
(format #t "~1Tdest-spot-indexes[4] @ #x~X~%" (-> obj dest-spot-indexes))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; definition of type ruft-fight-focus
|
|
(deftype ruft-fight-focus (ai-task)
|
|
()
|
|
:method-count-assert 12
|
|
:size-assert #x30
|
|
:flag-assert #xc00000030
|
|
)
|
|
|
|
;; definition for method 3 of type ruft-fight-focus
|
|
(defmethod inspect ruft-fight-focus ((obj ruft-fight-focus))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~1Tnext: ~A~%" (-> obj next))
|
|
(format #t "~1Tprev: ~A~%" (-> obj prev))
|
|
(format #t "~1Tpool: ~A~%" (-> obj pool))
|
|
(format #t "~1Tunique-id: ~D~%" (-> obj unique-id))
|
|
(format #t "~1Tbytes[16] @ #x~X~%" (-> obj bytes))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; definition of type ruft-plant-bomb
|
|
(deftype ruft-plant-bomb (ai-task)
|
|
((check-done basic :offset 32)
|
|
(which-spot int8 :offset 36)
|
|
(num-spots uint8 :offset 37)
|
|
(stand-spot-indexes int8 2 :offset 38)
|
|
(face-spot-indexes int8 2 :offset 40)
|
|
)
|
|
:method-count-assert 12
|
|
:size-assert #x30
|
|
:flag-assert #xc00000030
|
|
)
|
|
|
|
;; definition for method 3 of type ruft-plant-bomb
|
|
(defmethod inspect ruft-plant-bomb ((obj ruft-plant-bomb))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj (-> obj type))
|
|
(format #t "~1Tnext: ~A~%" (-> obj next))
|
|
(format #t "~1Tprev: ~A~%" (-> obj prev))
|
|
(format #t "~1Tpool: ~A~%" (-> obj pool))
|
|
(format #t "~1Tunique-id: ~D~%" (-> obj unique-id))
|
|
(format #t "~1Tbytes[16] @ #x~X~%" (-> obj bytes))
|
|
(format #t "~1Tcheck-done: ~A~%" (-> obj check-done))
|
|
(format #t "~1Twhich-spot: ~D~%" (-> obj which-spot))
|
|
(format #t "~1Tnum-spots: ~D~%" (-> obj num-spots))
|
|
(format #t "~1Tstand-spot-indexes[2] @ #x~X~%" (-> obj stand-spot-indexes))
|
|
(format #t "~1Tface-spot-indexes[2] @ #x~X~%" (-> obj face-spot-indexes))
|
|
(label cfg-4)
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|
|
|
|
|
|
|
|
|