jak-project/test/decompiler/reference/jak2/levels/castle/castle-part_REF.gc

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

;; definition of type castle-part
(deftype castle-part (part-spawner)
  ()
  )

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

;; failed to figure out what this is:
(defpartgroup group-castle-hanging-lights
  :id 1187
  :bounds (static-bspherem 0 0 0 5)
  :parts ((sp-item 5121 :fade-after (meters 120) :flags (bit6)))
  )

;; failed to figure out what this is:
(defpart 5121
  :init-specs ((:texture (glow effects))
    (:num 1.0)
    (:scale-x (meters 4.5) (meters 0.1))
    (:rot-x (degrees 2.25))
    (:rot-z (degrees -17))
    (:scale-y :copy scale-x)
    (:r 117.0)
    (:g 80.0)
    (:b 54.0)
    (:a 32.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 2048.0)
    )
  )

;; failed to figure out what this is:
(defpart 5122
  :init-specs ((:texture (glow effects))
    (:num 1.0)
    (:scale-x (meters 4.5) (meters 0.1))
    (:rot-x (degrees 4.5))
    (:rot-z (degrees -17))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 96.0)
    (:b 62.0)
    (:a 32.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 2048.0)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-castle-red-gauge
  :id 1188
  :flags (unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 2)
  :rotate ((degrees 90) (degrees 0) (degrees 0))
  :parts ((sp-item 5123 :fade-after (meters 200) :flags (bit6 bit7)))
  )

;; failed to figure out what this is:
(defpart 5123
  :init-specs ((:texture (glow-soft effects))
    (:num 1.0)
    (:y (meters -0.1))
    (:scale-x (meters 3.5))
    (:rot-x (degrees 2.25))
    (:rot-z (degrees 0))
    (:scale-y (meters 5))
    (:r 255.0)
    (:g 0.0 64.0)
    (:b :copy g)
    (:a 32.0 2.0)
    (:omega (degrees 4515.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 glow))
    (:userdata 409.6)
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpartgroup group-castle-pipe-green-drip
  :id 1189
  :bounds (static-bspherem 0 0 0 6)
  :parts ((sp-item 5124 :fade-after (meters 140) :falloff-to (meters 140))
    (sp-item 5125 :fade-after (meters 140) :flags (is-3d))
    )
  )

;; failed to figure out what this is:
(defpart 5124
  :init-specs ((:texture (lakedrop effects))
    (:num 0.0 0.1)
    (:rot-x 4)
    (:r 128.0)
    (:g 196.0)
    (:b 0.0)
    (:a 196.0)
    (:scalevel-x (meters 0.00044444445))
    (:scalevel-y :copy scalevel-x)
    (:timer (seconds 3))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-12 use-global-acc))
    (:userdata 114892.8)
    (:func 'check-drop-level-castle-drop-userdata)
    (:next-time (seconds 0.75) (seconds 0.747))
    (:next-launcher 5126)
    )
  )

;; failed to figure out what this is:
(defpart 5126
  :init-specs ((:accel-y (meters -0.002) (meters 0.00066666666))
    (:friction 0.93 0.02)
    (:next-time (seconds 0) (seconds 0.747))
    (:next-launcher 5127)
    )
  )

;; failed to figure out what this is:
(defpart 5127
  :init-specs ((:r 255.0) (:g 255.0) (:b 255.0) (:next-time (seconds 0.017)) (:next-launcher 5128))
  )

;; failed to figure out what this is:
(defpart 5128
  :init-specs ((:r 128.0) (:g 196.0) (:b 0.0) (:next-time (seconds 0) (seconds 1.497)) (:next-launcher 5127))
  )

;; definition for function check-drop-level-castle-drop-userdata
;; INFO: Used lq/sq
(defun check-drop-level-castle-drop-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (when (< (-> arg2 vector 0 y) (-> arg1 user-float))
    (let ((s3-0 (new 'stack-no-clear 'vector)))
      (sp-kill-particle arg0 arg1)
      (set-vector! s3-0 (-> arg2 vector 0 x) (-> arg1 user-float) (-> arg2 vector 0 z) 1.0)
      (launch-particles (-> *part-id-table* 5129) s3-0)
      (launch-particles :system *sp-particle-system-3d* (-> *part-id-table* 5130) s3-0)
      (launch-particles :system *sp-particle-system-3d* (-> *part-id-table* 5131) s3-0)
      (launch-particles :system *sp-particle-system-3d* (-> *part-id-table* 5132) s3-0)
      )
    )
  (sparticle-motion-blur arg0 arg1 (the-as vector arg2))
  (none)
  )

