jak-project/test/decompiler/reference/jakx/engine/sound/speech-h_REF.gc

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

;; definition for symbol *music-volume-during-speech*, type float
(define *music-volume-during-speech* 0.85)

;; definition for symbol *sfx-volume-during-speech*, type float
(define *sfx-volume-during-speech* 1.0)

;; definition for function pecker-can-speak?
(defun pecker-can-speak? ()
  (or (!= *game-mode* 'adventure) (>= (get-task-cup-score 128) 22))
  )

;; definition of type speech-info-item
(deftype speech-info-item (structure)
  ((name   basic)
   (flags  speech-info-flag)
   )
  :pack-me
  )

;; definition for method 3 of type speech-info-item
(defmethod inspect ((this speech-info-item))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'speech-info-item)
  (format #t "~1Tname: ~A~%" (-> this name))
  (format #t "~1Tflags: ~D~%" (-> this flags))
  (label cfg-4)
  this
  )

;; definition of type speech-info
(deftype speech-info (structure)
  ((list   basic)
   (flags  speech-info-flag)
   )
  (:methods
    (speech-info-method-9 () none)
    (speech-info-method-10 () none)
    (speech-info-method-11 () none)
    (speech-info-method-12 () none)
    )
  )

;; definition for method 3 of type speech-info
(defmethod inspect ((this speech-info))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'speech-info)
  (format #t "~1Tlist: ~A~%" (-> this list))
  (format #t "~1Tflags: ~D~%" (-> this flags))
  (label cfg-4)
  this
  )

;; definition of type speech-request
(deftype speech-request (structure)
  ((handle       handle)
   (req-time     time-frame)
   (start-time   time-frame)
   (name         basic)
   (speech-type  speech-type)
   (flags        uint8)
   (max-delay    uint64)
   )
  )

;; definition for method 3 of type speech-request
(defmethod inspect ((this speech-request))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'speech-request)
  (format #t "~1Thandle: ~D~%" (-> this handle))
  (format #t "~1Treq-time: ~D~%" (-> this req-time))
  (format #t "~1Tstart-time: ~D~%" (-> this start-time))
  (format #t "~1Tname: ~A~%" (-> this name))
  (format #t "~1Tspeech-type: ~D~%" (-> this speech-type))
  (format #t "~1Tflags: ~D~%" (-> this flags))
  (format #t "~1Tmax-delay: ~D~%" (-> this max-delay))
  (label cfg-4)
  this
  )

;; definition of type speech-channel
(deftype speech-channel (structure)
  ((flags            speech-channel-flag)
   (gui-channel      gui-channel)
   (delay            uint16)
   (id               sound-id)
   (time             uint64)
   (current-request  speech-request)
   (requests         basic)
   (speeches         speech-info-item  31)
   )
  (:methods
    (speech-channel-method-9 () none)
    (speech-channel-method-10 () none)
    (speech-channel-method-11 () none)
    (speech-channel-method-12 () none)
    (speech-channel-method-13 () none)
    (speech-channel-method-14 () none)
    (speech-channel-method-15 () none)
    (speech-channel-method-16 () none)
    )
  )

;; definition for method 3 of type speech-channel
(defmethod inspect ((this speech-channel))
  (when (not this)
    (set! this this)
    (goto cfg-6)
    )
  (format #t "[~8x] ~A~%" this 'speech-channel)
  (format #t "~1Tflags: #x~X : (speech-channel-flag " (-> this flags))
  (let ((a0-3 (-> this flags)))
    (if (= (logand a0-3 (speech-channel-flag disable)) (speech-channel-flag disable))
        (format #t "disable ")
        )
    )
  (format #t ")~%")
  (format #t "~1Tgui-channel: ~D~%" (-> this gui-channel))
  (format #t "~1Tdelay: ~D~%" (-> this delay))
  (format #t "~1Tid: ~D~%" (-> this id))
  (format #t "~1Ttime: ~D~%" (-> this time))
  (format #t "~1Tcurrent-request: #<speech-request @ #x~X>~%" (-> this current-request))
  (format #t "~1Trequests: ~A~%" (-> this requests))
  (format #t "~1Tspeeches[31] @ #x~X~%" (-> this speeches))
  (label cfg-6)
  this
  )

;; definition of type speech-control
(deftype speech-control (structure)
  ((channels  speech-channel  22 :inline)
   )
  (:methods
    (speech-control-method-9 () none)
    (speech-control-method-10 () none)
    (speech-control-method-11 () none)
    (speech-control-method-12 () none)
    (speech-control-method-13 () none)
    (speech-control-method-14 () none)
    (speech-control-method-15 () none)
    (speech-control-method-16 () none)
    )
  )

;; definition for method 3 of type speech-control
(defmethod inspect ((this speech-control))
  (when (not this)
    (set! this this)
    (goto cfg-4)
    )
  (format #t "[~8x] ~A~%" this 'speech-control)
  (format #t "~1Tchannels[22] @ #x~X~%" (-> this channels))
  (label cfg-4)
  this
  )

;; failed to figure out what this is:
0