mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-18 05:48:28 -04:00
Code Issues Packages Projects Releases Wiki Activity
Files
292afaddbcdead897dc689a4a570f72ec91c3e1a
jak-project/test/decompiler/reference/levels/misty/misty-obs_REF.gc
T
water111 a96396e140 [collision] add notes on -h files, add some enums (#1068) 
* temp

* add enums
2022-01-08 20:57:57 -05:00

2537 lines
120 KiB
Common Lisp
Vendored
Generated
Raw Blame History

;;-*-Lisp-*-
(in-package goal)
;; failed to figure out what this is:
(set! (-> *part-group-id-table* 191)
(new 'static 'sparticle-launch-group
:length 16
:duration #xbb8
:linger-duration #x5dc
:name "group-windturbine-particles"
:launcher
(new 'static 'inline-array sparticle-group-item 16
(sp-item 908 :fade-after (meters 60.0) :period 1212 :length 10)
(sp-item 908 :fade-after (meters 60.0) :period 5790 :length 10)
(sp-item 908 :fade-after (meters 60.0) :period 4988 :length 10)
(sp-item 908 :fade-after (meters 60.0) :period 3510 :length 10)
(sp-item 908 :fade-after (meters 60.0) :period 1837 :length 10)
(sp-item 909 :fade-after (meters 60.0) :period 1650 :length 10)
(sp-item 909 :fade-after (meters 60.0) :period 3780 :length 10)
(sp-item 909 :fade-after (meters 60.0) :period 2220 :length 10)
(sp-item 909 :fade-after (meters 60.0) :period 8235 :length 10)
(sp-item 909 :fade-after (meters 60.0) :period 3336 :length 10)
(sp-item 910 :fade-after (meters 60.0) :period 150 :length 75)
(sp-item 910 :fade-after (meters 120.0) :period 150 :length 75)
(sp-item 910 :fade-after (meters 180.0) :period 150 :length 75)
(sp-item 911 :fade-after (meters 60.0) :period 150 :length 75 :offset 75)
(sp-item 911 :fade-after (meters 120.0) :period 150 :length 75 :offset 75)
(sp-item 911 :fade-after (meters 180.0) :period 150 :length 75 :offset 75)
)
:bounds (new 'static 'sphere :w 49152.0)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 910)
(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.066 0.066 1.0)
(sp-flt spt-x (meters -4.0))
(sp-rnd-flt spt-y (meters -2.0) (meters 0.5) 1.0)
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.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 32.0)
(sp-flt spt-g 32.0)
(sp-flt spt-b 32.0)
(sp-rnd-flt spt-a 0.0 32.0 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a 0.21333334)
(sp-flt spt-accel-y 1.2288)
(sp-int-plain-rnd spt-timer 600 1499 1)
(sp-cpuinfo-flags bit2 bit12)
(sp-int spt-next-time 75)
(sp-launcher-by-id spt-next-launcher 912)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 912)
(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 240)
(sp-launcher-by-id spt-next-launcher 913)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 913)
(new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
(sp-flt spt-vel-x (meters -0.06666667))
(sp-flt spt-vel-y (meters 0.0033333334))
(sp-flt spt-scalevel-x (meters 0.016666668))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.2)
(sp-flt spt-accel-x 1.3653333)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 911)
(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.066 0.066 1.0)
(sp-flt spt-x (meters -4.0))
(sp-rnd-flt spt-y (meters -2.0) (meters 0.5) 1.0)
(sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.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 32.0)
(sp-flt spt-g 32.0)
(sp-flt spt-b 32.0)
(sp-rnd-flt spt-a 0.0 32.0 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a 0.21333334)
(sp-flt spt-accel-y 1.2288)
(sp-int-plain-rnd spt-timer 600 1499 1)
(sp-cpuinfo-flags bit2 bit12)
(sp-int spt-next-time 150)
(sp-launcher-by-id spt-next-launcher 912)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 908) (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-rnd-flt spt-num 8.0 24.0 1.0)
(sp-flt spt-x (meters -4.0))
(sp-rnd-flt spt-y (meters -4.5) (meters 1.0) 1.0)
(sp-flt spt-z -2048.0)
(sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-flt spt-g 128.0)
(sp-flt spt-b 64.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
(sp-flt spt-scalevel-x (meters -0.00055555557))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -0.2)
(sp-flt spt-fade-b -0.2)
(sp-flt spt-fade-a -0.6)
(sp-flt spt-accel-y -6.826667)
(sp-flt spt-friction 0.94)
(sp-int-plain-rnd spt-timer 90 59 1)
(sp-cpuinfo-flags bit2)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees -220.0) (degrees 110.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 909) (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-rnd-flt spt-num 8.0 24.0 1.0)
(sp-flt spt-x (meters -4.0))
(sp-rnd-flt spt-y (meters -4.5) (meters 1.0) 1.0)
(sp-flt spt-z 2048.0)
(sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-flt spt-g 128.0)
(sp-flt spt-b 64.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
(sp-flt spt-scalevel-x (meters -0.00055555557))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -0.2)
(sp-flt spt-fade-b -0.2)
(sp-flt spt-fade-a -0.6)
(sp-flt spt-accel-y -6.826667)
(sp-flt spt-friction 0.94)
(sp-int-plain-rnd spt-timer 90 59 1)
(sp-cpuinfo-flags bit2)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees -110.0) (degrees 110.0) 1.0)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-group-id-table* 192) (new 'static 'sparticle-launch-group
:length 8
:duration #x258
:linger-duration #x5dc
:flags (sp-group-flag use-local-clock)
:name "group-misty-bone-01"
:launcher
(new 'static 'inline-array sparticle-group-item 8
(sp-item 914 :period 780 :length 15)
(sp-item 915 :period 780 :length 15)
(sp-item 916 :period 780 :length 64)
(sp-item 917 :period 780 :length 32 :offset 65131)
(sp-item 918 :period 780 :length 32 :offset 65131)
(sp-item 919 :period 780 :length 32 :offset 65131)
(sp-item 920 :period 780 :length 32 :offset 65056)
(sp-item 921 :period 780 :length 32 :offset 64996)
)
:bounds (new 'static 'sphere :w 98304.0)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 921) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.10666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -80.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 187.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 920) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 24
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-flt spt-x (meters 2.5))
(sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 32.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.16)
(sp-flt spt-accel-y 0.13653333)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-conerot-radius (meters 2.0))
(sp-flt spt-rotate-y (degrees 187.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 919) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.10666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -80.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 187.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 918) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 26
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 64.0 32.0 1.0)
(sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
(sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-accel-y -6.826667)
(sp-flt spt-friction 0.996)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-int spt-next-time 90)
(sp-launcher-by-id spt-next-launcher 922)
(sp-flt spt-conerot-z (degrees -80.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 187.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 922)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 917) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 21
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
(sp-rnd-flt spt-z -20480.0 40960.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.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-rnd-flt spt-r 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 8.0 1.0)
(sp-flt spt-vel-y (meters -0.0016666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-fade-a -0.026666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 900)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -80.0))
(sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
(sp-flt spt-rotate-y (degrees 187.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 914) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 23
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 32.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.16)
(sp-flt spt-accel-y 0.13653333)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-conerot-radius (meters 2.0))
(sp-flt spt-rotate-y (degrees 140.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 915) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 23
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 64.0 32.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.026666667) 1.0)
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-accel-y -6.826667)
(sp-flt spt-friction 0.996)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-int spt-next-time 90)
(sp-launcher-by-id spt-next-launcher 923)
(sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 30.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-conerot-radius (meters 2.0))
(sp-flt spt-rotate-y (degrees 140.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 923)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -3.2) (sp-end))
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 916) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
(sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
(sp-rnd-flt spt-z -12288.0 24576.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.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-rnd-flt spt-r 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 8.0 8.0 1.0)
(sp-flt spt-vel-y (meters -0.0016666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-fade-a -0.017777778)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 900)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-rotate-y (degrees 187.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-group-id-table* 193) (new 'static 'sparticle-launch-group
:length 8
:duration #x258
:linger-duration #x5dc
:flags (sp-group-flag use-local-clock)
:name "group-misty-bone-03"
:launcher
(new 'static 'inline-array sparticle-group-item 8
(sp-item 914 :period 780 :length 15)
(sp-item 915 :period 780 :length 15)
(sp-item 924 :period 780 :length 64)
(sp-item 925 :period 780 :length 32 :offset 65131)
(sp-item 926 :period 780 :length 32 :offset 65131)
(sp-item 927 :period 780 :length 32 :offset 65131)
(sp-item 928 :period 780 :length 32 :offset 65056)
(sp-item 929 :period 780 :length 32 :offset 64996)
)
:bounds (new 'static 'sphere :w 98304.0)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 929) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.10666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -80.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 249.99998))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 928) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 24
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-flt spt-x (meters 2.5))
(sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 32.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.16)
(sp-flt spt-accel-y 0.13653333)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-conerot-radius (meters 2.0))
(sp-flt spt-rotate-y (degrees 249.99998))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 927) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.10666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -80.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 249.99998))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 926) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 26
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 64.0 32.0 1.0)
(sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
(sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-accel-y -6.826667)
(sp-flt spt-friction 0.996)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-int spt-next-time 90)
(sp-launcher-by-id spt-next-launcher 922)
(sp-flt spt-conerot-z (degrees -80.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 249.99998))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 925) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 21
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
(sp-rnd-flt spt-z -20480.0 40960.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.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-rnd-flt spt-r 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 8.0 1.0)
(sp-flt spt-vel-y (meters -0.0016666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-fade-a -0.026666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 900)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -80.0))
(sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
(sp-flt spt-rotate-y (degrees 249.99998))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 924) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
(sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
(sp-rnd-flt spt-z -12288.0 24576.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.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-rnd-flt spt-r 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 8.0 8.0 1.0)
(sp-flt spt-vel-y (meters -0.0016666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-fade-a -0.017777778)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 900)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-rotate-y (degrees 249.99998))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-group-id-table* 194) (new 'static 'sparticle-launch-group
:length 8
:duration #x258
:linger-duration #x5dc
:flags (sp-group-flag use-local-clock)
:name "group-misty-bone-02"
:launcher
(new 'static 'inline-array sparticle-group-item 8
(sp-item 914 :period 780 :length 15)
(sp-item 915 :period 780 :length 15)
(sp-item 930 :period 780 :length 64)
(sp-item 931 :period 780 :length 32 :offset 65131)
(sp-item 932 :period 780 :length 32 :offset 65131)
(sp-item 933 :period 780 :length 32 :offset 65131)
(sp-item 934 :period 780 :length 32 :offset 65056)
(sp-item 935 :period 780 :length 32 :offset 64996)
)
:bounds (new 'static 'sphere :w 98304.0)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 935) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.10666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -94.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 114.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 934) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 24
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-flt spt-x (meters 2.5))
(sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 32.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.16)
(sp-flt spt-accel-y 0.13653333)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-conerot-radius (meters 2.0))
(sp-flt spt-rotate-y (degrees 114.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 933) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.10666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -94.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 114.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 932) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 26
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 64.0 32.0 1.0)
(sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
(sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-accel-y -6.826667)
(sp-flt spt-friction 0.996)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-int spt-next-time 90)
(sp-launcher-by-id spt-next-launcher 922)
(sp-flt spt-conerot-z (degrees -94.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 114.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 931) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 21
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
(sp-rnd-flt spt-z -20480.0 40960.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.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-rnd-flt spt-r 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 8.0 1.0)
(sp-flt spt-vel-y (meters -0.0016666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-fade-a -0.026666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 900)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -90.0))
(sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
(sp-flt spt-rotate-y (degrees 114.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 930) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
(sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
(sp-rnd-flt spt-z -12288.0 24576.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.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-rnd-flt spt-r 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 8.0 8.0 1.0)
(sp-flt spt-vel-y (meters -0.0016666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-fade-a -0.017777778)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 900)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-rotate-y (degrees 114.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-group-id-table* 195) (new 'static 'sparticle-launch-group
:length 8
:duration #x258
:linger-duration #x5dc
:flags (sp-group-flag use-local-clock)
:name "group-misty-bone-07"
:launcher
(new 'static 'inline-array sparticle-group-item 8
(sp-item 914 :period 780 :length 15)
(sp-item 915 :period 780 :length 15)
(sp-item 936 :period 780 :length 64)
(sp-item 937 :period 780 :length 32 :offset 65131)
(sp-item 938 :period 780 :length 32 :offset 65131)
(sp-item 939 :period 780 :length 32 :offset 65131)
(sp-item 940 :period 780 :length 32 :offset 65056)
(sp-item 941 :period 780 :length 32 :offset 64966)
)
:bounds (new 'static 'sphere :w 98304.0)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 941) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.10666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -94.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 14.000005))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 940) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 24
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-flt spt-x (meters 2.5))
(sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 32.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.16)
(sp-flt spt-accel-y 0.13653333)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-conerot-radius (meters 2.0))
(sp-flt spt-rotate-y (degrees 14.000005))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 939) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 25
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 3.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.006666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.10666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -94.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 14.000005))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 938) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 26
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
(sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-z -10240.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 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 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 64.0 32.0 1.0)
(sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
(sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-accel-y -6.826667)
(sp-flt spt-friction 0.996)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-int spt-next-time 90)
(sp-launcher-by-id spt-next-launcher 922)
(sp-flt spt-conerot-z (degrees -94.0))
(sp-flt spt-conerot-radius (meters 18.0))
(sp-flt spt-rotate-y (degrees 14.000005))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 937) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 21
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 8.0)
(sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
(sp-rnd-flt spt-z -20480.0 40960.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.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-rnd-flt spt-r 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 16.0 8.0 1.0)
(sp-flt spt-vel-y (meters -0.0016666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-fade-a -0.026666667)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 900)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-conerot-z (degrees -90.0))
(sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
(sp-flt spt-rotate-y (degrees 14.000005))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 936) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 20
(sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
(sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
(sp-rnd-flt spt-z -12288.0 24576.0 1.0)
(sp-rnd-flt spt-scale-x (meters 2.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-rnd-flt spt-r 128.0 32.0 1.0)
(sp-rnd-flt spt-g 100.0 32.0 1.0)
(sp-rnd-flt spt-b 90.0 32.0 1.0)
(sp-rnd-flt spt-a 8.0 8.0 1.0)
(sp-flt spt-vel-y (meters -0.0016666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
(sp-flt spt-fade-a -0.017777778)
(sp-flt spt-accel-y -0.4096)
(sp-int spt-timer 900)
(sp-cpuinfo-flags bit2 bit12)
(sp-flt spt-rotate-y (degrees 14.000005))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-group-id-table* 196)
(new 'static 'sparticle-launch-group
:length 1
:duration #xbb8
:linger-duration #x5dc
:name "group-misty-boat-paddle"
:launcher
(new 'static 'inline-array sparticle-group-item 1 (sp-item 944 :fade-after (meters 100.0)))
:bounds (new 'static 'sphere :w 61440.0)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 944) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 21
(sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
(sp-flt spt-num 0.8)
(sp-rnd-flt spt-x (meters -11.0) (meters 22.0) 1.0)
(sp-flt spt-y (meters 0.0))
(sp-rnd-flt spt-z 20480.0 20480.0 1.0)
(sp-rnd-flt spt-scale-x (meters 5.5) (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 48.0)
(sp-flt spt-g 64.0)
(sp-rnd-flt spt-b 96.0 32.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
(sp-rnd-int-flt spt-rotvel-z (degrees -0.2) 1 72.81778)
(sp-flt spt-fade-a 0.53333336)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12 bit14)
(sp-int spt-next-time 75)
(sp-launcher-by-id spt-next-launcher 945)
(sp-flt spt-rotate-y (degrees 140.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 945)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 943) (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-flt spt-num 6.0)
(sp-rnd-flt spt-x (meters -9.0) (meters 18.0) 1.0)
(sp-flt spt-scale-x (meters 0.5))
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 64.0)
(sp-flt spt-g 96.0)
(sp-rnd-flt spt-b 100.0 28.0 1.0)
(sp-flt spt-a 0.0)
(sp-rnd-flt spt-vel-y (meters 0.001) (meters 0.033333335) 1.0)
(sp-flt spt-fade-a 0.53333336)
(sp-flt spt-accel-y -5.4613333)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12)
(sp-int spt-next-time 210)
(sp-launcher-by-id spt-next-launcher 946)
(sp-flt spt-conerot-x (degrees 90.0))
(sp-rnd-int-flt spt-conerot-y (degrees 0.0) 3 8192.0)
(sp-flt spt-conerot-z (degrees 90.0))
(sp-flt spt-conerot-radius (meters 9.0))
(sp-flt spt-rotate-y (degrees 140.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 946)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.0) (sp-end))
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 942) (new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 22
(sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
(sp-flt spt-num 1.0)
(sp-rnd-flt spt-x (meters -11.0) (meters 22.0) 1.0)
(sp-flt spt-y (meters 0.5))
(sp-rnd-flt spt-z 24576.0 16384.0 1.0)
(sp-flt spt-scale-x (meters 3.5))
(sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.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-rnd-flt spt-vel-y (meters 0.001) (meters 0.033333335) 1.0)
(sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
(sp-flt spt-fade-a 0.53333336)
(sp-flt spt-accel-y -5.4613333)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit12 bit14)
(sp-int spt-next-time 75)
(sp-launcher-by-id spt-next-launcher 947)
(sp-flt spt-rotate-y (degrees 140.0))
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 947)
(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 60)
(sp-launcher-by-id spt-next-launcher 948)
(sp-end)
)
)
)
;; failed to figure out what this is:
(set! (-> *part-id-table* 948)
(new 'static 'sparticle-launcher
:init-specs
(new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
)
)
;; definition of type boatpaddle
(deftype boatpaddle (process-drawable)
()
:heap-base #x40
:method-count-assert 20
:size-assert #xb0
:flag-assert #x14004000b0
(:states
boatpaddle-idle
)
)
;; definition for method 3 of type boatpaddle
(defmethod inspect boatpaddle ((obj boatpaddle))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
obj
)
;; failed to figure out what this is:
(defskelgroup *boatpaddle-sg* boatpaddle
0
3
((1 (meters 20)) (2 (meters 999999)))
:bounds (static-spherem 0 0 0 18)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(defstate boatpaddle-idle (boatpaddle)
:code
(behavior ()
(local-vars (s4-0 int))
(while #t
(quaternion-rotate-local-x!
(-> self root quat)
(-> self root quat)
(* -5461.3335 (-> *display* seconds-per-frame))
)
(let ((gp-0 (-> self part))
(s5-0 (-> self root trans))
)
(let ((f30-0 1274.3112)
(f28-0 (the float s4-0))
)
(set! s4-0 (/ (the int (* 65536.0 (ja-frame-num 0))) (+ (-> (if (> (-> self skel active-channels) 0)
(-> self skel root-channel 0 frame-group)
)
data
0
length
)
-1
)
)
)
(set! (-> *part-id-table* 943 init-specs 17 initial-valuef)
(+ f30-0 (- f28-0 (* (the float (the int (/ (the float s4-0) 8192.0))) 8192.0)))
)
)
(spawn gp-0 s5-0)
)
(suspend)
)
(none)
)
:post
(the-as (function none :behavior boatpaddle) ja-post)
)
;; definition for method 11 of type boatpaddle
;; INFO: Return type mismatch object vs none.
(defmethod init-from-entity! boatpaddle ((obj boatpaddle) (arg0 entity-actor))
(set! (-> obj mask) (logior (process-mask ambient) (-> obj mask)))
(set! (-> obj root) (new 'process 'trsqv))
(process-drawable-from-entity! obj arg0)
(initialize-skeleton obj *boatpaddle-sg* '())
(logclear! (-> obj mask) (process-mask actor-pause))
(set! (-> obj part) (create-launch-control (-> *part-group-id-table* 196) obj))
(go boatpaddle-idle)
(none)
)
;; definition of type windturbine
(deftype windturbine (process-drawable)
((spawn-particle-enable symbol :offset-assert 176)
(angle-speed float :offset-assert 180)
)
:heap-base #x50
:method-count-assert 20
:size-assert #xb8
:flag-assert #x14005000b8
(:states
windturbine-idle
)
)
;; definition for method 3 of type windturbine
(defmethod inspect windturbine ((obj windturbine))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~T~Tspawn-particle-enable: ~A~%" (-> obj spawn-particle-enable))
(format #t "~T~Tangle-speed: ~f~%" (-> obj angle-speed))
obj
)
;; failed to figure out what this is:
(defskelgroup *windturbine-sg* windturbine
0
4
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
:bounds (static-spherem 0 3 0 7)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(defstate windturbine-idle (windturbine)
:code
(behavior ()
(while #t
(let* ((a0-0 (-> self root trans))
(f2-0
(-> *wind-work*
wind-force
(logand (+ (the int (-> a0-0 x)) (the int (-> a0-0 z)) (-> *wind-work* wind-time)) 63)
)
)
(f0-5 (* 0.992 (+ (-> self angle-speed) (* 3.6408892 f2-0))))
)
(set! (-> self angle-speed) (fmin 65536.0 f0-5))
)
(quaternion-rotate-local-y!
(-> self root quat)
(-> self root quat)
(* -1.0 (-> *display* seconds-per-frame) (-> self angle-speed))
)
(if (-> self spawn-particle-enable)
(spawn (-> self part) (-> self root trans))
)
(suspend)
)
(none)
)
:post
(the-as (function none :behavior windturbine) ja-post)
)
;; definition for method 11 of type windturbine
;; INFO: Return type mismatch object vs none.
(defmethod init-from-entity! windturbine ((obj windturbine) (arg0 entity-actor))
(set! (-> obj mask) (logior (process-mask ambient) (-> obj mask)))
(set! (-> obj root) (new 'process 'trsqv))
(process-drawable-from-entity! obj arg0)
(logclear! (-> obj mask) (process-mask actor-pause))
(set! (-> obj spawn-particle-enable) (= (res-lump-value arg0 'particle-select uint128) 1))
(if (-> obj spawn-particle-enable)
(set! (-> obj part) (create-launch-control (-> *part-group-id-table* 191) obj))
)
(initialize-skeleton obj *windturbine-sg* '())
(go windturbine-idle)
(none)
)
;; definition of type mis-bone-bridge
(deftype mis-bone-bridge (process-drawable)
((root-override collide-shape-moving :offset 112)
(particle-group sparticle-launch-group :offset-assert 176)
(player-attack-id int32 :offset-assert 180)
(fall-anim-index int32 :offset-assert 184)
(hit-points int8 :offset-assert 188)
)
:heap-base #x50
:method-count-assert 20
:size-assert #xbd
:flag-assert #x14005000bd
(:states
mis-bone-bridge-bump
(mis-bone-bridge-fall symbol)
mis-bone-bridge-hit
mis-bone-bridge-idle
)
)
;; definition for method 3 of type mis-bone-bridge
(defmethod inspect mis-bone-bridge ((obj mis-bone-bridge))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~T~Tparticle-group: ~A~%" (-> obj particle-group))
(format #t "~T~Tplayer-attack-id: ~D~%" (-> obj player-attack-id))
(format #t "~T~Tfall-anim-index: ~D~%" (-> obj fall-anim-index))
(format #t "~T~Thit-points: ~D~%" (-> obj hit-points))
obj
)
;; failed to figure out what this is:
(defskelgroup *mis-bone-bridge-sg* mis-bone-bridge
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 1 0 20)
:longest-edge (meters 0)
)
;; definition for function mis-bone-bridge-event-handler
;; Used lq/sq
(defbehavior mis-bone-bridge-event-handler mis-bone-bridge ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
(case arg2
(('attack)
(let ((s5-0 (-> arg3 param 2))
(gp-0 (vector-x-quaternion! (new-stack-vector0) (-> self root-override quat)))
(a0-4 (vector-z-quaternion! (new-stack-vector0) (-> self root-override quat)))
(v1-4 (vector-! (new-stack-vector0) (-> *target* control trans) (-> self root-override trans)))
)
0.0
0.0
(when (!= s5-0 (-> self player-attack-id))
(set! (-> self player-attack-id) (the-as int s5-0))
(let ((f0-3 (vector-dot gp-0 v1-4))
(f1-1 (vector-dot a0-4 v1-4))
)
(cond
((and (< 0.0 f1-1) (< (fabs (* 0.5 f0-3)) f1-1))
(let ((a1-9 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-9 from) self)
(set! (-> a1-9 num-params) 2)
(set! (-> a1-9 message) 'query)
(set! (-> a1-9 param 0) (the-as uint 'powerup))
(set! (-> a1-9 param 1) (the-as uint 2))
(if (send-event-function *target* a1-9)
(go mis-bone-bridge-fall #f)
(go mis-bone-bridge-hit)
)
)
)
(else
(go mis-bone-bridge-bump)
#f
)
)
)
)
)
)
)
)
;; failed to figure out what this is:
(defstate mis-bone-bridge-idle (mis-bone-bridge)
:event
mis-bone-bridge-event-handler
:code
(behavior ()
(let ((v1-2 (-> self skel root-channel 0)))
(set! (-> v1-2 num-func) num-func-identity)
(set! (-> v1-2 frame-num) 0.0)
)
(while #t
(if (and *target* (>= 32768.0 (vector-vector-distance (-> self root-override trans) (-> *target* control trans))))
(level-hint-spawn
(game-text-id misty-bone-bridge-hint)
"sksp0435"
(the-as entity #f)
*entity-pool*
(game-task none)
)
)
(suspend)
)
(none)
)
:post
(the-as (function none :behavior mis-bone-bridge) transform-post)
)
;; failed to figure out what this is:
(defstate mis-bone-bridge-bump (mis-bone-bridge)
:event
mis-bone-bridge-event-handler
:trans
(the-as (function none :behavior mis-bone-bridge) rider-trans)
:code
(behavior ()
(let ((a0-0 (-> self skel root-channel 0)))
(set! (-> a0-0 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
(set! (-> a0-0 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 6)) data 0 length) -1))
)
(set! (-> a0-0 param 1) 1.0)
(set! (-> a0-0 frame-num) 0.0)
(joint-control-channel-group! a0-0 (the-as art-joint-anim (-> self draw art-group data 6)) num-func-seek!)
)
(until (ja-done? 0)
(suspend)
(let ((a0-1 (-> self skel root-channel 0)))
(set! (-> a0-1 param 0) (the float (+ (-> a0-1 frame-group data 0 length) -1)))
(set! (-> a0-1 param 1) 1.0)
(joint-control-channel-group-eval! a0-1 (the-as art-joint-anim #f) num-func-seek!)
)
)
(go mis-bone-bridge-idle)
(none)
)
:post
(the-as (function none :behavior mis-bone-bridge) rider-post)
)
;; failed to figure out what this is:
(defstate mis-bone-bridge-hit (mis-bone-bridge)
:event
mis-bone-bridge-event-handler
:trans
(the-as (function none :behavior mis-bone-bridge) rider-trans)
:code
(behavior ()
(+! (-> self hit-points) -1)
(if (zero? (-> self hit-points))
(go mis-bone-bridge-fall #f)
)
(let ((a0-1 (-> self skel root-channel 0)))
(set! (-> a0-1 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
(set! (-> a0-1 param 0)
(the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) data 0 length) -1))
)
(set! (-> a0-1 param 1) 1.0)
(set! (-> a0-1 frame-num) 0.0)
(joint-control-channel-group! a0-1 (the-as art-joint-anim (-> self draw art-group data 5)) num-func-seek!)
)
(until (ja-done? 0)
(suspend)
(let ((a0-2 (-> self skel root-channel 0)))
(set! (-> a0-2 param 0) (the float (+ (-> a0-2 frame-group data 0 length) -1)))
(set! (-> a0-2 param 1) 1.0)
(joint-control-channel-group-eval! a0-2 (the-as art-joint-anim #f) num-func-seek!)
)
)
(go mis-bone-bridge-idle)
(none)
)
:post
(the-as (function none :behavior mis-bone-bridge) rider-post)
)
;; failed to figure out what this is:
(defstate mis-bone-bridge-fall (mis-bone-bridge)
:trans
(the-as (function none :behavior mis-bone-bridge) rider-trans)
:code
(behavior ((arg0 symbol))
(process-entity-status! self (entity-perm-status complete) #t)
(when (not arg0)
(let ((gp-1 (get-process *default-dead-pool* part-tracker #x4000)))
(when gp-1
(let ((t9-2 (method-of-type part-tracker activate)))
(t9-2 (the-as part-tracker gp-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
)
(run-now-in-process gp-1 part-tracker-init (-> self particle-group) -1 #f #f #f (-> self root-override trans))
(-> gp-1 ppointer)
)
)
(let ((a0-5 (-> self skel root-channel 0)))
(set! (-> a0-5 frame-group) (the-as art-joint-anim (-> self draw art-group data (-> self fall-anim-index))))
(set! (-> a0-5 param 0)
(the float
(+ (-> (the-as art-joint-anim (-> self draw art-group data (-> self fall-anim-index))) data 0 length) -1)
)
)
(set! (-> a0-5 param 1) 1.0)
(set! (-> a0-5 frame-num) 0.0)
(joint-control-channel-group!
a0-5
(the-as art-joint-anim (-> self draw art-group data (-> self fall-anim-index)))
num-func-seek!
)
)
(until (ja-done? 0)
(suspend)
(let ((a0-6 (-> self skel root-channel 0)))
(set! (-> a0-6 param 0) (the float (+ (-> a0-6 frame-group data 0 length) -1)))
(set! (-> a0-6 param 1) 1.0)
(joint-control-channel-group-eval! a0-6 (the-as art-joint-anim #f) num-func-seek!)
)
)
)
(let ((gp-2 (-> self skel root-channel 0)))
(joint-control-channel-group-eval!
gp-2
(the-as art-joint-anim (-> self draw art-group data (-> self fall-anim-index)))
num-func-identity
)
(set! (-> gp-2 frame-num) (the float (+ (-> (if (> (-> self skel active-channels) 0)
(-> self skel root-channel 0 frame-group)
)
data
0
length
)
-1
)
)
)
)
(while #t
(suspend)
)
(none)
)
:post
(the-as (function none :behavior mis-bone-bridge) rider-post)
)
;; definition for method 11 of type mis-bone-bridge
;; INFO: Return type mismatch object vs none.
(defmethod init-from-entity! mis-bone-bridge ((obj mis-bone-bridge) (arg0 entity-actor))
(set! (-> obj mask) (logior (process-mask platform) (-> obj mask)))
(let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-others))))
(set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
(set! (-> s4-0 reaction) default-collision-reaction)
(set! (-> s4-0 no-reaction)
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
)
(dummy-29 s4-0 1)
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0)))
(set! (-> s3-0 prim-core collide-as) (collide-kind ground-object))
(set! (-> s3-0 collide-with) (collide-kind target))
(set! (-> s3-0 prim-core action) (collide-action solid ca-10 ca-11))
(set! (-> s3-0 prim-core offense) (collide-offense indestructible))
(set! (-> s3-0 transform-index) 0)
(set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 98304.0)
(set-root-prim! s4-0 s3-0)
(let ((s2-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
(set! (-> s2-0 prim-core collide-as) (collide-kind ground-object))
(set! (-> s2-0 collide-with) (collide-kind target))
(set! (-> s2-0 prim-core action) (collide-action solid))
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
(set! (-> s2-0 transform-index) 0)
(set-vector! (-> s2-0 local-sphere) 0.0 0.0 0.0 9011.2)
(append-prim s3-0 s2-0)
)
(let ((s2-1 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
(set! (-> s2-1 prim-core collide-as) (collide-kind ground-object))
(set! (-> s2-1 collide-with) (collide-kind target))
(set! (-> s2-1 prim-core action) (collide-action solid))
(set! (-> s2-1 prim-core offense) (collide-offense indestructible))
(set! (-> s2-1 transform-index) 4)
(set-vector! (-> s2-1 local-sphere) 0.0 49152.0 0.0 49152.0)
(append-prim s3-0 s2-1)
)
)
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
(backup-collide-with-as s4-0)
(set! (-> obj root-override) s4-0)
)
(process-drawable-from-entity! obj arg0)
(initialize-skeleton obj *mis-bone-bridge-sg* '())
(let ((v1-40 (res-lump-value arg0 'animation-select uint128)))
(cond
((= (the-as uint v1-40) 1)
(set! (-> obj fall-anim-index) 2)
(set! (-> obj particle-group) (-> *part-group-id-table* 192))
)
((= (the-as uint v1-40) 2)
(set! (-> obj fall-anim-index) 3)
(set! (-> obj particle-group) (-> *part-group-id-table* 194))
)
((= (the-as uint v1-40) 3)
(set! (-> obj fall-anim-index) 2)
(set! (-> obj particle-group) (-> *part-group-id-table* 193))
)
((= (the-as uint v1-40) 7)
(set! (-> obj fall-anim-index) 4)
(set! (-> obj particle-group) (-> *part-group-id-table* 195))
)
(else
(set! (-> obj fall-anim-index) 2)
(set! (-> obj particle-group) (-> *part-group-id-table* 192))
)
)
)
(set! (-> obj hit-points) 3)
(if (and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status complete)))
(go mis-bone-bridge-fall #t)
(go mis-bone-bridge-idle)
)
(none)
)
;; definition of type breakaway
(deftype breakaway (process-drawable)
((root-override collide-shape-moving :offset 112)
)
:heap-base #x40
:method-count-assert 22
:size-assert #xb0
:flag-assert #x16004000b0
(:methods
(init! (_type_ res-lump int) none 20)
(go-idle (_type_) none 21)
)
(:states
breakaway-about-to-fall
breakaway-fall
breakaway-idle
)
)
;; definition for method 3 of type breakaway
(defmethod inspect breakaway ((obj breakaway))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
obj
)
;; failed to figure out what this is:
(defstate breakaway-idle (breakaway)
:event
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
(case arg2
(('touch)
(send-event arg0 'no-look-around 450)
(go breakaway-about-to-fall)
)
)
)
:code
(the-as (function none :behavior breakaway) anim-loop)
:post
(the-as (function none :behavior breakaway) transform-post)
)
;; definition for function actor-wait-for-period
(defun actor-wait-for-period ((arg0 int))
(let ((s5-0 (-> *display* base-frame-counter)))
(while (< (- (-> *display* base-frame-counter) s5-0) arg0)
(suspend)
)
)
#f
)
;; failed to figure out what this is:
(defstate breakaway-about-to-fall (breakaway)
:code
(behavior ()
(sound-play-by-name (static-sound-name "falling-bones") (new-sound-id) 1024 0 0 1 #t)
(sp-launch-particles-var
*sp-particle-system-2d*
(-> *part-id-table* 281)
(-> self root-override trans)
(the-as sparticle-launch-state #f)
(the-as sparticle-launch-control #f)
1.0
)
(let ((gp-1 #f)
(s5-1 (-> *display* base-frame-counter))
)
(while #t
(let ((s4-0 (-> self skel root-channel 0)))
(set! (-> s4-0 frame-group) (if (> (-> self skel active-channels) 0)
(-> self skel root-channel 0 frame-group)
)
)
(set! (-> s4-0 param 0) (ja-aframe 15.0 0))
(set! (-> s4-0 param 1) 1.0)
(set! (-> s4-0 frame-num) (ja-aframe 1.0 0))
(joint-control-channel-group!
s4-0
(if (> (-> self skel active-channels) 0)
(-> self skel root-channel 0 frame-group)
)
num-func-seek!
)
)
(until (ja-done? 0)
(when (and (not gp-1) (>= (- (-> *display* base-frame-counter) s5-1) 45))
(set! gp-1 #t)
(send-to-next-and-prev (-> self link) 'touch)
)
(if (>= (- (-> *display* base-frame-counter) s5-1) 75)
(go breakaway-fall)
)
(suspend)
(let ((s4-1 (-> self skel root-channel 0)))
(set! (-> s4-1 param 0) (ja-aframe 15.0 0))
(set! (-> s4-1 param 1) 1.0)
(joint-control-channel-group-eval! s4-1 (the-as art-joint-anim #f) num-func-seek!)
)
)
)
)
(none)
)
:post
(the-as (function none :behavior breakaway) rider-post)
)
;; failed to figure out what this is:
(defstate breakaway-fall (breakaway)
:code
(behavior ()
(let ((f30-0 0.0)
(f28-0 0.0)
(f26-0 (* 0.1 (- (-> *standard-dynamics* gravity-length))))
)
(let ((gp-0 (-> self skel root-channel 0)))
(set! (-> gp-0 frame-group) (if (> (-> self skel active-channels) 0)
(-> self skel root-channel 0 frame-group)
)
)
(set! (-> gp-0 param 0) (ja-aframe 32.0 0))
(set! (-> gp-0 param 1) 0.4)
(set! (-> gp-0 frame-num) (ja-aframe 16.0 0))
(joint-control-channel-group!
gp-0
(if (> (-> self skel active-channels) 0)
(-> self skel root-channel 0 frame-group)
)
num-func-seek!
)
)
(until (ja-done? 0)
(+! f30-0 (* f28-0 (-> *display* seconds-per-frame)))
(+! f28-0 (* f26-0 (-> *display* seconds-per-frame)))
(+! (-> self root-override trans y) f30-0)
(suspend)
(let ((gp-1 (-> self skel root-channel 0)))
(set! (-> gp-1 param 0) (ja-aframe 32.0 0))
(set! (-> gp-1 param 1) 0.4)
(joint-control-channel-group-eval! gp-1 (the-as art-joint-anim #f) num-func-seek!)
)
)
)
(dummy-18 self)
(none)
)
:post
(the-as (function none :behavior breakaway) rider-post)
)
;; definition for method 20 of type breakaway
(defmethod init! breakaway ((obj breakaway) (arg0 res-lump) (arg1 int))
(set! (-> obj mask) (logior (process-mask platform) (-> obj mask)))
(let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player))))
(set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
(set! (-> s4-0 reaction) default-collision-reaction)
(set! (-> s4-0 no-reaction)
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
)
(dummy-29 s4-0 1)
(let ((s2-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
(set! (-> s2-0 prim-core collide-as) (collide-kind ground-object))
(set! (-> s2-0 collide-with) (collide-kind target))
(set! (-> s2-0 prim-core action) (collide-action solid))
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
(set! (-> s2-0 transform-index) arg1)
(set-vector! (-> s2-0 local-sphere) 8192.0 -4096.0 8192.0 16384.0)
(set-root-prim! s4-0 s2-0)
)
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
(backup-collide-with-as s4-0)
(set! (-> obj root-override) s4-0)
)
(set! (-> obj link) (new 'process 'actor-link-info obj))
(process-drawable-from-entity! obj (the-as entity-actor arg0))
(none)
)
;; definition for method 21 of type breakaway
;; INFO: Return type mismatch object vs none.
(defmethod go-idle breakaway ((obj breakaway))
(go breakaway-idle)
(none)
)
;; definition of type breakaway-right
(deftype breakaway-right (breakaway)
()
:heap-base #x40
:method-count-assert 22
:size-assert #xb0
:flag-assert #x16004000b0
)
;; definition for method 3 of type breakaway-right
(defmethod inspect breakaway-right ((obj breakaway-right))
(let ((t9-0 (method-of-type breakaway inspect)))
(t9-0 obj)
)
obj
)
;; definition of type breakaway-mid
(deftype breakaway-mid (breakaway)
()
:heap-base #x40
:method-count-assert 22
:size-assert #xb0
:flag-assert #x16004000b0
)
;; definition for method 3 of type breakaway-mid
(defmethod inspect breakaway-mid ((obj breakaway-mid))
(let ((t9-0 (method-of-type breakaway inspect)))
(t9-0 obj)
)
obj
)
;; definition of type breakaway-left
(deftype breakaway-left (breakaway)
()
:heap-base #x40
:method-count-assert 22
:size-assert #xb0
:flag-assert #x16004000b0
)
;; definition for method 3 of type breakaway-left
(defmethod inspect breakaway-left ((obj breakaway-left))
(let ((t9-0 (method-of-type breakaway inspect)))
(t9-0 obj)
)
obj
)
;; failed to figure out what this is:
(defskelgroup *breakaway-right-sg* breakaway-right
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 7)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(defskelgroup *breakaway-mid-sg* breakaway-mid
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 7)
:longest-edge (meters 0)
)
;; failed to figure out what this is:
(defskelgroup *breakaway-left-sg* breakaway-left
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 7)
:longest-edge (meters 0)
)
;; definition for method 11 of type breakaway-right
(defmethod init-from-entity! breakaway-right ((obj breakaway-right) (arg0 entity-actor))
(init! obj arg0 3)
(initialize-skeleton obj *breakaway-right-sg* '())
(go-idle obj)
(none)
)
;; definition for method 11 of type breakaway-mid
(defmethod init-from-entity! breakaway-mid ((obj breakaway-mid) (arg0 entity-actor))
(init! obj arg0 3)
(initialize-skeleton obj *breakaway-mid-sg* '())
(go-idle obj)
(none)
)
;; definition for method 11 of type breakaway-left
(defmethod init-from-entity! breakaway-left ((obj breakaway-left) (arg0 entity-actor))
(init! obj arg0 3)
(initialize-skeleton obj *breakaway-left-sg* '())
(go-idle obj)
(none)
)
;; definition for symbol *bone-platform-constants*, type rigid-body-platform-constants
(define *bone-platform-constants* (new 'static 'rigid-body-platform-constants
:drag-factor 2.0
:buoyancy-factor 2.0
:max-buoyancy-depth (meters 3.0)
:gravity-factor 1.0
:gravity (meters 80.0)
:player-weight (meters 35.0)
:player-bonk-factor 1.0
:player-dive-factor 1.0
:player-force-distance (meters 1000.0)
:player-force-clamp (meters 1000000.0)
:player-force-timeout #x1e
:explosion-force (meters 1000.0)
:linear-damping 1.0
:angular-damping 1.0
:control-point-count 5
:mass 2.0
:inertial-tensor-x (meters 3.0)
:inertial-tensor-y (meters 2.0)
:inertial-tensor-z (meters 3.0)
:cm-joint-y (meters -3.0)
:idle-distance (meters 50.0)
:platform #t
:sound-name "mud-plat"
)
)
;; definition of type bone-platform
(deftype bone-platform (rigid-body-platform)
((anchor-point vector :inline :offset-assert 736)
)
:heap-base #x280
:method-count-assert 35
:size-assert #x2f0
:flag-assert #x23028002f0
)
;; definition for method 3 of type bone-platform
(defmethod inspect bone-platform ((obj bone-platform))
(let ((t9-0 (method-of-type rigid-body-platform inspect)))
(t9-0 obj)
)
(format #t "~T~Tanchor-point: #<vector @ #x~X>~%" (-> obj anchor-point))
obj
)
;; failed to figure out what this is:
(defskelgroup *mis-bone-platform-sg* mis-bone-platform
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 4)
:longest-edge (meters 0)
)
;; definition for method 27 of type bone-platform
;; INFO: Return type mismatch int vs none.
(defmethod TODO-RENAME-27 bone-platform ((obj bone-platform) (arg0 vector))
(let ((gp-0 (new 'stack-no-clear 'vector)))
(vector-! gp-0 arg0 (-> obj rbody position))
(set! (-> gp-0 y) 0.0)
(let* ((f0-1 (vector-length gp-0))
(f1-1 (* 20.0 (fmax 0.0 (fmin 4096.0 (+ -819.2 f0-1)))))
)
(when (< 0.0 f1-1)
(vector-float*! gp-0 gp-0 (/ f1-1 f0-1))
(TODO-RENAME-15 (-> obj rbody) gp-0)
)
)
)
0
(none)
)
;; definition for method 23 of type bone-platform
;; INFO: Return type mismatch int vs none.
(defmethod TODO-RENAME-23 bone-platform ((obj bone-platform) (arg0 float))
((the-as (function rigid-body-platform basic none) (find-parent-method bone-platform 23))
obj
(the-as basic arg0)
)
(TODO-RENAME-27 obj (-> obj anchor-point))
0
(none)
)
;; failed to figure out what this is:
(defstate rigid-body-platform-idle (bone-platform)
:virtual #t
:enter
(behavior ()
(ja-channel-set! 0)
(none)
)
:code
(behavior ()
(while #t
(suspend)
)
(none)
)
:post
(the-as (function none :behavior bone-platform) ja-post)
)
;; failed to figure out what this is:
(defstate rigid-body-platform-float (bone-platform)
:virtual #t
:event
(the-as
(function process int symbol event-message-block object :behavior bone-platform)
rigid-body-platform-event-handler
)
:trans
(behavior ()
(-> self entity extra trans y)
(cond
((or (not *target*) (< (-> self info idle-distance)
(vector-vector-distance (-> self root-overlay trans) (-> *target* control trans))
)
)
(let ((f30-1 -4096.0))
(set! (-> self float-height-offset)
(seek (-> self float-height-offset) f30-1 (* 2048.0 (-> *display* seconds-per-frame)))
)
(if (= (-> self float-height-offset) f30-1)
(go-virtual rigid-body-platform-idle)
)
)
)
(else
(set! (-> self float-height-offset)
(seek (-> self float-height-offset) 4096.0 (* 2048.0 (-> *display* seconds-per-frame)))
)
)
)
(none)
)
:code
(behavior ()
(ja-channel-push! 1 30)
(let ((v1-2 (-> self skel root-channel 0)))
(set! (-> v1-2 frame-group) (the-as art-joint-anim (-> self draw art-group data 2)))
)
(let ((v1-5 (-> self skel root-channel 0)))
(set! (-> v1-5 num-func) num-func-identity)
(set! (-> v1-5 frame-num) 0.0)
)
(while #t
(suspend)
)
(none)
)
:post
(the-as (function none :behavior bone-platform) rigid-body-platform-post)
)
;; definition for method 30 of type bone-platform
;; INFO: Return type mismatch int vs none.
(defmethod TODO-RENAME-30 bone-platform ((obj bone-platform))
(let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player))))
(set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
(set! (-> s5-0 reaction) default-collision-reaction)
(set! (-> s5-0 no-reaction)
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
)
(dummy-29 s5-0 1)
(let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0))))
(set! (-> s4-0 prim-core collide-as) (collide-kind ground-object))
(set! (-> s4-0 collide-with) (collide-kind target))
(set! (-> s4-0 prim-core action) (collide-action solid ca-1))
(set! (-> s4-0 prim-core offense) (collide-offense indestructible))
(set! (-> s4-0 transform-index) 3)
(set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 20480.0)
(set-root-prim! s5-0 s4-0)
)
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
(backup-collide-with-as s5-0)
(set! (-> obj root-overlay) s5-0)
)
0
(none)
)
;; definition for method 31 of type bone-platform
;; INFO: Return type mismatch int vs none.
;; Used lq/sq
(defmethod TODO-RENAME-31 bone-platform ((obj bone-platform))
(initialize-skeleton obj *mis-bone-platform-sg* '())
(TODO-RENAME-29 obj *bone-platform-constants*)
(set! (-> obj float-height-offset) -4096.0)
(if (name= (-> obj name) "bone-platform-5")
(set-vector! (-> obj root-overlay scale) 0.8 1.0 0.8 1.0)
)
(let ((s5-0 (-> obj info control-point-count)))
(dotimes (s4-0 s5-0)
(let ((s3-0 (-> obj control-point-array data s4-0)))
(let ((f30-0 (* 65536.0 (/ (the float s4-0) (the float s5-0)))))
(set! (-> s3-0 local-pos x) (* 12288.0 (sin f30-0)))
(set! (-> s3-0 local-pos y) -12288.0)
(set! (-> s3-0 local-pos z) (* 12288.0 (cos f30-0)))
)
(set! (-> s3-0 local-pos w) 1.0)
)
)
)
(set! (-> obj anchor-point quad) (-> obj root-overlay trans quad))
0
(none)
)
;; definition of type mistycam
(deftype mistycam (process-hidden)
()
:method-count-assert 15
:size-assert #x70
:flag-assert #xf00000070
)
;; definition for method 3 of type mistycam
(defmethod inspect mistycam ((obj mistycam))
(format #t "[~8x] ~A~%" obj (-> obj type))
(format #t "~Tname: ~A~%" (-> obj name))
(format #t "~Tmask: ~D~%" (-> obj mask))
(format #t "~Tparent: #x~X~%" (-> obj parent))
(format #t "~Tbrother: #x~X~%" (-> obj brother))
(format #t "~Tchild: #x~X~%" (-> obj child))
(format #t "~Tppointer: #x~X~%" (-> obj ppointer))
(format #t "~Tself: ~A~%" (-> obj self))
(format #t "~Tpool: ~A~%" (-> obj pool))
(format #t "~Tstatus: ~A~%" (-> obj status))
(format #t "~Tpid: ~D~%" (-> obj pid))
(format #t "~Tmain-thread: ~A~%" (-> obj main-thread))
(format #t "~Ttop-thread: ~A~%" (-> obj top-thread))
(format #t "~Tentity: ~A~%" (-> obj entity))
(format #t "~Tstate: ~A~%" (-> obj state))
(format #t "~Ttrans-hook: ~A~%" (-> obj trans-hook))
(format #t "~Tpost-hook: ~A~%" (-> obj post-hook))
(format #t "~Tevent-hook: ~A~%" (-> obj event-hook))
(format #t "~Tallocated-length: ~D~%" (-> obj allocated-length))
(format #t "~Tnext-state: ~A~%" (-> obj next-state))
(format #t "~Theap-base: #x~X~%" (-> obj heap-base))
(format #t "~Theap-top: #x~X~%" (-> obj heap-top))
(format #t "~Theap-cur: #x~X~%" (-> obj heap-cur))
(format #t "~Tstack-frame-top: ~A~%" (-> obj stack-frame-top))
(format #t "~Theap: #<kheap @ #x~X>~%" (&-> obj heap-base))
(format #t "~Tconnection-list: ~`'connectable`P~%" (-> obj connection-list))
(format #t "~Tstack[0] @ #x~X~%" (-> obj stack))
obj
)
;; failed to figure out what this is:
(defskelgroup *mistycam-sg* mistycam
0
2
((1 (meters 999999)))
:bounds (static-spherem 0 0 0 20)
:longest-edge (meters 0)
)
;; definition for function mistycam-spawn
;; INFO: Return type mismatch int vs none.
(defun mistycam-spawn ()
(with-pp
(let ((gp-0 (entity-actor-lookup (-> pp entity) 'alt-actor 0)))
(when gp-0
(let* ((s5-0 (get-process *default-dead-pool* pov-camera #x4000))
(gp-1
(ppointer->handle
(when s5-0
(let ((t9-2 (method-of-type pov-camera activate)))
(t9-2 (the-as pov-camera s5-0) pp 'pov-camera (the-as pointer #x70004000))
)
(run-now-in-process
s5-0
pov-camera-init-by-other
(-> gp-0 extra trans)
*mistycam-sg*
(new 'static 'spool-anim :name "mistycam-cannon" :index 5 :parts 1 :command-list '())
0
#f
'()
)
(-> s5-0 ppointer)
)
)
)
(s5-1 (get-process *default-dead-pool* fuel-cell #x4000))
(s5-2
(ppointer->handle (when s5-1
(let ((t9-5 (method-of-type fuel-cell activate)))
(t9-5 (the-as fuel-cell s5-1) pp 'fuel-cell (the-as pointer #x70004000))
)
(run-now-in-process s5-1 fuel-cell-init-as-clone gp-1 (-> pp entity extra perm task))
(-> s5-1 ppointer)
)
)
)
)
(let ((v1-13 (handle->process gp-1)))
(if v1-13
(set! (-> (the-as pov-camera v1-13) notify-handle) (the-as handle s5-2))
)
)
(while (handle->process gp-1)
(suspend)
)
(send-event (handle->process s5-2) 'stop-cloning)
)
)
)
0
(none)
)
)
;; definition of type misty-battlecontroller
(deftype misty-battlecontroller (battlecontroller)
()
:heap-base #x210
:method-count-assert 29
:size-assert #x27c
:flag-assert #x1d0210027c
)
;; definition for method 3 of type misty-battlecontroller
(defmethod inspect misty-battlecontroller ((obj misty-battlecontroller))
(let ((t9-0 (method-of-type battlecontroller inspect)))
(t9-0 obj)
)
obj
)
;; failed to figure out what this is:
(defstate battlecontroller-play-intro-camera (misty-battlecontroller)
:virtual #t
:code
(behavior ()
(let* ((gp-0 (get-process *default-dead-pool* pov-camera #x4000))
(gp-1
(ppointer->handle
(when gp-0
(let ((t9-1 (method-of-type pov-camera activate)))
(t9-1 (the-as pov-camera gp-0) self 'pov-camera (the-as pointer #x70004000))
)
(run-now-in-process gp-0 pov-camera-init-by-other (-> self root trans) *mistycam-sg* "lurkerattack" 0 #f '())
(-> gp-0 ppointer)
)
)
)
)
(while (handle->process (the-as handle gp-1))
(suspend)
)
)
(go-virtual battlecontroller-active)
(none)
)
)
;; definition for method 27 of type misty-battlecontroller
;; INFO: Return type mismatch int vs none.
(defmethod TODO-RENAME-27 misty-battlecontroller ((obj misty-battlecontroller))
((the-as (function battlecontroller none) (find-parent-method misty-battlecontroller 27)) obj)
(set! (-> obj misty-ambush-collision-hack) #t)
0
(none)
)
;; definition (debug) for function misty-cam-restore
;; Used lq/sq
(defun-debug misty-cam-restore ()
(let ((a0-0 (new-stack-vector0))
(a1-0 (new-stack-matrix0))
)
(set! (-> a0-0 x) -711702.3)
(set! (-> a0-0 y) 268833.34)
(set! (-> a0-0 z) 4193524.2)
(set! (-> a0-0 w) 1.0)
(set! (-> a1-0 vector 0 x) -0.6991)
(set! (-> a1-0 vector 0 y) 0.0)
(set! (-> a1-0 vector 0 z) -0.7149)
(set! (-> a1-0 vector 0 w) 0.0)
(set! (-> a1-0 vector 1 x) 0.3474)
(set! (-> a1-0 vector 1 y) 0.8739)
(set! (-> a1-0 vector 1 z) -0.3398)
(set! (-> a1-0 vector 1 w) 0.0)
(set! (-> a1-0 vector 2 x) 0.6248)
(set! (-> a1-0 vector 2 y) -0.486)
(set! (-> a1-0 vector 2 z) -0.611)
(set! (-> a1-0 vector 2 w) 0.0)
(set! (-> a1-0 vector 3 x) 0.0)
(set! (-> a1-0 vector 3 y) 0.0)
(set! (-> a1-0 vector 3 z) 0.0)
(set! (-> a1-0 vector 3 w) 1.0)
(debug-set-camera-pos-rot! a0-0 a1-0)
)
(send-event *camera* 'set-fov 11650.845)
(clear *camera-old-level*)
(format *camera-old-level* "misty")
(set! *camera-old-cpu* 6867)
(set! *camera-old-vu* #x4b0f)
(set! *camera-old-tfrag-bytes* #x1ec490)
(clear *camera-old-stat-string-tfrag*)
(clear *camera-old-stat-string-tfrag-near*)
(clear *camera-old-stat-string-total*)
(let ((v0-7 #t))
(set! *display-camera-old-stats* v0-7)
v0-7
)
)
;; definition of type boat-fuelcell
(deftype boat-fuelcell (process-drawable)
((play-cutscene? symbol :offset-assert 176)
)
:heap-base #x50
:method-count-assert 20
:size-assert #xb4
:flag-assert #x14005000b4
(:states
boat-fuelcell-die
boat-fuelcell-idle
boat-fuelcell-spawn
)
)
;; definition for method 3 of type boat-fuelcell
(defmethod inspect boat-fuelcell ((obj boat-fuelcell))
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~T~Tplay-cutscene?: ~A~%" (-> obj play-cutscene?))
obj
)
;; failed to figure out what this is:
(defstate boat-fuelcell-idle (boat-fuelcell)
:event
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
(case arg2
(('task-complete)
(set! (-> self play-cutscene?) #t)
(process-entity-status! self (entity-perm-status complete) #t)
(go boat-fuelcell-spawn)
)
)
)
:code
(the-as (function none :behavior boat-fuelcell) anim-loop)
)
;; failed to figure out what this is:
(defstate boat-fuelcell-spawn (boat-fuelcell)
:event
(the-as
(function process int symbol event-message-block object :behavior boat-fuelcell)
process-drawable-fuel-cell-handler
)
:code
(behavior ()
(process-drawable-birth-fuel-cell (the-as entity #f) (the-as vector #f) #f)
(when (and *target* (-> self play-cutscene?))
(ambient-hint-spawn "gamcam02" (the-as vector #f) *entity-pool* 'camera)
(let* ((gp-0 (get-process *default-dead-pool* pov-camera #x4000))
(gp-1 (ppointer->handle (when gp-0
(let ((t9-3 (method-of-type pov-camera activate)))
(t9-3 (the-as pov-camera gp-0) self 'pov-camera (the-as pointer #x70004000))
)
(run-now-in-process
gp-0
pov-camera-init-by-other
(-> self root trans)
*mistycam-sg*
"mistycam-balloon-fuel-cell"
0
#f
'()
)
(-> gp-0 ppointer)
)
)
)
)
(while (handle->process (the-as handle gp-1))
(suspend)
)
)
)
(while (-> self child)
(suspend)
)
(go boat-fuelcell-die)
(none)
)
)
;; failed to figure out what this is:
(defstate boat-fuelcell-die (boat-fuelcell)
:code
(behavior ()
(dummy-18 self)
(none)
)
)
;; definition for method 11 of type boat-fuelcell
;; INFO: Return type mismatch object vs none.
(defmethod init-from-entity! boat-fuelcell ((obj boat-fuelcell) (arg0 entity-actor))
(set! (-> obj root) (new 'process 'trsqv))
(process-drawable-from-entity! obj arg0)
(logclear! (-> obj mask) (process-mask actor-pause))
(set! (-> obj play-cutscene?) #f)
(if (and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status complete)))
(go boat-fuelcell-spawn)
(go boat-fuelcell-idle)
)
(none)
)
Reference in New Issue View Git Blame Copy Permalink