;; failed to figure out what this is:
(defpart 5129
  :init-specs ((:texture (lakedrop effects))
    (:num 1.0)
    (:scale-x (meters 0.1) (meters 0.05))
    (:rot-x 4)
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 196.0)
    (:b 0.0)
    (:a 32.0 32.0)
    (:omega (degrees 0.045))
    (:vel-y (meters 0.013333334) (meters 0.01))
    (:fade-a -0.16)
    (:accel-y (meters -0.001) (meters -0.00016666666))
    (:friction 0.97)
    (:timer (seconds 0.667))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:func 'sparticle-motion-blur)
    (:next-time (seconds 0) (seconds 0.747))
    (:next-launcher 5127)
    (:conerot-x (degrees 25.000002) (degrees 30))
    (:conerot-y (degrees 0) (degrees 360))
    (:rotate-y (degrees 180))
    )
  )

;; failed to figure out what this is:
(defpart 5130
  :init-specs ((:texture (hotdot effects))
    (:num 1.0)
    (:scale-x (meters 0.5) (meters 0.25))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 196.0)
    (:b 0.0)
    (:a 64.0 32.0)
    (:omega (degrees 0))
    (:scalevel-x (meters 0.006666667) (meters 0.006666667))
    (:scalevel-y :copy scalevel-x)
    (:fade-a -1.2)
    (:timer (seconds 1))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
    (:userdata :data (new 'static 'boxed-array :type int32 10 0 0 #xc0c900 #xc03300 #xc02c00))
    (:func 'sparticle-texture-animate)
    )
  )

;; failed to figure out what this is:
(defpart 5125
  :init-specs ((:texture (glow-soft effects))
    (:num 1.0)
    (:y (meters -2.375))
    (:scale-x (meters 4.5))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 196.0)
    (:b 0.0)
    (:a 32.0)
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    )
  )

;; failed to figure out what this is:
(defpart 5131
  :init-specs ((:texture (water-ring effects))
    (:num 1.0)
    (:r 128.0)
    (:g 196.0)
    (:b 0.0)
    (:a 64.0 32.0)
    (:scalevel-x (meters 0.0027777778))
    (:scalevel-y :copy scalevel-x)
    (:fade-a -0.10666667)
    (:timer (seconds 3))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    )
  )

;; failed to figure out what this is:
(defpart 5132
  :init-specs ((:texture (water-ring effects))
    (:num 1.0)
    (:x (meters 0.05))
    (:r 128.0)
    (:g 196.0)
    (:b 0.0)
    (:a 32.0 16.0)
    (:scalevel-x (meters 0.0027777778))
    (:scalevel-y :copy scalevel-x)
    (:fade-a -0.10666667)
    (:timer (seconds 3))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-4))
    )
  )

;; failed to figure out what this is:
(defpartgroup group-castle-console-green-screen
  :id 1190
  :flags (unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 2)
  :rotate ((degrees 90) (degrees 0) (degrees 0))
  :parts ((sp-item 5133 :fade-after (meters 200) :flags (bit6 bit7)))
  )

;; failed to figure out what this is:
(defpart 5133
  :init-specs ((:texture (glow-soft effects))
    (:num 1.0)
    (:y (meters -0.1))
    (:scale-x (meters 3))
    (:rot-x (degrees 2.25))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 0.0)
    (:g 255.0)
    (:b 0.0 128.0)
    (:a 16.0 16.0)
    (:omega (degrees 4515.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 glow))
    (:userdata 1024.0)
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpartgroup group-castle-console-flashing-red-light-1
  :id 1191
  :flags (unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 2)
  :rotate ((degrees 90) (degrees 0) (degrees 0))
  :parts ((sp-item 5134 :fade-after (meters 120) :flags (bit6 bit7) :period (seconds 0.5) :length (seconds 0.017)))
  )

;; failed to figure out what this is:
(defpartgroup group-castle-console-flashing-red-light-2
  :id 1192
  :flags (unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 2)
  :rotate ((degrees 90) (degrees 0) (degrees 0))
  :parts ((sp-item 5134 :fade-after (meters 120) :flags (bit6 bit7) :period (seconds 0.385) :length (seconds 0.017) :offset 65)
    )
  )

;; failed to figure out what this is:
(defpart 5134
  :init-specs ((:texture (glow effects))
    (:num 1.0)
    (:y (meters -0.1))
    (:z (meters 0.05))
    (:scale-x (meters 1))
    (:rot-x (degrees 2.25))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 8.0)
    (:b 8.0)
    (:a 16.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.25))
    (:flags (sp-cpuinfo-flag-2 glow))
    (:userdata 1024.0)
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5120
  :init-specs ((:texture (glow effects))
    (:num 1.0)
    (:y (meters -0.15))
    (:scale-x (meters 3))
    (:rot-x (degrees 2.25))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 64.0)
    (:b 64.0)
    (:a 32.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 1024.0)
    )
  )

