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

;; failed to figure out what this is:
(defpart 108
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.6) 1.0)
    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.001) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-int spt-timer 600)
    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
    (sp-int spt-next-time 150)
    (sp-launcher-by-id spt-next-launcher 109)
    )
  )

;; failed to figure out what this is:
(defpart 109
  :init-specs ((sp-flt spt-fade-a -0.2))
  )

;; definition for function birth-func-y->userdata
;; INFO: Return type mismatch int vs none.
(defun birth-func-y->userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (+! (-> arg1 user-float) (-> arg2 vector 0 y))
  0
  (none)
  )

;; definition for function birth-func-ocean-height
;; INFO: Return type mismatch int vs none.
(defun birth-func-ocean-height ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (set! (-> arg2 vector 0 y) (+ (ocean-get-height (the-as vector (-> arg2 vector))) (-> arg1 user-float)))
  0
  (none)
  )

;; definition for function check-water-level-drop
;; INFO: Return type mismatch int vs none.
(defun check-water-level-drop ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
  (when (and (< (-> arg2 y) (-> arg1 user-float)) (< (-> arg1 vel-sxvel y) 0.0))
    (let ((s5-0 (new 'stack-no-clear 'vector)))
      (sp-kill-particle arg0 arg1)
      (set-vector! s5-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
      (sound-play "water-drop" :position (the-as symbol s5-0))
      (sp-launch-particles-var
        *sp-particle-system-3d*
        (-> *part-id-table* 108)
        s5-0
        (the-as sparticle-launch-state #f)
        (the-as sparticle-launch-control #f)
        1.0
        )
      )
    )
  0
  (none)
  )

;; definition for function check-water-level-drop-and-die
(defun check-water-level-drop-and-die ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
  (if (and (< (-> arg2 y) (-> arg1 user-float)) (< (-> arg1 vel-sxvel y) 0.0))
      (sp-kill-particle arg0 arg1)
      )
  (none)
  )

;; definition for function check-water-level-above-and-die
(defun check-water-level-above-and-die ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
  (if (>= (-> arg2 y) (-> arg1 user-float))
      (sp-kill-particle arg0 arg1)
      )
  (none)
  )

;; failed to figure out what this is:
(defpart 110
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
    (sp-flt spt-num 12.0)
    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
    (sp-rnd-flt spt-y (meters -0.05) (meters 0.1) 1.0)
    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.05) (meters 0.05) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 24.0 40.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
    (sp-flt spt-friction 0.96)
    (sp-int spt-timer 1500)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-flt spt-userdata 0.0)
    (sp-func spt-func 'check-water-level-above-and-die)
    (sp-flt spt-conerot-x (degrees 90.0))
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 111
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
    (sp-flt spt-num 0.1)
    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
    (sp-flt spt-y (meters 0.15))
    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.05) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 40.0 24.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
    (sp-flt spt-accel-y 1.3653333)
    (sp-flt spt-friction 0.96)
    (sp-int spt-timer 1500)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-flt spt-userdata 0.0)
    (sp-func spt-func 'check-water-level-above-and-die)
    (sp-flt spt-conerot-x (degrees 90.0))
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 112
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
    (sp-flt spt-num 0.05)
    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.001) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a 0.42666668)
    (sp-int spt-timer 600)
    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
    (sp-int spt-next-time 150)
    (sp-launcher-by-id spt-next-launcher 113)
    )
  )

;; failed to figure out what this is:
(defpart 113
  :init-specs ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 114))
  )

;; failed to figure out what this is:
(defpart 114
  :init-specs ((sp-flt spt-fade-a -0.7111111))
  )

;; failed to figure out what this is:
(defpart 115
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
    (sp-rnd-flt spt-num 0.04 0.03 1.0)
    (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z (meters -0.2) (meters 0.4) 1.0)
    (sp-flt spt-scale-x (meters 0.5))
    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 0.0)
    (sp-flt spt-scalevel-x (meters 0.008333334))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a 0.64)
    (sp-int spt-timer 600)
    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
    (sp-int spt-next-time 150)
    (sp-launcher-by-id spt-next-launcher 116)
    )
  )

;; failed to figure out what this is:
(defpart 116
  :init-specs ((sp-flt spt-scalevel-x (meters 0.006666667))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a 0.0)
    (sp-int spt-next-time 150)
    (sp-launcher-by-id spt-next-launcher 117)
    )
  )

;; failed to figure out what this is:
(defpart 117
  :init-specs ((sp-flt spt-scalevel-x (meters 0.005)) (sp-copy-from-other spt-scalevel-y -4) (sp-flt spt-fade-a -0.32))
  )

;; failed to figure out what this is:
(defpart 118
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
    (sp-flt spt-num 0.06)
    (sp-flt spt-x (meters 10))
    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1.5) 1.0)
    (sp-flt spt-rot-y (degrees 0.0))
    (sp-rnd-flt spt-scale-y (meters 0.75) (meters 1.5) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.004333333) 1.0)
    (sp-rnd-flt spt-scalevel-y (meters 0.0033333334) (meters 0.004333333) 1.0)
    (sp-flt spt-fade-a 0.7111111)
    (sp-flt spt-friction 0.94)
    (sp-int spt-timer 600)
    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
    (sp-int spt-next-time 90)
    (sp-launcher-by-id spt-next-launcher 119)
    (sp-flt spt-rotate-y (degrees 0.0))
    )
  )

;; failed to figure out what this is:
(defpart 119
  :init-specs ((sp-flt spt-fade-a 0.0) (sp-int-plain-rnd spt-next-time 90 119 1) (sp-launcher-by-id spt-next-launcher 120))
  )

;; failed to figure out what this is:
(defpart 120
  :init-specs ((sp-flt spt-fade-a -0.21333334))
  )

;; failed to figure out what this is:
(defpart 121
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
    (sp-rnd-flt spt-num 0.05 0.4 1.0)
    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
    (sp-rnd-flt spt-z (meters 0.5) (meters 1.5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.7) 1.0)
    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.003) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a 0.42666668)
    (sp-int spt-timer 600)
    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
    (sp-int spt-next-time 150)
    (sp-launcher-by-id spt-next-launcher 122)
    (sp-flt spt-rotate-y (degrees 0.0))
    )
  )

;; failed to figure out what this is:
(defpart 122
  :init-specs ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 123))
  )

;; failed to figure out what this is:
(defpart 123
  :init-specs ((sp-flt spt-fade-a -0.7111111))
  )

;; failed to figure out what this is:
(defpartgroup group-part-water-splash
  :id 40
  :duration 900
  :flags (use-local-clock)
  :bounds (static-bspherem 0 -12 0 14)
  :parts ((sp-item 124 :flags (is-3d) :period 900 :length 63)
    (sp-item 125 :period 900 :length 15)
    (sp-item 126 :flags (is-3d) :period 900 :length 15)
    (sp-item 127 :flags (is-3d) :period 900 :length 15)
    (sp-item 128 :period 900 :length 15 :binding 129)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 130 :flags (is-3d) :period 900 :length 15 :offset 840)
    (sp-item 131 :flags (is-3d) :period 900 :length 60 :offset 840)
    (sp-item 132 :period 900 :length 10 :offset 840 :binding 133)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-part-water-splash-small
  :id 41
  :duration 900
  :flags (use-local-clock)
  :bounds (static-bspherem 0 -12 0 14)
  :parts ((sp-item 124 :flags (is-3d) :period 900 :length 63)
    (sp-item 125 :period 900 :length 15)
    (sp-item 126 :flags (is-3d) :period 900 :length 15)
    (sp-item 127 :flags (is-3d) :period 900 :length 15)
    (sp-item 128 :period 900 :length 10 :binding 129)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    (sp-item 129 :flags (start-dead) :period 900 :length 120)
    )
  )

