2021-09-29 20:33:40 -04:00
|
|
|
;;-*-Lisp-*-
|
|
|
|
|
(in-package goal)
|
|
|
|
|
|
|
|
|
|
;; definition of type lavatube-part
|
|
|
|
|
(deftype lavatube-part (part-spawner)
|
|
|
|
|
()
|
|
|
|
|
:heap-base #x60
|
|
|
|
|
:method-count-assert 21
|
|
|
|
|
:size-assert #xd0
|
|
|
|
|
:flag-assert #x15006000d0
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
;; definition for method 3 of type lavatube-part
|
|
|
|
|
(defmethod inspect lavatube-part ((obj lavatube-part))
|
|
|
|
|
(let ((t9-0 (method-of-type part-spawner inspect)))
|
2021-12-04 16:06:01 -05:00
|
|
|
(t9-0 obj)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
obj
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 616) (new 'static 'sparticle-launch-group
|
|
|
|
|
:length 1
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-crust-20x20"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 1
|
|
|
|
|
(sp-item 2489 :fade-after (meters 140.0) :falloff-to (meters 140.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds (new 'static 'sphere :w 57344.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 617) (new 'static 'sparticle-launch-group
|
|
|
|
|
:length 1
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-lowlava-20x20"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 1
|
|
|
|
|
(sp-item 2490 :fade-after (meters 190.0) :falloff-to (meters 190.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y 49152.0 :w 196608.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2490)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-flt spt-num 0.1)
|
|
|
|
|
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
|
|
|
|
|
(sp-flt spt-y (meters 3.0))
|
|
|
|
|
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-flt spt-g 192.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-flt spt-vel-y (meters 0.04))
|
|
|
|
|
(sp-flt spt-scalevel-x (meters 0.0033333334))
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-g -0.6564103)
|
|
|
|
|
(sp-flt spt-fade-a 0.13333334)
|
|
|
|
|
(sp-int spt-timer 600)
|
|
|
|
|
(sp-cpuinfo-flags bit2)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 60 59 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2491)
|
|
|
|
|
(sp-flt spt-rotate-y (degrees 0.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2491)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
|
|
|
|
|
(sp-flt spt-fade-a 0.0)
|
|
|
|
|
(sp-int spt-next-time 75)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2492)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2492)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
|
|
|
|
|
(sp-flt spt-fade-r -1.28)
|
|
|
|
|
(sp-flt spt-fade-g 0.0)
|
|
|
|
|
(sp-flt spt-fade-b 0.42666668)
|
|
|
|
|
(sp-int spt-next-time 150)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2493)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2493)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
|
|
|
|
|
(sp-flt spt-fade-r 0.0)
|
|
|
|
|
(sp-flt spt-fade-g 0.0)
|
|
|
|
|
(sp-flt spt-fade-b 0.0)
|
|
|
|
|
(sp-flt spt-fade-a -0.035555556)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2489)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-flt spt-num 0.2)
|
|
|
|
|
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
|
|
|
|
|
(sp-flt spt-y (meters 0.0))
|
|
|
|
|
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-flt spt-g 192.0)
|
|
|
|
|
(sp-flt spt-b 128.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-flt spt-vel-y (meters 0.01))
|
|
|
|
|
(sp-flt spt-scalevel-x (meters 0.0033333334))
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-a 0.16)
|
|
|
|
|
(sp-int spt-timer 600)
|
|
|
|
|
(sp-cpuinfo-flags bit2)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 37 36 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2494)
|
|
|
|
|
(sp-flt spt-rotate-y (degrees 0.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2494)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
|
|
|
|
|
(sp-flt spt-fade-a 0.0)
|
|
|
|
|
(sp-int spt-next-time 75)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2496)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2496)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
|
|
|
|
|
(sp-flt spt-fade-r -0.85333335)
|
|
|
|
|
(sp-flt spt-fade-g -0.42666668)
|
|
|
|
|
(sp-int spt-next-time 150)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2497)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2497)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
|
|
|
|
|
(sp-flt spt-fade-r 0.0)
|
|
|
|
|
(sp-flt spt-fade-g 0.0)
|
|
|
|
|
(sp-flt spt-fade-a -0.026666667)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 629) (new 'static 'sparticle-launch-group
|
|
|
|
|
:length 1
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-crust-40x40"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 1
|
|
|
|
|
(sp-item 2529 :fade-after (meters 180.0) :falloff-to (meters 180.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds (new 'static 'sphere :w 131072.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 630) (new 'static 'sparticle-launch-group
|
|
|
|
|
:length 1
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-lowlava-40x40"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 1
|
|
|
|
|
(sp-item 2530 :fade-after (meters 200.0) :falloff-to (meters 200.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y 49152.0 :w 131072.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2530)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-flt spt-num 0.4)
|
|
|
|
|
(sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
|
|
|
|
|
(sp-flt spt-y (meters 3.0))
|
|
|
|
|
(sp-rnd-flt spt-z -81920.0 163840.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-flt spt-g 192.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-flt spt-vel-y (meters 0.04))
|
|
|
|
|
(sp-flt spt-scalevel-x (meters 0.0033333334))
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-g -0.6564103)
|
|
|
|
|
(sp-flt spt-fade-a 0.13333334)
|
|
|
|
|
(sp-int spt-timer 600)
|
|
|
|
|
(sp-cpuinfo-flags bit2)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 60 59 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2491)
|
|
|
|
|
(sp-flt spt-rotate-y (degrees 0.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2529)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-flt spt-num 0.8)
|
|
|
|
|
(sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
|
|
|
|
|
(sp-flt spt-y (meters 0.0))
|
|
|
|
|
(sp-rnd-flt spt-z -81920.0 163840.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-flt spt-g 192.0)
|
|
|
|
|
(sp-flt spt-b 128.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-flt spt-vel-y (meters 0.01))
|
|
|
|
|
(sp-flt spt-scalevel-x (meters 0.0033333334))
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-a 0.16)
|
|
|
|
|
(sp-int spt-timer 600)
|
|
|
|
|
(sp-cpuinfo-flags bit2)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 37 36 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2494)
|
|
|
|
|
(sp-flt spt-rotate-y (degrees 0.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 621)
|
|
|
|
|
(new 'static 'sparticle-launch-group
|
|
|
|
|
:length 4
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-green-smoke-down-1"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 4
|
|
|
|
|
(sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
|
|
|
|
|
(sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
|
|
|
|
|
(sp-item 2516 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
|
|
|
|
|
(sp-item 2517 :fade-after (meters 100.0) :falloff-to (meters 100.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y -24576.0 :w 32768.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 622)
|
|
|
|
|
(new 'static 'sparticle-launch-group
|
|
|
|
|
:length 4
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-green-smoke-down-2"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 4
|
|
|
|
|
(sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1536 :length 75)
|
|
|
|
|
(sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 596 :length 96)
|
|
|
|
|
(sp-item 2516 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1070 :length 60)
|
|
|
|
|
(sp-item 2517 :fade-after (meters 100.0) :falloff-to (meters 100.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y -24576.0 :w 32768.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 623)
|
|
|
|
|
(new 'static 'sparticle-launch-group
|
|
|
|
|
:length 4
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-green-smoke-down-3"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 4
|
|
|
|
|
(sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1161 :length 75)
|
|
|
|
|
(sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 869 :length 96)
|
|
|
|
|
(sp-item 2516 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1029 :length 60)
|
|
|
|
|
(sp-item 2517 :fade-after (meters 100.0) :falloff-to (meters 100.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y -24576.0 :w 32768.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2517) (new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 25
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 0.0 0.5 1.0)
|
|
|
|
|
(sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
|
|
|
|
|
(sp-flt spt-y (meters -1.0))
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 0.0)
|
|
|
|
|
(sp-flt spt-g 255.0)
|
|
|
|
|
(sp-rnd-flt spt-b 89.0 60.0 1.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.01) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-a 4.266667)
|
|
|
|
|
(sp-int spt-timer 300)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 20 4 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2518)
|
|
|
|
|
(sp-flt spt-conerot-x (degrees 180.0))
|
|
|
|
|
(sp-flt spt-conerot-y (degrees 0.0))
|
|
|
|
|
(sp-flt spt-conerot-z (degrees 0.0))
|
|
|
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2518)
|
|
|
|
|
(new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.47407407) (sp-end))
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2516)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 0.7 0.6 1.0)
|
|
|
|
|
(new 'static 'sp-field-init-spec
|
|
|
|
|
:field (sp-field-id spt-sound)
|
|
|
|
|
:flags (sp-flag plain-v2)
|
|
|
|
|
:sound
|
|
|
|
|
(new 'static 'sound-spec
|
|
|
|
|
:mask #x1
|
|
|
|
|
:num 0.05
|
|
|
|
|
:group #x1
|
|
|
|
|
:sound-name (static-sound-name "steam-release")
|
|
|
|
|
:volume #x400
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
(sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
|
|
|
|
|
(sp-flt spt-y (meters -1.0))
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 0.0)
|
|
|
|
|
(sp-flt spt-g 255.0)
|
|
|
|
|
(sp-rnd-flt spt-b 89.0 60.0 1.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters 0.16) (meters 0.08) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.01) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-a 4.266667)
|
|
|
|
|
(sp-rnd-flt spt-accel-y 0.68266666 0.13653333 1.0)
|
|
|
|
|
(sp-flt spt-friction 0.9)
|
|
|
|
|
(sp-int spt-timer 300)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 20 4 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2518)
|
|
|
|
|
(sp-flt spt-conerot-x (degrees 180.0))
|
|
|
|
|
(sp-flt spt-conerot-y (degrees 0.0))
|
|
|
|
|
(sp-flt spt-conerot-z (degrees 0.0))
|
|
|
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
)
|
|
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 624)
|
|
|
|
|
(new 'static 'sparticle-launch-group
|
|
|
|
|
:length 4
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-green-smoke-angle-1"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 4
|
|
|
|
|
(sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1050 :length 75)
|
|
|
|
|
(sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 886 :length 96)
|
|
|
|
|
(sp-item 2519 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1276 :length 60)
|
|
|
|
|
(sp-item 2520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y -24576.0 :w 32768.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 625)
|
|
|
|
|
(new 'static 'sparticle-launch-group
|
|
|
|
|
:length 4
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-green-smoke-angle-2"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 4
|
|
|
|
|
(sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1830 :length 75)
|
|
|
|
|
(sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 970 :length 96)
|
|
|
|
|
(sp-item 2519 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1102 :length 60)
|
|
|
|
|
(sp-item 2520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y -24576.0 :w 32768.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 626)
|
|
|
|
|
(new 'static 'sparticle-launch-group
|
|
|
|
|
:length 4
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-green-smoke-angle-3"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 4
|
|
|
|
|
(sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1530 :length 75)
|
|
|
|
|
(sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1189 :length 96)
|
|
|
|
|
(sp-item 2519 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 862 :length 60)
|
|
|
|
|
(sp-item 2520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y -24576.0 :w 32768.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2520) (new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 23
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 0.0 0.5 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 5.0) (meters 3.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 0.0)
|
|
|
|
|
(sp-flt spt-g 255.0)
|
|
|
|
|
(sp-rnd-flt spt-b 89.0 60.0 1.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.01) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-a 4.266667)
|
|
|
|
|
(sp-rnd-flt spt-accel-y 0.68266666 2.048 1.0)
|
|
|
|
|
(sp-int spt-timer 300)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 20 4 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2518)
|
|
|
|
|
(sp-flt spt-conerot-x (degrees 0.0))
|
|
|
|
|
(sp-flt spt-conerot-y (degrees 0.0))
|
|
|
|
|
(sp-flt spt-conerot-z (degrees 0.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2519) (new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 25
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 0.4 0.3 1.0)
|
|
|
|
|
(new 'static 'sp-field-init-spec
|
|
|
|
|
:field (sp-field-id spt-sound)
|
|
|
|
|
:flags (sp-flag plain-v2)
|
|
|
|
|
:sound
|
|
|
|
|
(new 'static 'sound-spec
|
|
|
|
|
:mask #x1
|
|
|
|
|
:num 0.05
|
|
|
|
|
:group #x1
|
|
|
|
|
:sound-name (static-sound-name "steam-release")
|
|
|
|
|
:volume #x400
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 0.0)
|
|
|
|
|
(sp-flt spt-g 255.0)
|
|
|
|
|
(sp-rnd-flt spt-b 89.0 60.0 1.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters 0.16) (meters 0.08) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.006666667) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-a 4.266667)
|
|
|
|
|
(sp-rnd-flt spt-accel-y 1.3653333 4.096 1.0)
|
|
|
|
|
(sp-flt spt-friction 0.9)
|
|
|
|
|
(sp-int spt-timer 300)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 20 4 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2518)
|
|
|
|
|
(sp-flt spt-conerot-x (degrees 0.0))
|
|
|
|
|
(sp-flt spt-conerot-y (degrees 0.0))
|
|
|
|
|
(sp-flt spt-conerot-z (degrees 0.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
)
|
|
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 627) (new 'static 'sparticle-launch-group
|
|
|
|
|
:length 2
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-fountain"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 2
|
|
|
|
|
(sp-item 2521 :fade-after (meters 100.0) :falloff-to (meters 100.0))
|
|
|
|
|
(sp-item 2522 :fade-after (meters 100.0) :falloff-to (meters 100.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y -40960.0 :w 49152.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2522)
|
|
|
|
|
(new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 21
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 1.0 1.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-y (meters -0.75) (meters 0.25) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-rnd-flt spt-g 0.0 128.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-a 64.0 64.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters -0.00033333333) (meters 0.00033333333) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-rnd-flt spt-accel-y -5.4613333 -5.4613333 1.0)
|
|
|
|
|
(sp-flt spt-friction 0.98)
|
|
|
|
|
(sp-int spt-timer 450)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-conerot-y (degrees -70.0) (degrees 50.000004) 1.0)
|
|
|
|
|
(sp-flt spt-conerot-z (degrees 0.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2521)
|
|
|
|
|
(new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 22
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 0.0 0.1 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-flt spt-g 192.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.01) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0013333333) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-g -0.42666668)
|
|
|
|
|
(sp-flt spt-fade-a 0.16)
|
|
|
|
|
(sp-int spt-timer 900)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 210 89 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2523)
|
|
|
|
|
(sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-conerot-y (degrees -60.0) (degrees 30.0) 1.0)
|
|
|
|
|
(sp-flt spt-conerot-z (degrees 0.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2523)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
|
|
|
|
|
(sp-flt spt-fade-r -0.64)
|
|
|
|
|
(sp-flt spt-fade-g 0.0)
|
|
|
|
|
(sp-flt spt-fade-b 0.21333334)
|
|
|
|
|
(sp-flt spt-fade-a -0.08)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 210 89 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2524)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2524)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
|
|
|
|
|
(sp-flt spt-fade-r 0.0)
|
|
|
|
|
(sp-flt spt-fade-g 0.0)
|
|
|
|
|
(sp-flt spt-fade-b 0.0)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 628) (new 'static 'sparticle-launch-group
|
|
|
|
|
:length 1
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-vents"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 1
|
|
|
|
|
(sp-item 2525 :fade-after (meters 160.0) :falloff-to (meters 160.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds (new 'static 'sphere :w 49152.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2525)
|
|
|
|
|
(new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 23
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 0.0 0.3 1.0)
|
|
|
|
|
(sp-flt spt-y (meters -1.0))
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-flt spt-g 192.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.01) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0013333333) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-g -0.42666668)
|
|
|
|
|
(sp-flt spt-fade-a 0.32)
|
|
|
|
|
(sp-int spt-timer 600)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 90 59 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2526)
|
|
|
|
|
(sp-flt spt-conerot-x (degrees 0.0))
|
|
|
|
|
(sp-flt spt-conerot-y (degrees 0.0))
|
|
|
|
|
(sp-flt spt-conerot-z (degrees 0.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2526)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
|
|
|
|
|
(sp-flt spt-fade-r -1.28)
|
|
|
|
|
(sp-flt spt-fade-g 0.0)
|
|
|
|
|
(sp-flt spt-fade-b 0.42666668)
|
|
|
|
|
(sp-flt spt-fade-a -0.10666667)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 90 59 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2527)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2527)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
|
|
|
|
|
(sp-flt spt-fade-r 0.0)
|
|
|
|
|
(sp-flt spt-fade-g 0.0)
|
|
|
|
|
(sp-flt spt-fade-b 0.0)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 631) (new 'static 'sparticle-launch-group
|
|
|
|
|
:length 1
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-heavy-smoke"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 1
|
|
|
|
|
(sp-item 2531 :fade-after (meters 140.0) :falloff-to (meters 140.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y 40960.0 :w 90112.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2531)
|
|
|
|
|
(new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 22
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 0.0 0.4 1.0)
|
|
|
|
|
(sp-rnd-flt spt-x (meters -16.0) (meters 32.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-z -65536.0 131072.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 12.0) (meters 12.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-flt spt-g 192.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-g -0.42666668)
|
|
|
|
|
(sp-flt spt-fade-a 0.16)
|
|
|
|
|
(sp-int spt-timer 900)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 210 89 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2523)
|
|
|
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2532)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
|
|
|
|
|
(sp-flt spt-fade-r -0.64)
|
|
|
|
|
(sp-flt spt-fade-g 0.0)
|
|
|
|
|
(sp-flt spt-fade-b 0.21333334)
|
|
|
|
|
(sp-flt spt-fade-a -0.08)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 210 89 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2524)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2533)
|
|
|
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
|
|
|
|
|
(sp-flt spt-fade-r 0.0)
|
|
|
|
|
(sp-flt spt-fade-g 0.0)
|
|
|
|
|
(sp-flt spt-fade-b 0.0)
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 632) (new 'static 'sparticle-launch-group
|
|
|
|
|
:length 2
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-heavy-smoke-start"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 2
|
|
|
|
|
(sp-item 2534 :fade-after (meters 140.0) :falloff-to (meters 140.0))
|
|
|
|
|
(sp-item 2535 :fade-after (meters 200.0) :falloff-to (meters 200.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y 40960.0 :w 90112.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2534)
|
|
|
|
|
(new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 22
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 1.0 5.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-x (meters -14.0) (meters 28.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-y (meters 8.0) (meters 8.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-z 16384.0 4096.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-rnd-flt spt-g 64.0 64.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-a 64.0 64.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters -0.04) (meters -0.013333334) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters -0.00033333333) (meters 0.00033333333) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-rnd-flt spt-accel-y -8.192 -2.7306666 1.0)
|
|
|
|
|
(sp-flt spt-friction 0.98)
|
|
|
|
|
(sp-int spt-timer 450)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-flt spt-conerot-x (degrees 60.0))
|
|
|
|
|
(sp-flt spt-rotate-y (degrees 90.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2535)
|
|
|
|
|
(new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 23
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 0.4 0.8 1.0)
|
|
|
|
|
(sp-rnd-flt spt-x (meters -16.0) (meters 32.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-y (meters -14.0) (meters 30.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-z -32768.0 32768.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 12.0) (meters 12.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-flt spt-g 192.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-g -0.42666668)
|
|
|
|
|
(sp-flt spt-fade-a 0.16)
|
|
|
|
|
(sp-int spt-timer 900)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 210 89 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2523)
|
|
|
|
|
(sp-flt spt-rotate-y (degrees 90.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-group-id-table* 633) (new 'static 'sparticle-launch-group
|
|
|
|
|
:length 2
|
|
|
|
|
:duration #xbb8
|
|
|
|
|
:linger-duration #x5dc
|
|
|
|
|
:name "group-lavatube-heavy-smoke-end"
|
|
|
|
|
:launcher
|
|
|
|
|
(new 'static 'inline-array sparticle-group-item 2
|
|
|
|
|
(sp-item 2536 :fade-after (meters 140.0) :falloff-to (meters 140.0))
|
|
|
|
|
(sp-item 2537 :fade-after (meters 200.0) :falloff-to (meters 200.0))
|
|
|
|
|
)
|
|
|
|
|
:bounds
|
|
|
|
|
(new 'static 'sphere :y 40960.0 :w 90112.0)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2536)
|
|
|
|
|
(new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 22
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 1.0 3.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-y (meters 0.0) (meters 8.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-z 8192.0 4096.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-rnd-flt spt-g 64.0 64.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-a 64.0 64.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters -0.04) (meters -0.013333334) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters -0.00033333333) (meters 0.00033333333) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-rnd-flt spt-accel-y -8.192 -2.7306666 1.0)
|
|
|
|
|
(sp-flt spt-friction 0.98)
|
|
|
|
|
(sp-int spt-timer 450)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-flt spt-conerot-x (degrees 60.0))
|
|
|
|
|
(sp-flt spt-rotate-y (degrees 240.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
2021-09-29 20:33:40 -04:00
|
|
|
|
|
|
|
|
;; failed to figure out what this is:
|
2021-12-04 16:06:01 -05:00
|
|
|
(set! (-> *part-id-table* 2537)
|
|
|
|
|
(new 'static 'sparticle-launcher
|
|
|
|
|
:init-specs
|
|
|
|
|
(new 'static 'inline-array sp-field-init-spec 23
|
|
|
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
|
|
|
(sp-rnd-flt spt-num 0.2 0.4 1.0)
|
|
|
|
|
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-y (meters -22.0) (meters 30.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-z -32768.0 32768.0 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scale-x (meters 12.0) (meters 12.0) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
|
|
|
(sp-flt spt-r 256.0)
|
|
|
|
|
(sp-flt spt-g 192.0)
|
|
|
|
|
(sp-flt spt-a 0.0)
|
|
|
|
|
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
|
|
|
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
|
|
|
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
|
|
|
(sp-flt spt-fade-g -0.42666668)
|
|
|
|
|
(sp-flt spt-fade-a 0.16)
|
|
|
|
|
(sp-int spt-timer 900)
|
|
|
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
|
|
|
(sp-int-plain-rnd spt-next-time 210 89 1)
|
|
|
|
|
(sp-launcher-by-id spt-next-launcher 2523)
|
|
|
|
|
(sp-flt spt-rotate-y (degrees 180.0))
|
|
|
|
|
(sp-end)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
)
|