;; failed to figure out what this is:
(defpart 5119
  :init-specs ((:texture (glow effects))
    (:num 1.0)
    (:y (meters -0.15))
    (:scale-x (meters 3))
    (:rot-x (degrees 2.25))
    (:scale-y :copy scale-x)
    (:r 0.0)
    (:g 128.0)
    (:b 255.0)
    (:a 32.0)
    (:omega (degrees 2715.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 1024.0)
    )
  )

;; failed to figure out what this is:
(defpartgroup group-castle-green-dome-light
  :id 1193
  :flags (unk-4)
  :bounds (static-bspherem 0 0 0 2)
  :parts ((sp-item 5135 :flags (bit6 bit7)))
  )

;; failed to figure out what this is:
(defpart 5135
  :init-specs ((:texture (glow-soft effects))
    (:num 1.0)
    (:z (meters -0.25))
    (:scale-x (meters 4.5))
    (:rot-x (degrees 2.25))
    (:scale-y :copy scale-x)
    (:r 48.0)
    (:g 196.0)
    (:b 48.0)
    (:a 32.0)
    (:omega (degrees 4515.75))
    (:timer (seconds 0.017))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 1024.0)
    (:rotate-y (degrees 0))
    )
  )

;; definition for function castle-green-dome-light-pulsate
(defun castle-green-dome-light-pulsate ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
  (let ((s5-0 lerp-scale)
        (s4-0 32.0)
        (s3-0 64.0)
        (t9-0 sin)
        (f0-0 3640.889)
        (f1-1 (* 0.0033333334 (the float (current-time))))
        )
    (set! (-> arg2 coneradius)
          (s5-0 s4-0 s3-0 (t9-0 (* f0-0 (- f1-1 (* (the float (the int (/ f1-1 360.0))) 360.0)))) -1.0 1.0)
          )
    )
  )

;; failed to figure out what this is:
(defpartgroup group-castle-steamvent
  :id 1194
  :flags (unk-4)
  :bounds (static-bspherem 0 0 0 6)
  :parts ((sp-item 5136 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit7))
    (sp-item 5137 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit7))
    )
  )

;; failed to figure out what this is:
(defpart 5136
  :init-specs ((:texture (bigpuff effects))
    (:num 0.5 1.0)
    (:x (meters -0.4) 4 (meters 0.2))
    (:y (meters -0.1) (meters 0.3))
    (:z (meters 0.2) (meters 0.2))
    (:scale-x (meters 1.4) (meters 0.25))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 64.0 32.0)
    (:g 32.0 16.0)
    (:b 0.0)
    (:a 0.0)
    (:vel-z (meters 0.006666667) (meters 0.0033333334))
    (:scalevel-x (meters 0.0016666667) (meters 0.0033333334))
    (:rotvel-z (degrees -1.2) (degrees 2.4))
    (:scalevel-y :copy scalevel-x)
    (:fade-a 0.42666668)
    (:accel-y (meters 0.00013333333) (meters 0.00013333333))
    (:friction 0.99)
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-12))
    (:next-time (seconds 0.335) (seconds 0.08))
    (:next-launcher 5138)
    (:launchrot-x (degrees -5) (degrees 10))
    (:launchrot-y (degrees -5) (degrees 10))
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5137
  :init-specs ((:texture (bigpuff effects))
    (:num 1.0 1.0)
    (:x (meters -0.3) 1 (meters 0))
    (:y (meters 0) (meters 0.3))
    (:z (meters 0.6) (meters 0.2))
    (:scale-x (meters 0.3) (meters 0.25))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 64.0 32.0)
    (:g 32.0 16.0)
    (:b 0.0)
    (:a 0.0)
    (:vel-z (meters 0.006666667) (meters 0.0033333334))
    (:scalevel-x (meters 0.0016666667) (meters 0.0033333334))
    (:rotvel-z (degrees -1.2) (degrees 2.4))
    (:scalevel-y :copy scalevel-x)
    (:fade-a 0.42666668)
    (:accel-y (meters 0.0001) (meters 0.0001))
    (:friction 0.99)
    (:timer (seconds 2))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-12))
    (:next-time (seconds 0.335) (seconds 0.08))
    (:next-launcher 5138)
    (:launchrot-x (degrees -5) (degrees 10))
    (:launchrot-y (degrees -5) (degrees 10))
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5138
  :init-specs ((:fade-r 0.64 0.42666668) (:fade-g 0.85333335 0.42666668) (:fade-a -0.10666667 -0.10666667))
  )

;; failed to figure out what this is:
(defpart 5139
  :init-specs ((:r 64.0) (:g 64.0) (:b 64.0) (:fade-a -0.10666667 -0.10666667))
  )

;; failed to figure out what this is:
(defpartgroup group-castle-pipe-green-steam
  :id 1195
  :flags (unk-4)
  :bounds (static-bspherem 0 0 0 6)
  :parts ((sp-item 5140 :fade-after (meters 60) :falloff-to (meters 60) :flags (bit7))
    (sp-item 5141 :fade-after (meters 100) :falloff-to (meters 140) :flags (bit7))
    )
  )

