mirror of
https://github.com/open-goal/jak-project
synced 2026-06-21 08:41:48 -04:00
Tyler Wilding
286 lines
12 KiB
Common Lisp
Vendored
Generated
286 lines
12 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type gui-connection
|
|
(deftype gui-connection (connection)
|
|
((priority float :offset 16)
|
|
(action gui-action :offset 20)
|
|
(channel gui-channel :offset 21)
|
|
(anim-part uint8 :offset 22)
|
|
(flags uint8 :offset 23)
|
|
(name string :offset 24)
|
|
(id sound-id :offset 28)
|
|
(handle handle :offset 0)
|
|
(time-stamp time-frame :offset 8)
|
|
(hold-time time-frame :offset-assert 32)
|
|
(fo-min int16 :offset-assert 40)
|
|
(fo-max int16 :offset-assert 42)
|
|
(fo-curve int8 :offset-assert 44)
|
|
(fade uint8 :offset-assert 45)
|
|
(pad uint8 2 :offset-assert 46)
|
|
)
|
|
:method-count-assert 14
|
|
:size-assert #x30
|
|
:flag-assert #xe00000030
|
|
)
|
|
|
|
;; definition for method 3 of type gui-connection
|
|
(defmethod inspect gui-connection ((obj gui-connection))
|
|
(when (not obj)
|
|
(set! obj obj)
|
|
(goto cfg-116)
|
|
)
|
|
(format #t "[~8x] ~A~%" obj 'gui-connection)
|
|
(format #t "~1Tnext0: ~`connectable`P~%" (-> obj next0))
|
|
(format #t "~1Tprev0: ~`connectable`P~%" (-> obj prev0))
|
|
(format #t "~1Tnext1: ~`connectable`P~%" (-> obj next1))
|
|
(format #t "~1Tprev1: ~`connectable`P~%" (-> obj prev1))
|
|
(format #t "~1Tparam0: ~A~%" (-> obj priority))
|
|
(format #t "~1Tparam1: ~A~%" (-> obj param1))
|
|
(format #t "~1Tparam2: ~A~%" (-> obj param2))
|
|
(format #t "~1Tparam3: ~A~%" (-> obj param3))
|
|
(format #t "~1Tquad[2] @ #x~X~%" (&-> obj next0))
|
|
(format #t "~1Tpriority: ~f~%" (-> obj priority))
|
|
(let ((t9-11 format)
|
|
(a0-12 #t)
|
|
(a1-11 "~1Taction: #x~X : ~S~%")
|
|
(a2-11 (-> obj action))
|
|
(v1-2 (-> obj action))
|
|
)
|
|
(t9-11 a0-12 a1-11 a2-11 (cond
|
|
((= v1-2 (gui-action queue))
|
|
"queue"
|
|
)
|
|
((= v1-2 (gui-action stop))
|
|
"stop"
|
|
)
|
|
((= v1-2 (gui-action play))
|
|
"play"
|
|
)
|
|
((= v1-2 (gui-action hide))
|
|
"hide"
|
|
)
|
|
((= v1-2 (gui-action fade))
|
|
"fade"
|
|
)
|
|
((= v1-2 (gui-action none))
|
|
"none"
|
|
)
|
|
((= v1-2 (gui-action abort))
|
|
"abort"
|
|
)
|
|
((= v1-2 (gui-action stopping))
|
|
"stopping"
|
|
)
|
|
((= v1-2 (gui-action hidden))
|
|
"hidden"
|
|
)
|
|
((= v1-2 (gui-action playing))
|
|
"playing"
|
|
)
|
|
(else
|
|
"*unknown*"
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((t9-12 format)
|
|
(a0-13 #t)
|
|
(a1-12 "~1Tchannel: #x~X : ~S~%")
|
|
(a2-12 (-> obj channel))
|
|
(v1-3 (-> obj channel))
|
|
)
|
|
(t9-12 a0-13 a1-12 a2-12 (cond
|
|
((= v1-3 (gui-channel hud-lower-left))
|
|
"hud-lower-left"
|
|
)
|
|
((= v1-3 (gui-channel citizen))
|
|
"citizen"
|
|
)
|
|
((= v1-3 (gui-channel ashelin))
|
|
"ashelin"
|
|
)
|
|
((= v1-3 (gui-channel hud-lower-left-1))
|
|
"hud-lower-left-1"
|
|
)
|
|
((= v1-3 (gui-channel message))
|
|
"message"
|
|
)
|
|
((= v1-3 (gui-channel hud-middle-left))
|
|
"hud-middle-left"
|
|
)
|
|
((= v1-3 (gui-channel hud-upper-center-2))
|
|
"hud-upper-center-2"
|
|
)
|
|
((= v1-3 (gui-channel hud-middle-right))
|
|
"hud-middle-right"
|
|
)
|
|
((= v1-3 (gui-channel subtitle))
|
|
"subtitle"
|
|
)
|
|
((= v1-3 (gui-channel notice))
|
|
"notice"
|
|
)
|
|
((= v1-3 (gui-channel voicebox))
|
|
"voicebox"
|
|
)
|
|
((= v1-3 (gui-channel art-load-next))
|
|
"art-load-next"
|
|
)
|
|
((= v1-3 (gui-channel mog))
|
|
"mog"
|
|
)
|
|
((= v1-3 (gui-channel sig))
|
|
"sig"
|
|
)
|
|
((= v1-3 (gui-channel hud-center-left))
|
|
"hud-center-left"
|
|
)
|
|
((= v1-3 (gui-channel hud-upper-right))
|
|
"hud-upper-right"
|
|
)
|
|
((= v1-3 (gui-channel hud-center-right))
|
|
"hud-center-right"
|
|
)
|
|
((= v1-3 (gui-channel alert))
|
|
"alert"
|
|
)
|
|
((= v1-3 (gui-channel jinx))
|
|
"jinx"
|
|
)
|
|
((= v1-3 (gui-channel hud-upper-left))
|
|
"hud-upper-left"
|
|
)
|
|
((= v1-3 (gui-channel query))
|
|
"query"
|
|
)
|
|
((= v1-3 (gui-channel grim))
|
|
"grim"
|
|
)
|
|
((= v1-3 (gui-channel kor))
|
|
"kor"
|
|
)
|
|
((= v1-3 (gui-channel hud-lower-right))
|
|
"hud-lower-right"
|
|
)
|
|
((= v1-3 (gui-channel screen))
|
|
"screen"
|
|
)
|
|
((= v1-3 (gui-channel guard))
|
|
"guard"
|
|
)
|
|
((= v1-3 (gui-channel supertitle))
|
|
"supertitle"
|
|
)
|
|
((= v1-3 (gui-channel hal))
|
|
"hal"
|
|
)
|
|
((= v1-3 (gui-channel hud-upper-center))
|
|
"hud-upper-center"
|
|
)
|
|
((= v1-3 (gui-channel blackout))
|
|
"blackout"
|
|
)
|
|
((= v1-3 (gui-channel bbush))
|
|
"bbush"
|
|
)
|
|
((= v1-3 (gui-channel hud))
|
|
"hud"
|
|
)
|
|
((= v1-3 (gui-channel voice))
|
|
"voice"
|
|
)
|
|
((= v1-3 (gui-channel max))
|
|
"max"
|
|
)
|
|
((= v1-3 (gui-channel none))
|
|
"none"
|
|
)
|
|
((= v1-3 (gui-channel notice-low))
|
|
"notice-low"
|
|
)
|
|
((= v1-3 (gui-channel art-load))
|
|
"art-load"
|
|
)
|
|
((= v1-3 (gui-channel kid))
|
|
"kid"
|
|
)
|
|
((= v1-3 (gui-channel jak))
|
|
"jak"
|
|
)
|
|
((= v1-3 (gui-channel daxter))
|
|
"daxter"
|
|
)
|
|
((= v1-3 (gui-channel krew))
|
|
"krew"
|
|
)
|
|
((= v1-3 (gui-channel hud-lower-left-2))
|
|
"hud-lower-left-2"
|
|
)
|
|
((= v1-3 (gui-channel background))
|
|
"background"
|
|
)
|
|
((= v1-3 (gui-channel crocadog))
|
|
"crocadog"
|
|
)
|
|
((= v1-3 (gui-channel movie))
|
|
"movie"
|
|
)
|
|
(else
|
|
"*unknown*"
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(format #t "~1Tanim-part: ~D~%" (-> obj anim-part))
|
|
(format #t "~1Tflags: ~D~%" (-> obj flags))
|
|
(format #t "~1Tname: ~A~%" (-> obj name))
|
|
(format #t "~1Tid: ~D~%" (-> obj id))
|
|
(format #t "~1Thandle: ~D~%" (-> obj handle))
|
|
(format #t "~1Ttime-stamp: ~D~%" (-> obj time-stamp))
|
|
(format #t "~1Thold-time: ~D~%" (-> obj hold-time))
|
|
(format #t "~1Tfo-min: ~D~%" (-> obj fo-min))
|
|
(format #t "~1Tfo-max: ~D~%" (-> obj fo-max))
|
|
(format #t "~1Tfo-curve: ~D~%" (-> obj fo-curve))
|
|
(format #t "~1Tfade: ~D~%" (-> obj fade))
|
|
(label cfg-116)
|
|
obj
|
|
)
|
|
|
|
;; definition of type gui-control
|
|
(deftype gui-control (basic)
|
|
((engine engine :offset-assert 4)
|
|
(update-time time-frame :offset-assert 8)
|
|
(connections gui-connection 32 :inline :offset-assert 16)
|
|
(spool-connections gui-connection 4 :inline :offset-assert 1552)
|
|
(ids sound-id 96 :offset-assert 1744)
|
|
(times time-frame 96 :offset-assert 2128)
|
|
(cmd pair 96 :offset-assert 2896)
|
|
)
|
|
:method-count-assert 25
|
|
:size-assert #xcd0
|
|
:flag-assert #x1900000cd0
|
|
(:methods
|
|
(new (symbol type int) _type_ 0)
|
|
(gui-control-method-9 (_type_ process gui-channel gui-action string float time-frame) sound-id 9)
|
|
(gui-control-method-10 (_type_ process gui-channel) none 10)
|
|
(gui-control-method-11 (_type_ gui-connection) int 11)
|
|
(gui-control-method-12 (_type_ process gui-channel gui-action string int float sound-id) sound-id 12)
|
|
(update (_type_ symbol) int 13)
|
|
(gui-control-method-14 (_type_ string gui-channel gui-action) int 14)
|
|
(gui-control-method-15 (_type_ process gui-channel string sound-id) gui-connection 15)
|
|
(gui-control-method-16 (_type_ gui-action sound-id gui-channel gui-action string (function gui-connection symbol) process) int 16)
|
|
(gui-control-method-17 (_type_ sound-id) gui-action 17)
|
|
(gui-control-method-18 (_type_ gui-channel) symbol 18)
|
|
(gui-control-method-19 (_type_ gui-channel gui-connection) symbol 19)
|
|
(gui-control-method-20 (_type_ sound-id symbol int int int) gui-connection 20)
|
|
(gui-control-method-21 (_type_ gui-connection vector) int 21)
|
|
(gui-control-method-22 (_type_ gui-connection process symbol) none 22)
|
|
(gui-control-method-23 (_type_ gui-channel gui-channel symbol gui-connection) symbol 23)
|
|
(channel-id-set! (_type_ gui-connection sound-id) int 24)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|