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

;; name: drawable-ambient-h.gc
;; name in dgo: drawable-ambient-h
;; dgos: GAME, ENGINE

(deftype drawable-ambient (drawable)
  ((ambient basic          :offset 8)
   )
  :method-count-assert 19
  :size-assert         #x20
  :flag-assert         #x1300000020
  (:methods
    (dummy-9 () none 9)
    (dummy-10 (_type_) int 10)
    (dummy-11 () none 11)
    (dummy-12 () none 12)
    (dummy-13 () none 13)
    (dummy-14 () none 14)
    (dummy-15 () none 15)
    (dummy-16 () none 16)
    (dummy-17 () none 17)
    (dummy-18 () none 18)
    )
  )

(deftype drawable-tree-ambient (drawable-tree)
  ()
  :flag-assert #x1200000024
  )

(deftype drawable-inline-array-ambient (drawable-inline-array)
  ((paid uint8 36))
  :flag-assert #x1200000044
  )

(defmethod dummy-10 drawable-tree-ambient ((obj _type_))
  0
  )

;; TODO dummy-16

(deftype level-hint (process)
  ((text-id-to-display uint32  :offset-assert 112)
   (sound-to-play      basic   :offset-assert 116)
   (trans              vector  :offset-assert 120)
   (sound-id           uint32  :offset-assert 124)
   (mode               basic   :offset-assert 128)
   (total-time         uint64  :offset-assert 136)
   (total-off-time     uint64  :offset-assert 144)
   (last-time          uint64  :offset-assert 152)
   (voicebox           uint64  :offset-assert 160)
   )
  :heap-base #x40
  :method-count-assert 16
  :size-assert         #xa8
  :flag-assert         #x10004000a8
  ;; inherited inspect of process
  (:methods
    (dummy-14 () none 14)
    (dummy-15 () none 15)
    )
  )

(defmethod inspect level-hint ((obj level-hint))
  (local-vars (t9-0 (function process process)))
  (set! t9-0 (method-of-type process inspect))
  (t9-0 obj)
  (format '#t "~T~Ttext-id-to-display: ~D~%" (-> obj text-id-to-display))
  (format '#t "~T~Tsound-to-play: ~A~%" (-> obj sound-to-play))
  (format '#t "~T~Ttrans: #<vector @ #x~X>~%" (-> obj trans))
  (format '#t "~T~Tsound-id: ~D~%" (-> obj sound-id))
  (format '#t "~T~Tmode: ~A~%" (-> obj mode))
  (format '#t "~T~Ttotal-time: ~D~%" (-> obj total-time))
  (format '#t "~T~Ttotal-off-time: ~D~%" (-> obj total-off-time))
  (format '#t "~T~Tlast-time: ~D~%" (-> obj last-time))
  (format '#t "~T~Tvoicebox: ~D~%" (-> obj voicebox))
  obj
  )

(deftype ambient-list (structure)
  ((num-items int32        :offset-assert 0)
   (items     uint32 2048 :offset-assert 4)
   )
  :method-count-assert 9
  :size-assert         #x2004
  :flag-assert         #x900002004
  )