;; failed to figure out what this is:
(defpart 5140
  :init-specs ((:texture (motion-blur-part effects))
    (:num 0.0 5.0)
    (:scale-x (meters 0.1))
    (:rot-x 4)
    (:scale-y :copy scale-x)
    (:r 0.0 64.0)
    (:g 64.0 64.0)
    (:b 64.0)
    (:a 64.0 32.0)
    (:omega (degrees 0.0225))
    (:vel-z (meters 0.083333336) (meters 0.033333335))
    (:fade-a -0.64 -0.64)
    (:friction 0.93 0.025)
    (:timer (seconds 0.5))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-12))
    (:func 'sparticle-motion-blur)
    (:launchrot-x (degrees -7.5) (degrees 15))
    (:launchrot-y (degrees -7.5) (degrees 15))
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5141
  :init-specs ((:texture (bigpuff effects))
    (:num 1.0 3.0)
    (:scale-x (meters 0.5) (meters 0.25))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 0.0 128.0)
    (:g 128.0 32.0)
    (:b 0.0)
    (:a 0.0)
    (:vel-z (meters 0.05) (meters 0.033333335))
    (:scalevel-x (meters 0.01) (meters 0.016666668))
    (:rotvel-z (degrees -1.2) (degrees 2.4))
    (:scalevel-y :copy scalevel-x)
    (:fade-a 0.96)
    (:friction 0.93 0.025)
    (:timer (seconds 0.5))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-12))
    (:next-time (seconds 0.085) (seconds 0.08))
    (:next-launcher 5142)
    (:launchrot-x (degrees -5) (degrees 10))
    (:launchrot-y (degrees -5) (degrees 10))
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5142
  :init-specs ((:fade-a -0.48 -0.48))
  )

;; failed to figure out what this is:
(defpartgroup group-castle-pod-pipe
  :id 1196
  :flags (unk-4)
  :bounds (static-bspherem 0 0 0 6)
  :parts ((sp-item 5143 :fade-after (meters 60) :falloff-to (meters 60) :flags (bit7))
    (sp-item 5144 :fade-after (meters 100) :falloff-to (meters 140) :flags (bit7))
    )
  )

;; failed to figure out what this is:
(defpart 5143
  :init-specs ((:texture (motion-blur-part effects))
    (:num 0.0 5.0)
    (:scale-x (meters 0.1))
    (:rot-x 4)
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g :copy r)
    (:b :copy g)
    (:a 64.0 32.0)
    (:omega (degrees 0.0225))
    (:vel-z (meters 0.083333336) (meters 0.033333335))
    (:fade-a -0.64 -0.64)
    (:friction 0.93 0.025)
    (:timer (seconds 0.5))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-12))
    (:func 'sparticle-motion-blur)
    (:launchrot-x (degrees -7.5) (degrees 15))
    (:launchrot-y (degrees -7.5) (degrees 15))
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5144
  :init-specs ((:texture (bigpuff effects))
    (:num 1.0 3.0)
    (:scale-x (meters 0.5) (meters 0.25))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 64.0 128.0)
    (:g :copy r)
    (:b :copy g)
    (:a 0.0)
    (:vel-z (meters 0.083333336) (meters 0.033333335))
    (:scalevel-x (meters 0.01) (meters 0.016666668))
    (:rotvel-z (degrees -1.2) (degrees 2.4))
    (:scalevel-y :copy scalevel-x)
    (:fade-a 0.96)
    (:friction 0.93 0.025)
    (:timer (seconds 0.5))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-12))
    (:next-time (seconds 0.085) (seconds 0.08))
    (:next-launcher 5145)
    (:launchrot-x (degrees -5) (degrees 10))
    (:launchrot-y (degrees -5) (degrees 10))
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5145
  :init-specs ((:fade-a -0.48 -0.48))
  )

;; failed to figure out what this is:
(defpartgroup group-castle-green-slime
  :id 1197
  :bounds (static-bspherem 0 0 0 2)
  :parts ((sp-item 5146 :fade-after (meters 150) :falloff-to (meters 85) :period (seconds 1) :length (seconds 0.017))
    (sp-item 5147 :fade-after (meters 150) :falloff-to (meters 100))
    )
  )

;; failed to figure out what this is:
(defpart 5146
  :init-specs ((:texture (surfacebubble castle-sprite))
    (:num 1.0)
    (:x (meters -3) (meters 6))
    (:z (meters -3) (meters 6))
    (:scale-x (meters 0))
    (:scale-y :copy scale-x)
    (:r 32.0)
    (:g 196.0)
    (:b 48.0)
    (:a 196.0)
    (:timer (seconds 3))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:next-time (seconds 0) (seconds 1.997))
    (:next-launcher 5148)
    )
  )

