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

;; name: water-part.gc
;; name in dgo: water-part
;; dgos: GAME

(define-extern *range-wsplash-color* curve-color-fast)
(define-extern *range-wsplash-alpha* curve2d-fast)
(define-extern *range-wsplash-scale-x* curve2d-fast)
(define-extern *range-wsplash-scale-y* curve2d-fast)
(define-extern *curve-wsplash-alpha* curve2d-fast)
(define-extern *curve-wsplash-scale-x* curve2d-fast)
(define-extern *curve-wsplash-scale-y* curve2d-fast)
(define-extern *part-water-splash-curve-settings* particle-curve-settings)
(define-extern *range-splash-color* curve-color-fast)
(define-extern *range-splash-alpha* curve2d-fast)
(define-extern *range-splash-scale-x* curve2d-fast)
(define-extern *range-splash-scale-y* curve2d-fast)
(define-extern *curve-splash-alpha* curve2d-fast)
(define-extern *curve-splash-scale-x* curve2d-fast)
(define-extern *curve-splash-scale-y* curve2d-fast)
(define-extern *part-water-splash-center-curve-settings* particle-curve-settings)
(define-extern *curve-wsplash-small-scale-x* curve2d-fast)
(define-extern *curve-wsplash-small-scale-y* curve2d-fast)
(define-extern *part-water-splash-small-curve-settings* particle-curve-settings)

;; DECOMP BEGINS

(defpart 756
  :init-specs ((:texture (lakedrop level-default-sprite))
    (:num 0.1)
    (:x (meters -0.25) (meters 0.5))
    (:y (meters -0.05) (meters 0.1))
    (:z (meters -0.25) (meters 0.5))
    (:scale-x (meters 0.05) (meters 0.1))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 16.0 16.0)
    (:vel-y (meters 0) (meters 0.006666667))
    (:accel-y (meters 0.00016666666) (meters 0.00016666666))
    (:friction 0.96)
    (:timer (seconds 5))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:userdata 0.0)
    (:func 'check-water-level-above-and-die)
    (:conerot-x (degrees 90))
    (:conerot-y (degrees 0) (degrees 360))
    )
  )

(defpart 757
  :init-specs ((:texture (lakedrop level-default-sprite))
    (:num 0.1)
    (:x (meters -0.25) (meters 0.5))
    (:y (meters 0.15))
    (:z (meters -0.25) (meters 0.5))
    (:scale-x (meters 0.1) (meters 0.1))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 16.0 16.0)
    (:vel-y (meters 0) (meters 0.006666667))
    (:accel-y (meters 0.00033333333))
    (:friction 0.96)
    (:timer (seconds 5))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:userdata 0.0)
    (:func 'check-water-level-above-and-die)
    (:conerot-x (degrees 90))
    (:conerot-y (degrees 0) (degrees 360))
    )
  )

(defpart 758
  :init-specs ((:texture (splash-foam level-default-sprite))
    (:num 0.05)
    (:scale-x (meters 0.5) (meters 0.5))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 16.0 16.0)
    (:scalevel-x (meters 0.005) (meters 0.0016666667))
    (:scalevel-y :copy scalevel-x)
    (:fade-a -0.04 -0.04)
    (:timer (seconds 2.667))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 left-multiply-quat))
    (:rotate-y (degrees 0) (degrees 3600))
    )
  )

(defpart 759
  :init-specs ((:texture (hotdot level-default-sprite))
    (:num 0.06)
    (:x (meters 10))
    (:scale-x (meters 0.75) (meters 1.5))
    (:rot-y (degrees 0))
    (:scale-y (meters 0.75) (meters 1.5))
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 0.0)
    (:vel-x (meters 0.01) (meters 0.006666667))
    (:scalevel-x (meters 0.0033333334) (meters 0.004333333))
    (:scalevel-y (meters 0.0033333334) (meters 0.004333333))
    (:fade-a 0.000111111105)
    (:friction 0.94)
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 left-multiply-quat))
    (:next-time (seconds 0.3))
    (:next-launcher 760)
    (:rotate-y (degrees 0))
    )
  )

(defpart 760
  :init-specs ((:fade-a 0.0) (:next-time (seconds 0.3) (seconds 0.397)) (:next-launcher 761))
  )

(defpart 761
  :init-specs ((:fade-a -0.21333334))
  )

