mirror of
https://github.com/open-goal/jak-project
synced 2026-08-04 17:19:49 -04:00
Tyler Wilding
805 lines
27 KiB
Common Lisp
Vendored
Generated
805 lines
27 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 136
|
|
:init-specs ((:texture (lakedrop level-default-sprite))
|
|
(:num 0.1)
|
|
(:x (meters -0.25) (meters 0.5))
|
|
(:y (meters -0.05) (meters 0.1))
|
|
(:z (meters -0.25) (meters 0.5))
|
|
(:scale-x (meters 0.05) (meters 0.1))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 16.0 16.0)
|
|
(:vel-y (meters 0) (meters 0.006666667))
|
|
(:accel-y (meters 0.00016666666) (meters 0.00016666666))
|
|
(:friction 0.96)
|
|
(:timer (seconds 5))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
|
|
(:userdata 0.0)
|
|
(:func 'check-water-level-above-and-die)
|
|
(:conerot-x (degrees 90))
|
|
(:conerot-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 137
|
|
:init-specs ((:texture (lakedrop level-default-sprite))
|
|
(:num 0.1)
|
|
(:x (meters -0.25) (meters 0.5))
|
|
(:y (meters 0.15))
|
|
(:z (meters -0.25) (meters 0.5))
|
|
(:scale-x (meters 0.1) (meters 0.1))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 16.0 16.0)
|
|
(:vel-y (meters 0) (meters 0.006666667))
|
|
(:accel-y (meters 0.00033333333))
|
|
(:friction 0.96)
|
|
(:timer (seconds 5))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
|
|
(:userdata 0.0)
|
|
(:func 'check-water-level-above-and-die)
|
|
(:conerot-x (degrees 90))
|
|
(:conerot-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 138
|
|
:init-specs ((:texture (splash-foam level-default-sprite))
|
|
(:num 0.05)
|
|
(:scale-x (meters 0.5) (meters 0.5))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 16.0 16.0)
|
|
(:scalevel-x (meters 0.005) (meters 0.0016666667))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a -0.04 -0.04)
|
|
(:timer (seconds 2.667))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 right-multiply-quat))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 139
|
|
:init-specs ((:texture (common-white common))
|
|
(:num 0.06)
|
|
(:x (meters 10))
|
|
(:scale-x (meters 0.75) (meters 1.5))
|
|
(:rot-y (degrees 0))
|
|
(:scale-y (meters 0.75) (meters 1.5))
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 0.0)
|
|
(:vel-x (meters 0.01) (meters 0.006666667))
|
|
(:scalevel-x (meters 0.0033333334) (meters 0.004333333))
|
|
(:scalevel-y (meters 0.0033333334) (meters 0.004333333))
|
|
(:fade-a 0.000111111105)
|
|
(:friction 0.94)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 right-multiply-quat))
|
|
(:next-time (seconds 0.3))
|
|
(:next-launcher 140)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 140
|
|
:init-specs ((:fade-a 0.0) (:next-time (seconds 0.3) (seconds 0.397)) (:next-launcher 141))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 141
|
|
:init-specs ((:fade-a -0.21333334))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 142
|
|
:init-specs ((:texture (explosion-nebula level-default-sprite))
|
|
(:num 0.05 0.4)
|
|
(:x (meters -0.75) (meters 1.5))
|
|
(:z (meters -0.75) (meters 1.5))
|
|
(:scale-x (meters 0.2) (meters 0.7))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 0.0)
|
|
(:b 0.0)
|
|
(:a 0.0)
|
|
(:scalevel-x (meters 0.0016666667) (meters 0.003))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 right-multiply-quat))
|
|
(:next-time (seconds 0.5))
|
|
(:next-launcher 143)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 143
|
|
:init-specs ((:fade-a 0.0) (:next-time (seconds 1.2)) (:next-launcher 144))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 144
|
|
:init-specs ((:fade-a -0.7111111))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-part-water-splash
|
|
:id 26
|
|
:duration (seconds 5)
|
|
:flags (sp0 sp4)
|
|
:bounds (static-bspherem 0 -12 0 14)
|
|
:parts ((sp-item 145 :flags (sp6) :period (seconds 10) :length (seconds 0.2))
|
|
(sp-item 146 :flags (sp6) :period (seconds 10) :length (seconds 0.067) :offset 125)
|
|
(sp-item 147 :flags (is-3d sp6) :period (seconds 10) :length (seconds 0.067))
|
|
(sp-item 148 :flags (is-3d sp6) :period (seconds 10) :length (seconds 0.167) :offset 125)
|
|
(sp-item 149 :flags (is-3d sp6) :period (seconds 10) :length (seconds 0.5) :offset 150)
|
|
(sp-item 150 :flags (sp6) :period (seconds 10) :length (seconds 0.167) :offset 20)
|
|
(sp-item 151 :flags (sp6) :period (seconds 10) :length (seconds 0.167) :offset 125)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 145
|
|
:init-specs ((:texture (common-white common))
|
|
(:birth-func 'birth-func-curve)
|
|
(:num 5.0)
|
|
(:scale-x (meters 1))
|
|
(:scale-y (meters 1))
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 128.0)
|
|
(:vel-z (meters 0.016666668))
|
|
(:friction 0.96)
|
|
(:timer (seconds 1))
|
|
(:flags (sp-cpuinfo-flag-2 glow))
|
|
(:userdata 0.0)
|
|
(:func 'live-func-curve)
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-wsplash-color*
|
|
(new 'static 'curve-color-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -1.0 -2.0 -3.0))
|
|
:ys (new 'static 'inline-array vector 4
|
|
(new 'static 'vector :data (new 'static 'array float 4 128.0 158.0 128.0 128.0))
|
|
(new 'static 'vector :data (new 'static 'array float 4 255.0 255.0 255.0 128.0))
|
|
(new 'static 'vector :data (new 'static 'array float 4 255.0 255.0 255.0 128.0))
|
|
(new 'static 'vector :data (new 'static 'array float 4 255.0 255.0 255.0 128.0))
|
|
)
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 1.0 1.0 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-wsplash-alpha* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -1.0 -2.0 -3.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 64.0 128.0 129.0 130.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 64.0 1.0 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-wsplash-scale-x* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -1.0 -2.0 -3.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 0.5 1.0 2.0 3.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 0.5 1.0 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-wsplash-scale-y* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -1.0 -2.0 -3.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 1.0 2.0 3.0 4.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 1.0 1.0 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-wsplash-alpha*
|
|
(new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -0.1 -1.0 -2.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 0.0 1.0 0.0 1.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 10.0 -1.1111112 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-wsplash-scale-x* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -1.0 -2.0 -3.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 1.0 2.0 3.0 4.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 1.0 1.0 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-wsplash-scale-y*
|
|
(new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -0.4 -0.7 -1.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 0.0 2.0 0.5 0.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 5.0 -5.0000005 -1.6666666 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for symbol *part-water-splash-curve-settings*, type particle-curve-settings
|
|
(define *part-water-splash-curve-settings*
|
|
(new 'static 'particle-curve-settings :lifetime-base (seconds 0.95) :lifetime-offset (seconds 0.1))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 145 init-specs 13 initial-valuef) (the-as float *part-water-splash-curve-settings*))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-curve-settings* color-start) *range-wsplash-color*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-curve-settings* alpha-start) *range-wsplash-alpha*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-curve-settings* scale-x-start) *range-wsplash-scale-x*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-curve-settings* scale-y-start) *range-wsplash-scale-y*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-curve-settings* r-scalar) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-curve-settings* g-scalar) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-curve-settings* b-scalar) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-curve-settings* a-scalar) *curve-wsplash-alpha*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-curve-settings* scale-x-scalar) *curve-wsplash-scale-x*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-curve-settings* scale-y-scalar) *curve-wsplash-scale-y*)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 146
|
|
:init-specs ((:texture (common-white common))
|
|
(:birth-func 'birth-func-curve)
|
|
(:num 2.0)
|
|
(:scale-x (meters 1))
|
|
(:scale-y (meters 1))
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 128.0)
|
|
(:timer (seconds 1))
|
|
(:flags (sp-cpuinfo-flag-2 glow))
|
|
(:userdata 0.0)
|
|
(:func 'live-func-curve)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-splash-color*
|
|
(new 'static 'curve-color-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -1.0 -2.0 -3.0))
|
|
:ys (new 'static 'inline-array vector 4
|
|
(new 'static 'vector :data (new 'static 'array float 4 128.0 128.0 110.0 128.0))
|
|
(new 'static 'vector :data (new 'static 'array float 4 255.0 255.0 235.0 128.0))
|
|
(new 'static 'vector :data (new 'static 'array float 4 255.0 255.0 235.0 128.0))
|
|
(new 'static 'vector :data (new 'static 'array float 4 255.0 255.0 235.0 128.0))
|
|
)
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 1.0 1.0 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-splash-alpha* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -1.0 -2.0 -3.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 64.0 128.0 129.0 130.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 64.0 1.0 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-splash-scale-x* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -1.0 -2.0 -3.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 1.0 5.0 6.0 7.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 4.0 1.0 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-splash-scale-y* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -1.0 -2.0 -3.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 1.0 2.0 3.0 4.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 1.0 1.0 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-splash-alpha* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -0.1 -0.7 -1.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 0.0 1.0 1.0 0.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 10.0 0.0 -3.3333333 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-splash-scale-x*
|
|
(new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -0.3 -1.0 -2.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 1.0 0.15 0.0 1.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 -2.8333333 -0.21428573 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-splash-scale-y*
|
|
(new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -0.5 -0.7 -1.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 0.0 3.0 2.0 0.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 6.0 -5.0000005 -6.6666665 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for symbol *part-water-splash-center-curve-settings*, type particle-curve-settings
|
|
(define *part-water-splash-center-curve-settings*
|
|
(new 'static 'particle-curve-settings :lifetime-base (seconds 0.8) :lifetime-offset (seconds 0.4))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 146 init-specs 11 initial-valuef)
|
|
(the-as float *part-water-splash-center-curve-settings*)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-center-curve-settings* color-start) *range-splash-color*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-center-curve-settings* alpha-start) *range-splash-alpha*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-center-curve-settings* scale-x-start) *range-splash-scale-x*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-center-curve-settings* scale-y-start) *range-splash-scale-y*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-center-curve-settings* r-scalar) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-center-curve-settings* g-scalar) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-center-curve-settings* b-scalar) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-center-curve-settings* a-scalar) *curve-splash-alpha*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-center-curve-settings* scale-x-scalar) *curve-splash-scale-x*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-center-curve-settings* scale-y-scalar) *curve-splash-scale-y*)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 147
|
|
:init-specs ((:texture (splash-foam level-default-sprite))
|
|
(:num 0.4)
|
|
(:scale-x (meters 2) (meters 0.5))
|
|
(:rot-y (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 2) (meters 0.5))
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters 0.01) (meters 0.0033333334))
|
|
(:scalevel-y (meters 0.01) (meters 0.0033333334))
|
|
(:fade-a -0.21333334)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 glow right-multiply-quat))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 148
|
|
:init-specs ((:texture (splash-foam level-default-sprite))
|
|
(:num 0.2)
|
|
(:scale-x (meters 0) (meters 0.1))
|
|
(:rot-y (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 0) (meters 0.1))
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters 0.00033333333) (meters 0.006666667))
|
|
(:scalevel-y (meters 0.00033333333) (meters 0.006666667))
|
|
(:fade-a -0.21333334)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 glow right-multiply-quat))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 150
|
|
:init-specs ((:texture (lakedrop level-default-sprite))
|
|
(:num 10.0)
|
|
(:x (meters 0) (meters 1))
|
|
(:scale-x (meters 0.05) (meters 0.05))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 32.0 32.0)
|
|
(:vel-y (meters 0.016666668) (meters 0.033333335))
|
|
(:accel-y (meters -0.0016666667))
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-3))
|
|
(:func 'check-water-level-drop)
|
|
(:conerot-x (degrees -40) (degrees 80))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 149
|
|
:init-specs ((:texture (ripples level-default-sprite))
|
|
(:num 0.5 1.0)
|
|
(:x (meters 1) (meters 5))
|
|
(:scale-x (meters 0.1) (meters 0.2))
|
|
(:rot-y (degrees 0) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 64.0 64.0)
|
|
(:scalevel-x (meters 0.001) (meters 0.0033333334))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a -0.21333334)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 glow right-multiply-quat))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 151
|
|
:init-specs ((:texture (lakedrop level-default-sprite))
|
|
(:num 2.0 2.0)
|
|
(:scale-x (meters 0.05) (meters 0.05))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 32.0 32.0)
|
|
(:vel-y (meters 0.026666667) (meters 0.026666667))
|
|
(:accel-y (meters -0.0016666667))
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-3))
|
|
(:func 'check-water-level-drop)
|
|
(:conerot-x (degrees -2) (degrees 4))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-part-water-splash-small
|
|
:id 27
|
|
:duration (seconds 3)
|
|
:flags (sp0)
|
|
:bounds (static-bspherem 0 -12 0 14)
|
|
:parts ((sp-item 152 :period (seconds 10) :length (seconds 0.2))
|
|
(sp-item 153 :flags (is-3d) :period (seconds 10) :length (seconds 0.067))
|
|
(sp-item 154 :period (seconds 10) :length (seconds 0.167) :offset 20)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 153
|
|
:init-specs ((:texture (splash-foam level-default-sprite))
|
|
(:num 0.8)
|
|
(:scale-x (meters 0.5) (meters 0.2))
|
|
(:rot-y (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 0.5) (meters 0.2))
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters 0.01) (meters 0.0033333334))
|
|
(:scalevel-y (meters 0.01) (meters 0.0033333334))
|
|
(:fade-a -0.42666668)
|
|
(:timer (seconds 1))
|
|
(:flags (sp-cpuinfo-flag-2 glow right-multiply-quat))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 154
|
|
:init-specs ((:texture (lakedrop level-default-sprite))
|
|
(:num 5.0)
|
|
(:scale-x (meters 0.05) (meters 0.05))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 32.0 32.0)
|
|
(:vel-y (meters 0.006666667) (meters 0.016666668))
|
|
(:accel-y (meters -0.0016666667))
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-3))
|
|
(:func 'check-water-level-drop)
|
|
(:conerot-x (degrees -40) (degrees 80))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 152
|
|
:init-specs ((:texture (common-white common))
|
|
(:birth-func 'birth-func-curve)
|
|
(:num 4.0)
|
|
(:scale-x (meters 1))
|
|
(:scale-y (meters 1))
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 128.0)
|
|
(:a 128.0)
|
|
(:vel-z (meters 0.01))
|
|
(:friction 0.99)
|
|
(:timer (seconds 1))
|
|
(:flags (sp-cpuinfo-flag-2 glow))
|
|
(:userdata 0.0)
|
|
(:func 'live-func-curve)
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-wsplash-small-scale-x*
|
|
(new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -1.0 -2.0 -3.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 0.3 0.7 1.7 2.7))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 0.39999998 1.0 1.0 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-wsplash-small-scale-y*
|
|
(new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :data (new 'static 'array float 4 0.0 -0.4 -0.7 -1.0))
|
|
:ys (new 'static 'vector :data (new 'static 'array float 4 0.0 0.7 0.2 0.0))
|
|
:one-over-x-deltas (new 'static 'vector :data (new 'static 'array float 4 1.75 -1.6666667 -0.6666666 1.0))
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for symbol *part-water-splash-small-curve-settings*, type particle-curve-settings
|
|
(define *part-water-splash-small-curve-settings*
|
|
(new 'static 'particle-curve-settings :lifetime-base (seconds 0.25) :lifetime-offset (seconds 0.1))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 152 init-specs 13 initial-valuef)
|
|
(the-as float *part-water-splash-small-curve-settings*)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-small-curve-settings* color-start) *range-wsplash-color*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-small-curve-settings* alpha-start) *range-wsplash-alpha*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-small-curve-settings* scale-x-start) *range-wsplash-scale-x*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-small-curve-settings* scale-y-start) *range-wsplash-scale-y*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-small-curve-settings* r-scalar) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-small-curve-settings* g-scalar) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-small-curve-settings* b-scalar) #f)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-small-curve-settings* a-scalar) *curve-wsplash-alpha*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-small-curve-settings* scale-x-scalar) *curve-wsplash-small-scale-x*)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-water-splash-small-curve-settings* scale-y-scalar) *curve-wsplash-small-scale-y*)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 155
|
|
:init-specs ((:texture (glow-soft level-default-sprite))
|
|
(:num 1.0)
|
|
(:scale-x (meters 6) (meters 0.1))
|
|
(:rot-x (degrees 11.25))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g :copy r)
|
|
(:b 255.0)
|
|
(:a 0.0)
|
|
(:scalevel-x (meters 0.16))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:timer (seconds 0.2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 use-global-acc sp-cpuinfo-flag-21))
|
|
(:userdata 10240.0)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 156
|
|
:init-specs ((:fade-a -0.64))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 157
|
|
:init-specs ((:texture (lakedrop level-default-sprite))
|
|
(:num 12.0)
|
|
(:y (meters 0))
|
|
(:scale-x (meters 0.08) (meters 0.03))
|
|
(:rot-x 4)
|
|
(:scale-y :copy scale-x)
|
|
(:r 32.0 32.0)
|
|
(:g :copy r)
|
|
(:b 64.0 32.0)
|
|
(:a 128.0)
|
|
(:omega (degrees 0.01575) (degrees 0.009))
|
|
(:vel-y (meters 0.033333335) (meters 0.05))
|
|
(:accel-y (meters -0.005) (meters -0.00066666666))
|
|
(:friction 0.96 0.02)
|
|
(:timer (seconds 1))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-21))
|
|
(:userdata -208896.0)
|
|
(:func 'check-water-level-drop-motion)
|
|
(:next-time (seconds 0) (seconds 0.58))
|
|
(:next-launcher 30)
|
|
(:conerot-x (degrees 15) (degrees 65))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 0))
|
|
(:conerot-radius (meters 0) (meters 1))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 30
|
|
:init-specs ((:r 255.0) (:g 255.0) (:b 255.0) (:next-time (seconds 0.017)) (:next-launcher 158))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 158
|
|
:init-specs ((:r 32.0 32.0) (:g 32.0 32.0) (:b 64.0 32.0) (:next-time (seconds 0) (seconds 1.497)) (:next-launcher 159))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 160
|
|
:init-specs ((:texture (common-white common))
|
|
(:num 0.3)
|
|
(:scale-x (meters 0.5) (meters 0.25))
|
|
(:rot-y (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 32.0 32.0)
|
|
(:g :copy r)
|
|
(:b :copy r)
|
|
(:a 0.0)
|
|
(:scalevel-x (meters 0.006666667) (meters 0.006666667))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a -0.32 -0.32)
|
|
(:timer (seconds 1.5))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-21))
|
|
(:userdata :data (new 'static 'boxed-array :type int32 10 0 0 0 0 #x401000 #x405d00))
|
|
(:func 'sparticle-texture-animate)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 161
|
|
:init-specs ((:texture (lakedrop level-default-sprite))
|
|
(:num 0.0 0.5)
|
|
(:scale-x (meters 0.08) (meters 0.03))
|
|
(:rot-x 4)
|
|
(:scale-y :copy scale-x)
|
|
(:r 32.0 32.0)
|
|
(:g :copy r)
|
|
(:b 64.0 32.0)
|
|
(:a 0.0)
|
|
(:omega (degrees 0.01575) (degrees 0.009))
|
|
(:vel-y (meters 0.026666667) (meters 0.05))
|
|
(:accel-y (meters -0.005) (meters -0.00066666666))
|
|
(:friction 0.95)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-21))
|
|
(:userdata -208896.0)
|
|
(:func 'check-water-level-drop-and-die-motion)
|
|
(:next-time (seconds 0) (seconds 0.33))
|
|
(:next-launcher 30)
|
|
(:conerot-x (degrees 30) (degrees 40))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 162
|
|
:init-specs ((:texture (lakedrop level-default-sprite))
|
|
(:num 1.0)
|
|
(:scale-x (meters 0.15) (meters 0.05))
|
|
(:rot-x 4)
|
|
(:scale-y :copy scale-x)
|
|
(:r 32.0 32.0)
|
|
(:g :copy r)
|
|
(:b 64.0 32.0)
|
|
(:a 0.0)
|
|
(:omega (degrees 0.0225) (degrees 0.0225))
|
|
(:vel-x (meters -0.016666668) (meters 0.0016666667))
|
|
(:vel-y (meters 0.016666668))
|
|
(:vel-z (meters -0.016666668) (meters 0.0016666667))
|
|
(:scalevel-x (meters -0.00016666666))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:accel-y (meters -0.001) (meters -0.00033333333))
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
|
|
(:userdata 0.0)
|
|
(:func 'check-water-level-drop-motion)
|
|
(:next-time (seconds 2))
|
|
(:next-launcher 163)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|