;; failed to figure out what this is:
(defpart 5148
  :init-specs ((:scalevel-x (meters 0.002) (meters 0.002))
    (:scalevel-y (meters 0.001) (meters 0.001))
    (:timer (seconds 1))
    (:next-time (seconds 0.5) (seconds 0.497))
    (:next-launcher 5149)
    )
  )

;; failed to figure out what this is:
(defpart 5149
  :init-specs ((:scalevel-x (meters 0.00066666666) (meters 0.00066666666))
    (:scalevel-y (meters 0.00033333333) (meters 0.00033333333))
    (:timer (seconds 2))
    (:next-time (seconds 0.5) (seconds 1.497))
    (:next-launcher 5150)
    )
  )

;; failed to figure out what this is:
(defpart 5150
  :init-specs ((:func 'castle-green-slime-popper))
  )

;; definition for function castle-green-slime-popper
;; INFO: Used lq/sq
(defun castle-green-slime-popper ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (set! (-> arg1 sp-func) (the-as (function sparticle-system sparticle-cpuinfo sprite-vec-data-3d uint none) 0))
  (let ((gp-0 (new 'stack-no-clear 'vector)))
    (sp-kill-particle arg0 arg1)
    (set-vector! gp-0 (-> arg2 vector 0 x) (-> arg2 vector 0 y) (-> arg2 vector 0 z) 1.0)
    (launch-particles (-> *part-id-table* 5151) gp-0)
    (launch-particles (-> *part-id-table* 5152) gp-0)
    (launch-particles :system *sp-particle-system-3d* (-> *part-id-table* 5153) gp-0)
    )
  (none)
  )

;; failed to figure out what this is:
(defpart 5153
  :init-specs ((:texture (explosion-nebula effects))
    (:num 3.0)
    (:y (meters 0))
    (:scale-x (meters 0.25) (meters 0.1))
    (:rot-y (degrees 0) (degrees 3600))
    (:scale-y :copy scale-x)
    (:r 0.0 128.0)
    (:g 255.0)
    (:b 0.0)
    (:a 255.0)
    (:scalevel-x (meters 0.0375) (meters 0.0375))
    (:scalevel-y :copy scalevel-x)
    (:fade-a -3.1875 -3.1875)
    (:timer (seconds 0.267))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-12))
    )
  )

;; failed to figure out what this is:
(defpart 5152
  :init-specs ((:texture (glow effects))
    (:num 1.0)
    (:scale-x (meters 2) (meters 0.1))
    (:rot-x (degrees 2.25))
    (:rot-z (degrees -17))
    (:scale-y :copy scale-x)
    (:r 64.0 196.0)
    (:g 255.0)
    (:b 0.0 64.0)
    (:a 22.0)
    (:omega (degrees 2715.75))
    (:fade-a -0.8)
    (:timer (seconds 0.05))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
    (:userdata 2048.0)
    )
  )

;; failed to figure out what this is:
(defpart 5151
  :init-specs ((:texture (lakedrop effects))
    (:num 8.0 8.0)
    (:x (meters 0) (meters 0.3))
    (:scale-x (meters 0.2) (meters 0.1))
    (:rot-z (degrees 0) (degrees 3600))
    (:scale-y (meters 0.2) (meters 0.1))
    (:r 0.0 128.0)
    (:g 255.0)
    (:b 0.0)
    (:a 64.0 64.0)
    (:vel-y (meters 0.026666667) (meters 0.013333334))
    (:scalevel-x (meters -0.0013333333) (meters 0.00033333333))
    (:rotvel-z (degrees -1.2) (degrees 2.4))
    (:scalevel-y (meters -0.0013333333) (meters 0.00033333333))
    (:fade-a -0.21333334 -0.21333334)
    (:accel-y (meters -0.001) (meters -0.00066666666))
    (:friction 0.93 0.02)
    (:timer (seconds 1))
    (:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-3 use-global-acc))
    (:conerot-x (degrees 0) (degrees 60))
    (:conerot-y (degrees 0) (degrees 3600))
    (:rotate-y (degrees 0) (degrees 3600))
    (:conerot-radius (meters 0) (meters -0.2))
    )
  )

;; failed to figure out what this is:
(defpart 5147
  :init-specs ((:texture (bigpuff effects))
    (:num 0.0 0.05)
    (:x (meters 0) (meters 5))
    (:y (meters 1))
    (:scale-x (meters 4) (meters 2))
    (:rot-z (degrees 0) (degrees 360))
    (:scale-y :copy scale-x)
    (:r 0.0 128.0)
    (:g 128.0 128.0)
    (:b 0.0)
    (:a 0.0)
    (:vel-y (meters 0.006666667) (meters 0.006666667))
    (:scalevel-x (meters 0.0033333334))
    (:rotvel-z (degrees -0.2) (degrees 0.4))
    (:scalevel-y :copy scalevel-x)
    (:fade-a 0.21333334)
    (:friction 0.92 0.01)
    (:timer (seconds 4))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:next-time (seconds 0.25) (seconds 0.247))
    (:next-launcher 5154)
    (:rotate-y (degrees 0) (degrees 3600))
    )
  )

