;;-*-Lisp-*-
(in-package goal)

;; definition of type gui-connection
(deftype gui-connection (connection)
  ((priority    float                 :overlay-at param0)
   (action      gui-action            :overlay-at param1)
   (channel     gui-channel           :offset  21)
   (anim-part   uint8                 :offset  22)
   (flags       gui-connection-flags  :offset  23)
   (name        string                :overlay-at param2)
   (id          sound-id              :overlay-at param3)
   (handle      handle                :overlay-at next0)
   (time-stamp  time-frame            :overlay-at next1)
   (hold-time   time-frame)
   (fo-min      float)
   (fo-max      float)
   (fo-power    float)
   (fade        uint8)
   (volume      float)
   (qw-pad      int8                  4)
   )
  )

;; definition for method 3 of type gui-connection
(defmethod inspect ((this gui-connection))
  (when (not this)
    (set! this this)
    (goto cfg-146)
    )
  (format #t "[~8x] ~A~%" this 'gui-connection)
  (format #t "~1Tnext0: ~`connectable`P~%" (-> this next0))
  (format #t "~1Tprev0: ~`connectable`P~%" (-> this prev0))
  (format #t "~1Tnext1: ~`connectable`P~%" (-> this next1))
  (format #t "~1Tprev1: ~`connectable`P~%" (-> this prev1))
  (format #t "~1Tparam0: ~A~%" (-> this priority))
  (format #t "~1Tparam1: ~A~%" (-> this param1))
  (format #t "~1Tparam2: ~A~%" (-> this param2))
  (format #t "~1Tparam3: ~A~%" (-> this param3))
  (format #t "~1Tquad[2] @ #x~X~%" (&-> this next0))
  (format #t "~1Tpriority: ~f~%" (-> this priority))
  (let ((t9-11 format)
        (a0-12 #t)
        (a1-11 "~1Taction: #x~X : ~S~%")
        (a2-11 (-> this action))
        (v1-2 (-> this 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 (-> this channel))
        (v1-3 (-> this channel))
        )
    (t9-12 a0-13 a1-12 a2-12 (cond
                               ((= v1-3 (gui-channel hud-mp-race-1))
                                "hud-mp-race-1"
                                )
                               ((= v1-3 (gui-channel hud-lower-left))
                                "hud-lower-left"
                                )
                               ((= v1-3 (gui-channel citizen))
                                "citizen"
                                )
                               ((= v1-3 (gui-channel pecker))
                                "pecker"
                                )
                               ((= v1-3 (gui-channel jak-effect-1))
                                "jak-effect-1"
                                )
                               ((= v1-3 (gui-channel ashelin))
                                "ashelin"
                                )
                               ((= v1-3 (gui-channel hud-lower-left-1))
                                "hud-lower-left-1"
                                )
                               ((= v1-3 (gui-channel hud-mp-race-2))
                                "hud-mp-race-2"
                                )
                               ((= v1-3 (gui-channel message))
                                "message"
                                )
                               ((= v1-3 (gui-channel hud-middle-left))
                                "hud-middle-left"
                                )
                               ((= v1-3 (gui-channel gun))
                                "gun"
                                )
                               ((= v1-3 (gui-channel hud-upper-center-2))
                                "hud-upper-center-2"
                                )
                               ((= v1-3 (gui-channel subtitle))
                                "subtitle"
                                )
                               ((= v1-3 (gui-channel hud-middle-right))
                                "hud-middle-right"
                                )
                               ((= v1-3 (gui-channel art-load-next))
                                "art-load-next"
                                )
                               ((= v1-3 (gui-channel notice))
                                "notice"
                                )
                               ((= v1-3 (gui-channel sig))
                                "sig"
                                )
                               ((= v1-3 (gui-channel hud-mp-vehicle-main-1))
                                "hud-mp-vehicle-main-1"
                                )
                               ((= v1-3 (gui-channel hud-center-left))
                                "hud-center-left"
                                )
                               ((= v1-3 (gui-channel task))
                                "task"
                                )
                               ((= 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 hud-mp-player-indicators-0))
                                "hud-mp-player-indicators-0"
                                )
                               ((= v1-3 (gui-channel hud-mp-player-indicators-1))
                                "hud-mp-player-indicators-1"
                                )
                               ((= v1-3 (gui-channel hud-mp-race-0))
                                "hud-mp-race-0"
                                )
                               ((= v1-3 (gui-channel hud-upper-left))
                                "hud-upper-left"
                                )
                               ((= v1-3 (gui-channel speech))
                                "speech"
                                )
                               ((= v1-3 (gui-channel query))
                                "query"
                                )
                               ((= 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 hud-mp-race-3))
                                "hud-mp-race-3"
                                )
                               ((= 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 jak-mode))
                                "jak-mode"
                                )
                               ((= v1-3 (gui-channel max))
                                "max"
                                )
                               ((= v1-3 (gui-channel none))
                                "none"
                                )
                               ((= v1-3 (gui-channel freeze))
                                "freeze"
                                )
                               ((= v1-3 (gui-channel notice-low))
                                "notice-low"
                                )
                               ((= v1-3 (gui-channel art-load))
                                "art-load"
                                )
                               ((= v1-3 (gui-channel hud-auto-save-message))
                                "hud-auto-save-message"
                                )
                               ((= v1-3 (gui-channel jak))
                                "jak"
                                )
                               ((= v1-3 (gui-channel progress))
                                "progress"
                                )
                               ((= v1-3 (gui-channel resetter))
                                "resetter"
                                )
                               ((= v1-3 (gui-channel jak-effect-2))
                                "jak-effect-2"
                                )
                               ((= v1-3 (gui-channel daxter))
                                "daxter"
                                )
                               ((= v1-3 (gui-channel hud-lower-left-2))
                                "hud-lower-left-2"
                                )
                               ((= v1-3 (gui-channel background))
                                "background"
                                )
                               ((= v1-3 (gui-channel beast))
                                "beast"
                                )
                               ((= v1-3 (gui-channel hud-mp-vehicle-main-0))
                                "hud-mp-vehicle-main-0"
                                )
                               ((= v1-3 (gui-channel hud-auto-save))
                                "hud-auto-save"
                                )
                               ((= v1-3 (gui-channel hud-lower-center))
                                "hud-lower-center"
                                )
                               ((= v1-3 (gui-channel rider))
                                "rider"
                                )
                               ((= v1-3 (gui-channel movie))
                                "movie"
                                )
                               (else
                                 "*unknown*"
                                 )
                               )
           )
    )
  (format #t "~1Tanim-part: ~D~%" (-> this anim-part))
  (format #t "~1Tflags: ~D~%" (-> this flags))
  (format #t "~1Tname: ~A~%" (-> this name))
  (format #t "~1Tid: ~D~%" (-> this id))
  (format #t "~1Thandle: ~D~%" (-> this handle))
  (format #t "~1Ttime-stamp: ~D~%" (-> this time-stamp))
  (format #t "~1Thold-time: ~D~%" (-> this hold-time))
  (format #t "~1Tfo-min: ~f~%" (-> this fo-min))
  (format #t "~1Tfo-max: ~f~%" (-> this fo-max))
  (format #t "~1Tfo-power: ~f~%" (-> this fo-power))
  (format #t "~1Tfade: ~D~%" (-> this fade))
  (format #t "~1Tvolume: ~f~%" (-> this volume))
  (format #t "~1Tqw-pad[4] @ #x~X~%" (-> this qw-pad))
  (label cfg-146)
  this
  )

;; type gui-control is defined here, but it is unknown to the decompiler

;; failed to figure out what this is:
0