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

;; definition of type dig-part
(deftype dig-part (part-spawner)
  ()
  :heap-base #x30
  :method-count-assert 16
  :size-assert         #xb0
  :flag-assert         #x10003000b0
  )

;; definition for method 3 of type dig-part
(defmethod inspect dig-part ((obj dig-part))
  (when (not obj)
    (set! obj obj)
    (goto cfg-4)
    )
  (let ((t9-0 (method-of-type part-spawner inspect)))
    (t9-0 obj)
    )
  (label cfg-4)
  obj
  )

;; failed to figure out what this is:
(defpartgroup group-dig-hanging-light
  :id 1153
  :bounds (static-bspherem 0 0 0 5)
  :parts ((sp-item 4995 :fade-after (meters 120) :flags (bit6)) (sp-item 4996 :fade-after (meters 120) :flags (bit6)))
  )

;; failed to figure out what this is:
(defpart 4995
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.1) 1.0)
    (sp-flt spt-rot-x 409.6)
    (sp-flt spt-rot-z (degrees -17.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 32.0)
    (sp-flt spt-omega 494387.2)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 10240.0)
    )
  )

;; failed to figure out what this is:
(defpart 4996
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 10) (meters 0.1) 1.0)
    (sp-flt spt-rot-x 819.2)
    (sp-flt spt-rot-z (degrees -17.0))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-rnd-flt spt-g 255.0 255.0 1.0)
    (sp-flt spt-b 255.0)
    (sp-flt spt-a 16.0)
    (sp-flt spt-omega 494387.2)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 2048.0)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-dig-digger-explode
  :id 1154
  :duration (seconds 3)
  :flags (use-local-clock)
  :bounds (static-bspherem 0 0 0 15)
  :parts ((sp-item 4997 :period 9600 :length 25)
    (sp-item 4998 :period 9600 :length 80 :offset 80)
    (sp-item 4999 :period 9600 :length 10 :offset 25)
    (sp-item 5000 :period 9600 :length 50 :offset 45)
    (sp-item 5001 :period 9600 :length 35 :offset 30)
    (sp-item 5002 :period 9600 :length 50 :offset 35)
    (sp-item 5003 :period 9600 :length 5)
    (sp-item 5004 :period 9600 :length 50 :offset 35)
    (sp-item 5005 :period 9600 :length 5)
    (sp-item 5006 :flags (is-3d) :period 9600 :length 5 :offset 20)
    )
  )

;; failed to figure out what this is:
(defpart 4998
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-flt spt-num 8.0)
    (sp-flt spt-y (meters -2.5))
    (sp-rnd-flt spt-scale-x (meters 16.5) (meters 20) 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 0.0 64.0 1.0)
    (sp-copy-from-other spt-g -1)
    (sp-copy-from-other spt-b -1)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.53333336) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.05) (meters 0.1) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.12) (degrees 0.24) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-fade-a 1.28 0.64 1.0)
    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
    (sp-int spt-timer 2400)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    (sp-int-plain-rnd spt-next-time 35 29 1)
    (sp-launcher-by-id spt-next-launcher 5007)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-flt spt-rotate-y (degrees 90.0))
    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 16) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5007
  :init-specs ((sp-flt spt-scalevel-x (meters 0.016666668))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-a 0.0)
    (sp-int-plain-rnd spt-next-time 600 599 1)
    (sp-launcher-by-id spt-next-launcher 5008)
    )
  )

;; failed to figure out what this is:
(defpart 5008
  :init-specs ((sp-flt spt-scalevel-x (meters 0.016666668))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-fade-a -0.08 -0.08 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5006
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #xc))
    (sp-flt spt-num 8.0)
    (sp-flt spt-scale-x (meters 16))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-copy-from-other spt-g -1)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 136.0)
    (sp-flt spt-scalevel-x (meters 2))
    (sp-flt spt-rotvel-y (degrees 0.1))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -1.0625)
    (sp-flt spt-fade-g -2.125)
    (sp-flt spt-fade-b -2.1333334)
    (sp-flt spt-fade-a -3.2)
    (sp-int spt-timer 320)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14)
    (sp-int spt-next-time 40)
    (sp-launcher-by-id spt-next-launcher 5009)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 3600.0) 1.0)
    )
  )

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

;; failed to figure out what this is:
(defpart 5003
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-flt spt-num 1.0)
    (sp-flt spt-y (meters -2.5))
    (sp-flt spt-scale-x (meters 64))
    (sp-flt spt-rot-x 8192.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 96.0)
    (sp-flt spt-scalevel-x (meters 0.26666668))
    (sp-flt spt-rotvel-z (degrees 0.3))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -1.28)
    (sp-flt spt-fade-b -5.1)
    (sp-flt spt-fade-a 0.0)
    (sp-int spt-timer 65)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 122880.0)
    (sp-int spt-next-time 30)
    (sp-launcher-by-id spt-next-launcher 5010)
    )
  )

;; failed to figure out what this is:
(defpart 5010
  :init-specs ((sp-flt spt-scalevel-x (meters -0.22857143))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -3.6571429)
    (sp-flt spt-fade-b 0.0)
    (sp-flt spt-fade-a -2.7428572)
    )
  )