;; failed to figure out what this is:
(defpart 129
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
    (sp-flt spt-num 0.4)
    (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
    (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 40.0 24.0 1.0)
    (sp-flt spt-scalevel-x (meters 0.000033333334))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-accel-y -1.6384001 -0.81920004 1.0)
    (sp-int spt-timer 450)
    (sp-cpuinfo-flags bit3)
    (sp-flt spt-userdata 0.0)
    (sp-func spt-func 'check-water-level-drop-and-die)
    )
  )

;; failed to figure out what this is:
(defpart 133
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
    (sp-flt spt-num 0.4)
    (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
    (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 40.0 24.0 1.0)
    (sp-flt spt-scalevel-x (meters 0.000033333334))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-accel-y -1.6384001 -0.81920004 1.0)
    (sp-int spt-timer 450)
    (sp-cpuinfo-flags bit3)
    (sp-flt spt-userdata 0.0)
    (sp-func spt-func 'check-water-level-drop-and-die)
    )
  )

;; failed to figure out what this is:
(defpart 131
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
    (sp-flt spt-num 0.3)
    (sp-rnd-flt spt-scale-x (meters 0.080000006) (meters 0.32000002) 1.0)
    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.080000006) (meters 0.32000002) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0090666665) 1.0)
    (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0090666665) 1.0)
    (sp-flt spt-fade-a 0.32)
    (sp-int spt-timer 600)
    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
    (sp-int spt-next-time 150)
    (sp-launcher-by-id spt-next-launcher 134)
    )
  )

;; failed to figure out what this is:
(defpart 132
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
    (sp-flt spt-num 3.2)
    (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
    (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.35) (meters 0.075) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.075) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 40.0 24.0 1.0)
    (sp-rnd-flt spt-vel-x (meters -0.002) (meters 0.004) 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.018666666) (meters 0.0053333333) 1.0)
    (sp-rnd-flt spt-vel-z (meters -0.002) (meters 0.004) 1.0)
    (sp-flt spt-scalevel-x (meters -0.00066666666))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-accel-y -3.2768002 -0.81920004 1.0)
    (sp-int spt-timer 900)
    (sp-cpuinfo-flags bit3)
    (sp-flt spt-userdata 0.0)
    (sp-func spt-func 'check-water-level-drop)
    (sp-int spt-next-time 120)
    (sp-launcher-by-id spt-next-launcher 135)
    )
  )

;; failed to figure out what this is:
(defpart 130
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x10 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.24000001) (meters 0.71999997) 1.0)
    (sp-flt spt-rot-x 16384.0)
    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-rot-z (degrees 0.0))
    (sp-rnd-flt spt-scale-y (meters 0.8) (meters 1.7600001) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 32.0 32.0 1.0)
    (sp-rnd-flt spt-scalevel-y (meters 0.053333335) (meters 0.013333334) 1.0)
    (sp-int spt-timer 240)
    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat set-conerot)
    (sp-int-plain-rnd spt-next-time 20 19 1)
    (sp-launcher-by-id spt-next-launcher 136)
    )
  )

;; failed to figure out what this is:
(defpart 136
  :init-specs ((sp-flt spt-scalevel-y (meters 0.026666667))
    (sp-int spt-next-time 20)
    (sp-launcher-by-id spt-next-launcher 137)
    )
  )

;; failed to figure out what this is:
(defpart 137
  :init-specs ((sp-flt spt-scalevel-y (meters 0))
    (sp-flt spt-fade-a -0.64)
    (sp-int spt-next-time 20)
    (sp-launcher-by-id spt-next-launcher 138)
    )
  )

;; failed to figure out what this is:
(defpart 138
  :init-specs ((sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-flt spt-scalevel-y (meters -0.026666667))
    (sp-int spt-next-time 20)
    (sp-launcher-by-id spt-next-launcher 139)
    )
  )

;; failed to figure out what this is:
(defpart 139
  :init-specs ((sp-flt spt-scalevel-x (meters 0.0033333334)) (sp-flt spt-scalevel-y (meters -0.053333335)))
  )

;; failed to figure out what this is:
(defpart 126
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 2.4) (meters 1.6) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0037333334) 1.0)
    (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0037333334) 1.0)
    (sp-flt spt-fade-a 0.32)
    (sp-int spt-timer 600)
    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
    (sp-int spt-next-time 150)
    (sp-launcher-by-id spt-next-launcher 134)
    )
  )

;; failed to figure out what this is:
(defpart 134
  :init-specs ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 140))
  )

;; failed to figure out what this is:
(defpart 140
  :init-specs ((sp-flt spt-fade-a -0.53333336))
  )

;; failed to figure out what this is:
(defpart 127
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
    (sp-rnd-flt spt-num 0.5 1.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.8) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0026666666) 1.0)
    (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0026666666) 1.0)
    (sp-flt spt-fade-a 0.32)
    (sp-int spt-timer 600)
    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
    (sp-int spt-next-time 150)
    (sp-launcher-by-id spt-next-launcher 134)
    )
  )

;; failed to figure out what this is:
(defpart 128
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
    (sp-flt spt-num 3.2)
    (sp-flt spt-x (meters 0.96000004))
    (sp-rnd-flt spt-scale-x (meters 0.35) (meters 0.075) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.075) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 40.0 24.0 1.0)
    (sp-rnd-flt spt-vel-x (meters 0.0026666666) (meters 0.0053333333) 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.016) (meters 0.0053333333) 1.0)
    (sp-flt spt-scalevel-x (meters -0.00066666666))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-accel-y -3.2768002 -0.81920004 1.0)
    (sp-int spt-timer 900)
    (sp-cpuinfo-flags bit3)
    (sp-flt spt-userdata 0.0)
    (sp-func spt-func 'check-water-level-drop)
    (sp-int spt-next-time 120)
    (sp-launcher-by-id spt-next-launcher 135)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 135
  :init-specs ((sp-flt spt-scalevel-x (meters 0)) (sp-copy-from-other spt-scalevel-y -4))
  )