;; failed to figure out what this is:
(defpart 5154
  :init-specs ((:fade-a 0.0) (:next-time (seconds 0.5)) (:next-launcher 5155))
  )

;; failed to figure out what this is:
(defpart 5155
  :init-specs ((:fade-g -0.42666668) (:next-time (seconds 0.5)) (:next-launcher 5156))
  )

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

;; failed to figure out what this is:
(defpartgroup group-castle-green-slime-tube
  :id 1198
  :linger-duration (seconds 12)
  :flags (unk-4 unk-6)
  :bounds (static-bspherem 0 4 0 6)
  :rotate ((degrees 90) (degrees 0) (degrees 180))
  :parts ((sp-item 5157 :fade-after (meters 150) :falloff-to (meters 100) :flags (is-3d bit7))
    (sp-item 5158 :fade-after (meters 150) :falloff-to (meters 100) :flags (is-3d bit7))
    )
  )

;; failed to figure out what this is:
(defpart 5157
  :init-specs ((:texture (metalhead-gun-part effects))
    (:birth-func 'birth-func-castle-green-slime-tube)
    (:num 0.008 0.002)
    (:x (meters -0.25) (meters 0.5))
    (:y (meters -0.5) (meters -1))
    (:scale-x (meters 3) (meters 2))
    (:rot-x (degrees 90))
    (:scale-y :copy scale-x)
    (:r 16.0 8.0)
    (:g 64.0 64.0)
    (:b 16.0 8.0)
    (:a 32.0 32.0)
    (:vel-y (meters 0.0033333334) (meters 0.0044444446))
    (:scalevel-x (meters -0.00083333335) (meters -0.00083333335))
    (:rotvel-y (degrees -0.2) (degrees 0.2))
    (:scalevel-y (meters -0.00055555557) (meters -0.00083333335))
    (:friction 0.9995)
    (:timer (seconds 12))
    (:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:userdata 34816.0)
    (:func 'castle-green-slime-tube-check-delta)
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5158
  :init-specs ((:texture (metalhead-gun-part effects))
    (:birth-func 'birth-func-castle-green-slime-tube)
    (:num 0.008 0.002)
    (:x (meters -0.25) (meters 0.5))
    (:y (meters -0.8) (meters -1))
    (:scale-x (meters 0.5) (meters 1.5))
    (:rot-x (degrees 90))
    (:scale-y :copy scale-x)
    (:r 32.0 8.0)
    (:g 64.0 64.0)
    (:b 32.0 8.0)
    (:a 48.0 16.0)
    (:vel-y (meters 0.0033333334) (meters 0.0044444446))
    (:scalevel-x (meters 0.0016666667) (meters 0.00055555557))
    (:rotvel-y (degrees -0.2) (degrees 0.2))
    (:scalevel-y (meters 0.0011111111) (meters 0.00055555557))
    (:friction 0.9995)
    (:timer (seconds 12))
    (:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
    (:userdata 34816.0)
    (:func 'castle-green-slime-tube-check-delta)
    (:rotate-y (degrees 0))
    )
  )

;; definition for function birth-func-castle-green-slime-tube
;; WARN: Return type mismatch int vs none.
(defun birth-func-castle-green-slime-tube ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo))
  (set! (-> arg1 omega) (-> arg2 launchrot y))
  0
  (none)
  )

;; definition for function castle-green-slime-tube-check-delta
;; WARN: Return type mismatch int vs none.
(defun castle-green-slime-tube-check-delta ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
  (let ((f1-1 (- (-> arg2 vector 0 y) (-> arg1 omega))))
    (set! (-> arg1 user-float) (- (-> arg1 user-float) (fabs f1-1)))
    )
  (set! (-> arg1 omega) (-> arg2 vector 0 y))
  (when (< (-> arg1 user-float) 8192.0)
    (let ((f0-7 (fabs (/ (-> arg1 user-float) (-> arg1 vel-sxvel y)))))
      (/ (- (-> arg2 vector 1 w)) f0-7)
      (set! (-> arg1 fade w) (/ (- (-> arg2 vector 2 w)) f0-7))
      )
    (set! (-> arg1 sp-func) (the-as (function sparticle-system sparticle-cpuinfo sprite-vec-data-3d uint none) 0))
    0
    )
  (none)
  )

;; failed to figure out what this is:
(defpartgroup group-castle-pod-green-slime-tube
  :id 1199
  :flags (unk-4 unk-6)
  :bounds (static-bspherem 0 4 0 6)
  :rotate ((degrees 90) (degrees 0) (degrees 180))
  :parts ((sp-item 209))
  )

;; failed to figure out what this is:
(defpartgroup group-castle-pod-dial-small
  :id 1200
  :flags (use-local-clock unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 2)
  :rotate ((degrees 90) (degrees 0) (degrees 0))
  :parts ((sp-item 5159 :flags (is-3d launch-asap bit7) :period (seconds 1) :length (seconds 0.017))
    (sp-item 5160 :flags (is-3d bit6 bit7))
    (sp-item 5161 :fade-after (meters 100) :flags (bit7) :period (seconds 0.5) :length (seconds 0.017))
    )
  )

;; failed to figure out what this is:
(defpart 5160
  :init-specs ((:texture (dial-back castle-sprite))
    (:num 1.0)
    (:scale-x (meters 0.9))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 128.0)
    (:timer (seconds 0.005))
    (:flags (sp-cpuinfo-flag-2 aux-list))
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5159
  :init-specs ((:texture (dial-dial castle-sprite))
    (:num 1.0)
    (:y (meters 0.05))
    (:scale-x (meters 0.158))
    (:scale-y (meters 0.8))
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 80.0)
    (:rotvel-y (degrees -1.2) (degrees 2.4))
    (:timer (seconds 4))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-4 aux-list left-multiply-quat))
    (:next-time (seconds 0.085) (seconds 1.997))
    (:next-launcher 5162)
    (:rotate-y (degrees 0) (degrees 360))
    )
  )

;; failed to figure out what this is:
(defpart 5161
  :init-specs ((:texture (hotdot effects))
    (:num 1.0)
    (:y (meters 0.025))
    (:z (meters 0.35))
    (:scale-x (meters 0.15))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 0.0)
    (:b 0.0)
    (:a 128.0)
    (:timer (seconds 0.517))
    (:flags (sp-cpuinfo-flag-2))
    (:next-time (seconds 0.25))
    (:next-launcher 5163)
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpartgroup group-castle-pod-dial-large
  :id 1201
  :flags (use-local-clock unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 2)
  :rotate ((degrees 90) (degrees 0) (degrees 0))
  :parts ((sp-item 5164 :flags (is-3d launch-asap bit6 bit7) :period (seconds 1) :length (seconds 0.017))
    (sp-item 5165 :flags (is-3d bit6 bit7))
    (sp-item 5166 :fade-after (meters 100) :flags (bit7) :period (seconds 0.5) :length (seconds 0.017))
    )
  )

;; failed to figure out what this is:
(defpart 5165
  :init-specs ((:texture (dial-back castle-sprite))
    (:num 1.0)
    (:scale-x (meters 1.45))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 128.0)
    (:timer (seconds 0.005))
    (:flags (sp-cpuinfo-flag-2 aux-list))
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5164
  :init-specs ((:texture (dial-dial castle-sprite))
    (:num 1.0)
    (:y (meters 0.05))
    (:scale-x (meters 0.225))
    (:scale-y (meters 1.4))
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 80.0)
    (:rotvel-y (degrees -1.2) (degrees 2.4))
    (:timer (seconds 4))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-4 aux-list left-multiply-quat))
    (:next-time (seconds 0.085) (seconds 1.997))
    (:next-launcher 5162)
    (:rotate-y (degrees 0) (degrees 360))
    )
  )