;; failed to figure out what this is:
(defpart 5005
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xca :page #xc))
    (sp-flt spt-num 1.0)
    (sp-flt spt-scale-x (meters 80))
    (sp-flt spt-rot-x 8192.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 24.0)
    (sp-flt spt-scalevel-x (meters 1.3333334))
    (sp-flt spt-rotvel-z (degrees 0.3))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -4.266667)
    (sp-flt spt-fade-b -4.266667)
    (sp-flt spt-fade-a 0.0)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow)
    (sp-flt spt-userdata 409600.0)
    (sp-int spt-next-time 75)
    (sp-launcher-by-id spt-next-launcher 5011)
    )
  )

;; failed to figure out what this is:
(defpart 5011
  :init-specs ((sp-flt spt-scalevel-x (meters 0))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -0.85333335)
    (sp-flt spt-fade-g -1.7066667)
    (sp-flt spt-fade-b -1.7066667)
    (sp-flt spt-fade-a -0.64)
    )
  )

;; failed to figure out what this is:
(defpart 5001
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x92 :page #xc))
    (sp-flt spt-num 16.0)
    (sp-flt spt-y (meters 0))
    (sp-flt spt-scale-x (meters 2.5))
    (sp-int spt-rot-x 4)
    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.3) 1.0)
    (sp-flt spt-r 255.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 255.0)
    (sp-rnd-flt spt-a 64.0 32.0 1.0)
    (sp-flt spt-omega 12.288)
    (sp-rnd-flt spt-vel-y (meters 0.53333336) (meters 0.33333334) 1.0)
    (sp-flt spt-fade-b -8.0)
    (sp-rnd-flt spt-accel-y -13.653334 -6.826667 1.0)
    (sp-rnd-flt spt-friction 0.9 0.08 1.0)
    (sp-int-plain-rnd spt-timer 450 299 1)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3)
    (sp-func spt-func 'sparticle-motion-blur)
    (sp-int spt-next-time 15)
    (sp-launcher-by-id spt-next-launcher 5012)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-flt spt-rotate-y (degrees 90.0))
    )
  )

;; failed to figure out what this is:
(defpart 5012
  :init-specs ((sp-flt spt-r 255.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -2.6133332)
    (sp-flt spt-fade-b -1.7066667)
    (sp-rnd-flt spt-fade-a -0.096 -0.096 1.0)
    (sp-int spt-next-time 75)
    (sp-launcher-by-id spt-next-launcher 5013)
    )
  )

;; failed to figure out what this is:
(defpart 5013
  :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
  )

;; failed to figure out what this is:
(defpart 5004
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x34 :page #xc))
    (sp-flt spt-num 5.0)
    (sp-flt spt-y (meters -2.5))
    (sp-rnd-flt spt-scale-x (meters 6) (meters 8) 1.0)
    (sp-int spt-rot-x 4)
    (new 'static 'sp-field-init-spec
      :field (sp-field-id spt-rot-z)
      :flags (sp-flag spflag7)
      :random-rangef 655360.0
      :random-multf 1.0
      )
    (sp-rnd-flt spt-scale-y (meters 20) (meters 8) 1.0)
    (sp-flt spt-r 255.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 255.0)
    (sp-rnd-flt spt-a 16.0 16.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.4) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.26666668) (meters 0.13333334) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -0.36)
    (sp-flt spt-fade-b -4.24)
    (sp-flt spt-fade-a -0.13333334)
    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
    (sp-int spt-timer 1000)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    (sp-func spt-func 'sparticle-motion-blur)
    (sp-int spt-next-time 25)
    (sp-launcher-by-id spt-next-launcher 5014)
    (new 'static 'sp-field-init-spec
      :field (sp-field-id spt-conerot-x)
      :flags (sp-flag from-pointer)
      :func '*sp-temp*
      )
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-flt spt-rotate-y (degrees 90.0))
    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5014
  :init-specs ((sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.016666668) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -0.55)
    (sp-flt spt-fade-g -2.95)
    (sp-flt spt-fade-b -3.3)
    (sp-int-plain-rnd spt-next-time 30 9 1)
    (sp-launcher-by-id spt-next-launcher 5015)
    )
  )

;; failed to figure out what this is:
(defpart 5015
  :init-specs ((sp-rnd-flt spt-scalevel-x (meters 0.008333334) (meters 0.008333334) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -1.2944444)
    (sp-flt spt-fade-g -0.7111111)
    (sp-flt spt-fade-b -0.2)
    (sp-rnd-flt spt-fade-a -0.1 -0.1 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5002
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x33 :page #xc))
    (sp-func spt-birth-func 'birth-func-texture-group)
    (sp-rnd-flt spt-num 16.0 10.0 1.0)
    (sp-flt spt-y (meters -2.5))
    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
    (sp-flt spt-rot-z (degrees 0.0))
    (sp-rnd-flt spt-scale-y (meters 12.8) (meters 2.4) 1.0)
    (sp-flt spt-r 255.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 255.0)
    (sp-rnd-flt spt-a 32.0 32.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.2) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.26666668) (meters 0.2) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -0.36)
    (sp-flt spt-fade-b -4.24)
    (sp-flt spt-fade-a -0.32)
    (sp-flt spt-friction 0.94)
    (sp-int spt-timer 1000)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    (new 'static 'sp-field-init-spec
      :field (sp-field-id spt-userdata)
      :flags (sp-flag plain-v2)
      :object (new 'static 'boxed-array :type int32 40 1 0 #xc00000 #xc03300)
      )
    (sp-int spt-next-time 25)
    (sp-launcher-by-id spt-next-launcher 5016)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-flt spt-rotate-y (degrees 90.0))
    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 8) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5016
  :init-specs ((sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g 0.0)
    (sp-flt spt-fade-b 0.0)
    (sp-int-plain-rnd spt-next-time 5 19 1)
    (sp-launcher-by-id spt-next-launcher 5017)
    )
  )