(defpart 762
  :init-specs ((:texture (explosion-nebula level-default-sprite))
    (:num 0.05 0.4)
    (:x (meters -0.75) (meters 1.5))
    (:z (meters -0.75) (meters 1.5))
    (:scale-x (meters 0.2) (meters 0.7))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 0.0)
    (:b 0.0)
    (:a 0.0)
    (:scalevel-x (meters 0.0016666667) (meters 0.003))
    (:scalevel-y :copy scalevel-x)
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 left-multiply-quat))
    (:next-time (seconds 0.5))
    (:next-launcher 763)
    (:rotate-y (degrees 0))
    )
  )

(defpart 763
  :init-specs ((:fade-a 0.0) (:next-time (seconds 1.2)) (:next-launcher 764))
  )

(defpart 764
  :init-specs ((:fade-a -0.7111111))
  )

(defpartgroup group-part-water-splash
  :id 192
  :duration (seconds 5)
  :flags (sp0 sp4)
  :bounds (static-bspherem 0 -12 0 14)
  :parts ((sp-item 765 :flags (sp7) :period (seconds 10) :length (seconds 0.2))
    (sp-item 766 :flags (sp7) :period (seconds 10) :length (seconds 0.067) :offset 125)
    (sp-item 767 :flags (is-3d sp7) :period (seconds 10) :length (seconds 0.067))
    (sp-item 768 :flags (is-3d sp7) :period (seconds 10) :length (seconds 0.167) :offset 125)
    (sp-item 769 :flags (is-3d sp7) :period (seconds 10) :length (seconds 0.5) :offset 150)
    (sp-item 770 :flags (sp7) :period (seconds 10) :length (seconds 0.167) :offset 20)
    (sp-item 771 :flags (sp7) :period (seconds 10) :length (seconds 0.167) :offset 125)
    )
  )

(defpart 765
  :init-specs ((:texture (splash level-default-sprite))
    (:birth-func 'birth-func-curve)
    (:num 5.0)
    (:scale-x (meters 1))
    (:scale-y (meters 1))
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 128.0)
    (:vel-z (meters 0.016666668))
    (:friction 0.96)
    (:timer (seconds 1))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13))
    (:userdata 0.0)
    (:func 'live-func-curve)
    (:rotate-y (degrees 0) (degrees 3600))
    )
  )

