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

;; definition of type process-taskable
(deftype process-taskable (process-focusable)
  "The parent class for NPCs that can be talked to."
  ((task               game-task-control)
   (ambient            ambient-control  :inline)
   (neck-joint-index   int32)
   (talk-message       text-id)
   (bounce-away        symbol)
   (will-talk          symbol)
   (look-at-me         symbol)
   (hide-during-movie  symbol)
   (talk-distance      meters)
   (talk-height        meters)
   (last-talk          time-frame)
   (want-to-say        time-frame)
   (birth-time         time-frame)
   (slave              handle)
   )
  (:state-methods
    hide
    idle
    (active game-task-event)
    (play-game game-task-event)
    )
  (:methods
    (process-taskable-method-31 (_type_) none)
    (process-taskable-method-32 (_type_) none)
    (init-art! (_type_) none)
    (process-taskable-method-34 (_type_) symbol)
    (get-art-elem (_type_) art-element)
    (process-taskable-method-36 (_type_) none)
    (process-taskable-method-37 (_type_) none)
    )
  )

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

;; failed to figure out what this is:
0