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

;; definition of type process-taskable
(deftype process-taskable (process-focusable)
  ((task              basic                   :offset-assert 204)
   (ambient           ambient-control :inline :offset-assert 208)
   (neck-joint-index  int32                   :offset-assert 224)
   (talk-message      game-text-id            :offset-assert 228)
   (bounce-away       symbol                  :offset-assert 232)
   (will-talk         symbol                  :offset-assert 236)
   (look-at-me        symbol                  :offset-assert 240)
   (hide-during-movie symbol                  :offset-assert 244)
   (talk-distance     meters                  :offset-assert 248)
   (talk-height       meters                  :offset-assert 252)
   (last-talk         time-frame              :offset-assert 256)
   (want-to-say       uint64                  :offset-assert 264)
   (birth-time        time-frame              :offset-assert 272)
   (slave             handle                  :offset-assert 280)
   )
  :heap-base #xa0
  :method-count-assert 38
  :size-assert         #x120
  :flag-assert         #x2600a00120
  (:methods
    (process-taskable-method-27 () none 27)
    (process-taskable-method-28 () none 28)
    (process-taskable-method-29 () none 29)
    (process-taskable-method-30 () none 30)
    (process-taskable-method-31 () none 31)
    (process-taskable-method-32 () none 32)
    (process-taskable-method-33 () none 33)
    (process-taskable-method-34 () none 34)
    (process-taskable-method-35 () none 35)
    (process-taskable-method-36 () none 36)
    (process-taskable-method-37 () none 37)
    )
  )

;; definition for method 3 of type process-taskable
(defmethod inspect process-taskable ((obj process-taskable))
  (when (not obj)
    (set! obj obj)
    (goto cfg-4)
    )
  (let ((t9-0 (method-of-type process-focusable inspect)))
    (t9-0 obj)
    )
  (format #t "~2Ttask: ~A~%" (-> obj task))
  (format #t "~2Tambient: #<ambient-control @ #x~X>~%" (-> obj ambient))
  (format #t "~2Tneck-joint-index: ~D~%" (-> obj neck-joint-index))
  (format #t "~2Ttalk-message: ~D~%" (-> obj talk-message))
  (format #t "~2Tbounce-away: ~A~%" (-> obj bounce-away))
  (format #t "~2Twill-talk: ~A~%" (-> obj will-talk))
  (format #t "~2Tlook-at-me: ~A~%" (-> obj look-at-me))
  (format #t "~2Thide-during-movie: ~A~%" (-> obj hide-during-movie))
  (format #t "~2Ttalk-distance: (meters ~m)~%" (-> obj talk-distance))
  (format #t "~2Ttalk-height: (meters ~m)~%" (-> obj talk-height))
  (format #t "~2Tlast-talk: ~D~%" (-> obj last-talk))
  (format #t "~2Twant-to-say: ~D~%" (-> obj want-to-say))
  (format #t "~2Tbirth-time: ~D~%" (-> obj birth-time))
  (format #t "~2Tslave: ~D~%" (-> obj slave))
  (label cfg-4)
  obj
  )

;; failed to figure out what this is:
0