(if #t
    (set! *range-wsplash-color* (new 'static 'curve-color-fast
                                  :xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
                                  :ys (new 'static 'inline-array vector 4
                                    (new 'static 'vector :x 128.0 :y 158.0 :z 128.0 :w 128.0)
                                    (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 128.0)
                                    (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 128.0)
                                    (new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 128.0)
                                    )
                                  :one-over-x-deltas (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
                                  )
          )
    )

(if #t
    (set! *range-wsplash-alpha* (new 'static 'curve2d-fast
                                  :xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
                                  :ys (new 'static 'vector :x 64.0 :y 128.0 :z 129.0 :w 130.0)
                                  :one-over-x-deltas (new 'static 'vector :x 64.0 :y 1.0 :z 1.0 :w 1.0)
                                  )
          )
    )

(if #t
    (set! *range-wsplash-scale-x* (new 'static 'curve2d-fast
                                    :xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
                                    :ys (new 'static 'vector :x 0.5 :y 1.0 :z 2.0 :w 3.0)
                                    :one-over-x-deltas (new 'static 'vector :x 0.5 :y 1.0 :z 1.0 :w 1.0)
                                    )
          )
    )

(if #t
    (set! *range-wsplash-scale-y* (new 'static 'curve2d-fast
                                    :xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
                                    :ys (new 'static 'vector :x 1.0 :y 2.0 :z 3.0 :w 4.0)
                                    :one-over-x-deltas (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
                                    )
          )
    )

(if #t
    (set! *curve-wsplash-alpha* (new 'static 'curve2d-fast
                                  :xs (new 'static 'vector :y -0.1 :z -1.0 :w -2.0)
                                  :ys (new 'static 'vector :y 1.0 :w 1.0)
                                  :one-over-x-deltas (new 'static 'vector :x 10.0 :y -1.1111112 :z 1.0 :w 1.0)
                                  )
          )
    )

(if #t
    (set! *curve-wsplash-scale-x* (new 'static 'curve2d-fast
                                    :xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
                                    :ys (new 'static 'vector :x 1.0 :y 2.0 :z 3.0 :w 4.0)
                                    :one-over-x-deltas (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
                                    )
          )
    )

(if #t
    (set! *curve-wsplash-scale-y* (new 'static 'curve2d-fast
                                    :xs (new 'static 'vector :y -0.4 :z -0.7 :w -1.0)
                                    :ys (new 'static 'vector :y 2.0 :z 0.5)
                                    :one-over-x-deltas (new 'static 'vector :x 5.0 :y -5.0000005 :z -1.6666666 :w 1.0)
                                    )
          )
    )

(define *part-water-splash-curve-settings*
  (new 'static 'particle-curve-settings :lifetime-base (seconds 0.95) :lifetime-offset (seconds 0.1))
  )

(set! (-> *part-id-table* 765 init-specs 13 initial-valuef) (the-as float *part-water-splash-curve-settings*))

(set! (-> *part-water-splash-curve-settings* color-start) *range-wsplash-color*)

(set! (-> *part-water-splash-curve-settings* alpha-start) *range-wsplash-alpha*)

(set! (-> *part-water-splash-curve-settings* scale-x-start) *range-wsplash-scale-x*)

(set! (-> *part-water-splash-curve-settings* scale-y-start) *range-wsplash-scale-y*)

(set! (-> *part-water-splash-curve-settings* r-scalar) #f)

(set! (-> *part-water-splash-curve-settings* g-scalar) #f)

(set! (-> *part-water-splash-curve-settings* b-scalar) #f)

(set! (-> *part-water-splash-curve-settings* a-scalar) *curve-wsplash-alpha*)

(set! (-> *part-water-splash-curve-settings* scale-x-scalar) *curve-wsplash-scale-x*)

(set! (-> *part-water-splash-curve-settings* scale-y-scalar) *curve-wsplash-scale-y*)

(defpart 766
  :init-specs ((:texture (splash level-default-sprite))
    (:birth-func 'birth-func-curve)
    (:num 2.0)
    (:scale-x (meters 1))
    (:scale-y (meters 1))
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 128.0)
    (:timer (seconds 1))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13))
    (:userdata 0.0)
    (:func 'live-func-curve)
    )
  )

(if #t
    (set! *range-splash-color* (new 'static 'curve-color-fast
                                 :xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
                                 :ys (new 'static 'inline-array vector 4
                                   (new 'static 'vector :x 128.0 :y 128.0 :z 110.0 :w 128.0)
                                   (new 'static 'vector :x 255.0 :y 255.0 :z 235.0 :w 128.0)
                                   (new 'static 'vector :x 255.0 :y 255.0 :z 235.0 :w 128.0)
                                   (new 'static 'vector :x 255.0 :y 255.0 :z 235.0 :w 128.0)
                                   )
                                 :one-over-x-deltas (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
                                 )
          )
    )

(if #t
    (set! *range-splash-alpha* (new 'static 'curve2d-fast
                                 :xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
                                 :ys (new 'static 'vector :x 64.0 :y 128.0 :z 129.0 :w 130.0)
                                 :one-over-x-deltas (new 'static 'vector :x 64.0 :y 1.0 :z 1.0 :w 1.0)
                                 )
          )
    )

(if #t
    (set! *range-splash-scale-x* (new 'static 'curve2d-fast
                                   :xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
                                   :ys (new 'static 'vector :x 1.0 :y 5.0 :z 6.0 :w 7.0)
                                   :one-over-x-deltas (new 'static 'vector :x 4.0 :y 1.0 :z 1.0 :w 1.0)
                                   )
          )
    )

(if #t
    (set! *range-splash-scale-y* (new 'static 'curve2d-fast
                                   :xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
                                   :ys (new 'static 'vector :x 1.0 :y 2.0 :z 3.0 :w 4.0)
                                   :one-over-x-deltas (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
                                   )
          )
    )

(if #t
    (set! *curve-splash-alpha* (new 'static 'curve2d-fast
                                 :xs (new 'static 'vector :y -0.1 :z -0.7 :w -1.0)
                                 :ys (new 'static 'vector :y 1.0 :z 1.0)
                                 :one-over-x-deltas (new 'static 'vector :x 10.0 :z -3.3333333 :w 1.0)
                                 )
          )
    )

(if #t
    (set! *curve-splash-scale-x* (new 'static 'curve2d-fast
                                   :xs (new 'static 'vector :y -0.3 :z -1.0 :w -2.0)
                                   :ys (new 'static 'vector :x 1.0 :y 0.15 :w 1.0)
                                   :one-over-x-deltas (new 'static 'vector :x -2.8333333 :y -0.21428573 :z 1.0 :w 1.0)
                                   )
          )
    )

(if #t
    (set! *curve-splash-scale-y* (new 'static 'curve2d-fast
                                   :xs (new 'static 'vector :y -0.5 :z -0.7 :w -1.0)
                                   :ys (new 'static 'vector :y 3.0 :z 2.0)
                                   :one-over-x-deltas (new 'static 'vector :x 6.0 :y -5.0000005 :z -6.6666665 :w 1.0)
                                   )
          )
    )

(define *part-water-splash-center-curve-settings*
  (new 'static 'particle-curve-settings :lifetime-base (seconds 0.8) :lifetime-offset (seconds 0.4))
  )

(set! (-> *part-id-table* 766 init-specs 11 initial-valuef)
      (the-as float *part-water-splash-center-curve-settings*)
      )

(set! (-> *part-water-splash-center-curve-settings* color-start) *range-splash-color*)

(set! (-> *part-water-splash-center-curve-settings* alpha-start) *range-splash-alpha*)

(set! (-> *part-water-splash-center-curve-settings* scale-x-start) *range-splash-scale-x*)

(set! (-> *part-water-splash-center-curve-settings* scale-y-start) *range-splash-scale-y*)

(set! (-> *part-water-splash-center-curve-settings* r-scalar) #f)

(set! (-> *part-water-splash-center-curve-settings* g-scalar) #f)

(set! (-> *part-water-splash-center-curve-settings* b-scalar) #f)

(set! (-> *part-water-splash-center-curve-settings* a-scalar) *curve-splash-alpha*)

(set! (-> *part-water-splash-center-curve-settings* scale-x-scalar) *curve-splash-scale-x*)

(set! (-> *part-water-splash-center-curve-settings* scale-y-scalar) *curve-splash-scale-y*)

(defpart 767
  :init-specs ((:texture (splash-foam level-default-sprite))
    (:num 0.4)
    (:scale-x (meters 2) (meters 0.5))
    (:rot-y (degrees 0) (degrees 3600))
    (:scale-y (meters 2) (meters 0.5))
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 128.0)
    (:scalevel-x (meters 0.01) (meters 0.0033333334))
    (:scalevel-y (meters 0.01) (meters 0.0033333334))
    (:fade-a -0.21333334)
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 left-multiply-quat))
    )
  )

(defpart 768
  :init-specs ((:texture (splash-foam level-default-sprite))
    (:num 0.2)
    (:scale-x (meters 0) (meters 0.1))
    (:rot-y (degrees 0) (degrees 3600))
    (:scale-y (meters 0) (meters 0.1))
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 128.0)
    (:scalevel-x (meters 0.00033333333) (meters 0.006666667))
    (:scalevel-y (meters 0.00033333333) (meters 0.006666667))
    (:fade-a -0.21333334)
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 left-multiply-quat))
    )
  )

(defpart 770
  :init-specs ((:texture (lakedrop level-default-sprite))
    (:num 10.0)
    (:x (meters 0) (meters 1))
    (:scale-x (meters 0.05) (meters 0.05))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 32.0 32.0)
    (:vel-y (meters 0.016666668) (meters 0.033333335))
    (:accel-y (meters -0.0016666667))
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-3))
    (:func 'check-water-level-drop)
    (:conerot-x (degrees -40) (degrees 80))
    (:rotate-y (degrees 0) (degrees 3600))
    )
  )

(defpart 769
  :init-specs ((:texture (ripples level-default-sprite))
    (:num 0.5 1.0)
    (:x (meters 1) (meters 5))
    (:scale-x (meters 0.1) (meters 0.2))
    (:rot-y (degrees 0) (degrees 3600))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 64.0 64.0)
    (:scalevel-x (meters 0.001) (meters 0.0033333334))
    (:scalevel-y :copy scalevel-x)
    (:fade-a -0.21333334)
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 left-multiply-quat))
    (:rotate-y (degrees 0) (degrees 3600))
    )
  )

