mirror of
https://github.com/open-goal/jak-project
synced 2026-08-07 02:06:59 -04:00
Hat Kid
93afb02cf4
This includes all the collision stuff needed to spawn `target`, decompiles the sparticle code and adds some of the PC hacks needed for merc to run (it doesn't work quite right and looks bad, likely due to a combination of code copied from Jak 2 and the time of day hacks). There are a bunch of temporary hacks (see commits) in place to prevent the game from crashing quite as much, but it is still extremely prone to doing so due to lots of missing functions/potentially bad decomp. --------- Co-authored-by: water <awaterford111445@gmail.com>
801 lines
26 KiB
Common Lisp
Vendored
Generated
801 lines
26 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 756
|
|
: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 757
|
|
: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 758
|
|
: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 left-multiply-quat))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 759
|
|
:init-specs ((:texture (hotdot level-default-sprite))
|
|
(: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 left-multiply-quat))
|
|
(:next-time (seconds 0.3))
|
|
(:next-launcher 760)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 760
|
|
:init-specs ((:fade-a 0.0) (:next-time (seconds 0.3) (seconds 0.397)) (:next-launcher 761))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 761
|
|
:init-specs ((:fade-a -0.21333334))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 762
|
|
: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 left-multiply-quat))
|
|
(:next-time (seconds 0.5))
|
|
(:next-launcher 763)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 763
|
|
:init-specs ((:fade-a 0.0) (:next-time (seconds 1.2)) (:next-launcher 764))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 764
|
|
:init-specs ((:fade-a -0.7111111))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-part-water-splash
|
|
:id 192
|
|
:duration (seconds 5)
|
|
:flags (sp0 sp4)
|
|
:bounds (static-bspherem 0 -12 0 14)
|
|
:parts ((sp-item 765 :flags (sp7) :period (seconds 10) :length (seconds 0.2))
|
|
(sp-item 766 :flags (sp7) :period (seconds 10) :length (seconds 0.067) :offset 125)
|
|
(sp-item 767 :flags (is-3d sp7) :period (seconds 10) :length (seconds 0.067))
|
|
(sp-item 768 :flags (is-3d sp7) :period (seconds 10) :length (seconds 0.167) :offset 125)
|
|
(sp-item 769 :flags (is-3d sp7) :period (seconds 10) :length (seconds 0.5) :offset 150)
|
|
(sp-item 770 :flags (sp7) :period (seconds 10) :length (seconds 0.167) :offset 20)
|
|
(sp-item 771 :flags (sp7) :period (seconds 10) :length (seconds 0.167) :offset 125)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 765
|
|
:init-specs ((:texture (splash level-default-sprite))
|
|
(: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 sp-cpuinfo-flag-13))
|
|
(: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 :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'inline-array vector 4
|
|
(new 'static 'vector :x 128.0 :y 158.0 :z 128.0 :w 128.0)
|
|
(new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 128.0)
|
|
(new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 128.0)
|
|
(new 'static 'vector :x 255.0 :y 255.0 :z 255.0 :w 128.0)
|
|
)
|
|
:one-over-x-deltas (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-wsplash-alpha* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'vector :x 64.0 :y 128.0 :z 129.0 :w 130.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 64.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-wsplash-scale-x* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'vector :x 0.5 :y 1.0 :z 2.0 :w 3.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 0.5 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-wsplash-scale-y* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'vector :x 1.0 :y 2.0 :z 3.0 :w 4.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-wsplash-alpha* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -0.1 :z -1.0 :w -2.0)
|
|
:ys (new 'static 'vector :y 1.0 :w 1.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 10.0 :y -1.1111112 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-wsplash-scale-x* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'vector :x 1.0 :y 2.0 :z 3.0 :w 4.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-wsplash-scale-y* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -0.4 :z -0.7 :w -1.0)
|
|
:ys (new 'static 'vector :y 2.0 :z 0.5)
|
|
:one-over-x-deltas (new 'static 'vector :x 5.0 :y -5.0000005 :z -1.6666666 :w 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* 765 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 766
|
|
:init-specs ((:texture (splash level-default-sprite))
|
|
(: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 sp-cpuinfo-flag-13))
|
|
(: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 :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'inline-array vector 4
|
|
(new 'static 'vector :x 128.0 :y 128.0 :z 110.0 :w 128.0)
|
|
(new 'static 'vector :x 255.0 :y 255.0 :z 235.0 :w 128.0)
|
|
(new 'static 'vector :x 255.0 :y 255.0 :z 235.0 :w 128.0)
|
|
(new 'static 'vector :x 255.0 :y 255.0 :z 235.0 :w 128.0)
|
|
)
|
|
:one-over-x-deltas (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-splash-alpha* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'vector :x 64.0 :y 128.0 :z 129.0 :w 130.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 64.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-splash-scale-x* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'vector :x 1.0 :y 5.0 :z 6.0 :w 7.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 4.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *range-splash-scale-y* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'vector :x 1.0 :y 2.0 :z 3.0 :w 4.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-splash-alpha* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -0.1 :z -0.7 :w -1.0)
|
|
:ys (new 'static 'vector :y 1.0 :z 1.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 10.0 :z -3.3333333 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-splash-scale-x* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -0.3 :z -1.0 :w -2.0)
|
|
:ys (new 'static 'vector :x 1.0 :y 0.15 :w 1.0)
|
|
:one-over-x-deltas (new 'static 'vector :x -2.8333333 :y -0.21428573 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(if #t
|
|
(set! *curve-splash-scale-y* (new 'static 'curve2d-fast
|
|
:xs (new 'static 'vector :y -0.5 :z -0.7 :w -1.0)
|
|
:ys (new 'static 'vector :y 3.0 :z 2.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 6.0 :y -5.0000005 :z -6.6666665 :w 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* 766 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 767
|
|
: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 sp-cpuinfo-flag-13 left-multiply-quat))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 768
|
|
: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 sp-cpuinfo-flag-13 left-multiply-quat))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 770
|
|
: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 769
|
|
: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 sp-cpuinfo-flag-13 left-multiply-quat))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 771
|
|
: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 193
|
|
:duration (seconds 3)
|
|
:flags (sp0)
|
|
:bounds (static-bspherem 0 -12 0 14)
|
|
:parts ((sp-item 772 :period (seconds 10) :length (seconds 0.2))
|
|
(sp-item 773 :flags (is-3d) :period (seconds 10) :length (seconds 0.067))
|
|
(sp-item 774 :period (seconds 10) :length (seconds 0.167) :offset 20)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 773
|
|
: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 sp-cpuinfo-flag-13 left-multiply-quat))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 774
|
|
: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 772
|
|
:init-specs ((:texture (splash level-default-sprite))
|
|
(: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 sp-cpuinfo-flag-13))
|
|
(: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 :y -1.0 :z -2.0 :w -3.0)
|
|
:ys (new 'static 'vector :x 0.3 :y 0.7 :z 1.7 :w 2.7)
|
|
:one-over-x-deltas (new 'static 'vector :x 0.39999998 :y 1.0 :z 1.0 :w 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 :y -0.4 :z -0.7 :w -1.0)
|
|
:ys (new 'static 'vector :y 0.7 :z 0.2)
|
|
:one-over-x-deltas (new 'static 'vector :x 1.75 :y -1.6666667 :z -0.6666666 :w 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* 772 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 775
|
|
: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 glow set-conerot))
|
|
(:userdata 10240.0)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 776
|
|
:init-specs ((:fade-a -0.64))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 777
|
|
: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 set-conerot))
|
|
(:userdata -208896.0)
|
|
(:func 'check-water-level-drop-motion)
|
|
(:next-time (seconds 0) (seconds 0.58))
|
|
(:next-launcher 41)
|
|
(: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 41
|
|
:init-specs ((:r 255.0) (:g 255.0) (:b 255.0) (:next-time (seconds 0.017)) (:next-launcher 778))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 778
|
|
: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 779))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 780
|
|
:init-specs ((:texture (hotdot level-default-sprite))
|
|
(: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 set-conerot))
|
|
(:userdata :data (new 'static 'boxed-array :type int32 10 0 0 #x401800 #x403d00 #x400700 #x408200))
|
|
(:func 'sparticle-texture-animate)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 781
|
|
: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 set-conerot))
|
|
(:userdata -208896.0)
|
|
(:func 'check-water-level-drop-and-die-motion)
|
|
(:next-time (seconds 0) (seconds 0.33))
|
|
(:next-launcher 41)
|
|
(:conerot-x (degrees 30) (degrees 40))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 782
|
|
: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 783)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|
|
|
|
|
|
|
|
|