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

;; definition of type beach-part
(deftype beach-part (part-spawner)
  ()
  :heap-base #x60
  :method-count-assert 21
  :size-assert         #xd0
  :flag-assert         #x15006000d0
  (:states
    beach-part-grotto-1
    )
  )

;; definition for method 3 of type beach-part
(defmethod inspect beach-part ((obj beach-part))
  (let ((t9-0 (method-of-type part-spawner inspect)))
    (t9-0 obj)
    )
  obj
  )

;; failed to figure out what this is:
(set! (-> *part-id-table* 666)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 24
          (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
          (sp-flt spt-num 0.01)
          (sp-flt spt-y (meters 1.0))
          (sp-rnd-flt spt-scale-x (meters 15.0) (meters 5.0) 1.0)
          (sp-int spt-rot-x 4)
          (sp-rnd-flt spt-rot-z (degrees -110.0) (degrees 20.0) 1.0)
          (sp-flt spt-scale-y (meters 5.0))
          (sp-flt spt-r 192.0)
          (sp-flt spt-g 192.0)
          (sp-flt spt-b 128.0)
          (sp-flt spt-a 0.0)
          (sp-flt spt-scalevel-x (meters 0.0009765625))
          (sp-rnd-flt spt-rotvel-z (degrees -0.0033333332) (degrees 0.0066666664) 1.0)
          (sp-flt spt-scalevel-y (meters 0.0009765625))
          (sp-flt spt-fade-a 0.02)
          (sp-int spt-timer 2400)
          (sp-cpuinfo-flags bit2 bit3 bit14)
          (sp-int spt-next-time 1200)
          (sp-launcher-by-id spt-next-launcher 667)
          (sp-flt spt-conerot-x (degrees 90.0))
          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
          (sp-flt spt-conerot-radius (meters 8.0))
          (sp-flt spt-rotate-y (degrees 0.0))
          (sp-end)
          )
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 667)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.02) (sp-end))
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 668) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 19
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
                                   (sp-rnd-flt spt-num 0.03 0.2 1.0)
                                   (sp-flt spt-y (meters -4.0))
                                   (sp-flt spt-scale-x (meters 0.18))
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 192.0)
                                   (sp-flt spt-g 192.0)
                                   (sp-flt spt-b 128.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-fade-a 0.21333334)
                                   (sp-int spt-timer 600)
                                   (sp-cpuinfo-flags bit2 bit3)
                                   (sp-flt spt-userdata 0.0)
                                   (sp-int spt-next-time 150)
                                   (sp-launcher-by-id spt-next-launcher 669)
                                   (sp-flt spt-conerot-x (degrees 90.0))
                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-rnd-flt spt-conerot-radius (meters 8.0) (meters 5.0) 1.0)
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 669)
      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
                                                     (sp-flt spt-scalevel-y (meters 0.0024414062))
                                                     (sp-flt spt-fade-a 0.0)
                                                     (sp-flt spt-accel-y -8.192)
                                                     (sp-int spt-next-time 210)
                                                     (sp-launcher-by-id spt-next-launcher 670)
                                                     (sp-end)
                                                     )
                                       )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 670)
      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
                                                     (sp-flt spt-fade-a -0.16)
                                                     (sp-int spt-timer 150)
                                                     (sp-func spt-func 'check-water-level-drop)
                                                     (sp-end)
                                                     )
                                       )
      )