(defpart 771
  :init-specs ((:texture (lakedrop level-default-sprite))
    (:num 2.0 2.0)
    (:scale-x (meters 0.05) (meters 0.05))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 32.0 32.0)
    (:vel-y (meters 0.026666667) (meters 0.026666667))
    (:accel-y (meters -0.0016666667))
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-3))
    (:func 'check-water-level-drop)
    (:conerot-x (degrees -2) (degrees 4))
    (:rotate-y (degrees 0) (degrees 3600))
    )
  )

(defpartgroup group-part-water-splash-small
  :id 193
  :duration (seconds 3)
  :flags (sp0)
  :bounds (static-bspherem 0 -12 0 14)
  :parts ((sp-item 772 :period (seconds 10) :length (seconds 0.2))
    (sp-item 773 :flags (is-3d) :period (seconds 10) :length (seconds 0.067))
    (sp-item 774 :period (seconds 10) :length (seconds 0.167) :offset 20)
    )
  )

(defpart 773
  :init-specs ((:texture (splash-foam level-default-sprite))
    (:num 0.8)
    (:scale-x (meters 0.5) (meters 0.2))
    (:rot-y (degrees 0) (degrees 3600))
    (:scale-y (meters 0.5) (meters 0.2))
    (:r 255.0)
    (:g 255.0)
    (:b 255.0)
    (:a 128.0)
    (:scalevel-x (meters 0.01) (meters 0.0033333334))
    (:scalevel-y (meters 0.01) (meters 0.0033333334))
    (:fade-a -0.42666668)
    (:timer (seconds 1))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 left-multiply-quat))
    )
  )

