jak-project/goal_src/jak2/levels/under/under-obs.gc

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

;; name: under-obs.gc
;; name in dgo: under-obs
;; dgos: UNB

;; DECOMP BEGINS

(defpartgroup group-bubbler-streams
  :id 500
  :bounds (static-bspherem 0 8 0 16)
  :parts ((sp-item 2197 :flags (is-3d bit6))
    (sp-item 2198 :flags (bit6))
    (sp-item 2199 :fade-after (meters 80) :falloff-to (meters 160))
    (sp-item 2200 :flags (is-3d bit6))
    (sp-item 2201 :fade-after (meters 160) :falloff-to (meters 40) :period (seconds 3.3) :length (seconds 0.017) :binding 2195)
    (sp-item 2201 :fade-after (meters 160) :falloff-to (meters 40) :period (seconds 4.6) :length (seconds 0.017) :binding 2195)
    (sp-item 2201 :fade-after (meters 160) :falloff-to (meters 40) :period (seconds 6.7) :length (seconds 0.017) :binding 2195)
    (sp-item 2201 :fade-after (meters 160) :falloff-to (meters 40) :period (seconds 13.1) :length (seconds 0.017) :binding 2195)
    (sp-item 2201 :fade-after (meters 160) :falloff-to (meters 40) :period (seconds 2) :length (seconds 0.017) :binding 2195)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2195 :flags (bit1 start-dead launch-asap) :binding 2196)
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2196 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 2202 :fade-after (meters 100) :falloff-to (meters 100))
    )
  )