;; failed to figure out what this is:
(defpart 5017
  :init-specs ((sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.016666668) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -0.44)
    (sp-flt spt-fade-g -2.36)
    (sp-flt spt-fade-b -2.64)
    (sp-int-plain-rnd spt-next-time 35 14 1)
    (sp-launcher-by-id spt-next-launcher 5018)
    )
  )

;; failed to figure out what this is:
(defpart 5018
  :init-specs ((sp-rnd-flt spt-scalevel-x (meters 0.008333334) (meters 0.008333334) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -1.2)
    (sp-flt spt-fade-g -0.7111111)
    (sp-flt spt-fade-b -0.2)
    (sp-rnd-flt spt-fade-a -0.06545454 -0.06545454 1.0)
    (sp-int-plain-rnd spt-next-time 150 29 1)
    (sp-launcher-by-id spt-next-launcher 5019)
    )
  )

;; failed to figure out what this is:
(defpart 5019
  :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.1125))
  )

;; failed to figure out what this is:
(defpart 5000
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #xc))
    (sp-rnd-flt spt-num 16.0 4.0 1.0)
    (sp-flt spt-x (meters 0.25))
    (sp-flt spt-y (meters -2.5))
    (sp-rnd-flt spt-scale-x (meters 4) (meters 4) 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-rnd-flt spt-a 32.0 48.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.13333334) (meters 0.8) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.02) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.12) (degrees 0.24) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -0.18)
    (sp-flt spt-fade-b -2.12)
    (sp-rnd-flt spt-accel-y -5.4613333 -23.210667 1.0)
    (sp-rnd-flt spt-friction 0.84 0.02 1.0)
    (sp-int spt-timer 3000)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    (sp-int-plain-rnd spt-next-time 35 14 1)
    (sp-launcher-by-id spt-next-launcher 5020)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-flt spt-rotate-y (degrees 90.0))
    (sp-rnd-flt spt-conerot-radius (meters 3) (meters 5) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5020
  :init-specs ((sp-flt spt-scalevel-x (meters 0.0016666667))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g 0.02)
    (sp-flt spt-fade-b 0.23555556)
    (sp-int-plain-rnd spt-next-time 45 14 1)
    (sp-launcher-by-id spt-next-launcher 5021)
    )
  )

;; failed to figure out what this is:
(defpart 5021
  :init-specs ((sp-flt spt-fade-r -0.5543478)
    (sp-flt spt-fade-g -0.5543478)
    (sp-flt spt-fade-b -0.5543478)
    (sp-rnd-flt spt-fade-a -0.13333334 -0.10666667 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 4997
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-rnd-flt spt-num 12.0 8.0 1.0)
    (sp-flt spt-y (meters -2.5))
    (sp-rnd-flt spt-scale-x (meters 16.5) (meters 16) 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 70.0 20.0 1.0)
    (sp-rnd-flt spt-g 70.0 20.0 1.0)
    (sp-rnd-flt spt-b 70.0 20.0 1.0)
    (sp-rnd-flt spt-a 0.0 40.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.33333334) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.033333335) (meters 0.086666666) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.12) (degrees 0.24) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r 3.3)
    (sp-flt spt-fade-g 3.12)
    (sp-flt spt-fade-b 1.18)
    (sp-flt spt-fade-a 1.76)
    (sp-flt spt-friction 0.89)
    (sp-int spt-timer 710)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3)
    (sp-int-plain-rnd spt-next-time 35 14 1)
    (sp-launcher-by-id spt-next-launcher 5022)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-flt spt-rotate-y (degrees 90.0))
    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 16) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5022
  :init-specs ((sp-flt spt-scalevel-x (meters 0.0033333334))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -0.53333336)
    (sp-flt spt-fade-g -1.9666667)
    (sp-flt spt-fade-b -2.2)
    (sp-flt spt-fade-a -0.41666666)
    (sp-int-plain-rnd spt-next-time 45 14 1)
    (sp-launcher-by-id spt-next-launcher 5023)
    )
  )

;; failed to figure out what this is:
(defpart 5023
  :init-specs ((sp-flt spt-scalevel-x (meters 0))
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-flt spt-fade-r -0.38833332)
    (sp-flt spt-fade-g -0.21333334)
    (sp-flt spt-fade-b -0.028333334)
    (sp-flt spt-fade-a -0.38833332)
    )
  )

;; failed to figure out what this is:
(defpart 4999
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #xc))
    (sp-flt spt-num 8.0)
    (sp-flt spt-y (meters -2.5))
    (sp-rnd-flt spt-scale-x (meters 16) (meters 16) 1.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 1.5) (meters 0.5) 1.0)
    (sp-rnd-flt spt-r 128.0 128.0 1.0)
    (sp-flt spt-g 96.0)
    (sp-flt spt-b 64.0)
    (sp-rnd-flt spt-a 64.0 64.0 1.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.4) (meters 0.4) 1.0)
    (sp-flt spt-fade-g 1.6)
    (sp-flt spt-fade-b 3.2)
    (sp-flt spt-fade-a -0.9142857)
    (sp-int spt-timer 90)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-dig-digger-trailer-small
  :id 1155
  :bounds (static-bspherem 0 0 0 15)
  :parts ((sp-item 5024))
  )