(defpart 774
  :init-specs ((:texture (lakedrop level-default-sprite))
    (:num 5.0)
    (:scale-x (meters 0.05) (meters 0.05))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 32.0 32.0)
    (:vel-y (meters 0.006666667) (meters 0.016666668))
    (:accel-y (meters -0.0016666667))
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-3))
    (:func 'check-water-level-drop)
    (:conerot-x (degrees -40) (degrees 80))
    (:rotate-y (degrees 0) (degrees 3600))
    )
  )

(defpart 772
  :init-specs ((:texture (splash level-default-sprite))
    (:birth-func 'birth-func-curve)
    (:num 4.0)
    (:scale-x (meters 1))
    (:scale-y (meters 1))
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 128.0)
    (:vel-z (meters 0.01))
    (:friction 0.99)
    (:timer (seconds 1))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13))
    (:userdata 0.0)
    (:func 'live-func-curve)
    (:rotate-y (degrees 0) (degrees 3600))
    )
  )

(if #t
    (set! *curve-wsplash-small-scale-x* (new 'static 'curve2d-fast
                                          :xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
                                          :ys (new 'static 'vector :x 0.3 :y 0.7 :z 1.7 :w 2.7)
                                          :one-over-x-deltas (new 'static 'vector :x 0.39999998 :y 1.0 :z 1.0 :w 1.0)
                                          )
          )
    )

(if #t
    (set! *curve-wsplash-small-scale-y* (new 'static 'curve2d-fast
                                          :xs (new 'static 'vector :y -0.4 :z -0.7 :w -1.0)
                                          :ys (new 'static 'vector :y 0.7 :z 0.2)
                                          :one-over-x-deltas (new 'static 'vector :x 1.75 :y -1.6666667 :z -0.6666666 :w 1.0)
                                          )
          )
    )

(define *part-water-splash-small-curve-settings*
  (new 'static 'particle-curve-settings :lifetime-base (seconds 0.25) :lifetime-offset (seconds 0.1))
  )

(set! (-> *part-id-table* 772 init-specs 13 initial-valuef)
      (the-as float *part-water-splash-small-curve-settings*)
      )

(set! (-> *part-water-splash-small-curve-settings* color-start) *range-wsplash-color*)

(set! (-> *part-water-splash-small-curve-settings* alpha-start) *range-wsplash-alpha*)

(set! (-> *part-water-splash-small-curve-settings* scale-x-start) *range-wsplash-scale-x*)

(set! (-> *part-water-splash-small-curve-settings* scale-y-start) *range-wsplash-scale-y*)