;; failed to figure out what this is:
(defpart 125
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
    (sp-flt spt-num 8.0)
    (sp-flt spt-x (meters 0.8))
    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.05) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 40.0 24.0 1.0)
    (sp-rnd-flt spt-vel-x (meters 0.0026666666) (meters 0.0053333333) 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.0053333333) (meters 0.0053333333) 1.0)
    (sp-flt spt-scalevel-x (meters -0.00033333333))
    (sp-flt spt-scalevel-y (meters -0.00033333333))
    (sp-rnd-flt spt-accel-y -2.1845336 -0.5461334 1.0)
    (sp-int spt-timer 375)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-flt spt-userdata 0.0)
    (sp-func spt-func 'check-water-level-drop-and-die)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 124
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x10 :page #x2))
    (sp-flt spt-num 1.5)
    (sp-rnd-flt spt-x (meters 0.96000004) (meters 0.16000001) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.32000002) (meters 0.96000004) 1.0)
    (sp-flt spt-rot-x 16384.0)
    (sp-flt spt-rot-y (degrees 90.0))
    (sp-flt spt-rot-z (degrees 0.0))
    (sp-rnd-flt spt-scale-y (meters 0.16000001) (meters 1.7600001) 1.0)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 48.0 24.0 1.0)
    (sp-flt spt-vel-x (meters 0.0026666666))
    (sp-rnd-flt spt-scalevel-x (meters 0) (meters 0.0016666667) 1.0)
    (sp-flt spt-rotvel-x (degrees 0.2))
    (sp-flt spt-scalevel-y (meters 0.04))
    (sp-int spt-timer 240)
    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat set-conerot)
    (sp-int-plain-rnd spt-next-time 20 19 1)
    (sp-launcher-by-id spt-next-launcher 141)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 141
  :init-specs ((sp-flt spt-scalevel-x (meters 0))
    (sp-flt spt-rotvel-x (degrees 0.16666667))
    (sp-flt spt-scalevel-y (meters 0.016666668))
    (sp-int spt-next-time 20)
    (sp-launcher-by-id spt-next-launcher 142)
    )
  )

;; failed to figure out what this is:
(defpart 142
  :init-specs ((sp-flt spt-rotvel-x (degrees 0.13333334))
    (sp-flt spt-scalevel-y (meters 0))
    (sp-flt spt-fade-a -0.64)
    (sp-int spt-next-time 20)
    (sp-launcher-by-id spt-next-launcher 143)
    )
  )

;; failed to figure out what this is:
(defpart 143
  :init-specs ((sp-flt spt-rotvel-x (degrees 0.1))
    (sp-flt spt-scalevel-y (meters -0.016666668))
    (sp-int spt-next-time 20)
    (sp-launcher-by-id spt-next-launcher 144)
    )
  )

;; failed to figure out what this is:
(defpart 144
  :init-specs ((sp-flt spt-rotvel-x (degrees 0.06666667)) (sp-flt spt-scalevel-y (meters -0.033333335)))
  )

;; failed to figure out what this is:
(defpart 145
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-rnd-flt spt-a 40.0 24.0 1.0)
    (sp-rnd-flt spt-vel-x (meters -0.016666668) (meters 0.0016666667) 1.0)
    (sp-flt spt-vel-y (meters 0.016666668))
    (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.0016666667) 1.0)
    (sp-flt spt-scalevel-x (meters -0.00016666666))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-accel-y -2.7306666)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-flt spt-userdata 0.0)
    (sp-func spt-func 'check-water-level-drop-and-die)
    (sp-int spt-next-time 225)
    (sp-launcher-by-id spt-next-launcher 114)
    )
  )

;; definition for method 9 of type water-control
;; INFO: Return type mismatch int vs none.
(defmethod dummy-9 water-control ((obj water-control))
  0
  (none)
  )

