mirror of
https://github.com/open-goal/jak-project
synced 2026-06-19 16:00:12 -04:00
water111
dbc266c00b
* begin work on improved pretty printer * update ref * finish pretty printer * force line break for defstate
70 lines
2.4 KiB
Common Lisp
Vendored
Generated
70 lines
2.4 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type level-hint-control
|
|
(deftype level-hint-control (structure)
|
|
((delay-before-playing uint64 :offset-assert 0)
|
|
(id uint32 :offset-assert 8)
|
|
(num-attempts-before-playing int8 :offset-assert 12)
|
|
(num-success-before-killing int8 :offset-assert 13)
|
|
(num-attempts int8 :offset-assert 14)
|
|
(num-success int8 :offset-assert 15)
|
|
(start-time int64 :offset-assert 16)
|
|
(last-time-called int64 :offset-assert 24)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x20
|
|
:flag-assert #x900000020
|
|
)
|
|
|
|
;; definition for method 3 of type level-hint-control
|
|
(defmethod inspect level-hint-control ((obj level-hint-control))
|
|
(format #t "[~8x] ~A~%" obj 'level-hint-control)
|
|
(format #t "~Tdelay-before-playing: ~D~%" (-> obj delay-before-playing))
|
|
(format #t "~Tid: ~D~%" (-> obj id))
|
|
(format #t "~Tnum-attempts-before-playing: ~D~%" (-> obj num-attempts-before-playing))
|
|
(format #t "~Tnum-success-before-killing: ~D~%" (-> obj num-success-before-killing))
|
|
(format #t "~Tnum-attempts: ~D~%" (-> obj num-attempts))
|
|
(format #t "~Tnum-success: ~D~%" (-> obj num-success))
|
|
(format #t "~Tstart-time: ~D~%" (-> obj start-time))
|
|
(format #t "~Tlast-time-called: ~D~%" (-> obj last-time-called))
|
|
obj
|
|
)
|
|
|
|
;; definition of type task-hint-control
|
|
(deftype task-hint-control (structure)
|
|
((task game-task :offset-assert 0)
|
|
(delay int64 :offset-assert 8)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x10
|
|
:flag-assert #x900000010
|
|
)
|
|
|
|
;; definition for method 3 of type task-hint-control
|
|
(defmethod inspect task-hint-control ((obj task-hint-control))
|
|
(format #t "[~8x] ~A~%" obj 'task-hint-control)
|
|
(format #t "~Ttask: ~D~%" (-> obj task))
|
|
(format #t "~Tdelay: ~D~%" (-> obj delay))
|
|
obj
|
|
)
|
|
|
|
;; definition of type task-hint-control-group
|
|
(deftype task-hint-control-group (structure)
|
|
((tasks (array task-hint-control) :offset-assert 0)
|
|
)
|
|
:method-count-assert 9
|
|
:size-assert #x4
|
|
:flag-assert #x900000004
|
|
)
|
|
|
|
;; definition for method 3 of type task-hint-control-group
|
|
(defmethod inspect task-hint-control-group ((obj task-hint-control-group))
|
|
(format #t "[~8x] ~A~%" obj 'task-hint-control-group)
|
|
(format #t "~Ttasks: ~A~%" (-> obj tasks))
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|