;; failed to figure out what this is:
(defpart 5024
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-rnd-flt spt-num 0.0 1.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 3) (meters 5) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 3) (meters 5) 1.0)
    (sp-rnd-flt spt-r 64.0 128.0 1.0)
    (sp-copy-from-other spt-g -1)
    (sp-copy-from-other spt-b -1)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.01) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-fade-a 0.8 1.6 1.0)
    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
    (sp-int spt-timer 650)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-12)
    (sp-int spt-next-time 20)
    (sp-launcher-by-id spt-next-launcher 5025)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-radius (meters -1.5) (meters 5) 1.0)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-dig-digger-trailer-medium
  :id 1156
  :bounds (static-bspherem 0 0 0 15)
  :parts ((sp-item 5026))
  )

;; failed to figure out what this is:
(defpart 5026
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-rnd-flt spt-num 0.0 1.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 6) (meters 6) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 6) (meters 6) 1.0)
    (sp-rnd-flt spt-r 64.0 128.0 1.0)
    (sp-copy-from-other spt-g -1)
    (sp-copy-from-other spt-b -1)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.013333334) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-fade-a 1.6 1.6 1.0)
    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
    (sp-int spt-timer 650)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-12)
    (sp-int spt-next-time 20)
    (sp-launcher-by-id spt-next-launcher 5025)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-radius (meters -1) (meters 4) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5025
  :init-specs ((sp-rnd-flt spt-fade-a -0.10666667 -0.42666668 1.0))
  )

;; failed to figure out what this is:
(defpartgroup group-dig-digger-trailer-large
  :id 1157
  :bounds (static-bspherem 0 0 0 15)
  :parts ((sp-item 5027))
  )

;; failed to figure out what this is:
(defpart 5027
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-rnd-flt spt-num 0.0 1.0 1.0)
    (sp-rnd-flt spt-scale-x (meters 12) (meters 12) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 8) (meters 8) 1.0)
    (sp-rnd-flt spt-r 64.0 128.0 1.0)
    (sp-copy-from-other spt-g -1)
    (sp-copy-from-other spt-b -1)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.02) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-fade-a 1.6 2.4 1.0)
    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
    (sp-int spt-timer 650)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-12)
    (sp-int spt-next-time 20)
    (sp-launcher-by-id spt-next-launcher 5025)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-radius (meters -2) (meters 6) 1.0)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-dig-lava-glow-floor
  :id 1158
  :bounds (static-bspherem 0 0 0 16)
  :parts ((sp-item 5032 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit6))
    (sp-item 5033 :fade-after (meters 40) :falloff-to (meters 40))
    (sp-item 5034 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 5035 :fade-after (meters 80) :falloff-to (meters 80) :binding 5028)
    (sp-item 5028 :flags (bit1 start-dead) :binding 5029)
    (sp-item 5028 :flags (bit1 start-dead) :binding 5029)
    (sp-item 5028 :flags (bit1 start-dead) :binding 5029)
    (sp-item 5028 :flags (bit1 start-dead) :binding 5029)
    (sp-item 5028 :flags (bit1 start-dead) :binding 5029)
    (sp-item 5028 :flags (bit1 start-dead) :binding 5029)
    (sp-item 5028 :flags (bit1 start-dead) :binding 5029)
    (sp-item 5028 :flags (bit1 start-dead) :binding 5029)
    (sp-item 5029 :flags (bit1 start-dead))
    (sp-item 5029 :flags (bit1 start-dead))
    (sp-item 5029 :flags (bit1 start-dead))
    (sp-item 5029 :flags (bit1 start-dead))
    (sp-item 5029 :flags (bit1 start-dead))
    (sp-item 5029 :flags (bit1 start-dead))
    (sp-item 5029 :flags (bit1 start-dead))
    (sp-item 5029 :flags (bit1 start-dead))
    (sp-item 5029 :flags (bit1 start-dead))
    (sp-item 5029 :flags (bit1 start-dead))
    (sp-item 5036 :fade-after (meters 80) :falloff-to (meters 80) :binding 5030)
    (sp-item 5030 :flags (start-dead launch-asap))
    (sp-item 5030 :flags (start-dead launch-asap))
    (sp-item 5030 :flags (start-dead launch-asap))
    (sp-item 5030 :flags (start-dead launch-asap))
    (sp-item 5030 :flags (start-dead launch-asap))
    (sp-item 5030 :flags (start-dead launch-asap))
    (sp-item 5030 :flags (start-dead launch-asap))
    (sp-item 5037 :fade-after (meters 80) :falloff-to (meters 80) :binding 5031)
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    (sp-item 5031 :flags (bit1 start-dead launch-asap))
    )
  )

