jak-project/goal_src/engine/target/target-part.gc

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

;; name: target-part.gc
;; name in dgo: target-part
;; dgos: GAME, ENGINE

;; definition for function birth-func-copy-target-y-rot
;; INFO: Return type mismatch int vs none.
;; Used lq/sq
(defun
  birth-func-copy-target-y-rot
  ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
  (let ((v1-0 *target*))
   (when v1-0
    (let ((s5-0 (new-stack-matrix0)))
     (let ((f0-1 (+ -16384.0 (y-angle (-> v1-0 control)))))
      (matrix-rotate-y! s5-0 f0-1)
      )
     (vector3s-rotate*!
      (the-as vector3s (-> arg1 vel-sxvel))
      (the-as vector3s (-> arg1 vel-sxvel))
      s5-0
      )
     (vector3s-rotate*!
      (the-as vector3s (-> arg1 acc))
      (the-as vector3s (-> arg1 acc))
      s5-0
      )
     )
    )
   )
  0
  (none)
  )

;; definition for function birth-func-ground-orient
;; INFO: Return type mismatch int vs none.
;; Used lq/sq
(defun
  birth-func-ground-orient
  ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
  (local-vars (v1-11 float) (v1-12 float))
  (rlet ((vf0 :class vf)
         (vf1 :class vf)
         (vf2 :class vf)
         )
   (init-vf0-vector)
   (let ((a1-1 (new 'stack-no-clear 'vector)))
    (set! (-> a1-1 quad) (-> arg2 launchrot quad))
    (let ((s3-0 (new 'stack-no-clear 'collide-tri-result))
          (s5-0 *target*)
          )
     (set! (-> a1-1 y) (+ 4096.0 (-> a1-1 y)))
     (when
      (>=
       (fill-and-probe-using-y-probe
        *collide-cache*
        a1-1
        (the-as float 20480.0)
        (the-as uint #x2bef)
        s5-0
        s3-0
        (the-as uint 1)
        )
       0.0
       )
      (let ((s2-0 (new 'stack-no-clear 'vector))
            (s4-1 (new 'stack-no-clear 'quaternion))
            )
       (set! (-> s2-0 x) (-> s3-0 normal z))
       (set! (-> s2-0 y) 0.0)
       (set! (-> s2-0 z) (- (-> s3-0 normal x)))
       (vector-normalize! s2-0 (the-as float 1.0))
       (quaternion-vector-angle! s4-1 s2-0 (acos (-> s3-0 normal y)))
       (let ((s3-1 (new 'stack-no-clear 'quaternion)))
        (quaternion-vector-angle!
         s3-1
         *up-vector*
         (+ 32768.0 (y-angle (-> s5-0 control)))
         )
        (quaternion-normalize! (quaternion*! s4-1 s3-1 s4-1))
        )
       (cond
        ((< (-> s4-1 w) 0.0)
         (.lvf vf1 (&-> arg2 conerot quad))
         (.lvf vf2 (&-> s4-1 vec quad))
         (.sub.vf vf1 vf0 vf2 :mask #b111)
         (.svf (&-> arg2 conerot quad) vf1)
         (.mov v1-11 vf1)
         )
        (else
         (.lvf vf1 (&-> arg2 conerot quad))
         (.lvf vf2 (&-> s4-1 vec quad))
         (.add.vf vf1 vf0 vf2 :mask #b111)
         (.svf (&-> arg2 conerot quad) vf1)
         (.mov v1-12 vf1)
         )
        )
       )
      )
     )
    )
   0
   (none)
   )
  )

;; definition for function birth-func-target-orient
;; INFO: Return type mismatch int vs none.
(defun
  birth-func-target-orient
  ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
  (local-vars (v1-10 float) (v1-11 float) (sv-16 target))
  (rlet ((vf0 :class vf)
         (vf1 :class vf)
         (vf2 :class vf)
         )
   (init-vf0-vector)
   (set! sv-16 *target*)
   (let ((s3-0 (new 'stack-no-clear 'vector)))
    (new 'stack-no-clear 'vector)
    (let ((s5-0 (new 'stack-no-clear 'quaternion)))
     (let ((s2-0 (-> sv-16 control local-normal)))
      (set! (-> s3-0 x) (-> s2-0 z))
      (set! (-> s3-0 y) 0.0)
      (set! (-> s3-0 z) (- (-> s2-0 x)))
      (vector-normalize! s3-0 (the-as float 1.0))
      (quaternion-vector-angle! s5-0 s3-0 (acos (-> s2-0 y)))
      )
     (let ((s3-1 (new 'stack-no-clear 'quaternion)))
      (quaternion-vector-angle!
       s3-1
       *up-vector*
       (+ 32768.0 (-> arg1 user-float) (y-angle (-> sv-16 control)))
       )
      (quaternion-normalize! (quaternion*! s5-0 s5-0 s3-1))
      )
     (cond
      ((< (-> s5-0 w) 0.0)
       (.lvf vf1 (&-> arg2 conerot quad))
       (.lvf vf2 (&-> s5-0 vec quad))
       (.sub.vf vf1 vf0 vf2 :mask #b111)
       (.svf (&-> arg2 conerot quad) vf1)
       (.mov v1-10 vf1)
       )
      (else
       (.lvf vf1 (&-> arg2 conerot quad))
       (.lvf vf2 (&-> s5-0 vec quad))
       (.add.vf vf1 vf0 vf2 :mask #b111)
       (.svf (&-> arg2 conerot quad) vf1)
       (.mov v1-11 vf1)
       )
      )
     )
    )
   0
   (none)
   )
  )

;; definition for function birth-func-vector-orient
;; INFO: Return type mismatch int vs none.
(defun
  birth-func-vector-orient
  ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
  (local-vars (v1-4 float) (v1-5 float))
  (rlet ((vf0 :class vf)
         (vf1 :class vf)
         (vf2 :class vf)
         )
   (init-vf0-vector)
   *target*
   (let ((s4-0 (new 'stack-no-clear 'vector)))
    (new 'stack-no-clear 'vector)
    (let ((s5-0 (new 'stack-no-clear 'quaternion))
          (s3-0 (the-as object (-> arg1 user-float)))
          )
     (when (nonzero? (the-as float s3-0))
      (set! (-> s4-0 x) (-> (the-as sprite-vec-data-2d s3-0) z))
      (set! (-> s4-0 y) 0.0)
      (set! (-> s4-0 z) (- (-> (the-as sprite-vec-data-2d s3-0) x)))
      (vector-normalize! s4-0 (the-as float 1.0))
      (quaternion-vector-angle!
       s5-0
       s4-0
       (acos (-> (the-as sprite-vec-data-2d s3-0) y))
       )
      (cond
       ((< (-> s5-0 w) 0.0)
        (.lvf vf1 (&-> arg2 conerot quad))
        (.lvf vf2 (&-> s5-0 vec quad))
        (.sub.vf vf1 vf0 vf2 :mask #b111)
        (.svf (&-> arg2 conerot quad) vf1)
        (.mov v1-4 vf1)
        )
       (else
        (.lvf vf1 (&-> arg2 conerot quad))
        (.lvf vf2 (&-> s5-0 vec quad))
        (.add.vf vf1 vf0 vf2 :mask #b111)
        (.svf (&-> arg2 conerot quad) vf1)
        (.mov v1-5 vf1)
        )
       )
      )
     )
    )
   0
   (none)
   )
  )

;; definition for function part-tracker-track-target-joint
;; INFO: Return type mismatch int vs none.
(defun
  part-tracker-track-target-joint
  ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
  (let* ((v1-0 *target*)
         (v1-2
          (vector<-cspace!
           (new 'stack-no-clear 'vector)
           (-> v1-0 node-list data (the int (-> arg1 user-float)))
           )
          )
         )
   (set! (-> arg2 launchrot x) (-> v1-2 x))
   (set! (-> arg2 launchrot y) (-> v1-2 y))
   (set! (-> arg2 launchrot z) (-> v1-2 z))
   )
  0
  (none)
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 1)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #x5
   :linger-duration #x5dc
   :flags (sp-group-flag use-local-clock)
   :name "group-target-hit"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2 (sp-item 56) (sp-item 57))
   :bounds (new 'static 'sphere :w 49152.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 56)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 18
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-flt spt-num 32.0)
    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-scale-y (meters 0.06))
    (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.16))
    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
    (sp-flt spt-fade-a 6.4)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 10)
    (sp-launcher-by-id spt-next-launcher 58)
    (sp-end)
    )
   )
  )

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

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 57)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 14
    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 12.0))
    (sp-flt spt-rot-z (degrees 0.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 64.0)
    (sp-flt spt-rotvel-z (degrees -0.4))
    (sp-flt spt-fade-a -1.4222221)
    (sp-int spt-timer 42)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 2)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #xa
   :linger-duration #x1c2
   :name "group-red-eco-strike-ground"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2 (sp-item 59) (sp-item 60))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 59)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 25
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 24.0)
    (sp-flt spt-y (meters 1.0))
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.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 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 32.0)
    (sp-rnd-flt spt-a 8.0 56.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.13333334) (meters 0.16666667) 1.0)
    (sp-flt spt-scalevel-x (meters 0.013333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-g -1.4222223)
    (sp-flt spt-fade-a -0.35555556)
    (sp-flt spt-accel-y 0.34133333)
    (sp-flt spt-friction 0.7)
    (sp-int spt-timer 180)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 90)
    (sp-launcher-by-id spt-next-launcher 61)
    (sp-flt spt-conerot-x (degrees 90.0))
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 60)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
    (sp-flt spt-num 32.0)
    (sp-flt spt-y (meters 1.0))
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-rnd-flt spt-a 64.0 8.0 1.0)
    (sp-flt spt-vel-y (meters 0.3))
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-g -2.8444445)
    (sp-flt spt-fade-a -0.82222223)
    (sp-flt spt-friction 0.7)
    (sp-int spt-timer 90)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 45)
    (sp-launcher-by-id spt-next-launcher 61)
    (sp-flt spt-conerot-x (degrees 90.0))
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 3)
  (new 'static 'sparticle-launch-group
   :length 3
   :duration #xa
   :linger-duration #x1c2
   :name "group-red-eco-spinkick"
   :launcher
   (new 'static 'inline-array sparticle-group-item 3
    (sp-item 62)
    (sp-item 63)
    (sp-item 64)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 62)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 23
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.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 128.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 32.0)
    (sp-rnd-flt spt-a 8.0 56.0 1.0)
    (sp-flt spt-scalevel-x (meters 0.013333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-g -1.4222223)
    (sp-flt spt-fade-a -0.35555556)
    (sp-flt spt-accel-y 0.34133333)
    (sp-int spt-timer 180)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 90)
    (sp-launcher-by-id spt-next-launcher 61)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 61)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 4
    (sp-flt spt-fade-r -0.7111111)
    (sp-flt spt-fade-g 0.7111111)
    (sp-flt spt-fade-b 0.35555556)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 63)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 19
    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
    (sp-flt spt-num 0.66)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-flt spt-g 128.0)
    (sp-rnd-flt spt-a 64.0 8.0 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-g -2.8444445)
    (sp-flt spt-fade-a -0.82222223)
    (sp-int spt-timer 90)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 45)
    (sp-launcher-by-id spt-next-launcher 61)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.1) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 64)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 13
    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.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 128.0)
    (sp-flt spt-g 96.0)
    (sp-flt spt-a 64.0)
    (sp-flt spt-fade-a -4.0)
    (sp-flt spt-accel-y 0.34133333)
    (sp-int spt-timer 10)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 4)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #xa
   :linger-duration #x1c2
   :name "group-spin-hit"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2 (sp-item 65) (sp-item 66))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 5)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #xa
   :linger-duration #x1c2
   :name "group-punch-hit"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2 (sp-item 65) (sp-item 66))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 65)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
    (sp-flt spt-num 4.0)
    (sp-flt spt-y (meters 0.75))
    (sp-flt spt-scale-x (meters 3.0))
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.5) 1.0)
    (sp-flt spt-r 192.0)
    (sp-flt spt-g 192.0)
    (sp-rnd-flt spt-b 64.0 128.0 1.0)
    (sp-flt spt-a 0.0)
    (sp-flt spt-scalevel-x (meters 0.009765625))
    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
    (sp-flt spt-scalevel-y (meters 0.009765625))
    (sp-flt spt-fade-a 2.1333334)
    (sp-int spt-timer 30)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-int spt-next-time 15)
    (sp-launcher-by-id spt-next-launcher 67)
    (sp-flt spt-rotate-y (degrees 0.0))
    (sp-end)
    )
   )
  )

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

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 66)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 13
    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-y (meters 1.0))
    (sp-flt spt-scale-x (meters 3.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 196.0)
    (sp-flt spt-g 196.0)
    (sp-flt spt-b 196.0)
    (sp-flt spt-a 28.0)
    (sp-int spt-timer 10)
    (sp-cpuinfo-flags bit2 bit3)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 6)
  (new 'static 'sparticle-launch-group
   :length 23
   :duration #xa
   :linger-duration #x1c2
   :name "group-smack-surface"
   :launcher
   (new 'static 'inline-array sparticle-group-item 23
    (sp-item 68)
    (sp-item 69)
    (sp-item 72 :binding 71)
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    (sp-item 71 :flags (start-dead launch-asap))
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 68)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 22
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-func spt-birth-func 'birth-func-copy-target-y-rot)
    (sp-flt spt-num 16.0)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 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 96.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 96.0 32.0 1.0)
    (sp-rnd-flt spt-a 32.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.85333335)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-rotate-y (degrees 0.0))
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 69)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 22
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-func spt-birth-func 'birth-func-copy-target-y-rot)
    (sp-flt spt-num 8.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 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 96.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 96.0 32.0 1.0)
    (sp-rnd-flt spt-a 32.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.02) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.85333335)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-rotate-y (degrees 0.0))
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 72)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 11
    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
    (sp-rnd-flt spt-num 12.0 8.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-int spt-timer 604)
    (sp-cpuinfo-flags bit3)
    (sp-flt spt-userdata 8.0)
    (sp-func spt-func 'part-tracker-track-target-joint)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 71)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 19
    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
    (sp-flt spt-num 1.0)
    (sp-flt spt-x (meters 0.0))
    (sp-rnd-flt spt-y (meters -1.3333334) (meters 2.6666667) 1.0)
    (sp-rnd-flt spt-z 2048.0 2048.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 32.0 92.0 1.0)
    (sp-rnd-flt spt-g 128.0 128.0 1.0)
    (sp-flt spt-b 0.0)
    (sp-rnd-flt spt-a 32.0 96.0 1.0)
    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
    (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
    (sp-flt spt-vel-y (meters 0.0))
    (sp-flt spt-vel-z (meters 0.0033333334))
    (sp-flt spt-fade-a -0.30476192)
    (sp-int spt-timer 604)
    (sp-cpuinfo-flags bit2 bit3 bit7)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 8)
  (new 'static 'sparticle-launch-group
   :length 3
   :duration #x5
   :linger-duration #x1c2
   :name "group-land-poof-sand"
   :launcher
   (new 'static 'inline-array sparticle-group-item 3
    (sp-item 73)
    (sp-item 74)
    (sp-item 75)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 73)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 16.0)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.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 128.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.16)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 74)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 12.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 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 128.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.21333334)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 75)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 20
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-flt spt-num 32.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1124073472 2 32.0)
    (sp-rnd-int spt-g 1115684864 1 64.0)
    (sp-rnd-int spt-b 1107296256 1 32.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-conerot-radius (meters 0.5))
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 575)
  (new 'static 'sparticle-launch-group
   :length 3
   :duration #x5
   :linger-duration #x1c2
   :name "group-land-poof-dirt"
   :launcher
   (new 'static 'inline-array sparticle-group-item 3
    (sp-item 2371)
    (sp-item 2372)
    (sp-item 2370)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2371)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 16.0)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.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 128.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.16)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2372)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 12.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 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 128.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.21333334)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2370)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 20
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-flt spt-num 32.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1124073472 2 32.0)
    (sp-rnd-int spt-g 1115684864 1 64.0)
    (sp-rnd-int spt-b 1107296256 1 32.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-conerot-radius (meters 0.5))
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 9)
  (new 'static 'sparticle-launch-group
   :length 3
   :duration #x5
   :linger-duration #x1c2
   :name "group-land-poof-snow"
   :launcher
   (new 'static 'inline-array sparticle-group-item 3
    (sp-item 76)
    (sp-item 77)
    (sp-item 78)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 76)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 16.0)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.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-rnd-flt spt-r 196.0 64.0 1.0)
    (sp-rnd-flt spt-g 196.0 64.0 1.0)
    (sp-rnd-flt spt-b 196.0 64.0 1.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.16)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 77)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 12.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 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-rnd-flt spt-r 196.0 64.0 1.0)
    (sp-rnd-flt spt-g 196.0 64.0 1.0)
    (sp-rnd-flt spt-b 196.0 64.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.21333334)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 78)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 20
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-flt spt-num 32.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1128529920 1 64.0)
    (sp-rnd-int spt-g 1128529920 1 64.0)
    (sp-rnd-int spt-b 1128529920 1 64.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-conerot-radius (meters 0.5))
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 580)
  (new 'static 'sparticle-launch-group
   :length 3
   :duration #x5
   :linger-duration #x1c2
   :name "group-land-poof-ice"
   :launcher
   (new 'static 'inline-array sparticle-group-item 3
    (sp-item 76)
    (sp-item 77)
    (sp-item 78)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 10)
  (new 'static 'sparticle-launch-group
   :length 3
   :duration #x5
   :linger-duration #x1c2
   :name "group-land-poof-grass"
   :launcher
   (new 'static 'inline-array sparticle-group-item 3
    (sp-item 79)
    (sp-item 80)
    (sp-item 81)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 79)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 16.0)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.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-rnd-flt spt-r 64.0 32.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 0.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.16)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 80)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 12.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 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-rnd-flt spt-r 64.0 32.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 0.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.21333334)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 81)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
    (sp-flt spt-num 32.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-scale-y (meters 0.15))
    (sp-rnd-flt spt-r 0.0 2.0 64.0)
    (sp-rnd-int spt-g 1115684864 2 64.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-conerot-radius (meters 0.5))
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 11)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #x5
   :linger-duration #x1c2
   :name "group-land-poof-wood"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2 (sp-item 82) (sp-item 83))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 82)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 16.0)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.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-rnd-flt spt-r 96.0 32.0 1.0)
    (sp-flt spt-g 64.0)
    (sp-rnd-flt spt-b 0.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.16)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 83)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 12.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 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-rnd-flt spt-r 96.0 32.0 1.0)
    (sp-flt spt-g 64.0)
    (sp-rnd-flt spt-b 0.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.21333334)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 12)
  (new 'static 'sparticle-launch-group
   :length 4
   :duration #x5
   :linger-duration #x2ee
   :name "group-land-poof-crwood"
   :launcher
   (new 'static 'inline-array sparticle-group-item 4
    (sp-item 82)
    (sp-item 83)
    (sp-item 84)
    (sp-item 84)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 13)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #x5
   :linger-duration #x1c2
   :name "group-land-poof-stone"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2 (sp-item 85) (sp-item 86))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 85)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 16.0)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.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-rnd-flt spt-r 96.0 32.0 1.0)
    (sp-flt spt-g 96.0)
    (sp-flt spt-b 96.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.16)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 86)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 12.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 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-rnd-flt spt-r 96.0 32.0 1.0)
    (sp-flt spt-g 96.0)
    (sp-flt spt-b 96.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.21333334)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 581)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #x5
   :linger-duration #x1c2
   :name "group-land-poof-pcmetal"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2
    (sp-item 2373)
    (sp-item 2374)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2373)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 19
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 16.0)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.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-rnd-flt spt-r 128.0 64.0 1.0)
    (sp-rnd-flt spt-g 70.0 32.0 1.0)
    (sp-rnd-flt spt-b 40.0 20.0 1.0)
    (sp-rnd-flt spt-a 24.0 24.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-flt spt-fade-a -0.16)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2374)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 12.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 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-rnd-flt spt-r 128.0 64.0 1.0)
    (sp-rnd-flt spt-g 70.0 32.0 1.0)
    (sp-rnd-flt spt-b 40.0 20.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.21333334)
    (sp-flt spt-accel-y -1.3653333)
    (sp-flt spt-friction 0.95)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags bit2 bit12)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 14)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-run-poof-stone"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 87))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 15)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-poof-stone"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 87))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 87)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 16
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 8.0 16.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 96.0 32.0 1.0)
    (sp-flt spt-g 96.0)
    (sp-flt spt-b 96.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-fade-a -0.45714286)
    (sp-flt spt-friction 0.965)
    (sp-int spt-timer 105)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 582)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #x5
   :linger-duration #x258
   :name "group-run-poof-snow"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2
    (sp-item 2375)
    (sp-item 2376 :flags (is-3d))
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 583)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-poof-snow"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2375))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 584)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-footprint-snow"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1
    (sp-item 2376 :flags (is-3d))
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2376)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 14
    (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
    (sp-func spt-birth-func 'birth-func-target-orient)
    (sp-flt spt-num 1.0)
    (sp-flt spt-x (meters -0.25))
    (sp-flt spt-scale-x (meters 0.6))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 32.0)
    (sp-flt spt-g 32.0)
    (sp-flt spt-b 16.0)
    (sp-flt spt-a 64.0)
    (sp-flt spt-fade-a -0.07111111)
    (sp-int spt-timer 1050)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2375)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 16
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 8.0 16.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 196.0 64.0 1.0)
    (sp-rnd-flt spt-g 196.0 64.0 1.0)
    (sp-rnd-flt spt-b 196.0 64.0 1.0)
    (sp-rnd-flt spt-a 24.0 24.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-fade-a -0.45714286)
    (sp-flt spt-friction 0.965)
    (sp-int spt-timer 105)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 585)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-run-poof-ice"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2375))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 586)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-poof-ice"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2375))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 16)
  (new 'static 'sparticle-launch-group
   :length 3
   :duration #x5
   :linger-duration #x258
   :name "group-run-poof-crwood"
   :launcher
   (new 'static 'inline-array sparticle-group-item 3
    (sp-item 89)
    (sp-item 89)
    (sp-item 84)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 17)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-poof-crwood"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 88))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 84)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 22
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 8.0 16.0 1.0)
    (sp-flt spt-y (meters -1.0))
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 64.0 32.0 1.0)
    (sp-flt spt-g 64.0)
    (sp-rnd-flt spt-b 0.0 32.0 1.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-vel-y (meters 0.0) (meters -0.0033333334) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a 0.16)
    (sp-flt spt-accel-y -0.27306667)
    (sp-int spt-timer 900)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-int-plain-rnd spt-next-time 75 74 1)
    (sp-launcher-by-id spt-next-launcher 90)
    (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 0.0) (meters 3.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 90)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 4
    (sp-flt spt-fade-a 0.0)
    (sp-int-plain-rnd spt-next-time 150 149 1)
    (sp-launcher-by-id spt-next-launcher 91)
    (sp-end)
    )
   )
  )

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

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 18)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-run-poof-wood"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 89))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 19)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-poof-wood"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 89))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 89)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 16
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 8.0 16.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 96.0 32.0 1.0)
    (sp-flt spt-g 64.0)
    (sp-rnd-flt spt-b 0.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-fade-a -0.45714286)
    (sp-flt spt-friction 0.965)
    (sp-int spt-timer 105)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 587)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-run-poof-pcmetal"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2377))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 588)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-poof-pcmetal"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2377))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2377)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 16
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 8.0 16.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 128.0 64.0 1.0)
    (sp-rnd-flt spt-g 70.0 32.0 1.0)
    (sp-rnd-flt spt-b 40.0 20.0 1.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-fade-a -0.45714286)
    (sp-flt spt-friction 0.965)
    (sp-int spt-timer 105)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 20)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #x5
   :linger-duration #x258
   :name "group-run-poof-grass"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2
    (sp-item 92)
    (sp-item 93 :flags (is-3d))
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 21)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-poof-grass"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 92))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 22)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-footprint-grass"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1
    (sp-item 93 :flags (is-3d))
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 92)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 16
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 8.0 16.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 64.0 32.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 0.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-fade-a -0.45714286)
    (sp-flt spt-friction 0.965)
    (sp-int spt-timer 105)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 93)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 14
    (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
    (sp-func spt-birth-func 'birth-func-target-orient)
    (sp-flt spt-num 1.0)
    (sp-flt spt-x (meters -0.25))
    (sp-flt spt-scale-x (meters 0.6))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 32.0)
    (sp-flt spt-g 32.0)
    (sp-flt spt-b 16.0)
    (sp-flt spt-a 48.0)
    (sp-flt spt-fade-a -0.053333335)
    (sp-int spt-timer 1050)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 23)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #x5
   :linger-duration #x258
   :name "group-run-poof-sand"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2
    (sp-item 88)
    (sp-item 94 :flags (is-3d))
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 24)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-poof-sand"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 88))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 25)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-footprint-sand"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1
    (sp-item 94 :flags (is-3d))
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 88)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 16
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 8.0 16.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-fade-a -0.45714286)
    (sp-flt spt-friction 0.965)
    (sp-int spt-timer 105)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 94)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 14
    (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
    (sp-func spt-birth-func 'birth-func-target-orient)
    (sp-flt spt-num 1.0)
    (sp-flt spt-x (meters -0.25))
    (sp-flt spt-scale-x (meters 0.6))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 32.0)
    (sp-flt spt-g 32.0)
    (sp-flt spt-b 16.0)
    (sp-flt spt-a 32.0)
    (sp-flt spt-fade-a -0.035555556)
    (sp-int spt-timer 1050)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 576)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-run-poof-dirt"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2378))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 577)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-poof-dirt"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2378))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 578)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x258
   :name "group-just-footprint-dirt"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1
    (sp-item 2379 :flags (is-3d))
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2378)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 16
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 8.0 16.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 128.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-fade-a -0.45714286)
    (sp-flt spt-friction 0.965)
    (sp-int spt-timer 105)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2379)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 14
    (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
    (sp-func spt-birth-func 'birth-func-target-orient)
    (sp-flt spt-num 1.0)
    (sp-flt spt-x (meters -0.25))
    (sp-flt spt-scale-x (meters 0.6))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 32.0)
    (sp-flt spt-g 32.0)
    (sp-flt spt-b 16.0)
    (sp-flt spt-a 32.0)
    (sp-flt spt-fade-a -0.035555556)
    (sp-int spt-timer 1050)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 95)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 19
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-rnd-flt spt-num 0.0 6.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1124073472 2 32.0)
    (sp-rnd-int spt-g 1115684864 1 64.0)
    (sp-rnd-int spt-b 1107296256 1 32.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2253)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 19
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-rnd-flt spt-num 0.0 6.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1124073472 2 32.0)
    (sp-rnd-int spt-g 1115684864 1 64.0)
    (sp-rnd-int spt-b 1107296256 1 32.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 96)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 20
    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
    (sp-rnd-flt spt-num 0.0 2.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-scale-y (meters 0.1))
    (sp-rnd-flt spt-r 0.0 2.0 64.0)
    (sp-rnd-int spt-g 1115684864 2 64.0)
    (sp-rnd-flt spt-a 96.0 32.0 1.0)
    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2250)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 19
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-rnd-flt spt-num 0.0 6.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1128529920 1 64.0)
    (sp-rnd-int spt-g 1128529920 1 64.0)
    (sp-rnd-int spt-b 1128529920 1 64.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 97)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 1 (sp-end))
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 98)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 1 (sp-end))
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 99)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 1 (sp-end))
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 26)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #x5
   :linger-duration #x1c2
   :name "group-slide-poof-sand"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2
    (sp-item 100)
    (sp-item 101)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 100)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 6.0 6.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 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 128.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.17777778)
    (sp-flt spt-accel-y -0.27306667)
    (sp-flt spt-friction 0.94)
    (sp-int spt-timer 180)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 101)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 20
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-rnd-flt spt-num 0.0 8.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1124073472 2 32.0)
    (sp-rnd-int spt-g 1115684864 1 64.0)
    (sp-rnd-int spt-b 1107296256 1 32.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-conerot-radius (meters 0.5))
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 579)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #x5
   :linger-duration #x1c2
   :name "group-slide-poof-dirt"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2
    (sp-item 2380)
    (sp-item 2381)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2380)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 6.0 6.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 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 128.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 64.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.17777778)
    (sp-flt spt-accel-y -0.27306667)
    (sp-flt spt-friction 0.94)
    (sp-int spt-timer 180)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2381)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 20
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-rnd-flt spt-num 0.0 8.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1124073472 2 32.0)
    (sp-rnd-int spt-g 1115684864 1 64.0)
    (sp-rnd-int spt-b 1107296256 1 32.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-conerot-radius (meters 0.5))
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 27)
  (new 'static 'sparticle-launch-group
   :length 2
   :duration #x5
   :linger-duration #x1c2
   :name "group-slide-poof-grass"
   :launcher
   (new 'static 'inline-array sparticle-group-item 2
    (sp-item 102)
    (sp-item 103)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 102)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 6.0 6.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 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-rnd-flt spt-r 64.0 32.0 1.0)
    (sp-rnd-flt spt-g 96.0 32.0 1.0)
    (sp-rnd-flt spt-b 0.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.17777778)
    (sp-flt spt-accel-y -0.27306667)
    (sp-flt spt-friction 0.94)
    (sp-int spt-timer 180)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 103)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
    (sp-rnd-flt spt-num 0.0 8.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-scale-y (meters 0.15))
    (sp-rnd-flt spt-r 0.0 2.0 64.0)
    (sp-rnd-int spt-g 1115684864 2 64.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-conerot-radius (meters 0.5))
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 28)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x1c2
   :name "group-slide-poof-stone"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 104))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 104)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 6.0 6.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 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-rnd-flt spt-r 96.0 32.0 1.0)
    (sp-flt spt-g 96.0)
    (sp-flt spt-b 96.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.17777778)
    (sp-flt spt-accel-y -0.27306667)
    (sp-flt spt-friction 0.94)
    (sp-int spt-timer 180)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 589)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x1c2
   :name "group-slide-poof-pcmetal"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2382))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2382)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 6.0 6.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 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-rnd-flt spt-r 128.0 64.0 1.0)
    (sp-rnd-flt spt-g 70.0 32.0 1.0)
    (sp-rnd-flt spt-b 40.0 20.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.17777778)
    (sp-flt spt-accel-y -0.27306667)
    (sp-flt spt-friction 0.94)
    (sp-int spt-timer 180)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 590)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x1c2
   :name "group-slide-poof-snow"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2383))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2383)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 6.0 6.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 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-rnd-int spt-r 1128529920 1 64.0)
    (sp-rnd-int spt-g 1128529920 1 64.0)
    (sp-rnd-int spt-b 1128529920 1 64.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.17777778)
    (sp-flt spt-accel-y -0.27306667)
    (sp-flt spt-friction 0.94)
    (sp-int spt-timer 180)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 591)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x1c2
   :name "group-slide-poof-ice"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2383))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 29)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x1c2
   :name "group-slide-poof-wood"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 105))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 105)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 21
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-rnd-flt spt-num 6.0 6.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 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-rnd-flt spt-r 96.0 32.0 1.0)
    (sp-flt spt-g 64.0)
    (sp-rnd-flt spt-b 0.0 32.0 1.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
    (sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.17777778)
    (sp-flt spt-accel-y -0.27306667)
    (sp-flt spt-friction 0.94)
    (sp-int spt-timer 180)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 30)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x5
   :linger-duration #x2ee
   :name "group-slide-poof-crwood"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 105))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 106)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 16
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-rnd-flt spt-num 0.0 8.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1124073472 2 32.0)
    (sp-rnd-int spt-g 1115684864 1 64.0)
    (sp-rnd-int spt-b 1107296256 1 32.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2265)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 16
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-rnd-flt spt-num 0.0 8.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1124073472 2 32.0)
    (sp-rnd-int spt-g 1115684864 1 64.0)
    (sp-rnd-int spt-b 1107296256 1 32.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2262)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 16
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
    (sp-rnd-flt spt-num 0.0 8.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-int spt-r 1128529920 1 64.0)
    (sp-rnd-int spt-g 1128529920 1 64.0)
    (sp-rnd-int spt-b 1128529920 1 64.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 107)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 17
    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
    (sp-rnd-flt spt-num 0.0 8.0 1.0)
    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-scale-y (meters 0.15))
    (sp-rnd-flt spt-r 0.0 2.0 64.0)
    (sp-rnd-int spt-g 1115684864 2 64.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
    (sp-flt spt-fade-a -0.42666668)
    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
    (sp-int spt-timer 300)
    (sp-cpuinfo-flags bit2 bit12 bit14)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 31)
  (new 'static 'sparticle-launch-group
   :length 36
   :duration #x258
   :linger-duration #x5dc
   :flags (sp-group-flag use-local-clock)
   :name "group-dark-eco-death"
   :launcher
   (new 'static 'inline-array sparticle-group-item 36
    (sp-item 295 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
    (sp-item 2095 :period 600 :length 5)
    (sp-item 2096 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
    (sp-item 2097 :period 600 :length 20)
    )
   :bounds (new 'static 'sphere :w 49152.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 32)
  (new 'static 'sparticle-launch-group
   :length 4
   :duration #x4b
   :linger-duration #x258
   :name "group-lava-death"
   :launcher
   (new 'static 'inline-array sparticle-group-item 4
    (sp-item 2003)
    (sp-item 2004)
    (sp-item 2005)
    (sp-item 2006)
    )
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 708)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #x96
   :linger-duration #x258
   :name "group-burn-death"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2003))
   :bounds (new 'static 'sphere :w 8192.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2006)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 17
    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
    (sp-rnd-flt spt-num 8.0 16.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 256.0)
    (sp-rnd-flt spt-g 0.0 128.0 1.0)
    (sp-rnd-flt spt-a 128.0 128.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.04) 1.0)
    (sp-flt spt-scalevel-x (meters -0.0023333333))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-accel-y -5.4613333)
    (sp-int spt-timer 360)
    (sp-cpuinfo-flags bit0 bit3 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-flt spt-conerot-radius (meters 1.0))
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2003)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 23
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 5.0)
    (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.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 128.0)
    (sp-rnd-flt spt-g 0.0 128.0 1.0)
    (sp-flt spt-b 0.0)
    (sp-rnd-flt spt-a 32.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
    (sp-flt spt-scalevel-x (meters 0.023529412))
    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -1.5058824)
    (sp-flt spt-friction 0.98)
    (sp-int spt-timer 81)
    (sp-cpuinfo-flags bit2 bit3 bit14)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (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* 2004)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 23
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 32.0)
    (sp-rnd-flt spt-x (meters 0.5) (meters 2.0) 1.0)
    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.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 128.0)
    (sp-rnd-flt spt-g 0.0 128.0 1.0)
    (sp-flt spt-b 0.0)
    (sp-rnd-flt spt-a 32.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0016666667) 1.0)
    (sp-flt spt-scalevel-x (meters 0.04444444))
    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -2.8444443)
    (sp-flt spt-friction 0.98)
    (sp-int spt-timer 42)
    (sp-cpuinfo-flags bit2 bit3 bit14)
    (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-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2005)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 28
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 8.0)
    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.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 255.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 255.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
    (sp-flt spt-scalevel-x (meters 0.008888889))
    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -0.56666666)
    (sp-flt spt-fade-g -0.56666666)
    (sp-flt spt-fade-b -0.56666666)
    (sp-flt spt-fade-a 0.15)
    (sp-flt spt-friction 0.97)
    (sp-int spt-timer 450)
    (sp-cpuinfo-flags bit2 bit14)
    (sp-int-plain-rnd spt-next-time 81 80 1)
    (sp-launcher-by-id spt-next-launcher 2007)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
    (sp-end)
    )
   )
  )

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

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2002)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 20
    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 2.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-rnd-flt spt-r 32.0 32.0 1.0)
    (sp-rnd-flt spt-g 32.0 32.0 1.0)
    (sp-rnd-flt spt-b 32.0 32.0 1.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a 0.85333335)
    (sp-flt spt-friction 0.98)
    (sp-int spt-timer 450)
    (sp-cpuinfo-flags bit2 bit14)
    (sp-int-plain-rnd spt-next-time 15 59 1)
    (sp-launcher-by-id spt-next-launcher 2008)
    (sp-end)
    )
   )
  )

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

