jak-project/test/decompiler/reference/levels/citadel/assistant-citadel_REF.gc

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

;; definition of type assistant-lavatube-end
(deftype assistant-lavatube-end (process-taskable)
  ()
  :heap-base #x110
  :method-count-assert 53
  :size-assert         #x17c
  :flag-assert         #x350110017c
  )

;; definition for method 3 of type assistant-lavatube-end
(defmethod inspect assistant-lavatube-end ((obj assistant-lavatube-end))
  (let ((t9-0 (method-of-type process-taskable inspect)))
    (t9-0 obj)
    )
  obj
  )

;; failed to figure out what this is:
(defskelgroup *assistant-lavatube-end-sg* assistant-lavatube-end
  0
  3
  ((1 (meters 999999)))
  :bounds (static-spherem 0 0 0 4)
  :longest-edge (meters 0)
  :shadow 2
  )

;; definition for method 32 of type assistant-lavatube-end
(defmethod play-anim! assistant-lavatube-end ((obj assistant-lavatube-end) (arg0 symbol))
  (case (current-status (-> obj tasks))
    (((task-status unknown) (task-status need-hint))
     (new 'static 'spool-anim :name "assistant-lavatube-end-resolution" :index 4 :parts 11 :command-list '())
     )
    (((task-status need-reward-speech))
     (if arg0
         (close-current! (-> obj tasks))
         )
     (new 'static 'spool-anim
       :name "assistant-lavatube-end-resolution"
       :index 4
       :parts 11
       :command-list
       '((61 joint "cameraB")
         (151 joint "camera")
         (226 joint "cameraB")
         (273 joint "camera")
         (316 joint "cameraB")
         (451 joint "camera")
         (651 joint "cameraB")
         (786 joint "camera")
         (888 joint "cameraB")
         (1011 joint "camera")
         (1011 shadow target #f)
         (1140 shadow target #t)
         (1191 joint "cameraB")
         )
       )
     )
    (else
      (if arg0
          (format
            0
            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
            (-> obj name)
            (task-status->string (current-status (-> obj tasks)))
            )
          )
      (get-art-elem obj)
      )
    )
  )

;; definition for method 31 of type assistant-lavatube-end
(defmethod get-art-elem assistant-lavatube-end ((obj assistant-lavatube-end))
  (-> obj draw art-group data 3)
  )

;; failed to figure out what this is:
(defstate hidden (assistant-lavatube-end)
  :virtual #t
  :trans
  (behavior ()
    (dummy-33 self)
    ((-> (method-of-type process-taskable hidden) trans))
    (when (and (and *target* (>= 61440.0 (vector-vector-distance (-> self root-override trans) (-> *target* control trans))))
               (not (closed? (-> self tasks) (game-task village4-button) (task-status need-reward-speech)))
               )
      )
    (none)
    )
  )

;; failed to figure out what this is:
(defstate idle (assistant-lavatube-end)
  :virtual #t
  :enter
  (behavior ()
    ((-> (method-of-type process-taskable idle) enter))
    (case (get-task-status (game-task village4-button))
      (((task-status need-reward-speech))
       (send-event self 'play-anim)
       )
      )
    (none)
    )
  :code
  (behavior ()
    (while #t
      (when (!= (if (> (-> self skel active-channels) 0)
                    (-> self skel root-channel 0 frame-group)
                    )
                (get-art-elem self)
                )
        (ja-channel-push! 1 15)
        (let ((v1-5 (-> self skel root-channel 0)))
          (set! (-> v1-5 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
          )
        )
      (let ((a0-10 (-> self skel root-channel 0)))
        (set! (-> a0-10 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-10 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-10 param 1) 1.0)
        (set! (-> a0-10 frame-num) 0.0)
        (joint-control-channel-group!
          a0-10
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-11 (-> self skel root-channel 0)))
          (set! (-> a0-11 param 0) (the float (+ (-> a0-11 frame-group data 0 length) -1)))
          (set! (-> a0-11 param 1) 1.0)
          (joint-control-channel-group-eval! a0-11 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  )

;; definition for method 39 of type assistant-lavatube-end
(defmethod should-display? assistant-lavatube-end ((obj assistant-lavatube-end))
  (first-any (-> obj tasks) #t)
  (let ((v1-3 (current-status (-> obj tasks))))
    (and (or (= v1-3 (task-status need-reward-speech)) (= v1-3 (task-status invalid)))
         (not (task-closed? (game-task citadel-sage-green) (task-status need-hint)))
         )
    )
  )

;; definition for method 11 of type assistant-lavatube-end
(defmethod init-from-entity! assistant-lavatube-end ((obj assistant-lavatube-end) (arg0 entity-actor))
  (dummy-40 obj arg0 *assistant-lavatube-end-sg* 3 29 (new 'static 'vector :w 4096.0) 5)
  (set! (-> obj tasks) (get-task-control (game-task village4-button)))
  (first-any (-> obj tasks) #t)
  (dummy-42 obj)
  (none)
  )