;; failed to figure out what this is:
(defpartgroup group-dig-lava-glow-wall
  :id 1159
  :flags (unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 16)
  :rotate ((degrees 4) (degrees 0) (degrees 0))
  :parts ((sp-item 5038 :fade-after (meters 200) :falloff-to (meters 200) :flags (bit7))
    (sp-item 5039 :fade-after (meters 120) :falloff-to (meters 120) :period 40 :length 5 :binding 5030)
    (sp-item 5030 :flags (start-dead launch-asap bit7))
    (sp-item 5030 :flags (start-dead launch-asap bit7))
    (sp-item 5030 :flags (start-dead launch-asap bit7))
    (sp-item 5030 :flags (start-dead launch-asap bit7))
    (sp-item 5030 :flags (start-dead launch-asap bit7))
    (sp-item 5030 :flags (start-dead launch-asap bit7))
    (sp-item 5030 :flags (start-dead launch-asap bit7))
    )
  )

;; failed to figure out what this is:
(defpart 5037
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #xc))
    (sp-rnd-flt spt-num 0.0 0.025 1.0)
    (sp-sound (static-sound-spec "fire-pop" :volume 10000.0))
    (sp-rnd-flt spt-x (meters 0) (meters 3) 1.0)
    (sp-flt spt-scale-x (meters 0.1))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 0.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
    (sp-rnd-flt spt-accel-y -0.4096 -0.13653333 1.0)
    (sp-rnd-flt spt-friction 0.98 0.01 1.0)
    (sp-int spt-timer 1200)
    (sp-cpuinfo-flags sp-cpuinfo-flag-1 sp-cpuinfo-flag-3)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 20.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 3600.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5031
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
    (sp-rnd-flt spt-z (meters 0.3) (meters 0.6) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.2) 1.0)
    (sp-flt spt-r 256.0)
    (sp-rnd-flt spt-g 128.0 128.0 1.0)
    (sp-rnd-flt spt-b 0.0 128.0 1.0)
    (sp-rnd-flt spt-a 96.0 32.0 1.0)
    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
    (sp-rnd-flt spt-vel-x (meters -0.053333335) (meters 0.10666667) 1.0)
    (sp-rnd-flt spt-vel-y (meters -0.002962963) (meters 0.13333334) 1.0)
    (sp-rnd-flt spt-vel-z (meters 0.0013333333) (meters 0.0026666666) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
    (sp-flt spt-fade-r 0.0)
    (sp-flt spt-fade-g -0.56666666)
    (sp-flt spt-fade-b -1.7066667)
    (sp-flt spt-friction 0.995)
    (sp-int spt-timer 1200)
    (sp-cpuinfo-flags sp-cpuinfo-flag-1 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 ready-to-launch)
    (sp-int spt-next-time 450)
    (sp-launcher-by-id spt-next-launcher 5040)
    )
  )

;; failed to figure out what this is:
(defpart 5040
  :init-specs ((sp-flt spt-fade-r -0.28444445)
    (sp-flt spt-fade-g 0.28444445)
    (sp-flt spt-fade-b 0.28444445)
    (sp-int spt-next-time 450)
    (sp-launcher-by-id spt-next-launcher 5041)
    )
  )

;; failed to figure out what this is:
(defpart 5041
  :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.28444445))
  )

;; failed to figure out what this is:
(defpart 5034
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-flt spt-num 0.1)
    (sp-rnd-flt spt-x (meters 0) (meters 5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 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 256.0)
    (sp-rnd-flt spt-g 0.0 196.0 1.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 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.42666668)
    (sp-rnd-flt spt-friction 0.97 0.01 1.0)
    (sp-int spt-timer 600)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    (sp-int-plain-rnd spt-next-time 37 36 1)
    (sp-launcher-by-id spt-next-launcher 5042)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 3600.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5038
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-flt spt-num 0.1)
    (sp-rnd-flt spt-x (meters 0) (meters 5) 1.0)
    (sp-flt spt-y (meters 1))
    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 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 256.0)
    (sp-rnd-flt spt-g 0.0 196.0 1.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 0.0)
    (sp-flt spt-vel-y (meters 0.0033333334))
    (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.16410257)
    (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
    (sp-rnd-flt spt-friction 0.94 0.01 1.0)
    (sp-int spt-timer 720)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 use-global-acc)
    (sp-int-plain-rnd spt-next-time 97 96 1)
    (sp-launcher-by-id spt-next-launcher 5042)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 3600.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5036
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-rnd-flt spt-num 0.0 0.05 1.0)
    (sp-rnd-flt spt-x (meters 0) (meters 5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 3.5) (meters 1.5) 1.0)
    (sp-flt spt-rot-x 81.92)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 64.0)
    (sp-flt spt-omega 658227.2)
    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
    (sp-flt spt-fade-a -0.2)
    (sp-int spt-timer 320)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 819.2)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 3600.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5039
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-rnd-flt spt-num 0.0 0.1 1.0)
    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
    (sp-flt spt-rot-x 81.92)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 64.0)
    (sp-flt spt-omega 658227.2)
    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
    (sp-flt spt-fade-a -0.2)
    (sp-int spt-timer 320)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 3276.8)
    (sp-flt spt-rotate-y (degrees 0.0))
    )
  )

;; failed to figure out what this is:
(defpart 5043
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
    (sp-flt spt-rot-x 81.92)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-flt spt-g 128.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 64.0)
    (sp-flt spt-omega 658227.2)
    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
    (sp-flt spt-fade-a -0.2)
    (sp-int spt-timer 320)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 819.2)
    (sp-flt spt-rotate-y (degrees 0.0))
    )
  )

