mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
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>
1147 lines
44 KiB
Common Lisp
1147 lines
44 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: jungle-obs.gc
|
|
;; name in dgo: jungle-obs
|
|
;; dgos: JUN, JUNGLE, L1
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(defskelgroup *med-res-firecanyon-sg* medres-firecanyon medres-firecanyon-lod0-jg medres-firecanyon-idle-ja
|
|
((medres-firecanyon-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem -200 0 -440 530)
|
|
:longest-edge (meters 0.01)
|
|
)
|
|
|
|
(defskelgroup *jungle-camera-sg* jungle-camera 0 2
|
|
((1 (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 4)
|
|
:texture-level 2
|
|
)
|
|
|
|
(deftype logtrap (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *logtrap-sg* logtrap logtrap-lod0-jg logtrap-idle-ja
|
|
((logtrap-lod0-mg (meters 20)) (logtrap-lod1-mg (meters 999999)))
|
|
:bounds (static-spherem 0 8 0 13)
|
|
:longest-edge (meters 6)
|
|
:shadow logtrap-shadow-mg
|
|
)
|
|
|
|
(defstate idle (logtrap)
|
|
:virtual #t
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(if (or (= message 'touch) (= message 'attack))
|
|
(send-event proc 'attack (-> block param 0) (new 'static 'attack-info))
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(transform-post)
|
|
(loop
|
|
(ja-no-eval :group! logtrap-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(when (logtest? (-> self draw status) (draw-status was-drawn))
|
|
(cond
|
|
((> (-> self draw cur-lod) 0)
|
|
(ja-post)
|
|
)
|
|
(else
|
|
(transform-post)
|
|
(if *target*
|
|
(look-at-enemy! (-> *target* neck) (the-as vector (-> self root root-prim prim-core)) #f self)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod init-from-entity! ((this logtrap) (arg0 entity-actor))
|
|
(logior! (-> this mask) (process-mask enemy))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving this (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)
|
|
)
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s3-0 collide-with) (collide-kind target))
|
|
(set! (-> s3-0 transform-index) 6)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 19251.2)
|
|
(set-root-prim! s4-0 s3-0)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *logtrap-sg* '())
|
|
(set! (-> this draw shadow-ctrl)
|
|
(new 'process 'shadow-control -5734.4 0.0 614400.0 (the-as float 1) 163840.0)
|
|
)
|
|
(logclear! (-> this mask) (process-mask actor-pause))
|
|
(update-transforms! (-> this root))
|
|
(go (method-of-object this idle))
|
|
(none)
|
|
)
|
|
|
|
(deftype towertop (process-drawable)
|
|
((root-override trsq :overlay-at root)
|
|
)
|
|
(:states
|
|
towertop-idle
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *towertop-sg* towertop towertop-lod0-jg towertop-idle-ja
|
|
((towertop-lod0-mg (meters 20)) (towertop-lod1-mg (meters 40)) (towertop-lod2-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 30)
|
|
)
|
|
|
|
(defstate towertop-idle (towertop)
|
|
:code (behavior ()
|
|
(loop
|
|
(ja-no-eval :group! towertop-idle-ja :num! (seek! max 0.4) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! max 0.4))
|
|
)
|
|
)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
(defmethod init-from-entity! ((this towertop) (arg0 entity-actor))
|
|
(logior! (-> this mask) (process-mask ambient))
|
|
(set! (-> this root-override) (new 'process 'trsq))
|
|
(process-drawable-from-entity! this arg0)
|
|
(logclear! (-> this mask) (process-mask actor-pause))
|
|
(initialize-skeleton this *towertop-sg* '())
|
|
(go towertop-idle)
|
|
(none)
|
|
)
|
|
|
|
(deftype lurkerm-tall-sail (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(speed float)
|
|
(alt-actor entity-actor)
|
|
)
|
|
(:states
|
|
lurkerm-tall-sail-idle
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *lurkerm-tall-sail-sg* lurkerm-tall-sail lurkerm-tall-sail-lod0-jg lurkerm-tall-sail-idle-ja
|
|
((lurkerm-tall-sail-lod0-mg (meters 20))
|
|
(lurkerm-tall-sail-lod1-mg (meters 40))
|
|
(lurkerm-tall-sail-lod2-mg (meters 999999))
|
|
)
|
|
:bounds (static-spherem 0 5 0 7)
|
|
:longest-edge (meters 4)
|
|
)
|
|
|
|
(defstate lurkerm-tall-sail-idle (lurkerm-tall-sail)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('stop)
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(set! (-> self speed) 0.0)
|
|
)
|
|
)
|
|
)
|
|
:trans rider-trans
|
|
:code (behavior ()
|
|
(loop
|
|
(ja-no-eval :group! lurkerm-tall-sail-idle-ja :num! (seek! max (* 0.5 (-> self speed))) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(quaternion-rotate-local-y!
|
|
(-> self root quat)
|
|
(-> self root quat)
|
|
(* 12743.111 (seconds-per-frame) (-> self speed))
|
|
)
|
|
(suspend)
|
|
(ja :num! (seek! max (* 0.5 (-> self speed))))
|
|
)
|
|
)
|
|
)
|
|
:post rider-post
|
|
)
|
|
|
|
(defmethod init-from-entity! ((this lurkerm-tall-sail) (arg0 entity-actor))
|
|
(logior! (-> this mask) (process-mask platform))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving this (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)
|
|
)
|
|
(alloc-riders s4-0 1)
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 1) 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 rider-plat-sticky))
|
|
(set! (-> s3-0 transform-index) 0)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 36044.8 0.0 47104.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
(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 rider-plat-sticky))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-0 transform-index) 3)
|
|
(set-vector! (-> s2-0 local-sphere) 39321.6 0.0 0.0 43417.6)
|
|
(append-prim s3-0 s2-0)
|
|
)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *lurkerm-tall-sail-sg* '())
|
|
(logior! (-> this skel status) (janim-status inited))
|
|
(update-transforms! (-> this root))
|
|
(set! (-> this alt-actor) (entity-actor-lookup (-> this entity) 'alt-actor 0))
|
|
(set! (-> this speed) 1.0)
|
|
(if (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status complete)))
|
|
(set! (-> this speed) 0.0)
|
|
)
|
|
(go lurkerm-tall-sail-idle)
|
|
(none)
|
|
)
|
|
|
|
(deftype lurkerm-short-sail (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(speed float)
|
|
(alt-actor entity-actor)
|
|
)
|
|
(:states
|
|
lurkerm-short-sail-idle
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *lurkerm-short-sail-sg* lurkerm-short-sail 0 4
|
|
((1 (meters 20)) (2 (meters 40)) (3 (meters 999999)))
|
|
:bounds (static-spherem 0 5 0 9)
|
|
)
|
|
|
|
(defstate lurkerm-short-sail-idle (lurkerm-short-sail)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('stop)
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(set! (-> self speed) 0.0)
|
|
)
|
|
)
|
|
)
|
|
:trans rider-trans
|
|
:code (behavior ()
|
|
(loop
|
|
(ja-no-eval :group! (-> self draw art-group data 4) :num! (seek! max (* 0.5 (-> self speed))) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(quaternion-rotate-local-y!
|
|
(-> self root quat)
|
|
(-> self root quat)
|
|
(* -12743.111 (seconds-per-frame) (-> self speed))
|
|
)
|
|
(suspend)
|
|
(ja :num! (seek! max (* 0.5 (-> self speed))))
|
|
)
|
|
)
|
|
)
|
|
:post rider-post
|
|
)
|
|
|
|
(defmethod init-from-entity! ((this lurkerm-short-sail) (arg0 entity-actor))
|
|
(logior! (-> this mask) (process-mask platform))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving this (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)
|
|
)
|
|
(alloc-riders s4-0 1)
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 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 rider-plat-sticky))
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 40960.0 0.0 49152.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
(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 rider-plat-sticky))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-0 transform-index) 4)
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 0.0 0.0 36864.0)
|
|
(append-prim s3-0 s2-0)
|
|
)
|
|
(let ((s2-1 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (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 rider-plat-sticky))
|
|
(set! (-> s2-1 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-1 transform-index) 3)
|
|
(set-vector! (-> s2-1 local-sphere) 40960.0 0.0 0.0 24576.0)
|
|
(append-prim s3-0 s2-1)
|
|
)
|
|
(let ((s2-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0))))
|
|
(set! (-> s2-2 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-2 collide-with) (collide-kind target))
|
|
(set! (-> s2-2 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-2 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-2 transform-index) 3)
|
|
(set-vector! (-> s2-2 local-sphere) 40960.0 0.0 0.0 24576.0)
|
|
(append-prim s3-0 s2-2)
|
|
)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *lurkerm-short-sail-sg* '())
|
|
(logior! (-> this skel status) (janim-status inited))
|
|
(update-transforms! (-> this root))
|
|
(set! (-> this alt-actor) (entity-actor-lookup (-> this entity) 'alt-actor 0))
|
|
(set! (-> this speed) 1.0)
|
|
(if (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status complete)))
|
|
(set! (-> this speed) 0.0)
|
|
)
|
|
(go lurkerm-short-sail-idle)
|
|
(none)
|
|
)
|
|
|
|
(deftype lurkerm-piston (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(sync sync-info :inline)
|
|
(base vector :inline)
|
|
(height vector :inline)
|
|
(speed float)
|
|
(alt-actor entity-actor)
|
|
)
|
|
(:states
|
|
lurkerm-piston-idle
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *lurkerm-piston-sg* lurkerm-piston lurkerm-piston-geo-jg lurkerm-piston-idle-ja
|
|
((lurkerm-piston-geo-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 6)
|
|
)
|
|
|
|
(defstate lurkerm-piston-idle (lurkerm-piston)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('stop)
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(set! (-> self speed) 0.0)
|
|
)
|
|
)
|
|
)
|
|
:trans rider-trans
|
|
:code (behavior ()
|
|
(loop
|
|
(ja-no-eval :group! lurkerm-piston-idle-ja :num! (seek! max (-> self speed)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(let ((gp-0 (new-stack-vector0)))
|
|
(set! (-> gp-0 quad) (-> self base quad))
|
|
(+! (-> gp-0 y) (* (get-current-value-with-mirror (-> self sync) (-> self height y)) (-> self speed)))
|
|
(move-to-point! (-> self root) gp-0)
|
|
)
|
|
(suspend)
|
|
(ja :num! (seek! max (-> self speed)))
|
|
)
|
|
)
|
|
)
|
|
:post rider-post
|
|
)
|
|
|
|
(defmethod init-from-entity! ((this lurkerm-piston) (arg0 entity-actor))
|
|
(local-vars (sv-16 res-tag) (sv-32 res-tag))
|
|
(logior! (-> this mask) (process-mask platform))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving this (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)
|
|
)
|
|
(alloc-riders s4-0 1)
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 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 rider-plat-sticky))
|
|
(set! (-> s3-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s3-0 transform-index) 3)
|
|
(set-vector! (-> s3-0 local-sphere) 24576.0 0.0 0.0 20480.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(logclear! (-> this mask) (process-mask actor-pause))
|
|
(initialize-skeleton this *lurkerm-piston-sg* '())
|
|
(logior! (-> this skel status) (janim-status inited))
|
|
(update-transforms! (-> this root))
|
|
(set! (-> this base quad) (-> this root trans quad))
|
|
(let ((f30-0 (-> this base y)))
|
|
(set! sv-16 (new 'static 'res-tag))
|
|
(let ((v1-32 (res-lump-data arg0 'height-info pointer :tag-ptr (& sv-16))))
|
|
(set! (-> this base y) (+ f30-0 (if (and v1-32 (> (the-as int (-> sv-16 elt-count)) 0))
|
|
(-> (the-as (pointer float) v1-32))
|
|
0.0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((s4-1 (-> this height)))
|
|
(set! (-> s4-1 x) 0.0)
|
|
(set! sv-32 (new 'static 'res-tag))
|
|
(let ((v1-35 (res-lump-data arg0 'height-info (pointer float) :tag-ptr (& sv-32))))
|
|
(set! (-> s4-1 y) (if (and v1-35 (< 1 (the-as int (-> sv-32 elt-count))))
|
|
(-> v1-35 1)
|
|
20480.0
|
|
)
|
|
)
|
|
)
|
|
(set! (-> s4-1 z) 0.0)
|
|
(set! (-> s4-1 w) 1.0)
|
|
)
|
|
(load-params! (-> this sync) this (the-as uint 1500) 0.0 0.15 0.15)
|
|
(set! (-> this alt-actor) (entity-actor-lookup (-> this entity) 'alt-actor 0))
|
|
(set! (-> this speed) 1.0)
|
|
(if (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status complete)))
|
|
(set! (-> this speed) 0.0)
|
|
)
|
|
(go lurkerm-piston-idle)
|
|
(none)
|
|
)
|
|
|
|
(deftype accordian (process-drawable)
|
|
((speed float)
|
|
(alt-actor entity-actor)
|
|
)
|
|
(:states
|
|
accordian-idle
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *accordian-sg* accordian accordian-lod0-jg accordian-idle-ja
|
|
((accordian-lod0-mg (meters 20)) (accordian-lod1-mg (meters 999999)))
|
|
:bounds (static-spherem -7 0 23 25)
|
|
:longest-edge (meters 4)
|
|
)
|
|
|
|
(defstate accordian-idle (accordian)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('stop)
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(set! (-> self speed) 0.0)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(ja-no-eval :num! (loop!) :frame-num 0.0)
|
|
(ja-post)
|
|
(loop
|
|
(suspend)
|
|
(when (logtest? (-> self draw status) (draw-status was-drawn))
|
|
(ja :num! (loop! (-> self speed)))
|
|
(ja-post)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod init-from-entity! ((this accordian) (arg0 entity-actor))
|
|
(set! (-> this root) (new 'process 'trsqv))
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *accordian-sg* '())
|
|
(set! (-> this root pause-adjust-distance) 204800.0)
|
|
(set! (-> this alt-actor) (entity-actor-lookup (-> this entity) 'alt-actor 0))
|
|
(set! (-> this speed) 1.0)
|
|
(if (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status complete)))
|
|
(set! (-> this speed) 0.0)
|
|
)
|
|
(go accordian-idle)
|
|
(none)
|
|
)
|
|
|
|
(defskelgroup *junglecam-sg* junglecam junglecam-lod0-jg junglecam-beamcam-ja
|
|
((junglecam-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 80)
|
|
)
|
|
|
|
(deftype junglecam (process-hidden)
|
|
()
|
|
)
|
|
|
|
|
|
(deftype precurbridgecam (pov-camera)
|
|
()
|
|
)
|
|
|
|
|
|
(defstate pov-camera-playing (precurbridgecam)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(ambient-hint-spawn "gamcam30" (the-as vector #f) *entity-pool* 'camera)
|
|
(ja :group! junglecam-precurbridgecam-ja)
|
|
(ja-no-eval :group! junglecam-precurbridgecam-ja :num! (seek! (ja-aframe 0.0 0)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe 0.0 0)))
|
|
)
|
|
(send-event (ppointer->process (-> self parent)) 'go)
|
|
(ja-no-eval :num! (seek!))
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(go-virtual pov-camera-done-playing)
|
|
)
|
|
)
|
|
|
|
(deftype precurbridge-span (structure)
|
|
()
|
|
)
|
|
|
|
|
|
(deftype precurbridge (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(smush smush-control :inline)
|
|
(base vector :inline)
|
|
(activation-point vector :inline)
|
|
(span-array precurbridge-span 8)
|
|
)
|
|
(:states
|
|
precurbridge-activate
|
|
(precurbridge-active symbol)
|
|
precurbridge-idle
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *precurbridge-sg* precurbridge precurbridge-geo-jg precurbridge-idle-ja
|
|
((precurbridge-geo-mg (meters 20)) (precurbridge-lod1-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 40)
|
|
:longest-edge (meters 3.6)
|
|
)
|
|
|
|
(defstate precurbridge-idle (precurbridge)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('go)
|
|
(go precurbridge-activate)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(ja :group! precurbridge-idle-ja :num! min)
|
|
(transform-post)
|
|
(loop
|
|
(when (and *target*
|
|
(< (vector-vector-xz-distance (-> self activation-point) (-> *target* control trans)) 49152.0)
|
|
(< (-> self activation-point y) (-> *target* control trans y))
|
|
(< (-> *target* control trans y) (+ 20480.0 (-> self activation-point y)))
|
|
(not (-> self child))
|
|
)
|
|
(cond
|
|
((send-event *target* 'query 'powerup (pickup-type eco-blue))
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(logclear! (-> self mask) (process-mask platform))
|
|
(let ((gp-1 (entity-by-name "junglecam-1")))
|
|
(cond
|
|
(gp-1
|
|
(process-spawn
|
|
precurbridgecam
|
|
:init pov-camera-init-by-other
|
|
(-> gp-1 extra trans)
|
|
*junglecam-sg*
|
|
"precurbridgecam"
|
|
0
|
|
#f
|
|
'()
|
|
:to self
|
|
)
|
|
)
|
|
(else
|
|
(format #t "ERROR<GMJ>: position for precursor bridge camera not found~%")
|
|
(go precurbridge-activate)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(level-hint-spawn
|
|
(text-id sidekick-hint-precurbridge)
|
|
"sksp0039"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
(defstate precurbridge-activate (precurbridge)
|
|
:exit (behavior ()
|
|
(logior! (-> self mask) (process-mask actor-pause))
|
|
)
|
|
:trans rider-trans
|
|
:code (behavior ()
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(sound-play "blue-eco-on" :position (the-as symbol (-> self root trans)))
|
|
(ja-no-eval :group! precurbridge-idle-ja :num! (seek! max 0.25) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(if (rand-vu-percent? 0.1)
|
|
(spawn-projectile-blue *target*)
|
|
)
|
|
(suspend)
|
|
(ja :num! (seek! max 0.25))
|
|
)
|
|
(go precurbridge-active #f)
|
|
)
|
|
:post rider-post
|
|
)
|
|
|
|
(defstate precurbridge-active (precurbridge)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('bonk)
|
|
(let* ((gp-0 (the-as object (-> block param 0)))
|
|
(a0-2 (-> (the-as touching-shapes-entry gp-0) head))
|
|
(s5-0 (-> self root))
|
|
)
|
|
(get-touched-prim a0-2 s5-0 (the-as touching-shapes-entry gp-0))
|
|
((method-of-type touching-shapes-entry get-touched-shape) (the-as touching-shapes-entry gp-0) s5-0)
|
|
)
|
|
(activate! (-> self smush) -1.0 150 600 1.0 1.0)
|
|
)
|
|
)
|
|
)
|
|
:trans rider-trans
|
|
:code (behavior ((arg0 symbol))
|
|
(set! (-> self draw bounds w) 81920.0)
|
|
(when arg0
|
|
(ja-channel-set! 1)
|
|
(ja :group! precurbridge-float-ja :num! min)
|
|
)
|
|
(ja-post)
|
|
(update-transforms! (-> self root))
|
|
(logior! (-> self mask) (process-mask actor-pause))
|
|
(loop
|
|
(if (not (movie?))
|
|
(logior! (-> self mask) (process-mask platform))
|
|
)
|
|
(cond
|
|
((and *target* (>= 61440.0 (vector-vector-distance (-> self root trans) (-> *target* control trans))))
|
|
(when (not (ja-group? precurbridge-static-ja))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja :group! precurbridge-static-ja :num! min)
|
|
)
|
|
)
|
|
(else
|
|
(when (not (ja-group? precurbridge-float-ja))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja :group! precurbridge-float-ja :num! min)
|
|
)
|
|
)
|
|
)
|
|
(update! (-> self sound))
|
|
(ja :num! (loop! 0.4))
|
|
(suspend)
|
|
)
|
|
)
|
|
:post rider-post
|
|
)
|
|
|
|
(defmethod init-from-entity! ((this precurbridge) (arg0 entity-actor))
|
|
(stack-size-set! (-> this main-thread) 512)
|
|
(logior! (-> this mask) (process-mask platform))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving this (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)
|
|
)
|
|
(alloc-riders s4-0 1)
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 16) 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 rider-plat-sticky))
|
|
(set! (-> s3-0 transform-index) 0)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 81920.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 3) (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 rider-plat-sticky))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-0 transform-index) 5)
|
|
(set-vector! (-> s2-0 local-sphere) -6144.0 0.0 0.0 17203.2)
|
|
(append-prim s3-0 s2-0)
|
|
)
|
|
(let ((s2-1 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 1))))
|
|
(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 rider-plat-sticky))
|
|
(set! (-> s2-1 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-1 transform-index) 7)
|
|
(set-vector! (-> s2-1 local-sphere) 6144.0 0.0 0.0 17203.2)
|
|
(append-prim s3-0 s2-1)
|
|
)
|
|
(let ((s2-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 3) (the-as uint 1))))
|
|
(set! (-> s2-2 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-2 collide-with) (collide-kind target))
|
|
(set! (-> s2-2 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-2 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-2 transform-index) 9)
|
|
(set-vector! (-> s2-2 local-sphere) -6144.0 0.0 0.0 17203.2)
|
|
(append-prim s3-0 s2-2)
|
|
)
|
|
(let ((s2-3 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 1))))
|
|
(set! (-> s2-3 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-3 collide-with) (collide-kind target))
|
|
(set! (-> s2-3 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-3 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-3 transform-index) 11)
|
|
(set-vector! (-> s2-3 local-sphere) 6144.0 0.0 0.0 17203.2)
|
|
(append-prim s3-0 s2-3)
|
|
)
|
|
(let ((s2-4 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 3) (the-as uint 1))))
|
|
(set! (-> s2-4 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-4 collide-with) (collide-kind target))
|
|
(set! (-> s2-4 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-4 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-4 transform-index) 13)
|
|
(set-vector! (-> s2-4 local-sphere) -6144.0 0.0 0.0 17203.2)
|
|
(append-prim s3-0 s2-4)
|
|
)
|
|
(let ((s2-5 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 1))))
|
|
(set! (-> s2-5 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-5 collide-with) (collide-kind target))
|
|
(set! (-> s2-5 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-5 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-5 transform-index) 15)
|
|
(set-vector! (-> s2-5 local-sphere) 6144.0 0.0 0.0 17203.2)
|
|
(append-prim s3-0 s2-5)
|
|
)
|
|
(let ((s2-6 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 3) (the-as uint 1))))
|
|
(set! (-> s2-6 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-6 collide-with) (collide-kind target))
|
|
(set! (-> s2-6 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-6 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-6 transform-index) 17)
|
|
(set-vector! (-> s2-6 local-sphere) -6144.0 0.0 0.0 17203.2)
|
|
(append-prim s3-0 s2-6)
|
|
)
|
|
(let ((s2-7 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 1))))
|
|
(set! (-> s2-7 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-7 collide-with) (collide-kind target))
|
|
(set! (-> s2-7 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-7 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-7 transform-index) 19)
|
|
(set-vector! (-> s2-7 local-sphere) 6144.0 0.0 0.0 17203.2)
|
|
(append-prim s3-0 s2-7)
|
|
)
|
|
(let ((s2-8 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0))))
|
|
(set! (-> s2-8 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-8 collide-with) (collide-kind target))
|
|
(set! (-> s2-8 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-8 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-8 transform-index) 4)
|
|
(set-vector! (-> s2-8 local-sphere) -4096.0 0.0 0.0 9011.2)
|
|
(append-prim s3-0 s2-8)
|
|
)
|
|
(let ((s2-9 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s2-9 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-9 collide-with) (collide-kind target))
|
|
(set! (-> s2-9 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-9 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-9 transform-index) 6)
|
|
(set-vector! (-> s2-9 local-sphere) 4096.0 0.0 0.0 9011.2)
|
|
(append-prim s3-0 s2-9)
|
|
)
|
|
(let ((s2-10 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0))))
|
|
(set! (-> s2-10 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-10 collide-with) (collide-kind target))
|
|
(set! (-> s2-10 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-10 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-10 transform-index) 8)
|
|
(set-vector! (-> s2-10 local-sphere) -4096.0 0.0 0.0 9011.2)
|
|
(append-prim s3-0 s2-10)
|
|
)
|
|
(let ((s2-11 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s2-11 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-11 collide-with) (collide-kind target))
|
|
(set! (-> s2-11 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-11 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-11 transform-index) 10)
|
|
(set-vector! (-> s2-11 local-sphere) 4096.0 0.0 0.0 9011.2)
|
|
(append-prim s3-0 s2-11)
|
|
)
|
|
(let ((s2-12 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0))))
|
|
(set! (-> s2-12 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-12 collide-with) (collide-kind target))
|
|
(set! (-> s2-12 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-12 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-12 transform-index) 12)
|
|
(set-vector! (-> s2-12 local-sphere) -4096.0 0.0 0.0 9011.2)
|
|
(append-prim s3-0 s2-12)
|
|
)
|
|
(let ((s2-13 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s2-13 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-13 collide-with) (collide-kind target))
|
|
(set! (-> s2-13 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-13 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-13 transform-index) 14)
|
|
(set-vector! (-> s2-13 local-sphere) 4096.0 0.0 0.0 9011.2)
|
|
(append-prim s3-0 s2-13)
|
|
)
|
|
(let ((s2-14 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0))))
|
|
(set! (-> s2-14 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-14 collide-with) (collide-kind target))
|
|
(set! (-> s2-14 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-14 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-14 transform-index) 16)
|
|
(set-vector! (-> s2-14 local-sphere) -4096.0 0.0 0.0 9011.2)
|
|
(append-prim s3-0 s2-14)
|
|
)
|
|
(let ((s2-15 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s2-15 prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> s2-15 collide-with) (collide-kind target))
|
|
(set! (-> s2-15 prim-core action) (collide-action solid rider-plat-sticky))
|
|
(set! (-> s2-15 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-15 transform-index) 18)
|
|
(set-vector! (-> s2-15 local-sphere) 4096.0 0.0 0.0 9011.2)
|
|
(append-prim s3-0 s2-15)
|
|
)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(set-vector! (-> this activation-point) 1765785.6 61440.0 -1279180.8 1.0)
|
|
(initialize-skeleton this *precurbridge-sg* '())
|
|
(logior! (-> this skel status) (janim-status inited))
|
|
(ja-post)
|
|
(update-transforms! (-> this root))
|
|
(set! (-> this base quad) (-> this root trans quad))
|
|
(set! (-> this sound) (new 'process 'ambient-sound arg0 (-> this root trans)))
|
|
(cond
|
|
((and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status complete)))
|
|
(logclear! (-> this mask) (process-mask actor-pause))
|
|
(go precurbridge-active #t)
|
|
)
|
|
(else
|
|
(go precurbridge-idle)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(deftype maindoor (process-drawable)
|
|
((root collide-shape :override)
|
|
(thresh vector :inline)
|
|
)
|
|
(:states
|
|
(maindoor-closed symbol)
|
|
(maindoor-open symbol)
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *maindoor-sg* maindoor maindoor-lod0-jg maindoor-idle-ja
|
|
((maindoor-lod0-mg (meters 20)) (maindoor-lod1-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 7)
|
|
)
|
|
|
|
(defstate maindoor-closed (maindoor)
|
|
:code (behavior ((arg0 symbol))
|
|
(set! (-> self draw force-lod) 1)
|
|
(logclear! (-> self draw status) (draw-status hidden))
|
|
(if arg0
|
|
(ja :num-func num-func-identity :frame-num 0.0)
|
|
)
|
|
(suspend)
|
|
(update-transforms! (-> self root))
|
|
(loop
|
|
(when (or (and (-> self entity) (logtest? (-> self entity extra perm status) (entity-perm-status complete)))
|
|
(and (and *target*
|
|
(>= (-> self thresh w) (vector-vector-distance (-> self root trans) (-> *target* control trans)))
|
|
)
|
|
(send-event *target* 'query 'powerup (pickup-type eco-blue))
|
|
)
|
|
)
|
|
(sound-play "blue-eco-on" :position (the-as symbol (-> self root trans)))
|
|
(go maindoor-open #f)
|
|
)
|
|
(if (and *target*
|
|
(>= (-> self thresh w) (vector-vector-distance (-> self root trans) (-> *target* control trans)))
|
|
)
|
|
(level-hint-spawn
|
|
(text-id sidekick-hint-rounddoor)
|
|
"sksp0038"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
)
|
|
(when (ja-min? 0)
|
|
(set! (-> self root root-prim prim-core action) (collide-action solid))
|
|
(set! (-> self root root-prim prim-core offense) (collide-offense indestructible))
|
|
)
|
|
(ja :num! (seek! 0.0))
|
|
(ja-post)
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defstate maindoor-open (maindoor)
|
|
:code (behavior ((arg0 symbol))
|
|
(set! (-> self draw force-lod) 0)
|
|
(logclear! (-> self draw status) (draw-status hidden))
|
|
(process-entity-status! self (entity-perm-status complete) #t)
|
|
(if arg0
|
|
(ja :num-func num-func-identity :frame-num max)
|
|
)
|
|
(set! (-> self root root-prim prim-core action) (collide-action))
|
|
(set! (-> self root root-prim prim-core offense) (collide-offense no-offense))
|
|
(while (not (ja-max? 0))
|
|
(ja :num! (seek! max 2.0))
|
|
(if (and (not arg0) (rand-vu-percent? 0.2))
|
|
(spawn-projectile-blue *target*)
|
|
)
|
|
(suspend)
|
|
)
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(loop
|
|
(suspend)
|
|
)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
(defmethod init-from-entity! ((this maindoor) (arg0 entity-actor))
|
|
(let ((s4-0 (new 'process 'collide-shape this (collide-list-enum hit-by-others))))
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-kind wall-object))
|
|
(set! (-> s3-0 collide-with) (collide-kind target))
|
|
(set! (-> s3-0 prim-core action) (collide-action solid))
|
|
(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 24576.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *maindoor-sg* '())
|
|
(update-transforms! (-> this root))
|
|
(set! (-> this thresh w) 61440.0)
|
|
(if (or (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status complete)))
|
|
(and (and *target*
|
|
(>= (-> this thresh w) (vector-vector-distance (-> this root trans) (-> *target* control trans)))
|
|
)
|
|
(send-event *target* 'query 'powerup (pickup-type eco-blue))
|
|
)
|
|
)
|
|
(go maindoor-open #t)
|
|
(go maindoor-closed #t)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(deftype sidedoor (eco-door)
|
|
()
|
|
)
|
|
|
|
|
|
(defskelgroup *sidedoor-sg* sidedoor sidedoor-geo-jg sidedoor-idle-ja
|
|
((sidedoor-geo-mg (meters 20)) (sidedoor-lod1-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 8)
|
|
)
|
|
|
|
(defmethod eco-door-method-24 ((this sidedoor))
|
|
(let ((s5-0 (new 'process 'collide-shape this (collide-list-enum hit-by-player))))
|
|
(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 wall-object))
|
|
(set! (-> s4-0 collide-with) (collide-kind target))
|
|
(set! (-> s4-0 prim-core action) (collide-action solid))
|
|
(set! (-> s4-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s4-0 transform-index) 2)
|
|
(set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 14336.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! (-> this root) s5-0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod eco-door-method-25 ((this sidedoor))
|
|
(initialize-skeleton this *sidedoor-sg* '())
|
|
(set! (-> this open-distance) 22528.0)
|
|
(set! (-> this close-distance) 61440.0)
|
|
(set! (-> this speed) 6.0)
|
|
(update-transforms! (-> this root))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(deftype jngpusher (process-drawable)
|
|
((root trsqv :override)
|
|
(sync sync-info :inline)
|
|
(back-prim collide-shape-prim)
|
|
)
|
|
(:states
|
|
jngpusher-idle
|
|
)
|
|
)
|
|
|
|
|
|
(defmethod relocate ((this jngpusher) (arg0 int))
|
|
(if (nonzero? (-> this back-prim))
|
|
(&+! (-> this back-prim) arg0)
|
|
)
|
|
(call-parent-method this arg0)
|
|
)
|
|
|
|
(defskelgroup *jngpusher-sg* jngpusher 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 10))
|
|
|
|
(defstate jngpusher-idle (jngpusher)
|
|
:trans rider-trans
|
|
:code (behavior ()
|
|
(loop
|
|
(ja :num-func num-func-identity
|
|
:frame-num (get-current-value-with-mirror (-> self sync) (the float (ja-num-frames 0)))
|
|
)
|
|
(cond
|
|
((< (ja-frame-num 0) (the float (/ (ja-num-frames 0) 3)))
|
|
(set! (-> self back-prim prim-core collide-as) (collide-kind))
|
|
(set! (-> self back-prim collide-with) (collide-kind))
|
|
0
|
|
)
|
|
(else
|
|
(set! (-> self back-prim prim-core collide-as) (collide-kind ground-object))
|
|
(set! (-> self back-prim collide-with) (collide-kind target))
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
:post rider-post
|
|
)
|
|
|
|
(defmethod init-from-entity! ((this jngpusher) (arg0 entity-actor))
|
|
(logior! (-> this mask) (process-mask enemy platform))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving this (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)
|
|
)
|
|
(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 rider-plat-sticky))
|
|
(set! (-> s3-0 transform-index) 0)
|
|
(set-vector! (-> s3-0 local-sphere) -32768.0 -8192.0 0.0 32768.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
(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 rider-plat-sticky))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-0 transform-index) 4)
|
|
(set-vector! (-> s2-0 local-sphere) 8192.0 0.0 0.0 20480.0)
|
|
(append-prim s3-0 s2-0)
|
|
)
|
|
(let ((s2-1 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (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 rider-plat-sticky))
|
|
(set! (-> s2-1 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s2-1 transform-index) 4)
|
|
(set-vector! (-> s2-1 local-sphere) 36864.0 0.0 0.0 20480.0)
|
|
(append-prim s3-0 s2-1)
|
|
(set! (-> this back-prim) s2-1)
|
|
)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> this root) s4-0)
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton this *jngpusher-sg* '())
|
|
(load-params! (-> this sync) this (the-as uint 1500) 0.0 0.15 0.15)
|
|
(go jngpusher-idle)
|
|
(none)
|
|
)
|
|
|
|
(deftype jungle-water (water-anim)
|
|
()
|
|
)
|
|
|
|
|
|
(define ripple-for-jungle-water (new 'static 'ripple-wave-set
|
|
:count 3
|
|
:converted #f
|
|
:normal-scale 1.5
|
|
:wave (new 'static 'inline-array ripple-wave 4
|
|
(new 'static 'ripple-wave :scale 30.0 :xdiv -2 :speed 4.0)
|
|
(new 'static 'ripple-wave :scale 30.0 :xdiv 1 :zdiv -1 :speed 4.0)
|
|
(new 'static 'ripple-wave :scale 10.0 :xdiv -5 :zdiv -3 :speed 2.0)
|
|
(new 'static 'ripple-wave)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defmethod water-vol-method-22 ((this jungle-water))
|
|
(let ((t9-0 (method-of-type water-anim water-vol-method-22)))
|
|
(t9-0 this)
|
|
)
|
|
(let ((v1-2 (new 'process 'ripple-control)))
|
|
(set! (-> this draw ripple) v1-2)
|
|
(set-vector! (-> this draw color-mult) 0.01 0.45 0.5 0.75)
|
|
(set! (-> v1-2 global-scale) 3072.0)
|
|
(set! (-> v1-2 close-fade-dist) 163840.0)
|
|
(set! (-> v1-2 far-fade-dist) 245760.0)
|
|
(set! (-> v1-2 waveform) ripple-for-jungle-water)
|
|
)
|
|
(none)
|
|
)
|