;; failed to figure out what this is:
(defpart 5166
  :init-specs ((:texture (hotdot effects))
    (:num 1.0)
    (:y (meters 0.025))
    (:z (meters 0.5))
    (:scale-x (meters 0.15))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 0.0)
    (:b 0.0)
    (:a 128.0)
    (:timer (seconds 0.517))
    (:flags (sp-cpuinfo-flag-2))
    (:next-time (seconds 0.25))
    (:next-launcher 5163)
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpartgroup group-castle-dial-small
  :id 1202
  :flags (unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 2)
  :rotate ((degrees 90) (degrees 0) (degrees 0))
  :parts ((sp-item 5167 :flags (is-3d launch-asap bit7) :period (seconds 1) :length (seconds 0.017))
    (sp-item 5168 :flags (is-3d bit6 bit7))
    (sp-item 5169 :fade-after (meters 100) :flags (bit7) :period (seconds 0.5) :length (seconds 0.017))
    )
  )

;; failed to figure out what this is:
(defpart 5168
  :init-specs ((:texture (dial-back castle-sprite))
    (:num 1.0)
    (:scale-x (meters 1.7))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 128.0)
    (:timer (seconds 0.005))
    (:flags (sp-cpuinfo-flag-2 aux-list))
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5167
  :init-specs ((:texture (dial-dial castle-sprite))
    (:num 1.0)
    (:y (meters 0.05))
    (:scale-x (meters 0.225))
    (:scale-y (meters 1.5))
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 80.0)
    (:rotvel-y (degrees -1.2) (degrees 2.4))
    (:timer (seconds 4))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-4 aux-list left-multiply-quat))
    (:next-time (seconds 0.085) (seconds 1.997))
    (:next-launcher 5162)
    (:rotate-y (degrees 0) (degrees 360))
    )
  )