;; failed to figure out what this is:
(defstate beach-part-grotto-1 (beach-part)
  :code
  (behavior ()
    (while #t
      (when (dummy-20 self)
        (let* ((gp-0 (camera-pos))
               (f0-0 (vector-vector-distance (-> self root trans) gp-0))
               )
          (if (or (< (-> gp-0 y) (-> self root trans y)) (< 122880.0 f0-0))
              (sp-launch-particles-var
                *sp-particle-system-2d*
                (-> *part-id-table* 666)
                (-> self root trans)
                (the-as sparticle-launch-state #f)
                (the-as sparticle-launch-control #f)
                1.0
                )
              )
          )
        (sp-launch-particles-var
          *sp-particle-system-2d*
          (-> *part-id-table* 668)
          (-> self root trans)
          (the-as sparticle-launch-state #f)
          (the-as sparticle-launch-control #f)
          1.0
          )
        )
      (suspend)
      )
    (none)
    )
  )

;; failed to figure out what this is:
(set! (-> *part-id-table* 671) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 20
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
                                   (sp-rnd-flt spt-num 0.3 0.4 1.0)
                                   (sp-rnd-flt spt-x (meters -23.0) (meters 55.0) 1.0)
                                   (sp-flt spt-z 2048.0)
                                   (sp-flt spt-scale-x (meters 0.18))
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 192.0)
                                   (sp-flt spt-g 192.0)
                                   (sp-flt spt-b 128.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-fade-a 0.10666667)
                                   (sp-int spt-timer 600)
                                   (sp-cpuinfo-flags bit2 bit3)
                                   (sp-flt spt-userdata 0.0)
                                   (sp-int spt-next-time 300)
                                   (sp-launcher-by-id spt-next-launcher 669)
                                   (sp-rnd-flt spt-conerot-x (degrees -40.0) (degrees 80.0) 1.0)
                                   (sp-flt spt-conerot-radius (meters 14.6))
                                   (sp-flt spt-rotate-y (degrees 37.0))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 161) (new 'static 'sparticle-launch-group
                                       :length 1
                                       :duration #xbb8
                                       :linger-duration #x5dc
                                       :name "group-beach-grotto-2"
                                       :launcher
                                       (new 'static 'inline-array sparticle-group-item 1
                                         (sp-item 671 :fade-after (meters 80.0) :falloff-to (meters 80.0))
                                         )
                                       :bounds
                                       (new 'static 'sphere :y -20480.0 :w 61440.0)
                                       )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 672) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 23
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
                                   (sp-rnd-flt spt-x (meters -10.0) (meters 4.0) 1.0)
                                   (sp-flt spt-y (meters 103.0))
                                   (sp-rnd-flt spt-z -34816.0 65536.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
                                   (sp-flt spt-r 192.0)
                                   (sp-flt spt-g 192.0)
                                   (sp-flt spt-b 192.0)
                                   (sp-rnd-flt spt-a 24.0 16.0 1.0)
                                   (sp-flt spt-vel-x (meters 0.06666667))
                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
                                   (sp-flt spt-scalevel-y (meters 0.029296875))
                                   (sp-flt spt-accel-x -3.7304192)
                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
                                   (sp-int spt-timer 495)
                                   (sp-cpuinfo-flags bit2 bit12 bit14)
                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
                                   (sp-flt spt-rotate-y (degrees -124.99999))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 673) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 24
                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
                                   (sp-rnd-flt spt-num 0.8 0.8 1.0)
                                   (sp-rnd-flt spt-x (meters -9.0) (meters 3.5) 1.0)
                                   (sp-flt spt-y (meters 103.0))
                                   (sp-rnd-flt spt-z -34816.0 65536.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
                                   (sp-flt spt-r 192.0)
                                   (sp-flt spt-g 192.0)
                                   (sp-flt spt-b 192.0)
                                   (sp-rnd-flt spt-a 16.0 20.0 1.0)
                                   (sp-flt spt-vel-x (meters 0.038333334))
                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
                                   (sp-flt spt-scalevel-x (meters 0.0146484375))
                                   (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
                                   (sp-flt spt-scalevel-y (meters 0.0146484375))
                                   (sp-flt spt-accel-x -1.189495)
                                   (sp-rnd-flt spt-accel-y -4.7786665 -1.024 1.0)
                                   (sp-int spt-timer 855)
                                   (sp-cpuinfo-flags bit2 bit12 bit14)
                                   (sp-flt spt-rotate-y (degrees -124.99999))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 674) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 23
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
                                   (sp-flt spt-num 0.9)
                                   (sp-rnd-flt spt-x (meters -10.0) (meters 4.0) 1.0)
                                   (sp-flt spt-y (meters 103.0))
                                   (sp-rnd-flt spt-z -38912.0 73728.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 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 28.0)
                                   (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
                                   (sp-flt spt-scalevel-x (meters -0.00024414062))
                                   (sp-flt spt-scalevel-y (meters 0.001953125))
                                   (sp-flt spt-accel-x -2.5600002)
                                   (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
                                   (sp-int spt-timer 660)
                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
                                   (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
                                   (sp-flt spt-rotate-y (degrees -124.99999))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 675) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 27
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
                                   (sp-flt spt-num 0.04)
                                   (sp-rnd-flt spt-x (meters 6.0) (meters 6.0) 1.0)
                                   (sp-flt spt-y (meters 6.5))
                                   (sp-rnd-flt spt-z -34816.0 65536.0 1.0)
                                   (sp-flt spt-scale-x (meters 18.0))
                                   (sp-rnd-flt spt-rot-z (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 0.0 32.0 1.0)
                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
                                   (sp-flt spt-scalevel-x (meters 0.0044444446))
                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
                                   (sp-copy-from-other spt-scalevel-y -4)
                                   (sp-flt spt-fade-a 0.42666668)
                                   (sp-flt spt-accel-y 0.13653333)
                                   (sp-flt spt-friction 0.99)
                                   (sp-int spt-timer 1050)
                                   (sp-cpuinfo-flags bit2 bit12 bit14)
                                   (sp-int-plain-rnd spt-next-time 90 59 1)
                                   (sp-launcher-by-id spt-next-launcher 676)
                                   (sp-flt spt-rotate-y (degrees -124.99999))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 676)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 677) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 25
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
                                   (sp-flt spt-num 0.2)
                                   (sp-rnd-flt spt-x (meters 2.0) (meters 10.0) 1.0)
                                   (sp-flt spt-y (meters 8.0))
                                   (sp-rnd-flt spt-z -43008.0 81920.0 1.0)
                                   (sp-flt spt-scale-x (meters 18.0))
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 128.0)
                                   (sp-rnd-flt spt-g 150.0 42.0 1.0)
                                   (sp-flt spt-b 192.0)
                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
                                   (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.06666667) 1.0)
                                   (sp-flt spt-vel-y (meters 0.008333334))
                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
                                   (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
                                   (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
                                   (sp-flt spt-fade-a 0.42666668)
                                   (sp-flt spt-accel-y 0.13653333)
                                   (sp-flt spt-friction 0.99)
                                   (sp-int spt-timer 1050)
                                   (sp-cpuinfo-flags bit2 bit12 bit14)
                                   (sp-int-plain-rnd spt-next-time 90 59 1)
                                   (sp-launcher-by-id spt-next-launcher 676)
                                   (sp-flt spt-rotate-y (degrees -124.99999))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 162) (new 'static 'sparticle-launch-group
                                       :length 8
                                       :duration #xbb8
                                       :linger-duration #x5dc
                                       :flags
                                       (sp-group-flag always-draw unknown-bit-01)
                                       :name "group-beach-waterfall"
                                       :launcher
                                       (new 'static 'inline-array sparticle-group-item 8
                                         (sp-item 677 :fade-after (meters 200.0) :falloff-to (meters 200.0))
                                         (sp-item 675)
                                         (sp-item 675 :fade-after (meters 200.0) :falloff-to (meters 200.0))
                                         (sp-item 672)
                                         (sp-item 672 :fade-after (meters 100.0) :falloff-to (meters 100.0))
                                         (sp-item 672 :fade-after (meters 160.0) :falloff-to (meters 160.0))
                                         (sp-item 673 :fade-after (meters 300.0) :falloff-to (meters 300.0))
                                         (sp-item 674 :fade-after (meters 90.0) :falloff-to (meters 90.0))
                                         )
                                       :bounds
                                       (new 'static 'sphere :y 225280.0 :w 225280.0)
                                       )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 163)
      (new 'static 'sparticle-launch-group
        :length 1
        :duration #xbb8
        :linger-duration #x5dc
        :name "group-beach-24"
        :launcher
        (new 'static 'inline-array sparticle-group-item 1
          (sp-item 678 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 1200)
          )
        :bounds
        (new 'static 'sphere :y 12288.0 :w 204800.0)
        )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 164)
      (new 'static 'sparticle-launch-group
        :length 1
        :duration #xbb8
        :linger-duration #x5dc
        :name "group-beach-23"
        :launcher
        (new 'static 'inline-array sparticle-group-item 1
          (sp-item 679 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 600)
          )
        :bounds
        (new 'static 'sphere :y 12288.0 :w 204800.0)
        )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 165) (new 'static 'sparticle-launch-group
                                       :length 1
                                       :duration #xbb8
                                       :linger-duration #x5dc
                                       :name "group-beach-22"
                                       :launcher
                                       (new 'static 'inline-array sparticle-group-item 1
                                         (sp-item 680 :fade-after (meters 80.0) :period 2400 :length 1500)
                                         )
                                       :bounds
                                       (new 'static 'sphere :y 12288.0 :w 204800.0)
                                       )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 166)
      (new 'static 'sparticle-launch-group
        :length 1
        :duration #xbb8
        :linger-duration #x5dc
        :name "group-beach-18"
        :launcher
        (new 'static 'inline-array sparticle-group-item 1
          (sp-item 681 :fade-after (meters 100.0) :period 2400 :length 1500 :offset 1200)
          )
        :bounds
        (new 'static 'sphere :y 12288.0 :w 204800.0)
        )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 167)
      (new 'static 'sparticle-launch-group
        :length 1
        :duration #xbb8
        :linger-duration #x5dc
        :name "group-beach-17"
        :launcher
        (new 'static 'inline-array sparticle-group-item 1
          (sp-item 682 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 600)
          )
        :bounds
        (new 'static 'sphere :y 12288.0 :w 204800.0)
        )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 168) (new 'static 'sparticle-launch-group
                                       :length 1
                                       :duration #xbb8
                                       :linger-duration #x5dc
                                       :name "group-beach-16"
                                       :launcher
                                       (new 'static 'inline-array sparticle-group-item 1
                                         (sp-item 683 :fade-after (meters 50.0) :period 2400 :length 1500)
                                         )
                                       :bounds
                                       (new 'static 'sphere :y 12288.0 :w 204800.0)
                                       )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 169)
      (new 'static 'sparticle-launch-group
        :length 1
        :duration #xbb8
        :linger-duration #x5dc
        :name "group-beach-15"
        :launcher
        (new 'static 'inline-array sparticle-group-item 1
          (sp-item 684 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 64936)
          )
        :bounds
        (new 'static 'sphere :y 12288.0 :w 204800.0)
        )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 170)
      (new 'static 'sparticle-launch-group
        :length 1
        :duration #xbb8
        :linger-duration #x5dc
        :name "group-beach-14"
        :launcher
        (new 'static 'inline-array sparticle-group-item 1
          (sp-item 685 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 64336)
          )
        :bounds
        (new 'static 'sphere :y 12288.0 :w 204800.0)
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 678) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 21
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
                                   (sp-rnd-flt spt-num 0.01 0.01 1.0)
                                   (sp-rnd-flt spt-x (meters -85.0) (meters 60.0) 1.0)
                                   (sp-flt spt-y (meters 13.0))
                                   (sp-rnd-flt spt-z -122880.0 266240.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 130.0)
                                   (sp-flt spt-g 100.0)
                                   (sp-flt spt-b 54.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-vel-x (meters 0.026666667))
                                   (sp-flt spt-rotvel-z (degrees -0.15))
                                   (sp-flt spt-fade-a 0.008888889)
                                   (sp-int spt-timer 3600)
                                   (sp-cpuinfo-flags bit2 bit12)
                                   (sp-int spt-next-time 1800)
                                   (sp-launcher-by-id spt-next-launcher 686)
                                   (sp-flt spt-rotate-y (degrees 40.0))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 686)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 679) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 21
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
                                   (sp-rnd-flt spt-num 0.01 0.01 1.0)
                                   (sp-rnd-flt spt-x (meters -65.0) (meters 60.0) 1.0)
                                   (sp-flt spt-y (meters 8.0))
                                   (sp-rnd-flt spt-z -122880.0 204800.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 130.0)
                                   (sp-flt spt-g 100.0)
                                   (sp-flt spt-b 54.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-vel-x (meters 0.02))
                                   (sp-flt spt-rotvel-z (degrees -0.15))
                                   (sp-flt spt-fade-a 0.008888889)
                                   (sp-int spt-timer 3600)
                                   (sp-cpuinfo-flags bit2 bit12)
                                   (sp-int spt-next-time 1800)
                                   (sp-launcher-by-id spt-next-launcher 687)
                                   (sp-flt spt-rotate-y (degrees 40.0))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 687)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 680) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 22
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
                                   (sp-rnd-flt spt-num 0.01 0.01 1.0)
                                   (sp-rnd-flt spt-x (meters -50.0) (meters 20.0) 1.0)
                                   (sp-flt spt-y (meters 0.0))
                                   (sp-rnd-flt spt-z -163840.0 327680.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 130.0)
                                   (sp-flt spt-g 100.0)
                                   (sp-flt spt-b 54.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-vel-x (meters 0.026666667))
                                   (sp-flt spt-vel-z (meters 0.016666668))
                                   (sp-flt spt-rotvel-z (degrees -0.15))
                                   (sp-flt spt-fade-a 0.010666667)
                                   (sp-int spt-timer 3600)
                                   (sp-cpuinfo-flags bit2 bit12)
                                   (sp-int spt-next-time 1500)
                                   (sp-launcher-by-id spt-next-launcher 688)
                                   (sp-flt spt-rotate-y (degrees 120.0))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 688)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.08533333) (sp-end))
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 681) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 22
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
                                   (sp-rnd-flt spt-num 0.03 0.04 1.0)
                                   (sp-rnd-flt spt-x (meters -40.0) (meters 20.0) 1.0)
                                   (sp-flt spt-y (meters 1.0))
                                   (sp-rnd-flt spt-z -163840.0 368640.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 130.0)
                                   (sp-flt spt-g 100.0)
                                   (sp-flt spt-b 54.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-vel-x (meters 0.026666667))
                                   (sp-flt spt-vel-z (meters -0.016666668))
                                   (sp-flt spt-rotvel-z (degrees -0.15))
                                   (sp-flt spt-fade-a 0.008888889)
                                   (sp-int spt-timer 3600)
                                   (sp-cpuinfo-flags bit2 bit12)
                                   (sp-int spt-next-time 1800)
                                   (sp-launcher-by-id spt-next-launcher 689)
                                   (sp-flt spt-rotate-y (degrees -60.0))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 689)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 682) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 21
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
                                   (sp-rnd-flt spt-num 0.015 0.02 1.0)
                                   (sp-flt spt-x (meters -10.0))
                                   (sp-flt spt-y (meters 1.0))
                                   (sp-rnd-flt spt-z -40960.0 92160.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 130.0)
                                   (sp-flt spt-g 100.0)
                                   (sp-flt spt-b 54.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-vel-x (meters 0.026666667))
                                   (sp-flt spt-rotvel-z (degrees -0.15))
                                   (sp-flt spt-fade-a 0.017777778)
                                   (sp-int spt-timer 3600)
                                   (sp-cpuinfo-flags bit2 bit12)
                                   (sp-int spt-next-time 900)
                                   (sp-launcher-by-id spt-next-launcher 690)
                                   (sp-flt spt-rotate-y (degrees -15.0))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 690)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.017777778) (sp-end))
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 683) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 21
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
                                   (sp-rnd-flt spt-num 0.015 0.02 1.0)
                                   (sp-flt spt-x (meters -25.0))
                                   (sp-flt spt-y (meters 1.0))
                                   (sp-rnd-flt spt-z -61440.0 204800.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 130.0)
                                   (sp-flt spt-g 100.0)
                                   (sp-flt spt-b 54.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-vel-x (meters 0.026666667))
                                   (sp-flt spt-rotvel-z (degrees -0.15))
                                   (sp-flt spt-fade-a 0.013333334)
                                   (sp-int spt-timer 3600)
                                   (sp-cpuinfo-flags bit2 bit12)
                                   (sp-int spt-next-time 1200)
                                   (sp-launcher-by-id spt-next-launcher 691)
                                   (sp-flt spt-rotate-y (degrees 0.0))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 691)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.013333334) (sp-end))
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 684) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 21
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
                                   (sp-rnd-flt spt-num 0.015 0.015 1.0)
                                   (sp-flt spt-x (meters -35.0))
                                   (sp-flt spt-y (meters 1.0))
                                   (sp-rnd-flt spt-z -143360.0 245760.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 130.0)
                                   (sp-flt spt-g 100.0)
                                   (sp-flt spt-b 54.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-vel-x (meters 0.026666667))
                                   (sp-flt spt-rotvel-z (degrees -0.15))
                                   (sp-flt spt-fade-a 0.016410256)
                                   (sp-int spt-timer 3600)
                                   (sp-cpuinfo-flags bit2 bit12)
                                   (sp-int spt-next-time 975)
                                   (sp-launcher-by-id spt-next-launcher 692)
                                   (sp-flt spt-rotate-y (degrees 45.0))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 692)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.016410256) (sp-end))
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 685) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 21
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
                                   (sp-rnd-flt spt-num 0.015 0.015 1.0)
                                   (sp-flt spt-x (meters -25.0))
                                   (sp-flt spt-y (meters 14.0))
                                   (sp-rnd-flt spt-z -61440.0 286720.0 1.0)
                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 130.0)
                                   (sp-flt spt-g 100.0)
                                   (sp-flt spt-b 54.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-vel-x (meters 0.026666667))
                                   (sp-flt spt-rotvel-z (degrees -0.15))
                                   (sp-flt spt-fade-a 0.014222222)
                                   (sp-int spt-timer 3600)
                                   (sp-cpuinfo-flags bit2 bit12)
                                   (sp-int spt-next-time 1125)
                                   (sp-launcher-by-id spt-next-launcher 693)
                                   (sp-flt spt-rotate-y (degrees 0.0))
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 693)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.014222222) (sp-end))
        )
      )