;; definition for function process-drawable-burn-effect
;; Used lq/sq
(defbehavior process-drawable-burn-effect target ((arg0 int))
  (sound-play-by-name
   (static-sound-name "get-burned")
   (new-sound-id)
   1024
   0
   0
   (the-as uint 1)
   (the-as vector #t)
   )
  (let ((s5-1 (new 'stack 'rgbaf))
        (s3-0 (-> *display* base-frame-counter))
        (s4-1 (-> self parent))
        )
   (set!
    (-> s5-1 quad)
    (-> (the-as process-drawable (-> s4-1 0)) draw color-mult quad)
    )
   (let
    ((s2-1
      (vector-float*!
       (the-as vector (new 'stack 'rgbaf))
       (the-as vector s5-1)
       0.0
       )
      )
     )
    (while (< (- (-> *display* base-frame-counter) s3-0) arg0)
     (let ((v1-8 (- (-> *display* base-frame-counter) s3-0)))
      (if (< v1-8 (/ arg0 2))
       (vector-lerp!
        (-> (the-as process-drawable (-> s4-1 0)) draw color-mult)
        s5-1
        s2-1
        (/ (the float v1-8) (the float arg0))
        )
       (vector-lerp!
        (-> (the-as process-drawable (-> s4-1 0)) draw color-mult)
        s5-1
        s2-1
        (- 1.0 (/ (the float v1-8) (the float arg0)))
        )
       )
      )
     (let
      ((a2-3
        (process-drawable-random-point!
         (the-as process-drawable (ppointer->process s4-1))
         (new 'stack-no-clear 'vector)
         )
        )
       )
      (sp-launch-particles-var
       *sp-particle-system-2d*
       (-> *part-id-table* 2002)
       a2-3
       (the-as sparticle-launch-state #f)
       (the-as sparticle-launch-control #f)
       (the-as float 1.0)
       )
      )
     (suspend)
     0
     )
    )
   (let ((v0-8 (-> (the-as process-drawable (-> s4-1 0)) draw color-mult)))
    (set! (-> v0-8 quad) (-> s5-1 quad))
    v0-8
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2391)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 17
    (sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
    (sp-func spt-birth-func 'birth-func-target-orient)
    (sp-flt spt-num 1.0)
    (sp-flt spt-y (meters 0.02))
    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 110.0 32.0 1.0)
    (sp-rnd-flt spt-g 128.0 32.0 1.0)
    (sp-rnd-flt spt-b 96.0 32.0 1.0)
    (sp-rnd-flt spt-a 8.0 40.0 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a -0.2)
    (sp-int spt-timer 240)
    (sp-cpuinfo-flags bit2 bit3 bit14)
    (sp-flt spt-userdata -8192.0)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 611)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #xbb8
   :linger-duration #x5dc
   :flags (sp-group-flag screen-space)
   :name "group-part-first-person-hud-left"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1
    (sp-item 2474 :flags (launch-asap))
    )
   :bounds (new 'static 'sphere :w 4096.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 612)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #xbb8
   :linger-duration #x5dc
   :flags (sp-group-flag screen-space)
   :name "group-part-first-person-hud-right"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1
    (sp-item 2475 :flags (launch-asap))
    )
   :bounds (new 'static 'sphere :w 4096.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-group-id-table* 613)
  (new 'static 'sparticle-launch-group
   :length 1
   :duration #xbb8
   :linger-duration #x5dc
   :flags (sp-group-flag screen-space)
   :name "group-part-first-person-hud-selector"
   :launcher
   (new 'static 'inline-array sparticle-group-item 1
    (sp-item 2476 :flags (launch-asap))
    )
   :bounds (new 'static 'sphere :w 4096.0)
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2474)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 12
    (sp-tex spt-texture (new 'static 'texture-id :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 3.5))
    (sp-flt spt-scale-y (meters 13.0))
    (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 -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-first-person-hud-left-func)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2475)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 13
    (sp-tex spt-texture (new 'static 'texture-id :page #x408))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 3.5))
    (sp-flt spt-rot-z (degrees 180.0))
    (sp-flt spt-scale-y (meters 13.0))
    (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 -1)
    (sp-cpuinfo-flags bit2 bit9 bit13)
    (sp-func spt-func 'part-first-person-hud-right-func)
    (sp-end)
    )
   )
  )

;; failed to figure out what this is:
(set!
  (-> *part-id-table* 2476)
  (new 'static 'sparticle-launcher
   :init-specs
   (new 'static 'inline-array sp-field-init-spec 12
    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x408))
    (sp-flt spt-num 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-g 128.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 128.0)
    (sp-int spt-timer -1)
    (sp-cpuinfo-flags bit9 bit13)
    (sp-func spt-func 'part-first-person-hud-selector-func)
    (sp-end)
    )
   )
  )