(defpart 2199
  :init-specs ((:texture (new 'static 'texture-id :index #xc9 :page #xc))
    (:num 8.0)
    (:x (meters 0) (meters 2.7))
    (:y (meters 0) (meters 32))
    (:scale-x (meters 0.25))
    (:scale-y (meters 0.25) (meters 0.1))
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 0.0)
    (:vel-y (meters 0.0016666667) (meters 0.0016666667))
    (:fade-a 0.4)
    (:timer (seconds 0.535))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
    (:next-time (seconds 0.267))
    (:next-launcher 2203)
    (:rotate-y (degrees 0) (degrees 3600))
    )
  )

(defpart 2203
  :init-specs ((:fade-a -0.4))
  )

(defpart 2197
  :init-specs ((:texture (new 'static 'texture-id :index #xd3 :page #xc))
    (:birth-func 'birth-func-camera-orient)
    (:num 1.0)
    (:y (meters 299))
    (:scale-x (meters 6))
    (:rot-x (degrees 90))
    (:rot-z (degrees 0))
    (:scale-y (meters 600))
    (:r 255.0)
    (:g 255.0)
    (:b 0.0 128.0)
    (:a 32.0 4.0)
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
    )
  )

(defpart 2200
  :init-specs ((:texture (new 'static 'texture-id :index #xc9 :page #xc))
    (:num 1.0)
    (:y (meters 0.1))
    (:scale-x (meters 16))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 255.0)
    (:b 0.0 128.0)
    (:a 128.0)
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
    )
  )

(defpart 2198
  :init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
    (:num 1.0)
    (:y (meters 1))
    (:scale-x (meters 12) (meters 0.1))
    (:rot-x (degrees 33.75))
    (:scale-y (meters 20) (meters 0.1))
    (:r 255.0)
    (:g 255.0)
    (:b 0.0 128.0)
    (:a 20.0)
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow))
    (:userdata 16384.0)
    )
  )

(defpart 2202
  :init-specs ((:texture (new 'static 'texture-id :index #x21 :page #xc))
    (:num 0.1)
    (:x (meters -0.5) (meters 1.5))
    (:scale-x (meters 0.3) (meters 0.15))
    (:scale-y (meters 0.2) (meters 0.1))
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 0.0)
    (:vel-y (meters 0.016666668) (meters 0.01))
    (:fade-a 0.16)
    (:timer (seconds 16))
    (:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:userdata 0.0)
    (:func 'check-water-level-above-and-die)
    (:next-time (seconds 0.33) (seconds 0.657))
    (:next-launcher 2204)
    (:rotate-y (degrees 0) (degrees 3600))
    )
  )

(defpart 2204
  :init-specs ((:fade-a 0.0) (:next-time (seconds 1) (seconds 5.997)) (:next-launcher 2205))
  )

(defpart 2205
  :init-specs ((:scalevel-x (meters -0.00033333333) (meters -0.00066666666))
    (:scalevel-y :copy scalevel-x)
    (:fade-a -0.16)
    (:accel-y (meters -0.0001) (meters -0.0001))
    )
  )

(defpart 2201
  :init-specs ((:texture (new 'static 'texture-id :index #x21 :page #xc))
    (:num 1.0)
    (:scale-x (meters 0.3))
    (:scale-y :copy scale-x)
    (:r 0.0)
    (:a 128.0)
    (:vel-y (meters 0.016666668) (meters 0.01))
    (:timer (seconds 10))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:rotate-y (degrees 0))
    )
  )

(defpart 2195
  :init-specs ((:texture (new 'static 'texture-id :index #x21 :page #xc))
    (:num 1.0)
    (:x (meters 0) (meters 16))
    (:y (meters 0) (meters 16))
    (:z (meters 0.1))
    (:scale-x (meters 1.5))
    (:scale-y (meters 0.9))
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 0.0)
    (:omega (degrees 0))
    (:vel-x (meters -0.21333334) 1 (meters 0.42666668))
    (:vel-y (meters 0))
    (:vel-z (meters 0))
    (:scalevel-x (meters -0.0050000004))
    (:scalevel-y (meters 0.0016666667))
    (:fade-a 1.6)
    (:timer (seconds 8) (seconds 1.997))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 ready-to-launch))
    (:userdata 0.0)
    (:func 'check-water-level-above-and-die)
    (:next-time (seconds 0.1))
    (:next-launcher 2206)
    )
  )

(defpart 2206
  :init-specs ((:scale-x (meters 1.2))
    (:scale-y (meters 1))
    (:scalevel-x (meters 0.010000001))
    (:scalevel-y (meters -0.0033333334))
    (:fade-a 0.0)
    (:next-time (seconds 0.1))
    (:next-launcher 2207)
    )
  )

(defpart 2207
  :init-specs ((:scale-x (meters 1.5))
    (:scale-y (meters 0.9))
    (:scalevel-x (meters -0.010000001))
    (:scalevel-y (meters 0.0033333334))
    (:next-time (seconds 0.1))
    (:next-launcher 2206)
    )
  )

(defpart 2196
  :init-specs ((:texture (new 'static 'texture-id :index #x21 :page #xc))
    (:num 0.0 0.5)
    (:x (meters -0.25) (meters 0.5))
    (:y (meters 0.1))
    (:z (meters -0.25) (meters 0.5))
    (:scale-x (meters 0.3) (meters 0.1))
    (:scale-y (meters 0.2) (meters 0.1))
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 0.0)
    (:scalevel-x (meters -0.00033333333) (meters -0.00066666666))
    (:scalevel-y :copy scalevel-x)
    (:fade-a 0.53333336)
    (:timer (seconds 8))
    (:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:userdata 0.0)
    (:func 'check-water-level-above-and-die)
    (:next-time (seconds 0.017))
    (:next-launcher 2208)
    (:conerot-x (degrees 110) (degrees 50.000004))
    (:conerot-y (degrees 0) (degrees 360))
    (:conerot-radius (meters 0.4))
    )
  )

(defpart 2208
  :init-specs ((:vel-y (meters 0.013333334) (meters 0.0033333334))
    (:accel-y (meters -0.00006666667))
    (:next-time (seconds 0.25))
    (:next-launcher 2209)
    )
  )

(defpart 2209
  :init-specs ((:fade-a -0.08))
  )

(deftype bubbler (process-drawable)
  ((rod-of-god-scale    float)
   (ambient-id          sound-id)
   (last-recharge-time  time-frame)
   )
  (:state-methods
    idle
    hidden
    )
  )


(defstate hidden (bubbler)
  :virtual #t
  :trans (behavior ()
    (if (send-event (ppointer->process *underb-master*) 'query 'bubbler)
        (go-virtual idle)
        )
    )
  :code sleep-code
  )

(defstate idle (bubbler)
  :virtual #t
  :event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
    (case message
      (('untrigger)
       (go-virtual idle)
       )
      )
    )
  :trans (behavior ()
    (if (not (send-event (ppointer->process *underb-master*) 'query 'bubbler))
        (go-virtual hidden)
        )
    (set! (-> *part-id-table* 2197 init-specs 4 initial-valuef) (* 16384.0 (-> self rod-of-god-scale)))
    (set! (-> *part-id-table* 2197 init-specs 8 initial-valuef) 0.0)
    (set! (-> *part-id-table* 2197 init-specs 9 initial-valuef) 96.0)
    (set! (-> *part-id-table* 2197 init-specs 10 initial-valuef) 255.0)
    (set! (-> *part-id-table* 2200 init-specs 3 initial-valuef) (* 65536.0 (-> self rod-of-god-scale)))
    (set! (-> *part-id-table* 2200 init-specs 2 initial-valuef) 3686.4)
    (set! (-> *part-id-table* 2200 init-specs 5 initial-valuef) 0.0)
    (set! (-> *part-id-table* 2200 init-specs 6 initial-valuef) 96.0)
    (set! (-> *part-id-table* 2200 init-specs 7 initial-valuef) 255.0)
    (set! (-> *part-id-table* 2198 init-specs 9 initial-valuef) (* 25.0 (-> self rod-of-god-scale)))
    (set! (-> *part-id-table* 2198 init-specs 6 initial-valuef) 0.0)
    (set! (-> *part-id-table* 2198 init-specs 7 initial-valuef) 96.0)
    (set! (-> *part-id-table* 2198 init-specs 8 initial-valuef) 255.0)
    (spawn (-> self part) (-> self root trans))
    (sound-play "bubbler" :id (-> self ambient-id) :position (-> self root trans))
    (let ((a0-4 *target*))
      (when a0-4
        (let ((a0-5 (get-trans a0-4 0)))
          (when (and (>= (- (-> a0-5 y) (-> self root trans y)) -6144.0)
                     (let ((f0-18 11264.0))
                       (>= (* f0-18 f0-18) (vector-vector-xz-distance-squared a0-5 (-> self root trans)))
                       )
                     )
            (if (time-elapsed? (-> self last-recharge-time) (seconds 1))
                (sound-play "oxygen-recharge")
                )
            (set-time! (-> self last-recharge-time))
            (send-event (ppointer->process *underb-master*) 'bubbler)
            )
          )
        )
      )
    )
  :code sleep-code
  )

(defmethod deactivate ((this bubbler))
  (sound-stop (-> this ambient-id))
  ((method-of-type process-drawable deactivate) this)
  (none)
  )

;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! ((this bubbler) (arg0 entity-actor))
  "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
  (set! (-> this root) (new 'process 'trsqv))
  (process-drawable-from-entity! this arg0)
  (set! (-> this part) (create-launch-control (-> *part-group-id-table* 500) this))
  (set! (-> this rod-of-god-scale) 1.0)
  (set! (-> this ambient-id) (sound-play "bubbler" :position (-> this root trans)))
  (go (method-of-object this idle))
  (none)
  )

(deftype under-rise-plat (process-drawable)
  ((up-y            float)
   (down-y          float)
   (delta-y         float)
   (up-threshold    float)
   (down-threshold  float)
   (last-ridden     time-frame)
   (ridden          symbol)
   (rider-started   basic)
   (extra-id        int32)
   )
  (:state-methods
    idle-up
    wait-up
    going-down
    idle-down
    wait-down
    going-up
    )
  )


(defskelgroup skel-under-rise-plat under-rise-plat under-rise-plat-lod0-jg under-rise-plat-idle-ja
              ((under-rise-plat-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 2 0 14)
              )

(defbehavior under-rise-plat-event-handler under-rise-plat ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
  (case arg2
    (('ridden)
     (set! (-> self ridden) #t)
     (let ((v0-0 (the-as object (current-time))))
       (set! (-> self last-ridden) (the-as time-frame v0-0))
       v0-0
       )
     )
    (('big-room)
     (send-event (ppointer->process *underb-master*) 'request 'big-room 'status (-> arg3 param 0))
     )
    )
  )

(defstate wait-up (under-rise-plat)
  :virtual #t
  :event under-rise-plat-event-handler
  :enter (behavior ()
    (set! (-> self rider-started) #f)
    (set! (-> self ridden) #f)
    (if (= (-> self extra-id) 1)
        (send-event (ppointer->process *underb-master*) 'request 'big-room 'under-plat 'up #t)
        )
    0
    )
  :trans (behavior ()
    (rider-trans)
    (when (not (-> self ridden))
      (if (= (-> self extra-id) 1)
          (send-event (ppointer->process *underb-master*) 'request 'big-room 'under-plat 'player #f)
          )
      (go-virtual idle-up)
      )
    (set! (-> self ridden) #f)
    )
  :code sleep-code
  :post rider-post
  )

(defstate idle-up (under-rise-plat)
  :virtual #t
  :event under-rise-plat-event-handler
  :enter (behavior ()
    (logior! (-> self mask) (process-mask actor-pause))
    0
    )
  :trans (behavior ()
    (rider-trans)
    (if (-> self ridden)
        (go-virtual going-down)
        )
    (let* ((a0-1 (target-pos 0))
           (v1-6 (vector-! (new 'stack-no-clear 'vector) (-> self root trans) a0-1))
           )
      (+! (-> v1-6 y) 58000.0)
      (if (< (-> self down-threshold) (-> v1-6 y))
          (go-virtual going-down)
          )
      )
    )
  :code sleep-code
  :post rider-post
  )

(defstate going-down (under-rise-plat)
  :virtual #t
  :event under-rise-plat-event-handler
  :enter (behavior ()
    (logclear! (-> self mask) (process-mask actor-pause))
    (set! (-> self root transv y) -20480.0)
    (if (= (-> self extra-id) 1)
        (send-event (ppointer->process *underb-master*) 'request 'big-room 'under-plat 'up #f)
        )
    0
    )
  :trans (behavior ()
    (rider-trans)
    (let ((gp-0 (-> self root)))
      (if (>= (-> self down-y) (-> gp-0 trans y))
          (go-virtual wait-down)
          )
      (vector-v++! (-> gp-0 trans) (-> gp-0 transv))
      (if (>= (-> self down-y) (-> gp-0 trans y))
          (set! (-> gp-0 trans y) (-> self down-y))
          )
      )
    )
  :code sleep-code
  :post rider-post
  )

(defstate wait-down (under-rise-plat)
  :virtual #t
  :event under-rise-plat-event-handler
  :enter (behavior ()
    (set! (-> self rider-started) #f)
    (set! (-> self ridden) #f)
    0
    )
  :trans (behavior ()
    (rider-trans)
    (when (not (-> self ridden))
      (if (= (-> self extra-id) 1)
          (send-event (ppointer->process *underb-master*) 'request 'big-room 'under-plat 'player #f)
          )
      (go-virtual idle-down)
      )
    (set! (-> self ridden) #f)
    )
  :code sleep-code
  :post rider-post
  )

(defstate idle-down (under-rise-plat)
  :virtual #t
  :event under-rise-plat-event-handler
  :enter (behavior ()
    (logior! (-> self mask) (process-mask actor-pause))
    0
    )
  :trans (behavior ()
    (rider-trans)
    (when (-> self ridden)
      (if (= (-> self extra-id) 1)
          (send-event (ppointer->process *underb-master*) 'request 'big-room 'under-plat 'player #t)
          )
      (set! (-> self rider-started) (the-as basic #t))
      (go-virtual going-up)
      )
    (let* ((a0-4 (target-pos 0))
           (v1-19 (vector-! (new 'stack-no-clear 'vector) (-> self root trans) a0-4))
           )
      (+! (-> v1-19 y) 58000.0)
      (if (< (-> v1-19 y) (-> self up-threshold))
          (go-virtual going-up)
          )
      )
    )
  :code sleep-code
  :post rider-post
  )

(defstate going-up (under-rise-plat)
  :virtual #t
  :event under-rise-plat-event-handler
  :enter (behavior ()
    (logclear! (-> self mask) (process-mask actor-pause))
    (set! (-> self root transv y) 20480.0)
    (set! (-> self ridden) #f)
    0
    )
  :trans (behavior ()
    (rider-trans)
    (when (-> self rider-started)
      (when (and (not (-> self ridden)) (time-elapsed? (-> self last-ridden) (seconds 2)))
        (if (= (-> self extra-id) 1)
            (send-event (ppointer->process *underb-master*) 'request 'big-room 'under-plat 'player #f)
            )
        (go-virtual going-down)
        )
      )
    (set! (-> self ridden) #f)
    (let ((gp-0 (-> self root)))
      (if (>= (-> gp-0 trans y) (-> self up-y))
          (go-virtual wait-up)
          )
      (vector-v++! (-> gp-0 trans) (-> gp-0 transv))
      (if (>= (-> gp-0 trans y) (-> self up-y))
          (set! (-> gp-0 trans y) (-> self up-y))
          )
      )
    )
  :code sleep-code
  :post rider-post
  )

;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! ((this under-rise-plat) (arg0 entity-actor))
  "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
  (local-vars (sv-16 res-tag))
  (let ((s4-0 (new 'process 'collide-shape this (collide-list-enum usually-hit-by-player))))
    (let ((s3-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
      (set! (-> s3-0 prim-core collide-as) (collide-spec obstacle camera-blocker pusher))
      (set! (-> s3-0 prim-core collide-with) (collide-spec jak bot player-list))
      (set! (-> s3-0 prim-core action) (collide-action solid rideable))
      (set! (-> s3-0 transform-index) 3)
      (set-vector! (-> s3-0 local-sphere) 0.0 -40960.0 0.0 57344.0)
      (set! (-> s4-0 total-prims) (the-as uint 1))
      (set! (-> s4-0 root-prim) s3-0)
      )
    (pusher-init s4-0)
    (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
    (let ((v1-12 (-> s4-0 root-prim)))
      (set! (-> s4-0 backup-collide-as) (-> v1-12 prim-core collide-as))
      (set! (-> s4-0 backup-collide-with) (-> v1-12 prim-core collide-with))
      )
    (set! (-> this root) s4-0)
    )
  (process-drawable-from-entity! this arg0)
  (-> this root)
  (set! sv-16 (new 'static 'res-tag))
  (let ((v1-16 (res-lump-data arg0 'trans-offset (pointer float) :tag-ptr (& sv-16))))
    (when v1-16
      (+! (-> this root trans x) (-> v1-16 0))
      (+! (-> this root trans y) (-> v1-16 1))
      (+! (-> this root trans z) (-> v1-16 2))
      )
    )
  (set! (-> this extra-id) (res-lump-value arg0 'extra-id int :time -1000000000.0))
  (set! (-> this delta-y) (res-lump-float arg0 'height :default 92160.0))
  (initialize-skeleton
    this
    (the-as skeleton-group (art-group-get-by-name *level* "skel-under-rise-plat" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  (let ((v1-23 (-> this root)))
    (set! (-> this down-y) (-> v1-23 trans y))
    (+! (-> v1-23 trans y) (-> this delta-y))
    (set! (-> this up-y) (-> v1-23 trans y))
    (set! (-> this down-threshold) (* 0.6666667 (-> this delta-y)))
    (set! (-> this up-threshold) (- (-> this down-threshold)))
    (vector-reset! (-> v1-23 transv))
    )
  (set! (-> this ridden) #f)
  (set! (-> this rider-started) #f)
  (set! (-> this draw light-index) (the-as uint 2))
  (go (method-of-object this idle-up))
  (none)
  )

(deftype under-buoy-base (process-drawable)
  ((release          symbol)
   (open-anim-frame  float)
   )
  (:state-methods
    idle
    opened
    )
  )


(defskelgroup skel-under-buoy-base under-buoy-base under-buoy-base-lod0-jg under-buoy-base-idle-ja
              ((under-buoy-base-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 2 0 5)
              )

(defstate idle (under-buoy-base)
  :virtual #t
  :event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
    (case message
      (('attack)
       (case (-> (the-as attack-info (-> block param 1)) mode)
         (('mech-punch 'crush)
          (let ((a0-5 (ppointer->process (-> self parent))))
            (send-event a0-5 'base-hit)
            )
          )
         )
       )
      (('release)
       (let ((v0-0 (the-as object #t)))
         (set! (-> self release) (the-as symbol v0-0))
         v0-0
         )
       )
      )
    )
  :enter (behavior ()
    0
    )
  :trans (behavior ()
    (when (-> self release)
      (ja :num-func num-func-identity :frame-num (-> self open-anim-frame))
      (+! (-> self open-anim-frame) 0.2)
      (if (< 17.0 (-> self open-anim-frame))
          (go-virtual opened)
          )
      )
    )
  :code sleep-code
  :post ja-post
  )

(defstate opened (under-buoy-base)
  :virtual #t
  :enter (behavior ()
    (process-entity-status! self (entity-perm-status subtask-complete) #t)
    )
  :code sleep-code
  :post ja-post
  )

;; WARN: Return type mismatch object vs none.
(defbehavior under-buoy-base-init-by-other under-buoy-base ((arg0 object) (arg1 entity-actor))
  (process-entity-set! self arg1)
  (let ((s5-0 (new 'process 'collide-shape self (collide-list-enum usually-hit-by-player))))
    (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 3) 0)))
      (set! (-> s5-0 total-prims) (the-as uint 4))
      (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle))
      (set! (-> s4-0 prim-core action) (collide-action solid))
      (set! (-> s4-0 transform-index) 3)
      (set-vector! (-> s4-0 local-sphere) 0.0 8192.0 0.0 20480.0)
      (set! (-> s5-0 root-prim) s4-0)
      )
    (let ((v1-8 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0))))
      (set! (-> v1-8 prim-core collide-as) (collide-spec obstacle))
      (set! (-> v1-8 prim-core action) (collide-action solid))
      (set! (-> v1-8 transform-index) 4)
      (set-vector! (-> v1-8 local-sphere) 0.0 8192.0 0.0 20480.0)
      )
    (let ((v1-10 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 1) (the-as uint 0))))
      (set! (-> v1-10 prim-core collide-as) (collide-spec obstacle))
      (set! (-> v1-10 prim-core action) (collide-action solid))
      (set! (-> v1-10 transform-index) 5)
      (set-vector! (-> v1-10 local-sphere) 0.0 8192.0 0.0 20480.0)
      )
    (let ((v1-12 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 2) (the-as uint 0))))
      (set! (-> v1-12 prim-core collide-as) (collide-spec obstacle))
      (set! (-> v1-12 prim-core action) (collide-action solid))
      (set! (-> v1-12 transform-index) 6)
      (set-vector! (-> v1-12 local-sphere) 0.0 8192.0 0.0 20480.0)
      )
    (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
    (let ((v1-15 (-> s5-0 root-prim)))
      (set! (-> s5-0 backup-collide-as) (-> v1-15 prim-core collide-as))
      (set! (-> s5-0 backup-collide-with) (-> v1-15 prim-core collide-with))
      )
    (set! (-> self root) s5-0)
    )
  (initialize-skeleton
    self
    (the-as skeleton-group (art-group-get-by-name *level* "skel-under-buoy-base" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  (process-drawable-from-entity! self arg1)
  (set! (-> self release) #f)
  (logior! (-> self mask) (process-mask actor-pause))
  (set! (-> self draw light-index) (the-as uint 2))
  (cond
    ((and (-> self entity) (logtest? (-> self entity extra perm status) (entity-perm-status subtask-complete)))
     (set! (-> self open-anim-frame) 17.0)
     (ja-no-eval :group! under-buoy-base-idle-ja :num! (identity (-> self open-anim-frame)))
     (go-virtual opened)
     )
    (else
      (set! (-> self open-anim-frame) 0.0)
      (ja-no-eval :group! under-buoy-base-idle-ja :num! (identity (-> self open-anim-frame)))
      (go-virtual idle)
      )
    )
  (none)
  )

(deftype under-buoy-chain (process-drawable)
  ()
  (:state-methods
    idle
    )
  )


(defskelgroup skel-under-buoy-chain under-buoy-chain under-buoy-chain-lod0-jg under-buoy-chain-idle-ja
              ((under-buoy-chain-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 -10 0 14)
              )

(defstate idle (under-buoy-chain)
  :virtual #t
  :enter (behavior ()
    0
    )
  :trans (behavior ()
    (let ((v1-0 (ppointer->process (-> self parent))))
      (set! (-> self root trans quad) (-> (the-as process-drawable v1-0) root trans quad))
      )
    )
  :code sleep-code
  :post ja-post
  )

;; WARN: Return type mismatch object vs none.
(defbehavior under-buoy-chain-init-by-other under-buoy-chain ((arg0 object) (arg1 entity-actor))
  (process-entity-set! self arg1)
  (let ((s5-0 (new 'process 'collide-shape-moving self (collide-list-enum usually-hit-by-player))))
    (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
    (set! (-> s5-0 reaction) cshape-reaction-default)
    (set! (-> s5-0 no-reaction)
          (the-as (function collide-shape-moving collide-query vector vector object) nothing)
          )
    (set! (-> s5-0 penetrated-by) (penetrate))
    (let ((v1-6 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0))))
      (set! (-> v1-6 prim-core collide-as) (collide-spec obstacle))
      (set! (-> v1-6 prim-core action) (collide-action solid))
      (set! (-> v1-6 transform-index) 4)
      (set-vector! (-> v1-6 local-sphere) 0.0 -40960.0 0.0 57344.0)
      (set! (-> s5-0 total-prims) (the-as uint 1))
      (set! (-> s5-0 root-prim) v1-6)
      )
    (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
    (let ((v1-9 (-> s5-0 root-prim)))
      (set! (-> s5-0 backup-collide-as) (-> v1-9 prim-core collide-as))
      (set! (-> s5-0 backup-collide-with) (-> v1-9 prim-core collide-with))
      )
    (set! (-> self root) s5-0)
    )
  (process-drawable-from-entity! self arg1)
  (initialize-skeleton
    self
    (the-as skeleton-group (art-group-get-by-name *level* "skel-under-buoy-chain" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  (set! (-> self draw light-index) (the-as uint 2))
  (logior! (-> self mask) (process-mask actor-pause))
  (go-virtual idle)
  (none)
  )

(deftype under-buoy-plat (rigid-body-platform)
  ((orig-trans      vector  :inline)
   (surface-height  float)
   (anchor-point    vector  :inline)
   (base            (pointer under-buoy-base))
   )
  (:state-methods
    waiting
    running
    )
  )


(defskelgroup skel-under-buoy-plat under-buoy-plat under-buoy-plat-lod0-jg under-buoy-plat-idle-ja
              ((under-buoy-plat-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 2 0 5)
              )

(defmethod rigid-body-object-method-29 ((this under-buoy-plat) (arg0 float))
  (call-parent-method this arg0)
  (rigid-body-platform-method-56 this (-> this orig-trans))
  0
  (none)
  )

(defmethod allocate-and-init-cshape ((this under-buoy-plat))
  (let ((s5-0 (new 'process 'collide-shape-moving this (collide-list-enum usually-hit-by-player))))
    (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
    (set! (-> s5-0 reaction) cshape-reaction-default)
    (set! (-> s5-0 no-reaction)
          (the-as (function collide-shape-moving collide-query vector vector object) nothing)
          )
    (set! (-> s5-0 penetrated-by) (penetrate))
    (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0))))
      (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle camera-blocker pusher))
      (set! (-> s4-0 prim-core collide-with) (collide-spec jak hit-by-others-list player-list))
      (set! (-> s4-0 prim-core action) (collide-action solid rideable))
      (set! (-> s4-0 transform-index) 4)
      (set-vector! (-> s4-0 local-sphere) 0.0 8192.0 0.0 20480.0)
      (set! (-> s5-0 total-prims) (the-as uint 1))
      (set! (-> s5-0 root-prim) s4-0)
      )
    (pusher-init s5-0)
    (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
    (let ((v1-16 (-> s5-0 root-prim)))
      (set! (-> s5-0 backup-collide-as) (-> v1-16 prim-core collide-as))
      (set! (-> s5-0 backup-collide-with) (-> v1-16 prim-core collide-with))
      )
    (set! (-> this root) s5-0)
    )
  0
  (none)
  )

(define *under-buoy-plat-platform-constants*
  (new 'static 'rigid-body-platform-constants
    :info (new 'static 'rigid-body-info
      :mass 1.48
      :inv-mass 0.6756757
      :linear-damping 0.8
      :angular-damping 0.5
      :friction-factor 0.1
      :cm-offset-joint (new 'static 'vector :w 1.0)
      :inertial-tensor-box (new 'static 'array meters 3 (meters 5) (meters 1) (meters 5))
      )
    :extra (new 'static 'rigid-body-object-extra-info
      :max-time-step 0.02
      :gravity (meters 80)
      :idle-distance (meters 50)
      :attack-force-scale 1.0
      )
    :name '*under-buoy-plat-platform-constants*
    :drag-factor 2.0
    :buoyancy-factor 2.3
    :max-buoyancy-depth (meters 1.5)
    :player-weight (meters 150)
    :player-bonk-factor 0.5
    :player-dive-factor 1.0
    :player-force-distance (meters 2)
    :player-force-clamp (meters 1000000)
    :player-force-timeout #x1e
    :explosion-force (meters 1000)
    :control-point-count 5
    :platform #t
    :sound-name "ruins-plat"
    )
  )

(defmethod rigid-body-platform-method-53 ((this under-buoy-plat) (arg0 vector))
  -220341.05
  )

(defmethod rigid-body-platform-method-56 ((this under-buoy-plat) (arg0 vector))
  (let ((v1-0 (new 'stack-no-clear 'vector)))
    (vector-! v1-0 arg0 (-> this rbody state position))
    (set! (-> v1-0 y) 0.0)
    (let* ((f0-1 (vector-length v1-0))
           (f1-1 (* 4.0 (fmax 0.0 (fmin 4096.0 (+ -819.2 f0-1)))))
           )
      (when (< 0.0 f1-1)
        (vector-float*! v1-0 v1-0 (/ f1-1 f0-1))
        (rigid-body-method-20 (-> this rbody state) v1-0)
        )
      )
    )
  0
  (none)
  )

(defmethod init-skel-and-rigid-body ((this under-buoy-plat))
  (initialize-skeleton
    this
    (the-as skeleton-group (art-group-get-by-name *level* "skel-under-buoy-plat" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  (alloc-and-init-rigid-body-control this *under-buoy-plat-platform-constants*)
  (set! (-> this orig-trans quad) (-> this root trans quad))
  (set! (-> this anchor-point quad) (-> this root trans quad))
  (set! (-> this surface-height) (-> this root trans y))
  (set! (-> this info info cm-offset-joint y) 6144.0)
  (let ((s5-1 (-> this info control-point-count)))
    (dotimes (s4-1 s5-1)
      (let ((s3-0 (-> this control-point-array data s4-1)))
        (let ((f30-0 (* 65536.0 (/ (the float s4-1) (the float s5-1)))))
          (set! (-> s3-0 local-pos x) (* 12288.0 (sin f30-0)))
          (set! (-> s3-0 local-pos y) 8192.0)
          (set! (-> s3-0 local-pos z) (* 12288.0 (cos f30-0)))
          )
        (set! (-> s3-0 local-pos w) 1.0)
        )
      )
    )
  (process-spawn under-buoy-chain (target-pos 0) (-> this entity) :to this)
  (set! (-> this base) (process-spawn under-buoy-base (target-pos 0) (-> this entity) :to this))
  (logior! (-> this mask) (process-mask actor-pause))
  (set! (-> this draw light-index) (the-as uint 2))
  (none)
  )

;; WARN: Return type mismatch object vs none.
(defmethod rigid-body-object-method-34 ((this under-buoy-plat))
  (if (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status subtask-complete)))
      (go (method-of-object this running))
      (go (method-of-object this waiting))
      )
  (none)
  )

(defstate waiting (under-buoy-plat)
  :virtual #t
  :event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
    (case message
      (('attack)
       (case (-> (the-as attack-info (-> block param 1)) mode)
         (('mech-punch 'crush)
          (go-virtual running)
          )
         )
       )
      (('base-hit)
       (go-virtual running)
       )
      )
    )
  :enter (behavior ()
    0
    )
  :code sleep-code
  :post ja-post
  )

(defstate running (under-buoy-plat)
  :virtual #t
  :event rigid-body-object-event-handler
  :enter (behavior ()
    (sound-play "break-chain")
    (send-event (ppointer->process (-> self base)) 'release)
    (process-entity-status! self (entity-perm-status subtask-complete) #t)
    )
  :code (behavior ()
    (until #f
      (ja-no-eval :group! (ja-group) :num! (seek!) :frame-num 0.0)
      (until (ja-done? 0)
        (suspend)
        (ja :num! (seek!))
        )
      )
    #f
    )
  :post (behavior ()
    (rigid-body-object-method-37 self)
    )
  )

(defskelgroup skel-under-mine under-mine under-mine-lod0-jg under-mine-idle-ja
              ((under-mine-lod0-mg (meters 20)) (under-mine-lod1-mg (meters 999999)))
              :bounds (static-spherem 0 0 0 9)
              :shadow under-mine-shadow-mg
              :origin-joint-index 12
              )

(defskelgroup skel-under-mine-explode under-mine under-mine-explode-lod0-jg under-mine-explode-idle-ja
              ((under-mine-explode-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 0 0 9)
              :origin-joint-index 11
              )

(deftype under-mine-chain-physics (chain-physics)
  ()
  )


(defmethod apply-gravity ((this under-mine-chain-physics) (arg0 vector) (arg1 int) (arg2 process-drawable))
  (local-vars (v1-7 vector) (v1-11 vector) (a0-17 float) (a0-26 float))
  (rlet ((acc :class vf)
         (vf0 :class vf)
         (vf1 :class vf)
         (vf2 :class vf)
         )
    (init-vf0-vector)
    (vector-float*! arg0 (-> this gravity) (* 81.92 (-> self clock time-adjust-ratio)))
    (cond
      ((= arg1 (+ (-> this num-joints) -1))
       (let ((v1-4 (new 'stack-no-clear 'vector)))
         (set! (-> v1-4 quad) (-> arg2 entity trans quad))
         (vector-! v1-4 v1-4 (the-as vector (-> this chain-joints arg1)))
         (vector+float*! arg0 arg0 v1-4 1.0)
         )
       )
      (else
        (cond
          ((>= arg1 (the-as int (+ (-> this num-joints) -1)))
           (set! v1-7 (new 'stack-no-clear 'vector))
           (set! (-> v1-7 quad) (-> arg2 entity trans quad))
           (+! (-> v1-7 y) 8192.0)
           )
          (else
            (set! v1-7 (new 'stack-no-clear 'vector))
            (set! (-> v1-7 quad) (-> this chain-joints (+ arg1 1) position quad))
            )
          )
        (vector-! v1-7 v1-7 (the-as vector (-> this chain-joints arg1)))
        (.lvf vf1 (&-> v1-7 quad))
        (.add.w.vf vf2 vf0 vf0 :mask #b1)
        (.mul.vf vf1 vf1 vf1)
        (.mul.x.vf acc vf2 vf1 :mask #b1)
        (.add.mul.y.vf acc vf2 vf1 acc :mask #b1)
        (.add.mul.z.vf vf1 vf2 vf1 acc :mask #b1)
        (.mov a0-17 vf1)
        (let ((f0-6 (sqrtf a0-17)))
          (vector+float*! arg0 arg0 v1-7 (/ (* 1.1 (- f0-6 (-> this joint-length))) f0-6))
          )
        (set! v1-11
              (cond
                ((zero? arg1)
                 (vector<-cspace! (new 'stack-no-clear 'vector) (-> arg2 node-list data (-> this root-joint-index)))
                 )
                (else
                  (set! v1-11 (new 'stack-no-clear 'vector))
                  (set! (-> v1-11 quad) (-> this chain-joints (+ arg1 -1) position quad))
                  v1-11
                  )
                )
              )
        (vector-! v1-11 v1-11 (the-as vector (-> this chain-joints arg1)))
        (.lvf vf1 (&-> v1-11 quad))
        (.add.w.vf vf2 vf0 vf0 :mask #b1)
        (.mul.vf vf1 vf1 vf1)
        (.mul.x.vf acc vf2 vf1 :mask #b1)
        (.add.mul.y.vf acc vf2 vf1 acc :mask #b1)
        (.add.mul.z.vf vf1 vf2 vf1 acc :mask #b1)
        (.mov a0-26 vf1)
        (let ((f0-9 (sqrtf a0-26)))
          (vector+float*! arg0 arg0 v1-11 (/ (* 1.1 (- f0-9 (-> this joint-length))) f0-9))
          )
        )
      )
    0
    (none)
    )
  )

(defmethod chain-physics-method-14 ((this under-mine-chain-physics) (arg0 vector) (arg1 int))
  (vector-reset! arg0)
  0
  (none)
  )

;; WARN: Return type mismatch int vs vector.
(defmethod clamp-length ((this under-mine-chain-physics) (arg0 vector) (arg1 vector) (arg2 object) (arg3 process-drawable))
  (let ((v1-0 (new 'stack-no-clear 'vector)))
    (set! (-> v1-0 quad) (-> arg3 entity trans quad))
    (let ((s5-0 (new 'stack-no-clear 'vector)))
      (+! (-> v1-0 y) -19660.8)
      (vector-! s5-0 arg0 v1-0)
      (let ((f0-2 (vector-normalize-ret-len! s5-0 1.0)))
        (if (< f0-2 20480.0)
            (vector+float*! arg0 arg0 s5-0 (- 20480.0 f0-2))
            )
        )
      )
    )
  (the-as vector 0)
  )

(defmethod chain-physics-method-16 ((this under-mine-chain-physics) (arg0 int))
  21845.334
  )

(deftype under-mine (process-drawable)
  ((root               collide-shape-moving :override)
   (chain              under-mine-chain-physics)
   (chain-initialized  symbol)
   (main-mod           joint-mod)
   (head-mod           joint-mod)
   )
  (:state-methods
    explode
    idle
    )
  )


(define *under-mine-chain-setup* (new 'static 'boxed-array :type chain-physics-setup
                                   (new 'static 'chain-physics-setup :joint-index 14)
                                   (new 'static 'chain-physics-setup :joint-index 13)
                                   (new 'static 'chain-physics-setup :joint-index 12)
                                   (new 'static 'chain-physics-setup :joint-index 11)
                                   (new 'static 'chain-physics-setup :joint-index 10)
                                   (new 'static 'chain-physics-setup :joint-index 9)
                                   (new 'static 'chain-physics-setup :joint-index 8)
                                   (new 'static 'chain-physics-setup :joint-index 7)
                                   (new 'static 'chain-physics-setup :joint-index 6)
                                   (new 'static 'chain-physics-setup :joint-index 5)
                                   (new 'static 'chain-physics-setup :joint-index 4)
                                   )
        )

(define *under-mine-exploder-params*
  (new 'static 'joint-exploder-static-params
    :joints (new 'static 'boxed-array :type joint-exploder-static-joint-params
      (new 'static 'joint-exploder-static-joint-params :joint-index 3 :parent-joint-index 4)
      (new 'static 'joint-exploder-static-joint-params :joint-index 4 :parent-joint-index 5)
      (new 'static 'joint-exploder-static-joint-params :joint-index 5 :parent-joint-index 6)
      (new 'static 'joint-exploder-static-joint-params :joint-index 6 :parent-joint-index 7)
      (new 'static 'joint-exploder-static-joint-params :joint-index 7 :parent-joint-index 8)
      (new 'static 'joint-exploder-static-joint-params :joint-index 8 :parent-joint-index 9)
      (new 'static 'joint-exploder-static-joint-params :joint-index 9 :parent-joint-index 10)
      (new 'static 'joint-exploder-static-joint-params :joint-index 10 :parent-joint-index 11)
      (new 'static 'joint-exploder-static-joint-params :joint-index 11 :parent-joint-index 12)
      (new 'static 'joint-exploder-static-joint-params :joint-index 12 :parent-joint-index 13)
      (new 'static 'joint-exploder-static-joint-params :joint-index 13 :parent-joint-index 14)
      (new 'static 'joint-exploder-static-joint-params :joint-index 14 :parent-joint-index 15)
      (new 'static 'joint-exploder-static-joint-params :joint-index 15 :parent-joint-index 15)
      (new 'static 'joint-exploder-static-joint-params :joint-index 16 :parent-joint-index 15)
      (new 'static 'joint-exploder-static-joint-params :joint-index 17 :parent-joint-index 15)
      (new 'static 'joint-exploder-static-joint-params :joint-index 18 :parent-joint-index 15)
      (new 'static 'joint-exploder-static-joint-params :joint-index 19 :parent-joint-index 15)
      )
    :collide-spec #x1
    )
  )

(defstate explode (under-mine)
  :virtual #t
  :enter (behavior ()
    (set-time! (-> self state-time))
    (let ((v1-3 (-> self root root-prim)))
      (set! (-> v1-3 prim-core collide-as) (collide-spec))
      (set! (-> v1-3 prim-core collide-with) (collide-spec))
      )
    0
    (let ((gp-0 (new 'stack-no-clear 'explosion-init-params)))
      (let ((v1-9
              (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data (-> self chain root-joint-index)))
              )
            )
        (vector+float*!
          v1-9
          v1-9
          (-> self node-list data (-> self chain root-joint-index) bone transform vector 1)
          10240.0
          )
        (set! (-> gp-0 spawn-point quad) (-> v1-9 quad))
        )
      (quaternion-copy! (-> gp-0 spawn-quat) (-> self root quat))
      (set! (-> gp-0 radius) 16384.0)
      (set! (-> gp-0 group) (-> *part-group-id-table* 501))
      (set! (-> gp-0 collide-with)
            (collide-spec backgnd jak crate civilian enemy obstacle vehicle-sphere hit-by-others-list player-list pusher)
            )
      (set! (-> gp-0 penetrate-using) (penetrate explode))
      (explosion-spawn (the-as process-drawable *default-pool*) explosion gp-0)
      )
    (let ((gp-1 (new 'stack 'joint-exploder-tuning (the-as uint 0))))
      (set! (-> gp-1 duration) (seconds 4))
      (set! (-> gp-1 gravity) -20480.0)
      (set! (-> gp-1 rot-speed) 4.2)
      (set-vector! (-> gp-1 fountain-rand-transv-lo) -40960.0 20480.0 -40960.0 1.0)
      (set-vector! (-> gp-1 fountain-rand-transv-hi) 40960.0 49152.0 40960.0 1.0)
      (process-spawn
        joint-exploder
        (art-group-get-by-name *level* "skel-under-mine-explode" (the-as (pointer uint32) #f))
        7
        gp-1
        *under-mine-exploder-params*
        :to self
        )
      )
    (sound-play "buoy-explode")
    (activate! *camera-smush-control* 819.2 37 210 1.0 0.995 (-> self clock))
    (ja-channel-set! 0)
    (ja-post)
    )
  :trans (behavior ()
    (when (not (-> self child))
      (cleanup-for-death self)
      (deactivate self)
      )
    )
  :code sleep-code
  )

(defstate idle (under-mine)
  :virtual #t
  :event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
    (case message
      (('attack 'bonk 'touched)
       (go-virtual explode)
       )
      )
    )
  :trans (behavior ()
    (local-vars (a0-8 float))
    (rlet ((acc :class vf)
           (vf0 :class vf)
           (vf1 :class vf)
           (vf2 :class vf)
           )
      (init-vf0-vector)
      (ja :num! (loop!))
      (let ((gp-0 (new 'stack-no-clear 'vector)))
        (set! (-> gp-0 quad) (-> self entity trans quad))
        (let ((s5-0 (new 'stack-no-clear 'vector)))
          (cond
            (*target*
              (set! (-> s5-0 quad) (-> (get-trans *target* 3) quad))
              (+! (-> s5-0 y) -28672.0)
              )
            (else
              (set! (-> s5-0 quad) (-> gp-0 quad))
              (+! (-> s5-0 y) -1024.0)
              )
            )
          (+! (-> gp-0 y) -28672.0)
          (vector-seek-3d-smooth! (-> self root trans) s5-0 (* 204.8 (-> self clock time-adjust-ratio)) 0.25)
          )
        (let ((v1-21 (vector-! (new 'stack-no-clear 'vector) (-> self root trans) gp-0)))
          (.lvf vf1 (&-> v1-21 quad))
          (.add.w.vf vf2 vf0 vf0 :mask #b1)
          (.mul.vf vf1 vf1 vf1)
          (.mul.x.vf acc vf2 vf1 :mask #b1)
          (.add.mul.y.vf acc vf2 vf1 acc :mask #b1)
          (.add.mul.z.vf vf1 vf2 vf1 acc :mask #b1)
          (.mov a0-8 vf1)
          (let ((f0-9 a0-8)
                (f1-4 28672.0)
                )
            (if (< (* f1-4 f1-4) f0-9)
                (vector-float*! v1-21 v1-21 (/ 28672.0 (sqrtf f0-9)))
                )
            )
          (vector+! (-> self root trans) gp-0 v1-21)
          )
        (set! (-> self root trans y) (fmax (-> self root trans y) (+ 409.6 (-> gp-0 y))))
        )
      (when (-> self chain-initialized)
        (let ((s5-1 (new-stack-vector0))
              (gp-1 (quaternion->matrix (new 'stack-no-clear 'matrix) (-> self head-mod quat)))
              )
          (dotimes (v1-27 (min 8 (the-as int (-> self chain num-joints))))
            (vector+! s5-1 s5-1 (the-as vector (-> self chain chain-joints v1-27)))
            )
          (vector-float*! s5-1 s5-1 (/ 1.0 (the float (min 8 (the-as int (-> self chain num-joints))))))
          (vector-!
            s5-1
            (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data (-> self chain root-joint-index)))
            s5-1
            )
          (vector-normalize! s5-1 1.0)
          (vector-seek-3d-smooth! (-> gp-1 vector 1) s5-1 (* 0.5 (-> self clock time-adjust-ratio)) 0.5)
          (vector-normalize! s5-1 1.0)
          (quaternion-from-two-vectors-partial!
            (-> self head-mod quat)
            (new 'static 'vector :y 1.0)
            (-> gp-1 vector 1)
            0.25
            )
          )
        (update (-> self chain) self)
        )
      )
    )
  :code sleep-code
  :post (behavior ()
    (transform-post)
    (if *nav-network*
        (nav-network-method-25 *nav-network* self (-> self root root-prim prim-core))
        )
    (when (not (-> self chain-initialized))
      (set! (-> self chain-initialized) #t)
      (initialize-chain-joints (-> self chain))
      )
    )
  )

;; WARN: Return type mismatch process-drawable vs under-mine.
(defmethod relocate ((this under-mine) (arg0 int))
  (if (nonzero? (-> this main-mod))
      (&+! (-> this main-mod) arg0)
      )
  (if (nonzero? (-> this head-mod))
      (&+! (-> this head-mod) arg0)
      )
  (if (nonzero? (-> this chain))
      (&+! (-> this chain) arg0)
      )
  (the-as under-mine ((method-of-type process-drawable relocate) this arg0))
  )

;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! ((this under-mine) (arg0 entity-actor))
  "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
  (let ((s4-0 (new 'process 'collide-shape this (collide-list-enum usually-hit-by-player))))
    (let ((v1-2 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
      (set! (-> v1-2 prim-core collide-as) (collide-spec enemy camera-blocker))
      (set! (-> v1-2 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list))
      (set! (-> v1-2 prim-core action) (collide-action solid))
      (set! (-> v1-2 transform-index) 15)
      (set-vector! (-> v1-2 local-sphere) 0.0 12288.0 0.0 10240.0)
      (set! (-> s4-0 total-prims) (the-as uint 1))
      (set! (-> s4-0 root-prim) v1-2)
      )
    (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
    (let ((v1-5 (-> s4-0 root-prim)))
      (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as))
      (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with))
      )
    (set! (-> s4-0 event-self) 'touched)
    (set! (-> this root) (the-as collide-shape-moving s4-0))
    )
  (process-drawable-from-entity! this arg0)
  (initialize-skeleton
    this
    (the-as skeleton-group (art-group-get-by-name *level* "skel-under-mine" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  (set! (-> this chain-initialized) #f)
  (set! (-> this chain) (new 'process 'under-mine-chain-physics))
  (chain-physics-initialize this (-> this chain) 15 1843.2 *under-mine-chain-setup*)
  (set! (-> this chain negate-y) #t)
  (set! (-> this chain axial-slop) 1820.4445)
  (set! (-> this chain maximum-stretch) 100.0)
  (set! (-> this chain stretch-vel) 0.7)
  (set! (-> this chain stretch-vel-parallel) 0.9)
  (set! (-> this chain compress-vel) 0.85)
  (set! (-> this chain compress-vel-parallel) 0.9)
  (set! (-> this main-mod) (new 'process 'joint-mod (joint-mod-mode flex-blend) this 3))
  (set! (-> this main-mod track-mode) (track-mode no-rotate no-scale))
  (mode-set! (-> this main-mod) (joint-mod-mode joint-set-world))
  (set! (-> this main-mod trans quad) (-> this entity trans quad))
  (set! (-> this head-mod) (new 'process 'joint-mod (joint-mod-mode flex-blend) this 15))
  (set! (-> this head-mod track-mode) (track-mode no-trans no-scale))
  (mode-set! (-> this head-mod) (joint-mod-mode joint-set*))
  (quaternion-identity! (-> this head-mod quat))
  (set! (-> this draw light-index) (the-as uint 10))
  (go (method-of-object this idle))
  (none)
  )

(deftype under-lift (elevator)
  ((sound-id  sound-id)
   )
  (:methods
    (under-lift-method-49 (_type_ symbol) none)
    )
  )


(defskelgroup skel-under-lift under-lift under-lift-lod0-jg under-lift-idle-ja
              ((under-lift-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 0 5.6 9.2)
              )

(defmethod get-art-group ((this under-lift))
  "@returns The associated [[art-group]]"
  (art-group-get-by-name *level* "skel-under-lift" (the-as (pointer uint32) #f))
  )

(defmethod move-between-points ((this under-lift) (arg0 vector) (arg1 float) (arg2 float))
  "Move between two points on the elevator's path
@param vec TODO not sure
@param point-a The first point fetched from the elevator's path
@param point-b The second point fetched from the path
@see [[path-control]] and [[elevator]]"
  (let ((s4-0 (get-point-in-path! (-> this path) (new 'stack-no-clear 'vector) arg1 'interp))
        (a0-3 (get-point-in-path! (-> this path) (new 'stack-no-clear 'vector) arg2 'interp))
        (v1-3 (-> this root trans))
        )
    (when (and (< (-> a0-3 y) (-> s4-0 y)) (< (-> arg0 y) (+ -8192.0 (-> v1-3 y))))
      (let ((s4-2 (vector-! (new 'stack-no-clear 'vector) arg0 v1-3)))
        (vector-inv-orient-by-quat! s4-2 s4-2 (-> this root quat))
        (and (< (fabs (-> s4-2 x)) 24576.0) (< 0.0 (-> s4-2 z)) (< (-> s4-2 z) 49152.0))
        )
      )
    )
  )

(defmethod commited-to-ride? ((this under-lift))
  "@returns if the target is considered within the elevator area enough to begin descending/ascending"
  (let* ((gp-0 *target*)
         (a0-2 (if (type? gp-0 process-focusable)
                   gp-0
                   )
               )
         )
    (when a0-2
      (let* ((v1-1 (get-trans a0-2 0))
             (gp-2 (vector-! (new 'stack-no-clear 'vector) v1-1 (-> this root trans)))
             )
        (vector-inv-orient-by-quat! gp-2 gp-2 (-> this root quat))
        (and (< (fabs (-> gp-2 x)) 20480.0) (< 0.0 (-> gp-2 z)) (< (-> gp-2 z) 40960.0))
        )
      )
    )
  )

(defmethod under-lift-method-49 ((this under-lift) (arg0 symbol))
  (let ((v1-3 (-> (the-as collide-shape-prim-group (-> this root root-prim)) child 1)))
    (cond
      (arg0
        (set! (-> v1-3 prim-core collide-as) (collide-spec obstacle pusher))
        (set! (-> v1-3 prim-core collide-with) (collide-spec jak player-list))
        )
      (else
        (set! (-> v1-3 prim-core collide-as) (collide-spec))
        (set! (-> v1-3 prim-core collide-with) (collide-spec))
        0
        )
      )
    )
  (none)
  )

(defstate running (under-lift)
  :virtual #t
  :enter (behavior ()
    (let ((t9-0 (-> (method-of-type elevator running) enter)))
      (if t9-0
          (t9-0)
          )
      )
    (when (and (logtest? (-> self elevator-status) (elevator-status waiting-to-descend))
               (logtest? (elevator-flags airlock-opened) (-> self params flags))
               )
      (under-lift-method-49 self #t)
      (set-setting! 'jump #f 0.0 0)
      )
    )
  :post (behavior ()
    (let ((t9-0 (-> (method-of-type elevator running) post)))
      (if t9-0
          ((the-as (function none) t9-0))
          )
      )
    (sound-play "under-lift-lp" :id (-> self sound-id) :position (-> self root trans))
    )
  )

(defstate arrived (under-lift)
  :virtual #t
  :enter (behavior ()
    (let ((t9-0 (-> (method-of-type elevator arrived) enter)))
      (if t9-0
          (t9-0)
          )
      )
    (sound-stop (-> self sound-id))
    (sound-play "sew-elev-stop")
    (when (and (logtest? (-> self elevator-status) (elevator-status waiting-to-descend))
               (logtest? (elevator-flags airlock-opened) (-> self params flags))
               )
      (under-lift-method-49 self #f)
      (remove-setting! 'jump)
      )
    )
  )

(defmethod deactivate ((this under-lift))
  (sound-stop (-> this sound-id))
  (call-parent-method this)
  (none)
  )

(defmethod init-plat! ((this under-lift))
  "Does any necessary initial platform setup.
For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound."
  (set! (-> this sound-id) (new-sound-id))
  (set! (-> this draw light-index) (the-as uint 4))
  0
  (none)
  )

(defmethod init-plat-collision! ((this under-lift))
  "TODO - collision stuff for setting up the platform"
  (let ((s5-0 (new 'process 'collide-shape-moving this (collide-list-enum usually-hit-by-player))))
    (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
    (set! (-> s5-0 reaction) cshape-reaction-default)
    (set! (-> s5-0 no-reaction)
          (the-as (function collide-shape-moving collide-query vector vector object) nothing)
          )
    (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0)))
      (set! (-> s5-0 total-prims) (the-as uint 3))
      (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle camera-blocker pusher))
      (set! (-> s4-0 prim-core collide-with) (collide-spec jak bot player-list))
      (set! (-> s4-0 prim-core action) (collide-action solid rideable))
      (set! (-> s4-0 transform-index) 3)
      (set-vector! (-> s4-0 local-sphere) 0.0 0.0 22937.6 37683.2)
      (set! (-> s5-0 root-prim) s4-0)
      )
    (pusher-init s5-0)
    (let ((v1-15 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0))))
      (set! (-> v1-15 prim-core collide-as) (collide-spec obstacle camera-blocker pusher))
      (set! (-> v1-15 prim-core collide-with) (collide-spec jak bot player-list))
      (set! (-> v1-15 prim-core action) (collide-action solid rideable))
      (set! (-> v1-15 transform-index) 3)
      (set-vector! (-> v1-15 local-sphere) 0.0 0.0 22937.6 37683.2)
      )
    (let ((v1-17 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 1) (the-as uint 0))))
      (set! (-> v1-17 prim-core action) (collide-action solid))
      (set! (-> v1-17 transform-index) 3)
      (set-vector! (-> v1-17 local-sphere) 0.0 0.0 22937.6 39321.6)
      )
    (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
    (let ((v1-20 (-> s5-0 root-prim)))
      (set! (-> s5-0 backup-collide-as) (-> v1-20 prim-core collide-as))
      (set! (-> s5-0 backup-collide-with) (-> v1-20 prim-core collide-with))
      )
    (set! (-> this root) s5-0)
    )
  (under-lift-method-49 this #f)
  (none)
  )

(deftype under-break-door (process-focusable)
  ((anim          art-joint-anim)
   (art-name      string)
   (collide-mesh  int32)
   )
  (:state-methods
    (hit symbol)
    idle
    )
  )


(defskelgroup skel-under-break-door under-break-door under-break-door-lod0-jg -1
              ((under-break-door-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 0 0 14)
              :origin-joint-index 3
              )

(defstate idle (under-break-door)
  :virtual #t
  :event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
    (case message
      (('trigger)
       (go-virtual hit #f)
       )
      (('attack)
       (case (-> (the-as attack-info (-> block param 1)) mode)
         (('mech-punch 'crush)
          (go-virtual hit #f)
          )
         )
       )
      (('combo)
       #t
       )
      )
    )
  :code (behavior ()
    (add-process
      *gui-control*
      self
      (gui-channel art-load)
      (gui-action queue)
      (the-as string (-> self anim extra))
      -99.0
      0
      )
    (until #f
      (transform-post)
      (logior! (-> self mask) (process-mask sleep))
      (suspend)
      )
    #f
    )
  )

(defstate hit (under-break-door)
  :virtual #t
  :exit (behavior ()
    (ja-abort-spooled-anim (the-as spool-anim (-> self anim)) (the-as art-joint-anim #f) -1)
    )
  :code (behavior ((arg0 symbol))
    (set! (-> self draw force-lod) 0)
    (-> self draw bounds w)
    (let ((v1-3 (-> self root root-prim)))
      (set! (-> v1-3 prim-core collide-as) (collide-spec))
      (set! (-> v1-3 prim-core collide-with) (collide-spec))
      )
    0
    (set! (-> self draw bounds w) 573440.0)
    (process-entity-status! self (entity-perm-status subtask-complete) #t)
    (let* ((s5-0 (-> self draw art-group))
           (s4-0 (method-of-object s5-0 get-art-by-name-method))
           )
      (format (clear *temp-string*) "~S-end" (-> self art-name))
      (let ((s5-1 (s4-0 s5-0 *temp-string* art-joint-anim)))
        (if (not arg0)
            (ja-play-spooled-anim
              (the-as spool-anim (-> self anim))
              (ja-group)
              ;; og:preserve-this added cast
              (the-as art-joint-anim s5-1)
              (the-as (function process-drawable symbol) false-func)
              )
            )
        (ja-channel-set! 1)
        ;; og:preserve-this added cast
        (set! (-> self skel root-channel 0 frame-group) (the-as art-joint-anim s5-1))
        )
      )
    (suspend)
    (logior! (-> self mask) (process-mask sleep))
    (suspend)
    0
    )
  :post ja-post
  )

;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! ((this under-break-door) (arg0 entity-actor))
  "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
  (stack-size-set! (-> this main-thread) 512)
  (logior! (-> this mask) (process-mask collectable))
  (let ((s3-0 ((method-of-type res-lump get-property-struct)
               (-> this entity)
               'art-name
               'interp
               -1000000000.0
               "under-break-door-1"
               (the-as (pointer res-tag) #f)
               *res-static-buf*
               )
              )
        (s4-0 (art-group-get-by-name *level* "skel-under-break-door" (the-as (pointer uint32) #f)))
        )
    (set! (-> this art-name) (the-as string s3-0))
    (let ((s2-0 (new 'process 'collide-shape this (collide-list-enum usually-hit-by-player))))
      (let ((v1-8 (new 'process 'collide-shape-prim-mesh s2-0 (the-as uint 0) (the-as uint 0))))
        (set! (-> v1-8 prim-core collide-as) (collide-spec obstacle))
        (set! (-> v1-8 prim-core collide-with) (collide-spec jak player-list))
        (set! (-> v1-8 prim-core action) (collide-action solid))
        (set! (-> v1-8 transform-index) 3)
        (set-vector! (-> v1-8 local-sphere) 0.0 0.0 0.0 57344.0)
        (set! (-> s2-0 total-prims) (the-as uint 1))
        (set! (-> s2-0 root-prim) v1-8)
        )
      (set! (-> s2-0 nav-radius) (* 0.75 (-> s2-0 root-prim local-sphere w)))
      (let ((v1-11 (-> s2-0 root-prim)))
        (set! (-> s2-0 backup-collide-as) (-> v1-11 prim-core collide-as))
        (set! (-> s2-0 backup-collide-with) (-> v1-11 prim-core collide-with))
        )
      (set! (-> this root) s2-0)
      )
    (cond
      ((string= (-> this art-name) "under-break-door-1")
       (set! (-> this anim)
             (the-as
               art-joint-anim
               (new 'static 'spool-anim :name "under-break-door-1" :anim-name "1-break" :parts 1 :command-list '())
               )
             )
       )
      ((string= (-> this art-name) "under-break-door-2")
       (set! (-> this anim)
             (the-as
               art-joint-anim
               (new 'static 'spool-anim :name "under-break-door-2" :anim-name "2-break" :parts 1 :command-list '())
               )
             )
       )
      ((string= (-> this art-name) "under-break-door-3")
       (set! (-> this anim)
             (the-as
               art-joint-anim
               (new 'static 'spool-anim :name "under-break-door-3" :anim-name "3-break" :parts 2 :command-list '())
               )
             )
       )
      ((string= (-> this art-name) "under-break-door-4")
       (set! (-> this anim)
             (the-as
               art-joint-anim
               (new 'static 'spool-anim :name "under-break-door-4" :anim-name "4-break" :parts 1 :command-list '())
               )
             )
       )
      (else
        (go process-drawable-art-error (the-as string s3-0))
        )
      )
    (process-drawable-from-entity! this arg0)
    (initialize-skeleton this (the-as skeleton-group s4-0) (the-as pair 0))
    )
  (ja-channel-set! 1)
  (let* ((s5-1 (-> this skel root-channel 0))
         (s4-1 (-> this draw art-group))
         (s3-1 (method-of-object s4-1 get-art-by-name-method))
         )
    (format (clear *temp-string*) "~S-idle" (-> this art-name))
    (set! (-> s5-1 frame-group) (the-as art-joint-anim (s3-1 s4-1 *temp-string* (the-as type #f))))
    )
  (set! (-> this draw light-index) (the-as uint 10))
  (if (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status subtask-complete)))
      (go (method-of-object this hit) #t)
      (go (method-of-object this idle))
      )
  (none)
  )

(deftype under-seaweed-a (process-drawable)
  ()
  (:state-methods
    idle
    )
  )


(defskelgroup skel-under-seaweed-a under-seaweed-a under-seaweed-a-lod0-jg under-seaweed-a-idle-ja
              ((under-seaweed-a-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 2 0 3)
              )

(defstate idle (under-seaweed-a)
  :virtual #t
  :enter (behavior ()
    0
    )
  :code (behavior ()
    (until #f
      (ja-no-eval :group! (ja-group) :num! (seek!) :frame-num 0.0)
      (until (ja-done? 0)
        (suspend)
        (ja :num! (seek!))
        )
      )
    #f
    )
  :post ja-post
  )

;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! ((this under-seaweed-a) (arg0 entity-actor))
  "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
  (let ((s4-0 (new 'process 'collide-shape-moving this (collide-list-enum usually-hit-by-player))))
    (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
    (set! (-> s4-0 reaction) cshape-reaction-default)
    (set! (-> s4-0 no-reaction)
          (the-as (function collide-shape-moving collide-query vector vector object) nothing)
          )
    (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 4) 0)))
      (set! (-> s4-0 total-prims) (the-as uint 5))
      (set! (-> s3-0 prim-core collide-as) (collide-spec obstacle camera-blocker pusher))
      (set! (-> s3-0 prim-core collide-with) (collide-spec jak bot player-list))
      (set! (-> s3-0 prim-core action) (collide-action solid rideable))
      (set! (-> s3-0 transform-index) 3)
      (set-vector! (-> s3-0 local-sphere) 0.0 0.0 22937.6 37683.2)
      (set! (-> s4-0 root-prim) s3-0)
      )
    (pusher-init s4-0)
    (let ((v1-15 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
      (set! (-> v1-15 prim-core collide-as) (collide-spec obstacle camera-blocker))
      (set! (-> v1-15 prim-core collide-with) (collide-spec jak bot player-list))
      (set! (-> v1-15 transform-index) 3)
      (set-vector! (-> v1-15 local-sphere) 0.0 8192.0 0.0 12288.0)
      )
    (let ((v1-17 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 0))))
      (set! (-> v1-17 prim-core collide-as) (collide-spec obstacle camera-blocker))
      (set! (-> v1-17 prim-core collide-with) (collide-spec jak bot player-list))
      (set! (-> v1-17 transform-index) 3)
      (set-vector! (-> v1-17 local-sphere) 0.0 8192.0 0.0 12288.0)
      )
    (let ((v1-19 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0))))
      (set! (-> v1-19 prim-core collide-as) (collide-spec obstacle camera-blocker))
      (set! (-> v1-19 prim-core collide-with) (collide-spec jak bot player-list))
      (set! (-> v1-19 transform-index) 3)
      (set-vector! (-> v1-19 local-sphere) 0.0 8192.0 0.0 12288.0)
      )
    (let ((v1-21 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 3) (the-as uint 0))))
      (set! (-> v1-21 prim-core collide-as) (collide-spec obstacle camera-blocker))
      (set! (-> v1-21 prim-core collide-with) (collide-spec jak bot player-list))
      (set! (-> v1-21 transform-index) 3)
      (set-vector! (-> v1-21 local-sphere) 0.0 8192.0 0.0 12288.0)
      )
    (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
    (let ((v1-24 (-> s4-0 root-prim)))
      (set! (-> s4-0 backup-collide-as) (-> v1-24 prim-core collide-as))
      (set! (-> s4-0 backup-collide-with) (-> v1-24 prim-core collide-with))
      )
    (set! (-> this root) s4-0)
    )
  (process-drawable-from-entity! this arg0)
  (initialize-skeleton
    this
    (the-as skeleton-group (art-group-get-by-name *level* "skel-under-seaweed-a" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  (go (method-of-object this idle))
  (none)
  )

(deftype under-seaweed-b (process-drawable)
  ()
  (:state-methods
    idle
    )
  )


(defskelgroup skel-under-seaweed-b under-seaweed-b under-seaweed-b-lod0-jg under-seaweed-b-idle-ja
              ((under-seaweed-b-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 4 0 5)
              )

(defstate idle (under-seaweed-b)
  :virtual #t
  :enter (behavior ()
    0
    )
  :code (behavior ()
    (until #f
      (ja-no-eval :group! (ja-group) :num! (seek!) :frame-num 0.0)
      (until (ja-done? 0)
        (suspend)
        (ja :num! (seek!))
        )
      )
    #f
    )
  :post ja-post
  )

;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! ((this under-seaweed-b) (arg0 entity-actor))
  "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
  (set! (-> this root) (new 'process 'trsqv))
  (process-drawable-from-entity! this arg0)
  (initialize-skeleton
    this
    (the-as skeleton-group (art-group-get-by-name *level* "skel-under-seaweed-b" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  (go (method-of-object this idle))
  (none)
  )

(deftype under-seaweed-c (process-drawable)
  ()
  (:state-methods
    idle
    )
  )


(defskelgroup skel-under-seaweed-c under-seaweed-c under-seaweed-c-lod0-jg under-seaweed-c-idle-ja
              ((under-seaweed-c-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 3 0 4)
              )

(defstate idle (under-seaweed-c)
  :virtual #t
  :enter (behavior ()
    0
    )
  :code (behavior ()
    (until #f
      (ja-no-eval :group! (ja-group) :num! (seek!) :frame-num 0.0)
      (until (ja-done? 0)
        (suspend)
        (ja :num! (seek!))
        )
      )
    #f
    )
  :post ja-post
  )

;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! ((this under-seaweed-c) (arg0 entity-actor))
  "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
  (set! (-> this root) (new 'process 'trsqv))
  (process-drawable-from-entity! this arg0)
  (initialize-skeleton
    this
    (the-as skeleton-group (art-group-get-by-name *level* "skel-under-seaweed-c" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  (go (method-of-object this idle))
  (none)
  )

(deftype under-seaweed-d (process-drawable)
  ()
  (:state-methods
    idle
    )
  )


(defskelgroup skel-under-seaweed-d under-seaweed-d under-seaweed-d-lod0-jg under-seaweed-d-idle-ja
              ((under-seaweed-d-lod0-mg (meters 999999)))
              :bounds (static-spherem 0 6 0 7)
              )

(defstate idle (under-seaweed-d)
  :virtual #t
  :enter (behavior ()
    0
    )
  :code (behavior ()
    (until #f
      (ja-no-eval :group! (ja-group) :num! (seek!) :frame-num 0.0)
      (until (ja-done? 0)
        (suspend)
        (ja :num! (seek!))
        )
      )
    #f
    )
  :post ja-post
  )

;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! ((this under-seaweed-d) (arg0 entity-actor))
  "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
  (set! (-> this root) (new 'process 'trsqv))
  (process-drawable-from-entity! this arg0)
  (initialize-skeleton
    this
    (the-as skeleton-group (art-group-get-by-name *level* "skel-under-seaweed-d" (the-as (pointer uint32) #f)))
    (the-as pair 0)
    )
  (go (method-of-object this idle))
  (none)
  )

(defmethod draw ((this hud-mech-air-tank))
  (set-hud-piece-position!
    (the-as hud-sprite (-> this sprites))
    (the int (+ 472.0 (* 100.0 (-> this offset))))
    208
    )
  (set-as-offset-from! (-> this sprites 1) (the-as vector4w (-> this sprites)) 0 51)
  (set! (-> this sprites 0 scale-x) 0.8)
  (set! (-> this sprites 0 scale-y) 0.8)
  (set! (-> this sprites 1 scale-x) 0.8)
  (set! (-> this sprites 1 scale-y) 0.8)
  (set! (-> this sprites 3 scale-x) 0.8)
  (set! (-> this sprites 3 scale-y) 0.8)
  (set! (-> this sprites 2 scale-x) 3.2)
  (set! (-> this sprites 2 scale-y) (* 4.56 (- 1.0 (-> *game-info* air-supply))))
  (set-as-offset-from! (-> this sprites 2) (the-as vector4w (-> this sprites)) 0 2)
  (set-as-offset-from! (-> this sprites 3) (the-as vector4w (-> this sprites)) -30 -20)
  ((method-of-type hud draw) this)
  0
  (none)
  )

(defmethod update-values ((this hud-mech-air-tank))
  (set! (-> this values 0 target) (the int (-> *game-info* air-supply)))
  (logclear! (-> this flags) (hud-flags disable))
  ((method-of-type hud update-values) this)
  0
  (none)
  )

(defmethod init-callback ((this hud-mech-air-tank))
  (set! (-> this gui-id)
        (add-process *gui-control* this (gui-channel hud-middle-right) (gui-action hidden) (-> this name) 81920.0 0)
        )
  (logior! (-> this flags) (hud-flags show))
  (set! (-> this sprites 0 tex) (lookup-texture-by-id (new 'static 'texture-id :index #x2 :page #xd55)))
  (set! (-> this sprites 1 tex) (lookup-texture-by-id (new 'static 'texture-id :index #x3 :page #xd55)))
  (set! (-> this sprites 2 tex) (lookup-texture-by-id (new 'static 'texture-id :index #x4 :page #xd55)))
  (set! (-> this sprites 3 tex) (lookup-texture-by-id (new 'static 'texture-id :index #x1 :page #xd55)))
  0
  (none)
  )