;; failed to figure out what this is:
(defpart 5162
  :init-specs ((:rotvel-y (degrees -1.2) (degrees 2.4))
    (:timer (seconds 4))
    (:next-time (seconds 0.085) (seconds 1.997))
    (:next-launcher 5162)
    )
  )

;; failed to figure out what this is:
(defpart 5169
  :init-specs ((:texture (hotdot effects))
    (:num 1.0)
    (:y (meters 0.025))
    (:z (meters 0.6))
    (:scale-x (meters 0.2))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 0.0)
    (:b 0.0)
    (:a 128.0)
    (:timer (seconds 0.517))
    (:flags (sp-cpuinfo-flag-2))
    (:next-time (seconds 0.25))
    (:next-launcher 5163)
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5163
  :init-specs ((:r 64.0) (:g 0.0) (:b 0.0) (:a 128.0))
  )

;; failed to figure out what this is:
(defpartgroup group-castle-dial-large
  :id 1203
  :flags (use-local-clock unk-4 unk-6)
  :bounds (static-bspherem 0 0 0 2)
  :rotate ((degrees 90) (degrees 0) (degrees 0))
  :parts ((sp-item 5170 :flags (is-3d launch-asap bit7) :period (seconds 1) :length (seconds 0.017))
    (sp-item 5171 :flags (is-3d bit6 bit7))
    (sp-item 5172 :fade-after (meters 100) :flags (bit7) :period (seconds 0.5) :length (seconds 0.017))
    (sp-item 5173 :fade-after (meters 100) :flags (bit7) :period (seconds 0.5) :length (seconds 0.017) :offset 65)
    (sp-item 5174 :fade-after (meters 100) :flags (bit7) :period (seconds 0.5) :length (seconds 0.017) :offset 35)
    )
  )

;; failed to figure out what this is:
(defpart 5171
  :init-specs ((:texture (dial-back castle-sprite))
    (:num 1.0)
    (:scale-x (meters 2.3))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 128.0)
    (:timer (seconds 0.005))
    (:flags (sp-cpuinfo-flag-2 aux-list))
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5170
  :init-specs ((:texture (dial-dial castle-sprite))
    (:num 1.0)
    (:y (meters 0.05))
    (:scale-x (meters 0.345))
    (:scale-y (meters 2.2))
    (:r 128.0)
    (:g 128.0)
    (:b 128.0)
    (:a 80.0)
    (:rotvel-y (degrees -1.2) (degrees 2.4))
    (:timer (seconds 4))
    (:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-4 aux-list left-multiply-quat))
    (:next-time (seconds 0.085) (seconds 1.997))
    (:next-launcher 5162)
    (:rotate-y (degrees 0) (degrees 360))
    )
  )

;; failed to figure out what this is:
(defpart 5172
  :init-specs ((:texture (hotdot effects))
    (:num 1.0)
    (:y (meters 0.025))
    (:z (meters 0.8))
    (:scale-x (meters 0.25))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 0.0)
    (:b 0.0)
    (:a 128.0)
    (:timer (seconds 0.517))
    (:flags (sp-cpuinfo-flag-2))
    (:next-time (seconds 0.25))
    (:next-launcher 5163)
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5173
  :init-specs ((:texture (hotdot effects))
    (:num 1.0)
    (:x (meters 0.3))
    (:y (meters 0.025))
    (:z (meters 0.8))
    (:scale-x (meters 0.25))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 0.0)
    (:b 0.0)
    (:a 128.0)
    (:timer (seconds 0.517))
    (:flags (sp-cpuinfo-flag-2))
    (:next-time (seconds 0.25))
    (:next-launcher 5163)
    (:rotate-y (degrees 0))
    )
  )

;; failed to figure out what this is:
(defpart 5174
  :init-specs ((:texture (hotdot effects))
    (:num 1.0)
    (:x (meters -0.3))
    (:y (meters 0.025))
    (:z (meters 0.8))
    (:scale-x (meters 0.25))
    (:rot-z (degrees 0))
    (:scale-y :copy scale-x)
    (:r 255.0)
    (:g 0.0)
    (:b 0.0)
    (:a 128.0)
    (:timer (seconds 0.517))
    (:flags (sp-cpuinfo-flag-2))
    (:next-time (seconds 0.25))
    (:next-launcher 5163)
    (:rotate-y (degrees 0))
    )
  )