mirror of
https://github.com/open-goal/jak-project
synced 2026-08-19 06:02:15 -04:00
water111
dbc266c00b
* begin work on improved pretty printer * update ref * finish pretty printer * force line break for defstate
872 lines
47 KiB
Common Lisp
Vendored
Generated
872 lines
47 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-group-id-table* 188) (new 'static 'sparticle-launch-group
|
|
:length 66
|
|
:duration #xbb8
|
|
:linger-duration #x5dc
|
|
:flags (sp-group-flag screen-space)
|
|
:name "group-rain-screend-drop-real"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 66
|
|
(sp-item 18 :binding 19)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 19 :flags (start-dead launch-asap) :binding 20)
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 20 :flags (start-dead launch-asap))
|
|
(sp-item 21 :binding 22)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 22 :flags (start-dead launch-asap) :binding 23)
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
(sp-item 23 :flags (start-dead launch-asap))
|
|
)
|
|
:bounds (new 'static 'sphere :w 65536.0)
|
|
)
|
|
)
|
|
|
|
;; definition for symbol group-rain-screend-drop, type sparticle-launch-group
|
|
(define group-rain-screend-drop (-> *part-group-id-table* 188))
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 21) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 17
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
|
|
(sp-flt spt-num 0.1)
|
|
(sp-rnd-flt spt-x (meters -4.5) (meters 9.0) 1.0)
|
|
(sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
|
|
(sp-flt spt-scale-x (meters 2.5))
|
|
(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 128.0)
|
|
(sp-flt spt-g 128.0)
|
|
(sp-flt spt-b 128.0)
|
|
(sp-flt spt-a 12.0)
|
|
(sp-flt spt-scalevel-x (meters 0.16666667))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-a -0.8)
|
|
(sp-int spt-timer 10)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 22) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 17
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 1.5))
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 128.0)
|
|
(sp-flt spt-g 128.0)
|
|
(sp-flt spt-b 255.0)
|
|
(sp-flt spt-a 20.0)
|
|
(sp-flt spt-scalevel-x (meters 0.033333335))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-a -0.8)
|
|
(sp-flt spt-accel-y -2.7306666)
|
|
(sp-int spt-timer 270)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-int spt-next-time 15)
|
|
(sp-launcher-by-id spt-next-launcher 24)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 24)
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
|
|
(sp-flt spt-scalevel-x (meters 0.004166667))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-a -0.06666667)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 23)
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
|
|
(sp-flt spt-num 1.0)
|
|
(sp-int spt-rot-x 12)
|
|
(sp-flt spt-r 4096.0)
|
|
(sp-flt spt-g 3276.8)
|
|
(sp-flt spt-b 3276.8)
|
|
(sp-flt spt-fade-r 6.068148)
|
|
(sp-flt spt-fade-g 68.26667)
|
|
(sp-flt spt-fade-b 3.034074)
|
|
(sp-flt spt-accel-y -2.7306666)
|
|
(sp-int spt-timer 270)
|
|
(sp-cpuinfo-flags aux-list)
|
|
(sp-int spt-next-time 30)
|
|
(sp-launcher-by-id spt-next-launcher 25)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 25)
|
|
(new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-g -5.1200004) (sp-end))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 18) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 17
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
|
|
(sp-flt spt-num 0.1)
|
|
(sp-rnd-flt spt-x (meters -4.5) (meters 9.0) 1.0)
|
|
(sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
|
|
(sp-flt spt-scale-x (meters 4.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 128.0)
|
|
(sp-flt spt-g 128.0)
|
|
(sp-flt spt-b 128.0)
|
|
(sp-flt spt-a 12.0)
|
|
(sp-flt spt-scalevel-x (meters 0.26666668))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-a -0.8)
|
|
(sp-int spt-timer 10)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 19) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 17
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 2.6))
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 128.0)
|
|
(sp-flt spt-g 128.0)
|
|
(sp-flt spt-b 255.0)
|
|
(sp-flt spt-a 20.0)
|
|
(sp-flt spt-scalevel-x (meters 0.06666667))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-a -0.8)
|
|
(sp-flt spt-accel-y -2.7306666)
|
|
(sp-int spt-timer 270)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-int spt-next-time 15)
|
|
(sp-launcher-by-id spt-next-launcher 26)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 26)
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
|
|
(sp-flt spt-scalevel-x (meters 0.008333334))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-a -0.06666667)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 20)
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
|
|
(sp-flt spt-num 1.0)
|
|
(sp-int spt-rot-x 24)
|
|
(sp-flt spt-r 12288.0)
|
|
(sp-flt spt-g 6553.6)
|
|
(sp-flt spt-b 6553.6)
|
|
(sp-flt spt-fade-r 12.136296)
|
|
(sp-flt spt-fade-g 136.53334)
|
|
(sp-flt spt-fade-b 6.068148)
|
|
(sp-flt spt-accel-y -2.7306666)
|
|
(sp-int spt-timer 270)
|
|
(sp-cpuinfo-flags aux-list)
|
|
(sp-int spt-next-time 30)
|
|
(sp-launcher-by-id spt-next-launcher 27)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 27)
|
|
(new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-g -10.240001) (sp-end))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-group-id-table* 34)
|
|
(new 'static 'sparticle-launch-group
|
|
:length 3
|
|
:duration #xbb8
|
|
:linger-duration #x5dc
|
|
:flags (sp-group-flag always-draw)
|
|
:name "group-stars"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 3 (sp-item 28) (sp-item 29) (sp-item 30))
|
|
:bounds (new 'static 'sphere :w 32768.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 28) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 18
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 256.0)
|
|
(sp-flt spt-g 256.0)
|
|
(sp-flt spt-b 256.0)
|
|
(sp-flt spt-a 0.0)
|
|
(sp-flt spt-fade-a 0.42666668)
|
|
(sp-int spt-timer -1)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-int-plain-rnd spt-next-time 60 239 1)
|
|
(sp-launcher-by-id spt-next-launcher 31)
|
|
(sp-rnd-flt spt-conerot-x (degrees -89.0) (degrees 178.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
|
|
(sp-flt spt-conerot-radius (meters 5000.0))
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 31)
|
|
(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 29999700)
|
|
(sp-launcher-by-id spt-next-launcher 32)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 32)
|
|
(new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.42666668) (sp-end))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 29) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 18
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 256.0)
|
|
(sp-flt spt-g 256.0)
|
|
(sp-flt spt-b 256.0)
|
|
(sp-flt spt-a 0.0)
|
|
(sp-flt spt-fade-a 0.42666668)
|
|
(sp-int spt-timer -1)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-int-plain-rnd spt-next-time 60 239 1)
|
|
(sp-launcher-by-id spt-next-launcher 31)
|
|
(sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 59.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 2880.0) 1.0)
|
|
(sp-flt spt-conerot-radius (meters 5000.0))
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 30) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 18
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 128.0)
|
|
(sp-flt spt-g 128.0)
|
|
(sp-flt spt-b 128.0)
|
|
(sp-flt spt-a 0.0)
|
|
(sp-flt spt-fade-a 0.42666668)
|
|
(sp-int spt-timer -1)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-int-plain-rnd spt-next-time 60 239 1)
|
|
(sp-launcher-by-id spt-next-launcher 31)
|
|
(sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 29.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 5760.0) 1.0)
|
|
(sp-flt spt-conerot-radius (meters 5000.0))
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 33) (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-flt spt-num 4.0)
|
|
(sp-rnd-flt spt-x (meters 10.0) (meters 10.0) 1.0)
|
|
(sp-rnd-flt spt-y (meters 2.0) (meters 14.0) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
|
|
(sp-int spt-rot-x 4)
|
|
(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 255.0)
|
|
(sp-flt spt-g 255.0)
|
|
(sp-flt spt-b 255.0)
|
|
(sp-flt spt-a 0.0)
|
|
(sp-rnd-flt spt-vel-y (meters -0.01) (meters -0.0033333334) 1.0)
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
|
|
(sp-flt spt-fade-a 0.85333335)
|
|
(sp-int spt-timer 1500)
|
|
(sp-cpuinfo-flags bit2 bit12 bit14)
|
|
(sp-int-plain-rnd spt-next-time 75 74 1)
|
|
(sp-launcher-by-id spt-next-launcher 35)
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 34) (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-flt spt-num 0.0)
|
|
(sp-rnd-flt spt-x (meters 0.0) (meters 20.0) 1.0)
|
|
(sp-flt spt-y (meters 16.0))
|
|
(sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
|
|
(sp-int spt-rot-x 4)
|
|
(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 255.0)
|
|
(sp-flt spt-g 255.0)
|
|
(sp-flt spt-b 255.0)
|
|
(sp-flt spt-a 0.0)
|
|
(sp-rnd-flt spt-vel-y (meters -0.01) (meters -0.0033333334) 1.0)
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
|
|
(sp-flt spt-fade-a 0.85333335)
|
|
(sp-int spt-timer 1500)
|
|
(sp-cpuinfo-flags bit2 bit12 bit14)
|
|
(sp-int-plain-rnd spt-next-time 75 74 1)
|
|
(sp-launcher-by-id spt-next-launcher 35)
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 35)
|
|
(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 1200)
|
|
(sp-launcher-by-id spt-next-launcher 36)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 36)
|
|
(new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.85333335) (sp-end))
|
|
)
|
|
)
|
|
|
|
;; definition for function update-snow
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun update-snow ((arg0 target))
|
|
(let ((gp-0 (-> arg0 control trans)))
|
|
(let ((f0-0 (lerp-scale 0.0 1.0 (vector-length (-> arg0 control transv)) 2048.0 40960.0)))
|
|
(set! (-> *part-id-table* 34 init-specs 1 initial-valuef) (- 1.0 f0-0))
|
|
(set! (-> *part-id-table* 33 init-specs 1 initial-valuef) (* 4.0 f0-0))
|
|
)
|
|
(set! (-> *part-id-table* 33 init-specs 19 initial-valuef)
|
|
(+ 32768.0 (vector-y-angle (-> arg0 control transv)))
|
|
)
|
|
(sp-launch-particles-var
|
|
*sp-particle-system-2d*
|
|
(-> *part-id-table* 34)
|
|
gp-0
|
|
(the-as sparticle-launch-state #f)
|
|
(the-as sparticle-launch-control #f)
|
|
1.0
|
|
)
|
|
(sp-launch-particles-var
|
|
*sp-particle-system-2d*
|
|
(-> *part-id-table* 33)
|
|
gp-0
|
|
(the-as sparticle-launch-state #f)
|
|
(the-as sparticle-launch-control #f)
|
|
1.0
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 37) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 17
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
|
|
(sp-flt spt-num 1.5)
|
|
(sp-rnd-flt spt-x (meters 0.0) (meters 20.0) 1.0)
|
|
(sp-flt spt-y (meters 16.0))
|
|
(sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
|
|
(sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
|
|
(sp-flt spt-r 50.0)
|
|
(sp-rnd-flt spt-g 80.0 55.0 1.0)
|
|
(sp-rnd-flt spt-b 50.0 50.0 1.0)
|
|
(sp-rnd-flt spt-a 16.0 32.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.13333334) 1.0)
|
|
(sp-int spt-timer 240)
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
(sp-flt spt-userdata 0.0)
|
|
(sp-func spt-func 'check-drop-level-rain)
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 38) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 15
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
|
|
(sp-flt spt-num 4.5)
|
|
(sp-rnd-flt spt-x (meters 0.0) (meters 20.0) 1.0)
|
|
(sp-flt spt-y (meters 16.0))
|
|
(sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
|
|
(sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
|
|
(sp-flt spt-r 50.0)
|
|
(sp-rnd-flt spt-g 80.0 55.0 1.0)
|
|
(sp-rnd-flt spt-b 50.0 50.0 1.0)
|
|
(sp-rnd-flt spt-a 16.0 32.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.033333335) 1.0)
|
|
(sp-int spt-timer 240)
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 39) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 16
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
|
|
(sp-rnd-int spt-num 0 1 2.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 110.0 32.0 1.0)
|
|
(sp-rnd-flt spt-g 128.0 32.0 1.0)
|
|
(sp-rnd-flt spt-b 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.006666667) (meters 0.013333334) 1.0)
|
|
(sp-flt spt-fade-a -0.85333335)
|
|
(sp-flt spt-accel-y -2.7306666)
|
|
(sp-int spt-timer 150)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-rnd-flt spt-conerot-x (degrees 25.000002) (degrees 40.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 40) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 17
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-y (meters 0.02))
|
|
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
|
|
(sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 110.0 32.0 1.0)
|
|
(sp-rnd-flt spt-g 128.0 32.0 1.0)
|
|
(sp-rnd-flt spt-b 96.0 32.0 1.0)
|
|
(sp-rnd-flt spt-a 16.0 32.0 1.0)
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-a -0.4)
|
|
(sp-int spt-timer 120)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for function check-drop-level-rain
|
|
(defun check-drop-level-rain ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
|
|
(when (< (-> arg2 y) (-> arg1 user-float))
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(sp-kill-particle arg0 arg1)
|
|
(set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
|
|
(sp-launch-particles-var
|
|
*sp-particle-system-2d*
|
|
(-> *part-id-table* 39)
|
|
gp-0
|
|
(the-as sparticle-launch-state #f)
|
|
(the-as sparticle-launch-control #f)
|
|
1.0
|
|
)
|
|
(sp-launch-particles-var
|
|
*sp-particle-system-3d*
|
|
(-> *part-id-table* 40)
|
|
gp-0
|
|
(the-as sparticle-launch-state #f)
|
|
(the-as sparticle-launch-control #f)
|
|
1.0
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function update-rain
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun update-rain ((arg0 target))
|
|
(let ((a2-0 (new 'stack-no-clear 'vector)))
|
|
(set! (-> a2-0 x) (-> arg0 control transv x))
|
|
(set! (-> a2-0 y) 0.0)
|
|
(set! (-> a2-0 z) (-> arg0 control transv z))
|
|
(set! (-> a2-0 w) 1.0)
|
|
(let ((gp-0 (vector+float*! (new 'stack-no-clear 'vector) (-> arg0 control trans) a2-0 0.0)))
|
|
(let* ((s5-0 (matrix-local->world #f #f))
|
|
(f28-0 (lerp-scale 122.88 245.76 (fabs (-> s5-0 vector 2 y)) 0.0 0.7))
|
|
(f30-0 (lerp-scale 2048.0 245.76 (fabs (-> s5-0 vector 2 y)) 0.0 0.7))
|
|
)
|
|
(let ((f26-0 (lerp-scale 0.0 0.1 (-> s5-0 vector 2 y) 0.3 0.7))
|
|
(f0-10 (lerp-scale 1.0 0.1 (-> s5-0 vector 2 y) 0.3 0.7))
|
|
)
|
|
(if (< 0.0 f26-0)
|
|
(send-event *camera* 'part-water-drip f26-0 f0-10)
|
|
)
|
|
)
|
|
(set! (-> *part-id-table* 37 init-specs 4 initial-valuef) f28-0)
|
|
(set! (-> *part-id-table* 37 init-specs 4 random-rangef) f28-0)
|
|
(set! (-> *part-id-table* 38 init-specs 4 initial-valuef) f28-0)
|
|
(set! (-> *part-id-table* 38 init-specs 4 random-rangef) f28-0)
|
|
(set! (-> *part-id-table* 37 init-specs 5 initial-valuef) f30-0)
|
|
(set! (-> *part-id-table* 37 init-specs 5 random-rangef) f30-0)
|
|
(set! (-> *part-id-table* 38 init-specs 5 initial-valuef) f30-0)
|
|
(set! (-> *part-id-table* 38 init-specs 5 random-rangef) f30-0)
|
|
)
|
|
(sp-launch-particles-var
|
|
*sp-particle-system-2d*
|
|
(-> *part-id-table* 37)
|
|
gp-0
|
|
(the-as sparticle-launch-state #f)
|
|
(the-as sparticle-launch-control #f)
|
|
1.0
|
|
)
|
|
(sp-launch-particles-var
|
|
*sp-particle-system-2d*
|
|
(-> *part-id-table* 38)
|
|
gp-0
|
|
(the-as sparticle-launch-state #f)
|
|
(the-as sparticle-launch-control #f)
|
|
1.0
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function cam-master-effect
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defbehavior cam-master-effect camera-master ()
|
|
(when (< (+ (-> *display* base-frame-counter) -3000) (the-as int (-> self water-drip-time)))
|
|
(set! (-> *part-id-table* 21 init-specs 1 initial-valuef) (-> self water-drip-mult))
|
|
(set! (-> *part-id-table* 18 init-specs 1 initial-valuef) (* 0.9 (-> self water-drip-mult)))
|
|
(set! (-> *part-id-table* 22 init-specs 11 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
|
|
(set! (-> *part-id-table* 23 init-specs 8 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
|
|
(set! (-> *part-id-table* 19 init-specs 11 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
|
|
(set! (-> *part-id-table* 20 init-specs 8 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
|
|
(spawn (-> self water-drip) *zero-vector*)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function sparticle-track-sun
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun sparticle-track-sun ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 matrix))
|
|
(-> arg1 key)
|
|
(let ((s5-0 (the int (-> arg1 user-float))))
|
|
(let* ((a1-1 (math-camera-pos))
|
|
(a2-1 (-> *sky-parms* upload-data sun (/ s5-0 4)))
|
|
(v1-3 (vector+float*! (new 'stack-no-clear 'vector) a1-1 (the-as vector a2-1) 4096.0))
|
|
)
|
|
(set! (-> arg2 vector 0 x) (-> v1-3 x))
|
|
(set! (-> arg2 vector 0 y) (-> v1-3 y))
|
|
(set! (-> arg2 vector 0 z) (-> v1-3 z))
|
|
)
|
|
(if (!= (-> arg2 vector 2 w) 0.0)
|
|
(set! (-> arg2 vector 2 w) (* 128.0 (-> *time-of-day-context* sun-fade)))
|
|
)
|
|
(cond
|
|
((zero? s5-0)
|
|
(set! (-> arg2 vector 2 x) (-> *time-of-day-context* current-sun sun-color x))
|
|
(set! (-> arg2 vector 2 y) (-> *time-of-day-context* current-sun sun-color y))
|
|
(set! (-> arg2 vector 2 z) (-> *time-of-day-context* current-sun sun-color z))
|
|
)
|
|
((or (= s5-0 1) (= s5-0 2))
|
|
(set! (-> arg2 vector 2 x) (* 0.25 (-> *time-of-day-context* current-sun sun-color x)))
|
|
(set! (-> arg2 vector 2 y) (* 0.25 (-> *time-of-day-context* current-sun sun-color y)))
|
|
(set! (-> arg2 vector 2 z) (* 0.25 (-> *time-of-day-context* current-sun sun-color z)))
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-group-id-table* 35)
|
|
(new 'static 'sparticle-launch-group
|
|
:length 3
|
|
:duration #xbb8
|
|
:linger-duration #x5dc
|
|
:flags (sp-group-flag always-draw)
|
|
:name "group-sun"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 3 (sp-item 1950) (sp-item 1951) (sp-item 1952))
|
|
:bounds (new 'static 'sphere :w 286720.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 1950) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 13
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 1200.0))
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 255.0)
|
|
(sp-flt spt-g 255.0)
|
|
(sp-flt spt-b 128.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-int spt-timer -1)
|
|
(sp-cpuinfo-flags bit2 bit3 bit12 bit14)
|
|
(sp-flt spt-userdata 0.0)
|
|
(sp-func spt-func 'sparticle-track-sun)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 1951) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 15
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 2800.0))
|
|
(sp-flt spt-rot-z (degrees 0.0))
|
|
(sp-flt spt-scale-y (meters 2200.0))
|
|
(sp-flt spt-r 64.0)
|
|
(sp-flt spt-g 64.0)
|
|
(sp-flt spt-b 32.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-flt spt-rotvel-z (degrees -0.05))
|
|
(sp-int spt-timer -1)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-flt spt-userdata 1.0)
|
|
(sp-func spt-func 'sparticle-track-sun)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 1952) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 15
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 2200.0))
|
|
(sp-flt spt-rot-z (degrees 0.0))
|
|
(sp-flt spt-scale-y (meters 2800.0))
|
|
(sp-flt spt-r 64.0)
|
|
(sp-flt spt-g 64.0)
|
|
(sp-flt spt-b 32.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-flt spt-rotvel-z (degrees 0.05))
|
|
(sp-int spt-timer -1)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-flt spt-userdata 2.0)
|
|
(sp-func spt-func 'sparticle-track-sun)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-group-id-table* 36)
|
|
(new 'static 'sparticle-launch-group
|
|
:length 3
|
|
:duration #xbb8
|
|
:linger-duration #x5dc
|
|
:flags (sp-group-flag always-draw)
|
|
:name "group-green-sun"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 3 (sp-item 1974) (sp-item 1975) (sp-item 1976))
|
|
:bounds (new 'static 'sphere :w 286720.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 1974) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 13
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 600.0))
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 0.0)
|
|
(sp-flt spt-g 255.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-flt spt-a 0.0)
|
|
(sp-int spt-timer -1)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-flt spt-userdata 4.0)
|
|
(sp-func spt-func 'sparticle-track-sun)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 1975) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 15
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 1400.0))
|
|
(sp-flt spt-rot-z (degrees 0.0))
|
|
(sp-flt spt-scale-y (meters 1100.0))
|
|
(sp-flt spt-r 0.0)
|
|
(sp-flt spt-g 64.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-flt spt-rotvel-z (degrees -0.05))
|
|
(sp-int spt-timer -1)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-flt spt-userdata 5.0)
|
|
(sp-func spt-func 'sparticle-track-sun)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 1976) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 15
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 1100.0))
|
|
(sp-flt spt-rot-z (degrees 0.0))
|
|
(sp-flt spt-scale-y (meters 1400.0))
|
|
(sp-flt spt-r 0.0)
|
|
(sp-flt spt-g 64.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-flt spt-rotvel-z (degrees 0.05))
|
|
(sp-int spt-timer -1)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-flt spt-userdata 6.0)
|
|
(sp-func spt-func 'sparticle-track-sun)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|