mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
58a5440c8a
Makes a bunch of missions mostly playable, including: - `arena-training-1` - `arena-fight-1` - `wascity-chase` - `arena-fight-2` - `arena-fight-3` - `volcano-darkeco` - `desert-hover` - `nest-eggs` - `temple-climb` - `temple-oracle` - `temple-tests` - `desert-beast-battle` - `desert-turtle-training` - `desert-course-race` - `desert-artifact-race1` - `wascity-leaper-race` - `wascity-pre-game` - `sewer-met-hum` - `forest-kill-plants` - `forest-ring-chase` - `temple-defend` - `tower-destroy` - `desert-glide` --- Files: - `ripple` - `waswide-mood` - `sig-rider` - `nst-tasks` - `nst-part` - `nst-gas` - `nst-eggs-h` - `nst-obs` - `nst-mood` - `egg-spider` - `wasdoors-init` - `wasall-tasks` - `wvehicle-race` - `wcar-marauder` - `wcar-marauder-b` - `turret-control` - `was-squad-control` - `turtle-training` - `kleever-rider` - `course-race` - `artifact-race` - `desert-hover` - `desbeast-path-h` - `des-beast` - `desertg-obs` - `desertf-obs` - `desertd-obs` - `desert-dust-storm` - `des-cactus` - `race-hud` - `race-info` - `race-manager` - `tizard` - `flyingsaw` - `hover-training` - `temple-mood` - `temple-obs` - `temple-obs2` - `temple-part` - `temple-scenes` - `templex-mood` - `templex-obs` - `templex-part` - `tomb-baby-spider` - `target-turret-shot` - `target-turret` - `beast-battle-path` - `des-beast-2` - `mh-flyer` - `scorpion-gun` - `hover-enemy-h` - `hover-enemy` - `hover-formation-h` - `hover-formation` - `hover-nav-control-h` - `hover-nav-control` - `flamer-hover` - `hover-nav-templea` - `robo-hover` - `hover-nav-sewb` - `hover-nav-sewg` - `hover-nav-sewj` - `hover-nav-sewl` - `hover-nav-sewo` - `hover-nav-towera` - `tower-mood` - `tower-obs` - `tower-scenes` - `tower-part` - `eco-green-collider` - `forest-bridges` - `forest-kill-plants` - `forest-mood` - `forest-ring-chase` - `forest-tasks` - `forest-part` - `foresta-obs` - `hover-nav-foresta` - `mh-plant` - `dp-bipedal-part` - `dp-bipedal-shot` - `dp-bipedal` - `neo-spawner` - `for-turret` - `for-turret-shot` - `neo-wasp` - `neo-wasp-part` - `volcanox-scenes` - `volcanox-mood` - `volcano-scenes` - `volcano-mood` - `volcano-obs` - `volcano-obs2` - `chain-physics` - `rigid-body-plat` - `volcano-part` - `flamer-lava` - `flitter` - `spiky-frog` - `flut-wild` - `target-indax` - `target-indax-hang` - `mantis` - `volcanox-obs` - `spyder` - `wcar-faccar` - `mhcity-obs2` - `mhcity-part` - `mhcity-obs` - `dm-mine-spider` - `rapid-gunner` - `stadium-mood` - `stadium-scenes` - `stadiuma-mood` - `stadiuma-part` - `kanga-lizard` - `marauder` - `arena-scenes` - `wasstada-mood` - `wasstada-obs` - `wasstada-part` - `wasstadb-obs` - `wasstadc-obs` - `dm-flyer` - `maker-part` - `maker-projectile` - `skeet-part` - `wascity-turret` - `wasgun-h` - `wasgun-hud` - `wasgun-manager` - `nav-graph-h` - `traffic-engine-h` - `waswide-init` - `cty-borrow-manager-h` - `cty-borrow-manager` - `desert-part` - `height-map-h` - `height-map` - `traffic-height-map` - `vehicle-control` - `hvehicle-h` - `hvehicle` - `hvehicle-effects` - `hvehicle-physics` - `hvehicle-util` - `glider-h` - `glider-hud` - `glider-manager` - `glider-ring` - `glider-ring-part` - `h-glider` - `hanga-init` - `was-pre-game` - `was-leaper-race` - `flut-racer` - `desert-scenes` - `desert-lizard-h` - `desert-lizard-task` - `desert-lizard` - `throne-scenes` - `waspal-mood` - `waspala-obs` - `waspala-part` - `deswalk-obs` - `deswalk-part` - `terraformer-drone` - `terraformer-head` - `terraformer-part` - `terraformer-setup`
632 lines
21 KiB
Common Lisp
632 lines
21 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: terraformer-part.gc
|
|
;; name in dgo: terraformer-part
|
|
;; dgos: DESBOSS1
|
|
|
|
(define-extern *range-ter-wsplash-color* curve-color-fast)
|
|
(define-extern *range-ter-wsplash-alpha* curve2d-fast)
|
|
(define-extern *range-ter-wsplash-scale-x* curve2d-fast)
|
|
(define-extern *range-ter-wsplash-scale-y* curve2d-fast)
|
|
(define-extern *curve-ter-wsplash-alpha* curve2d-fast)
|
|
(define-extern *curve-ter-wsplash-scale-x* curve2d-fast)
|
|
(define-extern *curve-ter-wsplash-scale-y* curve2d-fast)
|
|
(define-extern *range-ter-splash-color* curve-color-fast)
|
|
(define-extern *range-ter-splash-alpha* curve2d-fast)
|
|
(define-extern *range-ter-splash-scale-x* curve2d-fast)
|
|
(define-extern *range-ter-splash-scale-y* curve2d-fast)
|
|
(define-extern *curve-ter-splash-alpha* curve2d-fast)
|
|
(define-extern *curve-ter-splash-scale-x* curve2d-fast)
|
|
(define-extern *curve-ter-splash-scale-y* curve2d-fast)
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(defpart 1735
|
|
:init-specs ((:texture (redpuff level-default-sprite))
|
|
(:num 3.0 5.0)
|
|
(:scale-x (meters 2) (meters 2))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 128.0)
|
|
(:b 0.0)
|
|
(:a 32.0 32.0)
|
|
(:vel-y (meters -0.006666667) (meters -0.006666667))
|
|
(:scalevel-x (meters -0.006666667))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r -3.2)
|
|
(:fade-g -1.6)
|
|
(:fade-b -3.2)
|
|
(:accel-y (meters 0.0001) (meters 0.000033333334))
|
|
(:friction 0.97)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2))
|
|
(:next-time (seconds 0.067))
|
|
(:next-launcher 1736)
|
|
)
|
|
)
|
|
|
|
(defpart 1736
|
|
:init-specs ((:fade-r 0.0) (:fade-g 0.0) (:fade-b 0.0) (:fade-a -0.64 -0.64))
|
|
)
|
|
|
|
(defpartgroup group-terraformer-mine-dust
|
|
:id 432
|
|
:flags (sp0 sp4)
|
|
:bounds (static-bspherem 0 0 0 8)
|
|
:parts ((sp-item 1737 :flags (sp7) :period (seconds 2) :length (seconds 0.067)))
|
|
)
|
|
|
|
(defpart 1737
|
|
:init-specs ((:texture (big-cloud level-default-sprite))
|
|
(:birth-func 'birth-func-texture-group)
|
|
(:num 10.0)
|
|
(:scale-x (meters 1) (meters 0.25))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 140.0)
|
|
(:g 120.0)
|
|
(:b 90.0)
|
|
(:a 32.0 32.0)
|
|
(:vel-y (meters 0.016666668) (meters 0.006666667))
|
|
(:scalevel-x (meters 0.06666667) (meters 0.06666667))
|
|
(:rotvel-z (degrees -0.2) (degrees 0.4))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a -0.053333335 -0.053333335)
|
|
(:friction 0.95 0.04)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13))
|
|
(:userdata :data (new 'static 'boxed-array :type int32 10 1 0 #x40a000 #x409b00))
|
|
(:next-time (seconds 0.167))
|
|
(:next-launcher 1738)
|
|
(:conerot-x (degrees 80) (degrees 20))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
(defpart 1738
|
|
:init-specs ((:scalevel-x (meters 0.013333334) (meters 0.02)) (:scalevel-y :copy scalevel-x))
|
|
)
|
|
|
|
(defpartgroup group-terraformer-stomp-foot
|
|
:id 433
|
|
:flags (sp0 sp4)
|
|
:bounds (static-bspherem 0 0 0 8)
|
|
:parts ((sp-item 1739 :flags (sp7) :period (seconds 2) :length (seconds 0.167)))
|
|
)
|
|
|
|
(defpart 1739
|
|
:init-specs ((:texture (big-cloud level-default-sprite))
|
|
(:birth-func 'birth-func-texture-group)
|
|
(:num 20.0)
|
|
(:x (meters 10))
|
|
(:scale-x (meters 4) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 140.0)
|
|
(:g 120.0)
|
|
(:b 90.0)
|
|
(:a 32.0 32.0)
|
|
(:vel-x (meters 0.33333334) (meters 0.33333334))
|
|
(:scalevel-x (meters 0.06666667) (meters 0.06666667))
|
|
(:rotvel-z (degrees -0.1) (degrees 0.2))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a -0.10666667 -0.10666667)
|
|
(:accel-y (meters 0.002))
|
|
(:friction 0.9)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 launch-along-z))
|
|
(:userdata :data (new 'static 'boxed-array :type int32 10 1 0 #x40a000 #x409b00))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
(defpartgroup group-terraformer-lift-foot
|
|
:id 434
|
|
:flags (sp0 sp4)
|
|
:bounds (static-bspherem 0 0 0 8)
|
|
:parts ((sp-item 1740 :flags (sp7) :period (seconds 2) :length (seconds 0.067)))
|
|
)
|
|
|
|
(defpart 1740
|
|
:init-specs ((:texture (big-cloud level-default-sprite))
|
|
(:birth-func 'birth-func-flip-based-on-scale)
|
|
(:num 10.0)
|
|
(:x (meters 10) (meters 10))
|
|
(:y (meters 0))
|
|
(:scale-x (meters -12) 1 (meters 24))
|
|
(:scale-y :copy scale-x)
|
|
(:r 140.0)
|
|
(:g 120.0)
|
|
(:b 90.0)
|
|
(:a 32.0 32.0)
|
|
(:vel-y (meters -0.016666668) (meters -0.26666668))
|
|
(:scalevel-y (meters 0.016666668) (meters 0.033333335))
|
|
(:fade-a -0.053333335)
|
|
(:accel-y (meters -0.0013333333))
|
|
(:friction 0.9 0.08)
|
|
(:timer (seconds 4))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 launch-along-z))
|
|
(:conerot-z (degrees 190))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
(defpartgroup group-terraformer-foot-mark
|
|
:id 435
|
|
:flags (sp0 sp1)
|
|
:bounds (static-bspherem 0 0 0 30)
|
|
:parts ((sp-item 1741 :flags (is-3d sp3 sp7)))
|
|
)
|
|
|
|
(defpart 1741
|
|
:init-specs ((:texture (crack01 desert-sprite))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2) (meters 2))
|
|
(:scale-y (meters 2) (meters 2))
|
|
(:r 64.0 64.0)
|
|
(:g :copy r)
|
|
(:b :copy r)
|
|
(:a 0.0)
|
|
(:scalevel-x (meters 0.033333335) (meters 0.5))
|
|
(:scalevel-y (meters 0.033333335) (meters 0.06666667))
|
|
(:fade-a 2.56 0.85333335)
|
|
(:timer (seconds 10))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-4 left-multiply-quat))
|
|
(:next-time (seconds 0.085))
|
|
(:next-launcher 1742)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
(defpart 1742
|
|
:init-specs ((:scalevel-x (meters 0))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a 0.0)
|
|
(:next-time (seconds 2))
|
|
(:next-launcher 1743)
|
|
)
|
|
)
|
|
|
|
(defpart 1743
|
|
:init-specs ((:fade-a -0.08533333))
|
|
)
|
|
|
|
(defpartgroup group-terraformer-foot-sand-drop
|
|
:id 436
|
|
:flags (sp0 sp4)
|
|
:bounds (static-bspherem 0 0 0 12)
|
|
:parts ((sp-item 1744 :flags (sp7)) (sp-item 1745 :flags (sp7)))
|
|
)
|
|
|
|
(defpart 1744
|
|
:init-specs ((:texture (ceiling-dust desert-sprite))
|
|
(:birth-func 'birth-func-texture-group)
|
|
(:num 0.5 1.0)
|
|
(:x (meters -20) (meters 40))
|
|
(:y (meters 0))
|
|
(:z (meters -20) (meters 40))
|
|
(:scale-x (meters 10) (meters 10))
|
|
(:scale-y (meters 8) (meters 3))
|
|
(:r 140.0)
|
|
(:g 120.0)
|
|
(:b 90.0)
|
|
(:a 0.0)
|
|
(:scalevel-x (meters 0.006666667) (meters 0.006666667))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a 0.32 0.64)
|
|
(:accel-y (meters -0.0016666667))
|
|
(:friction 0.97 0.01)
|
|
(:timer (seconds 4))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 launch-along-z))
|
|
(:userdata :data (new 'static 'boxed-array :type int32 10 1 0 #x40a000 #x67500d00))
|
|
(:next-time (seconds 0.335))
|
|
(:next-launcher 1746)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
(defpart 1746
|
|
:init-specs ((:fade-a -0.21333334 -0.11636364))
|
|
)
|
|
|
|
(defpart 1745
|
|
:init-specs ((:texture (ceiling-dust desert-sprite))
|
|
(:birth-func 'birth-func-texture-group)
|
|
(:num 0.2 1.0)
|
|
(:x (meters -20) (meters 40))
|
|
(:y (meters 0))
|
|
(:z (meters -20) (meters 40))
|
|
(:scale-x (meters 0.3) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 140.0)
|
|
(:g 120.0)
|
|
(:b 90.0)
|
|
(:a 128.0)
|
|
(:rotvel-z (degrees -2) (degrees 4))
|
|
(:accel-y (meters -0.0033333334) (meters -0.00066666666))
|
|
(:timer (seconds 4))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 launch-along-z))
|
|
(:userdata :data (new 'static 'boxed-array :type int32
|
|
10
|
|
1
|
|
0
|
|
#x408b00
|
|
#x408c00
|
|
#x40a100
|
|
#x40a200
|
|
#x40a300
|
|
#x40a400
|
|
#x40a500
|
|
#x40a600
|
|
#x40a700
|
|
#x40a800
|
|
#x40a900
|
|
#x40aa00
|
|
#x40ab00
|
|
#x40ac00
|
|
#x40ad00
|
|
#x40ae00
|
|
)
|
|
)
|
|
(:next-time (seconds 0.335))
|
|
(:next-launcher 1746)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
(defpart 1747
|
|
:init-specs ((:texture (radial-gradient-yellow level-default-sprite))
|
|
(:num 1.0)
|
|
(:scale-x (meters 15))
|
|
(:rot-x (degrees 11.25))
|
|
(:scale-y :copy scale-x)
|
|
(:r 32.0 32.0)
|
|
(:g 0.0)
|
|
(:b 255.0)
|
|
(:a 64.0 64.0)
|
|
(:omega (degrees 9011.25))
|
|
(:rotvel-z (degrees 0.3))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 2048.0)
|
|
)
|
|
)
|
|
|
|
(defpartgroup group-terraformer-foot-splash
|
|
:id 437
|
|
:flags (sp0 sp4)
|
|
:bounds (static-bspherem 0 0 0 30)
|
|
:parts ((sp-item 1748 :flags (sp7) :period (seconds 2) :length (seconds 0.2))
|
|
(sp-item 1749 :flags (sp7) :period (seconds 2) :length (seconds 0.2))
|
|
(sp-item 1750 :flags (sp7) :period (seconds 2) :length (seconds 0.067) :offset 125)
|
|
(sp-item 1751 :flags (is-3d sp7) :period (seconds 2) :length (seconds 0.067))
|
|
)
|
|
)
|
|
|
|
(defpart 1748
|
|
:init-specs ((:texture (big-cloud level-default-sprite))
|
|
(:birth-func 'birth-func-texture-group)
|
|
(:num 40.0)
|
|
(:x (meters 10))
|
|
(:scale-x (meters 4) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 120.0 80.0)
|
|
(:g :copy r)
|
|
(:b :copy r)
|
|
(:a 64.0 64.0)
|
|
(:vel-x (meters 0.16666667) (meters 0.16666667))
|
|
(:scalevel-x (meters 0.06666667) (meters 0.06666667))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a -0.21333334 -0.21333334)
|
|
(:accel-y (meters -0.0033333334))
|
|
(:friction 0.95)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 launch-along-z))
|
|
(:userdata :data (new 'static 'boxed-array :type int32 10 1 0 #x40a000 #x406500))
|
|
(:conerot-z (degrees -40) (degrees 80))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
(defpart 1749
|
|
: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.16666667))
|
|
(:friction 0.96)
|
|
(:timer (seconds 1))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 set-conerot))
|
|
(:userdata 0.0)
|
|
(:func 'live-func-curve)
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *range-ter-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)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *range-ter-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)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *range-ter-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 5.0 :y 10.0 :z 11.0 :w 12.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 5.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *range-ter-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 10.0 :y 20.0 :z 21.0 :w 22.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 10.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *curve-ter-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)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *curve-ter-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)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *curve-ter-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)
|
|
)
|
|
)
|
|
)
|
|
|
|
(define *part-ter-water-splash-curve-settings*
|
|
(new 'static 'particle-curve-settings :lifetime-base (seconds 0.95) :lifetime-offset (seconds 0.1))
|
|
)
|
|
|
|
(set! (-> *part-id-table* 1749 init-specs 13 initial-valuef)
|
|
(the-as float *part-ter-water-splash-curve-settings*)
|
|
)
|
|
|
|
(set! (-> *part-ter-water-splash-curve-settings* color-start) *range-ter-wsplash-color*)
|
|
|
|
(set! (-> *part-ter-water-splash-curve-settings* alpha-start) *range-ter-wsplash-alpha*)
|
|
|
|
(set! (-> *part-ter-water-splash-curve-settings* scale-x-start) *range-ter-wsplash-scale-x*)
|
|
|
|
(set! (-> *part-ter-water-splash-curve-settings* scale-y-start) *range-ter-wsplash-scale-y*)
|
|
|
|
(set! (-> *part-ter-water-splash-curve-settings* r-scalar) #f)
|
|
|
|
(set! (-> *part-ter-water-splash-curve-settings* g-scalar) #f)
|
|
|
|
(set! (-> *part-ter-water-splash-curve-settings* b-scalar) #f)
|
|
|
|
(set! (-> *part-ter-water-splash-curve-settings* a-scalar) *curve-ter-wsplash-alpha*)
|
|
|
|
(set! (-> *part-ter-water-splash-curve-settings* scale-x-scalar) *curve-ter-wsplash-scale-x*)
|
|
|
|
(set! (-> *part-ter-water-splash-curve-settings* scale-y-scalar) *curve-ter-wsplash-scale-y*)
|
|
|
|
(defpart 1750
|
|
: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 set-conerot))
|
|
(:userdata 0.0)
|
|
(:func 'live-func-curve)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *range-ter-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)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *range-ter-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)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *range-ter-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 10.0 :y 50.0 :z 51.0 :w 52.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 40.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *range-ter-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 10.0 :y 20.0 :z 21.0 :w 22.0)
|
|
:one-over-x-deltas (new 'static 'vector :x 10.0 :y 1.0 :z 1.0 :w 1.0)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *curve-ter-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)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *curve-ter-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)
|
|
)
|
|
)
|
|
)
|
|
|
|
(if #t
|
|
(set! *curve-ter-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)
|
|
)
|
|
)
|
|
)
|
|
|
|
(define *part-ter-water-splash-center-curve-settings*
|
|
(new 'static 'particle-curve-settings :lifetime-base (seconds 0.8) :lifetime-offset (seconds 0.4))
|
|
)
|
|
|
|
(set! (-> *part-id-table* 1750 init-specs 11 initial-valuef)
|
|
(the-as float *part-ter-water-splash-center-curve-settings*)
|
|
)
|
|
|
|
(set! (-> *part-ter-water-splash-center-curve-settings* color-start) *range-ter-splash-color*)
|
|
|
|
(set! (-> *part-ter-water-splash-center-curve-settings* alpha-start) *range-ter-splash-alpha*)
|
|
|
|
(set! (-> *part-ter-water-splash-center-curve-settings* scale-x-start) *range-ter-splash-scale-x*)
|
|
|
|
(set! (-> *part-ter-water-splash-center-curve-settings* scale-y-start) *range-ter-splash-scale-y*)
|
|
|
|
(set! (-> *part-ter-water-splash-center-curve-settings* r-scalar) #f)
|
|
|
|
(set! (-> *part-ter-water-splash-center-curve-settings* g-scalar) #f)
|
|
|
|
(set! (-> *part-ter-water-splash-center-curve-settings* b-scalar) #f)
|
|
|
|
(set! (-> *part-ter-water-splash-center-curve-settings* a-scalar) *curve-ter-splash-alpha*)
|
|
|
|
(set! (-> *part-ter-water-splash-center-curve-settings* scale-x-scalar) *curve-ter-splash-scale-x*)
|
|
|
|
(set! (-> *part-ter-water-splash-center-curve-settings* scale-y-scalar) *curve-ter-splash-scale-y*)
|
|
|
|
(defpart 1751
|
|
:init-specs ((:texture (splash-foam level-default-sprite))
|
|
(:num 0.6)
|
|
(:scale-x (meters 20) (meters 5))
|
|
(:rot-y (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 20) (meters 5))
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters 0.1) (meters 0.033333335))
|
|
(:scalevel-y (meters 0.1) (meters 0.033333335))
|
|
(:fade-a -0.21333334)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 left-multiply-quat set-conerot))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
(defpartgroup group-terraformer-lift-foot-from-water
|
|
:id 438
|
|
:flags (sp0 sp4)
|
|
:bounds (static-bspherem 0 0 0 30)
|
|
:parts ((sp-item 1749 :flags (sp7) :period (seconds 2) :length (seconds 0.2))
|
|
(sp-item 1750 :flags (sp7) :period (seconds 2) :length (seconds 0.067) :offset 125)
|
|
(sp-item 1751 :flags (is-3d sp7) :period (seconds 2) :length (seconds 0.067))
|
|
)
|
|
)
|
|
|
|
(defpartgroup group-terraformer-foot-water-drop
|
|
:id 439
|
|
:flags (sp0 sp4)
|
|
:bounds (static-bspherem 0 0 0 30)
|
|
:parts ((sp-item 1752 :flags (sp7) :period (seconds 2) :length (seconds 1.667)))
|
|
)
|
|
|
|
(defpart 1752
|
|
:init-specs ((:texture (water-drops level-default-sprite))
|
|
(:num 1.0 2.0)
|
|
(:x (meters -10) (meters 20))
|
|
(:y (meters 0))
|
|
(:z (meters -10) (meters 20))
|
|
(:scale-x (meters 4) (meters 4))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 80.0 120.0)
|
|
(:g :copy r)
|
|
(:b :copy r)
|
|
(:a 0.0)
|
|
(:omega (degrees 2.7))
|
|
(:scalevel-x (meters 0.006666667))
|
|
(:rotvel-z (degrees -0.2) (degrees 0.4))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a 0.21333334 0.42666668)
|
|
(:accel-y (meters -0.0016666667))
|
|
(:friction 0.99 0.01)
|
|
(:timer (seconds 4))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-13 launch-along-z))
|
|
(:func 'sparticle-motion-blur)
|
|
(:next-time (seconds 0.5))
|
|
(:next-launcher 1753)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
(defpart 1753
|
|
:init-specs ((:fade-a -0.21333334 -0.11636364))
|
|
)
|