(set! (-> *part-water-splash-small-curve-settings* r-scalar) #f)

(set! (-> *part-water-splash-small-curve-settings* g-scalar) #f)

(set! (-> *part-water-splash-small-curve-settings* b-scalar) #f)

(set! (-> *part-water-splash-small-curve-settings* a-scalar) *curve-wsplash-alpha*)

(set! (-> *part-water-splash-small-curve-settings* scale-x-scalar) *curve-wsplash-small-scale-x*)

(set! (-> *part-water-splash-small-curve-settings* scale-y-scalar) *curve-wsplash-small-scale-y*)

(defpart 775
  :init-specs ((:texture (glow-soft level-default-sprite))
    (:num 1.0)
    (:scale-x (meters 6) (meters 0.1))
    (:rot-x (degrees 11.25))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g :copy r)
    (:b 255.0)
    (:a 0.0)
    (:scalevel-x (meters 0.16))
    (:scalevel-y :copy scalevel-x)
    (:timer (seconds 0.2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow set-conerot))
    (:userdata 10240.0)
    (:rotate-y (degrees 0))
    )
  )

(defpart 776
  :init-specs ((:fade-a -0.64))
  )

(defpart 777
  :init-specs ((:texture (lakedrop level-default-sprite))
    (:num 12.0)
    (:y (meters 0))
    (:scale-x (meters 0.08) (meters 0.03))
    (:rot-x 4)
    (:scale-y :copy scale-x)
    (:r 32.0 32.0)
    (:g :copy r)
    (:b 64.0 32.0)
    (:a 128.0)
    (:omega (degrees 0.01575) (degrees 0.009))
    (:vel-y (meters 0.033333335) (meters 0.05))
    (:accel-y (meters -0.005) (meters -0.00066666666))
    (:friction 0.96 0.02)
    (:timer (seconds 1))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 set-conerot))
    (:userdata -208896.0)
    (:func 'check-water-level-drop-motion)
    (:next-time (seconds 0) (seconds 0.58))
    (:next-launcher 41)
    (:conerot-x (degrees 15) (degrees 65))
    (:conerot-y (degrees 0) (degrees 3600))
    (:rotate-y (degrees 0))
    (:conerot-radius (meters 0) (meters 1))
    )
  )

(defpart 41
  :init-specs ((:r 255.0) (:g 255.0) (:b 255.0) (:next-time (seconds 0.017)) (:next-launcher 778))
  )

(defpart 778
  :init-specs ((:r 32.0 32.0) (:g 32.0 32.0) (:b 64.0 32.0) (:next-time (seconds 0) (seconds 1.497)) (:next-launcher 779))
  )

(defpart 780
  :init-specs ((:texture (hotdot level-default-sprite))
    (:num 0.3)
    (:scale-x (meters 0.5) (meters 0.25))
    (:rot-y (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 32.0 32.0)
    (:g :copy r)
    (:b :copy r)
    (:a 0.0)
    (:scalevel-x (meters 0.006666667) (meters 0.006666667))
    (:scalevel-y :copy scalevel-x)
    (:fade-a -0.32 -0.32)
    (:timer (seconds 1.5))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 set-conerot))
    (:userdata :data (new 'static 'boxed-array :type int32 10 0 0 #x401800 #x403d00 #x400700 #x408200))
    (:func 'sparticle-texture-animate)
    (:rotate-y (degrees 0))
    )
  )

(defpart 781
  :init-specs ((:texture (lakedrop level-default-sprite))
    (:num 0.0 0.5)
    (:scale-x (meters 0.08) (meters 0.03))
    (:rot-x 4)
    (:scale-y :copy scale-x)
    (:r 32.0 32.0)
    (:g :copy r)
    (:b 64.0 32.0)
    (:a 0.0)
    (:omega (degrees 0.01575) (degrees 0.009))
    (:vel-y (meters 0.026666667) (meters 0.05))
    (:accel-y (meters -0.005) (meters -0.00066666666))
    (:friction 0.95)
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 set-conerot))
    (:userdata -208896.0)
    (:func 'check-water-level-drop-and-die-motion)
    (:next-time (seconds 0) (seconds 0.33))
    (:next-launcher 41)
    (:conerot-x (degrees 30) (degrees 40))
    (:conerot-y (degrees 0) (degrees 3600))
    (:rotate-y (degrees 0))
    )
  )

(defpart 782
  :init-specs ((:texture (lakedrop level-default-sprite))
    (:num 1.0)
    (:scale-x (meters 0.15) (meters 0.05))
    (:rot-x 4)
    (:scale-y :copy scale-x)
    (:r 32.0 32.0)
    (:g :copy r)
    (:b 64.0 32.0)
    (:a 0.0)
    (:omega (degrees 0.0225) (degrees 0.0225))
    (:vel-x (meters -0.016666668) (meters 0.0016666667))
    (:vel-y (meters 0.016666668))
    (:vel-z (meters -0.016666668) (meters 0.0016666667))
    (:scalevel-x (meters -0.00016666666))
    (:scalevel-y :copy scalevel-x)
    (:accel-y (meters -0.001) (meters -0.00033333333))
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:userdata 0.0)
    (:func 'check-water-level-drop-motion)
    (:next-time (seconds 2))
    (:next-launcher 783)
    )
  )
