;;-*-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