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

;; definition for method 20 of type robotboss
(defmethod ease-loc-t robotboss ((obj robotboss))
  (parameter-ease-sin-clamp (-> obj loc-t))
  )

;; failed to figure out what this is:
(defskelgroup *robotboss-blueeco-sg* robotboss-blueeco
  0
  2
  ((1 (meters 999999)))
  :bounds (static-spherem 0 0 0 200)
  :longest-edge (meters 0)
  )

;; failed to figure out what this is:
(defskelgroup *robotboss-redeco-sg* robotboss-redeco
  0
  2
  ((1 (meters 999999)))
  :bounds (static-spherem 0 0 0 200)
  :longest-edge (meters 0)
  )

;; failed to figure out what this is:
(defskelgroup *robotboss-yelloweco-sg* robotboss-yelloweco
  0
  2
  ((1 (meters 999999)))
  :bounds (static-spherem 0 0 0 200)
  :longest-edge (meters 0)
  )

;; definition for function robotboss-cut-cam-exit
;; INFO: Return type mismatch symbol vs none.
(defbehavior robotboss-cut-cam-exit robotboss ()
  (set! (-> self valid-frames) 0)
  (if (and *target* (logtest? (-> *target* state-flags) 256))
      (process-release? *target*)
      )
  (logclear! (-> self skel status) (janim-status inited))
  (set! (-> self skip-cut) #f)
  (none)
  )

;; definition for function robotboss-cut-cam
;; Used lq/sq
(defbehavior robotboss-cut-cam robotboss ((arg0 float) (arg1 float) (arg2 int))
  (let ((f0-0 (ja-aframe-num 0)))
    (cond
      ((or (not (= (if (> (-> self skel active-channels) 0)
                       (-> self skel root-channel 0 frame-group)
                       )
                   arg2
                   )
                )
           (< f0-0 arg0)
           (< arg1 f0-0)
           )
       (robotboss-cut-cam-exit)
       )
      ((or (and (logtest? (-> *target* control unknown-surface00 flags) 2048)
                (zero? (logand (-> *target* control status) 1))
                )
           (-> self skip-cut)
           )
       (set! (-> self skip-cut) #t)
       )
      (else
        (logior! (-> self skel status) (janim-status inited))
        (process-grab? *target*)
        (set! (-> *camera-other-root* quad) (-> self root-override trans quad))
        (let ((s5-1 (-> self node-list data 88 bone transform))
              (gp-1 (-> self node-list data 88 bone scale))
              )
          (let ((s4-1 (new 'stack-no-clear 'vector)))
            (vector<-cspace! s4-1 (-> self node-list data 88))
            (set! (-> *camera-other-trans* quad) (-> s4-1 quad))
            )
          (vector-normalize-copy!
            (the-as vector (-> *camera-other-matrix* vector))
            (the-as vector (-> s5-1 vector))
            (the-as float -1.0)
            )
          (set! (-> *camera-other-matrix* vector 0 w) 0.0)
          (vector-normalize-copy! (-> *camera-other-matrix* vector 1) (-> s5-1 vector 1) (the-as float 1.0))
          (set! (-> *camera-other-matrix* vector 1 w) 0.0)
          (vector-normalize-copy! (-> *camera-other-matrix* vector 2) (-> s5-1 vector 2) (the-as float -1.0))
          (set! (-> *camera-other-matrix* vector 2 w) 0.0)
          (vector-reset! (-> *camera-other-matrix* vector 3))
          (othercam-calc (-> gp-1 x))
          )
        (hide-hud-quick)
        (set! *camera-look-through-other* 2)
        (when (< (-> self valid-frames) 2)
          (set-blackout-frames (seconds 0.033333335))
          (+! (-> self valid-frames) 1)
          )
        )
      )
    )
  (none)
  )

;; definition for function robotboss-always-trans
;; INFO: Return type mismatch object vs none.
(defbehavior robotboss-always-trans robotboss ((arg0 (state robotboss)))
  (when (-> self blue-smoke)
    (let ((s5-0 (new 'stack-no-clear 'vector)))
      (vector<-cspace! s5-0 (-> self node-list data 7))
      (spawn (-> self particle 2) s5-0)
      )
    )
  (when (-> self red-smoke)
    (let ((s5-1 (new 'stack-no-clear 'vector)))
      (vector<-cspace! s5-1 (-> self node-list data 47))
      (spawn (-> self particle 3) s5-1)
      (vector<-cspace! s5-1 (-> self node-list data 51))
      (spawn (-> self particle 3) s5-1)
      )
    )
  (when (-> self yellow-smoke)
    (let ((s5-2 (new 'stack-no-clear 'vector)))
      (vector<-cspace! s5-2 (-> self node-list data 27))
      (spawn (-> self particle 4) s5-2)
      )
    )
  (let* ((f0-1 (- 0.0 (-> self palette-val)))
         (f0-2 (if (< 0.0 f0-1)
                   (fmin 0.1 f0-1)
                   (fmax -0.1 f0-1)
                   )
               )
         )
    (+! (-> self palette-val) f0-2)
    )
  (set! (-> *palette-fade-controls* control 2 fade) (-> self palette-val))
  (b! (not (-> self ignore-camera)) cfg-11 :delay (empty-form))
  (b! #t cfg-66 :delay (nop!))
  (label cfg-11)
  (b! *target* cfg-13 :delay (empty-form))
  (b! #t cfg-66 :delay (nop!))
  (label cfg-13)
  (let ((a1-8 (new 'stack-no-clear 'event-message-block)))
    (set! (-> a1-8 from) self)
    (set! (-> a1-8 num-params) 1)
    (set! (-> a1-8 message) 'query-state)
    (set! (-> a1-8 param 0) (the-as uint cam-eye))
    (b! (not (send-event-function *camera* a1-8)) cfg-15 :delay (empty-form))
    )
  (b! #t cfg-66 :delay (nop!))
  (label cfg-15)
  (let ((a1-9 (new 'stack-no-clear 'event-message-block)))
    (set! (-> a1-9 from) self)
    (set! (-> a1-9 num-params) 1)
    (set! (-> a1-9 message) 'query-state)
    (set! (-> a1-9 param 0) (the-as uint cam-launcher-longfall))
    (b! (not (send-event-function *camera* a1-9)) cfg-19 :delay (empty-form))
    )
  (when (-> *camera* cam-entity)
    (let ((s5-4 *camera-base-mode*))
      (set! *camera-base-mode* cam-launcher-longfall)
      (send-event *camera* 'clear-entity)
      (set! *camera-base-mode* s5-4)
      )
    )
  (b! #t cfg-66 :delay (nop!))
  (label cfg-19)
  (b!
    (not
      (and (-> self des-cam-entity)
           (or (< (vector-vector-xz-distance (-> self entity extra trans) (target-pos 0)) 188416.0)
               (and *target*
                    (>= 290816.0 (vector-vector-xz-distance (-> self root-override trans) (-> *target* control trans)))
                    )
               )
           )
      )
    cfg-37
    :delay
    (empty-form)
    )
  (if (or (not (-> *camera* cam-entity))
          (not (string=
                 (-> self des-cam-entity)
                 (res-lump-struct (-> *camera* cam-entity) 'name string :time (the-as float -1000000000.0))
                 )
               )
          )
      (send-event *camera* 'change-to-entity-by-name (-> self des-cam-entity))
      )
  (b! #t cfg-66 :delay (nop!))
  (label cfg-37)
  (b!
    (not
      (or (< (vector-vector-xz-distance (-> self entity extra trans) (target-pos 0)) 73728.0)
          (and *target*
               (>= 290816.0 (vector-vector-xz-distance (-> self root-override trans) (-> *target* control trans)))
               )
          )
      )
    cfg-49
    :delay
    (empty-form)
    )
  (let ((a1-18 (new 'stack-no-clear 'event-message-block)))
    (set! (-> a1-18 from) self)
    (set! (-> a1-18 num-params) 1)
    (set! (-> a1-18 message) 'query-state)
    (set! (-> a1-18 param 0) (the-as uint cam-robotboss))
    (when (not (send-event-function *camera* a1-18))
      (send-event *camera* 'change-state cam-robotboss 300)
      (send-event *camera* 'clear-entity)
      )
    )
  (b! #t cfg-66 :delay (nop!))
  (label cfg-49)
  (when (and (< 196608.0 (vector-vector-xz-distance (-> self entity extra trans) (target-pos 0)))
             (< (vector-vector-xz-distance (-> self entity extra trans) (target-pos 0)) 614400.0)
             (not (and *target*
                       (>= 299008.0 (vector-vector-xz-distance (-> self root-override trans) (-> *target* control trans)))
                       )
                  )
             )
    (let ((a1-24 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-24 from) self)
      (set! (-> a1-24 num-params) 1)
      (set! (-> a1-24 message) 'query-state)
      (set! (-> a1-24 param 0) (the-as uint cam-string))
      (when (not (send-event-function *camera* a1-24))
        (send-event *camera* 'point-of-interest #f)
        (send-event *camera* 'force-blend 300)
        (send-event *camera* 'clear-entity)
        (send-event *camera* 'change-state cam-string 300)
        )
      )
    )
  (label cfg-66)
  (let ((a1-29 (new 'stack-no-clear 'event-message-block)))
    (set! (-> a1-29 from) self)
    (set! (-> a1-29 num-params) 1)
    (set! (-> a1-29 message) 'query-state)
    (set! (-> a1-29 param 0) (the-as uint cam-string))
    (cond
      ((send-event-function *camera* a1-29)
       )
      ((-> self use-interesting)
       (let ((s5-10 (new 'stack-no-clear 'vector)))
         (vector<-cspace! s5-10 (-> self node-list data 87))
         (send-event *camera* 'point-of-interest s5-10)
         )
       )
      )
    )
  (when (and arg0 *debug-segment* (cpad-pressed? 1 x))
    (logclear! (-> *cpad-list* cpads 1 button0-abs 0) (pad-buttons x))
    (logclear! (-> *cpad-list* cpads 1 button0-rel 0) (pad-buttons x))
    (go arg0)
    )
  (none)
  )

;; definition for function robotboss-shooting-trans
;; INFO: Return type mismatch object vs none.
(defbehavior robotboss-shooting-trans robotboss ((arg0 int))
  (let ((gp-0 (new 'stack-no-clear 'vector)))
    (vector<-cspace! gp-0 (-> self node-list data arg0))
    (send-event (handle->process (-> self shot-attractor)) 'trans gp-0)
    )
  (none)
  )

;; definition for function robotboss-setup-for-hits
(defbehavior robotboss-setup-for-hits robotboss ((arg0 int) (arg1 int))
  (set! (-> self took-hit) #f)
  (set! (-> self hits-to-go) arg1)
  (set! (-> self vulnerable) arg0)
  (let ((gp-0 (new 'stack 'sphere)))
    (set! (-> gp-0 w) 4096.0)
    (let ((s5-0 (get-process *default-dead-pool* manipy #x4000)))
      (set! (-> self shot-attractor)
            (ppointer->handle
              (when s5-0
                (let ((t9-2 (method-of-type manipy activate)))
                  (t9-2 (the-as manipy s5-0) self 'manipy (the-as pointer #x70004000))
                  )
                (run-now-in-process s5-0 manipy-init (-> self root-override trans) (-> self entity) *redring-sg* gp-0)
                (-> s5-0 ppointer)
                )
              )
            )
      )
    )
  (send-event (handle->process (-> self shot-attractor)) 'attackable #t)
  (send-event (handle->process (-> self shot-attractor)) 'draw #f)
  )

;; definition for function robotboss-yellow-eco-off
(defbehavior robotboss-yellow-eco-off robotboss ()
  (logior! (-> self alts 7 extra perm status) (entity-perm-status bit-9))
  (logior! (-> self alts 8 extra perm status) (entity-perm-status bit-9))
  (logior! (-> self alts 9 extra perm status) (entity-perm-status bit-9))
  (let ((v0-0 (logior (-> self alts 10 extra perm status) (entity-perm-status bit-9))))
    (set! (-> self alts 10 extra perm status) v0-0)
    v0-0
    )
  )

;; definition for function robotboss-yellow-eco-on
(defbehavior robotboss-yellow-eco-on robotboss ()
  (logclear! (-> self alts 7 extra perm status) (entity-perm-status bit-9))
  (logclear! (-> self alts 8 extra perm status) (entity-perm-status bit-9))
  (logclear! (-> self alts 9 extra perm status) (entity-perm-status bit-9))
  (let ((v0-0 (logclear (-> self alts 10 extra perm status) (entity-perm-status bit-9))))
    (set! (-> self alts 10 extra perm status) v0-0)
    v0-0
    )
  )

;; definition for function robotboss-anim-blend-loop
(defbehavior robotboss-anim-blend-loop robotboss ((arg0 art-joint-anim))
  (let ((s5-0 (if (> (-> self skel active-channels) 0)
                  (-> self skel root-channel 0 frame-group)
                  )
              )
        )
    (ja-channel-push! 2 0)
    (let ((s4-0 (-> self skel root-channel 0)))
      (joint-control-channel-group-eval! s4-0 arg0 num-func-identity)
      (set! (-> s4-0 frame-num) 0.0)
      )
    (let ((gp-1 (-> self skel root-channel 1)))
      (joint-control-channel-group-eval! gp-1 s5-0 num-func-identity)
      (set! (-> gp-1 frame-num) 0.0)
      )
    )
  (while #t
    (let ((a0-4 (-> self skel root-channel 0)))
      (set! (-> a0-4 param 0) 1.0)
      (joint-control-channel-group-eval! a0-4 (the-as art-joint-anim #f) num-func-loop!)
      )
    (let ((gp-2 (-> self skel root-channel 1)))
      (set! (-> gp-2 frame-interp) (- 1.0 (ease-loc-t self)))
      (set! (-> gp-2 param 0) 0.0)
      (joint-control-channel-group-eval! gp-2 (the-as art-joint-anim #f) num-func-chan)
      )
    (suspend)
    )
  (none)
  )

;; definition for function robotboss-position
;; Used lq/sq
(defbehavior robotboss-position robotboss ()
  (let ((s5-0 (-> self entity extra trans))
        (gp-0 (new 'stack-no-clear 'vector))
        )
    (let ((s4-0 (new 'stack-no-clear 'matrix)))
      (set! (-> self loc-t) (/ (the float (- (-> *display* game-frame-counter) (-> self loc-t-start)))
                               (the float (-> self loc-t-duration))
                               )
            )
      (set! (-> self loc-t) (fmin 1.0 (-> self loc-t)))
      (vector-lerp! gp-0 (-> self old-loc) (-> self desired-loc) (ease-loc-t self))
      (matrix-rotate-y! s4-0 (-> gp-0 x))
      (set! (-> gp-0 x) 0.0)
      (vector-matrix*! gp-0 gp-0 s4-0)
      (vector+! (-> self root-override trans) gp-0 (-> self entity extra trans))
      (vector-negate! (the-as vector (-> s4-0 vector)) (the-as vector (-> s4-0 vector)))
      (vector-negate! (-> s4-0 vector 2) (-> s4-0 vector 2))
      (matrix->quaternion (-> self root-override quat) s4-0)
      )
    (vector-! gp-0 s5-0 (-> self root-override trans))
    (set! (-> gp-0 y) 0.0)
    (vector-normalize! gp-0 (the-as float 204800.0))
    (set! (-> gp-0 y) 32768.0)
    (vector+! gp-0 gp-0 s5-0)
    (send-event *camera* 'set-pivot gp-0)
    )
  (when (-> self alts 6)
    (let ((a0-16 (-> self alts 6 extra process))
          (f0-10 (+ (-> self entity extra trans y) (-> self desired-pool-y)))
          )
      (when a0-16
        (let ((v1-23 (new 'stack-no-clear 'vector)))
          (set! (-> v1-23 quad) (-> (the-as process-drawable a0-16) root trans quad))
          (cond
            ((< (-> v1-23 y) (+ -204.8 f0-10))
             (set! (-> v1-23 y) (+ 20.48 (-> v1-23 y)))
             )
            ((< (+ 204.8 f0-10) (-> v1-23 y))
             (set! (-> v1-23 y) (+ -20.48 (-> v1-23 y)))
             )
            )
          (send-event a0-16 'move-to v1-23)
          )
        )
      )
    )
  )

;; definition for function robotboss-darkecobomb
;; Used lq/sq
(defbehavior robotboss-darkecobomb robotboss ((arg0 vector) (arg1 float))
  (+! (-> self children-spawned) 1)
  (let ((gp-0 (new 'stack-no-clear 'vector)))
    (let ((s4-0 (new 'stack-no-clear 'vector)))
      (vector<-cspace! gp-0 (-> self node-list data 60))
      (set! (-> s4-0 quad) (-> self entity extra trans quad))
      (vector+! s4-0 s4-0 arg0)
      (let ((s3-1 (get-process *default-dead-pool* darkecobomb #x4000)))
        (when s3-1
          (let ((t9-2 (method-of-type darkecobomb activate)))
            (t9-2 (the-as darkecobomb s3-1) self 'darkecobomb (the-as pointer #x70004000))
            )
          (run-now-in-process s3-1 darkecobomb-init-by-other gp-0 s4-0 61440.0 300 arg1)
          (-> s3-1 ppointer)
          )
        )
      )
    (let ((s5-1 (get-process *default-dead-pool* part-tracker #x4000)))
      (when s5-1
        (let ((t9-5 (method-of-type part-tracker activate)))
          (t9-5 (the-as part-tracker s5-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
          )
        (run-now-in-process s5-1 part-tracker-init (-> *part-group-id-table* 638) 300 #f #f #f gp-0)
        (-> s5-1 ppointer)
        )
      )
    )
  )

;; definition for function robotboss-bomb-handler
(defbehavior robotboss-bomb-handler robotboss ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
  (local-vars (v0-0 object))
  (case arg2
    (('flash)
     (let ((f0-1 (* 0.0078125 (the-as float (-> arg3 param 0)))))
       (set! (-> self palette-val) f0-1)
       f0-1
       )
     )
    (('bomb-done)
     (set! (-> self des-cam-entity) #f)
     (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
       (set! (-> a1-1 from) self)
       (set! (-> a1-1 num-params) 0)
       (set! (-> a1-1 message) 'hide)
       (let ((t9-0 send-event-function)
             (v1-4 (-> self alts 11))
             )
         (t9-0
           (if v1-4
               (-> v1-4 extra process)
               )
           a1-1
           )
         )
       )
     (set! v0-0 (+ (-> self children-spawned) -2))
     (set! (-> self children-spawned) (the-as int v0-0))
     v0-0
     )
    (('bomb-going)
     (set! (-> self des-cam-entity) #f)
     (set! v0-0 #t)
     (set! (-> self ignore-camera) (the-as symbol v0-0))
     v0-0
     )
    )
  )

;; definition for function robotboss-handler
;; INFO: Return type mismatch number vs object.
(defbehavior robotboss-handler robotboss ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
  (let ((v1-0 arg2))
    (the-as object (cond
                     ((= v1-0 'flash)
                      (let ((f0-1 (* 0.0078125 (the-as float (-> arg3 param 0)))))
                        (set! (-> self palette-val) f0-1)
                        f0-1
                        )
                      )
                     ((= v1-0 'attack)
                      (when (>= arg1 2)
                        (case (-> arg3 param 1)
                          (('eco-yellow)
                           (let ((a0-5 (-> arg3 param 0)))
                             (when (and a0-5 ((method-of-type touching-shapes-entry prims-touching?)
                                              (the-as touching-shapes-entry a0-5)
                                              (-> self root-override)
                                              (the-as uint (-> self vulnerable))
                                              )
                                        )
                               (when (> (-> self hits-to-go) 0)
                                 (set! (-> self took-hit) #t)
                                 (let ((v0-0 (the-as number (+ (-> self hits-to-go) -1))))
                                   (set! (-> self hits-to-go) (the-as int v0-0))
                                   v0-0
                                   )
                                 )
                               )
                             )
                           )
                          )
                        )
                      )
                     )
            )
    )
  )

;; failed to figure out what this is:
(defstate robotboss-yellow-dark-bomb-wait (robotboss)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (let ((v1-0 arg2))
      (the-as object (cond
                       ((= v1-0 'white-eco-picked-up)
                        (close-specific-task! (game-task finalboss-movies) (task-status unknown))
                        (entity-birth-no-kill (-> self alts 5))
                        (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
                          (set! (-> a1-2 from) self)
                          (set! (-> a1-2 num-params) 0)
                          (set! (-> a1-2 message) 'play-anim)
                          (let ((t9-2 send-event-function)
                                (v1-2 (-> self alts 5))
                                )
                            (t9-2
                              (if v1-2
                                  (-> v1-2 extra process)
                                  )
                              a1-2
                              )
                            )
                          )
                        (cleanup-for-death self)
                        (deactivate self)
                        )
                       (else
                         (robotboss-bomb-handler arg0 arg1 arg2 arg3)
                         )
                       )
              )
      )
    )
  :enter
  (behavior ()
    (set! (-> self state-time) (-> *display* game-frame-counter))
    (set! (-> self children-spawned) 0)
    0
    (none)
    )
  :exit
  (behavior ()
    (set! (-> self des-cam-entity) #f)
    (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-0 from) self)
      (set! (-> a1-0 num-params) 0)
      (set! (-> a1-0 message) 'beam-off)
      (let ((t9-0 send-event-function)
            (v1-1 (-> self alts 3))
            )
        (t9-0
          (if v1-1
              (-> v1-1 extra process)
              )
          a1-0
          )
        )
      )
    (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-1 from) self)
      (set! (-> a1-1 num-params) 0)
      (set! (-> a1-1 message) 'beam-off)
      (let ((t9-1 send-event-function)
            (v1-5 (-> self alts 2))
            )
        (t9-1
          (if v1-5
              (-> v1-5 extra process)
              )
          a1-1
          )
        )
      )
    (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-2 from) self)
      (set! (-> a1-2 num-params) 0)
      (set! (-> a1-2 message) 'beam-off)
      (let ((t9-2 send-event-function)
            (v1-9 (-> self alts 1))
            )
        (t9-2
          (if v1-9
              (-> v1-9 extra process)
              )
          a1-2
          )
        )
      )
    (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-3 from) self)
      (set! (-> a1-3 num-params) 0)
      (set! (-> a1-3 message) 'beam-off)
      (let ((t9-3 send-event-function)
            (v1-13 (-> self alts 4))
            )
        (t9-3
          (if v1-13
              (-> v1-13 extra process)
              )
          a1-3
          )
        )
      )
    (send-event (handle->process (-> self white-eco)) 'beam-off)
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans (the-as (state robotboss) #f))
    (spool-push *art-control* "green-sagecage-outro-beat-boss-a" 0 self (the-as float -1.0))
    (robotboss-position)
    (none)
    )
  :code
  (behavior ()
    (let ((a0-0 (-> self skel root-channel 0)))
      (set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
      (set! (-> a0-0 param 1) 1.0)
      (joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (ja-channel-push! 1 30)
    (let ((v1-11 (-> self skel root-channel 0)))
      (set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 32)))
      )
    (let ((a0-6 (-> self skel root-channel 0)))
      (set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-6 param 1) 1.0)
      (set! (-> a0-6 frame-num) 0.0)
      (joint-control-channel-group!
        a0-6
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (when (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 1))
        (robotboss-darkecobomb (new 'static 'vector :y 40960.0 :z 81920.0) (-> self dda yellow-bomb-time))
        (play-ambient (-> self ambient) "GOL-AM20" #t (the-as vector #f))
        )
      (suspend)
      (let ((a0-10 (-> self skel root-channel 0)))
        (set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
        (set! (-> a0-10 param 1) 1.0)
        (joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (ja-channel-push! 1 30)
    (let ((v1-52 (-> self skel root-channel 0)))
      (set! (-> v1-52 frame-group) (the-as art-joint-anim (-> self draw art-group data 32)))
      )
    (let ((a0-16 (-> self skel root-channel 0)))
      (set! (-> a0-16 frame-group) (if (> (-> self skel active-channels) 0)
                                       (-> self skel root-channel 0 frame-group)
                                       )
            )
      (set! (-> a0-16 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                     (-> self skel root-channel 0 frame-group)
                                                     )
                                                 data
                                                 0
                                                 length
                                                 )
                                             -1
                                             )
                                    )
            )
      (set! (-> a0-16 param 1) 1.0)
      (set! (-> a0-16 frame-num) 0.0)
      (joint-control-channel-group!
        a0-16
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (if (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 2))
          (robotboss-darkecobomb (new 'static 'vector :y 40960.0 :z -81920.0) (+ -150.0 (-> self dda yellow-bomb-time)))
          )
      (suspend)
      (let ((a0-19 (-> self skel root-channel 0)))
        (set! (-> a0-19 param 0) (the float (+ (-> a0-19 frame-group data 0 length) -1)))
        (set! (-> a0-19 param 1) 1.0)
        (joint-control-channel-group-eval! a0-19 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (ja-channel-push! 1 30)
    (let ((v1-93 (-> self skel root-channel 0)))
      (set! (-> v1-93 frame-group) (the-as art-joint-anim (-> self draw art-group data 32)))
      )
    (let ((a0-25 (-> self skel root-channel 0)))
      (set! (-> a0-25 frame-group) (if (> (-> self skel active-channels) 0)
                                       (-> self skel root-channel 0 frame-group)
                                       )
            )
      (set! (-> a0-25 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                     (-> self skel root-channel 0 frame-group)
                                                     )
                                                 data
                                                 0
                                                 length
                                                 )
                                             -1
                                             )
                                    )
            )
      (set! (-> a0-25 param 1) 1.0)
      (set! (-> a0-25 frame-num) 0.0)
      (joint-control-channel-group!
        a0-25
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (if (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 3))
          (robotboss-darkecobomb (new 'static 'vector :x 81920.0 :y 40960.0) (+ -300.0 (-> self dda yellow-bomb-time)))
          )
      (suspend)
      (let ((a0-28 (-> self skel root-channel 0)))
        (set! (-> a0-28 param 0) (the float (+ (-> a0-28 frame-group data 0 length) -1)))
        (set! (-> a0-28 param 1) 1.0)
        (joint-control-channel-group-eval! a0-28 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (ja-channel-push! 1 30)
    (let ((v1-134 (-> self skel root-channel 0)))
      (set! (-> v1-134 frame-group) (the-as art-joint-anim (-> self draw art-group data 32)))
      )
    (let ((a0-34 (-> self skel root-channel 0)))
      (set! (-> a0-34 frame-group) (if (> (-> self skel active-channels) 0)
                                       (-> self skel root-channel 0 frame-group)
                                       )
            )
      (set! (-> a0-34 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                     (-> self skel root-channel 0 frame-group)
                                                     )
                                                 data
                                                 0
                                                 length
                                                 )
                                             -1
                                             )
                                    )
            )
      (set! (-> a0-34 param 1) 1.0)
      (set! (-> a0-34 frame-num) 0.0)
      (joint-control-channel-group!
        a0-34
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (when (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 4))
        (robotboss-darkecobomb (new 'static 'vector :x -81920.0 :y 40960.0) (+ -450.0 (-> self dda yellow-bomb-time)))
        (play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
        (set! (-> self des-cam-entity) "camera-365")
        )
      (suspend)
      (let ((a0-38 (-> self skel root-channel 0)))
        (set! (-> a0-38 param 0) (the float (+ (-> a0-38 frame-group data 0 length) -1)))
        (set! (-> a0-38 param 1) 1.0)
        (joint-control-channel-group-eval! a0-38 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (while #t
      (when (not (= (if (> (-> self skel active-channels) 0)
                        (-> self skel root-channel 0 frame-group)
                        )
                    (-> self draw art-group data 30)
                    )
                 )
        (ja-channel-push! 1 60)
        (let ((v1-183 (-> self skel root-channel 0)))
          (set! (-> v1-183 frame-group) (the-as art-joint-anim (-> self draw art-group data 30)))
          )
        )
      (let ((a0-48 (-> self skel root-channel 0)))
        (set! (-> a0-48 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-48 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-48 param 1) 1.0)
        (set! (-> a0-48 frame-num) 0.0)
        (joint-control-channel-group!
          a0-48
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-49 (-> self skel root-channel 0)))
          (set! (-> a0-49 param 0) (the float (+ (-> a0-49 frame-group data 0 length) -1)))
          (set! (-> a0-49 param 1) 1.0)
          (joint-control-channel-group-eval! a0-49 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; failed to figure out what this is:
(defstate robotboss-daxter-sacrifice-movie (robotboss)
  :code
  (behavior ()
    (set-blackout-frames (seconds 100))
    (entity-birth-no-kill (-> self alts 5))
    (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-0 from) self)
      (set! (-> a1-0 num-params) 0)
      (set! (-> a1-0 message) 'play-anim)
      (let ((t9-2 send-event-function)
            (v1-1 (-> self alts 5))
            )
        (t9-2
          (if v1-1
              (-> v1-1 extra process)
              )
          a1-0
          )
        )
      )
    (suspend)
    (while (movie?)
      (suspend)
      )
    (set-blackout-frames 0)
    (go robotboss-yellow-dark-bomb-wait)
    (none)
    )
  )

;; failed to figure out what this is:
(defstate robotboss-white-eco-movie (robotboss)
  :enter
  (behavior ()
    (logior! (-> self draw status) (draw-status hidden))
    (set! (-> self children-spawned) 0)
    (set! (-> self state-time) (-> *display* base-frame-counter))
    (ja-post)
    (none)
    )
  :exit
  (behavior ()
    (logclear! (-> self draw status) (draw-status hidden))
    (none)
    )
  :trans
  (behavior ()
    (spool-push *art-control* "green-sagecage-daxter-sacrifice" 0 self (the-as float -1.0))
    (when (and (< (-> self children-spawned) 1)
               (>= (- (-> *display* base-frame-counter) (-> self state-time)) (seconds 0.95))
               )
      (+! (-> self children-spawned) 1)
      (let ((gp-0 (new 'stack-no-clear 'vector)))
        (set! (-> gp-0 quad) (-> self entity extra trans quad))
        (set! (-> gp-0 y) (+ 81920.0 (-> gp-0 y)))
        (let ((s5-0 (get-process *default-dead-pool* light-eco-mother #x4000)))
          (set! (-> self white-eco)
                (ppointer->handle
                  (when s5-0
                    (let ((t9-2 (method-of-type light-eco-mother activate)))
                      (t9-2 (the-as light-eco-mother s5-0) self 'light-eco-mother (the-as pointer #x70004000))
                      )
                    (run-now-in-process s5-0 light-eco-mother-init-by-other (-> self entity) gp-0)
                    (-> s5-0 ppointer)
                    )
                  )
                )
          )
        )
      )
    (none)
    )
  :code
  (behavior ()
    (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-0 from) self)
      (set! (-> a1-0 num-params) 1)
      (set! (-> a1-0 message) 'open)
      (set! (-> a1-0 param 0) (the-as uint (-> *part-group-id-table* 674)))
      (let ((t9-0 send-event-function)
            (v1-4 (-> self alts 3))
            )
        (t9-0
          (if v1-4
              (-> v1-4 extra process)
              )
          a1-0
          )
        )
      )
    (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-1 from) self)
      (set! (-> a1-1 num-params) 1)
      (set! (-> a1-1 message) 'open)
      (set! (-> a1-1 param 0) (the-as uint (-> *part-group-id-table* 675)))
      (let ((t9-1 send-event-function)
            (v1-11 (-> self alts 2))
            )
        (t9-1
          (if v1-11
              (-> v1-11 extra process)
              )
          a1-1
          )
        )
      )
    (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-2 from) self)
      (set! (-> a1-2 num-params) 1)
      (set! (-> a1-2 message) 'open)
      (set! (-> a1-2 param 0) (the-as uint (-> *part-group-id-table* 676)))
      (let ((t9-2 send-event-function)
            (v1-18 (-> self alts 1))
            )
        (t9-2
          (if v1-18
              (-> v1-18 extra process)
              )
          a1-2
          )
        )
      )
    (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-3 from) self)
      (set! (-> a1-3 num-params) 1)
      (set! (-> a1-3 message) 'open)
      (set! (-> a1-3 param 0) (the-as uint (-> *part-group-id-table* 677)))
      (let ((t9-3 send-event-function)
            (v1-25 (-> self alts 4))
            )
        (t9-3
          (if v1-25
              (-> v1-25 extra process)
              )
          a1-3
          )
        )
      )
    (let ((a1-4 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-4 from) self)
      (set! (-> a1-4 num-params) 3)
      (set! (-> a1-4 message) 'beam-on)
      (set! (-> a1-4 param 0) (the-as uint (-> *part-group-id-table* 666)))
      (set! (-> a1-4 param 1) (the-as uint (-> *part-group-id-table* 666)))
      (set! (-> a1-4 param 2) (the-as uint (-> self entity extra trans)))
      (let ((t9-4 send-event-function)
            (v1-37 (-> self alts 3))
            )
        (t9-4
          (if v1-37
              (-> v1-37 extra process)
              )
          a1-4
          )
        )
      )
    (let ((a1-5 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-5 from) self)
      (set! (-> a1-5 num-params) 3)
      (set! (-> a1-5 message) 'beam-on)
      (set! (-> a1-5 param 0) (the-as uint (-> *part-group-id-table* 672)))
      (set! (-> a1-5 param 1) (the-as uint (-> *part-group-id-table* 672)))
      (set! (-> a1-5 param 2) (the-as uint (-> self entity extra trans)))
      (let ((t9-5 send-event-function)
            (v1-49 (-> self alts 2))
            )
        (t9-5
          (if v1-49
              (-> v1-49 extra process)
              )
          a1-5
          )
        )
      )
    (let ((a1-6 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-6 from) self)
      (set! (-> a1-6 num-params) 3)
      (set! (-> a1-6 message) 'beam-on)
      (set! (-> a1-6 param 0) (the-as uint (-> *part-group-id-table* 668)))
      (set! (-> a1-6 param 1) (the-as uint (-> *part-group-id-table* 668)))
      (set! (-> a1-6 param 2) (the-as uint (-> self entity extra trans)))
      (let ((t9-6 send-event-function)
            (v1-61 (-> self alts 1))
            )
        (t9-6
          (if v1-61
              (-> v1-61 extra process)
              )
          a1-6
          )
        )
      )
    (let ((a1-7 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-7 from) self)
      (set! (-> a1-7 num-params) 3)
      (set! (-> a1-7 message) 'beam-on)
      (set! (-> a1-7 param 0) (the-as uint (-> *part-group-id-table* 670)))
      (set! (-> a1-7 param 1) (the-as uint (-> *part-group-id-table* 670)))
      (set! (-> a1-7 param 2) (the-as uint (-> self entity extra trans)))
      (let ((t9-7 send-event-function)
            (v1-73 (-> self alts 4))
            )
        (t9-7
          (if v1-73
              (-> v1-73 extra process)
              )
          a1-7
          )
        )
      )
    (let* ((gp-0 (get-process *default-dead-pool* finalbosscam #x4000))
           (gp-1 (ppointer->handle (when gp-0
                                     (let ((t9-9 (method-of-type finalbosscam activate)))
                                       (t9-9 (the-as finalbosscam gp-0) self 'finalbosscam (the-as pointer #x70004000))
                                       )
                                     (run-now-in-process gp-0 finalbosscam-init-by-other (-> self entity))
                                     (-> gp-0 ppointer)
                                     )
                                   )
                 )
           )
      (send-event (handle->process gp-1) 'play-anim)
      (suspend)
      (while (movie?)
        (suspend)
        )
      (let ((a0-18 (handle->process gp-1)))
        (if a0-18
            (deactivate a0-18)
            )
        )
      )
    (case (get-task-status (game-task finalboss-movies))
      (((task-status unknown))
       (go robotboss-daxter-sacrifice-movie)
       )
      (else
        (go robotboss-yellow-dark-bomb-wait)
        )
      )
    (none)
    )
  )

;; failed to figure out what this is:
(defstate robotboss-yellow-dark-bomb (robotboss)
  :enter
  (behavior ()
    (set! (-> self old-loc quad) (-> self desired-loc quad))
    (set-vector! (-> self desired-loc) 16384.0 -81920.0 716800.0 1.0)
    (set! (-> self loc-t) 0.0)
    (set! (-> self loc-t-start) (-> *display* game-frame-counter))
    (set! (-> self loc-t-duration) (seconds 4))
    (set! (-> self desired-pool-y) -16384.0)
    (play-ambient (-> self ambient) "GOL-AM01" #t (the-as vector #f))
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans (the-as (state robotboss) #f))
    (spool-push *art-control* "finalbosscam-white-eco" 0 self (the-as float -1.0))
    (if (>= (-> self loc-t) 1.0)
        (go robotboss-white-eco-movie)
        )
    (robotboss-position)
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 60)
    (let ((v1-2 (-> self skel root-channel 0)))
      (set! (-> v1-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 31)))
      )
    (let ((a0-4 (-> self skel root-channel 0)))
      (set! (-> a0-4 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-4 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-4 param 1) 1.0)
      (set! (-> a0-4 frame-num) 0.0)
      (joint-control-channel-group!
        a0-4
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (suspend)
      (let ((a0-5 (-> self skel root-channel 0)))
        (set! (-> a0-5 param 0) (the float (+ (-> a0-5 frame-group data 0 length) -1)))
        (set! (-> a0-5 param 1) 1.0)
        (joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (when (not (= (if (> (-> self skel active-channels) 0)
                      (-> self skel root-channel 0 frame-group)
                      )
                  (-> self draw art-group data 30)
                  )
               )
      (ja-channel-push! 1 60)
      (let ((v1-41 (-> self skel root-channel 0)))
        (set! (-> v1-41 frame-group) (the-as art-joint-anim (-> self draw art-group data 30)))
        )
      )
    (while #t
      (let ((a0-15 (-> self skel root-channel 0)))
        (set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-15 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-15 param 1) 1.0)
        (set! (-> a0-15 frame-num) 0.0)
        (joint-control-channel-group!
          a0-15
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-16 (-> self skel root-channel 0)))
          (set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
          (set! (-> a0-16 param 1) 1.0)
          (joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; definition for function robotboss-yellowshot
;; INFO: Return type mismatch sound-id vs none.
;; Used lq/sq
(defbehavior robotboss-yellowshot robotboss ()
  (+! (-> self children-spawned) 1)
  (let ((gp-0 (new 'stack-no-clear 'vector)))
    (let ((s5-0 (new 'stack-no-clear 'vector)))
      (vector<-cspace! gp-0 (-> self node-list data 21))
      (set! (-> gp-0 y) 1972633.6)
      (if *target*
          (set! (-> s5-0 quad) (-> (target-pos 0) quad))
          (set! (-> s5-0 quad) (-> self entity extra trans quad))
          )
      (set! (-> s5-0 y) (+ 8192.0 (-> self entity extra trans y)))
      (vector-! s5-0 s5-0 gp-0)
      (vector-normalize! s5-0 (the-as float 819200.0))
      (vector+! s5-0 s5-0 gp-0)
      (let ((s4-1 (get-process *default-dead-pool* yellowshot #x4000)))
        (when s4-1
          (let ((t9-4 (method-of-type yellowshot activate)))
            (t9-4 (the-as yellowshot s4-1) self 'yellowshot (the-as pointer #x70004000))
            )
          (run-now-in-process s4-1 yellowshot-init-by-other gp-0 s5-0 0.0 750)
          (-> s4-1 ppointer)
          )
        )
      )
    (send-event self 'flash 255.0)
    (let ((s5-1 (get-process *default-dead-pool* part-tracker #x4000)))
      (when s5-1
        (let ((t9-8 (method-of-type part-tracker activate)))
          (t9-8 (the-as part-tracker s5-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
          )
        (run-now-in-process s5-1 part-tracker-init (-> *part-group-id-table* 642) 300 #f #f #f gp-0)
        (-> s5-1 ppointer)
        )
      )
    )
  (sound-play-by-name (static-sound-name "bfg-fire") (new-sound-id) 1024 0 0 1 #t)
  (none)
  )

;; definition for function robotboss-is-yellow-hit
(defbehavior robotboss-is-yellow-hit robotboss ()
  (or (= (if (> (-> self skel active-channels) 0)
             (-> self skel root-channel 0 frame-group)
             )
         (-> self draw art-group data 28)
         )
      (= (if (> (-> self skel active-channels) 0)
             (-> self skel root-channel 0 frame-group)
             )
         (-> self draw art-group data 35)
         )
      )
  )

;; definition for function robotboss-time-to-shoot-yellow
(defbehavior robotboss-time-to-shoot-yellow robotboss ()
  (>= (- (-> *display* game-frame-counter) (-> self state-time)) (+ (-> self till-next-shot) 750))
  )

;; failed to figure out what this is:
(defstate robotboss-yellow-wait (robotboss)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (case arg2
      (('hit-jak)
       (let* ((v1-2 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
              (v1-3 (the-as number (logior #x3f800000 v1-2)))
              (f0-2 (+ -1.0 (the-as float v1-3)))
              )
         (cond
           ((< 0.75 f0-2)
            (play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
            )
           ((< 0.5 f0-2)
            (play-ambient (-> self ambient) "GOL-AM12" #t (the-as vector #f))
            )
           ((< 0.25 f0-2)
            (play-ambient (-> self ambient) "GOL-AM15" #t (the-as vector #f))
            )
           (else
             (play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
             )
           )
         )
       )
      (('missed-jak)
       (let* ((v1-13 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
              (v1-14 (the-as number (logior #x3f800000 v1-13)))
              (f0-5 (+ -1.0 (the-as float v1-14)))
              )
         (if (< 0.5 f0-5)
             (play-ambient (-> self ambient) "GOL-AM14" #t (the-as vector #f))
             (play-ambient (-> self ambient) "MAI-AM02" #t (the-as vector #f))
             )
         )
       )
      (else
        (robotboss-handler arg0 arg1 arg2 arg3)
        )
      )
    )
  :enter
  (behavior ()
    (set! (-> self hits-to-go) -1)
    (set! (-> self state-time) (-> *display* game-frame-counter))
    (set! (-> self till-next-shot) 300)
    (set! (-> self use-interesting) #t)
    (set! (-> self keep-charging) #f)
    (none)
    )
  :exit
  (behavior ()
    (let ((a0-1 (handle->process (-> self shot-attractor))))
      (if a0-1
          (deactivate a0-1)
          )
      )
    (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-1 from) self)
      (set! (-> a1-1 num-params) 1)
      (set! (-> a1-1 message) 'open)
      (set! (-> a1-1 param 0) (the-as uint (-> *part-group-id-table* 677)))
      (let ((t9-1 send-event-function)
            (v1-10 (-> self alts 4))
            )
        (t9-1
          (if v1-10
              (-> v1-10 extra process)
              )
          a1-1
          )
        )
      )
    (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-2 from) self)
      (set! (-> a1-2 num-params) 1)
      (set! (-> a1-2 message) 'open)
      (set! (-> a1-2 param 0) (the-as uint 0.4))
      (let ((t9-2 send-event-function)
            (v1-17 (-> self alts 0))
            )
        (t9-2
          (if v1-17
              (-> v1-17 extra process)
              )
          a1-2
          )
        )
      )
    (set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 3 collide-with)
          (collide-kind)
          )
    (set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 3 prim-core collide-as)
          (collide-kind)
          )
    (set! (-> self use-interesting) #f)
    (send-event *camera* 'point-of-interest #f)
    (if (nonzero? (-> self yellow-gun))
        (set-mode! (-> self yellow-gun) (joint-mod-handler-mode flex-blend))
        )
    (robotboss-yellow-eco-off)
    (robotboss-cut-cam-exit)
    (stop! (-> self looping-sound 3))
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-yellow-dark-bomb)
    (robotboss-shooting-trans 21)
    (cond
      ((zero? (-> self hits-to-go))
       (set! (-> self keep-charging) #f)
       (stop! (-> self looping-sound 3))
       (robotboss-yellow-eco-off)
       (set! (-> self took-hit) #f)
       (+! (-> self hits-to-go) -1)
       (ja-channel-push! 1 30)
       (let ((v1-8 (-> self skel root-channel 0)))
         (set! (-> v1-8 frame-group) (the-as art-joint-anim (-> self draw art-group data 35)))
         )
       (set! (-> self yellow-smoke) #t)
       (let ((gp-0 (new 'stack-no-clear 'vector)))
         (vector<-cspace! gp-0 (-> self node-list data 27))
         (let ((s5-0 (get-process *default-dead-pool* part-tracker #x4000)))
           (when s5-0
             (let ((t9-7 (method-of-type part-tracker activate)))
               (t9-7 (the-as part-tracker s5-0) *entity-pool* 'part-tracker (the-as pointer #x70004000))
               )
             (run-now-in-process s5-0 part-tracker-init (-> *part-group-id-table* 653) 300 #f #f #f gp-0)
             (-> s5-0 ppointer)
             )
           )
         )
       (let* ((s5-1 (get-process *default-dead-pool* manipy #x4000))
              (gp-1 (when s5-1
                      (let ((t9-10 (method-of-type manipy activate)))
                        (t9-10 (the-as manipy s5-1) self 'manipy (the-as pointer #x70004000))
                        )
                      (run-now-in-process
                        s5-1
                        manipy-init
                        (-> self root-override trans)
                        (-> self entity)
                        *robotboss-yelloweco-sg*
                        #f
                        )
                      (-> s5-1 ppointer)
                      )
                    )
              )
         (send-event (ppointer->process (-> self parent)) 'flash 255.0)
         (send-event (ppointer->process gp-1) 'anim-mode 'play1)
         (send-event (ppointer->process gp-1) 'rot-quat (-> self root-override quat))
         (send-event (ppointer->process gp-1) 'art-joint-anim "robotboss-yelloweco-yellow-last-hit")
         )
       )
      ((and (> (-> self hits-to-go) 0) (-> self took-hit))
       (if (not (play-ambient (-> self ambient) "GOL-AM17" #t (the-as vector #f)))
           (play-ambient (-> self ambient) "MAI-AM06" #t (the-as vector #f))
           )
       (set! (-> self took-hit) #f)
       (ja-channel-push! 1 30)
       (let ((v1-54 (-> self skel root-channel 0)))
         (set! (-> v1-54 frame-group) (the-as art-joint-anim (-> self draw art-group data 28)))
         )
       )
      )
    (robotboss-position)
    (robotboss-cut-cam (the-as float 5.0) (the-as float 50.0) (the-as int (-> self draw art-group data 29)))
    (when (and (-> self keep-charging)
               (>= (- (-> *display* game-frame-counter) (-> self state-time)) (-> self till-next-shot))
               )
      (let ((gp-2 (new 'stack-no-clear 'vector)))
        (update! (-> self looping-sound 3))
        (vector<-cspace! gp-2 (-> self node-list data 21))
        (spawn (-> self particle 6) gp-2)
        )
      )
    (none)
    )
  :code
  (behavior ()
    (let ((a0-0 (-> self skel root-channel 0)))
      (set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
      (set! (-> a0-0 param 1) 1.0)
      (joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (robotboss-setup-for-hits 8 (-> self dda yellow-gun-hits))
    (if (nonzero? (-> self yellow-gun))
        (set-mode! (-> self yellow-gun) (joint-mod-handler-mode look-at))
        )
    (while #t
      (when (not (robotboss-time-to-shoot-yellow))
        (when (not (= (if (> (-> self skel active-channels) 0)
                          (-> self skel root-channel 0 frame-group)
                          )
                      (-> self draw art-group data 26)
                      )
                   )
          (ja-channel-push! 1 60)
          (let ((v1-23 (-> self skel root-channel 0)))
            (set! (-> v1-23 frame-group) (the-as art-joint-anim (-> self draw art-group data 26)))
            )
          )
        (when (>= (- (-> *display* game-frame-counter) (-> self state-time)) (-> self till-next-shot))
          (let ((v1-30 (-> self skel root-channel 0)))
            (set! (-> v1-30 num-func) num-func-identity)
            (set! (-> v1-30 frame-num) 15.0)
            )
          )
        (while (not (or (>= (- (-> *display* game-frame-counter) (-> self state-time)) (-> self till-next-shot))
                        (= (if (> (-> self skel active-channels) 0)
                               (-> self skel root-channel 0 frame-group)
                               )
                           (-> self draw art-group data 35)
                           )
                        )
                    )
          (when (not (= (if (> (-> self skel active-channels) 0)
                            (-> self skel root-channel 0 frame-group)
                            )
                        (-> self draw art-group data 26)
                        )
                     )
            (ja-channel-push! 1 60)
            (let ((v1-40 (-> self skel root-channel 0)))
              (set! (-> v1-40 frame-group) (the-as art-joint-anim (-> self draw art-group data 26)))
              )
            )
          (let ((a0-24 (-> self skel root-channel 0)))
            (set! (-> a0-24 frame-group) (if (> (-> self skel active-channels) 0)
                                             (-> self skel root-channel 0 frame-group)
                                             )
                  )
            (set! (-> a0-24 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                           (-> self skel root-channel 0 frame-group)
                                                           )
                                                       data
                                                       0
                                                       length
                                                       )
                                                   -1
                                                   )
                                          )
                  )
            (set! (-> a0-24 param 1) 1.0)
            (set! (-> a0-24 frame-num) 0.0)
            (joint-control-channel-group!
              a0-24
              (if (> (-> self skel active-channels) 0)
                  (-> self skel root-channel 0 frame-group)
                  )
              num-func-seek!
              )
            )
          (until (ja-done? 0)
            (if (robotboss-is-yellow-hit)
                (goto cfg-36)
                )
            (suspend)
            (let ((a0-25 (-> self skel root-channel 0)))
              (set! (-> a0-25 param 0) (the float (+ (-> a0-25 frame-group data 0 length) -1)))
              (set! (-> a0-25 param 1) 1.0)
              (joint-control-channel-group-eval! a0-25 (the-as art-joint-anim #f) num-func-seek!)
              )
            )
          )
        (label cfg-36)
        (when (not (robotboss-is-yellow-hit))
          (when (not (= (if (> (-> self skel active-channels) 0)
                            (-> self skel root-channel 0 frame-group)
                            )
                        (-> self draw art-group data 26)
                        )
                     )
            (ja-channel-push! 1 60)
            (let ((v1-93 (-> self skel root-channel 0)))
              (set! (-> v1-93 frame-group) (the-as art-joint-anim (-> self draw art-group data 26)))
              )
            )
          (let ((a0-41 (-> self skel root-channel 0)))
            (set! (-> a0-41 frame-group) (if (> (-> self skel active-channels) 0)
                                             (-> self skel root-channel 0 frame-group)
                                             )
                  )
            (set! (-> a0-41 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                           (-> self skel root-channel 0 frame-group)
                                                           )
                                                       data
                                                       0
                                                       length
                                                       )
                                                   -1
                                                   )
                                          )
                  )
            (set! (-> a0-41 param 1) 1.0)
            (set! (-> a0-41 frame-num) 0.0)
            (joint-control-channel-group!
              a0-41
              (if (> (-> self skel active-channels) 0)
                  (-> self skel root-channel 0 frame-group)
                  )
              num-func-seek!
              )
            )
          (until (ja-done? 0)
            (if (robotboss-is-yellow-hit)
                (goto cfg-55)
                )
            (if (< 15.0 (ja-aframe-num 0))
                (set! (-> self keep-charging) #t)
                )
            (suspend)
            (let ((a0-43 (-> self skel root-channel 0)))
              (set! (-> a0-43 param 0) (the float (+ (-> a0-43 frame-group data 0 length) -1)))
              (set! (-> a0-43 param 1) 1.0)
              (joint-control-channel-group-eval! a0-43 (the-as art-joint-anim #f) num-func-seek!)
              )
            )
          )
        )
      (label cfg-55)
      (when (and (not (= (if (> (-> self skel active-channels) 0)
                             (-> self skel root-channel 0 frame-group)
                             )
                         (-> self draw art-group data 35)
                         )
                      )
                 (or (robotboss-time-to-shoot-yellow) (not (= (if (> (-> self skel active-channels) 0)
                                                                  (-> self skel root-channel 0 frame-group)
                                                                  )
                                                              (-> self draw art-group data 28)
                                                              )
                                                           )
                     )
                 )
        (set! (-> self state-time) (-> *display* game-frame-counter))
        (let* ((f30-1 (-> self dda yellow-shot-time-min))
               (f28-0 (-> self dda yellow-shot-time-rnd))
               (v1-147 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
               (v1-148 (the-as number (logior #x3f800000 v1-147)))
               )
          (set! (-> self till-next-shot)
                (the int (+ f30-1 (the float (the int (* f28-0 (+ -1.0 (the-as float v1-148)))))))
                )
          )
        (stop! (-> self looping-sound 3))
        (robotboss-yellowshot)
        (robotboss-yellow-eco-on)
        (let* ((v1-154 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
               (v1-155 (the-as number (logior #x3f800000 v1-154)))
               (f0-29 (+ -1.0 (the-as float v1-155)))
               )
          (cond
            ((< 0.8333333 f0-29)
             (play-ambient (-> self ambient) "GOL-AM04" #t (the-as vector #f))
             )
            ((< 0.6666667 f0-29)
             (play-ambient (-> self ambient) "GOL-AM09" #t (the-as vector #f))
             )
            ((< 0.5 f0-29)
             (play-ambient (-> self ambient) "GOL-AM08" #t (the-as vector #f))
             )
            ((< 0.33333334 f0-29)
             (play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
             )
            ((< 0.16666667 f0-29)
             (play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
             )
            (else
              (play-ambient (-> self ambient) "MAI-AM02" #t (the-as vector #f))
              )
            )
          )
        (ja-channel-push! 1 15)
        (let ((v1-176 (-> self skel root-channel 0)))
          (set! (-> v1-176 frame-group) (the-as art-joint-anim (-> self draw art-group data 27)))
          )
        )
      (let ((a0-70 (-> self skel root-channel 0)))
        (set! (-> a0-70 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-70 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-70 param 1) 1.0)
        (set! (-> a0-70 frame-num) 0.0)
        (joint-control-channel-group!
          a0-70
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-71 (-> self skel root-channel 0)))
          (set! (-> a0-71 param 0) (the float (+ (-> a0-71 frame-group data 0 length) -1)))
          (set! (-> a0-71 param 1) 1.0)
          (joint-control-channel-group-eval! a0-71 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      (when (= (if (> (-> self skel active-channels) 0)
                   (-> self skel root-channel 0 frame-group)
                   )
               (-> self draw art-group data 35)
               )
        (let ((a0-77 (-> self skel root-channel 0)))
          (set! (-> a0-77 frame-group) (the-as art-joint-anim (-> self draw art-group data 29)))
          (set! (-> a0-77 param 0)
                (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 29)) data 0 length) -1))
                )
          (set! (-> a0-77 param 1) 1.0)
          (set! (-> a0-77 frame-num) 0.0)
          (joint-control-channel-group! a0-77 (the-as art-joint-anim (-> self draw art-group data 29)) num-func-seek!)
          )
        (until (ja-done? 0)
          (suspend)
          (let ((a0-78 (-> self skel root-channel 0)))
            (set! (-> a0-78 param 0) (the float (+ (-> a0-78 frame-group data 0 length) -1)))
            (set! (-> a0-78 param 1) 1.0)
            (joint-control-channel-group-eval! a0-78 (the-as art-joint-anim #f) num-func-seek!)
            )
          )
        (go robotboss-yellow-dark-bomb)
        )
      )
    (none)
    )
  :post
  (behavior ()
    (when *target*
      (if (nonzero? (-> self yellow-gun))
          (set-target! (-> self yellow-gun) (target-pos 5))
          )
      )
    (transform-post)
    (none)
    )
  )

;; failed to figure out what this is:
(defstate robotboss-yellow (robotboss)
  :event
  robotboss-handler
  :enter
  (behavior ()
    (set! (-> self old-loc quad) (-> self desired-loc quad))
    (set-vector! (-> self desired-loc) 13653.333 77824.0 491520.0 1.0)
    (set! (-> self loc-t) 0.0)
    (set! (-> self loc-t-start) (-> *display* game-frame-counter))
    (set! (-> self loc-t-duration) (seconds 3))
    (set! (-> self desired-pool-y) -18432.0)
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-yellow-wait)
    (if (>= (-> self loc-t) 1.0)
        (go robotboss-yellow-wait)
        )
    (robotboss-position)
    (none)
    )
  :code
  (behavior ()
    (let ((a0-0 (-> self skel root-channel 0)))
      (set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
      (set! (-> a0-0 param 1) 1.0)
      (joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (ja-channel-push! 1 60)
    (let ((v1-11 (-> self skel root-channel 0)))
      (set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 25)))
      )
    (let ((a0-6 (-> self skel root-channel 0)))
      (set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-6 param 1) 1.0)
      (set! (-> a0-6 frame-num) 0.0)
      (joint-control-channel-group!
        a0-6
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (suspend)
      (let ((a0-7 (-> self skel root-channel 0)))
        (set! (-> a0-7 param 0) (the float (+ (-> a0-7 frame-group data 0 length) -1)))
        (set! (-> a0-7 param 1) 1.0)
        (joint-control-channel-group-eval! a0-7 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (while #t
      (cond
        ((and *target* (< (+ 81920.0 (-> self entity extra trans y)) (-> (target-pos 0) y)))
         (when (not (= (if (> (-> self skel active-channels) 0)
                           (-> self skel root-channel 0 frame-group)
                           )
                       (-> self draw art-group data 23)
                       )
                    )
           (ja-channel-push! 1 240)
           (let ((v1-55 (-> self skel root-channel 0)))
             (set! (-> v1-55 frame-group) (the-as art-joint-anim (-> self draw art-group data 23)))
             )
           )
         )
        ((not (= (if (> (-> self skel active-channels) 0)
                     (-> self skel root-channel 0 frame-group)
                     )
                 (-> self draw art-group data 21)
                 )
              )
         (ja-channel-push! 1 60)
         (let ((v1-64 (-> self skel root-channel 0)))
           (set! (-> v1-64 frame-group) (the-as art-joint-anim (-> self draw art-group data 21)))
           )
         )
        )
      (let ((a0-27 (-> self skel root-channel 0)))
        (set! (-> a0-27 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-27 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-27 param 1) 1.0)
        (set! (-> a0-27 frame-num) 0.0)
        (joint-control-channel-group!
          a0-27
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-28 (-> self skel root-channel 0)))
          (set! (-> a0-28 param 0) (the float (+ (-> a0-28 frame-group data 0 length) -1)))
          (set! (-> a0-28 param 1) 1.0)
          (joint-control-channel-group-eval! a0-28 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; failed to figure out what this is:
(defstate robotboss-red-dark-bomb-wait (robotboss)
  :event
  robotboss-bomb-handler
  :enter
  (behavior ()
    (set! (-> self children-spawned) 0)
    (logior! (-> self alts 11 extra perm status) (entity-perm-status bit-3))
    (none)
    )
  :exit
  (behavior ()
    (set! (-> self ignore-camera) #f)
    (set! (-> self des-cam-entity) #f)
    (logclear! (-> self alts 11 extra perm status) (entity-perm-status bit-3))
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-yellow)
    (if (and (< (-> self children-spawned) 0)
             (or (not *target*) (!= (-> *target* control unknown-surface00 name) 'launch-jump))
             )
        (go robotboss-yellow)
        )
    (robotboss-position)
    (none)
    )
  :code
  (behavior ()
    (let ((a0-0 (-> self skel root-channel 0)))
      (set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
      (set! (-> a0-0 param 1) 1.0)
      (joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (ja-channel-push! 1 30)
    (let ((v1-11 (-> self skel root-channel 0)))
      (set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 24)))
      )
    (let ((a0-6 (-> self skel root-channel 0)))
      (set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-6 param 1) 1.0)
      (set! (-> a0-6 frame-num) 0.0)
      (joint-control-channel-group!
        a0-6
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (when (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 1))
        (robotboss-darkecobomb (new 'static 'vector :y 32768.0) (-> self dda red-bomb-time))
        (set! (-> self des-cam-entity) "camera-365")
        )
      (suspend)
      (let ((a0-9 (-> self skel root-channel 0)))
        (set! (-> a0-9 param 0) (the float (+ (-> a0-9 frame-group data 0 length) -1)))
        (set! (-> a0-9 param 1) 1.0)
        (joint-control-channel-group-eval! a0-9 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (while #t
      (when (not (= (if (> (-> self skel active-channels) 0)
                        (-> self skel root-channel 0 frame-group)
                        )
                    (-> self draw art-group data 21)
                    )
                 )
        (ja-channel-push! 1 60)
        (let ((v1-57 (-> self skel root-channel 0)))
          (set! (-> v1-57 frame-group) (the-as art-joint-anim (-> self draw art-group data 21)))
          )
        )
      (let ((a0-19 (-> self skel root-channel 0)))
        (set! (-> a0-19 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-19 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-19 param 1) 1.0)
        (set! (-> a0-19 frame-num) 0.0)
        (joint-control-channel-group!
          a0-19
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-20 (-> self skel root-channel 0)))
          (set! (-> a0-20 param 0) (the float (+ (-> a0-20 frame-group data 0 length) -1)))
          (set! (-> a0-20 param 1) 1.0)
          (joint-control-channel-group-eval! a0-20 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; failed to figure out what this is:
(defstate robotboss-red-dark-bomb (robotboss)
  :enter
  (behavior ()
    (set! (-> self old-loc quad) (-> self desired-loc quad))
    (set-vector! (-> self desired-loc) 0.0 -81920.0 716800.0 1.0)
    (set! (-> self loc-t) 0.0)
    (set! (-> self loc-t-start) (-> *display* game-frame-counter))
    (set! (-> self loc-t-duration) (seconds 3))
    (set! (-> self desired-pool-y) -20480.0)
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-red-dark-bomb-wait)
    (robotboss-position)
    (if (>= (-> self loc-t) 1.0)
        (go robotboss-red-dark-bomb-wait)
        )
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 60)
    (let ((v1-2 (-> self skel root-channel 0)))
      (set! (-> v1-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 22)))
      )
    (let ((a0-4 (-> self skel root-channel 0)))
      (set! (-> a0-4 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-4 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-4 param 1) 1.0)
      (set! (-> a0-4 frame-num) 0.0)
      (joint-control-channel-group!
        a0-4
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (suspend)
      (let ((a0-5 (-> self skel root-channel 0)))
        (set! (-> a0-5 param 0) (the float (+ (-> a0-5 frame-group data 0 length) -1)))
        (set! (-> a0-5 param 1) 1.0)
        (joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (when (not (= (if (> (-> self skel active-channels) 0)
                      (-> self skel root-channel 0 frame-group)
                      )
                  (-> self draw art-group data 21)
                  )
               )
      (ja-channel-push! 1 60)
      (let ((v1-41 (-> self skel root-channel 0)))
        (set! (-> v1-41 frame-group) (the-as art-joint-anim (-> self draw art-group data 21)))
        )
      )
    (while #t
      (let ((a0-15 (-> self skel root-channel 0)))
        (set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-15 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-15 param 1) 1.0)
        (set! (-> a0-15 frame-num) 0.0)
        (joint-control-channel-group!
          a0-15
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-16 (-> self skel root-channel 0)))
          (set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
          (set! (-> a0-16 param 1) 1.0)
          (joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; definition of type redshot-launch-info
(deftype redshot-launch-info (structure)
  ((dest        vector     :inline :offset-assert   0)
   (flight-time time-frame         :offset-assert  16)
   (stall-time  time-frame         :offset-assert  24)
   )
  :method-count-assert 9
  :size-assert         #x20
  :flag-assert         #x900000020
  )

;; definition for method 3 of type redshot-launch-info
(defmethod inspect redshot-launch-info ((obj redshot-launch-info))
  (format #t "[~8x] ~A~%" obj 'redshot-launch-info)
  (format #t "~Tdest: #<vector @ #x~X>~%" (-> obj dest))
  (format #t "~Tflight-time: ~D~%" (-> obj flight-time))
  (format #t "~Tstall-time: ~D~%" (-> obj stall-time))
  obj
  )

;; definition of type redshot-launch-array
(deftype redshot-launch-array (structure)
  ((info redshot-launch-info 6 :inline :offset-assert   0)
   )
  :method-count-assert 9
  :size-assert         #xc0
  :flag-assert         #x9000000c0
  )

;; definition for method 3 of type redshot-launch-array
(defmethod inspect redshot-launch-array ((obj redshot-launch-array))
  (format #t "[~8x] ~A~%" obj 'redshot-launch-array)
  (format #t "~Tinfo[6] @ #x~X~%" (-> obj info))
  obj
  )

;; definition for function robotboss-redshot-fill-array
;; INFO: Return type mismatch symbol vs none.
;; Used lq/sq
(defbehavior robotboss-redshot-fill-array robotboss ((arg0 redshot-launch-array))
  (let ((s2-0 0)
        (s4-0 (new 'stack-no-clear 'vector))
        (s5-0 (new-stack-vector0))
        )
    0.0
    (dotimes (s3-0 6)
      (let ((s1-0 (-> arg0 info s3-0)))
        (let* ((f30-0 -40960.0)
               (f28-0 81920.0)
               (v1-4 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
               (v1-5 (the-as number (logior #x3f800000 v1-4)))
               )
          (set! (-> s1-0 dest x) (+ f30-0 (* f28-0 (+ -1.0 (the-as float v1-5)))))
          )
        (set! (-> s1-0 dest y) 0.0)
        (let* ((f30-1 -40960.0)
               (f28-1 81920.0)
               (v1-10 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
               (v1-11 (the-as number (logior #x3f800000 v1-10)))
               )
          (set! (-> s1-0 dest z) (+ f30-1 (* f28-1 (+ -1.0 (the-as float v1-11)))))
          )
        (set! (-> s1-0 dest w) 1.0)
        )
      (dotimes (s1-1 s3-0)
        (vector-! s4-0 (the-as vector (-> arg0 info s3-0)) (the-as vector (-> arg0 info s1-1)))
        (let ((f0-13 (vector-length-squared s4-0)))
          (if (< f0-13 1073741800.0)
              (vector+float*!
                (the-as vector (-> arg0 info s3-0))
                (the-as vector (-> arg0 info s1-1))
                s4-0
                (/ 32768.0 (sqrtf f0-13))
                )
              )
          )
        )
      (vector+! s5-0 s5-0 (the-as vector (-> arg0 info s3-0)))
      (let* ((f30-2 60.0)
             (v1-27 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
             (v1-28 (the-as number (logior #x3f800000 v1-27)))
             )
        (set! (-> arg0 info s3-0 flight-time)
              (the-as time-frame (+ (the int (* f30-2 (+ -1.0 (the-as float v1-28)))) 180))
              )
        )
      (let* ((s1-3 (max 150 (- (the-as time-frame s2-0) (-> arg0 info s3-0 flight-time))))
             (f30-3 60.0)
             (v1-38 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
             (v1-39 (the-as number (logior #x3f800000 v1-38)))
             )
        (set! (-> arg0 info s3-0 stall-time)
              (the-as time-frame (+ (the int (* f30-3 (+ -1.0 (the-as float v1-39)))) 300 s1-3))
              )
        )
      (set! s2-0 (the-as int (+ (-> arg0 info s3-0 flight-time) (-> arg0 info s3-0 stall-time))))
      )
    (vector-float*! s5-0 s5-0 0.16666667)
    (vector-! s5-0 (-> self entity extra trans) s5-0)
    (dotimes (v1-53 6)
      (vector+! (the-as vector (-> arg0 info v1-53)) (the-as vector (-> arg0 info v1-53)) s5-0)
      (set! (-> arg0 info v1-53 dest y) (+ 2048.0 (-> arg0 info v1-53 dest y)))
      )
    )
  (none)
  )

;; definition for function robotboss-redshot
;; WARN: Stack slot load at 64 mismatch: defined as size 4, got size 16
;; Used lq/sq
(defbehavior robotboss-redshot robotboss ((arg0 redshot-launch-info) (arg1 symbol))
  (local-vars (sv-32 redshot-launch-info) (sv-48 vector) (sv-64 float) (sv-80 time-frame) (sv-96 time-frame))
  (set! sv-32 arg0)
  (let ((s5-0 arg1))
    (+! (-> self children-spawned) 1)
    (let ((gp-0 (new 'stack-no-clear 'vector)))
      (vector<-cspace! gp-0 (-> self node-list data 40))
      (let ((s4-0 (get-process *default-dead-pool* redshot #x4000)))
        (when s4-0
          (let ((t9-2 (method-of-type redshot activate)))
            (t9-2 (the-as redshot s4-0) self 'redshot (the-as pointer #x70004000))
            )
          (let ((s3-0 run-function-in-process)
                (s2-0 s4-0)
                (s1-0 redshot-init-by-other)
                (s0-0 gp-0)
                )
            (set! sv-48 (-> sv-32 dest))
            (let* ((f30-0 20480.0)
                   (f28-0 12288.0)
                   (v1-10 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
                   (v1-11 (the-as number (logior #x3f800000 v1-10)))
                   )
              (set! sv-64 (+ f30-0 (* f28-0 (+ -1.0 (the-as float v1-11)))))
              )
            (set! sv-80 (-> sv-32 flight-time))
            (set! sv-96 (-> sv-32 stall-time))
            (let* ((f30-1 300.0)
                   (v1-19 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
                   (v1-20 (the-as number (logior #x3f800000 v1-19)))
                   (t3-0 (the int (* f30-1 (+ -1.0 (the-as float v1-20)))))
                   )
              ((the-as (function object object object object object object object object none) s3-0)
               s2-0
               s1-0
               s0-0
               sv-48
               sv-64
               sv-80
               sv-96
               t3-0
               )
              )
            )
          (-> s4-0 ppointer)
          )
        )
      (when s5-0
        (let ((s5-1 (get-process *default-dead-pool* part-tracker #x4000)))
          (when s5-1
            (let ((t9-7 (method-of-type part-tracker activate)))
              (t9-7 (the-as part-tracker s5-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
              )
            (run-now-in-process s5-1 part-tracker-init (-> *part-group-id-table* 641) 300 #f #f #f gp-0)
            (-> s5-1 ppointer)
            )
          )
        (sound-play-by-name (static-sound-name "red-fire") (new-sound-id) 1024 0 0 1 #t)
        )
      )
    )
  )

;; definition for function robotboss-is-red-hit
(defbehavior robotboss-is-red-hit robotboss ()
  (or (= (if (> (-> self skel active-channels) 0)
             (-> self skel root-channel 0 frame-group)
             )
         (-> self draw art-group data 19)
         )
      (= (if (> (-> self skel active-channels) 0)
             (-> self skel root-channel 0 frame-group)
             )
         (-> self draw art-group data 34)
         )
      )
  )

;; failed to figure out what this is:
(defstate robotboss-red-wait (robotboss)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (case arg2
      (('hit-jak)
       (let* ((v1-2 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
              (v1-3 (the-as number (logior #x3f800000 v1-2)))
              (f0-2 (+ -1.0 (the-as float v1-3)))
              )
         (cond
           ((< 0.75 f0-2)
            (play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
            )
           ((< 0.5 f0-2)
            (play-ambient (-> self ambient) "GOL-AM12" #t (the-as vector #f))
            )
           ((< 0.25 f0-2)
            (play-ambient (-> self ambient) "GOL-AM15" #t (the-as vector #f))
            )
           (else
             (play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
             )
           )
         )
       )
      (('missed-jak)
       (let* ((v1-13 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
              (v1-14 (the-as number (logior #x3f800000 v1-13)))
              (f0-5 (+ -1.0 (the-as float v1-14)))
              )
         (if (< 0.5 f0-5)
             (play-ambient (-> self ambient) "GOL-AM14" #t (the-as vector #f))
             (play-ambient (-> self ambient) "MAI-AM01" #t (the-as vector #f))
             )
         )
       )
      (else
        (robotboss-handler arg0 arg1 arg2 arg3)
        )
      )
    )
  :enter
  (behavior ()
    (set! (-> self hits-to-go) -1)
    (set! (-> self des-cam-entity) "camera-390")
    (set! (-> self use-interesting) #t)
    (set! (-> self state-time) (-> *display* game-frame-counter))
    (set! (-> self till-next-shot) 0)
    0
    (none)
    )
  :exit
  (behavior ()
    (let ((a0-1 (handle->process (-> self shot-attractor))))
      (if a0-1
          (deactivate a0-1)
          )
      )
    (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-1 from) self)
      (set! (-> a1-1 num-params) 1)
      (set! (-> a1-1 message) 'open)
      (set! (-> a1-1 param 0) (the-as uint (-> *part-group-id-table* 676)))
      (let ((t9-1 send-event-function)
            (v1-10 (-> self alts 1))
            )
        (t9-1
          (if v1-10
              (-> v1-10 extra process)
              )
          a1-1
          )
        )
      )
    (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-2 from) self)
      (set! (-> a1-2 num-params) 1)
      (set! (-> a1-2 message) 'open)
      (set! (-> a1-2 param 0) (the-as uint 0.3))
      (let ((t9-2 send-event-function)
            (v1-17 (-> self alts 0))
            )
        (t9-2
          (if v1-17
              (-> v1-17 extra process)
              )
          a1-2
          )
        )
      )
    (set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 5 collide-with)
          (collide-kind)
          )
    (set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 5 prim-core collide-as)
          (collide-kind)
          )
    (set! (-> self use-interesting) #f)
    (set! (-> self des-cam-entity) #f)
    (robotboss-yellow-eco-off)
    (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-3 from) self)
      (set! (-> a1-3 num-params) 0)
      (set! (-> a1-3 message) 'show)
      (let ((t9-4 send-event-function)
            (v1-27 (-> self alts 11))
            )
        (t9-4
          (if v1-27
              (-> v1-27 extra process)
              )
          a1-3
          )
        )
      )
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-red-dark-bomb)
    (robotboss-shooting-trans 40)
    (cond
      ((zero? (-> self hits-to-go))
       (robotboss-yellow-eco-off)
       (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
         (set! (-> a1-0 from) self)
         (set! (-> a1-0 num-params) 0)
         (set! (-> a1-0 message) 'show)
         (let ((t9-3 send-event-function)
               (v1-3 (-> self alts 11))
               )
           (t9-3
             (if v1-3
                 (-> v1-3 extra process)
                 )
             a1-0
             )
           )
         )
       (set! (-> self took-hit) #f)
       (+! (-> self hits-to-go) -1)
       (ja-channel-push! 1 30)
       (let ((v1-10 (-> self skel root-channel 0)))
         (set! (-> v1-10 frame-group) (the-as art-joint-anim (-> self draw art-group data 34)))
         )
       (set! (-> self red-smoke) #t)
       (let ((gp-0 (new 'stack-no-clear 'vector)))
         (vector<-cspace! gp-0 (-> self node-list data 51))
         (let ((s5-0 (get-process *default-dead-pool* part-tracker #x4000)))
           (when s5-0
             (let ((t9-7 (method-of-type part-tracker activate)))
               (t9-7 (the-as part-tracker s5-0) *entity-pool* 'part-tracker (the-as pointer #x70004000))
               )
             (run-now-in-process s5-0 part-tracker-init (-> *part-group-id-table* 649) 300 #f #f #f gp-0)
             (-> s5-0 ppointer)
             )
           )
         )
       (let* ((s5-1 (get-process *default-dead-pool* manipy #x4000))
              (gp-1
                (when s5-1
                  (let ((t9-10 (method-of-type manipy activate)))
                    (t9-10 (the-as manipy s5-1) self 'manipy (the-as pointer #x70004000))
                    )
                  (run-now-in-process s5-1 manipy-init (-> self root-override trans) (-> self entity) *robotboss-redeco-sg* #f)
                  (-> s5-1 ppointer)
                  )
                )
              )
         (send-event (ppointer->process (-> self parent)) 'flash 255.0)
         (send-event (ppointer->process gp-1) 'anim-mode 'play1)
         (send-event (ppointer->process gp-1) 'rot-quat (-> self root-override quat))
         (send-event (ppointer->process gp-1) 'art-joint-anim "robotboss-redeco-red-last-hit")
         )
       )
      ((and (> (-> self hits-to-go) 0) (-> self took-hit))
       (if (not (play-ambient (-> self ambient) "GOL-AM17" #t (the-as vector #f)))
           (play-ambient (-> self ambient) "MAI-AM06" #t (the-as vector #f))
           )
       (set! (-> self took-hit) #f)
       (ja-channel-push! 1 30)
       (let ((v1-56 (-> self skel root-channel 0)))
         (set! (-> v1-56 frame-group) (the-as art-joint-anim (-> self draw art-group data 19)))
         )
       )
      )
    (robotboss-position)
    (none)
    )
  :code
  (behavior ()
    (let ((a0-0 (-> self skel root-channel 0)))
      (set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
      (set! (-> a0-0 param 1) 1.0)
      (joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (robotboss-setup-for-hits 1 5)
    (while #t
      (until (or (>= (- (-> *display* game-frame-counter) (-> self state-time)) (-> self till-next-shot))
                 (= (if (> (-> self skel active-channels) 0)
                        (-> self skel root-channel 0 frame-group)
                        )
                    (-> self draw art-group data 34)
                    )
                 )
        (ja-channel-push! 1 60)
        (let ((v1-11 (-> self skel root-channel 0)))
          (set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 16)))
          )
        (let ((a0-7 (-> self skel root-channel 0)))
          (set! (-> a0-7 frame-group) (if (> (-> self skel active-channels) 0)
                                          (-> self skel root-channel 0 frame-group)
                                          )
                )
          (set! (-> a0-7 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                        (-> self skel root-channel 0 frame-group)
                                                        )
                                                    data
                                                    0
                                                    length
                                                    )
                                                -1
                                                )
                                       )
                )
          (set! (-> a0-7 param 1) 1.0)
          (set! (-> a0-7 frame-num) 0.0)
          (joint-control-channel-group!
            a0-7
            (if (> (-> self skel active-channels) 0)
                (-> self skel root-channel 0 frame-group)
                )
            num-func-seek!
            )
          )
        (until (ja-done? 0)
          (if (= (if (> (-> self skel active-channels) 0)
                     (-> self skel root-channel 0 frame-group)
                     )
                 (-> self draw art-group data 34)
                 )
              (goto cfg-24)
              )
          (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!)
            )
          )
        )
      (label cfg-24)
      (set! (-> self state-time) (-> *display* game-frame-counter))
      (let* ((f30-0 (-> self dda red-shot-time-min))
             (f28-0 (-> self dda red-shot-time-rnd))
             (v1-65 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
             (v1-66 (the-as number (logior #x3f800000 v1-65)))
             )
        (set! (-> self till-next-shot)
              (the int (+ f30-0 (the float (the int (* f28-0 (+ -1.0 (the-as float v1-66)))))))
              )
        )
      (when (not (robotboss-is-red-hit))
        (ja-channel-push! 1 60)
        (let ((v1-72 (-> self skel root-channel 0)))
          (set! (-> v1-72 frame-group) (the-as art-joint-anim (-> self draw art-group data 17)))
          )
        (let ((a0-27 (-> self skel root-channel 0)))
          (set! (-> a0-27 frame-group) (if (> (-> self skel active-channels) 0)
                                           (-> self skel root-channel 0 frame-group)
                                           )
                )
          (set! (-> a0-27 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                         (-> self skel root-channel 0 frame-group)
                                                         )
                                                     data
                                                     0
                                                     length
                                                     )
                                                 -1
                                                 )
                                        )
                )
          (set! (-> a0-27 param 1) 1.0)
          (set! (-> a0-27 frame-num) 0.0)
          (joint-control-channel-group!
            a0-27
            (if (> (-> self skel active-channels) 0)
                (-> self skel root-channel 0 frame-group)
                )
            num-func-seek!
            )
          )
        (until (ja-done? 0)
          (update! (-> self looping-sound 2))
          (let ((gp-0 (new 'stack-no-clear 'vector)))
            (vector<-cspace! gp-0 (-> self node-list data 40))
            (spawn (-> self particle 5) gp-0)
            )
          (if (robotboss-is-red-hit)
              (goto cfg-37)
              )
          (suspend)
          (let ((a0-31 (-> self skel root-channel 0)))
            (set! (-> a0-31 param 0) (the float (+ (-> a0-31 frame-group data 0 length) -1)))
            (set! (-> a0-31 param 1) 1.0)
            (joint-control-channel-group-eval! a0-31 (the-as art-joint-anim #f) num-func-seek!)
            )
          )
        (label cfg-37)
        (stop! (-> self looping-sound 2))
        )
      (when (not (= (if (> (-> self skel active-channels) 0)
                        (-> self skel root-channel 0 frame-group)
                        )
                    (-> self draw art-group data 34)
                    )
                 )
        (let* ((v1-120 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
               (v1-121 (the-as number (logior #x3f800000 v1-120)))
               (f30-1 (+ -1.0 (the-as float v1-121)))
               (gp-1 (new 'stack-no-clear 'redshot-launch-array))
               (s5-0 (-> self dda red-shots-min))
               )
          (robotboss-yellow-eco-on)
          (robotboss-redshot-fill-array gp-1)
          (robotboss-redshot (the-as redshot-launch-info (-> gp-1 info)) #t)
          (let* ((v1-127 (+ s5-0 (the int (* f30-1 (the float (-> self dda red-shots-rnd))))))
                 (s5-1 (+ (min 6 v1-127) -1))
                 )
            (dotimes (s4-0 s5-1)
              (robotboss-redshot (-> gp-1 info (+ s4-0 1)) #f)
              )
            )
          )
        )
      (when (not (robotboss-is-red-hit))
        (let* ((v1-135 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
               (v1-136 (the-as number (logior #x3f800000 v1-135)))
               (f0-33 (+ -1.0 (the-as float v1-136)))
               )
          (cond
            ((< 0.8333333 f0-33)
             (play-ambient (-> self ambient) "GOL-AM04" #t (the-as vector #f))
             )
            ((< 0.6666667 f0-33)
             (play-ambient (-> self ambient) "GOL-AM05" #t (the-as vector #f))
             )
            ((< 0.5 f0-33)
             (play-ambient (-> self ambient) "GOL-AM08" #t (the-as vector #f))
             )
            ((< 0.33333334 f0-33)
             (play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
             )
            ((< 0.16666667 f0-33)
             (play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
             )
            (else
              (play-ambient (-> self ambient) "MAI-AM02" #t (the-as vector #f))
              )
            )
          )
        (let ((v1-157 (-> self skel root-channel 0)))
          (set! (-> v1-157 frame-group) (the-as art-joint-anim (-> self draw art-group data 18)))
          )
        )
      (let ((a0-56 (-> self skel root-channel 0)))
        (set! (-> a0-56 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-56 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-56 param 1) 1.0)
        (set! (-> a0-56 frame-num) 0.0)
        (joint-control-channel-group!
          a0-56
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-57 (-> self skel root-channel 0)))
          (set! (-> a0-57 param 0) (the float (+ (-> a0-57 frame-group data 0 length) -1)))
          (set! (-> a0-57 param 1) 1.0)
          (joint-control-channel-group-eval! a0-57 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      (when (= (if (> (-> self skel active-channels) 0)
                   (-> self skel root-channel 0 frame-group)
                   )
               (-> self draw art-group data 34)
               )
        (let ((a0-63 (-> self skel root-channel 0)))
          (set! (-> a0-63 frame-group) (the-as art-joint-anim (-> self draw art-group data 20)))
          (set! (-> a0-63 param 0)
                (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 20)) data 0 length) -1))
                )
          (set! (-> a0-63 param 1) 1.0)
          (set! (-> a0-63 frame-num) 0.0)
          (joint-control-channel-group! a0-63 (the-as art-joint-anim (-> self draw art-group data 20)) num-func-seek!)
          )
        (until (ja-done? 0)
          (suspend)
          (let ((a0-64 (-> self skel root-channel 0)))
            (set! (-> a0-64 param 0) (the float (+ (-> a0-64 frame-group data 0 length) -1)))
            (set! (-> a0-64 param 1) 1.0)
            (joint-control-channel-group-eval! a0-64 (the-as art-joint-anim #f) num-func-seek!)
            )
          )
        (go robotboss-red-dark-bomb)
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; failed to figure out what this is:
(defstate robotboss-red (robotboss)
  :event
  robotboss-handler
  :enter
  (behavior ()
    (set! (-> self old-loc quad) (-> self desired-loc quad))
    (set-vector! (-> self desired-loc) 8192.0 -40960.0 327680.0 1.0)
    (set! (-> self loc-t) 0.0)
    (set! (-> self loc-t-start) (-> *display* game-frame-counter))
    (set! (-> self loc-t-duration) (seconds 3))
    (set! (-> self desired-pool-y) -22528.0)
    (set-setting! *setting-control* self 'sound-flava #f (the-as float 40.0) 48)
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-red-wait)
    (if (>= (-> self loc-t) 1.0)
        (go robotboss-red-wait)
        )
    (robotboss-position)
    (none)
    )
  :code
  (behavior ()
    (let ((a0-0 (-> self skel root-channel 0)))
      (set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
      (set! (-> a0-0 param 1) 1.0)
      (joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (ja-channel-push! 1 60)
    (let ((v1-11 (-> self skel root-channel 0)))
      (set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 15)))
      )
    (let ((a0-6 (-> self skel root-channel 0)))
      (set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-6 param 1) 1.0)
      (set! (-> a0-6 frame-num) 0.0)
      (joint-control-channel-group!
        a0-6
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (suspend)
      (let ((a0-7 (-> self skel root-channel 0)))
        (set! (-> a0-7 param 0) (the float (+ (-> a0-7 frame-group data 0 length) -1)))
        (set! (-> a0-7 param 1) 1.0)
        (joint-control-channel-group-eval! a0-7 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (while #t
      (when (not (= (if (> (-> self skel active-channels) 0)
                        (-> self skel root-channel 0 frame-group)
                        )
                    (-> self draw art-group data 6)
                    )
                 )
        (ja-channel-push! 1 60)
        (let ((v1-50 (-> self skel root-channel 0)))
          (set! (-> v1-50 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
          )
        )
      (let ((a0-17 (-> self skel root-channel 0)))
        (set! (-> a0-17 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-17 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-17 param 1) 1.0)
        (set! (-> a0-17 frame-num) 0.0)
        (joint-control-channel-group!
          a0-17
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-18 (-> self skel root-channel 0)))
          (set! (-> a0-18 param 0) (the float (+ (-> a0-18 frame-group data 0 length) -1)))
          (set! (-> a0-18 param 1) 1.0)
          (joint-control-channel-group-eval! a0-18 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; failed to figure out what this is:
(defstate robotboss-green-dark-bomb-wait (robotboss)
  :event
  robotboss-bomb-handler
  :enter
  (behavior ()
    (set! (-> self children-spawned) 0)
    0
    (none)
    )
  :exit
  (behavior ()
    (set! (-> self ignore-camera) #f)
    (set! (-> self des-cam-entity) #f)
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-red)
    (if (and (< (-> self children-spawned) 0)
             (or (not *target*) (!= (-> *target* control unknown-surface00 name) 'launch-jump))
             )
        (go robotboss-red)
        )
    (robotboss-position)
    (none)
    )
  :code
  (behavior ()
    (let ((a0-0 (-> self skel root-channel 0)))
      (set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
      (set! (-> a0-0 param 1) 1.0)
      (joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (ja-channel-push! 1 30)
    (let ((v1-11 (-> self skel root-channel 0)))
      (set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 9)))
      )
    (let ((a0-6 (-> self skel root-channel 0)))
      (set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-6 param 1) 1.0)
      (set! (-> a0-6 frame-num) 0.0)
      (joint-control-channel-group!
        a0-6
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (when (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 1))
        (robotboss-darkecobomb (new 'static 'vector :y 32768.0) (-> self dda green-bomb-time))
        (set! (-> self des-cam-entity) "camera-365")
        (play-ambient (-> self ambient) "GOL-AM11" #t (the-as vector #f))
        )
      (suspend)
      (let ((a0-10 (-> self skel root-channel 0)))
        (set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
        (set! (-> a0-10 param 1) 1.0)
        (joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (while #t
      (when (not (= (if (> (-> self skel active-channels) 0)
                        (-> self skel root-channel 0 frame-group)
                        )
                    (-> self draw art-group data 6)
                    )
                 )
        (ja-channel-push! 1 60)
        (let ((v1-59 (-> self skel root-channel 0)))
          (set! (-> v1-59 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
          )
        )
      (let ((a0-20 (-> self skel root-channel 0)))
        (set! (-> a0-20 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-20 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-20 param 1) 1.0)
        (set! (-> a0-20 frame-num) 0.0)
        (joint-control-channel-group!
          a0-20
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-21 (-> self skel root-channel 0)))
          (set! (-> a0-21 param 0) (the float (+ (-> a0-21 frame-group data 0 length) -1)))
          (set! (-> a0-21 param 1) 1.0)
          (joint-control-channel-group-eval! a0-21 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; failed to figure out what this is:
(defstate robotboss-green-dark-bomb (robotboss)
  :enter
  (behavior ()
    (set! (-> self old-loc quad) (-> self desired-loc quad))
    (set-vector! (-> self desired-loc) 16384.0 -81920.0 716800.0 1.0)
    (set! (-> self loc-t) 0.0)
    (set! (-> self loc-t-start) (-> *display* game-frame-counter))
    (set! (-> self loc-t-duration) (seconds 3))
    (set! (-> self desired-pool-y) -24576.0)
    (play-ambient (-> self ambient) "MAI-AM01" #t (the-as vector #f))
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-green-dark-bomb-wait)
    (robotboss-position)
    (if (>= (-> self loc-t) 1.0)
        (go robotboss-green-dark-bomb-wait)
        )
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 60)
    (let ((v1-2 (-> self skel root-channel 0)))
      (set! (-> v1-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 14)))
      )
    (let ((a0-4 (-> self skel root-channel 0)))
      (set! (-> a0-4 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-4 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-4 param 1) 1.0)
      (set! (-> a0-4 frame-num) 0.0)
      (joint-control-channel-group!
        a0-4
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (suspend)
      (let ((a0-5 (-> self skel root-channel 0)))
        (set! (-> a0-5 param 0) (the float (+ (-> a0-5 frame-group data 0 length) -1)))
        (set! (-> a0-5 param 1) 1.0)
        (joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (when (not (= (if (> (-> self skel active-channels) 0)
                      (-> self skel root-channel 0 frame-group)
                      )
                  (-> self draw art-group data 6)
                  )
               )
      (ja-channel-push! 1 60)
      (let ((v1-41 (-> self skel root-channel 0)))
        (set! (-> v1-41 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
        )
      )
    (while #t
      (let ((a0-15 (-> self skel root-channel 0)))
        (set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-15 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-15 param 1) 1.0)
        (set! (-> a0-15 frame-num) 0.0)
        (joint-control-channel-group!
          a0-15
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-16 (-> self skel root-channel 0)))
          (set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
          (set! (-> a0-16 param 1) 1.0)
          (joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; definition for function robotboss-greenshot
;; INFO: Return type mismatch sound-id vs none.
;; Used lq/sq
(defbehavior robotboss-greenshot robotboss ((arg0 vector) (arg1 float) (arg2 int) (arg3 symbol))
  (+! (-> self children-spawned) 1)
  (let ((gp-0 (new 'stack-no-clear 'vector)))
    (let ((s2-0 (new 'stack-no-clear 'vector)))
      (vector<-cspace! gp-0 (-> self node-list data 68))
      (set! (-> s2-0 quad) (-> self entity extra trans quad))
      (set! (-> s2-0 y) (+ -40960.0 (-> s2-0 y)))
      (vector+! s2-0 s2-0 arg0)
      (let ((s1-1 (get-process *default-dead-pool* greenshot #x4000)))
        (when s1-1
          (let ((t9-2 (method-of-type greenshot activate)))
            (t9-2 (the-as greenshot s1-1) self 'greenshot (the-as pointer #x70004000))
            )
          (run-now-in-process s1-1 greenshot-init-by-other gp-0 s2-0 arg1 arg2)
          (-> s1-1 ppointer)
          )
        )
      )
    (when arg3
      (let ((s5-1 (get-process *default-dead-pool* part-tracker #x4000)))
        (when s5-1
          (let ((t9-5 (method-of-type part-tracker activate)))
            (t9-5 (the-as part-tracker s5-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
            )
          (run-now-in-process s5-1 part-tracker-init (-> *part-group-id-table* 640) 300 #f #f #f gp-0)
          (-> s5-1 ppointer)
          )
        )
      (sound-play-by-name (static-sound-name "green-fire") (new-sound-id) 1024 0 0 1 #t)
      )
    )
  (none)
  )

;; failed to figure out what this is:
(defstate robotboss-green-wait (robotboss)
  :event
  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (case arg2
      (('trigger)
       (ja-channel-push! 1 60)
       (let ((v1-3 (-> self skel root-channel 0)))
         (set! (-> v1-3 frame-group) (the-as art-joint-anim (-> self draw art-group data 13)))
         )
       (robotboss-yellow-eco-off)
       (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
         (set! (-> a1-2 from) self)
         (set! (-> a1-2 num-params) 0)
         (set! (-> a1-2 message) 'show)
         (let ((t9-2 send-event-function)
               (v1-5 (-> self alts 11))
               )
           (t9-2
             (if v1-5
                 (-> v1-5 extra process)
                 )
             a1-2
             )
           )
         )
       )
      (('hit-jak)
       (let* ((v1-8 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
              (v1-9 (the-as number (logior #x3f800000 v1-8)))
              (f0-2 (+ -1.0 (the-as float v1-9)))
              )
         (cond
           ((< 0.75 f0-2)
            (play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
            )
           ((< 0.5 f0-2)
            (play-ambient (-> self ambient) "GOL-AM12" #t (the-as vector #f))
            )
           ((< 0.25 f0-2)
            (play-ambient (-> self ambient) "GOL-AM15" #t (the-as vector #f))
            )
           (else
             (play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
             )
           )
         )
       )
      (('blob-died)
       (let* ((v1-19 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
              (v1-20 (the-as number (logior #x3f800000 v1-19)))
              (f0-5 (+ -1.0 (the-as float v1-20)))
              )
         (cond
           ((< 0.75 f0-5)
            (play-ambient (-> self ambient) "MAI-AM02" #t (the-as vector #f))
            )
           ((< 0.5 f0-5)
            (play-ambient (-> self ambient) "GOL-AM03" #t (the-as vector #f))
            )
           ((< 0.25 f0-5)
            (play-ambient (-> self ambient) "GOL-AM14" #t (the-as vector #f))
            )
           (else
             (play-ambient (-> self ambient) "GOL-AM02" #t (the-as vector #f))
             )
           )
         )
       )
      (else
        (robotboss-handler arg0 arg1 arg2 arg3)
        )
      )
    )
  :enter
  (behavior ()
    (set! (-> self state-time) (-> *display* game-frame-counter))
    (set! (-> self children-spawned) 0)
    (robotboss-setup-for-hits 2 5)
    (set! (-> self des-cam-entity) "camera-385")
    (none)
    )
  :exit
  (behavior ()
    (let ((a0-1 (handle->process (-> self shot-attractor))))
      (if a0-1
          (deactivate a0-1)
          )
      )
    (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-1 from) self)
      (set! (-> a1-1 num-params) 1)
      (set! (-> a1-1 message) 'open)
      (set! (-> a1-1 param 0) (the-as uint (-> *part-group-id-table* 675)))
      (let ((t9-1 send-event-function)
            (v1-10 (-> self alts 2))
            )
        (t9-1
          (if v1-10
              (-> v1-10 extra process)
              )
          a1-1
          )
        )
      )
    (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-2 from) self)
      (set! (-> a1-2 num-params) 1)
      (set! (-> a1-2 message) 'open)
      (set! (-> a1-2 param 0) (the-as uint 0.2))
      (let ((t9-2 send-event-function)
            (v1-17 (-> self alts 0))
            )
        (t9-2
          (if v1-17
              (-> v1-17 extra process)
              )
          a1-2
          )
        )
      )
    (set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 9 collide-with)
          (collide-kind)
          )
    (set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 9 prim-core collide-as)
          (collide-kind)
          )
    (set! (-> self des-cam-entity) #f)
    (robotboss-yellow-eco-off)
    (let ((a1-3 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-3 from) self)
      (set! (-> a1-3 num-params) 0)
      (set! (-> a1-3 message) 'show)
      (let ((t9-4 send-event-function)
            (v1-27 (-> self alts 11))
            )
        (t9-4
          (if v1-27
              (-> v1-27 extra process)
              )
          a1-3
          )
        )
      )
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-green-dark-bomb)
    (cond
      ((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 0.4))
            (< (-> self children-spawned) 1)
            )
       (robotboss-greenshot (new 'static 'vector) (the-as float 24576.0) 600 #t)
       (ja-channel-push! 1 60)
       (let ((v1-9 (-> self skel root-channel 0)))
         (set! (-> v1-9 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
         )
       )
      ((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 1.2))
            (< (-> self children-spawned) 3)
            )
       (robotboss-greenshot (new 'static 'vector :x 8192.0) (the-as float 16384.0) 600 #t)
       (robotboss-greenshot (new 'static 'vector :z 8192.0) (the-as float 32768.0) 660 #f)
       (ja-channel-push! 1 60)
       (let ((v1-20 (-> self skel root-channel 0)))
         (set! (-> v1-20 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
         )
       )
      ((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 2.6))
            (< (-> self children-spawned) 6)
            )
       (robotboss-greenshot (new 'static 'vector :z 12288.0) (the-as float 20480.0) 600 #t)
       (robotboss-greenshot (new 'static 'vector :x 8192.0) (the-as float 8192.0) 660 #f)
       (robotboss-greenshot (new 'static 'vector) (the-as float 36864.0) 720 #f)
       (ja-channel-push! 1 60)
       (let ((v1-32 (-> self skel root-channel 0)))
         (set! (-> v1-32 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
         )
       )
      ((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 4))
            (< (-> self children-spawned) 7)
            )
       (robotboss-greenshot (new 'static 'vector) (the-as float 24576.0) 600 #t)
       (ja-channel-push! 1 60)
       (let ((v1-42 (-> self skel root-channel 0)))
         (set! (-> v1-42 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
         )
       )
      ((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 5.5))
            (< (-> self children-spawned) 9)
            )
       (robotboss-greenshot (new 'static 'vector) (the-as float 12288.0) 600 #t)
       (robotboss-greenshot (new 'static 'vector :x 4096.0 :z 12288.0) (the-as float 32768.0) 600 #f)
       (ja-channel-push! 1 60)
       (let ((v1-53 (-> self skel root-channel 0)))
         (set! (-> v1-53 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
         )
       )
      ((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 8))
            (< (-> self children-spawned) 10)
            )
       (+! (-> self children-spawned) 1)
       (let ((gp-0 (get-process *default-dead-pool* green-eco-lurker-gen #x4000)))
         (when gp-0
           (let ((t9-16 (method-of-type green-eco-lurker-gen activate)))
             (t9-16 (the-as green-eco-lurker-gen gp-0) self 'green-eco-lurker-gen (the-as pointer #x70004000))
             )
           (run-now-in-process
             gp-0
             green-eco-lurker-gen-init-by-other
             (-> self entity)
             (-> self entity extra trans)
             (-> self dda num-blobs)
             )
           (-> gp-0 ppointer)
           )
         )
       (set! (-> self old-loc quad) (-> self desired-loc quad))
       (set-vector! (-> self desired-loc) 24576.0 0.0 655360.0 1.0)
       (set! (-> self loc-t) 0.0)
       (set! (-> self loc-t-start) (-> *display* game-frame-counter))
       (set! (-> self loc-t-duration) (seconds 3))
       (set! (-> self desired-pool-y) -26624.0)
       )
      ((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 8.2))
            (< (-> self children-spawned) 11)
            )
       (+! (-> self children-spawned) 1)
       (robotboss-yellow-eco-on)
       )
      )
    (robotboss-position)
    (none)
    )
  :code
  (behavior ()
    (let ((a0-0 (-> self skel root-channel 0)))
      (set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
      (set! (-> a0-0 param 1) 1.0)
      (joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (while #t
      (cond
        ((= (if (> (-> self skel active-channels) 0)
                (-> self skel root-channel 0 frame-group)
                )
            (-> self draw art-group data 13)
            )
         (go robotboss-green-dark-bomb)
         )
        ((not (= (if (> (-> self skel active-channels) 0)
                     (-> self skel root-channel 0 frame-group)
                     )
                 (-> self draw art-group data 6)
                 )
              )
         (ja-channel-push! 1 60)
         (let ((v1-25 (-> self skel root-channel 0)))
           (set! (-> v1-25 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
           )
         )
        )
      (let ((a0-14 (-> self skel root-channel 0)))
        (set! (-> a0-14 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-14 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-14 param 1) 1.0)
        (set! (-> a0-14 frame-num) 0.0)
        (joint-control-channel-group!
          a0-14
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-15 (-> self skel root-channel 0)))
          (set! (-> a0-15 param 0) (the float (+ (-> a0-15 frame-group data 0 length) -1)))
          (set! (-> a0-15 param 1) 1.0)
          (joint-control-channel-group-eval! a0-15 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; failed to figure out what this is:
(defstate robotboss-green (robotboss)
  :event
  robotboss-handler
  :enter
  (behavior ()
    (set! (-> self old-loc quad) (-> self desired-loc quad))
    (set-vector! (-> self desired-loc) 24576.0 0.0 245760.0 1.0)
    (set! (-> self loc-t) 0.0)
    (set! (-> self loc-t-start) (-> *display* game-frame-counter))
    (set! (-> self loc-t-duration) (seconds 3))
    (set! (-> self desired-pool-y) -26624.0)
    (play-ambient (-> self ambient) "GOL-AM01" #t (the-as vector #f))
    (set-setting! *setting-control* self 'sound-flava #f (the-as float 40.0) 47)
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-green-wait)
    (if (>= (-> self loc-t) 1.0)
        (go robotboss-green-wait)
        )
    (robotboss-position)
    (none)
    )
  :code
  (behavior ()
    (let ((a0-0 (-> self skel root-channel 0)))
      (set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
      (set! (-> a0-0 param 1) 1.0)
      (joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (ja-channel-push! 1 60)
    (let ((v1-11 (-> self skel root-channel 0)))
      (set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 10)))
      )
    (let ((a0-6 (-> self skel root-channel 0)))
      (set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-6 param 1) 1.0)
      (set! (-> a0-6 frame-num) 0.0)
      (joint-control-channel-group!
        a0-6
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (suspend)
      (let ((a0-7 (-> self skel root-channel 0)))
        (set! (-> a0-7 param 0) (the float (+ (-> a0-7 frame-group data 0 length) -1)))
        (set! (-> a0-7 param 1) 1.0)
        (joint-control-channel-group-eval! a0-7 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (while #t
      (when (not (= (if (> (-> self skel active-channels) 0)
                        (-> self skel root-channel 0 frame-group)
                        )
                    (-> self draw art-group data 6)
                    )
                 )
        (ja-channel-push! 1 60)
        (let ((v1-50 (-> self skel root-channel 0)))
          (set! (-> v1-50 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
          )
        )
      (let ((a0-17 (-> self skel root-channel 0)))
        (set! (-> a0-17 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-17 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-17 param 1) 1.0)
        (set! (-> a0-17 frame-num) 0.0)
        (joint-control-channel-group!
          a0-17
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-18 (-> self skel root-channel 0)))
          (set! (-> a0-18 param 0) (the float (+ (-> a0-18 frame-group data 0 length) -1)))
          (set! (-> a0-18 param 1) 1.0)
          (joint-control-channel-group-eval! a0-18 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; failed to figure out what this is:
(defstate robotboss-blue-dark-bomb-wait (robotboss)
  :event
  robotboss-bomb-handler
  :enter
  (behavior ()
    (set! (-> self children-spawned) 0)
    0
    (none)
    )
  :exit
  (behavior ()
    (set! (-> self ignore-camera) #f)
    (set! (-> self des-cam-entity) #f)
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-green)
    (if (and (< (-> self children-spawned) 0)
             (or (not *target*) (!= (-> *target* control unknown-surface00 name) 'launch-jump))
             )
        (go robotboss-green)
        )
    (robotboss-position)
    (none)
    )
  :code
  (behavior ()
    (let ((a0-0 (-> self skel root-channel 0)))
      (set! (-> a0-0 param 0) (the float (+ (-> a0-0 frame-group data 0 length) -1)))
      (set! (-> a0-0 param 1) 1.0)
      (joint-control-channel-group! a0-0 (the-as art-joint-anim #f) num-func-seek!)
      )
    (while (not (ja-done? 0))
      (suspend)
      (ja-eval)
      )
    (ja-channel-push! 1 30)
    (let ((v1-11 (-> self skel root-channel 0)))
      (set! (-> v1-11 frame-group) (the-as art-joint-anim (-> self draw art-group data 9)))
      )
    (let ((a0-6 (-> self skel root-channel 0)))
      (set! (-> a0-6 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-6 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-6 param 1) 1.0)
      (set! (-> a0-6 frame-num) 0.0)
      (joint-control-channel-group!
        a0-6
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (when (and (>= (ja-frame-num 0) 15.0) (< (-> self children-spawned) 1))
        (robotboss-darkecobomb (new 'static 'vector :y 32768.0) (the-as float 3600.0))
        (set! (-> self des-cam-entity) "camera-365")
        (play-ambient (-> self ambient) "MAI-AM04" #t (the-as vector #f))
        )
      (suspend)
      (let ((a0-10 (-> self skel root-channel 0)))
        (set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
        (set! (-> a0-10 param 1) 1.0)
        (joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (while #t
      (cond
        ((and *target* (< (+ 81920.0 (-> self entity extra trans y)) (-> (target-pos 0) y)))
         (when (not (= (if (> (-> self skel active-channels) 0)
                           (-> self skel root-channel 0 frame-group)
                           )
                       (-> self draw art-group data 7)
                       )
                    )
           (ja-channel-push! 1 240)
           (let ((v1-64 (-> self skel root-channel 0)))
             (set! (-> v1-64 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
             )
           )
         )
        ((not (= (if (> (-> self skel active-channels) 0)
                     (-> self skel root-channel 0 frame-group)
                     )
                 (-> self draw art-group data 6)
                 )
              )
         (ja-channel-push! 1 60)
         (let ((v1-73 (-> self skel root-channel 0)))
           (set! (-> v1-73 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
           )
         )
        )
      (let ((a0-30 (-> self skel root-channel 0)))
        (set! (-> a0-30 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-30 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-30 param 1) 1.0)
        (set! (-> a0-30 frame-num) 0.0)
        (joint-control-channel-group!
          a0-30
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-31 (-> self skel root-channel 0)))
          (set! (-> a0-31 param 0) (the float (+ (-> a0-31 frame-group data 0 length) -1)))
          (set! (-> a0-31 param 1) 1.0)
          (joint-control-channel-group-eval! a0-31 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; failed to figure out what this is:
(defstate robotboss-blue-dark-bomb (robotboss)
  :enter
  (behavior ()
    (set! (-> self old-loc quad) (-> self desired-loc quad))
    (set-vector! (-> self desired-loc) 16384.0 -118784.0 614400.0 1.0)
    (set! (-> self loc-t) 0.0)
    (set! (-> self loc-t-start) (-> *display* game-frame-counter))
    (set! (-> self loc-t-duration) (seconds 3))
    (set! (-> self desired-pool-y) -28672.0)
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-blue-dark-bomb-wait)
    (robotboss-position)
    (if (>= (-> self loc-t) 1.0)
        (go robotboss-blue-dark-bomb-wait)
        )
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 60)
    (let ((v1-2 (-> self skel root-channel 0)))
      (set! (-> v1-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
      )
    (let ((a0-4 (-> self skel root-channel 0)))
      (set! (-> a0-4 frame-group) (if (> (-> self skel active-channels) 0)
                                      (-> self skel root-channel 0 frame-group)
                                      )
            )
      (set! (-> a0-4 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                    (-> self skel root-channel 0 frame-group)
                                                    )
                                                data
                                                0
                                                length
                                                )
                                            -1
                                            )
                                   )
            )
      (set! (-> a0-4 param 1) 1.0)
      (set! (-> a0-4 frame-num) 0.0)
      (joint-control-channel-group!
        a0-4
        (if (> (-> self skel active-channels) 0)
            (-> self skel root-channel 0 frame-group)
            )
        num-func-seek!
        )
      )
    (until (ja-done? 0)
      (suspend)
      (let ((a0-5 (-> self skel root-channel 0)))
        (set! (-> a0-5 param 0) (the float (+ (-> a0-5 frame-group data 0 length) -1)))
        (set! (-> a0-5 param 1) 1.0)
        (joint-control-channel-group-eval! a0-5 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (when (not (= (if (> (-> self skel active-channels) 0)
                      (-> self skel root-channel 0 frame-group)
                      )
                  (-> self draw art-group data 6)
                  )
               )
      (ja-channel-push! 1 60)
      (let ((v1-41 (-> self skel root-channel 0)))
        (set! (-> v1-41 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
        )
      )
    (while #t
      (let ((a0-15 (-> self skel root-channel 0)))
        (set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-15 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-15 param 1) 1.0)
        (set! (-> a0-15 frame-num) 0.0)
        (joint-control-channel-group!
          a0-15
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-16 (-> self skel root-channel 0)))
          (set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
          (set! (-> a0-16 param 1) 1.0)
          (joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; definition for function robotboss-blue-beam
;; INFO: Return type mismatch object vs none.
;; Used lq/sq
(defbehavior robotboss-blue-beam robotboss ((arg0 int) (arg1 symbol))
  (let ((s4-0 (new 'stack-no-clear 'vector))
        (gp-0 (new 'stack-no-clear 'vector))
        )
    (let ((s3-0 (new 'stack-no-clear 'vector)))
      (set! (-> gp-0 quad) (-> self entity extra trans quad))
      (vector<-cspace! s4-0 (-> self node-list data arg0))
      (vector-! s3-0 gp-0 s4-0)
      (let ((f30-0 (vector-y-angle s3-0))
            (f0-1 (- 16384.0 (vector-x-angle s3-0)))
            )
        (set! (-> *part-id-table* 2546 init-specs 14 initial-valuef) f30-0)
        (set! (-> *part-id-table* 2546 init-specs 13 initial-valuef) f0-1)
        (set! (-> *part-id-table* 2548 init-specs 14 initial-valuef) f30-0)
        (set! (-> *part-id-table* 2548 init-specs 13 initial-valuef) f0-1)
        (set! (-> *part-id-table* 2545 init-specs 14 initial-valuef) f30-0)
        (set! (-> *part-id-table* 2545 init-specs 13 initial-valuef) f0-1)
        )
      )
    (cond
      ((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 0.4))
            (= (if (> (-> self skel active-channels) 0)
                   (-> self skel root-channel 0 frame-group)
                   )
               (-> self draw art-group data 3)
               )
            )
       (spawn (-> self particle 0) s4-0)
       (when (and arg1 (nonzero? (-> self looping-sound 0)))
         (update! (-> self looping-sound 0))
         (when (and *target* (zero? (logand (-> *target* state-flags) #x80f8)))
           (let ((t2-0 (new 'stack-no-clear 'collide-tri-result))
                 (a2-0 (new 'stack-no-clear 'vector))
                 )
             (vector-! a2-0 gp-0 s4-0)
             (when (>= (fill-and-probe-using-line-sphere
                         *collide-cache*
                         s4-0
                         a2-0
                         (the-as float 4096.0)
                         (collide-kind target)
                         self
                         t2-0
                         1
                         )
                       0.0
                       )
               (let ((a1-13 (new 'stack-no-clear 'event-message-block)))
                 (set! (-> a1-13 from) self)
                 (set! (-> a1-13 num-params) 2)
                 (set! (-> a1-13 message) 'attack)
                 (set! (-> a1-13 param 0) (the-as uint #f))
                 (let ((v1-50 (new 'static 'attack-info :mask #xc0)))
                   (set! (-> v1-50 shove-up) 10240.0)
                   (set! (-> v1-50 shove-back) 30720.0)
                   (set! (-> a1-13 param 1) (the-as uint v1-50))
                   )
                 (send-event-function *target* a1-13)
                 )
               )
             )
           )
         )
       )
      ((nonzero? (-> self looping-sound 0))
       (stop! (-> self looping-sound 0))
       )
      )
    (cond
      ((and (>= (- (-> *display* game-frame-counter) (-> self state-time)) (seconds 1.4))
            (not (= (if (> (-> self skel active-channels) 0)
                        (-> self skel root-channel 0 frame-group)
                        )
                    (-> self draw art-group data 5)
                    )
                 )
            )
       (spawn (-> self particle 1) gp-0)
       (when (and arg1 (nonzero? (-> self looping-sound 1)))
         (update! (-> self looping-sound 1))
         (when (and *target*
                    (zero? (logand (-> *target* state-flags) #x80f8))
                    (>= 8192.0 (vector-vector-distance gp-0 (target-pos 0)))
                    )
           (let ((a1-16 (new 'stack-no-clear 'event-message-block)))
             (set! (-> a1-16 from) self)
             (set! (-> a1-16 num-params) 2)
             (set! (-> a1-16 message) 'attack)
             (set! (-> a1-16 param 0) (the-as uint #f))
             (let ((v1-80 (new 'static 'attack-info :mask #xc0)))
               (set! (-> v1-80 shove-up) 10240.0)
               (set! (-> v1-80 shove-back) 30720.0)
               (set! (-> a1-16 param 1) (the-as uint v1-80))
               )
             (send-event-function *target* a1-16)
             )
           )
         )
       )
      ((nonzero? (-> self looping-sound 1))
       (stop! (-> self looping-sound 1))
       )
      )
    )
  (none)
  )

;; definition for function robotboss-set-dda
;; INFO: Return type mismatch robotboss-dda vs none.
(defbehavior robotboss-set-dda robotboss ()
  0
  (let ((gp-0 (-> self entity extra perm)))
    (logior! (-> gp-0 status) (entity-perm-status user-set-from-cstage))
    (seekl! (-> gp-0 user-int8 0) 255 1)
    (let ((v1-5 (-> gp-0 user-int8 0)))
      (set! (-> self dda) (cond
                            ((< 15 v1-5)
                             (new 'static 'robotboss-dda
                               :blue-bomb-time 4800.0
                               :num-blobs 8
                               :green-bomb-time 4200.0
                               :red-shots-min 3
                               :red-shot-time-min 5400.0
                               :red-shot-time-rnd 600.0
                               :red-bomb-time 3600.0
                               :yellow-shot-time-min 1800.0
                               :yellow-gun-hits 7
                               :yellow-bomb-time 4800.0
                               )
                             )
                            ((< 10 v1-5)
                             (new 'static 'robotboss-dda
                               :blue-bomb-time 4800.0
                               :num-blobs 10
                               :green-bomb-time 4200.0
                               :red-shots-min 4
                               :red-shot-time-min 4800.0
                               :red-shot-time-rnd 600.0
                               :red-bomb-time 3600.0
                               :yellow-shot-time-min 1500.0
                               :yellow-gun-hits 10
                               :yellow-bomb-time 4800.0
                               )
                             )
                            ((< 5 v1-5)
                             (new 'static 'robotboss-dda
                               :blue-bomb-time 4800.0
                               :num-blobs 11
                               :green-bomb-time 4200.0
                               :red-shots-min 4
                               :red-shot-time-min 4200.0
                               :red-shot-time-rnd 600.0
                               :red-bomb-time 3600.0
                               :yellow-shot-time-min 1200.0
                               :yellow-gun-hits 13
                               :yellow-bomb-time 4800.0
                               )
                             )
                            (else
                              (new 'static 'robotboss-dda
                                :blue-bomb-time 4800.0
                                :num-blobs 12
                                :green-bomb-time 4200.0
                                :red-shots-min 5
                                :red-shot-time-min 3600.0
                                :red-shot-time-rnd 600.0
                                :red-bomb-time 3600.0
                                :yellow-shot-time-min 900.0
                                :yellow-gun-hits 16
                                :yellow-bomb-time 4800.0
                                )
                              )
                            )
            )
      )
    )
  (none)
  )

;; definition for function robotboss-blue-done
(defbehavior robotboss-blue-done robotboss ()
  (robotboss-yellow-eco-off)
  (let ((a1-0 (new 'stack-no-clear 'event-message-block)))
    (set! (-> a1-0 from) self)
    (set! (-> a1-0 num-params) 0)
    (set! (-> a1-0 message) 'show)
    (let ((t9-1 send-event-function)
          (v1-1 (-> self alts 11))
          )
      (t9-1
        (if v1-1
            (-> v1-1 extra process)
            )
        a1-0
        )
      )
    )
  )

;; failed to figure out what this is:
(defstate robotboss-blue-wait (robotboss)
  :event
  robotboss-handler
  :enter
  (behavior ()
    (set! (-> self state-time) (-> *display* game-frame-counter))
    (robotboss-setup-for-hits 4 5)
    (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-1 from) self)
      (set! (-> a1-1 num-params) 0)
      (set! (-> a1-1 message) 'hide)
      (let ((t9-1 send-event-function)
            (v1-3 (-> self alts 11))
            )
        (t9-1
          (if v1-3
              (-> v1-3 extra process)
              )
          a1-1
          )
        )
      )
    (process-entity-status! self (entity-perm-status bit-3) #t)
    (set! (-> self use-interesting) #t)
    (robotboss-yellow-eco-on)
    (none)
    )
  :exit
  (behavior ()
    (let ((a0-1 (handle->process (-> self shot-attractor))))
      (if a0-1
          (deactivate a0-1)
          )
      )
    (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-1 from) self)
      (set! (-> a1-1 num-params) 1)
      (set! (-> a1-1 message) 'open)
      (set! (-> a1-1 param 0) (the-as uint (-> *part-group-id-table* 674)))
      (let ((t9-1 send-event-function)
            (v1-10 (-> self alts 3))
            )
        (t9-1
          (if v1-10
              (-> v1-10 extra process)
              )
          a1-1
          )
        )
      )
    (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
      (set! (-> a1-2 from) self)
      (set! (-> a1-2 num-params) 1)
      (set! (-> a1-2 message) 'open)
      (set! (-> a1-2 param 0) (the-as uint 0.1))
      (let ((t9-2 send-event-function)
            (v1-17 (-> self alts 0))
            )
        (t9-2
          (if v1-17
              (-> v1-17 extra process)
              )
          a1-2
          )
        )
      )
    (set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 0 collide-with)
          (collide-kind)
          )
    (set! (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 0 prim-core collide-as)
          (collide-kind)
          )
    (set! (-> self use-interesting) #f)
    (send-event *camera* 'point-of-interest #f)
    (robotboss-blue-done)
    (if (nonzero? (-> self looping-sound 0))
        (stop! (-> self looping-sound 0))
        )
    (if (nonzero? (-> self looping-sound 1))
        (stop! (-> self looping-sound 1))
        )
    (robotboss-set-dda)
    (robotboss-cut-cam-exit)
    (none)
    )
  :trans
  (behavior ()
    (robotboss-always-trans robotboss-blue-dark-bomb)
    (robotboss-shooting-trans 9)
    (cond
      ((zero? (-> self hits-to-go))
       (play-ambient (-> self ambient) "GOL-AM06" #t (the-as vector #f))
       (robotboss-blue-done)
       (set! (-> self took-hit) #f)
       (+! (-> self hits-to-go) -1)
       (ja-channel-push! 1 30)
       (let ((v1-8 (-> self skel root-channel 0)))
         (set! (-> v1-8 frame-group) (the-as art-joint-anim (-> self draw art-group data 33)))
         )
       (sound-play-by-name (static-sound-name "explod-eye") (new-sound-id) 1024 0 0 1 #t)
       (set! (-> self blue-smoke) #t)
       (let ((gp-1 (new 'stack-no-clear 'vector)))
         (vector<-cspace! gp-1 (-> self node-list data 7))
         (let ((s5-1 (get-process *default-dead-pool* part-tracker #x4000)))
           (when s5-1
             (let ((t9-9 (method-of-type part-tracker activate)))
               (t9-9 (the-as part-tracker s5-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
               )
             (run-now-in-process s5-1 part-tracker-init (-> *part-group-id-table* 644) 300 #f #f #f gp-1)
             (-> s5-1 ppointer)
             )
           )
         )
       (let* ((s5-2 (get-process *default-dead-pool* manipy #x4000))
              (gp-2
                (when s5-2
                  (let ((t9-12 (method-of-type manipy activate)))
                    (t9-12 (the-as manipy s5-2) self 'manipy (the-as pointer #x70004000))
                    )
                  (run-now-in-process s5-2 manipy-init (-> self root-override trans) (-> self entity) *robotboss-blueeco-sg* #f)
                  (-> s5-2 ppointer)
                  )
                )
              )
         (send-event (ppointer->process (-> self parent)) 'flash 255.0)
         (send-event (ppointer->process gp-2) 'anim-mode 'play1)
         (send-event (ppointer->process gp-2) 'rot-quat (-> self root-override quat))
         (send-event (ppointer->process gp-2) 'art-joint-anim "robotboss-blueeco-blue-last-hit")
         )
       )
      ((-> self took-hit)
       (if (not (play-ambient (-> self ambient) "GOL-AM17" #t (the-as vector #f)))
           (play-ambient (-> self ambient) "MAI-AM06" #t (the-as vector #f))
           )
       (set! (-> self took-hit) #f)
       (ja-channel-push! 1 30)
       (let ((v1-54 (-> self skel root-channel 0)))
         (set! (-> v1-54 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
         )
       )
      )
    (when (not (or (= (if (> (-> self skel active-channels) 0)
                          (-> self skel root-channel 0 frame-group)
                          )
                      (-> self draw art-group data 5)
                      )
                   (= (if (> (-> self skel active-channels) 0)
                          (-> self skel root-channel 0 frame-group)
                          )
                      (-> self draw art-group data 33)
                      )
                   )
               )
      )
    (robotboss-blue-beam 8 #t)
    (robotboss-blue-beam 9 #f)
    (when (TODO-RENAME-10 (-> self ambient) (new 'stack-no-clear 'vector) (seconds 10) (the-as float 327680.0) self)
      (let* ((v1-73 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
             (v1-74 (the-as number (logior #x3f800000 v1-73)))
             (f0-2 (+ -1.0 (the-as float v1-74)))
             )
        (cond
          ((< 0.8 f0-2)
           (play-ambient (-> self ambient) "GOL-AM02" #t (the-as vector #f))
           )
          ((< 0.6 f0-2)
           (play-ambient (-> self ambient) "GOL-AM10" #t (the-as vector #f))
           )
          ((< 0.4 f0-2)
           (play-ambient (-> self ambient) "MAI-AM08" #t (the-as vector #f))
           )
          ((< 0.2 f0-2)
           (play-ambient (-> self ambient) "MAI-AM03" #t (the-as vector #f))
           )
          (else
            (play-ambient (-> self ambient) "GOL-AM07" #t (the-as vector #f))
            )
          )
        )
      )
    (robotboss-position)
    (robotboss-cut-cam (the-as float 5.0) (the-as float 50.0) (the-as int (-> self draw art-group data 5)))
    (none)
    )
  :code
  (behavior ()
    (ja-channel-push! 1 120)
    (let ((a0-1 (-> self skel root-channel 0)))
      (set! (-> a0-1 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
      (set! (-> a0-1 param 0)
            (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
            )
      (set! (-> a0-1 param 1) 1.0)
      (set! (-> a0-1 frame-num) 0.0)
      (joint-control-channel-group! a0-1 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
      )
    (until (ja-done? 0)
      (suspend)
      (let ((a0-2 (-> self skel root-channel 0)))
        (set! (-> a0-2 param 0) (the float (+ (-> a0-2 frame-group data 0 length) -1)))
        (set! (-> a0-2 param 1) 1.0)
        (joint-control-channel-group-eval! a0-2 (the-as art-joint-anim #f) num-func-seek!)
        )
      )
    (while #t
      (when (not (= (if (> (-> self skel active-channels) 0)
                        (-> self skel root-channel 0 frame-group)
                        )
                    (-> self draw art-group data 3)
                    )
                 )
        (ja-channel-push! 1 60)
        (let ((v1-32 (-> self skel root-channel 0)))
          (set! (-> v1-32 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
          )
        )
      (let ((a0-12 (-> self skel root-channel 0)))
        (set! (-> a0-12 frame-group) (if (> (-> self skel active-channels) 0)
                                         (-> self skel root-channel 0 frame-group)
                                         )
              )
        (set! (-> a0-12 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                       (-> self skel root-channel 0 frame-group)
                                                       )
                                                   data
                                                   0
                                                   length
                                                   )
                                               -1
                                               )
                                      )
              )
        (set! (-> a0-12 param 1) 1.0)
        (set! (-> a0-12 frame-num) 0.0)
        (joint-control-channel-group!
          a0-12
          (if (> (-> self skel active-channels) 0)
              (-> self skel root-channel 0 frame-group)
              )
          num-func-seek!
          )
        )
      (until (ja-done? 0)
        (suspend)
        (let ((a0-13 (-> self skel root-channel 0)))
          (set! (-> a0-13 param 0) (the float (+ (-> a0-13 frame-group data 0 length) -1)))
          (set! (-> a0-13 param 1) 1.0)
          (joint-control-channel-group-eval! a0-13 (the-as art-joint-anim #f) num-func-seek!)
          )
        )
      (when (<= (-> self hits-to-go) 0)
        (let ((a1-6 (new 'stack-no-clear 'event-message-block)))
          (set! (-> a1-6 from) self)
          (set! (-> a1-6 num-params) 1)
          (set! (-> a1-6 message) 'target)
          (set! (-> a1-6 param 0) (the-as uint 0.0))
          (let ((t9-8 send-event-function)
                (v1-69 (-> self alts 12))
                )
            (t9-8
              (if v1-69
                  (-> v1-69 extra process)
                  )
              a1-6
              )
            )
          )
        (ja-channel-push! 1 30)
        (let ((v1-74 (-> self skel root-channel 0)))
          (set! (-> v1-74 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
          )
        (let ((a0-20 (-> self skel root-channel 0)))
          (set! (-> a0-20 frame-group) (if (> (-> self skel active-channels) 0)
                                           (-> self skel root-channel 0 frame-group)
                                           )
                )
          (set! (-> a0-20 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
                                                         (-> self skel root-channel 0 frame-group)
                                                         )
                                                     data
                                                     0
                                                     length
                                                     )
                                                 -1
                                                 )
                                        )
                )
          (set! (-> a0-20 param 1) 1.0)
          (set! (-> a0-20 frame-num) 0.0)
          (joint-control-channel-group!
            a0-20
            (if (> (-> self skel active-channels) 0)
                (-> self skel root-channel 0 frame-group)
                )
            num-func-seek!
            )
          )
        (until (ja-done? 0)
          (suspend)
          (let ((a0-21 (-> self skel root-channel 0)))
            (set! (-> a0-21 param 0) (the float (+ (-> a0-21 frame-group data 0 length) -1)))
            (set! (-> a0-21 param 1) 1.0)
            (joint-control-channel-group-eval! a0-21 (the-as art-joint-anim #f) num-func-seek!)
            )
          )
        (go robotboss-blue-dark-bomb)
        )
      )
    (none)
    )
  :post
  (the-as (function none :behavior robotboss) transform-post)
  )

;; definition for method 11 of type robotboss
;; INFO: Return type mismatch object vs none.
;; Used lq/sq
(defmethod init-from-entity! robotboss ((obj robotboss) (arg0 entity-actor))
  (stack-size-set! (-> obj main-thread) 512)
  (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player))))
    (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
    (set! (-> s4-0 reaction) default-collision-reaction)
    (set! (-> s4-0 no-reaction)
          (the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
          )
    (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 19) 0)))
      (set! (-> s3-0 prim-core collide-as) (collide-kind ground-object))
      (set! (-> s3-0 collide-with) (collide-kind target))
      (set! (-> s3-0 prim-core action) (collide-action solid))
      (set! (-> s3-0 transform-index) 0)
      (set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 368640.0)
      (set-root-prim! s4-0 s3-0)
      (let ((s2-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 4))))
        (set! (-> s2-0 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-0 collide-with) (collide-kind target))
        (set! (-> s2-0 prim-core action) (collide-action solid))
        (set! (-> s2-0 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-0 transform-index) 7)
        (set-vector! (-> s2-0 local-sphere) 0.0 0.0 0.0 32768.0)
        (append-prim s3-0 s2-0)
        )
      (let ((s2-1 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 0))))
        (set! (-> s2-1 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-1 collide-with) (collide-kind target))
        (set! (-> s2-1 prim-core action) (collide-action solid))
        (set! (-> s2-1 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-1 transform-index) 6)
        (set-vector! (-> s2-1 local-sphere) 0.0 0.0 0.0 57344.0)
        (append-prim s3-0 s2-1)
        )
      (let ((s2-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0))))
        (set! (-> s2-2 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-2 collide-with) (collide-kind target))
        (set! (-> s2-2 prim-core action) (collide-action solid))
        (set! (-> s2-2 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-2 transform-index) 6)
        (set-vector! (-> s2-2 local-sphere) 0.0 -57344.0 61440.0 73728.0)
        (append-prim s3-0 s2-2)
        )
      (let ((s2-3 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 3) (the-as uint 8))))
        (set! (-> s2-3 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-3 collide-with) (collide-kind target))
        (set! (-> s2-3 prim-core action) (collide-action solid))
        (set! (-> s2-3 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-3 transform-index) 16)
        (set-vector! (-> s2-3 local-sphere) 0.0 -20480.0 69632.0 237568.0)
        (append-prim s3-0 s2-3)
        )
      (let ((s2-4 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 4) (the-as uint 0))))
        (set! (-> s2-4 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-4 collide-with) (collide-kind target))
        (set! (-> s2-4 prim-core action) (collide-action solid))
        (set! (-> s2-4 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-4 transform-index) 14)
        (set-vector! (-> s2-4 local-sphere) 0.0 0.0 0.0 81920.0)
        (append-prim s3-0 s2-4)
        )
      (let ((s2-5 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 5) (the-as uint 1))))
        (set! (-> s2-5 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-5 collide-with) (collide-kind target))
        (set! (-> s2-5 prim-core action) (collide-action solid))
        (set! (-> s2-5 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-5 transform-index) 39)
        (set-vector! (-> s2-5 local-sphere) 0.0 0.0 0.0 69632.0)
        (append-prim s3-0 s2-5)
        )
      (let ((s2-6 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 6) (the-as uint 0))))
        (set! (-> s2-6 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-6 collide-with) (collide-kind target))
        (set! (-> s2-6 prim-core action) (collide-action solid))
        (set! (-> s2-6 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-6 transform-index) 31)
        (set-vector! (-> s2-6 local-sphere) 0.0 -57344.0 0.0 90112.0)
        (append-prim s3-0 s2-6)
        )
      (let ((s2-7 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 7) (the-as uint 0))))
        (set! (-> s2-7 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-7 collide-with) (collide-kind target))
        (set! (-> s2-7 prim-core action) (collide-action solid))
        (set! (-> s2-7 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-7 transform-index) 30)
        (set-vector! (-> s2-7 local-sphere) 0.0 24576.0 0.0 81920.0)
        (append-prim s3-0 s2-7)
        )
      (let ((s2-8 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 8) (the-as uint 0))))
        (set! (-> s2-8 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-8 collide-with) (collide-kind target))
        (set! (-> s2-8 prim-core action) (collide-action solid))
        (set! (-> s2-8 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-8 transform-index) 57)
        (set-vector! (-> s2-8 local-sphere) 0.0 0.0 0.0 81920.0)
        (append-prim s3-0 s2-8)
        )
      (let ((s2-9 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 9) (the-as uint 2))))
        (set! (-> s2-9 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-9 collide-with) (collide-kind target))
        (set! (-> s2-9 prim-core action) (collide-action solid))
        (set! (-> s2-9 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-9 transform-index) 68)
        (set-vector! (-> s2-9 local-sphere) 0.0 0.0 0.0 49152.0)
        (append-prim s3-0 s2-9)
        )
      (let ((s2-10 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 10) (the-as uint 0))))
        (set! (-> s2-10 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-10 collide-with) (collide-kind target))
        (set! (-> s2-10 prim-core action) (collide-action solid))
        (set! (-> s2-10 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-10 transform-index) 4)
        (set-vector! (-> s2-10 local-sphere) 0.0 24576.0 0.0 102400.0)
        (append-prim s3-0 s2-10)
        )
      (let ((s2-11 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 11) (the-as uint 0))))
        (set! (-> s2-11 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-11 collide-with) (collide-kind target))
        (set! (-> s2-11 prim-core action) (collide-action solid))
        (set! (-> s2-11 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-11 transform-index) 77)
        (set-vector! (-> s2-11 local-sphere) 0.0 0.0 0.0 73728.0)
        (append-prim s3-0 s2-11)
        )
      (let ((s2-12 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 12) (the-as uint 0))))
        (set! (-> s2-12 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-12 collide-with) (collide-kind target))
        (set! (-> s2-12 prim-core action) (collide-action solid))
        (set! (-> s2-12 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-12 transform-index) 75)
        (set-vector! (-> s2-12 local-sphere) 0.0 24576.0 0.0 81920.0)
        (append-prim s3-0 s2-12)
        )
      (let ((s2-13 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 13) (the-as uint 0))))
        (set! (-> s2-13 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-13 collide-with) (collide-kind target))
        (set! (-> s2-13 prim-core action) (collide-action solid))
        (set! (-> s2-13 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-13 transform-index) 74)
        (set-vector! (-> s2-13 local-sphere) 0.0 40960.0 0.0 73728.0)
        (append-prim s3-0 s2-13)
        )
      (let ((s2-14 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 14) (the-as uint 0))))
        (set! (-> s2-14 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-14 collide-with) (collide-kind target))
        (set! (-> s2-14 prim-core action) (collide-action solid))
        (set! (-> s2-14 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-14 transform-index) 73)
        (set-vector! (-> s2-14 local-sphere) 0.0 32768.0 0.0 61440.0)
        (append-prim s3-0 s2-14)
        )
      (let ((s2-15 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 15) (the-as uint 0))))
        (set! (-> s2-15 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-15 collide-with) (collide-kind target))
        (set! (-> s2-15 prim-core action) (collide-action solid))
        (set! (-> s2-15 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-15 transform-index) 84)
        (set-vector! (-> s2-15 local-sphere) 0.0 40960.0 -8192.0 98304.0)
        (append-prim s3-0 s2-15)
        )
      (let ((s2-16 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 16) (the-as uint 0))))
        (set! (-> s2-16 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-16 collide-with) (collide-kind target))
        (set! (-> s2-16 prim-core action) (collide-action solid))
        (set! (-> s2-16 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-16 transform-index) 83)
        (set-vector! (-> s2-16 local-sphere) 0.0 65536.0 0.0 73728.0)
        (append-prim s3-0 s2-16)
        )
      (let ((s2-17 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 17) (the-as uint 0))))
        (set! (-> s2-17 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-17 collide-with) (collide-kind target))
        (set! (-> s2-17 prim-core action) (collide-action solid))
        (set! (-> s2-17 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-17 transform-index) 82)
        (set-vector! (-> s2-17 local-sphere) 0.0 32768.0 0.0 61440.0)
        (append-prim s3-0 s2-17)
        )
      (let ((s2-18 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 18) (the-as uint 0))))
        (set! (-> s2-18 prim-core collide-as) (collide-kind ground-object))
        (set! (-> s2-18 collide-with) (collide-kind target))
        (set! (-> s2-18 prim-core action) (collide-action solid))
        (set! (-> s2-18 prim-core offense) (collide-offense indestructible))
        (set! (-> s2-18 transform-index) 3)
        (set-vector! (-> s2-18 local-sphere) 0.0 0.0 0.0 61440.0)
        (append-prim s3-0 s2-18)
        )
      )
    (set! (-> s4-0 nav-radius) 4096.0)
    (backup-collide-with-as s4-0)
    (set! (-> obj root-override) s4-0)
    )
  (process-drawable-from-entity! obj arg0)
  (initialize-skeleton obj *robotboss-sg* '())
  (aybabtu 2)
  (set! (-> obj nav) (new 'process 'nav-control (-> obj root-override) 16 (the-as float 40960.0)))
  (logior! (-> obj nav flags) (nav-control-flags display-marks navcf3 navcf5 navcf6 navcf7))
  (logclear! (-> obj root-override nav-flags) (nav-flags navf0))
  (set! (-> obj path) (new 'process 'path-control obj 'path (the-as float 0.0)))
  (logior! (-> obj path flags) (path-control-flag display draw-line draw-point draw-text))
  (logclear! (-> obj mask) (process-mask actor-pause))
  (set! (-> obj root-override pause-adjust-distance) 1228800.0)
  (set-vector! (-> obj old-loc) 8192.0 0.0 245760.0 1.0)
  (set! (-> obj desired-loc quad) (-> obj old-loc quad))
  (set! (-> obj loc-t) 1.0)
  (set! (-> obj loc-t-duration) 1)
  (set! (-> obj loc-t-start) 0)
  (set! (-> obj shot-attractor) (the-as handle #f))
  (set! (-> obj white-eco) (the-as handle #f))
  (set! (-> obj desired-pool-y) -30720.0)
  (set! (-> obj des-cam-entity) #f)
  (set! (-> obj use-interesting) #f)
  (set! (-> obj ignore-camera) #f)
  (dotimes (v1-211 13)
    (set! (-> obj alts v1-211) #f)
    )
  (let ((s5-1 (entity-actor-count (-> obj entity) 'alt-actor)))
    (dotimes (s4-1 (min 13 s5-1))
      (set! (-> obj alts s4-1) (entity-actor-lookup (-> obj entity) 'alt-actor s4-1))
      )
    )
  (set! (-> obj particle 0) (create-launch-control (-> *part-group-id-table* 636) obj))
  (set! (-> obj particle 1) (create-launch-control (-> *part-group-id-table* 637) obj))
  (set! (-> obj particle 2) (create-launch-control (-> *part-group-id-table* 645) obj))
  (set! (-> obj particle 3) (create-launch-control (-> *part-group-id-table* 650) obj))
  (set! (-> obj particle 4) (create-launch-control (-> *part-group-id-table* 654) obj))
  (set! (-> obj particle 5) (create-launch-control (-> *part-group-id-table* 646) obj))
  (set! (-> obj particle 6) (create-launch-control (-> *part-group-id-table* 651) obj))
  (set! (-> obj looping-sound 0) (new
                                   'process
                                   'ambient-sound
                                   (new 'static 'sound-spec
                                     :mask #x80
                                     :num 1.0
                                     :group #x1
                                     :sound-name (static-sound-name "robo-blue-lp")
                                     :volume #x400
                                     :fo-max 80
                                     )
                                   (-> obj root-override trans)
                                   )
        )
  (set! (-> obj looping-sound 1) (new
                                   'process
                                   'ambient-sound
                                   (new 'static 'sound-spec
                                     :mask #x80
                                     :num 1.0
                                     :group #x1
                                     :sound-name (static-sound-name "eco-torch")
                                     :volume #x400
                                     :fo-max 80
                                     )
                                   (-> obj root-override trans)
                                   )
        )
  (set! (-> obj looping-sound 2) (new
                                   'process
                                   'ambient-sound
                                   (new 'static 'sound-spec
                                     :mask #x80
                                     :num 1.0
                                     :group #x1
                                     :sound-name (static-sound-name "red-buzz")
                                     :volume #x400
                                     :fo-max 80
                                     )
                                   (-> obj root-override trans)
                                   )
        )
  (set! (-> obj looping-sound 3) (new
                                   'process
                                   'ambient-sound
                                   (new 'static 'sound-spec
                                     :mask #x80
                                     :num 1.0
                                     :group #x1
                                     :sound-name (static-sound-name "bfg-buzz")
                                     :volume #x400
                                     :fo-max 80
                                     )
                                   (-> obj root-override trans)
                                   )
        )
  (set! (-> obj blue-smoke) #f)
  (set! (-> obj red-smoke) #f)
  (set! (-> obj yellow-smoke) #f)
  (dummy-9 (-> obj ambient))
  (set! (-> obj yellow-gun) (new 'process 'joint-mod (joint-mod-handler-mode flex-blend) obj 16))
  (set-vector! (-> obj yellow-gun twist-max) 8192.0 8192.0 0.0 1.0)
  (set! (-> obj yellow-gun up) (the-as uint 1))
  (set! (-> obj yellow-gun nose) (the-as uint 2))
  (set! (-> obj yellow-gun ear) (the-as uint 0))
  (set! (-> obj yellow-gun max-dist) 819200.0)
  (set! (-> obj yellow-gun ignore-angle) 16384.0)
  (set! (-> obj palette-val) 0.0)
  (set! (-> obj dda) (new 'static 'robotboss-dda
                       :blue-bomb-time 4200.0
                       :num-blobs 12
                       :green-bomb-time 4200.0
                       :red-shots-min 5
                       :red-shot-time-min 3600.0
                       :red-shot-time-rnd 600.0
                       :red-bomb-time 3600.0
                       :yellow-shot-time-min 900.0
                       :yellow-shot-time-rnd 600.0
                       :yellow-gun-hits 5
                       :yellow-bomb-time 3600.0
                       )
        )
  (go robotboss-blue-wait)
  (none)
  )