mirror of
https://github.com/open-goal/jak-project
synced 2026-06-09 12:46:43 -04:00
ManDude
cd68cb671e
Major change to how `deftype` shows up in our code: - the decompiler will no longer emit the `offset-assert`, `method-count-assert`, `size-assert` and `flag-assert` parameters. There are extremely few cases where having this in the decompiled code is helpful, as the types there come from `all-types` which already has those parameters. This also doesn't break type consistency because: - the asserts aren't compared. - the first step of the test uses `all-types`, which has the asserts, which will throw an error if they're bad. - the decompiler won't emit the `heap-base` parameter unless necessary now. - the decompiler will try its hardest to turn a fixed-offset field into an `overlay-at` field. It falls back to the old offset if all else fails. - `overlay-at` now supports field "dereferencing" to specify the offset that's within a field that's a structure, e.g.: ```lisp (deftype foobar (structure) ((vec vector :inline) (flags int32 :overlay-at (-> vec w)) ) ) ``` in this structure, the offset of `flags` will be 12 because that is the final offset of `vec`'s `w` field within this structure. - **removed ID from all method declarations.** IDs are only ever automatically assigned now. Fixes #3068. - added an `:overlay` parameter to method declarations, in order to declare a new method that goes on top of a previously-defined method. Syntax is `:overlay <method-name>`. Please do not ever use this. - added `state-methods` list parameter. This lets you quickly specify a list of states to be put in the method table. Same syntax as the `states` list parameter. The decompiler will try to put as many states in this as it can without messing with the method ID order. Also changes `defmethod` to make the first type definition (before the arguments) optional. The type can now be inferred from the first argument. Fixes #3093. --------- Co-authored-by: Hat Kid <6624576+Hat-Kid@users.noreply.github.com>
1430 lines
42 KiB
Common Lisp
Vendored
Generated
1430 lines
42 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type dig-part
|
|
(deftype dig-part (part-spawner)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type dig-part
|
|
(defmethod inspect ((this dig-part))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type part-spawner inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-hanging-light
|
|
:id 1153
|
|
:bounds (static-bspherem 0 0 0 5)
|
|
:parts ((sp-item 4995 :fade-after (meters 120) :flags (bit6)) (sp-item 4996 :fade-after (meters 120) :flags (bit6)))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 4995
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2) (meters 0.1))
|
|
(:rot-x (degrees 2.25))
|
|
(:rot-z (degrees -17))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 32.0)
|
|
(:omega (degrees 2715.75))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 10240.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 4996
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 10) (meters 0.1))
|
|
(:rot-x (degrees 4.5))
|
|
(:rot-z (degrees -17))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0 255.0)
|
|
(:b 255.0)
|
|
(:a 16.0)
|
|
(:omega (degrees 2715.75))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 2048.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-digger-explode
|
|
:id 1154
|
|
:duration (seconds 3)
|
|
:flags (use-local-clock)
|
|
:bounds (static-bspherem 0 0 0 15)
|
|
:parts ((sp-item 4997 :period (seconds 32) :length (seconds 0.085))
|
|
(sp-item 4998 :period (seconds 32) :length (seconds 0.267) :offset 80)
|
|
(sp-item 4999 :period (seconds 32) :length (seconds 0.035) :offset 25)
|
|
(sp-item 5000 :period (seconds 32) :length (seconds 0.167) :offset 45)
|
|
(sp-item 5001 :period (seconds 32) :length (seconds 0.117) :offset 30)
|
|
(sp-item 5002 :period (seconds 32) :length (seconds 0.167) :offset 35)
|
|
(sp-item 5003 :period (seconds 32) :length (seconds 0.017))
|
|
(sp-item 5004 :period (seconds 32) :length (seconds 0.167) :offset 35)
|
|
(sp-item 5005 :period (seconds 32) :length (seconds 0.017))
|
|
(sp-item 5006 :flags (is-3d) :period (seconds 32) :length (seconds 0.017) :offset 20)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 4998
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 8.0)
|
|
(:y (meters -2.5))
|
|
(:scale-x (meters 16.5) (meters 20))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 0.0 64.0)
|
|
(:g :copy r)
|
|
(:b :copy g)
|
|
(:a 0.0)
|
|
(:vel-y (meters 0.1) (meters 0.53333336))
|
|
(:scalevel-x (meters 0.05) (meters 0.1))
|
|
(:rotvel-z (degrees -0.12) (degrees 0.24))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a 1.28 0.64)
|
|
(:friction 0.92 0.02)
|
|
(:timer (seconds 8))
|
|
(:flags (sp-cpuinfo-flag-2))
|
|
(:next-time (seconds 0.117) (seconds 0.097))
|
|
(:next-launcher 5007)
|
|
(:conerot-x (degrees 0) (degrees 120))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 90))
|
|
(:conerot-radius (meters 0) (meters 16))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5007
|
|
:init-specs ((:scalevel-x (meters 0.016666668))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a 0.0)
|
|
(:next-time (seconds 2) (seconds 1.997))
|
|
(:next-launcher 5008)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5008
|
|
:init-specs ((:scalevel-x (meters 0.016666668)) (:scalevel-y :copy scalevel-x) (:fade-a -0.08 -0.08))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5006
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x2c :page #xc))
|
|
(:num 8.0)
|
|
(:scale-x (meters 16))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g :copy r)
|
|
(:b 128.0)
|
|
(:a 136.0)
|
|
(:scalevel-x (meters 2))
|
|
(:rotvel-y (degrees 0.1))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r -1.0625)
|
|
(:fade-g -2.125)
|
|
(:fade-b -2.1333334)
|
|
(:fade-a -3.2)
|
|
(:timer (seconds 1.067))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
(:next-time (seconds 0.135))
|
|
(:next-launcher 5009)
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5009
|
|
:init-specs ((:fade-a -0.06666667))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5003
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:y (meters -2.5))
|
|
(:scale-x (meters 64))
|
|
(:rot-x (degrees 45))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 96.0)
|
|
(:scalevel-x (meters 0.26666668))
|
|
(:rotvel-z (degrees 0.3))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 0.0)
|
|
(:fade-g -1.28)
|
|
(:fade-b -5.1)
|
|
(:fade-a 0.0)
|
|
(:timer (seconds 0.217))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 122880.0)
|
|
(:next-time (seconds 0.1))
|
|
(:next-launcher 5010)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5010
|
|
:init-specs ((:scalevel-x (meters -0.22857143))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 0.0)
|
|
(:fade-g -3.6571429)
|
|
(:fade-b 0.0)
|
|
(:fade-a -2.7428572)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5005
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 80))
|
|
(:rot-x (degrees 45))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 24.0)
|
|
(:scalevel-x (meters 1.3333334))
|
|
(:rotvel-z (degrees 0.3))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 0.0)
|
|
(:fade-g -4.266667)
|
|
(:fade-b -4.266667)
|
|
(:fade-a 0.0)
|
|
(:timer (seconds 0.5))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 glow))
|
|
(:userdata 409600.0)
|
|
(:next-time (seconds 0.25))
|
|
(:next-launcher 5011)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5011
|
|
:init-specs ((:scalevel-x (meters 0))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r -0.85333335)
|
|
(:fade-g -1.7066667)
|
|
(:fade-b -1.7066667)
|
|
(:fade-a -0.64)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5001
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x92 :page #xc))
|
|
(:num 16.0)
|
|
(:y (meters 0))
|
|
(:scale-x (meters 2.5))
|
|
(:rot-x 4)
|
|
(:scale-y (meters 0.2) (meters 0.3))
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 64.0 32.0)
|
|
(:omega (degrees 0.0675))
|
|
(:vel-y (meters 0.53333336) (meters 0.33333334))
|
|
(:fade-b -8.0)
|
|
(:accel-y (meters -0.0033333334) (meters -0.0016666667))
|
|
(:friction 0.9 0.08)
|
|
(:timer (seconds 1.5) (seconds 0.997))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
|
|
(:func 'sparticle-motion-blur)
|
|
(:next-time (seconds 0.05))
|
|
(:next-launcher 5012)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 90))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5012
|
|
:init-specs ((:r 255.0)
|
|
(:g 255.0)
|
|
(:b 0.0)
|
|
(:fade-r 0.0)
|
|
(:fade-g -2.6133332)
|
|
(:fade-b -1.7066667)
|
|
(:fade-a -0.096 -0.096)
|
|
(:next-time (seconds 0.25))
|
|
(:next-launcher 5013)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5013
|
|
:init-specs ((:fade-r 0.0) (:fade-g 0.0) (:fade-b 0.0))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5004
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x34 :page #xc))
|
|
(:num 5.0)
|
|
(:y (meters -2.5))
|
|
(:scale-x (meters 6) (meters 8))
|
|
(:rot-x 4)
|
|
(:rot-z (degrees 0) (degrees 3600) :store)
|
|
(:scale-y (meters 20) (meters 8))
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 16.0 16.0)
|
|
(:vel-y (meters 0.1) (meters 0.4))
|
|
(:scalevel-x (meters 0.26666668) (meters 0.13333334))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 0.0)
|
|
(:fade-g -0.36)
|
|
(:fade-b -4.24)
|
|
(:fade-a -0.13333334)
|
|
(:friction 0.92 0.02)
|
|
(:timer (seconds 3.335))
|
|
(:flags (sp-cpuinfo-flag-2))
|
|
(:func 'sparticle-motion-blur)
|
|
(:next-time (seconds 0.085))
|
|
(:next-launcher 5014)
|
|
(:conerot-x '*sp-temp*)
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 90))
|
|
(:conerot-radius (meters 0) (meters 2))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5014
|
|
:init-specs ((:scalevel-x (meters 0.016666668) (meters 0.016666668))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r -0.55)
|
|
(:fade-g -2.95)
|
|
(:fade-b -3.3)
|
|
(:next-time (seconds 0.1) (seconds 0.03))
|
|
(:next-launcher 5015)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5015
|
|
:init-specs ((:scalevel-x (meters 0.008333334) (meters 0.008333334))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r -1.2944444)
|
|
(:fade-g -0.7111111)
|
|
(:fade-b -0.2)
|
|
(:fade-a -0.1 -0.1)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5002
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x33 :page #xc))
|
|
(:birth-func 'birth-func-texture-group)
|
|
(:num 16.0 10.0)
|
|
(:y (meters -2.5))
|
|
(:scale-x (meters 6) (meters 4))
|
|
(:rot-z (degrees 0))
|
|
(:scale-y (meters 12.8) (meters 2.4))
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 32.0 32.0)
|
|
(:vel-y (meters 0.06666667) (meters 0.2))
|
|
(:scalevel-x (meters 0.26666668) (meters 0.2))
|
|
(:rotvel-z (degrees -0.3) (degrees 0.6))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 0.0)
|
|
(:fade-g -0.36)
|
|
(:fade-b -4.24)
|
|
(:fade-a -0.32)
|
|
(:friction 0.94)
|
|
(:timer (seconds 3.335))
|
|
(:flags (sp-cpuinfo-flag-2))
|
|
(:userdata :data (new 'static 'boxed-array :type int32 40 1 0 #xc00000 #xc03300))
|
|
(:next-time (seconds 0.085))
|
|
(:next-launcher 5016)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 90))
|
|
(:conerot-radius (meters 0) (meters 8))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5016
|
|
:init-specs ((:fade-r 0.0) (:fade-g 0.0) (:fade-b 0.0) (:next-time (seconds 0.017) (seconds 0.065)) (:next-launcher 5017))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5017
|
|
:init-specs ((:scalevel-x (meters 0.016666668) (meters 0.016666668))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r -0.44)
|
|
(:fade-g -2.36)
|
|
(:fade-b -2.64)
|
|
(:next-time (seconds 0.117) (seconds 0.047))
|
|
(:next-launcher 5018)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5018
|
|
:init-specs ((:scalevel-x (meters 0.008333334) (meters 0.008333334))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r -1.2)
|
|
(:fade-g -0.7111111)
|
|
(:fade-b -0.2)
|
|
(:fade-a -0.06545454 -0.06545454)
|
|
(:next-time (seconds 0.5) (seconds 0.097))
|
|
(:next-launcher 5019)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5019
|
|
:init-specs ((:fade-r 0.0) (:fade-g 0.0) (:fade-b 0.0) (:fade-a -0.1125))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5000
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x32 :page #xc))
|
|
(:num 16.0 4.0)
|
|
(:x (meters 0.25))
|
|
(:y (meters -2.5))
|
|
(:scale-x (meters 4) (meters 4))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 255.0)
|
|
(:b 255.0)
|
|
(:a 32.0 48.0)
|
|
(:vel-y (meters 0.13333334) (meters 0.8))
|
|
(:scalevel-x (meters 0.02) (meters 0.02))
|
|
(:rotvel-z (degrees -0.12) (degrees 0.24))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 0.0)
|
|
(:fade-g -0.18)
|
|
(:fade-b -2.12)
|
|
(:accel-y (meters -0.0013333333) (meters -0.0056666667))
|
|
(:friction 0.84 0.02)
|
|
(:timer (seconds 10))
|
|
(:flags (sp-cpuinfo-flag-2))
|
|
(:next-time (seconds 0.117) (seconds 0.047))
|
|
(:next-launcher 5020)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 90))
|
|
(:conerot-radius (meters 3) (meters 5))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5020
|
|
:init-specs ((:scalevel-x (meters 0.0016666667))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 0.0)
|
|
(:fade-g 0.02)
|
|
(:fade-b 0.23555556)
|
|
(:next-time (seconds 0.15) (seconds 0.047))
|
|
(:next-launcher 5021)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5021
|
|
:init-specs ((:fade-r -0.5543478) (:fade-g -0.5543478) (:fade-b -0.5543478) (:fade-a -0.13333334 -0.10666667))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 4997
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 12.0 8.0)
|
|
(:y (meters -2.5))
|
|
(:scale-x (meters 16.5) (meters 16))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 70.0 20.0)
|
|
(:g 70.0 20.0)
|
|
(:b 70.0 20.0)
|
|
(:a 0.0 40.0)
|
|
(:vel-y (meters 0.06666667) (meters 0.33333334))
|
|
(:scalevel-x (meters 0.033333335) (meters 0.086666666))
|
|
(:rotvel-z (degrees -0.12) (degrees 0.24))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r 3.3)
|
|
(:fade-g 3.12)
|
|
(:fade-b 1.18)
|
|
(:fade-a 1.76)
|
|
(:friction 0.89)
|
|
(:timer (seconds 2.367))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
|
|
(:next-time (seconds 0.117) (seconds 0.047))
|
|
(:next-launcher 5022)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 90))
|
|
(:conerot-radius (meters 0) (meters 16))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5022
|
|
:init-specs ((:scalevel-x (meters 0.0033333334))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r -0.53333336)
|
|
(:fade-g -1.9666667)
|
|
(:fade-b -2.2)
|
|
(:fade-a -0.41666666)
|
|
(:next-time (seconds 0.15) (seconds 0.047))
|
|
(:next-launcher 5023)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5023
|
|
:init-specs ((:scalevel-x (meters 0))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-r -0.38833332)
|
|
(:fade-g -0.21333334)
|
|
(:fade-b -0.028333334)
|
|
(:fade-a -0.38833332)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 4999
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x31 :page #xc))
|
|
(:num 8.0)
|
|
(:y (meters -2.5))
|
|
(:scale-x (meters 16) (meters 16))
|
|
(:rot-x 4)
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 1.5) (meters 0.5))
|
|
(:r 128.0 128.0)
|
|
(:g 96.0)
|
|
(:b 64.0)
|
|
(:a 64.0 64.0)
|
|
(:scalevel-x (meters 0.4) (meters 0.4))
|
|
(:fade-g 1.6)
|
|
(:fade-b 3.2)
|
|
(:fade-a -0.9142857)
|
|
(:timer (seconds 0.3))
|
|
(:flags (sp-cpuinfo-flag-2))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-digger-trailer-small
|
|
:id 1155
|
|
:bounds (static-bspherem 0 0 0 15)
|
|
:parts ((sp-item 5024))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5024
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 0.0 1.0)
|
|
(:scale-x (meters 3) (meters 5))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 3) (meters 5))
|
|
(:r 64.0 128.0)
|
|
(:g :copy r)
|
|
(:b :copy g)
|
|
(:a 0.0)
|
|
(:scalevel-x (meters 0.006666667) (meters 0.01))
|
|
(:rotvel-z (degrees -0.3) (degrees 0.6))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a 0.8 1.6)
|
|
(:accel-y (meters -0.00033333333) (meters -0.00033333333))
|
|
(:timer (seconds 2.167))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-12))
|
|
(:next-time (seconds 0.067))
|
|
(:next-launcher 5025)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:conerot-radius (meters -1.5) (meters 5))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-digger-trailer-medium
|
|
:id 1156
|
|
:bounds (static-bspherem 0 0 0 15)
|
|
:parts ((sp-item 5026))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5026
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 0.0 1.0)
|
|
(:scale-x (meters 6) (meters 6))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 6) (meters 6))
|
|
(:r 64.0 128.0)
|
|
(:g :copy r)
|
|
(:b :copy g)
|
|
(:a 0.0)
|
|
(:scalevel-x (meters 0.006666667) (meters 0.013333334))
|
|
(:rotvel-z (degrees -0.3) (degrees 0.6))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a 1.6 1.6)
|
|
(:accel-y (meters -0.00033333333) (meters -0.00033333333))
|
|
(:timer (seconds 2.167))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-12))
|
|
(:next-time (seconds 0.067))
|
|
(:next-launcher 5025)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:conerot-radius (meters -1) (meters 4))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5025
|
|
:init-specs ((:fade-a -0.10666667 -0.42666668))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-digger-trailer-large
|
|
:id 1157
|
|
:bounds (static-bspherem 0 0 0 15)
|
|
:parts ((sp-item 5027))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5027
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 0.0 1.0)
|
|
(:scale-x (meters 12) (meters 12))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 8) (meters 8))
|
|
(:r 64.0 128.0)
|
|
(:g :copy r)
|
|
(:b :copy g)
|
|
(:a 0.0)
|
|
(:scalevel-x (meters 0.01) (meters 0.02))
|
|
(:rotvel-z (degrees -0.3) (degrees 0.6))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a 1.6 2.4)
|
|
(:accel-y (meters -0.00033333333) (meters -0.00033333333))
|
|
(:timer (seconds 2.167))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-12))
|
|
(:next-time (seconds 0.067))
|
|
(:next-launcher 5025)
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:conerot-radius (meters -2) (meters 6))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-lava-glow-floor
|
|
:id 1158
|
|
:bounds (static-bspherem 0 0 0 16)
|
|
:parts ((sp-item 5032 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit6))
|
|
(sp-item 5033 :fade-after (meters 40) :falloff-to (meters 40))
|
|
(sp-item 5034 :fade-after (meters 100) :falloff-to (meters 100))
|
|
(sp-item 5035 :fade-after (meters 80) :falloff-to (meters 80) :binding 5028)
|
|
(sp-item 5028 :flags (bit1 start-dead) :binding 5029)
|
|
(sp-item 5028 :flags (bit1 start-dead) :binding 5029)
|
|
(sp-item 5028 :flags (bit1 start-dead) :binding 5029)
|
|
(sp-item 5028 :flags (bit1 start-dead) :binding 5029)
|
|
(sp-item 5028 :flags (bit1 start-dead) :binding 5029)
|
|
(sp-item 5028 :flags (bit1 start-dead) :binding 5029)
|
|
(sp-item 5028 :flags (bit1 start-dead) :binding 5029)
|
|
(sp-item 5028 :flags (bit1 start-dead) :binding 5029)
|
|
(sp-item 5029 :flags (bit1 start-dead))
|
|
(sp-item 5029 :flags (bit1 start-dead))
|
|
(sp-item 5029 :flags (bit1 start-dead))
|
|
(sp-item 5029 :flags (bit1 start-dead))
|
|
(sp-item 5029 :flags (bit1 start-dead))
|
|
(sp-item 5029 :flags (bit1 start-dead))
|
|
(sp-item 5029 :flags (bit1 start-dead))
|
|
(sp-item 5029 :flags (bit1 start-dead))
|
|
(sp-item 5029 :flags (bit1 start-dead))
|
|
(sp-item 5029 :flags (bit1 start-dead))
|
|
(sp-item 5036 :fade-after (meters 80) :falloff-to (meters 80) :binding 5030)
|
|
(sp-item 5030 :flags (start-dead launch-asap))
|
|
(sp-item 5030 :flags (start-dead launch-asap))
|
|
(sp-item 5030 :flags (start-dead launch-asap))
|
|
(sp-item 5030 :flags (start-dead launch-asap))
|
|
(sp-item 5030 :flags (start-dead launch-asap))
|
|
(sp-item 5030 :flags (start-dead launch-asap))
|
|
(sp-item 5030 :flags (start-dead launch-asap))
|
|
(sp-item 5037 :fade-after (meters 80) :falloff-to (meters 80) :binding 5031)
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
(sp-item 5031 :flags (bit1 start-dead launch-asap))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-lava-glow-wall
|
|
:id 1159
|
|
:flags (unk-4 unk-6)
|
|
:bounds (static-bspherem 0 0 0 16)
|
|
:rotate ((degrees 90) (degrees 0) (degrees 0))
|
|
:parts ((sp-item 5038 :fade-after (meters 200) :falloff-to (meters 200) :flags (bit7))
|
|
(sp-item 5039 :fade-after (meters 120) :falloff-to (meters 120) :period (seconds 0.135) :length (seconds 0.017) :binding 5030)
|
|
(sp-item 5030 :flags (start-dead launch-asap bit7))
|
|
(sp-item 5030 :flags (start-dead launch-asap bit7))
|
|
(sp-item 5030 :flags (start-dead launch-asap bit7))
|
|
(sp-item 5030 :flags (start-dead launch-asap bit7))
|
|
(sp-item 5030 :flags (start-dead launch-asap bit7))
|
|
(sp-item 5030 :flags (start-dead launch-asap bit7))
|
|
(sp-item 5030 :flags (start-dead launch-asap bit7))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5037
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x26 :page #xc))
|
|
(:num 0.0 0.025)
|
|
(:sound (static-sound-spec "fire-pop" :volume 10000.0))
|
|
(:x (meters 0) (meters 3))
|
|
(:scale-x (meters 0.1))
|
|
(:scale-y :copy scale-x)
|
|
(:r 0.0)
|
|
(:g 255.0)
|
|
(:b 0.0)
|
|
(:a 0.0)
|
|
(:vel-y (meters 0.053333335) (meters 0.053333335))
|
|
(:accel-y (meters -0.0001) (meters -0.000033333334))
|
|
(:friction 0.98 0.01)
|
|
(:timer (seconds 4))
|
|
(:flags (sp-cpuinfo-flag-1 sp-cpuinfo-flag-3))
|
|
(:conerot-x (degrees 0) (degrees 20))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5031
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 1.0)
|
|
(:x (meters 0) (meters 16))
|
|
(:y (meters 0) (meters 16))
|
|
(:z (meters 0.3) (meters 0.6))
|
|
(:scale-x (meters 0.2) (meters 0.2))
|
|
(:scale-y (meters 0.2) (meters 0.2))
|
|
(:r 256.0)
|
|
(:g 128.0 128.0)
|
|
(:b 0.0 128.0)
|
|
(:a 96.0 32.0)
|
|
(:omega (degrees 0) (degrees 360))
|
|
(:vel-x (meters -0.053333335) (meters 0.10666667))
|
|
(:vel-y (meters -0.002962963) (meters 0.13333334))
|
|
(:vel-z (meters 0.0013333333) (meters 0.0026666666))
|
|
(:rotvel-z (degrees -1.2) (degrees 2.4))
|
|
(:fade-r 0.0)
|
|
(:fade-g -0.56666666)
|
|
(:fade-b -1.7066667)
|
|
(:friction 0.995)
|
|
(:timer (seconds 4))
|
|
(:flags (sp-cpuinfo-flag-1 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 ready-to-launch))
|
|
(:next-time (seconds 1.5))
|
|
(:next-launcher 5040)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5040
|
|
:init-specs ((:fade-r -0.28444445)
|
|
(:fade-g 0.28444445)
|
|
(:fade-b 0.28444445)
|
|
(:next-time (seconds 1.5))
|
|
(:next-launcher 5041)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5041
|
|
:init-specs ((:fade-r 0.0) (:fade-g 0.0) (:fade-b 0.0) (:fade-a -0.28444445))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5034
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 0.1)
|
|
(:x (meters 0) (meters 5))
|
|
(:scale-x (meters 6) (meters 4))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 256.0)
|
|
(:g 0.0 196.0)
|
|
(:b 0.0)
|
|
(:a 0.0)
|
|
(:vel-y (meters 0.006666667) (meters 0.006666667))
|
|
(:scalevel-x (meters 0.0033333334))
|
|
(:rotvel-z (degrees -0.2) (degrees 0.4))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a 0.42666668)
|
|
(:friction 0.97 0.01)
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2))
|
|
(:next-time (seconds 0.125) (seconds 0.12))
|
|
(:next-launcher 5042)
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5038
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 0.1)
|
|
(:x (meters 0) (meters 5))
|
|
(:y (meters 1))
|
|
(:scale-x (meters 6) (meters 4))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 256.0)
|
|
(:g 0.0 196.0)
|
|
(:b 0.0)
|
|
(:a 0.0)
|
|
(:vel-y (meters 0.0033333334))
|
|
(:scalevel-x (meters 0.0033333334))
|
|
(:rotvel-z (degrees -0.2) (degrees 0.4))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a 0.16410257)
|
|
(:accel-y (meters 0.00033333333) (meters 0.00033333333))
|
|
(:friction 0.94 0.01)
|
|
(:timer (seconds 2.4))
|
|
(:flags (sp-cpuinfo-flag-2 use-global-acc))
|
|
(:next-time (seconds 0.325) (seconds 0.32))
|
|
(:next-launcher 5042)
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5036
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 0.0 0.05)
|
|
(:x (meters 0) (meters 5))
|
|
(:scale-x (meters 3.5) (meters 1.5))
|
|
(:rot-x (degrees 0.45))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 128.0)
|
|
(:b 0.0)
|
|
(:a 64.0)
|
|
(:omega (degrees 3615.75))
|
|
(:rotvel-z (degrees -0.1) (degrees 0.2))
|
|
(:fade-a -0.2)
|
|
(:timer (seconds 1.067))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 819.2)
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5039
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 0.0 0.1)
|
|
(:scale-x (meters 2.5) (meters 1.5))
|
|
(:rot-x (degrees 0.45))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 128.0)
|
|
(:b 0.0)
|
|
(:a 64.0)
|
|
(:omega (degrees 3615.75))
|
|
(:rotvel-z (degrees -0.1) (degrees 0.2))
|
|
(:fade-a -0.2)
|
|
(:timer (seconds 1.067))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 3276.8)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5043
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2.5) (meters 1.5))
|
|
(:rot-x (degrees 0.45))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 128.0)
|
|
(:b 0.0)
|
|
(:a 64.0)
|
|
(:omega (degrees 3615.75))
|
|
(:rotvel-z (degrees -0.1) (degrees 0.2))
|
|
(:fade-a -0.2)
|
|
(:timer (seconds 1.067))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 819.2)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5035
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xade))
|
|
(:num 0.0 0.01)
|
|
(:x (meters 0) (meters 5))
|
|
(:scale-x (meters 0.75) (meters 0.25))
|
|
(:scale-y :copy scale-x)
|
|
(:r 256.0)
|
|
(:g 0.0 128.0)
|
|
(:a 128.0)
|
|
(:vel-y (meters 0.04) (meters 0.053333335))
|
|
(:fade-g -0.30476192)
|
|
(:accel-y (meters -0.0026666666))
|
|
(:timer (seconds 2))
|
|
(:flags (sp-cpuinfo-flag-2))
|
|
(:func 'check-drop-level-dig-lava-bloops)
|
|
(:conerot-x (degrees 0) (degrees 30))
|
|
(:conerot-y (degrees 0) (degrees 360))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5032
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 0.02)
|
|
(:x (meters -5) (meters 10))
|
|
(:y (meters 1) (meters 2))
|
|
(:scale-x (meters 5) (meters 5))
|
|
(:rot-x (degrees 4.5))
|
|
(:rot-y (degrees 0) (degrees 3600))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 5) (meters 5))
|
|
(:r 255.0)
|
|
(:g 0.0 196.0)
|
|
(:b 0.0)
|
|
(:a 0.0)
|
|
(:omega (degrees 2265.75))
|
|
(:vel-y (meters 0.006666667) (meters 0.006666667))
|
|
(:fade-a 0.12)
|
|
(:friction 0.97 0.02)
|
|
(:timer (seconds 1.5))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 0.0)
|
|
(:next-time (seconds 0.5))
|
|
(:next-launcher 5044)
|
|
)
|
|
)
|
|
|
|
;; definition for function check-drop-level-dig-lava-bloops
|
|
;; INFO: Used lq/sq
|
|
(defun check-drop-level-dig-lava-bloops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
|
|
"Ensure the lava bloop splats where it originated"
|
|
(let ((origin-y (-> arg1 key origin trans y)))
|
|
(when (< (-> arg2 vector 0 y) origin-y)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(sp-kill-particle arg0 arg1)
|
|
(set-vector! gp-0 (-> arg2 vector 0 x) origin-y (-> arg2 vector 0 z) 1.0)
|
|
(launch-particles (-> *part-id-table* 5043) gp-0)
|
|
(launch-particles (-> *part-id-table* 5030) gp-0)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5033
|
|
:init-specs ((:num 1.0)
|
|
(:x (meters 0) (meters 10))
|
|
(:rot-x 5)
|
|
(:r 8192.0)
|
|
(:g 5324.8)
|
|
(:b 5324.8)
|
|
(:vel-y (meters 0.006666667) (meters 0.006666667))
|
|
(:fade-r 40.96)
|
|
(:fade-g 27.306667)
|
|
(:fade-b 38.229332)
|
|
(:timer (seconds 0.5))
|
|
(:flags (distort))
|
|
(:next-time (seconds 0.25))
|
|
(:next-launcher 5045)
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5045
|
|
:init-specs ((:fade-b 16.384))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5042
|
|
:init-specs ((:fade-a 0.0) (:next-time (seconds 0.25)) (:next-launcher 5046))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5046
|
|
:init-specs ((:fade-g -0.42666668) (:next-time (seconds 0.5)) (:next-launcher 5047))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5047
|
|
:init-specs ((:fade-r 0.0) (:fade-g 0.0) (:fade-a -0.10666667))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5028
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2.75) (meters 0.25))
|
|
(:rot-x (degrees 1.125))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 2.75) (meters 0.25))
|
|
(:r 255.0)
|
|
(:g 64.0 128.0)
|
|
(:b 0.0)
|
|
(:a 32.0 6.0)
|
|
(:omega (degrees 2715.75))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 819.2)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5029
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 1.5)
|
|
(:scale-x (meters 0.6) (meters 0.6))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 0.6) (meters 0.6))
|
|
(:r 128.0)
|
|
(:g 0.0 128.0)
|
|
(:b 0.0)
|
|
(:a 64.0 64.0)
|
|
(:vel-y (meters 0) (meters 0.00066666666))
|
|
(:scalevel-x (meters -0.0020833334))
|
|
(:rotvel-z (degrees -1.2) (degrees 2.4))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-a -0.10666667 -0.10666667)
|
|
(:accel-y (meters -0.00033333333) (meters 0.001))
|
|
(:friction 0.9)
|
|
(:timer (seconds 0.167) (seconds 0.665))
|
|
(:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-3))
|
|
(:conerot-x (degrees 0) (degrees 3600))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 0))
|
|
(:conerot-radius (meters 0.2) (meters 0.2))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5030
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 32.0 2.0)
|
|
(:x (meters 0) (meters 0.5))
|
|
(:scale-x (meters 0.4) (meters 0.3))
|
|
(:rot-z (degrees 0) (degrees 3600))
|
|
(:scale-y (meters 0.4) (meters 0.3))
|
|
(:r 128.0)
|
|
(:g 0.0 128.0)
|
|
(:b 0.0)
|
|
(:a 128.0 64.0)
|
|
(:vel-y (meters 0.016666668) (meters 0.013333334))
|
|
(:scalevel-x (meters -0.0013333333) (meters 0.00033333333))
|
|
(:rotvel-z (degrees -1.2) (degrees 2.4))
|
|
(:scalevel-y (meters -0.0013333333) (meters 0.00033333333))
|
|
(:fade-a -0.10666667 -0.10666667)
|
|
(:accel-y (meters -0.00066666666) (meters -0.00066666666))
|
|
(:timer (seconds 1.5))
|
|
(:flags (sp-cpuinfo-flag-0 sp-cpuinfo-flag-3 use-global-acc))
|
|
(:conerot-x (degrees 0) (degrees 10))
|
|
(:conerot-y (degrees 0) (degrees 3600))
|
|
(:rotate-y (degrees 0) (degrees 3600))
|
|
(:conerot-radius (meters 0) (meters -0.2))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5044
|
|
:init-specs ((:fade-a -0.10666667 -0.10666667))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-big-lava-glow :id 1160 :bounds (static-bspherem 0 0 0 5) :parts ((sp-item 209)))
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5048
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 1.0)
|
|
(:y (meters 2))
|
|
(:z (meters -2))
|
|
(:scale-x (meters 80) (meters 0.1))
|
|
(:rot-x (degrees 112.5))
|
|
(:rot-z (degrees -17))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 32.0 16.0)
|
|
(:b 0.0)
|
|
(:a 12.0)
|
|
(:omega (degrees 22520.25))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 2048.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-big-light
|
|
:id 1161
|
|
:bounds (static-bspherem 0 0 0 12)
|
|
:parts ((sp-item 5049 :fade-after (meters 300) :flags (bit6)) (sp-item 5050 :fade-after (meters 300) :flags (bit6)))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5049
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 2.0)
|
|
(:y (meters -0.5) (meters 1))
|
|
(:scale-x (meters 8) (meters 0.5))
|
|
(:rot-x (degrees 11.25))
|
|
(:rot-z (degrees -17) (degrees 10))
|
|
(:scale-y :copy scale-x)
|
|
(:r 0.0)
|
|
(:g 128.0 32.0)
|
|
(:b 255.0)
|
|
(:a 8.0 16.0)
|
|
(:omega (degrees 6763.5))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 20480.0)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5050
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
|
|
(:num 2.0)
|
|
(:y (meters -0.25) (meters 0.5))
|
|
(:scale-x (meters 25) (meters 0.5))
|
|
(:rot-x (degrees 11.25))
|
|
(:rot-z (degrees -17) (degrees 10))
|
|
(:scale-y :copy scale-x)
|
|
(:r 0.0)
|
|
(:g 128.0 32.0)
|
|
(:b 255.0)
|
|
(:a 8.0 8.0)
|
|
(:omega (degrees 6763.5))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 20480.0)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5051
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 2.0)
|
|
(:y (meters -0.05) (meters 0.1))
|
|
(:scale-x (meters 8) (meters 0.5))
|
|
(:rot-x (degrees 11.25))
|
|
(:rot-z (degrees -17) (degrees 10))
|
|
(:scale-y :copy scale-x)
|
|
(:r 0.0)
|
|
(:g 128.0 32.0)
|
|
(:b 255.0)
|
|
(:a 16.0)
|
|
(:omega (degrees 6763.5))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 20480.0)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5052
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
|
|
(:num 2.0)
|
|
(:scale-x (meters 25) (meters 0.5))
|
|
(:rot-x (degrees 11.25))
|
|
(:rot-z (degrees -17) (degrees 10))
|
|
(:scale-y :copy scale-x)
|
|
(:r 0.0)
|
|
(:g 128.0 32.0)
|
|
(:b 255.0)
|
|
(:a 8.0 8.0)
|
|
(:omega (degrees 6763.5))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 20480.0)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-red-light
|
|
:id 1162
|
|
:bounds (static-bspherem 0 0 0 8)
|
|
:parts ((sp-item 5053 :fade-after (meters 80) :flags (bit6)) (sp-item 5054 :fade-after (meters 120) :flags (bit6)))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5053
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 0.7) (meters 0.1))
|
|
(:rot-x (degrees 1.125))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 0.0 64.0)
|
|
(:b 0.0)
|
|
(:a 24.0 4.0)
|
|
(:omega (degrees 1815.7499))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 1024.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5054
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 4) (meters 0.1))
|
|
(:rot-x (degrees 1.125))
|
|
(:scale-y :copy scale-x)
|
|
(:r 255.0)
|
|
(:g 0.0 32.0)
|
|
(:b 0.0)
|
|
(:a 8.0)
|
|
(:omega (degrees 2715.75))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 1024.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-lantern
|
|
:id 1163
|
|
:bounds (static-bspherem 0 0.1 0 1)
|
|
:parts ((sp-item 5055 :fade-after (meters 180) :flags (bit6)) (sp-item 5056 :fade-after (meters 180) :flags (bit6)))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5055
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2.5) (meters 0.1))
|
|
(:rot-x (degrees 2.25))
|
|
(:rot-z (degrees -17))
|
|
(:scale-y :copy scale-x)
|
|
(:r 220.0)
|
|
(:g 255.0)
|
|
(:b 128.0)
|
|
(:a 32.0)
|
|
(:omega (degrees 4065.75))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 4096.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5056
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xca :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 16) (meters 0.1))
|
|
(:rot-x (degrees 22.5))
|
|
(:rot-z (degrees -17))
|
|
(:scale-y :copy scale-x)
|
|
(:r 220.0)
|
|
(:g 255.0)
|
|
(:b 128.0)
|
|
(:a 16.0)
|
|
(:omega (degrees 4065.75))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 glow))
|
|
(:userdata 819.2)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-dig-jump-pad-launcher
|
|
:id 1147
|
|
:duration (seconds 4)
|
|
:flags (use-local-clock)
|
|
:bounds (static-bspherem 0 3 0 5)
|
|
:parts ((sp-item 77 :fade-after (meters 100) :falloff-to (meters 100))
|
|
(sp-item 5057 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
|
|
(sp-item 5058 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
|
|
(sp-item 5059 :fade-after (meters 70) :falloff-to (meters 100))
|
|
(sp-item 5060 :fade-after (meters 70) :falloff-to (meters 100) :period (seconds 5) :length (seconds 0.335))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5057
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xc9 :page #xc))
|
|
(:num 1.0)
|
|
(:x (meters 0) (meters 1.4))
|
|
(:scale-x (meters 0.2))
|
|
(:rot-x (degrees 90))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 2.5) (meters 2.5))
|
|
(:r 64.0 32.0)
|
|
(:g 32.0 32.0)
|
|
(:b 10.0 5.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -0.0025))
|
|
(:scalevel-y (meters 0.12207031) (meters 0.24414062))
|
|
(:timer (seconds 0.15))
|
|
(:flags (sp-cpuinfo-flag-3))
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5058
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xc9 :page #xc))
|
|
(:num 2.0)
|
|
(:x (meters 1.4) (meters 0.9))
|
|
(:scale-x (meters 0.2))
|
|
(:rot-x (degrees 90))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y (meters 0.5) (meters 1))
|
|
(:r 64.0 32.0)
|
|
(:g 32.0 32.0)
|
|
(:b 10.0 5.0)
|
|
(:a 128.0)
|
|
(:scalevel-x (meters -0.0025))
|
|
(:scalevel-y (meters 0.024414062) (meters 0.048828125))
|
|
(:timer (seconds 0.15))
|
|
(:flags (sp-cpuinfo-flag-3))
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5059
|
|
:init-specs ((:texture (new 'static 'texture-id :page #xc))
|
|
(:num 0.5)
|
|
(:x (meters 1.45) (meters 1.25))
|
|
(:y (meters -0.5))
|
|
(:scale-x (meters 2) (meters 1))
|
|
(:rot-z (degrees 0) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 64.0 32.0)
|
|
(:g 32.0 32.0)
|
|
(:b 10.0 5.0)
|
|
(:a 0.0)
|
|
(:vel-x (meters -0.011666667) (meters -0.0033333334))
|
|
(:vel-y (meters 0))
|
|
(:rotvel-z (degrees -1.2) 1 (degrees 2.4))
|
|
(:fade-a 0.6)
|
|
(:accel-y (meters 0.0016666667))
|
|
(:friction 0.996)
|
|
(:timer (seconds 0.9))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3))
|
|
(:next-time (seconds 0.15))
|
|
(:next-launcher 83)
|
|
(:rotate-y (degrees 0) (degrees 360))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 5060
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:y (meters -0.5))
|
|
(:scale-x (meters 7) (meters 1))
|
|
(:rot-x (degrees 11.25))
|
|
(:scale-y :copy scale-x)
|
|
(:r 64.0 8.0)
|
|
(:g 48.0 8.0)
|
|
(:b 10.0 5.0)
|
|
(:a 128.0)
|
|
(:omega (degrees 2715.75))
|
|
(:timer (seconds 0.017))
|
|
(:flags (glow))
|
|
(:userdata 20480.0)
|
|
)
|
|
)
|