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

;; definition for method 3 of type load-dir
;; Used lq/sq
(defmethod inspect load-dir ((obj load-dir))
  (local-vars (sv-16 basic))
  (format #t "[~8x] ~A~%" obj (-> obj type))
  (format #t "~Tlevel: ~A~%" (-> obj unknown))
  (format #t "~Tallocated-length: ~D~%" (-> obj string-array allocated-length))
  (format #t "~Tlength: ~D~%" (-> obj string-array length))
  (dotimes (s5-0 (-> obj string-array length))
    (let ((s4-0 format)
          (s3-0 #t)
          (s2-0 "~T  [~D] ~S ~A  (~D bytes)~%")
          (s1-0 s5-0)
          (s0-0 (-> obj string-array s5-0))
          )
      (set! sv-16 (-> obj data-array s5-0))
      (let ((t1-0 (mem-size (-> obj data-array s5-0) #f 0)))
        (s4-0 s3-0 s2-0 s1-0 s0-0 sv-16 t1-0)
        )
      )
    )
  obj
  )

;; definition for method 8 of type load-dir
;; INFO: Return type mismatch symbol vs load-dir.
(defmethod mem-usage load-dir ((obj load-dir) (arg0 memory-usage-block) (arg1 int))
  (set! (-> arg0 length) (max 82 (-> arg0 length)))
  (set! (-> arg0 data 81 name) "array")
  (+! (-> arg0 data 81 count) 1)
  (let ((v1-6 (asize-of obj)))
    (+! (-> arg0 data 81 used) v1-6)
    (+! (-> arg0 data 81 total) (logand -16 (+ v1-6 15)))
    )
  (set! (-> arg0 length) (max 82 (-> arg0 length)))
  (set! (-> arg0 data 81 name) "array")
  (set! (-> arg0 data 81 count) (-> arg0 data 81 count))
  (let ((v1-15 (asize-of (-> obj string-array))))
    (+! (-> arg0 data 81 used) v1-15)
    (+! (-> arg0 data 81 total) (logand -16 (+ v1-15 15)))
    )
  (set! (-> arg0 length) (max 82 (-> arg0 length)))
  (set! (-> arg0 data 81 name) "array")
  (set! (-> arg0 data 81 count) (-> arg0 data 81 count))
  (let ((v1-24 (asize-of (-> obj data-array))))
    (+! (-> arg0 data 81 used) v1-24)
    (+! (-> arg0 data 81 total) (logand -16 (+ v1-24 15)))
    )
  (dotimes (s3-0 (-> obj data-array length))
    (mem-usage (-> obj data-array s3-0) arg0 arg1)
    )
  (the-as load-dir #f)
  )

;; definition for method 9 of type load-dir-art-group
(defmethod load-to-heap-by-name load-dir-art-group ((obj load-dir-art-group) (art-name string) (do-reload symbol) (heap kheap) (version int))
  (let ((s5-0 (-> obj string-array)))
    (dotimes (s3-0 (-> s5-0 length))
      (when (string= art-name (-> s5-0 s3-0))
        (when do-reload
          (let ((v1-4 (art-group-load-check art-name heap version)))
            (if v1-4
                (set! (-> obj art-group-array s3-0) v1-4)
                )
            )
          )
        (return (-> obj art-group-array s3-0))
        )
      )
    (let ((v0-2 (art-group-load-check art-name heap version)))
      (when v0-2
        (set! (-> s5-0 (-> s5-0 length)) art-name)
        (set! (-> obj art-group-array (-> s5-0 length)) v0-2)
        (+! (-> s5-0 length) 1)
        (+! (-> obj art-group-array length) 1)
        )
      v0-2
      )
    )
  )

;; definition for method 10 of type load-dir-art-group
(defmethod set-loaded-art load-dir-art-group ((obj load-dir-art-group) (arg0 art-group))
  (let ((s4-0 (-> obj string-array)))
    (dotimes (s3-0 (-> s4-0 length))
      (when (string= (-> arg0 name) (-> s4-0 s3-0))
        (set! (-> obj art-group-array s3-0) arg0)
        (set! arg0 (-> obj art-group-array s3-0))
        (goto cfg-7)
        )
      )
    (set! (-> s4-0 (-> s4-0 length)) (-> arg0 name))
    (set! (-> obj art-group-array (-> s4-0 length)) arg0)
    (+! (-> s4-0 length) 1)
    )
  (+! (-> obj art-group-array length) 1)
  (label cfg-7)
  arg0
  )

;; definition for function drawable-load
(defun drawable-load ((arg0 drawable) (arg1 kheap))
  (local-vars (sp-0 pointer))
  (cond
    ((type-type? (-> arg0 type) string)
     (the-as none sp-0)
     (if (< (the-as uint sp-0) (the-as uint *stack-top*))
         (set! sp-0 (&+ *kernel-sp* -1024))
         )
     (let ((s5-1 (the-as drawable (loado (the-as string arg0) arg1))))
       (if (and s5-1 (type-type? (-> s5-1 type) drawable))
           (login s5-1)
           )
       )
     )
    ((type-type? (-> arg0 type) drawable)
     (login arg0)
     )
    )
  )

;; definition for function art-load
(defun art-load ((arg0 string) (arg1 kheap))
  (local-vars (sp-0 pointer))
  (the-as none sp-0)
  (if (< (the-as uint sp-0) (the-as uint *stack-top*))
      (set! sp-0 (&+ *kernel-sp* -1024))
      )
  (let ((s5-0 (loado arg0 arg1)))
    (if (type-type? (-> (the-as art s5-0) type) art)
        (login (the-as art s5-0))
        (the-as art #f)
        )
    )
  )

;; definition for function art-group-load-check
(defun art-group-load-check ((arg0 string) (arg1 kheap) (arg2 int))
  (local-vars (sp-0 pointer))
  (when *debug-segment*
    (the-as none sp-0)
    (if (< (the-as uint sp-0) (the-as uint *stack-top*))
        (set! sp-0 (&+ *kernel-sp* -1024))
        )
    (let ((s3-1 (the-as art-group (loado (make-file-name (file-kind art-group) arg0 arg2 #f) arg1))))
      (cond
        ((not s3-1)
         (format 0 "ERROR: art-group ~A is not a valid file.~%" arg0)
         (the-as art-group #f)
         )
        ((not (type-type? (-> s3-1 type) art-group))
         (format 0 "ERROR: art-group ~A is not a art-group.~%" arg0)
         (the-as art-group #f)
         )
        ((not (file-info-correct-version? (-> s3-1 info) (file-kind art-group) arg2))
         (the-as art-group #f)
         )
        (else
          (login s3-1)
          )
        )
      )
    )
  )

;; definition for method 9 of type external-art-buffer
(defmethod set-pending-file external-art-buffer ((obj external-art-buffer) (arg0 string) (arg1 int) (arg2 handle) (arg3 float))
  (set! (-> obj pending-load-file) arg0)
  (set! (-> obj pending-load-file-part) arg1)
  (set! (-> obj pending-load-file-owner) arg2)
  (set! (-> obj pending-load-file-priority) arg3)
  0
  )

;; definition for method 15 of type external-art-buffer
(defmethod unlock! external-art-buffer ((obj external-art-buffer))
  (set! (-> obj locked?) #f)
  #f
  )

;; definition for method 11 of type external-art-buffer
(defmethod inactive? external-art-buffer ((obj external-art-buffer))
  (!= (-> obj status) 'active)
  )

;; definition for method 12 of type external-art-buffer
(defmethod file-status external-art-buffer ((obj external-art-buffer) (arg0 string) (arg1 int))
  (when (and (name= (-> obj pending-load-file) arg0) (= (-> obj pending-load-file-part) arg1))
    (if (and (name= (-> obj load-file) arg0) (= (-> obj load-file-part) arg1))
        (-> obj status)
        'pending
        )
    )
  )

;; definition for method 13 of type art-group
(defmethod link-art! art-group ((obj art-group))
  (when obj
    (countdown (s5-0 (-> obj length))
      (let* ((art-elt (-> obj data s5-0))
             (janim (if (and (nonzero? art-elt) (type-type? (-> art-elt type) art-joint-anim))
                        (the-as art-joint-anim art-elt)
                        )
                    )
             (success #f)
             )
        (when janim
          (let ((s3-1 3))
            (while (begin (label cfg-22) (nonzero? s3-1))
              (+! s3-1 -1)
              (let ((janim-group (art-group-get-by-name (-> *level* level s3-1) (-> janim master-art-group-name))))
                (when janim-group
                  (cond
                    ((and (< (-> janim master-art-group-index) (-> janim-group length))
                          (not (-> janim-group data (-> janim master-art-group-index)))
                          )
                     (set! (-> janim-group data (-> janim master-art-group-index)) janim)
                     (set! success #t)
                     )
                    (else
                      (countdown (a0-14 (-> janim-group length))
                        (when (not (-> janim-group data a0-14))
                          (set! (-> janim-group data a0-14) janim)
                          (set! success #t)
                          (goto cfg-22)
                          )
                        )
                      )
                    )
                  )
                )
              )
            )
          (if (not success)
              (format 0 "ERROR: ~A could not find a master slot to link for ~A.~%" (-> obj name) janim)
              )
          )
        )
      )
    )
  obj
  )

;; definition for method 14 of type art-group
(defmethod unlink-art! art-group ((obj art-group))
  (when obj
    (countdown (s5-0 (-> obj length))
      (let* ((art-elt (-> obj data s5-0))
             (janim (if (and (nonzero? art-elt) (type-type? (-> art-elt type) art-joint-anim))
                        (the-as art-joint-anim art-elt)
                        )
                    )
             (success #f)
             )
        (when janim
          (let ((s2-0 3))
            (while (begin (label cfg-16) (nonzero? s2-0))
              (+! s2-0 -1)
              (let ((janim-group (art-group-get-by-name (-> *level* level s2-0) (-> janim master-art-group-name))))
                (when janim-group
                  (countdown (a0-5 (-> janim-group length))
                    (when (= janim (-> janim-group data a0-5))
                      (set! (-> janim-group data a0-5) #f)
                      (set! success #t)
                      (goto cfg-16)
                      )
                    )
                  )
                )
              )
            )
          (if (not success)
              (format 0 "ERROR: ~A could not find a master slot to unlink for ~A.~%" (-> obj name) janim)
              )
          )
        )
      )
    )
  0
  )

;; definition for method 13 of type external-art-buffer
(defmethod link-file external-art-buffer ((obj external-art-buffer) (arg0 art-group))
  (when arg0
    (link-art! arg0)
    (set! (-> obj art-group) arg0)
    )
  arg0
  )

;; definition for method 14 of type external-art-buffer
(defmethod unlink-file external-art-buffer ((obj external-art-buffer) (arg0 art-group))
  (when arg0
    (unlink-art! arg0)
    (set! (-> obj art-group) #f)
    )
  0
  )

;; definition for method 10 of type external-art-buffer
;; WARN: Found some very strange gotos. Check result carefully, this is not well tested.
(defmethod update external-art-buffer ((obj external-art-buffer))
  (when (or (not (name= (-> obj pending-load-file) (-> obj load-file)))
            (!= (-> obj pending-load-file-part) (-> obj load-file-part))
            )
    (when (not (handle->process (-> obj pending-load-file-owner)))
      (set! (-> obj pending-load-file) #f)
      (set! (-> obj pending-load-file-part) -1)
      (set! (-> obj pending-load-file-owner) (the-as handle #f))
      (set! (-> obj pending-load-file-priority) 100000000.0)
      )
    (when (= (-> obj status) 'initialize)
      (let ((v1-11 (-> obj heap)))
        (set! (-> v1-11 base) (the-as pointer (+ #x84000 (* #x3dc00 (-> obj index)))))
        (set! (-> v1-11 current) (-> v1-11 base))
        (set! (-> v1-11 top-base) (&+ (-> v1-11 base) #x3dc00))
        (set! (-> v1-11 top) (-> v1-11 top-base))
        )
      (set! (-> obj status) 'inactive)
      )
    (cond
      ((-> obj load-file)
       (if (= (-> obj status) 'loading)
           (str-load-cancel)
           )
       (set! (-> obj load-file) #f)
       (set! (-> obj load-file-part) -1)
       (set! (-> obj load-file-owner) (the-as handle #f))
       (set! (-> obj load-file-priority) 100000000.0)
       )
      (else
        (set! (-> obj load-file) (-> obj pending-load-file))
        (set! (-> obj load-file-part) (-> obj pending-load-file-part))
        (set! (-> obj load-file-owner) (-> obj pending-load-file-owner))
        (set! (-> obj load-file-priority) (-> obj pending-load-file-priority))
        )
      )
    )
  (label cfg-18)
  (cond
    ((-> obj load-file)
     (case (-> obj status)
       (('active 'reserved)
        )
       (('error)
        (set! (-> obj status) 'inactive)
        (set! (-> obj load-file) #f)
        (set! (-> obj load-file-part) -1)
        (set! (-> obj load-file-owner) (the-as handle #f))
        (set! (-> obj load-file-priority) 100000000.0)
        (set! (-> obj pending-load-file) #f)
        (set! (-> obj pending-load-file-part) -1)
        (set! (-> obj pending-load-file-owner) (the-as handle #f))
        (set! (-> obj pending-load-file-priority) 100000000.0)
        (set! (-> obj art-group) #f)
        )
       (('inactive)
        (let ((v1-28 (-> obj heap)))
          (set! (-> v1-28 current) (-> v1-28 base))
          )
        (cond
          ((string= (-> obj load-file) "reserved")
           (cond
             ((-> *art-control* reserve-buffer)
              (format 0 "ERROR: trying double reserve ~A when ~A is reserved~%" obj (-> *art-control* reserve-buffer))
              )
             (else
               (set! (-> obj status) 'reserved)
               (set! (-> *art-control* reserve-buffer) obj)
               )
             )
           )
          ((and (!= (-> *level* loading-level) (-> *level* level-default)) (< 81920.0 (-> obj load-file-priority)))
           )
          ((str-load (-> obj load-file) (-> obj load-file-part) (logand -64 (&+ (-> obj heap current) 63)) #x3fc00)
           (set! (-> obj status) 'loading)
           )
          )
        )
       (('loading)
        (case (str-load-status (&-> obj len))
          (('error)
           (set! (-> obj status) 'error)
           )
          (('busy)
           )
          (else
            (set! (-> obj buf) (logand -64 (&+ (-> obj heap current) 63)))
            (set! (-> obj status) 'loaded)
            (goto cfg-18)
            )
          )
        )
       (('loaded)
        (let ((a0-37 (-> obj buf)))
          (set! (-> obj art-group) (the-as art-group (link a0-37 (-> obj load-file data) (-> obj len) (-> obj heap) 0)))
          )
        (let ((s4-0 (-> obj art-group))
              (s3-0 (-> obj load-file))
              )
          (cond
            ((not s4-0)
             (format 0 "ERROR: art-group ~A part ~D is not a valid file.~%" s3-0 (-> obj load-file-part))
             (set! (-> obj status) 'error)
             )
            ((not (type-type? (-> s4-0 type) art-group))
             (format 0 "ERROR: art-group ~A part ~D is not a art-group.~%" s3-0 (-> obj load-file-part))
             (set! (-> obj status) 'error)
             )
            ((not (file-info-correct-version? (-> s4-0 info) (file-kind art-group) 0))
             (set! (-> obj status) 'error)
             )
            (else
              (login s4-0)
              (set! (-> obj status) 'locked)
              )
            )
          )
        )
       (('locked)
        (when (and (not (-> obj locked?)) (handle->process (-> obj load-file-owner)))
          (link-file obj (-> obj art-group))
          (set! (-> obj other locked?) #t)
          (set! (-> obj status) 'active)
          (goto cfg-18)
          )
        )
       )
     )
    (else
      (case (-> obj status)
        (('initialize)
         )
        (('reserved)
         (cond
           ((= (-> *art-control* reserve-buffer) obj)
            (set! (-> *art-control* reserve-buffer) #f)
            (set! (-> obj status) 'inactive)
            )
           (else
             (format 0 "ERROR: trying tro free ~A when ~A is reserved~%" obj (-> *art-control* reserve-buffer))
             )
           )
         )
        (('active)
         (unlink-file obj (-> obj art-group))
         (let ((v1-70 (-> obj heap)))
           (set! (-> v1-70 current) (-> v1-70 base))
           )
         (set! (-> obj art-group) #f)
         (set! (-> obj status) 'inactive)
         (when (-> obj other locked?)
           (unlock! (-> obj other))
           (update (-> obj other))
           )
         )
        (else
          (let ((v1-79 (-> obj heap)))
            (set! (-> v1-79 current) (-> v1-79 base))
            )
          (set! (-> obj art-group) #f)
          (set! (-> obj status) 'inactive)
          )
        )
      )
    )
  0
  )

;; definition for symbol *preload-spool-anims*, type symbol
(define *preload-spool-anims* #t)

;; definition for method 12 of type external-art-control
(defmethod file-status external-art-control ((obj external-art-control) (arg0 string) (arg1 int))
  (dotimes (s3-0 2)
    (let ((v1-3 (file-status (-> obj buffer s3-0) arg0 arg1)))
      (if v1-3
          (return v1-3)
          )
      )
    )
  #f
  )

;; definition for method 9 of type external-art-control
(defmethod update external-art-control ((obj external-art-control) (arg0 symbol))
  (if (nonzero? (-> obj reserve-buffer-count))
      (spool-push obj "reserved" 0 *dproc* (if (-> obj reserve-buffer)
                                               -110.0
                                               -0.5
                                               )
                  )
      )
  (dotimes (v1-5 2)
    (set! (-> obj buffer v1-5 frame-lock) #f)
    )
  (dotimes (v1-8 3)
    (set! (-> obj rec v1-8 index) (the-as int #f))
    )
  (dotimes (s4-0 2)
    (let ((s3-0 (-> obj rec s4-0)))
      (when (-> s3-0 name)
        (dotimes (s2-0 2)
          (when (and (file-status (-> obj buffer s2-0) (-> s3-0 name) (-> s3-0 parts)) (not (-> obj buffer s2-0 frame-lock)))
            (set! (-> obj buffer s2-0 frame-lock) #t)
            (set! (-> s3-0 index) (the-as int (-> obj buffer s2-0)))
            (set! (-> obj buffer s2-0 pending-load-file-owner) (-> s3-0 owner))
            (set! (-> obj buffer s2-0 load-file-owner) (-> s3-0 owner))
            (set! (-> obj buffer s2-0 pending-load-file-priority) (-> s3-0 priority))
            (set! (-> obj buffer s2-0 load-file-priority) (-> s3-0 priority))
            (goto cfg-24)
            )
          )
        )
      )
    (label cfg-24)
    )
  (dotimes (s4-1 2)
    (let ((s3-1 (-> obj rec s4-1)))
      (when (and (-> s3-1 name) (not (-> s3-1 buf2)))
        (if (and (not *preload-spool-anims*) (>= (-> s3-1 priority) 0.0))
            (goto cfg-46)
            )
        (dotimes (s2-1 2)
          (when (not (-> obj buffer s2-1 frame-lock))
            (set! (-> obj buffer s2-1 frame-lock) #t)
            (set-pending-file (-> obj buffer s2-1) (-> s3-1 name) (-> s3-1 parts) (-> s3-1 owner) (-> s3-1 priority))
            (set! (-> s3-1 index) (the-as int (-> obj buffer s2-1)))
            (goto cfg-46)
            )
          )
        )
      )
    (label cfg-46)
    )
  (when (not (-> obj reserve-buffer))
    (let ((s4-2 (-> obj rec 0 buf2)))
      (if (and s4-2
               (-> s4-2 locked?)
               (not (string= (-> s4-2 pending-load-file) "reserved"))
               (not (string= (-> s4-2 other pending-load-file) "reserved"))
               )
          (set-pending-file (-> s4-2 other) (the-as string #f) -1 (the-as handle #f) 100000000.0)
          )
      )
    )
  (dotimes (s4-3 2)
    (update (-> obj buffer s4-3))
    )
  (let ((s4-4 (the-as spool-anim #f)))
    (countdown (s3-2 3)
      (if (and (-> obj rec s3-2 name) (not (name= (-> obj rec s3-2 name) (-> obj active-stream))))
          (set! s4-4 (the-as spool-anim (-> obj rec)))
          )
      )
    (if (and (-> obj preload-stream name) (or (not s4-4) (< (-> obj preload-stream priority) (-> s4-4 priority))))
        (set! s4-4 (-> obj preload-stream))
        )
    (cond
      (s4-4
        (mem-copy! (&-> (-> obj last-preload-stream) type) (&-> s4-4 type) 44)
        (str-play-queue (-> s4-4 name))
        )
      (else
        (set! (-> obj last-preload-stream name) #f)
        (set! (-> obj last-preload-stream owner) (the-as handle #f))
        )
      )
    )
  (when (and arg0 *display-art-control*)
    (dotimes (s5-1 3)
      (let ((t9-10 format)
            (a0-29 *stdcon*)
            (a1-9 "rec ~d ~S ~D ~f ~A~%")
            (a2-5 s5-1)
            (a3-3 (-> obj rec s5-1 name))
            (t0-3 (-> obj rec s5-1 parts))
            (t1-0 (-> obj rec s5-1 priority))
            (v1-123 (handle->process (-> obj rec s5-1 owner)))
            )
        (t9-10 a0-29 a1-9 a2-5 a3-3 t0-3 t1-0 (if v1-123
                                                  (-> v1-123 name)
                                                  )
               )
        )
      )
    (dotimes (s5-2 2)
      (let ((t9-11 format)
            (a0-30 *stdcon*)
            (a1-10 "buf ~d ~C ~S ~D ~A ~A~%")
            (a2-6 s5-2)
            (a3-4 (if (-> obj buffer s5-2 locked?)
                      108
                      32
                      )
                  )
            (t0-4 (-> obj buffer s5-2 pending-load-file))
            (t1-1 (-> obj buffer s5-2 pending-load-file-part))
            (t2-5 (-> obj buffer s5-2 status))
            (v1-144 (handle->process (-> obj buffer s5-2 pending-load-file-owner)))
            )
        (t9-11 a0-30 a1-10 a2-6 a3-4 t0-4 t1-1 t2-5 (if v1-144
                                                        (-> v1-144 name)
                                                        )
               )
        )
      )
    (format *stdcon* " a: ~S~%" (-> obj active-stream))
    (let ((t9-13 format)
          (a0-32 *stdcon*)
          (a1-12 " p: ~S  ~A~%")
          (a2-8 (-> obj preload-stream name))
          (v1-149 (handle->process (-> obj preload-stream owner)))
          )
      (t9-13 a0-32 a1-12 a2-8 (if v1-149
                                  (-> v1-149 name)
                                  )
             )
      )
    (let ((t9-14 format)
          (a0-33 *stdcon*)
          (a1-13 " q: ~S  ~A~%")
          (a2-9 (-> obj last-preload-stream name))
          (v1-152 (handle->process (-> obj last-preload-stream owner)))
          )
      (t9-14 a0-33 a1-13 a2-9 (if v1-152
                                  (-> v1-152 name)
                                  )
             )
      )
    )
  0
  )

;; definition for method 15 of type external-art-control
(defmethod none-reserved? external-art-control ((obj external-art-control))
  (zero? (-> obj reserve-buffer-count))
  )

;; definition for method 13 of type external-art-control
(defmethod reserve-alloc external-art-control ((obj external-art-control))
  (set! (-> obj reserve-buffer-count) 1)
  (if (-> obj reserve-buffer)
      (-> obj reserve-buffer heap)
      )
  )

;; definition for method 14 of type external-art-control
(defmethod reserve-free external-art-control ((obj external-art-control) (arg0 kheap))
  (cond
    ((zero? (-> obj reserve-buffer-count))
     (format 0 "ERROR: illegal attempt to free a buffer #x~X which had not been reserved (none reserved).~%" arg0)
     )
    ((not (-> obj reserve-buffer))
     (set! (-> obj reserve-buffer-count) 0)
     0
     )
    ((= (-> obj reserve-buffer heap) arg0)
     (set-pending-file (-> obj reserve-buffer) (the-as string #f) -1 (the-as handle #f) 100000000.0)
     (update (-> obj reserve-buffer))
     (set! (-> obj reserve-buffer-count) 0)
     0
     )
    (else
      (format 0 "ERROR: illegal attempt to free a buffer #x~X which had not been reserved (buffer unknown).~%" arg0)
      )
    )
  0
  )

;; definition for method 10 of type external-art-control
(defmethod clear-rec external-art-control ((obj external-art-control))
  (cond
    ((!= *master-mode* 'game)
     (dotimes (s5-0 3)
       (when (name= (-> obj rec s5-0 name) "reserved")
         (let ((v1-5 s5-0))
           (cond
             ((zero? v1-5)
              (mem-copy! (&+ (the-as pointer (-> obj rec)) -4) (&-> (-> obj rec 1) type) 44)
              (mem-copy! (&-> (-> obj rec 1) type) (&-> (-> obj rec 2) type) 44)
              )
             ((= v1-5 1)
              (mem-copy! (&-> (-> obj rec 1) type) (&-> (-> obj rec 2) type) 44)
              )
             )
           )
         (set! (-> obj rec 2 type) spool-anim)
         (set! (-> obj rec 2 name) #f)
         (set! (-> obj rec 2 priority) 100000000.0)
         (set! (-> obj rec 2 owner) (the-as handle #f))
         )
       )
     )
    (else
      (dotimes (v1-19 3)
        (set! (-> obj rec v1-19 type) spool-anim)
        (set! (-> obj rec v1-19 name) #f)
        (set! (-> obj rec v1-19 priority) 100000000.0)
        (set! (-> obj rec v1-19 owner) (the-as handle #f))
        )
      (set! (-> obj preload-stream type) spool-anim)
      (set! (-> obj preload-stream name) #f)
      (set! (-> obj preload-stream priority) 100000000.0)
      (set! (-> obj preload-stream owner) (the-as handle #f))
      )
    )
  0
  )

;; definition for method 16 of type external-art-control
(defmethod try-preload-stream external-art-control ((obj external-art-control) (arg0 string) (arg1 int) (arg2 process) (arg3 float))
  (when (and (= arg3 -99.0) arg2)
    (let ((a0-2 (target-pos 0)))
      (set! arg3 (vector-vector-distance a0-2 (-> (the-as process-drawable arg2) root trans)))
      )
    )
  (when (not (and (-> obj preload-stream name) (>= arg3 (-> obj preload-stream priority))))
    (set! (-> obj preload-stream name) arg0)
    (set! (-> obj preload-stream parts) arg1)
    (set! (-> obj preload-stream priority) arg3)
    (let ((v1-8 (process->ppointer arg2)))
      (set! (-> obj preload-stream owner)
            (new 'static 'handle :process v1-8 :pid (-> (the-as process (-> v1-8 0)) pid))
            )
      )
    )
  0
  )

;; definition for method 11 of type external-art-control
(defmethod spool-push external-art-control ((obj external-art-control) (arg0 string) (arg1 int) (arg2 process) (arg3 float))
  (when (and (= arg3 -99.0) arg2)
    (let ((a0-2 (target-pos 0)))
      (set! arg3 (vector-vector-distance a0-2 (-> (the-as process-drawable arg2) root trans)))
      )
    )
  (cond
    ((and (= arg1 (-> obj rec 0 parts)) (name= arg0 (-> obj rec 0 name)))
     (if (>= arg3 (-> obj rec 0 priority))
         (return (the-as int #f))
         )
     (mem-copy! (&-> (-> obj rec) 0 type) (&-> (-> obj rec 1) type) 44)
     (mem-copy! (&-> (-> obj rec 1) type) (&-> (-> obj rec 2) type) 44)
     (set! (-> obj rec 2 name) #f)
     (set! (-> obj rec 2 owner) (the-as handle #f))
     )
    ((and (= arg1 (-> obj rec 1 parts)) (name= arg0 (-> obj rec 1 name)))
     (if (>= arg3 (-> obj rec 1 priority))
         (return (the-as int #f))
         )
     (mem-copy! (&-> (-> obj rec 1) type) (&-> (-> obj rec 2) type) 44)
     (set! (-> obj rec 2 name) #f)
     (set! (-> obj rec 2 owner) (the-as handle #f))
     )
    ((and (= arg1 (-> obj rec 2 parts)) (name= arg0 (-> obj rec 2 name)))
     (if (>= arg3 (-> obj rec 2 priority))
         (return (the-as int #f))
         )
     (set! (-> obj rec 2 name) #f)
     (set! (-> obj rec 2 owner) (the-as handle #f))
     )
    )
  (cond
    ((< arg3 (-> obj rec 0 priority))
     (mem-copy! (&-> (-> obj rec 2) type) (&-> (-> obj rec 1) type) 44)
     (mem-copy! (&-> (-> obj rec 1) type) (&-> (-> obj rec) 0 type) 44)
     (set! (-> obj rec 0 name) arg0)
     (set! (-> obj rec 0 parts) arg1)
     (set! (-> obj rec 0 priority) arg3)
     (let ((v1-34 (process->ppointer arg2)))
       (set! (-> obj rec 0 owner) (new 'static 'handle :process v1-34 :pid (-> (the-as process (-> v1-34 0)) pid)))
       )
     )
    ((< arg3 (-> obj rec 1 priority))
     (mem-copy! (&-> (-> obj rec 2) type) (&-> (-> obj rec 1) type) 44)
     (set! (-> obj rec 1 name) arg0)
     (set! (-> obj rec 1 parts) arg1)
     (set! (-> obj rec 1 priority) arg3)
     (let ((v1-40 (process->ppointer arg2)))
       (set! (-> obj rec 1 owner) (new 'static 'handle :process v1-40 :pid (-> (the-as process (-> v1-40 0)) pid)))
       )
     )
    ((< arg3 (-> obj rec 2 priority))
     (set! (-> obj rec 2 name) arg0)
     (set! (-> obj rec 2 parts) arg1)
     (set! (-> obj rec 2 priority) arg3)
     (let ((v1-44 (process->ppointer arg2)))
       (set! (-> obj rec 2 owner) (new 'static 'handle :process v1-44 :pid (-> (the-as process (-> v1-44 0)) pid)))
       )
     )
    )
  0
  )

;; definition for function ja-play-spooled-anim
;; WARN: Stack slot offset 24 signed mismatch
;; WARN: Stack slot offset 24 signed mismatch
;; WARN: Stack slot offset 24 signed mismatch
;; WARN: Stack slot offset 24 signed mismatch
;; WARN: Stack slot offset 24 signed mismatch
(defbehavior ja-play-spooled-anim process-drawable ((arg0 spool-anim) (arg1 art-joint-anim) (arg2 art-joint-anim) (arg3 (function process-drawable symbol)))
  (local-vars
    (v0-39 int)
    (spool-part int)
    (sv-24 float)
    (old-skel-status janim-status)
    (sv-32 int)
    (sv-40 int)
    (sv-48 int)
    (sv-56 int)
    (spool-sound sound-id)
    (sv-72 int)
    )
  (set! spool-part 0)
  (set! sv-24 -17.0)
  (set! old-skel-status (-> self skel status))
  (set! sv-32 -2)
  (set! sv-40 0)
  (set! sv-48 0)
  (set! sv-56 0)
  (set! spool-sound (new-sound-id))
  (backup-load-state-and-set-cmds *load-state* (-> arg0 command-list))
  (set-setting! *setting-control* self 'spooling (the-as symbol (process->ppointer self)) 0.0 0)
  (logior! (-> self skel status) (janim-status inited drawn done))
  (kill-current-level-hint '() '() 'die)
  (level-hint-surpress!)
  (copy-settings-from-target! *setting-control*)
  (when (or (handle->process (-> *art-control* spool-lock)) (!= *master-mode* 'game))
    (cond
      (arg1
        (when (!= (if (> (-> self skel active-channels) 0)
                      (-> self skel root-channel 0 frame-group)
                      )
                  arg1
                  )
          (ja-channel-push! 1 15)
          (let ((s2-0 (-> self skel root-channel 0)))
            (joint-control-channel-group-eval! s2-0 arg1 num-func-identity)
            (set! (-> s2-0 frame-num) 0.0)
            )
          )
        )
      (else
        (ja-channel-set! 0)
        )
      )
    (while (or (handle->process (-> *art-control* spool-lock)) (!= *master-mode* 'game))
      (format #t "WARNING: ---------------------> loader stall on lock~%")
      (if (arg3 self)
          (goto cfg-88)
          )
      (spool-push *art-control* (-> arg0 name) spool-part self -9.0)
      (suspend)
      (when arg1
        (let ((a0-17 (-> self skel root-channel 0)))
          (set! (-> a0-17 param 0) 1.0)
          (joint-control-channel-group-eval! a0-17 (the-as art-joint-anim #f) num-func-loop!)
          )
        )
      )
    )
  (let ((v1-46 (process->ppointer self)))
    (set! (-> *art-control* spool-lock)
          (new 'static 'handle :process v1-46 :pid (-> (the-as process (-> v1-46 0)) pid))
          )
    )
  (set! sv-48 (the-as int (-> *display* base-frame-counter)))
  (while (< spool-part (-> arg0 parts))
    (spool-push *art-control* (-> arg0 name) spool-part self -20.0)
    (update *art-control* #f)
    (spool-push *art-control* (-> arg0 name) spool-part self -20.0)
    (when (!= (file-status *art-control* (-> arg0 name) spool-part) 'active)
      (cond
        (arg1
          (when (!= (if (> (-> self skel active-channels) 0)
                        (-> self skel root-channel 0 frame-group)
                        )
                    arg1
                    )
            (ja-channel-set! 1)
            (let ((s2-2 (-> self skel root-channel 0)))
              (joint-control-channel-group-eval! s2-2 arg1 num-func-identity)
              (set! (-> s2-2 frame-num) 0.0)
              )
            )
          )
        (else
          (ja-channel-set! 0)
          )
        )
      (while (!= (file-status *art-control* (-> arg0 name) spool-part) 'active)
        (if (arg3 self)
            (goto cfg-88)
            )
        (spool-push *art-control* (-> arg0 name) spool-part self -20.0)
        (format #t "WARNING: ---------------------> loader stall on art ~S ~D~%" (-> arg0 name) spool-part)
        (suspend)
        (when arg1
          (let ((a0-37 (-> self skel root-channel 0)))
            (set! (-> a0-37 param 0) 1.0)
            (joint-control-channel-group-eval! a0-37 (the-as art-joint-anim #f) num-func-loop!)
            )
          )
        )
      )
    (spool-push *art-control* (-> arg0 name) spool-part self -20.0)
    (let ((s2-4 (the-as art-joint-anim (lookup-art (-> self draw art-group) (-> arg0 name) art-joint-anim))))
      (cond
        (s2-4
          (ja-channel-set! 1)
          (let ((a0-42 (-> self skel root-channel 0)))
            (set! (-> a0-42 frame-group) s2-4)
            (set! (-> a0-42 param 0) (the float (+ (-> s2-4 data 0 length) -1)))
            (set! (-> a0-42 param 1) 1.0)
            (set! (-> a0-42 frame-num) 0.0)
            (joint-control-channel-group! a0-42 s2-4 num-func-seek!)
            )
          (when (zero? spool-part)
            (str-play-async (-> arg0 name) spool-sound)
            (set! (-> *art-control* active-stream) (-> arg0 name))
            )
          (let* ((f30-0 (* 0.05859375 (-> s2-4 speed)))
                 (f28-0 (+ sv-24 (/ (the float (+ (-> s2-4 data 0 length) -1)) f30-0)))
                 )
            (set! sv-72 (current-str-pos spool-sound))
            (set! sv-40 (the-as int (-> *display* base-frame-counter)))
            (until (>= (the float v0-39) f28-0)
              (if (= (-> self skel root-channel 0) (-> self skel channel))
                  (logior! (-> self skel status) (janim-status spool))
                  )
              (if (or (arg3 self)
                      (and (<= sv-72 0) (>= (- (-> *display* base-frame-counter) sv-40) (seconds 4)))
                      (and (< 300 sv-56) (<= sv-72 0))
                      )
                  (goto cfg-88)
                  )
              (spool-push *art-control* (-> arg0 name) spool-part self -20.0)
              (if (< (+ spool-part 1) (-> arg0 parts))
                  (spool-push *art-control* (-> arg0 name) (+ spool-part 1) self -10.0)
                  (logclear! (-> self skel status) (janim-status done))
                  )
              (execute-commands-up-to *load-state* (ja-aframe-num 0))
              (cond
                ((and (< sv-32 sv-72) (= (current-str-id) spool-sound))
                 (set! sv-56 (+ sv-56 (- (-> *display* base-frame-counter) (-> *display* old-base-frame-counter))))
                 (set! sv-40 (the-as int (-> *display* base-frame-counter)))
                 )
                (else
                  0
                  )
                )
              (set! sv-32 sv-72)
              (set! sv-48 (the-as int (-> *display* base-frame-counter)))
              (suspend)
              (let ((f0-14 (* (- (the float (current-str-pos spool-sound)) sv-24) f30-0))
                    (a0-69 (-> self skel root-channel 0))
                    )
                (set! (-> a0-69 param 0) (the float (+ (-> a0-69 frame-group data 0 length) -1)))
                (set! (-> a0-69 param 1) 1.0)
                (set! (-> a0-69 frame-num) f0-14)
                (joint-control-channel-group! a0-69 (the-as art-joint-anim #f) num-func-seek!)
                )
              (set! v0-39 (current-str-pos spool-sound))
              (set! sv-72 v0-39)
              )
            (set! sv-24 f28-0)
            )
          (logclear! (-> self skel status) (janim-status spool))
          )
        (else
          (format 0 "ERROR: <asg> ~A in spool anim loop for ~A ~D, but not loaded.~" self (-> arg0 name) spool-part)
          (goto cfg-88)
          )
        )
      )
    (set! spool-part (+ spool-part 1))
    )
  (set! spool-part (+ spool-part -1))
  (label cfg-88)
  (ja-abort-spooled-anim arg0 arg2 spool-part)
  0
  )

;; definition for function ja-abort-spooled-anim
(defbehavior ja-abort-spooled-anim process-drawable ((arg0 spool-anim) (arg1 art-joint-anim) (arg2 int))
  (restore-load-state-and-cleanup *load-state*)
  (str-play-stop (-> arg0 name))
  (set! (-> *art-control* active-stream) #f)
  (logclear! (-> self skel status) (janim-status drawn done))
  (if (zero? (logand (-> self skel status) (janim-status inited)))
      (logclear! (-> self skel status) (janim-status inited))
      )
  (clear-pending-settings-from-process *setting-control* self 'spooling)
  (cond
    ((and arg1 (>= arg2 0))
     (ja-channel-push! 1 30)
     (set! (-> self skel root-channel 0 frame-group) arg1)
     (while (!= (-> self skel root-channel 0) (-> self skel channel))
       (spool-push *art-control* (-> arg0 name) arg2 self -20.0)
       (suspend)
       (let ((a0-12 (-> self skel root-channel 0)))
         (set! (-> a0-12 param 0) (the float (+ (-> a0-12 frame-group data 0 length) -1)))
         (set! (-> a0-12 param 1) 1.0)
         (joint-control-channel-group-eval! a0-12 (the-as art-joint-anim #f) num-func-seek!)
         )
       )
     )
    (else
      (ja-channel-set! 0)
      )
    )
  (set! (-> *art-control* spool-lock) (the-as handle #f))
  0
  )

;; failed to figure out what this is:
(if (zero? *art-control*)
    (set! *art-control* (new 'global 'external-art-control))
    )