mirror of
https://github.com/open-goal/jak-project
synced 2026-08-18 13:53:01 -04:00
water111
dbc266c00b
* begin work on improved pretty printer * update ref * finish pretty printer * force line break for defstate
879 lines
52 KiB
Common Lisp
Vendored
Generated
879 lines
52 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-group-id-table* 464) (new 'static 'sparticle-launch-group
|
|
:length 4
|
|
:duration #x5dc
|
|
:linger-duration #xbb8
|
|
:flags (sp-group-flag use-local-clock)
|
|
:name "group-ogreboss-column-break"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 4
|
|
(sp-item 2193 :period 1500 :length 5)
|
|
(sp-item 2194 :period 1500 :length 40)
|
|
(sp-item 2195 :period 1500 :length 20)
|
|
(sp-item 2196 :period 1500 :length 20)
|
|
)
|
|
:bounds (new 'static 'sphere :w 49152.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2194) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 24
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 8.0)
|
|
(sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.2) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 64.0 32.0 1.0)
|
|
(sp-rnd-flt spt-g 64.0 32.0 1.0)
|
|
(sp-flt spt-b 64.0)
|
|
(sp-rnd-flt spt-a 32.0 96.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.23333333) 1.0)
|
|
(sp-flt spt-scalevel-x (meters -0.0026666666))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-g -0.7111111)
|
|
(sp-flt spt-fade-b -0.7111111)
|
|
(sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 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 30 89 1)
|
|
(sp-launcher-by-id spt-next-launcher 2197)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2197)
|
|
(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 -1.0666667)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2196) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 17
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 6.0)
|
|
(sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
|
|
(sp-flt spt-scale-x (meters 0.6))
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
|
|
(sp-flt spt-scale-y (meters 20.0))
|
|
(sp-flt spt-r 128.0)
|
|
(sp-flt spt-g 128.0)
|
|
(sp-flt spt-b 96.0)
|
|
(sp-rnd-flt spt-a 32.0 64.0 1.0)
|
|
(sp-flt spt-scalevel-y (meters 1.5))
|
|
(sp-flt spt-fade-g -1.6)
|
|
(sp-flt spt-fade-b -1.6)
|
|
(sp-flt spt-fade-a -1.6)
|
|
(sp-int spt-timer 60)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2193) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 13
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-y (meters -4.0))
|
|
(sp-flt spt-scale-x (meters 44.0))
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 255.0)
|
|
(sp-flt spt-g 64.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-flt spt-fade-a -2.3272727)
|
|
(sp-int spt-timer 54)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2195)
|
|
(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-flt spt-num 24.0)
|
|
(sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 5.0) (meters 2.5) 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 64.0)
|
|
(sp-flt spt-g 32.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-rnd-flt spt-a 64.0 32.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.12) (meters 0.06666667) 1.0)
|
|
(sp-flt spt-scalevel-x (meters 0.026666667))
|
|
(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 -0.28444445)
|
|
(sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
|
|
(sp-flt spt-friction 0.8)
|
|
(sp-int spt-timer 1800)
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
(sp-int spt-next-time 42)
|
|
(sp-launcher-by-id spt-next-launcher 2198)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2198)
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
|
|
(sp-flt spt-fade-r -0.21333334)
|
|
(sp-flt spt-fade-g -0.21333334)
|
|
(sp-flt spt-fade-b 0.0)
|
|
(sp-int spt-next-time 150)
|
|
(sp-launcher-by-id spt-next-launcher 2199)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2199)
|
|
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
|
|
(sp-flt spt-fade-r -0.021333333)
|
|
(sp-flt spt-fade-g 0.0)
|
|
(sp-flt spt-fade-b 0.0)
|
|
(sp-flt spt-fade-a -0.08533333)
|
|
(sp-int spt-next-time 225)
|
|
(sp-launcher-by-id spt-next-launcher 2200)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2200)
|
|
(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)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-group-id-table* 465) (new 'static 'sparticle-launch-group
|
|
:length 1
|
|
:duration #x96
|
|
:linger-duration #x258
|
|
:flags (sp-group-flag use-local-clock)
|
|
:name "group-ogreboss-lava-splash"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 1 (sp-item 2023))
|
|
:bounds (new 'static 'sphere :w 49152.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2023) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 16
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-y (meters 0.0))
|
|
(sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 128.0 64.0 1.0)
|
|
(sp-rnd-flt spt-g 0.0 128.0 1.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
|
|
(sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
|
|
(sp-int spt-timer 600)
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 45.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-group-id-table* 466)
|
|
(new 'static 'sparticle-launch-group
|
|
:length 4
|
|
:duration #x4b
|
|
:linger-duration #x258
|
|
:flags (sp-group-flag use-local-clock)
|
|
:name "group-ogre-bridge-splash"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 4 (sp-item 2108) (sp-item 2109) (sp-item 2110) (sp-item 2111))
|
|
:bounds (new 'static 'sphere :w 49152.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2111) (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-rnd-flt spt-num 4.0 4.0 1.0)
|
|
(sp-flt spt-y (meters -3.0))
|
|
(sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.75) 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 128.0 128.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
|
|
(sp-flt spt-scalevel-x (meters -0.003))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-accel-y -5.4613333)
|
|
(sp-int spt-timer 360)
|
|
(sp-cpuinfo-flags bit0 bit3)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-flt spt-conerot-radius (meters 1.0))
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2108) (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 8.0)
|
|
(sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
|
|
(sp-flt spt-y (meters -3.0))
|
|
(sp-rnd-flt spt-scale-x (meters 2.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 128.0)
|
|
(sp-rnd-flt spt-g 0.0 128.0 1.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-rnd-flt spt-a 32.0 64.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
|
|
(sp-flt spt-scalevel-x (meters 0.03529412))
|
|
(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 -1.1294118)
|
|
(sp-flt spt-friction 0.98)
|
|
(sp-int spt-timer 81)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.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* 2109)
|
|
(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 8.0)
|
|
(sp-rnd-flt spt-x (meters 3.0) (meters 4.0) 1.0)
|
|
(sp-flt spt-y (meters -3.0))
|
|
(sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 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 128.0)
|
|
(sp-rnd-flt spt-g 0.0 128.0 1.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-rnd-flt spt-a 32.0 64.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0016666667) 1.0)
|
|
(sp-flt spt-scalevel-x (meters 0.07777778))
|
|
(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 -2.8444443)
|
|
(sp-flt spt-friction 0.98)
|
|
(sp-int spt-timer 42)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-flt spt-conerot-x (degrees 90.0))
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.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* 2110)
|
|
(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-flt spt-num 4.0)
|
|
(sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
|
|
(sp-rnd-flt spt-y (meters -3.0) (meters 1.0) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 5.0) (meters 8.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 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.02) (meters 0.02) 1.0)
|
|
(sp-flt spt-scalevel-x (meters 0.015555556))
|
|
(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-r -0.56666666)
|
|
(sp-flt spt-fade-g -0.56666666)
|
|
(sp-flt spt-fade-b -0.56666666)
|
|
(sp-flt spt-fade-a 0.15)
|
|
(sp-flt spt-friction 0.97)
|
|
(sp-int spt-timer 450)
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
(sp-int-plain-rnd spt-next-time 81 80 1)
|
|
(sp-launcher-by-id spt-next-launcher 2112)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.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* 2112)
|
|
(new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.08) (sp-end))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-group-id-table* 468)
|
|
(new 'static 'sparticle-launch-group
|
|
:length 4
|
|
:duration #x96
|
|
:linger-duration #x258
|
|
:flags (sp-group-flag use-local-clock)
|
|
:name "group-ogreboss-boulder-grow"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 4 (sp-item 2201) (sp-item 2202) (sp-item 2203) (sp-item 2204))
|
|
:bounds (new 'static 'sphere :w 49152.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2203) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 24
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 8.0)
|
|
(sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 255.0)
|
|
(sp-rnd-flt spt-g 192.0 64.0 1.0)
|
|
(sp-rnd-flt spt-b 128.0 64.0 1.0)
|
|
(sp-flt spt-a 0.0)
|
|
(sp-flt spt-vel-y (meters -0.13333334))
|
|
(sp-flt spt-scalevel-x (meters -0.002))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-g -6.4)
|
|
(sp-flt spt-fade-b -6.4)
|
|
(sp-flt spt-fade-a 6.4)
|
|
(sp-int spt-timer 300)
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
(sp-int spt-next-time 20)
|
|
(sp-launcher-by-id spt-next-launcher 2205)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-radius (meters 12.0) (meters 4.0) 1.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* 2205)
|
|
(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-flt spt-fade-b -0.42666668)
|
|
(sp-flt spt-fade-a -0.85333335)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2204) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 16
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 2.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
|
|
(sp-flt spt-scale-y (meters 16.0))
|
|
(sp-flt spt-r 128.0)
|
|
(sp-flt spt-g 96.0)
|
|
(sp-flt spt-b 64.0)
|
|
(sp-rnd-flt spt-a 32.0 64.0 1.0)
|
|
(sp-flt spt-scalevel-y (meters 1.2))
|
|
(sp-flt spt-fade-g -1.0666667)
|
|
(sp-flt spt-fade-b -1.0666667)
|
|
(sp-flt spt-fade-a -1.6)
|
|
(sp-int spt-timer 30)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2201) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 13
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-y (meters 2.0))
|
|
(sp-rnd-flt spt-scale-x (meters 28.0) (meters 4.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 128.0 64.0 1.0)
|
|
(sp-rnd-flt spt-g 0.0 64.0 1.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-rnd-flt spt-a 64.0 64.0 1.0)
|
|
(sp-flt spt-fade-a -2.3272727)
|
|
(sp-int spt-timer 5)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2202) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 14
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-y (meters 2.0))
|
|
(sp-rnd-flt spt-scale-x (meters 16.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-rnd-flt spt-r 196.0 64.0 1.0)
|
|
(sp-rnd-flt spt-g 128.0 64.0 1.0)
|
|
(sp-rnd-flt spt-b 64.0 64.0 1.0)
|
|
(sp-flt spt-a 32.0)
|
|
(sp-flt spt-fade-a -2.3272727)
|
|
(sp-int spt-timer 10)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-group-id-table* 469)
|
|
(new 'static 'sparticle-launch-group
|
|
:length 2
|
|
:duration #xbb8
|
|
:linger-duration #x5dc
|
|
:name "group-ogreboss-missile"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 2 (sp-item 1933) (sp-item 1934))
|
|
:bounds (new 'static 'sphere :w 12288.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 1934) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 24
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
(sp-rnd-flt spt-num 0.1 0.3 1.0)
|
|
(sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
|
|
(sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
|
|
(sp-rnd-flt spt-z -4096.0 8192.0 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 4.8) (meters 0.9) 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 128.0)
|
|
(sp-flt spt-g 96.0)
|
|
(sp-flt spt-b 32.0)
|
|
(sp-rnd-flt spt-a 48.0 48.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
|
|
(sp-flt spt-scalevel-x (meters 0.006666667))
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-r -0.21333334)
|
|
(sp-flt spt-fade-g -0.10666667)
|
|
(sp-flt spt-fade-b 0.10666667)
|
|
(sp-flt spt-fade-a -0.32)
|
|
(sp-flt spt-accel-y -0.027306668)
|
|
(sp-int spt-timer 300)
|
|
(sp-cpuinfo-flags bit2 bit14)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 1933) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 21
|
|
(sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
(sp-rnd-flt spt-num 0.1 0.3 1.0)
|
|
(sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
|
|
(sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
|
|
(sp-rnd-flt spt-z -4096.0 8192.0 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 4.0) (meters 0.9) 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 128.0)
|
|
(sp-flt spt-g 96.0)
|
|
(sp-flt spt-b 32.0)
|
|
(sp-rnd-flt spt-a 80.0 80.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
|
|
(sp-flt spt-fade-g -0.53333336)
|
|
(sp-flt spt-fade-b -0.17777778)
|
|
(sp-flt spt-fade-a -1.0666667)
|
|
(sp-flt spt-accel-y -0.027306668)
|
|
(sp-int spt-timer 180)
|
|
(sp-cpuinfo-flags bit2 bit3 bit14)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-group-id-table* 470) (new 'static 'sparticle-launch-group
|
|
:length 8
|
|
:duration #x96
|
|
:linger-duration #x258
|
|
:flags (sp-group-flag use-local-clock)
|
|
:name "group-ogreboss-pre-missile"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 8
|
|
(sp-item 2079 :period 600 :length 5)
|
|
(sp-item 2206 :period 600 :length 40)
|
|
(sp-item 2206 :period 600 :length 40)
|
|
(sp-item 2206 :period 600 :length 30)
|
|
(sp-item 2206 :period 600 :length 20)
|
|
(sp-item 2082 :period 600 :length 20)
|
|
(sp-item 2082 :period 600 :length 10)
|
|
(sp-item 2082 :period 600 :length 5)
|
|
)
|
|
:bounds (new 'static 'sphere :w 12288.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2206) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 25
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 8.0)
|
|
(sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 192.0 64.0 1.0)
|
|
(sp-rnd-flt spt-g 192.0 64.0 1.0)
|
|
(sp-flt spt-b 128.0)
|
|
(sp-rnd-flt spt-a 32.0 96.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
|
|
(sp-flt spt-scalevel-x (meters -0.0026666666))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-g -2.1333334)
|
|
(sp-flt spt-fade-b -1.4222223)
|
|
(sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 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 30 89 1)
|
|
(sp-launcher-by-id spt-next-launcher 2083)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 8.0) 1.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-group-id-table* 471) (new 'static 'sparticle-launch-group
|
|
:length 4
|
|
:duration #x12c
|
|
:linger-duration #x5dc
|
|
:flags (sp-group-flag use-local-clock)
|
|
:name "group-ogreboss-missile-impact"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 4
|
|
(sp-item 2079 :period 600 :length 5)
|
|
(sp-item 2080 :period 600 :length 40)
|
|
(sp-item 2148 :period 600 :length 20)
|
|
(sp-item 2082 :period 600 :length 20)
|
|
)
|
|
:bounds (new 'static 'sphere :w 65536.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-group-id-table* 472)
|
|
(new 'static 'sparticle-launch-group
|
|
:length 15
|
|
:duration #xbb8
|
|
:linger-duration #x5dc
|
|
:name "group-ogre-lava-lava-20x20"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 15
|
|
(sp-item 2030 :fade-after (meters 40.0) :falloff-to (meters 40.0))
|
|
(sp-item 2031 :fade-after (meters 100.0) :falloff-to (meters 100.0))
|
|
(sp-item 2032 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 2028)
|
|
(sp-item 2028 :flags (start-dead))
|
|
(sp-item 2028 :flags (start-dead))
|
|
(sp-item 2028 :flags (start-dead))
|
|
(sp-item 2028 :flags (start-dead))
|
|
(sp-item 2028 :flags (start-dead))
|
|
(sp-item 2028 :flags (start-dead))
|
|
(sp-item 2028 :flags (start-dead))
|
|
(sp-item 2028 :flags (start-dead))
|
|
(sp-item 2033 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 137 :length 5 :binding 2029)
|
|
(sp-item 2033 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 234 :length 5 :binding 2029)
|
|
(sp-item 2033 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 92 :length 5 :binding 2029)
|
|
(sp-item 2029 :flags (start-dead))
|
|
)
|
|
:bounds (new 'static 'sphere :w 57344.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2031)
|
|
(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.05)
|
|
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
|
|
(sp-flt spt-y (meters 0.5))
|
|
(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.64)
|
|
(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 2034)
|
|
(sp-flt spt-rotate-y (degrees 0.0))
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2033) (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 1.5)
|
|
(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 2.5) (meters 1.5) 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 255.0)
|
|
(sp-rnd-flt spt-g 0.0 128.0 1.0)
|
|
(sp-flt spt-a 255.0)
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
|
|
(sp-flt spt-fade-a -12.0)
|
|
(sp-int spt-timer 20)
|
|
(sp-cpuinfo-flags bit2 bit3)
|
|
(sp-flt spt-rotate-y (degrees 0.0))
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2032) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 19
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
|
|
(sp-rnd-flt spt-num 0.02 0.02 1.0)
|
|
(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 0.75) (meters 0.25) 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-flt spt-a 255.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
|
|
(sp-flt spt-fade-g -0.30476192)
|
|
(sp-flt spt-accel-y -10.922667)
|
|
(sp-int spt-timer 180)
|
|
(sp-cpuinfo-flags bit2 bit3)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-flt spt-rotate-y (degrees 0.0))
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2030) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 18
|
|
(sp-flt spt-num 1.0)
|
|
(sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
|
|
(sp-flt spt-y (meters 0.5))
|
|
(sp-rnd-flt spt-z -40960.0 81920.0 1.0)
|
|
(sp-int spt-rot-x 5)
|
|
(sp-flt spt-r 8192.0)
|
|
(sp-flt spt-g 5324.8)
|
|
(sp-flt spt-b 5324.8)
|
|
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
|
|
(sp-flt spt-fade-r 40.96)
|
|
(sp-flt spt-fade-g 27.306667)
|
|
(sp-flt spt-fade-b 38.229332)
|
|
(sp-int spt-timer 150)
|
|
(sp-cpuinfo-flags aux-list)
|
|
(sp-int spt-next-time 75)
|
|
(sp-launcher-by-id spt-next-launcher 2035)
|
|
(sp-flt spt-rotate-y (degrees 0.0))
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2035)
|
|
(new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b 16.384) (sp-end))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2034)
|
|
(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 2036)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2036)
|
|
(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 2037)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2037)
|
|
(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.10666667)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2028) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 14
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 0.7)
|
|
(sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 128.0)
|
|
(sp-rnd-flt spt-g 0.0 128.0 1.0)
|
|
(sp-rnd-flt spt-a 128.0 128.0 1.0)
|
|
(sp-flt spt-scalevel-x (meters -0.0029166667))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-accel-y -1.3653333)
|
|
(sp-int-plain-rnd spt-timer 30 179 1)
|
|
(sp-cpuinfo-flags bit0 bit3)
|
|
(sp-flt spt-rotate-y (degrees 45.0))
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set! (-> *part-id-table* 2029) (new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 16
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-rnd-flt spt-num 1.0 6.0 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 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 128.0 128.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.02) 1.0)
|
|
(sp-flt spt-scalevel-x (meters -0.0023333333))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-accel-y -2.7306666)
|
|
(sp-int spt-timer 360)
|
|
(sp-cpuinfo-flags bit0 bit3)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition of type ogre-part
|
|
(deftype ogre-part (part-spawner)
|
|
()
|
|
:heap-base #x60
|
|
:method-count-assert 21
|
|
:size-assert #xd0
|
|
:flag-assert #x15006000d0
|
|
)
|
|
|
|
;; definition for method 3 of type ogre-part
|
|
(defmethod inspect ogre-part ((obj ogre-part))
|
|
(let ((t9-0 (method-of-type part-spawner inspect)))
|
|
(t9-0 obj)
|
|
)
|
|
obj
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|