mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
caac740aff
* decomp `fisher`, `robotboss`, `light-eco`, `green-eco-lurker`, `sage-finalboss`, `robotboss-weapon`, `robotboss-misc` * fixes * add files * add `:states` list to `deftype` and fix files * test state forward decl's on a few more types * also the refs * add light-eco * whatever
435 lines
10 KiB
Common Lisp
435 lines
10 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: plat.gc
|
|
;; name in dgo: plat
|
|
;; dgos: GAME, COMMON, L1
|
|
|
|
(define-extern *plat-jungleb-sg* skeleton-group)
|
|
(define-extern *plat-sunken-sg* skeleton-group)
|
|
(define-extern *plat-sg* skeleton-group)
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(set!
|
|
(-> *part-group-id-table* 107)
|
|
(new 'static 'sparticle-launch-group
|
|
:length 2
|
|
:duration #xbb8
|
|
:linger-duration #x5dc
|
|
:name "group-standard-plat"
|
|
:launcher
|
|
(new 'static 'inline-array sparticle-group-item 2
|
|
(sp-item 363 :fade-after (meters 60.0) :falloff-to (meters 60.0))
|
|
(sp-item 364 :fade-after (meters 160.0) :falloff-to (meters 160.0))
|
|
)
|
|
:bounds
|
|
(new 'static 'sphere :y -49152.0 :w 57344.0)
|
|
)
|
|
)
|
|
|
|
(set!
|
|
(-> *part-id-table* 363)
|
|
(new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 14
|
|
(sp-flt spt-num 1.5)
|
|
(sp-flt spt-y (meters 1.0))
|
|
(sp-int spt-rot-x 5)
|
|
(sp-flt spt-r 5324.8)
|
|
(sp-flt spt-g 4096.0)
|
|
(sp-flt spt-b 3686.4)
|
|
(sp-flt spt-vel-y (meters 0.0033333334))
|
|
(sp-flt spt-fade-b -16.383999)
|
|
(sp-int spt-timer 25)
|
|
(sp-cpuinfo-flags aux-list)
|
|
(sp-rnd-flt spt-conerot-x (degrees 140.0) (degrees 40.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-flt spt-conerot-radius (meters 3.0))
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
(set!
|
|
(-> *part-id-table* 364)
|
|
(new 'static 'sparticle-launcher
|
|
:init-specs
|
|
(new 'static 'inline-array sp-field-init-spec 19
|
|
(sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
|
|
(sp-flt spt-num 2.0)
|
|
(sp-flt spt-y (meters 1.5))
|
|
(sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-g 0.0 64.0 1.0)
|
|
(sp-rnd-flt spt-b 128.0 128.0 1.0)
|
|
(sp-rnd-flt spt-a 16.0 32.0 1.0)
|
|
(sp-flt spt-vel-y (meters 0.01))
|
|
(sp-flt spt-fade-g -0.42666668)
|
|
(sp-flt spt-fade-a -0.32)
|
|
(sp-flt spt-accel-y -0.13653333)
|
|
(sp-flt spt-friction 0.96)
|
|
(sp-int spt-timer 150)
|
|
(sp-cpuinfo-flags bit2 bit3)
|
|
(sp-rnd-flt spt-conerot-x (degrees 130.0) (degrees 100.00001) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-flt spt-conerot-radius (meters 3.0))
|
|
(sp-end)
|
|
)
|
|
)
|
|
)
|
|
|
|
(deftype plat (baseplat)
|
|
((path-pos float :offset-assert 228)
|
|
(sync sync-info-eased :inline :offset-assert 232)
|
|
(sound-id sound-id :offset-assert 260)
|
|
)
|
|
:heap-base #xa0
|
|
:method-count-assert 33
|
|
:size-assert #x108
|
|
:flag-assert #x2100a00108
|
|
(:methods
|
|
(get-lit-skel (_type_) skeleton-group 27)
|
|
(dummy-28 () none 28)
|
|
(wad () _type_ :state 29)
|
|
(plat-startup (plat) _type_ :state 30)
|
|
(plat-idle () _type_ :state 31)
|
|
(plat-path-active (plat) _type_ :state 32)
|
|
)
|
|
)
|
|
|
|
|
|
(let
|
|
((v1-4
|
|
(new 'static 'skeleton-group
|
|
:art-group-name "plat"
|
|
:bounds
|
|
(new 'static 'vector :y -2048.0 :w 12288.0)
|
|
:max-lod 2
|
|
:version #x6
|
|
)
|
|
)
|
|
)
|
|
(set! (-> v1-4 jgeo) 0)
|
|
(set! (-> v1-4 janim) 4)
|
|
(set! (-> v1-4 mgeo 0) (the-as uint 1))
|
|
(set! (-> v1-4 lod-dist 0) 81920.0)
|
|
(set! (-> v1-4 mgeo 1) (the-as uint 2))
|
|
(set! (-> v1-4 lod-dist 1) 163840.0)
|
|
(set! (-> v1-4 mgeo 2) (the-as uint 3))
|
|
(set! (-> v1-4 lod-dist 2) 4095996000.0)
|
|
(set! *plat-sg* v1-4)
|
|
)
|
|
|
|
(let
|
|
((v1-5
|
|
(new 'static 'skeleton-group
|
|
:art-group-name "plat-jungleb"
|
|
:bounds
|
|
(new 'static 'vector :y -2048.0 :w 12288.0)
|
|
:version #x6
|
|
)
|
|
)
|
|
)
|
|
(set! (-> v1-5 jgeo) 0)
|
|
(set! (-> v1-5 janim) 4)
|
|
(set! (-> v1-5 mgeo 0) (the-as uint 1))
|
|
(set! (-> v1-5 lod-dist 0) 4095996000.0)
|
|
(set! *plat-jungleb-sg* v1-5)
|
|
)
|
|
|
|
(let
|
|
((v1-6
|
|
(new 'static 'skeleton-group
|
|
:art-group-name "plat-sunken"
|
|
:bounds
|
|
(new 'static 'vector :y -2048.0 :w 13107.2)
|
|
:version #x6
|
|
)
|
|
)
|
|
)
|
|
(set! (-> v1-6 jgeo) 0)
|
|
(set! (-> v1-6 janim) 4)
|
|
(set! (-> v1-6 mgeo 0) (the-as uint 1))
|
|
(set! (-> v1-6 lod-dist 0) 4095996000.0)
|
|
(set! *plat-sunken-sg* v1-6)
|
|
)
|
|
|
|
(defmethod get-unlit-skel plat ((obj plat))
|
|
(cond
|
|
((= (-> (if (-> obj entity)
|
|
(-> obj entity extra level)
|
|
(-> *level* level-default)
|
|
)
|
|
name
|
|
)
|
|
'jungleb
|
|
)
|
|
*plat-jungleb-sg*
|
|
)
|
|
((or (= (-> (if (-> obj entity)
|
|
(-> obj entity extra level)
|
|
(-> *level* level-default)
|
|
)
|
|
name
|
|
)
|
|
'sunken
|
|
)
|
|
(= (-> (if (-> obj entity)
|
|
(-> obj entity extra level)
|
|
(-> *level* level-default)
|
|
)
|
|
name
|
|
)
|
|
'sunkenb
|
|
)
|
|
)
|
|
*plat-sunken-sg*
|
|
)
|
|
(else
|
|
*plat-sg*
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod dummy-24 plat ((obj plat))
|
|
(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) 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) (the-as uint 2048))
|
|
(set! (-> s4-0 collide-with) (the-as uint 16))
|
|
(set! (-> s4-0 prim-core action) (the-as uint 3))
|
|
(set! (-> s4-0 prim-core offense) 4)
|
|
(set! (-> s4-0 transform-index) 0)
|
|
(set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 13107.2)
|
|
)
|
|
(dummy-46 s5-0)
|
|
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
|
|
(dummy-50 s5-0)
|
|
(set! (-> obj root-override) s5-0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod dummy-26 plat ((obj plat))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod TODO-RENAME-25 plat ((obj plat))
|
|
(the-as sparticle-launch-group (when (!= (-> (if (-> obj entity)
|
|
(-> obj entity extra level)
|
|
(-> *level* level-default)
|
|
)
|
|
name
|
|
)
|
|
'maincave
|
|
)
|
|
(let
|
|
((v0-0
|
|
(create-launch-control
|
|
(-> *part-group-id-table* 107)
|
|
obj
|
|
)
|
|
)
|
|
)
|
|
(set! (-> obj part) v0-0)
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defstate plat-startup (plat)
|
|
:virtual #t
|
|
:code
|
|
(behavior ((arg0 plat))
|
|
(cond
|
|
((logtest? (-> self path flags) (path-control-flag not-found))
|
|
(go-virtual plat-idle)
|
|
)
|
|
((> (-> self sync period) 0)
|
|
(go-virtual plat-path-active arg0)
|
|
)
|
|
(else
|
|
(go-virtual plat-idle)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defstate plat-idle (plat)
|
|
:virtual #t
|
|
:event
|
|
(the-as
|
|
(function process int symbol event-message-block object :behavior plat)
|
|
plat-event
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(dummy-20 self)
|
|
(none)
|
|
)
|
|
:code
|
|
(behavior ()
|
|
(plat-trans)
|
|
(rider-post)
|
|
(suspend)
|
|
(while #t
|
|
(when (not (-> self bouncing))
|
|
(plat-trans)
|
|
(rider-post)
|
|
(logior! (-> self mask) (process-mask sleep-code))
|
|
(suspend)
|
|
0
|
|
)
|
|
(while (-> self bouncing)
|
|
(plat-trans)
|
|
(rider-post)
|
|
(suspend)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defstate plat-path-active (plat)
|
|
:virtual #t
|
|
:event
|
|
(the-as
|
|
(function process int symbol event-message-block object :behavior plat)
|
|
plat-event
|
|
)
|
|
:exit
|
|
(behavior ()
|
|
(sound-stop (-> self sound-id))
|
|
(none)
|
|
)
|
|
:trans
|
|
(behavior ()
|
|
(set! (-> self path-pos) (if (logtest? (-> self fact options) 8)
|
|
(get-current-phase (-> self sync))
|
|
(get-current-phase-with-mirror (-> self sync))
|
|
)
|
|
)
|
|
(eval-path-curve!
|
|
(-> self path)
|
|
(-> self basetrans)
|
|
(-> self path-pos)
|
|
'interp
|
|
)
|
|
(if
|
|
(<
|
|
(vector-vector-distance (-> self root-override trans) (ear-trans))
|
|
81920.0
|
|
)
|
|
(sound-play-by-name
|
|
(static-sound-name "eco-plat-hover")
|
|
(-> self sound-id)
|
|
1024
|
|
0
|
|
0
|
|
(the-as uint 1)
|
|
(-> self root-override trans)
|
|
)
|
|
)
|
|
(plat-trans)
|
|
(none)
|
|
)
|
|
:code
|
|
(the-as (function plat none :behavior plat) anim-loop)
|
|
:post
|
|
(the-as (function none :behavior plat) plat-post)
|
|
)
|
|
|
|
(defmethod copy-defaults! plat ((obj plat) (arg0 res-lump))
|
|
(set! (-> obj mask) (logior (process-mask platform) (-> obj mask)))
|
|
(dummy-24 obj)
|
|
(process-drawable-from-entity! obj arg0)
|
|
(dummy-14 obj (get-unlit-skel obj) '())
|
|
(logior! (-> obj skel status) 1)
|
|
(dummy-47 (-> obj root-override))
|
|
(dummy-21 obj)
|
|
(TODO-RENAME-25 obj)
|
|
(load-params! (-> obj sync) obj (the-as uint 0) 0.0 0.15 0.15)
|
|
(set!
|
|
(-> obj fact)
|
|
(new
|
|
'process
|
|
'fact-info
|
|
obj
|
|
(pickup-type eco-pill-random)
|
|
(-> *FACT-bank* default-pill-inc)
|
|
)
|
|
)
|
|
(set! (-> obj path) (new 'process 'curve-control obj 'path -1000000000.0))
|
|
(logior!
|
|
(-> obj path flags)
|
|
(path-control-flag display draw-line draw-point draw-text)
|
|
)
|
|
(set! (-> obj sound-id) (new-sound-id))
|
|
(cond
|
|
((logtest? (-> obj path flags) (path-control-flag not-found))
|
|
(set! (-> obj path-pos) 0.0)
|
|
(let ((a0-14 obj))
|
|
(dummy-26 a0-14)
|
|
(go (method-of-object obj plat-startup) a0-14)
|
|
)
|
|
)
|
|
((> (-> obj sync period) 0)
|
|
(set! (-> obj path-pos) (if (logtest? (-> obj fact options) 8)
|
|
(get-current-phase (-> obj sync))
|
|
(get-current-phase-with-mirror (-> obj sync))
|
|
)
|
|
)
|
|
(eval-path-curve!
|
|
(-> obj path)
|
|
(-> obj root-override trans)
|
|
(-> obj path-pos)
|
|
'interp
|
|
)
|
|
(let ((a0-18 obj))
|
|
(dummy-26 a0-18)
|
|
(go (method-of-object obj plat-startup) a0-18)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> obj path-pos) 0.0)
|
|
(eval-path-curve!
|
|
(-> obj path)
|
|
(-> obj root-override trans)
|
|
(-> obj path-pos)
|
|
'interp
|
|
)
|
|
(let ((a0-20 obj))
|
|
(dummy-26 a0-20)
|
|
(go (method-of-object obj plat-startup) a0-20)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
|
|
|
|
|