;; definition for symbol sound-beach-waterfall, type sound-spec
(define
  sound-beach-waterfall
  (new 'static 'sound-spec :num 1.0 :group #x1 :sound-name (static-sound-name "waterfall") :volume #x400)
  )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 171)
      (new 'static 'sparticle-launch-group
        :length 13
        :duration #xbb8
        :linger-duration #x5dc
        :name "group-beach-butterflies"
        :launcher
        (new 'static 'inline-array sparticle-group-item 13
          (sp-item 696 :fade-after (meters 120.0) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
          (sp-item 696 :fade-after (meters 120.0) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
          (sp-item 696 :fade-after (meters 120.0) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
          (sp-item 695 :flags (is-3d start-dead))
          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
          (sp-item 695 :flags (is-3d start-dead))
          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
          (sp-item 695 :flags (is-3d start-dead))
          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
          (sp-item 695 :flags (is-3d start-dead))
          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
          (sp-item 695 :flags (is-3d start-dead))
          )
        :bounds (new 'static 'sphere :w 122880.0)
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 696) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 16
                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
                                   (sp-flt spt-num 1.0)
                                   (sp-rnd-flt spt-x (meters 0.0) (meters 7.5) 1.0)
                                   (sp-rnd-flt spt-y (meters 14.0) (meters 3.0) 1.0)
                                   (sp-flt spt-scale-x (meters 1.0))
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 128.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-flt spt-vel-y (meters -0.036666665))
                                   (sp-flt spt-accel-y 1.3653333)
                                   (sp-int spt-timer 6000)
                                   (sp-cpuinfo-flags bit3)
                                   (sp-int spt-next-time 555)
                                   (sp-launcher-by-id spt-next-launcher 697)
                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 697)
      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
                                                     (sp-flt spt-accel-y 0.0)
                                                     (sp-int-plain-rnd spt-next-time 2700 1499 1)
                                                     (sp-launcher-by-id spt-next-launcher 698)
                                                     (sp-end)
                                                     )
                                       )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 698)
      (new 'static 'sparticle-launcher
        :init-specs
        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-accel-y 1.3653333) (sp-end))
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 694) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 20
                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
                                   (sp-flt spt-num 1.0)
                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
                                   (sp-rnd-flt spt-z 12288.0 4096.0 1.0)
                                   (sp-flt spt-scale-x (meters 0.1))
                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-rnd-flt spt-g 0.0 256.0 1.0)
                                   (sp-rnd-int spt-b 1124073472 1 128.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
                                   (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
                                   (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
                                   (sp-flt spt-vel-z (meters 0.0))
                                   (sp-int spt-timer 6000)
                                   (sp-cpuinfo-flags bit3 bit7)
                                   (sp-int-plain-rnd spt-next-time 150 449 1)
                                   (sp-launcher-by-id spt-next-launcher 699)
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 699) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 6
                                   (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
                                   (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
                                   (sp-int-plain-rnd spt-next-time 150 449 1)
                                   (sp-launcher-by-id spt-next-launcher 699)
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 695) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 14
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
                                   (sp-func spt-birth-func 'birth-func-copy-rot-color)
                                   (sp-flt spt-num 2.0)
                                   (sp-flt spt-scale-x (meters 0.9))
                                   (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
                                   (sp-flt spt-scale-y (meters 1.3))
                                   (sp-flt spt-r 255.0)
                                   (sp-flt spt-g 255.0)
                                   (sp-flt spt-b 255.0)
                                   (sp-flt spt-a 128.0)
                                   (sp-flt spt-fade-a -8.0)
                                   (sp-int spt-timer 10)
                                   (sp-cpuinfo-flags bit2 bit9 bit12)
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-group-id-table* 172)
      (new 'static 'sparticle-launch-group
        :length 3
        :duration #xbb8
        :linger-duration #x5dc
        :name "group-beach-moth"
        :launcher
        (new 'static 'inline-array sparticle-group-item 3
          (sp-item 702 :fade-after (meters 120.0) :flags (bit1) :period 18030 :length 5 :hour-mask #b1111111110000000 :binding 700)
          (sp-item 700 :flags (start-dead launch-asap) :binding 701)
          (sp-item 701 :flags (is-3d start-dead))
          )
        :bounds (new 'static 'sphere :w 12288.0)
        )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 702) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 10
                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
                                   (sp-flt spt-num 1.0)
                                   (sp-flt spt-scale-x (meters 0.1))
                                   (sp-copy-from-other spt-scale-y -4)
                                   (sp-flt spt-r 128.0)
                                   (sp-flt spt-a 0.0)
                                   (sp-int spt-timer 18000)
                                   (sp-cpuinfo-flags bit3)
                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 700) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 20
                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
                                   (sp-flt spt-num 1.0)
                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
                                   (sp-flt spt-z 6144.0)
                                   (sp-flt spt-scale-x (meters 0.1))
                                   (sp-rnd-flt spt-rot-z (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-omega 0.0 65536.0 1.0)
                                   (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
                                   (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
                                   (sp-flt spt-vel-z (meters 0.0))
                                   (sp-int spt-timer 18000)
                                   (sp-cpuinfo-flags bit3 bit7)
                                   (sp-int-plain-rnd spt-next-time 150 449 1)
                                   (sp-launcher-by-id spt-next-launcher 703)
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 703) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 6
                                   (sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
                                   (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
                                   (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
                                   (sp-int-plain-rnd spt-next-time 150 449 1)
                                   (sp-launcher-by-id spt-next-launcher 703)
                                   (sp-end)
                                   )
                                 )
      )

;; failed to figure out what this is:
(set! (-> *part-id-table* 701) (new 'static 'sparticle-launcher
                                 :init-specs
                                 (new 'static 'inline-array sp-field-init-spec 13
                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
                                   (sp-func spt-birth-func 'birth-func-copy-rot-color)
                                   (sp-flt spt-num 2.0)
                                   (sp-flt spt-scale-x (meters 0.4))
                                   (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
                                   (sp-flt spt-scale-y (meters 0.4))
                                   (sp-flt spt-r 128.0)
                                   (sp-flt spt-g 128.0)
                                   (sp-flt spt-b 128.0)
                                   (sp-flt spt-a 128.0)
                                   (sp-int spt-timer 5)
                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
                                   (sp-end)
                                   )
                                 )
      )