;; failed to figure out what this is:
(defpart 5035
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xade))
    (sp-rnd-flt spt-num 0.0 0.01 1.0)
    (sp-rnd-flt spt-x (meters 0) (meters 5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 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-flt spt-a 128.0)
    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
    (sp-flt spt-fade-g -0.30476192)
    (sp-flt spt-accel-y -10.922667)
    (sp-int spt-timer 600)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2)
    (sp-func spt-func 'check-drop-level-dig-lava-bloops)
    (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 3600.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5032
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-flt spt-num 0.02)
    (sp-rnd-flt spt-x (meters -5) (meters 10) 1.0)
    (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
    (sp-rnd-flt spt-scale-x (meters 5) (meters 5) 1.0)
    (sp-flt spt-rot-x 819.2)
    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 5) (meters 5) 1.0)
    (sp-flt spt-r 255.0)
    (sp-rnd-flt spt-g 0.0 196.0 1.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 0.0)
    (sp-flt spt-omega 412467.2)
    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
    (sp-flt spt-fade-a 0.12)
    (sp-rnd-flt spt-friction 0.97 0.02 1.0)
    (sp-int spt-timer 450)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 0.0)
    (sp-int spt-next-time 150)
    (sp-launcher-by-id spt-next-launcher 5044)
    )
  )

;; definition for function check-drop-level-dig-lava-bloops
;; INFO: Used lq/sq
(defun check-drop-level-dig-lava-bloops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  "Ensure the lava bloop splats where it originated"
  (let ((origin-y (-> arg1 key origin trans y)))
    (when (< (-> arg2 vector 0 y) origin-y)
      (let ((gp-0 (new 'stack-no-clear 'vector)))
        (sp-kill-particle arg0 arg1)
        (set-vector! gp-0 (-> arg2 vector 0 x) origin-y (-> arg2 vector 0 z) 1.0)
        (let ((t9-1 sp-launch-particles-var)
              (a0-2 *sp-particle-system-2d*)
              (a1-1 (-> *part-id-table* 5043))
              (a2-1 *launch-matrix*)
              )
          (set! (-> a2-1 trans quad) (-> gp-0 quad))
          (t9-1 a0-2 a1-1 a2-1 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0)
          )
        (let ((t9-2 sp-launch-particles-var)
              (a0-3 *sp-particle-system-2d*)
              (a1-2 (-> *part-id-table* 5030))
              (a2-2 *launch-matrix*)
              )
          (set! (-> a2-2 trans quad) (-> gp-0 quad))
          (t9-2 a0-3 a1-2 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0)
          )
        )
      )
    )
  (none)
  )

;; failed to figure out what this is:
(defpart 5033
  :init-specs ((sp-flt spt-num 1.0)
    (sp-rnd-flt spt-x (meters 0) (meters 10) 1.0)
    (sp-int spt-rot-x 5)
    (sp-flt spt-r 8192.0)
    (sp-flt spt-g 5324.8)
    (sp-flt spt-b 5324.8)
    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
    (sp-flt spt-fade-r 40.96)
    (sp-flt spt-fade-g 27.306667)
    (sp-flt spt-fade-b 38.229332)
    (sp-int spt-timer 150)
    (sp-cpuinfo-flags distort)
    (sp-int spt-next-time 75)
    (sp-launcher-by-id spt-next-launcher 5045)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 3600.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5045
  :init-specs ((sp-flt spt-fade-b 16.384))
  )

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

;; failed to figure out what this is:
(defpart 5046
  :init-specs ((sp-flt spt-fade-g -0.42666668) (sp-int spt-next-time 150) (sp-launcher-by-id spt-next-launcher 5047))
  )

;; failed to figure out what this is:
(defpart 5047
  :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-a -0.10666667))
  )

;; failed to figure out what this is:
(defpart 5028
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xca :page #xc))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 2.75) (meters 0.25) 1.0)
    (sp-flt spt-rot-x 204.8)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 2.75) (meters 0.25) 1.0)
    (sp-flt spt-r 255.0)
    (sp-rnd-flt spt-g 64.0 128.0 1.0)
    (sp-flt spt-b 0.0)
    (sp-rnd-flt spt-a 32.0 6.0 1.0)
    (sp-flt spt-omega 494387.2)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 819.2)
    )
  )

;; failed to figure out what this is:
(defpart 5029
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-flt spt-num 1.5)
    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.6) 1.0)
    (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 64.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.00066666666) 1.0)
    (sp-flt spt-scalevel-x (meters -0.0020833334))
    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
    (sp-copy-from-other spt-scalevel-y -4)
    (sp-rnd-flt spt-fade-a -0.10666667 -0.10666667 1.0)
    (sp-rnd-flt spt-accel-y -1.3653333 4.096 1.0)
    (sp-flt spt-friction 0.9)
    (sp-int-plain-rnd spt-timer 50 199 1)
    (sp-cpuinfo-flags sp-cpuinfo-flag-0 sp-cpuinfo-flag-3)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-flt spt-rotate-y (degrees 0.0))
    (sp-rnd-flt spt-conerot-radius (meters 0.2) (meters 0.2) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5030
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-rnd-flt spt-num 32.0 2.0 1.0)
    (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.3) 1.0)
    (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 128.0 64.0 1.0)
    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
    (sp-rnd-flt spt-scalevel-x (meters -0.0013333333) (meters 0.00033333333) 1.0)
    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
    (sp-rnd-flt spt-scalevel-y (meters -0.0013333333) (meters 0.00033333333) 1.0)
    (sp-rnd-flt spt-fade-a -0.10666667 -0.10666667 1.0)
    (sp-rnd-flt spt-accel-y -2.7306666 -2.7306666 1.0)
    (sp-int spt-timer 450)
    (sp-cpuinfo-flags sp-cpuinfo-flag-0 sp-cpuinfo-flag-3 use-global-acc)
    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 10.0) 1.0)
    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 3600.0) 1.0)
    (sp-rnd-flt spt-conerot-radius (meters 0) (meters -0.2) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5044
  :init-specs ((sp-rnd-flt spt-fade-a -0.10666667 -0.10666667 1.0))
  )