;; definition for method 10 of type water-control
;; INFO: Return type mismatch int vs none.
;; Used lq/sq
(defmethod dummy-10 water-control ((obj water-control))
  (with-pp
    (let ((s5-0 (-> obj flags)))
      (cond
        ((zero? (logand (-> obj flags) (water-flags wt01)))
         (logclear! (-> obj flags) (water-flags wt09 wt10 wt11 wt12 wt13 wt14 wt16))
         )
        ((and (logtest? (water-flags wt21) (-> obj flags))
              (logtest? (-> obj process state-flags) (state-flags grabbed))
              )
         (set! (-> obj flags) (logior (water-flags wt16) (-> obj flags)))
         )
        ((begin
           (set! (-> obj top 1 quad) (-> obj top 0 quad))
           (vector<-cspace! (the-as vector (-> obj top)) (-> obj process node-list data (-> obj joint-index)))
           (+! (-> obj top 0 y) (-> obj top-y-offset))
           (set! (-> obj bottom 1 quad) (-> obj bottom 0 quad))
           (set! (-> obj bottom 0 quad) (-> obj process root trans quad))
           (logclear! (-> obj flags) (water-flags wt10 wt11 wt12 wt13 wt14))
           (set! (-> obj bob-offset) (update! (-> obj bob)))
           (cond
             ((and (logtest? (-> obj flags) (water-flags wt08))
                   (zero? (logand (-> (the-as collide-shape-moving (-> obj process root)) root-prim prim-core action)
                                  (collide-action ca-9)
                                  )
                          )
                   )
              (set! (-> obj real-ocean-offset) (- (ocean-get-height (the-as vector (-> obj bottom))) (-> obj base-height)))
              (if (zero? (logand (-> obj flags) (water-flags wt09)))
                  (set! (-> obj ocean-offset) (-> obj real-ocean-offset))
                  (set! (-> obj ocean-offset) (lerp (-> obj ocean-offset) (-> obj real-ocean-offset) 0.2))
                  )
              )
             ((logtest? (water-flags wt20) (-> obj flags))
              (let* ((a0-26 (-> obj volume process 0))
                     (f30-0 (ripple-find-height (the-as process-drawable a0-26) 0 (the-as vector (-> obj bottom))))
                     )
                (set! (-> obj real-ocean-offset) (- f30-0 (-> obj base-height)))
                (if (zero? (logand (-> obj flags) (water-flags wt09)))
                    (set! (-> obj ocean-offset) (-> obj real-ocean-offset))
                    (set! (-> obj ocean-offset) (lerp (-> obj ocean-offset) (-> obj real-ocean-offset) 0.2))
                    )
                (let ((v1-36 (new 'stack-no-clear 'vector)))
                  (set! (-> v1-36 quad) (-> obj bottom 0 quad))
                  (set! (-> v1-36 y) f30-0)
                  )
                )
              )
             (else
               (set! (-> obj real-ocean-offset) 0.0)
               (set! (-> obj ocean-offset) 0.0)
               )
             )
           (if (logtest? (-> (the-as collide-shape-moving (-> obj process root)) root-prim prim-core action)
                         (collide-action ca-9)
                         )
               (set! (-> obj bob-offset) 0.0)
               )
           (set! (-> obj height)
                 (+ (-> obj base-height) (-> obj ocean-offset) (-> obj bob-offset) (-> obj align-offset))
                 )
           (set! (-> obj surface-height) (+ (-> obj base-height) (-> obj real-ocean-offset)))
           (set! (-> obj swim-depth) (fmax 0.0 (- (- (-> obj surface-height) (-> obj swim-height)) (-> obj bottom 0 y))))
           (>= (-> obj height) (-> obj bottom 0 y))
           )
         (if (logtest? (-> (the-as collide-shape-moving (-> obj process root)) status) (cshape-moving-flags on-water))
             (set! (-> obj on-water-time) (-> *display* base-frame-counter))
             )
         (set! (-> obj drip-wetness) 1.0)
         (set! (-> obj drip-height) (fmax (- (-> obj surface-height) (-> obj bottom 0 y)) (-> obj drip-height)))
         (set! (-> obj drip-speed) 15.0)
         (if (zero? (logand (-> obj flags) (water-flags wt09)))
             (TODO-RENAME-15 obj)
             )
         (cond
           ((>= (-> obj top 0 y) (-> obj height))
            (let ((s4-0 (new 'stack-no-clear 'vector)))
              (set! (-> s4-0 quad) (-> obj bottom 0 quad))
              (vector-xz-length (-> obj process root transv))
              (set! (-> s4-0 y) (-> obj surface-height))
              (when (and (logtest? (-> obj process draw status) (draw-status was-drawn))
                         (zero? (-> obj process draw cur-lod))
                         (logtest? (water-flags wt22) (-> obj flags))
                         (logtest? (water-flags wt23) (-> obj flags))
                         )
                (let ((f30-1 (y-angle (-> obj process root)))
                      (f28-0 (vector-xz-length (-> obj process root transv)))
                      )
                  (set! (-> *part-id-table* 118 init-specs 4 initial-valuef) (+ 24576.0 f30-1))
                  (set! (-> *part-id-table* 118 init-specs 19 initial-valuef) (+ 49152.0 f30-1))
                  (set! (-> *part-id-table* 118 init-specs 1 initial-valuef) (* 0.0000036621095 f28-0))
                  (set! (-> *part-id-table* 118 init-specs 2 initial-valuef) (* 0.1 f28-0))
                  (set! (-> *part-id-table* 118 init-specs 13 initial-valuef) 0.7111111)
                  (sp-launch-particles-var
                    *sp-particle-system-3d*
                    (-> *part-id-table* 118)
                    s4-0
                    (the-as sparticle-launch-state #f)
                    (the-as sparticle-launch-control #f)
                    1.0
                    )
                  (set! (-> *part-id-table* 121 init-specs 1 initial-valuef) (* 0.000004150391 f28-0))
                  (set! (-> *part-id-table* 121 init-specs 18 initial-valuef) f30-1)
                  (sp-launch-particles-var
                    *sp-particle-system-3d*
                    (-> *part-id-table* 121)
                    s4-0
                    (the-as sparticle-launch-state #f)
                    (the-as sparticle-launch-control #f)
                    1.0
                    )
                  (when (< f28-0 4096.0)
                    (set! (-> *part-id-table* 112 init-specs 4 random-rangef) (-> obj ripple-size))
                    (sp-launch-particles-var
                      *sp-particle-system-3d*
                      (-> *part-id-table* 112)
                      s4-0
                      (the-as sparticle-launch-state #f)
                      (the-as sparticle-launch-control #f)
                      1.0
                      )
                    (sp-launch-particles-var
                      *sp-particle-system-3d*
                      (-> *part-id-table* 115)
                      s4-0
                      (the-as sparticle-launch-state #f)
                      (the-as sparticle-launch-control #f)
                      1.0
                      )
                    )
                  )
                )
              (if (< (-> obj top 1 y) (-> obj height))
                  (dummy-13 obj 0.2 s4-0 1 (-> obj process root transv))
                  )
              )
            )
           (else
             (logior! (-> obj flags) (water-flags wt13))
             )
           )
         (when (and (logtest? (-> obj flags) (water-flags wt05)) (logtest? (water-flags wt23) (-> obj flags)))
           (let* ((v1-124 (rand-vu-int-range 3 (+ (-> obj process node-list length) -1)))
                  (s4-1 (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj process node-list data v1-124)))
                  )
             (set! (-> *part-id-table* 110 init-specs 16 initial-valuef) (-> obj surface-height))
             (set! (-> *part-id-table* 110 init-specs 1 initial-valuef)
                   (+ (lerp-scale 12.0 0.4 (the float (- (-> *display* base-frame-counter) (-> obj enter-water-time))) 0.0 600.0)
                      (* 0.00012207031 (vector-xz-length (-> obj process root transv)))
                      )
                   )
             (sp-launch-particles-var
               *sp-particle-system-2d*
               (-> *part-id-table* 110)
               s4-1
               (the-as sparticle-launch-state #f)
               (the-as sparticle-launch-control #f)
               1.0
               )
             (set! (-> *part-id-table* 111 init-specs 16 initial-valuef) (-> obj surface-height))
             (sp-launch-particles-var
               *sp-particle-system-2d*
               (-> *part-id-table* 111)
               s4-1
               (the-as sparticle-launch-state #f)
               (the-as sparticle-launch-control #f)
               1.0
               )
             )
           )
         (let ((f30-3 (- (+ (-> obj base-height) (-> obj ocean-offset) (-> obj bob-offset) (-> obj align-offset))
                         (-> obj swim-height)
                         )
                      )
               )
           (let* ((s4-2 (-> obj process root))
                  (v1-146 (if (and (nonzero? s4-2) (type-type? (-> s4-2 type) control-info))
                              s4-2
                              )
                          )
                  (s4-3
                    (and v1-146
                         (< (- (-> *display* base-frame-counter) (-> (the-as control-info v1-146) unknown-dword11)) (seconds 0.5))
                         )
                    )
                  )
             (if (and (logtest? (-> obj flags) (water-flags wt04))
                      (and s4-3
                           (zero? (logand (-> (the-as collide-shape-moving (-> obj process root)) status) (cshape-moving-flags on-water))
                                  )
                           )
                      )
                 (set! (-> obj bob amp) (* 0.8 (-> obj bob amp)))
                 )
             (cond
               ((and (logtest? (-> obj flags) (water-flags wt03))
                     (or (logtest? (-> (the-as collide-shape-moving (-> obj process root)) status) (cshape-moving-flags on-water))
                         (>= f30-3 (-> obj bottom 0 y))
                         (and (logtest? s5-0 (water-flags wt11))
                              (logtest? (-> (the-as collide-shape-moving (-> obj process root)) status) (cshape-moving-flags tsurf))
                              (zero? (logand (-> (the-as collide-shape-moving (-> obj process root)) status) (cshape-moving-flags onsurf)))
                              (>= (+ 204.8 f30-3) (-> obj bottom 0 y))
                              )
                         )
                     (or (logtest? s5-0 (water-flags wt11))
                         (< 12288.0 (vector-xz-length (-> obj process root transv)))
                         (< (+ (-> *display* base-frame-counter) (seconds -0.2)) (-> obj enter-water-time))
                         (>= (+ (- 204.8 (fmin 6144.0 (+ (-> obj ocean-offset) (-> obj bob-offset) (-> obj align-offset)))) f30-3)
                             (-> obj bottom 0 y)
                             )
                         )
                     )
                (set! (-> obj swim-time) (-> *display* base-frame-counter))
                (send-event (-> obj process) 'swim)
                (logior! (-> obj flags) (water-flags wt11))
                (if (zero? (logand s5-0 (water-flags wt11)))
                    (set! (-> obj enter-swim-time) (-> *display* base-frame-counter))
                    )
                (cond
                  ((and (logtest? (-> obj flags) (water-flags wt04))
                        (logtest? (-> (the-as collide-shape-moving (-> obj process root)) status) (cshape-moving-flags tsurf))
                        (zero? (logand (water-flags wt16) (-> obj flags)))
                        )
                   (let ((v1-200 (new 'stack-no-clear 'vector)))
                     (set! (-> v1-200 quad) (-> obj bottom 0 quad))
                     (set! (-> v1-200 y) (- (-> obj height) (-> obj swim-height)))
                     (let ((s4-4 (-> obj process root)))
                       (when (and (zero? (logand (-> (the-as collide-shape-moving s4-4) status) (cshape-moving-flags csmf12)))
                                  (logtest? (-> obj flags) (water-flags wt11))
                                  (zero? (logand (-> (the-as collide-shape-moving s4-4) root-prim prim-core action) (collide-action ca-9)))
                                  )
                         (let ((a1-27 (vector-! (new 'stack-no-clear 'vector) v1-200 (-> s4-4 trans))))
                           (vector-float*! a1-27 a1-27 (-> *display* frames-per-second))
                           (integrate-and-collide! (the-as collide-shape-moving s4-4) a1-27)
                           )
                         (logior! (-> (the-as collide-shape-moving s4-4) status) (cshape-moving-flags onsurf onground tsurf on-water))
                         )
                       )
                     )
                   )
                  ((and (< (-> obj bottom 0 y) f30-3) (zero? (logand (water-flags wt16) (-> obj flags))))
                   (logior! (-> obj flags) (water-flags wt12))
                   )
                  )
                )
               ((begin
                  (set! s4-3 (and (logtest? (-> obj flags) (water-flags wt02))
                                  (or (not (!= (-> obj bob amp) 0.0))
                                      (>= (- (-> *display* base-frame-counter) (-> obj swim-time)) (seconds 0.05))
                                      )
                                  (and (>= (- (-> obj height) (-> obj wade-height)) (-> obj bottom 0 y)) s4-3)
                                  )
                        )
                  s4-3
                  )
                (set! (-> obj wade-time) (-> *display* base-frame-counter))
                (send-event (-> obj process) 'wade)
                (logior! (-> obj flags) (water-flags wt10))
                )
               )
             )
           (when (and (logtest? (-> obj flags) (water-flags wt03))
                      (< (-> obj bottom 1 y) f30-3)
                      (and (< f30-3 (-> obj bottom 0 y)) (logtest? s5-0 (water-flags wt12)))
                      )
             (logior! (-> obj flags) (water-flags wt11))
             (let ((a1-30 (new 'stack-no-clear 'vector)))
               (set! (-> a1-30 quad) (-> obj bottom 0 quad))
               (let ((s5-1 (-> obj process root)))
                 (set! (-> a1-30 y) f30-3)
                 (when (zero? (logand (-> (the-as collide-shape-moving s5-1) root-prim prim-core action) (collide-action ca-9)))
                   (let ((f30-4 (-> (the-as collide-shape-moving s5-1) ground-impact-vel)))
                     (move-to-ground-point! (the-as collide-shape-moving s5-1) a1-30 (-> s5-1 transv) *up-vector*)
                     (logior! (-> (the-as collide-shape-moving s5-1) status) (cshape-moving-flags on-water))
                     (set! (-> (the-as collide-shape-moving s5-1) ground-impact-vel) f30-4)
                     )
                   )
                 )
               )
             )
           )
         (when (and (logtest? (water-flags wt17) (-> obj flags)) (= (-> obj process type) target))
           (when (and (logtest? (-> (the-as collide-shape-moving (-> obj process root)) status)
                                (cshape-moving-flags onsurf on-water)
                                )
                      (zero? (logand (-> (the-as collide-shape-moving (-> obj process root)) root-prim prim-core action)
                                     (collide-action ca-9)
                                     )
                             )
                      )
             (when (< (-> obj process root trans y) -409.6)
               (send-event (-> obj process) 'no-look-around (seconds 1.5))
               (when (zero? (logand (-> (the-as collide-shape-moving (-> obj process root)) root-prim prim-core action)
                                    (collide-action ca-14)
                                    )
                            )
                 (cond
                   ((= (-> obj process type) target)
                    (send-event
                      (-> obj process)
                      'attack
                      #f
                      (static-attack-info ((shove-up (meters 0.5)) (shove-back (meters 0)) (mode 'tar)))
                      )
                    )
                   (else
                     (let ((a1-33 (new 'stack-no-clear 'event-message-block)))
                       (set! (-> a1-33 from) pp)
                       (set! (-> a1-33 num-params) 4)
                       (set! (-> a1-33 message) 'attack)
                       (set! (-> a1-33 param 0) (the-as uint #f))
                       (set! (-> a1-33 param 1) (the-as uint 'tar))
                       (let ((v1-281 (+ *global-attack-id* 1)))
                         (set! *global-attack-id* v1-281)
                         (set! (-> a1-33 param 2) (the-as uint v1-281))
                         )
                       (set! (-> a1-33 param 3) (the-as uint 0))
                       (send-event-function (-> obj process) a1-33)
                       )
                     )
                   )
                 )
               (let ((v1-283 (-> obj process)))
                 (set! (-> (the-as collide-shape-moving (-> v1-283 root)) surf) *tar-surface*)
                 (set! (-> (the-as collide-shape-moving (-> v1-283 root)) ground-pat material) 4)
                 )
               )
             (set! (-> obj swim-height) (lerp (-> obj swim-height) 7372.8 0.05))
             )
           )
         )
        (else
          (if (logtest? (-> obj flags) (water-flags wt09))
              (TODO-RENAME-16 obj)
              )
          )
        )
      )
    (when (not (or (zero? (logand (-> obj flags) (water-flags wt06)))
                   (zero? (logand (water-flags wt23) (-> obj flags)))
                   (= (-> obj drip-wetness) 0.0)
                   )
               )
      (cond
        ((logtest? (-> obj flags) (water-flags wt15))
         (let ((a2-15
                 (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj process node-list data (-> obj drip-joint-index)))
                 )
               )
           (set! (-> *part-id-table* 145 init-specs 16 initial-valuef)
                 (fmax (-> obj surface-height) (-> obj bottom 0 y))
                 )
           (set! (-> *part-id-table* 145 init-specs 8 initial-valuef) (* 0.05 (- (-> a2-15 x) (-> obj drip-old-pos x))))
           (set! (-> *part-id-table* 145 init-specs 9 initial-valuef) (* 0.05 (- (-> a2-15 y) (-> obj drip-old-pos y))))
           (set! (-> *part-id-table* 145 init-specs 10 initial-valuef) (* 0.05 (- (-> a2-15 z) (-> obj drip-old-pos z))))
           (sp-launch-particles-var
             *sp-particle-system-2d*
             (-> *part-id-table* 145)
             a2-15
             (the-as sparticle-launch-state #f)
             (the-as sparticle-launch-control #f)
             1.0
             )
           )
         (set! (-> obj drip-time) (-> *display* base-frame-counter))
         (logclear! (-> obj flags) (water-flags wt15))
         (seek! (-> obj drip-wetness) 0.0 (* 0.001 (-> obj drip-speed)))
         (set! (-> obj drip-speed) (* 1.05 (-> obj drip-speed)))
         (if (= (-> obj drip-wetness) 0.0)
             (set! (-> obj drip-height) 0.0)
             )
         )
        ((>= (- (-> *display* base-frame-counter)
                (the-as time-frame (the int (/ (the float (-> obj drip-time)) (-> obj drip-mult))))
                )
             (the int (-> obj drip-speed))
             )
         (let* ((s5-2 (rand-vu-int-range 3 (+ (-> obj process node-list length) -1)))
                (v1-328 (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj process node-list data s5-2)))
                )
           (when (and (< (- (-> v1-328 y) (-> obj process root trans y)) (-> obj drip-height))
                      (< (-> obj height) (-> v1-328 y))
                      )
             (set! (-> obj drip-joint-index) s5-2)
             (set! (-> obj drip-old-pos quad) (-> v1-328 quad))
             (logior! (-> obj flags) (water-flags wt15))
             )
           )
         )
        )
      )
    0
    (none)
    )
  )

;; definition for method 11 of type water-control
;; INFO: Return type mismatch int vs none.
(defmethod start-bobbing! water-control ((obj water-control) (arg0 float) (arg1 int) (arg2 int))
  (activate! (-> obj bob) (- arg0) arg1 arg2 0.9 1.0)
  0
  (none)
  )

;; definition for function part-water-splash-callback
;; INFO: Return type mismatch int vs none.
(defun part-water-splash-callback ((arg0 part-tracker))
  (let ((f1-0 (-> arg0 root trans y))
        (f0-0 (the-as float (-> arg0 userdata)))
        )
    (set! (-> *part-id-table* 128 init-specs 16 initial-valuef) f1-0)
    (set! (-> *part-id-table* 132 init-specs 18 initial-valuef) f1-0)
    (set! (-> *part-id-table* 125 init-specs 16 initial-valuef) f1-0)
    (set! (-> *part-id-table* 129 init-specs 15 initial-valuef) f1-0)
    (set! (-> *part-id-table* 133 init-specs 15 initial-valuef) f1-0)
    (set! (-> *part-id-table* 129 init-specs 12 initial-valuef) (* 13.653334 (* -0.15 f0-0)))
    (set! (-> *part-id-table* 129 init-specs 12 random-rangef) (* 13.653334 (* -0.075 f0-0)))
    (set! (-> *part-id-table* 133 init-specs 12 initial-valuef) (* 13.653334 (* -0.15 f0-0)))
    (set! (-> *part-id-table* 133 init-specs 12 random-rangef) (* 13.653334 (* -0.075 f0-0)))
    (set! (-> *part-id-table* 131 init-specs 2 initial-valuef) (* 4096.0 (* 0.1 f0-0)))
    (set! (-> *part-id-table* 131 init-specs 2 random-rangef) (* 4096.0 (* 0.4 f0-0)))
    (set! (-> *part-id-table* 131 init-specs 4 initial-valuef) (* 4096.0 (* 0.1 f0-0)))
    (set! (-> *part-id-table* 131 init-specs 4 random-rangef) (* 4096.0 (* 0.4 f0-0)))
    (set! (-> *part-id-table* 131 init-specs 9 initial-valuef) (* 13.653334 (* 1.5 f0-0)))
    (set! (-> *part-id-table* 131 init-specs 9 random-rangef) (* 13.653334 (* 3.4 f0-0)))
    (set! (-> *part-id-table* 131 init-specs 10 initial-valuef) (* 13.653334 (* 1.5 f0-0)))
    (set! (-> *part-id-table* 131 init-specs 10 random-rangef) (* 13.653334 (* 3.4 f0-0)))
    (set! (-> *part-id-table* 126 init-specs 2 initial-valuef) (* 4096.0 (* 3.0 f0-0)))
    (set! (-> *part-id-table* 126 init-specs 2 random-rangef) (* 4096.0 (* 2.0 f0-0)))
    (set! (-> *part-id-table* 126 init-specs 4 initial-valuef) (* 4096.0 (* 3.0 f0-0)))
    (set! (-> *part-id-table* 126 init-specs 4 random-rangef) (* 4096.0 (* 2.0 f0-0)))
    (set! (-> *part-id-table* 126 init-specs 9 initial-valuef) (* 13.653334 (* 1.5 f0-0)))
    (set! (-> *part-id-table* 126 init-specs 9 random-rangef) (* 13.653334 (* 1.4 f0-0)))
    (set! (-> *part-id-table* 126 init-specs 10 initial-valuef) (* 13.653334 (* 1.5 f0-0)))
    (set! (-> *part-id-table* 126 init-specs 10 random-rangef) (* 13.653334 (* 1.4 f0-0)))
    (set! (-> *part-id-table* 127 init-specs 2 initial-valuef) (* 4096.0 (* -0.5 f0-0)))
    (set! (-> *part-id-table* 127 init-specs 2 random-rangef) (* 4096.0 f0-0))
    (set! (-> *part-id-table* 127 init-specs 3 initial-valuef) (* 4096.0 (* -0.5 f0-0)))
    (set! (-> *part-id-table* 127 init-specs 3 random-rangef) (* 4096.0 f0-0))
    (set! (-> *part-id-table* 127 init-specs 4 initial-valuef) (* 4096.0 (* 0.5 f0-0)))
    (set! (-> *part-id-table* 127 init-specs 4 random-rangef) (* 4096.0 f0-0))
    (set! (-> *part-id-table* 127 init-specs 6 initial-valuef) (* 4096.0 (* 0.5 f0-0)))
    (set! (-> *part-id-table* 127 init-specs 6 random-rangef) (* 4096.0 f0-0))
    (set! (-> *part-id-table* 127 init-specs 11 initial-valuef) (* 13.653334 (* 1.5 f0-0)))
    (set! (-> *part-id-table* 127 init-specs 11 random-rangef) (* 13.653334 f0-0))
    (set! (-> *part-id-table* 127 init-specs 12 initial-valuef) (* 13.653334 (* 1.5 f0-0)))
    (set! (-> *part-id-table* 127 init-specs 12 random-rangef) (* 13.653334 f0-0))
    (set! (-> *part-id-table* 132 init-specs 1 initial-valuef) (* 4.0 f0-0))
    (set! (-> *part-id-table* 132 init-specs 2 initial-valuef) (* 4096.0 (* -0.25 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 2 random-rangef) (* 4096.0 (* 0.5 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 3 initial-valuef) (* 4096.0 (* -0.25 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 3 random-rangef) (* 4096.0 (* 0.5 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 10 initial-valuef) (* 13.653334 (* -0.75 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 10 random-rangef) (* 13.653334 (* 1.5 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 12 initial-valuef) (* 13.653334 (* -0.75 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 12 random-rangef) (* 13.653334 (* 1.5 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 11 initial-valuef) (* 13.653334 (* 7.0 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 11 random-rangef) (* 13.653334 (* 2.0 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 15 initial-valuef) (* 13.653334 (* -0.3 f0-0)))
    (set! (-> *part-id-table* 132 init-specs 15 random-rangef) (* 13.653334 (* -0.075 f0-0)))
    (set! (-> *part-id-table* 128 init-specs 1 initial-valuef) (* 4.0 f0-0))
    (set! (-> *part-id-table* 128 init-specs 2 initial-valuef) (* 1.2 f0-0))
    (set! (-> *part-id-table* 128 init-specs 9 initial-valuef) (* 13.653334 f0-0))
    (set! (-> *part-id-table* 128 init-specs 9 random-rangef) (* 13.653334 (* 2.0 f0-0)))
    (set! (-> *part-id-table* 128 init-specs 10 initial-valuef) (* 13.653334 (* 6.0 f0-0)))
    (set! (-> *part-id-table* 128 init-specs 10 random-rangef) (* 13.653334 (* 2.0 f0-0)))
    (set! (-> *part-id-table* 128 init-specs 13 initial-valuef) (* 13.653334 (* -0.3 f0-0)))
    (set! (-> *part-id-table* 128 init-specs 13 random-rangef) (* 13.653334 (* -0.075 f0-0)))
    (set! (-> *part-id-table* 128 init-specs 9 initial-valuef) (* 13.653334 f0-0))
    (set! (-> *part-id-table* 128 init-specs 9 random-rangef) (* 13.653334 (* 2.0 f0-0)))
    (set! (-> *part-id-table* 128 init-specs 10 initial-valuef) (* 13.653334 (* 6.0 f0-0)))
    (set! (-> *part-id-table* 128 init-specs 10 random-rangef) (* 13.653334 (* 2.0 f0-0)))
    (set! (-> *part-id-table* 128 init-specs 13 initial-valuef) (* 13.653334 (* -0.3 f0-0)))
    (set! (-> *part-id-table* 128 init-specs 13 random-rangef) (* 13.653334 (* -0.075 f0-0)))
    (set! (-> *part-id-table* 125 init-specs 1 initial-valuef) (* 8.0 f0-0))
    (set! (-> *part-id-table* 125 init-specs 2 initial-valuef) (* 4096.0 f0-0))
    (set! (-> *part-id-table* 125 init-specs 9 initial-valuef) (* 13.653334 f0-0))
    (set! (-> *part-id-table* 125 init-specs 9 random-rangef) (* 13.653334 (* 2.0 f0-0)))
    (set! (-> *part-id-table* 125 init-specs 10 initial-valuef) (* 13.653334 (* 6.0 f0-0)))
    (set! (-> *part-id-table* 125 init-specs 10 random-rangef) (* 13.653334 (* 2.0 f0-0)))
    (set! (-> *part-id-table* 125 init-specs 13 initial-valuef) (* 13.653334 (* -0.3 f0-0)))
    (set! (-> *part-id-table* 125 init-specs 13 random-rangef) (* 13.653334 (* -0.075 f0-0)))
    (set! (-> *part-id-table* 124 init-specs 2 initial-valuef) (* 4096.0 (* 1.2 f0-0)))
    (set! (-> *part-id-table* 124 init-specs 2 random-rangef) (* 4096.0 (* 0.2 f0-0)))
    (set! (-> *part-id-table* 124 init-specs 3 initial-valuef) (* 4096.0 (* 0.4 f0-0)))
    (set! (-> *part-id-table* 124 init-specs 3 random-rangef) (* 4096.0 (* 1.2 f0-0)))
    (set! (-> *part-id-table* 124 init-specs 7 initial-valuef) (* 4096.0 (* 0.2 f0-0)))
    (set! (-> *part-id-table* 124 init-specs 7 random-rangef) (* 4096.0 (* 2.2 f0-0)))
    (set! (-> *part-id-table* 130 init-specs 2 initial-valuef) (* 4096.0 (* 0.3 f0-0)))
    (set! (-> *part-id-table* 130 init-specs 2 random-rangef) (* 4096.0 (* 0.9 f0-0)))
    (set! (-> *part-id-table* 130 init-specs 6 initial-valuef) (* 4096.0 f0-0))
    (set! (-> *part-id-table* 130 init-specs 6 random-rangef) (* 4096.0 (* 2.2 f0-0)))
    )
  0
  (none)
  )

;; definition for method 15 of type water-control
;; INFO: Return type mismatch int vs none.
(defmethod TODO-RENAME-15 water-control ((obj water-control))
  (with-pp
    (logior! (-> obj flags) (water-flags wt09))
    (logclear! (-> obj flags) (water-flags wt16))
    (set! (-> obj enter-water-time) (-> *display* base-frame-counter))
    (set-vector! (-> obj enter-water-pos) (-> obj bottom 0 x) (-> obj surface-height) (-> obj bottom 0 z) 1.0)
    (when (and (logtest? (-> obj flags) (water-flags wt05)) (logtest? (water-flags wt23) (-> obj flags)))
      (let ((a1-1 (new 'stack-no-clear 'event-message-block)))
        (set! (-> a1-1 from) pp)
        (set! (-> a1-1 num-params) 1)
        (set! (-> a1-1 message) 'query)
        (set! (-> a1-1 param 0) (the-as uint 'ground-height))
        (let* ((f0-4 (the-as float (send-event-function (-> obj process) a1-1)))
               (f30-0 (lerp-scale 0.3 1.0 f0-4 2048.0 24576.0))
               )
          (if (nonzero? (-> obj process skel effect))
              (dummy-10 (-> obj process skel effect) 'swim-stroke 0.0 -1)
              )
          (dummy-13 obj f30-0 (-> obj enter-water-pos) 1 (-> obj process root transv))
          )
        )
      )
    (if (logtest? (water-flags wt17) (-> obj flags))
        (set! (-> obj swim-height) 2867.2)
        )
    0
    (none)
    )
  )

;; definition for method 16 of type water-control
;; INFO: Return type mismatch int vs none.
(defmethod TODO-RENAME-16 water-control ((obj water-control))
  (logclear! (-> obj flags) (water-flags wt09))
  (set-zero! (-> obj bob))
  (if (logtest? (water-flags wt17) (-> obj flags))
      (set! (-> obj swim-height) 2867.2)
      )
  0
  (none)
  )

;; definition for function splash-spawn
;; INFO: Return type mismatch int vs none.
(defun splash-spawn ((arg0 basic) (arg1 basic) (arg2 int))
  (process-spawn
    part-tracker
    :init part-tracker-init
    (if (zero? arg2)
        (-> *part-group-id-table* 41)
        (-> *part-group-id-table* 40)
        )
    -1
    part-water-splash-callback
    arg0
    #f
    arg1
    :to *entity-pool*
    )
  0
  (none)
  )

;; definition for method 13 of type water-control
;; INFO: Return type mismatch int vs none.
(defmethod dummy-13 water-control ((obj water-control) (arg0 float) (arg1 vector) (arg2 int) (arg3 vector))
  (when (and (logtest? (-> obj flags) (water-flags wt05)) (logtest? (water-flags wt23) (-> obj flags)))
    (let ((a1-3 (vector+float*! (new 'stack-no-clear 'vector) arg1 arg3 0.05)))
      (set! (-> a1-3 y) (-> obj surface-height))
      (splash-spawn (the-as basic arg0) (the-as basic a1-3) arg2)
      )
    )
  0
  (none)
  )

;; definition for method 27 of type water-vol
;; INFO: Return type mismatch int vs none.
(defmethod dummy-27 water-vol ((obj water-vol))
  (when (handle->process (-> obj target))
    (let ((v1-7 (-> (the-as target (-> obj target process 0)) water)))
      (logclear! (-> v1-7 flags) (water-flags wt01 wt02 wt03 wt08 wt17 wt18 wt19 wt20 wt21 wt23 wt24 wt25 wt26))
      (set! (-> v1-7 volume) (the-as handle #f))
      )
    (set! (-> obj target) (the-as handle #f))
    (iterate-process-tree
      *entity-pool*
      (lambda ((arg0 water-vol)) (with-pp
                                   (if (and (type-type? (-> arg0 type) water-vol) (!= arg0 pp))
                                       (send-event arg0 'update)
                                       )
                                   )
              )
      *null-kernel-context*
      )
    (process-entity-status! obj (entity-perm-status bit-3) #f)
    )
  0
  (none)
  )

;; definition for method 26 of type water-vol
;; INFO: Return type mismatch int vs none.
(defmethod TODO-RENAME-26 water-vol ((obj water-vol))
  (cond
    ((handle->process (-> obj target))
     (cond
       ((not (dummy-10 (-> obj vol) (-> (the-as target (-> obj target process 0)) control trans)))
        (dummy-27 obj)
        )
       (else
         (let ((v1-15 (-> (the-as target (-> obj target process 0)) water)))
           (when (and (logtest? (water-flags wt19) (-> obj flags))
                      (logtest? (-> v1-15 flags) (water-flags wt09))
                      (>= (-> v1-15 surface-height) (-> v1-15 bottom 0 y))
                      )
             (let ((v1-18 (-> obj attack-event)))
               (case v1-18
                 ((#f)
                  )
                 (('heat)
                  (send-event (handle->process (-> obj target)) 'heat (* 10.0 (-> *display* seconds-per-frame)))
                  )
                 (('drown-death 'lava 'dark-eco-pool)
                  (if (send-event (handle->process (-> obj target)) 'attack-invinc #f (static-attack-info ((mode v1-18))))
                      (send-event obj 'notify 'attack)
                      )
                  )
                 (else
                   (if (send-event (handle->process (-> obj target)) 'attack #f (static-attack-info ((mode v1-18))))
                       (send-event obj 'notify 'attack)
                       )
                   )
                 )
               )
             )
           )
         )
       )
     )
    ((and *target*
          (and (not (handle->process (-> *target* water volume))) (dummy-10 (-> obj vol) (-> *target* control trans)))
          )
     (let ((s5-0 (-> *target* water)))
       (process-entity-status! obj (entity-perm-status bit-3) #t)
       (set! (-> s5-0 volume) (process->handle obj))
       (set! (-> obj target) (process->handle *target*))
       (logior! (-> s5-0 flags) (water-flags wt01))
       (set! (-> s5-0 base-height) (-> obj water-height))
       (set! (-> s5-0 ocean-offset) 0.0)
       (logior! (-> s5-0 flags) (-> obj flags))
       (if (< 0.0 (-> obj wade-height))
           (set! (-> s5-0 wade-height) (-> obj wade-height))
           )
       (if (< 0.0 (-> obj swim-height))
           (set! (-> s5-0 swim-height) (-> obj swim-height))
           )
       (if (< 0.0 (-> obj bottom-height))
           (set! (-> s5-0 bottom-height) (-> obj bottom-height))
           )
       (set-zero! (-> s5-0 bob))
       )
     )
    )
  0
  (none)
  )

;; failed to figure out what this is:
(defstate water-vol-startup (water-vol)
  :virtual #t
  :code (behavior ()
    (go-virtual water-vol-idle)
    (none)
    )
  )

;; failed to figure out what this is:
(defstate water-vol-idle (water-vol)
  :virtual #t
  :event (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
    (let ((v1-0 arg2))
      (the-as object (if (= v1-0 'update)
                         (TODO-RENAME-26 self)
                         )
              )
      )
    )
  :exit (behavior ()
    (dummy-27 self)
    (none)
    )
  :trans (behavior ()
    (TODO-RENAME-26 self)
    (none)
    )
  :code (the-as (function none :behavior water-vol) anim-loop)
  )

;; definition for method 24 of type water-vol
(defmethod set-stack-size! water-vol ((obj water-vol))
  (stack-size-set! (-> obj main-thread) 128)
  (none)
  )

;; definition for method 23 of type water-vol
;; INFO: Return type mismatch trsqv vs none.
(defmethod reset-root! water-vol ((obj water-vol))
  (set! (-> obj root) (new 'process 'trsqv))
  (none)
  )

;; definition for method 25 of type water-vol
;; INFO: Return type mismatch int vs none.
(defmethod TODO-RENAME-25 water-vol ((obj water-vol))
  0
  (none)
  )

;; definition for method 29 of type water-vol
;; INFO: Return type mismatch water-flags vs none.
;; Used lq/sq
(defmethod TODO-RENAME-29 water-vol ((obj water-vol))
  (local-vars (sv-16 res-tag))
  (set! (-> obj attack-event) (the-as symbol ((method-of-type res-lump get-property-struct)
                                              (-> obj entity)
                                              'attack-event
                                              'interp
                                              -1000000000.0
                                              'drown
                                              (the-as (pointer res-tag) #f)
                                              *res-static-buf*
                                              )
                                      )
        )
  (process-drawable-from-entity! obj (-> obj entity))
  (logclear! (-> obj mask) (process-mask actor-pause))
  (set! (-> obj vol) (new 'process 'vol-control obj))
  (logior! (-> obj vol flags) 3)
  (set! (-> obj bottom-height) 32768.0)
  (set! (-> obj target) (the-as handle #f))
  (set! sv-16 (new 'static 'res-tag))
  (let ((v1-8 (the-as (pointer float) ((method-of-type res-lump get-property-data)
                                       (-> obj entity)
                                       'water-height
                                       'exact
                                       -1000000000.0
                                       (the-as pointer #f)
                                       (& sv-16)
                                       *res-static-buf*
                                       )
                      )
              )
        )
    (when v1-8
      (set! (-> obj water-height) (-> v1-8 0))
      (set! (-> obj wade-height) (-> v1-8 1))
      (set! (-> obj swim-height) (-> v1-8 2))
      (if (>= (-> sv-16 elt-count) (the-as uint 4))
          (set! (-> obj flags) (the-as water-flags (the int (-> v1-8 3))))
          )
      (if (>= (-> sv-16 elt-count) (the-as uint 5))
          (set! (-> obj bottom-height) (-> v1-8 4))
          )
      )
    )
  (set! (-> obj flags) (logior (water-flags wt23) (-> obj flags)))
  (cond
    ((zero? (-> obj flags))
     (if (< 0.0 (-> obj wade-height))
         (logior! (-> obj flags) (water-flags wt02))
         )
     (if (< 0.0 (-> obj swim-height))
         (logior! (-> obj flags) (water-flags wt03))
         )
     )
    (else
      )
    )
  (none)
  )

;; definition for method 22 of type water-vol
;; INFO: Return type mismatch int vs none.
(defmethod TODO-RENAME-22 water-vol ((obj water-vol))
  0
  (none)
  )

;; definition for function water-vol-init-by-other
;; INFO: Return type mismatch object vs none.
(defbehavior water-vol-init-by-other water-vol ((arg0 entity-actor))
  (set! (-> self entity) arg0)
  (set-stack-size! self)
  (reset-root! self)
  (TODO-RENAME-29 self)
  (TODO-RENAME-25 self)
  (TODO-RENAME-22 self)
  (go-virtual water-vol-startup)
  (none)
  )

;; definition for method 11 of type water-vol
;; INFO: Return type mismatch object vs none.
(defmethod init-from-entity! water-vol ((obj water-vol) (arg0 entity-actor))
  (set-stack-size! obj)
  (reset-root! obj)
  (TODO-RENAME-29 obj)
  (TODO-RENAME-25 obj)
  (TODO-RENAME-22 obj)
  (go (method-of-object obj water-vol-startup))
  (none)
  )