;; failed to figure out what this is:
(defpartgroup group-dig-big-lava-glow :id 1160 :bounds (static-bspherem 0 0 0 5) :parts ((sp-item 209)))

;; failed to figure out what this is:
(defpart 5048
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-flt spt-num 1.0)
    (sp-flt spt-y (meters 2))
    (sp-flt spt-z (meters -2))
    (sp-rnd-flt spt-scale-x (meters 80) (meters 0.1) 1.0)
    (sp-flt spt-rot-x 20480.0)
    (sp-flt spt-rot-z (degrees -17.0))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-rnd-flt spt-g 32.0 16.0 1.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 12.0)
    (sp-flt spt-omega 4099686.5)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 2048.0)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-dig-big-light
  :id 1161
  :bounds (static-bspherem 0 0 0 12)
  :parts ((sp-item 5049 :fade-after (meters 300) :flags (bit6)) (sp-item 5050 :fade-after (meters 300) :flags (bit6)))
  )

;; failed to figure out what this is:
(defpart 5049
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-flt spt-num 2.0)
    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
    (sp-rnd-flt spt-scale-x (meters 8) (meters 0.5) 1.0)
    (sp-flt spt-rot-x 2048.0)
    (sp-rnd-flt spt-rot-z (degrees -17.0) (degrees 10.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 0.0)
    (sp-rnd-flt spt-g 128.0 32.0 1.0)
    (sp-flt spt-b 255.0)
    (sp-rnd-flt spt-a 8.0 16.0 1.0)
    (sp-flt spt-omega 1231257.6)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 20480.0)
    (sp-flt spt-rotate-y (degrees 0.0))
    )
  )

;; failed to figure out what this is:
(defpart 5050
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xca :page #xc))
    (sp-flt spt-num 2.0)
    (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
    (sp-rnd-flt spt-scale-x (meters 25) (meters 0.5) 1.0)
    (sp-flt spt-rot-x 2048.0)
    (sp-rnd-flt spt-rot-z (degrees -17.0) (degrees 10.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 0.0)
    (sp-rnd-flt spt-g 128.0 32.0 1.0)
    (sp-flt spt-b 255.0)
    (sp-rnd-flt spt-a 8.0 8.0 1.0)
    (sp-flt spt-omega 1231257.6)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 20480.0)
    (sp-flt spt-rotate-y (degrees 0.0))
    )
  )

;; failed to figure out what this is:
(defpart 5051
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-flt spt-num 2.0)
    (sp-rnd-flt spt-y (meters -0.05) (meters 0.1) 1.0)
    (sp-rnd-flt spt-scale-x (meters 8) (meters 0.5) 1.0)
    (sp-flt spt-rot-x 2048.0)
    (sp-rnd-flt spt-rot-z (degrees -17.0) (degrees 10.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 0.0)
    (sp-rnd-flt spt-g 128.0 32.0 1.0)
    (sp-flt spt-b 255.0)
    (sp-flt spt-a 16.0)
    (sp-flt spt-omega 1231257.6)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 20480.0)
    (sp-flt spt-rotate-y (degrees 0.0))
    )
  )

;; failed to figure out what this is:
(defpart 5052
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xca :page #xc))
    (sp-flt spt-num 2.0)
    (sp-rnd-flt spt-scale-x (meters 25) (meters 0.5) 1.0)
    (sp-flt spt-rot-x 2048.0)
    (sp-rnd-flt spt-rot-z (degrees -17.0) (degrees 10.0) 1.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 0.0)
    (sp-rnd-flt spt-g 128.0 32.0 1.0)
    (sp-flt spt-b 255.0)
    (sp-rnd-flt spt-a 8.0 8.0 1.0)
    (sp-flt spt-omega 1231257.6)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 20480.0)
    (sp-flt spt-rotate-y (degrees 0.0))
    )
  )

;; failed to figure out what this is:
(defpartgroup group-dig-red-light
  :id 1162
  :bounds (static-bspherem 0 0 0 8)
  :parts ((sp-item 5053 :fade-after (meters 80) :flags (bit6)) (sp-item 5054 :fade-after (meters 120) :flags (bit6)))
  )

;; failed to figure out what this is:
(defpart 5053
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.1) 1.0)
    (sp-flt spt-rot-x 204.8)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-rnd-flt spt-g 0.0 64.0 1.0)
    (sp-flt spt-b 0.0)
    (sp-rnd-flt spt-a 24.0 4.0 1.0)
    (sp-flt spt-omega 330547.2)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 1024.0)
    )
  )

;; failed to figure out what this is:
(defpart 5054
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 4) (meters 0.1) 1.0)
    (sp-flt spt-rot-x 204.8)
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 255.0)
    (sp-rnd-flt spt-g 0.0 32.0 1.0)
    (sp-flt spt-b 0.0)
    (sp-flt spt-a 8.0)
    (sp-flt spt-omega 494387.2)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 1024.0)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-dig-lantern
  :id 1163
  :bounds (static-bspherem 0 0.1 0 1)
  :parts ((sp-item 5055 :fade-after (meters 180) :flags (bit6)) (sp-item 5056 :fade-after (meters 180) :flags (bit6)))
  )

;; failed to figure out what this is:
(defpart 5055
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xca :page #xc))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 0.1) 1.0)
    (sp-flt spt-rot-x 409.6)
    (sp-flt spt-rot-z (degrees -17.0))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 220.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 32.0)
    (sp-flt spt-omega 740147.2)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 4096.0)
    )
  )

;; failed to figure out what this is:
(defpart 5056
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xca :page #xc))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-scale-x (meters 16) (meters 0.1) 1.0)
    (sp-flt spt-rot-x 4096.0)
    (sp-flt spt-rot-z (degrees -17.0))
    (sp-copy-from-other spt-scale-y -4)
    (sp-flt spt-r 220.0)
    (sp-flt spt-g 255.0)
    (sp-flt spt-b 128.0)
    (sp-flt spt-a 16.0)
    (sp-flt spt-omega 740147.2)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow)
    (sp-flt spt-userdata 819.2)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-dig-jump-pad-launcher
  :id 1147
  :duration (seconds 4)
  :flags (use-local-clock)
  :bounds (static-bspherem 0 3 0 5)
  :parts ((sp-item 77 :fade-after (meters 100) :falloff-to (meters 100))
    (sp-item 5057 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
    (sp-item 5058 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
    (sp-item 5059 :fade-after (meters 70) :falloff-to (meters 100))
    (sp-item 5060 :fade-after (meters 70) :falloff-to (meters 100) :period 1500 :length 100)
    )
  )

;; failed to figure out what this is:
(defpart 5057
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xc9 :page #xc))
    (sp-flt spt-num 1.0)
    (sp-rnd-flt spt-x (meters 0) (meters 1.4) 1.0)
    (sp-flt spt-scale-x (meters 0.2))
    (sp-flt spt-rot-x 16384.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 2.5) 1.0)
    (sp-rnd-flt spt-r 64.0 32.0 1.0)
    (sp-rnd-flt spt-g 32.0 32.0 1.0)
    (sp-rnd-flt spt-b 10.0 5.0 1.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-scalevel-x (meters -0.0025))
    (sp-rnd-flt spt-scalevel-y (meters 0.12207031) (meters 0.24414062) 1.0)
    (sp-int spt-timer 45)
    (sp-cpuinfo-flags sp-cpuinfo-flag-3)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5058
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xc9 :page #xc))
    (sp-flt spt-num 2.0)
    (sp-rnd-flt spt-x (meters 1.4) (meters 0.9) 1.0)
    (sp-flt spt-scale-x (meters 0.2))
    (sp-flt spt-rot-x 16384.0)
    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
    (sp-rnd-flt spt-r 64.0 32.0 1.0)
    (sp-rnd-flt spt-g 32.0 32.0 1.0)
    (sp-rnd-flt spt-b 10.0 5.0 1.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-scalevel-x (meters -0.0025))
    (sp-rnd-flt spt-scalevel-y (meters 0.024414062) (meters 0.048828125) 1.0)
    (sp-int spt-timer 45)
    (sp-cpuinfo-flags sp-cpuinfo-flag-3)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5059
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
    (sp-flt spt-num 0.5)
    (sp-rnd-flt spt-x (meters 1.45) (meters 1.25) 1.0)
    (sp-flt spt-y (meters -0.5))
    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 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 32.0 32.0 1.0)
    (sp-rnd-flt spt-b 10.0 5.0 1.0)
    (sp-flt spt-a 0.0)
    (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
    (sp-flt spt-vel-y (meters 0))
    (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
    (sp-flt spt-fade-a 0.6)
    (sp-flt spt-accel-y 6.826667)
    (sp-flt spt-friction 0.996)
    (sp-int spt-timer 270)
    (sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3)
    (sp-int spt-next-time 45)
    (sp-launcher-by-id spt-next-launcher 83)
    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
    )
  )

;; failed to figure out what this is:
(defpart 5060
  :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xbb :page #xc))
    (sp-flt spt-num 1.0)
    (sp-flt spt-y (meters -0.5))
    (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
    (sp-flt spt-rot-x 2048.0)
    (sp-copy-from-other spt-scale-y -4)
    (sp-rnd-flt spt-r 64.0 8.0 1.0)
    (sp-rnd-flt spt-g 48.0 8.0 1.0)
    (sp-rnd-flt spt-b 10.0 5.0 1.0)
    (sp-flt spt-a 128.0)
    (sp-flt spt-omega 494387.2)
    (sp-int spt-timer 5)
    (sp-cpuinfo-flags glow)
    (sp-flt spt-userdata 20480.0)
    )
  )