mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-07 02:06:59 -04:00
Code Issues Packages Projects Releases Wiki Activity
Files
2fa4a23ea1dbbd4db7fab37b95fc067644a6c437
jak-project/test/decompiler/reference/jak2/levels/dig/dig3-obs_REF.gc
T
Hat Kid 67d4eda169 decomp: hover-* files, wasp, crimson-guard-hover, flamer, target-turret, drill-turret, jellyfish (#2198) 
Manual patches:

- `drill-turret`: The static data for `*turret-13-path*`,
`*turret-14-path*` and `*turret-15-path*` was decompiled by hand and the
integers in the `set-speed-mult` events have been replaced with boxed
integer arrays that contain only that integer in order to make the
compiler happy. To that effect, the event handler in `target-turret` was
changed to access that array instead of just accessing the int.
- `hover-nav-control`: In `hover-nav-control::10`, `arg2` is usually a
`vector`, but there are some places where it is called with `#t` as
`arg2` and, subsequently, crashes the game because it tries to access
the `quad` of `arg2` if `arg2` is truthy. To mitigate this, the
condition `arg2` has been replaced with `(and (!= arg2 #t) arg2)` (in
this case, it would jump to the `else` that just resets the `dest-vel`
and `transv` `quad`s)
- `drill-baron`: The static data for `*drill-ship-turret-speed-event*`
has been decompiled by hand.

TODOs:
- Jellyfish crash the game
- Destroying the metalhead eggs that are on the breakable wall crashes
the game (already happened with the Peacemaker before)
- Figure out why static data of type `turret-path-event` doesn't
decompile

The docs for all the hover-nav and nav-network code could use some love
in the future, I'm not smart enough to figure out what any of that code
actually means, but it seems to work...

Also threw in the fix for the ▲ that was accidentally left commented
out.
2023-02-09 18:22:56 -05:00

2313 lines
91 KiB
Common Lisp
Vendored
Generated
Raw Blame History

;;-*-Lisp-*-
(in-package goal)
;; failed to figure out what this is:
(defpartgroup group-dig-spikey-sphere-bounce
:id 1148
:duration (seconds 0.017)
:linger-duration (seconds 1.5)
:bounds (static-bspherem 0 0 0 2)
:parts ((sp-item 4978) (sp-item 4979) (sp-item 4980))
)
;; failed to figure out what this is:
(defpart 4978
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
(sp-flt spt-num 16.0)
(sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 32.0 96.0 1.0)
(sp-copy-from-other spt-g -1)
(sp-copy-from-other spt-b -1)
(sp-rnd-flt spt-a 16.0 32.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.06666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.0033333334))
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.16)
(sp-flt spt-accel-y -1.3653333)
(sp-rnd-flt spt-friction 0.92 0.03 1.0)
(sp-int spt-timer 300)
(sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-12)
(sp-rnd-flt spt-conerot-x (degrees 65.0) (degrees 10.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
)
)
;; failed to figure out what this is:
(defpart 4980
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
(sp-flt spt-num 16.0)
(sp-rnd-flt spt-x (meters 0) (meters 3) 1.0)
(sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 32.0 96.0 1.0)
(sp-copy-from-other spt-g -1)
(sp-copy-from-other spt-b -1)
(sp-rnd-flt spt-a 16.0 32.0 1.0)
(sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.06666667) 1.0)
(sp-flt spt-scalevel-x (meters 0.0033333334))
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-rnd-flt spt-fade-a -0.08 -0.08 1.0)
(sp-flt spt-accel-y -1.3653333)
(sp-rnd-flt spt-friction 0.92 0.03 1.0)
(sp-int spt-timer 600)
(sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-12)
(sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 3600.0) 1.0)
)
)
;; failed to figure out what this is:
(defpart 4979
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
(sp-flt spt-num 16.0)
(sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 32.0 96.0 1.0)
(sp-copy-from-other spt-g -1)
(sp-copy-from-other spt-b -1)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
(sp-flt spt-scalevel-x (meters 0.0016666667))
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -0.21333334)
(sp-flt spt-accel-y -1.3653333)
(sp-flt spt-friction 0.95)
(sp-int spt-timer 150)
(sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-12)
(sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
)
)
;; failed to figure out what this is:
(defpartgroup group-dig-spikey-sphere-break
:id 1149
:duration (seconds 2)
:linger-duration (seconds 3)
:flags (use-local-clock)
:bounds (static-bspherem 0 0 0 8)
:parts ((sp-item 4978 :period 1500 :length 15)
(sp-item 4979 :period 1500 :length 15)
(sp-item 4982 :period 1500 :length 15)
(sp-item 4983 :fade-after (meters 130) :falloff-to (meters 130) :flags (is-3d) :period 1500 :length 15 :binding 4981)
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
(sp-item 4981 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
)
)
;; failed to figure out what this is:
(defpart 4982
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
(sp-flt spt-num 32.0)
(sp-flt spt-y (meters 3))
(sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 1.0)
(sp-rnd-flt spt-scale-y (meters 2.5) (meters 2.5) 1.0)
(sp-rnd-flt spt-r 32.0 96.0 1.0)
(sp-copy-from-other spt-g -1)
(sp-copy-from-other spt-b -1)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.033333335) (meters 0.13333334) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
(sp-rnd-flt spt-fade-a -0.04 -0.04 1.0)
(sp-rnd-flt spt-accel-y -1.3653333 -0.13653333 1.0)
(sp-rnd-flt spt-friction 0.9 0.02 1.0)
(sp-int spt-timer 800)
(sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-12)
(sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 70.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 0) (meters 1) 1.0)
)
)
;; failed to figure out what this is:
(defpart 4981
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #xc))
(sp-flt spt-num 1.0)
(sp-rnd-flt spt-scale-x (meters 1) (meters 0.1) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 3600.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 32.0 96.0 1.0)
(sp-copy-from-other spt-g -1)
(sp-copy-from-other spt-b -1)
(sp-rnd-flt spt-a 16.0 16.0 1.0)
(sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-rnd-flt spt-fade-a -0.10666667 -0.21333334 1.0)
(sp-rnd-flt spt-accel-y 0.0 -2.048 1.0)
(sp-int spt-timer 300)
(sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-12 use-global-acc)
)
)
;; failed to figure out what this is:
(defpart 4983
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xc :page #xc))
(sp-flt spt-num 16.0)
(sp-flt spt-y (meters 3))
(sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
(sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.2) 1.0)
(sp-rnd-flt spt-r 0.0 32.0 1.0)
(sp-copy-from-other spt-g -1)
(sp-copy-from-other spt-b -1)
(sp-flt spt-a 128.0)
(sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.2) 1.0)
(sp-rnd-flt spt-rotvel-x (degrees -4.8) (degrees 9.6) 1.0)
(sp-rnd-flt spt-rotvel-y (degrees -4.8) (degrees 9.6) 1.0)
(sp-rnd-flt spt-rotvel-z (degrees -4.8) (degrees 9.6) 1.0)
(sp-rnd-flt spt-accel-y -13.653334 -6.826667 1.0)
(sp-rnd-flt spt-friction 0.95 0.02 1.0)
(sp-int spt-timer 400)
(sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-12)
(sp-int-plain-rnd spt-next-time 100 199 1)
(sp-launcher-by-id spt-next-launcher 237)
(sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 70.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
)
)
;; failed to figure out what this is:
(defpart 4984
:init-specs ((sp-rnd-flt spt-fade-a -1.28 -1.28 1.0))
)
;; definition of type dig-spikey-step
(deftype dig-spikey-step (process-drawable)
((smush smush-control :inline :offset-assert 200)
(init-quat quaternion :inline :offset-assert 240)
(shudder-angle float :offset-assert 256)
(rot-angle float :offset-assert 260)
(cycle-time float :offset-assert 264)
(cycle-offset float :offset-assert 268)
)
:heap-base #x90
:method-count-assert 21
:size-assert #x110
:flag-assert #x1500900110
(:methods
(idle () _type_ :state 20)
)
)
;; definition for method 3 of type dig-spikey-step
(defmethod inspect dig-spikey-step ((obj dig-spikey-step))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~2Tsmush: #<smush-control @ #x~X>~%" (-> obj smush))
(format #t "~2Tinit-quat: #<quaternion @ #x~X>~%" (-> obj init-quat))
(format #t "~2Tshudder-angle: ~f~%" (-> obj shudder-angle))
(format #t "~2Trot-angle: ~f~%" (-> obj rot-angle))
(format #t "~2Tcycle-time: ~f~%" (-> obj cycle-time))
(format #t "~2Tcycle-offset: ~f~%" (-> obj cycle-offset))
(label cfg-4)
obj
)
;; failed to figure out what this is:
(defskelgroup skel-dig-spikey-step dig-spikey-step dig-spikey-step-lod0-jg dig-spikey-step-idle-ja
((dig-spikey-step-lod0-mg (meters 999999)))
:bounds (static-spherem 0 0 6 9)
)
;; failed to figure out what this is:
(defstate idle (dig-spikey-step)
:virtual #t
:trans (the-as (function none :behavior dig-spikey-step) rider-trans)
:code (behavior ()
(let ((gp-0 (-> self clock frame-counter)))
(until (>= (- (-> self clock frame-counter) gp-0) (the int (-> self cycle-offset)))
(suspend)
)
)
(until #f
(let ((gp-1 (-> self clock frame-counter)))
(until (>= (- (-> self clock frame-counter) gp-1) (the int (-> self cycle-time)))
(suspend)
)
)
(activate! (-> self smush) -1.0 60 225 1.0 1.0 (-> self clock))
(sound-play "spikey-shake" :position (-> self root trans))
(let ((gp-3 (-> self clock frame-counter)))
(until (>= (- (-> self clock frame-counter) gp-3) (seconds 0.75))
(set! (-> self shudder-angle) (* 364.0889 (update! (-> self smush))))
(suspend)
)
)
(set! (-> self shudder-angle) 0.0)
(set-zero! (-> self smush))
(let ((gp-4 (-> self clock frame-counter)))
(until (>= (- (-> self clock frame-counter) gp-4) (seconds 0.25))
(suspend)
)
)
(sound-play "spikey-turn" :position (-> self root trans))
(let* ((f0-7 1.0)
(f30-1 (* 65536.0 f0-7))
(gp-6 (-> self clock frame-counter))
)
(until (>= (- (-> self clock frame-counter) gp-6) (seconds 1))
(set! (-> self rot-angle)
(the float (sar (shl (the int (+ (-> self rot-angle) (* f30-1 (-> self clock seconds-per-frame)))) 48) 48))
)
(suspend)
)
)
(let ((v1-42 #x10000))
(if (< (-> self rot-angle) 0.0)
(set! (-> self rot-angle)
(the float (sar (shl (* v1-42 (/ (- (the int (-> self rot-angle)) (/ v1-42 2)) v1-42)) 48) 48))
)
(set! (-> self rot-angle)
(the float (sar (shl (* v1-42 (/ (+ (the int (-> self rot-angle)) (/ v1-42 2)) v1-42)) 48) 48))
)
)
)
)
#f
(none)
)
:post (behavior ()
(let ((a2-1 (quaternion-vector-angle!
(new 'stack-no-clear 'quaternion)
*z-vector*
(+ (-> self rot-angle) (-> self shudder-angle))
)
)
)
(quaternion*! (-> self root quat) (-> self init-quat) a2-1)
)
(rider-post)
(none)
)
)
;; definition for method 11 of type dig-spikey-step
;; INFO: Used lq/sq
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! dig-spikey-step ((obj dig-spikey-step) (arg0 entity-actor))
"Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
(local-vars (sv-16 int))
(let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player))))
(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-spec obstacle pusher))
(set! (-> s3-0 prim-core collide-with) (collide-spec jak bot player-list))
(set! (-> s3-0 prim-core action) (collide-action solid rideable))
(set! (-> s3-0 transform-index) 3)
(set-vector! (-> s3-0 local-sphere) 0.0 0.0 24576.0 36864.0)
(set! (-> s4-0 total-prims) (the-as uint 1))
(set! (-> s4-0 root-prim) s3-0)
)
(pusher-init s4-0)
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
(let ((v1-12 (-> s4-0 root-prim)))
(set! (-> s4-0 backup-collide-as) (-> v1-12 prim-core collide-as))
(set! (-> s4-0 backup-collide-with) (-> v1-12 prim-core collide-with))
)
(set! (-> obj root) s4-0)
)
(process-drawable-from-entity! obj arg0)
(initialize-skeleton
obj
(the-as skeleton-group (art-group-get-by-name *level* "skel-dig-spikey-step" (the-as (pointer uint32) #f)))
(the-as pair 0)
)
(quaternion-copy! (-> obj init-quat) (-> obj root quat))
(let ((f28-0 4.0)
(f30-0 0.0)
)
(set! sv-16 0)
(let ((v1-20 (res-lump-data arg0 'cycle-speed (pointer float) :tag-ptr (the-as (pointer res-tag) (& sv-16)))))
(when v1-20
(set! f28-0 (-> v1-20 0))
(set! f30-0 (-> v1-20 1))
)
)
(set! (-> obj cycle-time) (the float (max 0 (+ (the int (* 300.0 f28-0)) -525))))
(set! (-> obj cycle-offset) (the float (the int (* 300.0 f30-0))))
)
(go (method-of-object obj idle))
(none)
)
;; definition of type dig-spikey-sphere
(deftype dig-spikey-sphere (projectile-bounce)
((death-height float :offset-assert 496)
(pad-i1hb23h1b float :offset-assert 500)
)
:heap-base #x180
:method-count-assert 42
:size-assert #x1f8
:flag-assert #x2a018001f8
)
;; definition for method 3 of type dig-spikey-sphere
(defmethod inspect dig-spikey-sphere ((obj dig-spikey-sphere))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type projectile-bounce inspect)))
(t9-0 obj)
)
(format #t "~2Tattack-id: ~D~%" (-> obj attack-id))
(format #t "~2Tdeath-height: ~f~%" (-> obj pad-i1hb23h1b))
(label cfg-4)
obj
)
;; failed to figure out what this is:
(defskelgroup skel-dig-spikey-sphere dig-spikey-sphere dig-spikey-sphere-lod0-jg dig-spikey-sphere-idle-ja
((dig-spikey-sphere-lod0-mg (meters 999999)))
:bounds (static-spherem 0 0 0 4.2)
:shadow dig-spikey-sphere-shadow-mg
)
;; failed to figure out what this is:
(defskelgroup skel-dig-spikey-sphere-explode dig-spikey-sphere dig-spikey-sphere-explode-lod0-jg dig-spikey-sphere-explode-idle-ja
((dig-spikey-sphere-explode-lod0-mg (meters 999999)))
:bounds (static-spherem 0 0 0 4.2)
)
;; definition for symbol *dig-spikey-sphere-exploder-params*, type joint-exploder-static-params
(define *dig-spikey-sphere-exploder-params*
(new 'static 'joint-exploder-static-params
:joints (new 'static 'boxed-array :type joint-exploder-static-joint-params
(new 'static 'joint-exploder-static-joint-params :joint-index 3 :parent-joint-index -1)
(new 'static 'joint-exploder-static-joint-params :joint-index 4 :parent-joint-index -1)
(new 'static 'joint-exploder-static-joint-params :joint-index 5 :parent-joint-index -1)
(new 'static 'joint-exploder-static-joint-params :joint-index 6 :parent-joint-index -1)
(new 'static 'joint-exploder-static-joint-params :joint-index 7 :parent-joint-index -1)
(new 'static 'joint-exploder-static-joint-params :joint-index 8 :parent-joint-index -1)
(new 'static 'joint-exploder-static-joint-params :joint-index 9 :parent-joint-index -1)
(new 'static 'joint-exploder-static-joint-params :joint-index 10 :parent-joint-index -1)
(new 'static 'joint-exploder-static-joint-params :joint-index 11 :parent-joint-index -1)
(new 'static 'joint-exploder-static-joint-params :joint-index 12 :parent-joint-index -1)
)
:collide-spec #x1
:art-level #f
)
)
;; failed to figure out what this is:
(defstate die (dig-spikey-sphere)
:virtual #t
:enter (behavior ()
(send-event (ppointer->process (-> self parent)) 'died)
(let ((v1-6 (-> self root-override root-prim)))
(set! (-> v1-6 prim-core collide-as) (collide-spec))
(set! (-> v1-6 prim-core collide-with) (collide-spec))
)
0
(logior! (-> self draw status) (draw-control-status no-draw))
(none)
)
:code (behavior ()
(let ((gp-0 (new 'stack 'joint-exploder-tuning (the-as uint 0))))
(process-spawn
joint-exploder
(art-group-get-by-name *level* "skel-dig-spikey-sphere-explode" (the-as (pointer uint32) #f))
6
gp-0
*dig-spikey-sphere-exploder-params*
:to self
)
)
(sound-play "spikey-break")
(suspend)
(let ((gp-2 (-> self clock frame-counter)))
(until (>= (- (-> self clock frame-counter) gp-2) (seconds 4))
(suspend)
)
)
(let ((t9-7 (-> (method-of-type projectile-bounce die) code)))
(if t9-7
((the-as (function none) t9-7))
)
)
(none)
)
)
;; definition for function spikey-sphere-update-velocity
;; WARN: Return type mismatch int vs none.
(defun spikey-sphere-update-velocity ((arg0 dig-spikey-sphere))
(with-pp
(set! (-> arg0 root-override transv y)
(- (-> arg0 root-override transv y) (* 327680.0 (-> pp clock seconds-per-frame)))
)
0
(none)
)
)
;; definition for function spikey-sphere-reaction
(defbehavior spikey-sphere-reaction dig-spikey-sphere ((arg0 control-info) (arg1 collide-query) (arg2 vector) (arg3 vector))
(cshape-reaction-update-state arg0 arg1 arg3)
(let ((f30-0 (vector-dot arg3 (-> arg0 surface-normal)))
(s3-0 (new 'stack-no-clear 'vector))
)
(sound-play "spikey-bounce")
(vector-float*! s3-0 (-> arg0 surface-normal) (* 1.6 f30-0))
(vector-! arg2 arg3 s3-0)
)
(-> arg0 status)
)
;; definition for method 30 of type dig-spikey-sphere
;; WARN: Return type mismatch int vs none.
(defmethod init-proj-collision! dig-spikey-sphere ((obj dig-spikey-sphere))
"Init the [[projectile]]'s [[collide-shape]]"
(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) spikey-sphere-reaction)
(set! (-> s5-0 no-reaction)
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
)
(let ((s4-0 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> s4-0 prim-core collide-as) (collide-spec pusher))
(set! (-> s4-0 prim-core collide-with) (collide-spec backgnd player-list))
(set! (-> s4-0 prim-core action) (collide-action solid))
(set! (-> s4-0 transform-index) 3)
(set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 12288.0)
(set! (-> s5-0 total-prims) (the-as uint 1))
(set! (-> s5-0 root-prim) s4-0)
)
(pusher-init s5-0)
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
(let ((v1-16 (-> s5-0 root-prim)))
(set! (-> s5-0 backup-collide-as) (-> v1-16 prim-core collide-as))
(set! (-> s5-0 backup-collide-with) (-> v1-16 prim-core collide-with))
)
(set! (-> s5-0 max-iteration-count) (the-as uint 2))
(set! (-> s5-0 event-self) 'touched)
(set! (-> obj root-override) s5-0)
)
0
(none)
)
;; definition for function spikey-sphere-move
(defun spikey-sphere-move ((arg0 dig-spikey-sphere))
(quaternion*! (-> arg0 root-override quat) (-> arg0 tumble-quat) (-> arg0 root-override quat))
(projectile-move-fill-all-dirs arg0)
(none)
)
;; definition for method 39 of type dig-spikey-sphere
;; INFO: Used lq/sq
;; WARN: Return type mismatch time-frame vs sound-id.
(defmethod play-impact-sound! dig-spikey-sphere ((obj dig-spikey-sphere))
"Plays impact sound"
(let* ((a0-1 (-> obj root-override))
(s5-0 (-> a0-1 status))
)
(when (logtest? s5-0 (collide-status touch-surface))
(vector-float*! (-> a0-1 transv) (-> a0-1 transv) 0.9)
(cond
((< (-> obj root-override trans y) (-> obj pad-i1hb23h1b))
(let ((s4-0 (get-process *default-dead-pool* part-tracker #x4000)))
(when s4-0
(let ((t9-1 (method-of-type part-tracker activate)))
(t9-1
(the-as part-tracker s4-0)
*entity-pool*
(symbol->string (-> part-tracker symbol))
(the-as pointer #x70004000)
)
)
(let ((t9-2 run-function-in-process)
(a0-5 s4-0)
(a1-3 part-tracker-init)
(a2-4 (-> *part-group-id-table* 1149))
(a3-1 0)
(t0-0 #f)
(t1-0 #f)
(t2-0 #f)
(t3-0 *launch-matrix*)
)
(set! (-> t3-0 trans quad) (-> obj root-override grount-touch-point quad))
((the-as (function object object object object object object object object none) t9-2)
a0-5
a1-3
a2-4
a3-1
t0-0
t1-0
t2-0
t3-0
)
)
(-> s4-0 ppointer)
)
)
(go (method-of-object obj die))
)
(else
(let ((s4-1 (get-process *default-dead-pool* part-tracker #x4000)))
(when s4-1
(let ((t9-5 (method-of-type part-tracker activate)))
(t9-5
(the-as part-tracker s4-1)
*entity-pool*
(symbol->string (-> part-tracker symbol))
(the-as pointer #x70004000)
)
)
(let ((t9-6 run-function-in-process)
(a0-8 s4-1)
(a1-6 part-tracker-init)
(a2-9 (-> *part-group-id-table* 1148))
(a3-3 0)
(t0-1 #f)
(t1-1 #f)
(t2-1 #f)
(t3-1 *launch-matrix*)
)
(set! (-> t3-1 trans quad) (-> obj root-override grount-touch-point quad))
((the-as (function object object object object object object object object none) t9-6)
a0-8
a1-6
a2-9
a3-3
t0-1
t1-1
t2-1
t3-1
)
)
(-> s4-1 ppointer)
)
)
)
)
)
(the-as sound-id (when (and (logtest? s5-0 (collide-status impact-surface))
(>= (- (-> self clock frame-counter) (-> obj played-bounce-time)) (seconds 0.3))
)
(let ((v0-7 (-> self clock frame-counter)))
(set! (-> obj played-bounce-time) v0-7)
v0-7
)
)
)
)
)
;; definition for method 31 of type dig-spikey-sphere
;; WARN: Return type mismatch int vs none.
(defmethod init-proj-settings! dig-spikey-sphere ((obj dig-spikey-sphere))
"Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc"
(with-pp
(set! (-> obj attack-mode) 'eco-dark)
(initialize-skeleton
obj
(the-as skeleton-group (art-group-get-by-name *level* "skel-dig-spikey-sphere" (the-as (pointer uint32) #f)))
(the-as pair 0)
)
(let ((t9-2 (method-of-type projectile-bounce init-proj-settings!)))
(t9-2 obj)
)
(set! (-> obj max-speed) 163840.0)
(set! (-> obj timeout) (seconds 8))
(logclear! (-> obj mask) (process-mask actor-pause))
(set! (-> obj notify-handle) (the-as handle #f))
(set! (-> obj update-velocity) spikey-sphere-update-velocity)
(set! (-> obj max-hits) #xffff)
(set! (-> obj move) spikey-sphere-move)
(set-vector! (-> obj root-override quat) 0.0 0.0 0.0 1.0)
(set! (-> obj pad-i1hb23h1b) (+ -204800.0 (-> obj root-override trans y)))
(let ((v1-16 (-> obj starting-dir)))
(quaternion-axis-angle!
(-> obj tumble-quat)
(-> v1-16 z)
(-> v1-16 y)
(-> v1-16 x)
(* -65536.0 (-> pp clock seconds-per-frame))
)
)
(set! (-> obj draw light-index) (the-as uint 4))
(sound-play "spikey-roll")
0
(none)
)
)
;; definition of type dig-spikey-sphere-door
(deftype dig-spikey-sphere-door (process-drawable)
((sync sync-linear :inline :offset-assert 200)
(prev-sync float :offset-assert 216)
)
:heap-base #x60
:method-count-assert 22
:size-assert #xdc
:flag-assert #x16006000dc
(:methods
(idle () _type_ :state 20)
(active () _type_ :state 21)
)
)
;; definition for method 3 of type dig-spikey-sphere-door
(defmethod inspect dig-spikey-sphere-door ((obj dig-spikey-sphere-door))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~2Tsync: #<sync-linear @ #x~X>~%" (-> obj sync))
(format #t "~2Tprev-sync: ~f~%" (-> obj prev-sync))
(label cfg-4)
obj
)
;; failed to figure out what this is:
(defskelgroup skel-dig-spikey-sphere-door dig-spikey-sphere-door dig-spikey-sphere-door-lod0-jg dig-spikey-sphere-door-idle-ja
((dig-spikey-sphere-door-lod0-mg (meters 999999)))
:bounds (static-spherem 0 -4 0 7)
:origin-joint-index 4
)
;; failed to figure out what this is:
(defstate idle (dig-spikey-sphere-door)
:virtual #t
:trans (behavior ()
(let ((f30-0 (-> self prev-sync))
(f0-0 (get-norm! (-> self sync) 0))
)
(set! (-> self prev-sync) f0-0)
(if (< f0-0 f30-0)
(go-virtual active)
)
)
(none)
)
:code (the-as (function none :behavior dig-spikey-sphere-door) sleep-code)
)
;; failed to figure out what this is:
(defstate active (dig-spikey-sphere-door)
:virtual #t
:code (behavior ()
(sound-play "spikey-door")
(let ((gp-1 (-> self clock frame-counter)))
(until (>= (- (-> self clock frame-counter) gp-1) (seconds 0.1))
(suspend)
)
)
(let ((gp-2 (new 'stack-no-clear 'vector))
(s5-1 (new 'static 'vector :x -16384.0 :y -16384.0))
)
(vector-z-quaternion! gp-2 (-> self root quat))
(let ((v1-7 (new 'stack-no-clear 'projectile-init-by-other-params)))
(set! (-> v1-7 ent) (-> self entity))
(set! (-> v1-7 charge) 1.0)
(set! (-> v1-7 options) (projectile-options))
(set! (-> v1-7 notify-handle) (the-as handle #f))
(set! (-> v1-7 owner-handle) (the-as handle #f))
(set! (-> v1-7 ignore-handle) (process->handle self))
(let* ((a0-8 *game-info*)
(a1-6 (+ (-> a0-8 attack-id) 1))
)
(set! (-> a0-8 attack-id) a1-6)
(set! (-> v1-7 attack-id) a1-6)
)
(set! (-> v1-7 timeout) (seconds 4))
(vector+! (-> v1-7 pos) (-> self root trans) s5-1)
(vector-float*! (-> v1-7 vel) gp-2 163840.0)
(spawn-projectile
dig-spikey-sphere
(the-as projectile-init-by-other-params (&-> v1-7 ent))
self
*default-dead-pool*
)
)
)
(ja-no-eval :group! (ja-group)
:num! (seek! (the float (+ (-> (ja-group) frames num-frames) -1)))
:frame-num 0.0
)
(until (ja-done? 0)
(suspend)
(ja :num! (seek!))
)
(go-virtual idle)
(none)
)
:post (the-as (function none :behavior dig-spikey-sphere-door) ja-post)
)
;; definition for method 11 of type dig-spikey-sphere-door
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! dig-spikey-sphere-door ((obj dig-spikey-sphere-door) (arg0 entity-actor))
"Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
(set! (-> obj root) (new 'process 'trsqv))
(process-drawable-from-entity! obj arg0)
(initialize-skeleton
obj
(the-as
skeleton-group
(art-group-get-by-name *level* "skel-dig-spikey-sphere-door" (the-as (pointer uint32) #f))
)
(the-as pair 0)
)
(let ((a1-5 (new 'stack-no-clear 'sync-info-params)))
(let ((v1-4 0))
(if #f
(set! v1-4 (logior v1-4 1))
)
(set! (-> a1-5 sync-type) 'sync-linear)
(set! (-> a1-5 sync-flags) (the-as sync-flags v1-4))
)
(set! (-> a1-5 entity) arg0)
(set! (-> a1-5 period) (the-as uint 1200))
(set! (-> a1-5 percent) 0.0)
(initialize! (-> obj sync) a1-5)
)
(set! (-> obj prev-sync) (get-norm! (-> obj sync) 0))
(logclear! (-> obj mask) (process-mask actor-pause))
(set! (-> obj draw light-index) (the-as uint 3))
(go (method-of-object obj idle))
(none)
)
;; failed to figure out what this is:
(defskelgroup skel-dig-balloon-lurker-trapeze dig-balloon-lurker dig-balloon-lurker-trapeze-lod0-jg dig-balloon-lurker-trapeze-jak-off-ja
((dig-balloon-lurker-trapeze-lod0-mg (meters 999999)))
:bounds (static-spherem 0 0 0 20)
:shadow dig-balloon-lurker-trapeze-shadow-mg
)
;; failed to figure out what this is:
(defskelgroup skel-dig-balloon-lurker dig-balloon-lurker dig-balloon-lurker-lod0-jg dig-balloon-lurker-idle-ja
((dig-balloon-lurker-lod0-mg (meters 999999)))
:bounds (static-spherem 0 8 0 16)
)
;; definition of type dig-balloon-lurker
(deftype dig-balloon-lurker (process-drawable)
((init-quat quaternion :inline :offset-assert 208)
(sync sync-eased :inline :offset-assert 224)
(swing-sync sync-linear :inline :offset-assert 272)
(smush smush-control :inline :offset-assert 288)
(pov-cam-offset vector :inline :offset-assert 320)
(options int32 :offset-assert 336)
(bouncing basic :offset-assert 340)
(bounce-scale meters :offset-assert 344)
(bob-counter float :offset-assert 348)
(forward-backward basic :offset-assert 352)
(grabbed basic :offset-assert 356)
(trapeze-grabbed basic :offset-assert 360)
(pedal-anim-frame float :offset-assert 364)
(pedal-anim-speed float :offset-assert 368)
(pedal-sound-id uint32 :offset-assert 372)
)
:heap-base #x100
:method-count-assert 21
:size-assert #x178
:flag-assert #x1501000178
(:methods
(idle () _type_ :state 20)
)
)
;; definition for method 3 of type dig-balloon-lurker
(defmethod inspect dig-balloon-lurker ((obj dig-balloon-lurker))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~2Tinit-quat: #<quaternion @ #x~X>~%" (-> obj init-quat))
(format #t "~2Tsync: #<sync-eased @ #x~X>~%" (-> obj sync))
(format #t "~2Tswing-sync: #<sync-linear @ #x~X>~%" (-> obj swing-sync))
(format #t "~2Tsmush: #<smush-control @ #x~X>~%" (-> obj smush))
(format #t "~2Tpov-cam-offset: #<vector @ #x~X>~%" (-> obj pov-cam-offset))
(format #t "~2Toptions: ~D~%" (-> obj options))
(format #t "~2Tbouncing: ~A~%" (-> obj bouncing))
(format #t "~2Tbounce-scale: (meters ~m)~%" (-> obj bounce-scale))
(format #t "~2Tbob-counter: ~f~%" (-> obj bob-counter))
(format #t "~2Tforward-backward: ~A~%" (-> obj forward-backward))
(format #t "~2Tgrabbed: ~A~%" (-> obj grabbed))
(format #t "~2Ttrapeze-grabbed: ~A~%" (-> obj trapeze-grabbed))
(format #t "~2Tpedal-anim-frame: ~f~%" (-> obj pedal-anim-frame))
(format #t "~2Tpedal-anim-speed: ~f~%" (-> obj pedal-anim-speed))
(format #t "~2Tpedal-sound-id: ~D~%" (-> obj pedal-sound-id))
(label cfg-4)
obj
)
;; definition of type dig-balloon-lurker-trapeze
(deftype dig-balloon-lurker-trapeze (process-drawable)
((parent-ptr (pointer dig-balloon-lurker) :offset 16)
(swing-type float :offset-assert 200)
(swing-pole (pointer swingpole) :offset-assert 204)
(swing-anim-frame float :offset-assert 208)
)
:heap-base #x60
:method-count-assert 22
:size-assert #xd4
:flag-assert #x16006000d4
(:methods
(idle () _type_ :state 20)
(dig-balloon-lurker-trapeze-method-21 (_type_) none 21)
)
)
;; definition for method 3 of type dig-balloon-lurker-trapeze
(defmethod inspect dig-balloon-lurker-trapeze ((obj dig-balloon-lurker-trapeze))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~2Tswing-type: ~f~%" (-> obj swing-type))
(format #t "~2Tswing-pole: #x~X~%" (-> obj swing-pole))
(format #t "~2Tswing-anim-frame: ~f~%" (-> obj swing-anim-frame))
(label cfg-4)
obj
)
;; definition for function dig-balloon-lurker-trapeze-init-by-other
;; WARN: Return type mismatch object vs none.
(defbehavior dig-balloon-lurker-trapeze-init-by-other dig-balloon-lurker-trapeze ((arg0 entity-actor))
(set! (-> self root) (new 'process 'trsqv))
(process-drawable-from-entity! self arg0)
(initialize-skeleton
self
(the-as
skeleton-group
(art-group-get-by-name *level* "skel-dig-balloon-lurker-trapeze" (the-as (pointer uint32) #f))
)
(the-as pair 0)
)
(logclear! (-> self mask) (process-mask actor-pause))
(set! (-> self swing-type) 0.0)
(set! (-> self swing-pole) (process-spawn swingpole :init swingpole-init 11 :to self))
(set! (-> self swing-anim-frame) 0.0)
(set! (-> self draw shadow-ctrl) (new
'process
'shadow-control
0.0
0.0
614400.0
(shadow-flags disable-fade shdf02 shdf03 shdf04 shdf07)
491520.0
)
)
(go-virtual idle)
(none)
)
;; failed to figure out what this is:
(defstate idle (dig-balloon-lurker-trapeze)
:virtual #t
:code (behavior ()
(ja-channel-push! 2 0)
(ja :group! (-> self draw art-group data 6) :num! min)
(ja :chan 1 :group! (-> self draw art-group data 7) :num! min)
(until #f
(ja :num-func num-func-identity :frame-num (-> self swing-anim-frame))
(let ((a0-4 (-> self skel root-channel 1)))
(let ((f0-4 (* 0.6 (-> self swing-type))))
(set! (-> a0-4 frame-interp 1) f0-4)
(set! (-> a0-4 frame-interp 0) f0-4)
)
(set! (-> a0-4 param 0) 0.0)
(joint-control-channel-group-eval! a0-4 (the-as art-joint-anim #f) num-func-chan)
)
(let* ((f30-0 (the float (ja-num-frames 0)))
(f0-10
(+ (* 1.5 f30-0 (get-norm! (-> self parent-ptr 0 swing-sync) 0)) (if (= (-> self parent-ptr 0 options) 1)
(* 0.5 f30-0)
0.0
)
)
)
)
(set! (-> self swing-anim-frame) (- f0-10 (* (the float (the int (/ f0-10 f30-0))) f30-0)))
)
(set! (-> self root trans quad) (-> self parent-ptr 0 root trans quad))
(quaternion-copy! (-> self root quat) (-> self parent-ptr 0 root quat))
(let ((v1-36 (and (-> self swing-pole 0 next-state) (= (-> self swing-pole 0 next-state name) 'active))))
(set! (-> self parent-ptr 0 trapeze-grabbed) (the-as basic v1-36))
)
(seek!
(-> self swing-type)
(if (-> self parent-ptr 0 trapeze-grabbed)
1.0
0.0
)
(* 0.02 (-> self clock time-adjust-ratio))
)
(dig-balloon-lurker-trapeze-method-21 self)
(suspend)
)
#f
(none)
)
:post (the-as (function none :behavior dig-balloon-lurker-trapeze) ja-post)
)
;; definition for method 21 of type dig-balloon-lurker-trapeze
;; WARN: Return type mismatch int vs none.
(defmethod dig-balloon-lurker-trapeze-method-21 dig-balloon-lurker-trapeze ((obj dig-balloon-lurker-trapeze))
(cond
((and (-> obj draw shadow)
(zero? (-> obj draw cur-lod))
(logtest? (-> obj draw status) (draw-control-status on-screen))
)
(let ((s5-0 (new 'stack-no-clear 'collide-query)))
(vector<-cspace! (-> s5-0 start-pos) (-> obj node-list data 11))
(set! (-> s5-0 start-pos y) (+ -24576.0 (-> obj root trans y)))
(set-vector! (-> s5-0 move-dist) 0.0 -34816.0 0.0 1.0)
(let ((v1-10 s5-0))
(set! (-> v1-10 radius) 8192.0)
(set! (-> v1-10 collide-with) (collide-spec backgnd))
(set! (-> v1-10 ignore-process0) obj)
(set! (-> v1-10 ignore-process1) #f)
(set! (-> v1-10 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
(set! (-> v1-10 action-mask) (collide-action solid))
)
(cond
((>= (fill-and-probe-using-line-sphere *collide-cache* s5-0) 0.0)
(-> s5-0 best-other-tri intersect)
(let ((v1-15 (-> obj draw shadow-ctrl)))
(logclear! (-> v1-15 settings flags) (shadow-flags disable-draw))
)
0
(let ((v1-18 (-> obj draw shadow-ctrl)))
(set! (-> v1-18 settings bot-plane w) (- (+ -6144.0 (-> s5-0 best-other-tri intersect y))))
)
0
(let ((v1-21 (-> obj draw shadow-ctrl)))
(set! (-> v1-21 settings top-plane w) (- (+ 6144.0 (-> s5-0 best-other-tri intersect y))))
)
0
(let* ((f1-4 (vector-vector-distance (-> s5-0 best-other-tri intersect) (-> obj root trans)))
(f0-15 (* 0.000030517578 (fmin 32768.0 (fmax 0.0 (+ -57344.0 f1-4)))))
)
(set! (-> obj draw shadow-ctrl settings shadow-dir w) (lerp 409600.0 40960.0 f0-15))
)
)
(else
(let ((v1-31 (-> obj draw shadow-ctrl)))
(logior! (-> v1-31 settings flags) (shadow-flags disable-draw))
)
0
)
)
)
)
(else
(let ((v1-34 (-> obj draw shadow-ctrl)))
(logior! (-> v1-34 settings flags) (shadow-flags disable-draw))
)
0
)
)
0
(none)
)
;; definition for method 11 of type dig-balloon-lurker
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! dig-balloon-lurker ((obj dig-balloon-lurker) (arg0 entity-actor))
"Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
(let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player))))
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0)))
(set! (-> s4-0 total-prims) (the-as uint 4))
(set! (-> s3-0 prim-core collide-as) (collide-spec crate))
(set! (-> s3-0 prim-core collide-with) (collide-spec jak player-list))
(set! (-> s3-0 prim-core action) (collide-action solid))
(set! (-> s3-0 transform-index) 0)
(set-vector! (-> s3-0 local-sphere) 0.0 61440.0 0.0 61440.0)
(set! (-> s4-0 root-prim) s3-0)
)
(let ((v1-8 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
(set! (-> v1-8 prim-core collide-as) (collide-spec crate))
(set! (-> v1-8 prim-core collide-with) (collide-spec jak player-list))
(set! (-> v1-8 prim-core action) (collide-action solid))
(set! (-> v1-8 transform-index) 3)
(set-vector! (-> v1-8 local-sphere) 0.0 4096.0 0.0 28672.0)
)
(let ((v1-10 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
(set! (-> v1-10 prim-core collide-as) (collide-spec crate))
(set! (-> v1-10 prim-core collide-with) (collide-spec jak player-list))
(set! (-> v1-10 prim-core action) (collide-action solid))
(set! (-> v1-10 transform-index) 3)
(set-vector! (-> v1-10 local-sphere) 0.0 4096.0 36864.0 16384.0)
)
(let ((v1-12 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
(set! (-> v1-12 prim-core collide-as) (collide-spec crate))
(set! (-> v1-12 prim-core collide-with) (collide-spec jak player-list))
(set! (-> v1-12 prim-core action) (collide-action solid))
(set! (-> v1-12 transform-index) 3)
(set-vector! (-> v1-12 local-sphere) 0.0 4096.0 -36864.0 20480.0)
)
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
(let ((v1-15 (-> s4-0 root-prim)))
(set! (-> s4-0 backup-collide-as) (-> v1-15 prim-core collide-as))
(set! (-> s4-0 backup-collide-with) (-> v1-15 prim-core collide-with))
)
(set! (-> obj root) s4-0)
)
(process-drawable-from-entity! obj arg0)
(initialize-skeleton
obj
(the-as skeleton-group (art-group-get-by-name *level* "skel-dig-balloon-lurker" (the-as (pointer uint32) #f)))
(the-as pair 0)
)
(process-spawn dig-balloon-lurker-trapeze arg0 :to obj)
(quaternion-copy! (-> obj init-quat) (-> obj root quat))
(logclear! (-> obj mask) (process-mask actor-pause))
(set! (-> obj options) (res-lump-value arg0 'options int :time -1000000000.0))
(set! (-> obj path) (new 'process 'curve-control obj 'path -1000000000.0))
(set! (-> obj bouncing) #f)
(set! (-> obj bounce-scale) 1228.8)
(set! (-> obj bob-counter) (if (= (-> obj options) 1)
145.0
0.0
)
)
(set! (-> obj forward-backward) #f)
(set! (-> obj grabbed) #f)
(set! (-> obj trapeze-grabbed) #f)
(set! (-> obj pedal-anim-frame) 0.0)
(set! (-> obj pedal-anim-speed) 0.5)
(set-vector! (-> obj pov-cam-offset) 0.0 -20480.0 0.0 1.0)
(set! (-> obj pedal-sound-id) (the-as uint (new-sound-id)))
(logior! (-> obj path flags) (path-control-flag display draw-line draw-point draw-text))
(let ((a1-23 (new 'stack-no-clear 'sync-info-params)))
(let ((v1-39 0))
(if #t
(set! v1-39 (logior v1-39 1))
)
(set! (-> a1-23 sync-type) 'sync-eased)
(set! (-> a1-23 sync-flags) (the-as sync-flags v1-39))
)
(set! (-> a1-23 period) (the-as uint 3600))
(set! (-> a1-23 entity) arg0)
(set! (-> a1-23 percent) 0.0)
(set! (-> a1-23 ease-in) 0.15)
(set! (-> a1-23 ease-out) 0.15)
(set! (-> a1-23 pause-in) 0.0)
(set! (-> a1-23 pause-out) 0.0)
(initialize! (-> obj sync) a1-23)
)
(let ((a1-24 (new 'stack-no-clear 'sync-info-params)))
(let ((v1-46 0))
(if #t
(set! v1-46 (logior v1-46 1))
)
(set! (-> a1-24 sync-type) 'sync-linear)
(set! (-> a1-24 sync-flags) (the-as sync-flags v1-46))
)
(set! (-> a1-24 entity) arg0)
(set! (-> a1-24 period) (the-as uint 3600))
(set! (-> a1-24 percent) 0.0)
(initialize! (-> obj swing-sync) a1-24)
)
(go (method-of-object obj idle))
(none)
)
;; definition for method 10 of type dig-balloon-lurker
(defmethod deactivate dig-balloon-lurker ((obj dig-balloon-lurker))
(sound-stop (the-as sound-id (-> obj pedal-sound-id)))
((method-of-type process-drawable deactivate) obj)
(none)
)
;; failed to figure out what this is:
(defstate idle (dig-balloon-lurker)
:virtual #t
:code (behavior ()
(until #f
(let ((f30-0 (get-norm! (-> self sync) 0)))
(cond
((-> self forward-backward)
(if (< 0.9 f30-0)
(set! (-> self forward-backward) #f)
)
)
(else
(if (< f30-0 0.1)
(set! (-> self forward-backward) (the-as basic #t))
)
)
)
(seek!
(-> self pedal-anim-speed)
(if (-> self forward-backward)
-0.5
0.5
)
(* 0.01 (-> self clock time-adjust-ratio))
)
(let ((f0-7 (+ -1.0 (fabs (* 2.0 (-> self pedal-anim-speed)))))
(f1-5 (* 2.0 (fabs (-> self pedal-anim-speed))))
)
(sound-play-by-name
(static-sound-name "balon-lurk-loop")
(the-as sound-id (-> self pedal-sound-id))
(the int (* 1024.0 f1-5))
(the int (* 1524.0 f0-7))
0
(sound-group sfx)
#t
)
)
(ja :num-func num-func-identity :frame-num (-> self pedal-anim-frame))
(+! (-> self pedal-anim-frame) (* (-> self pedal-anim-speed) (-> self clock time-adjust-ratio)))
(cond
((>= (-> self pedal-anim-frame) (the float (ja-num-frames 0)))
(set! (-> self pedal-anim-frame) (- (-> self pedal-anim-frame) (the float (ja-num-frames 0))))
)
((< (-> self pedal-anim-frame) 0.0)
(+! (-> self pedal-anim-frame) (the float (ja-num-frames 0)))
)
)
(cond
((-> self trapeze-grabbed)
(when (not (-> self grabbed))
(set-setting! 'mode-name 'cam-pov-track 0 0)
(let ((v1-33 (process->ppointer self)))
(set-setting! 'pov-handle v1-33 #x40400000 (-> v1-33 0 pid))
)
(set! (-> self pov-cam-offset z)
(if (< 0.0 (vector-dot (-> self node-list data 0 bone transform vector 2) (-> (camera-matrix) vector 2)))
-81920.0
81920.0
)
)
(set-setting! 'pov-offset 'asdf (-> self pov-cam-offset) 0)
(set! (-> self grabbed) (the-as basic #t))
)
(when (not (-> self bouncing))
(activate! (-> self smush) -1.0 210 600 1.0 1.0 (-> self clock))
(set! (-> self bouncing) (the-as basic #t))
(cond
((< (-> self bob-counter) 90.0)
(set! (-> self bob-counter) (- 180.0 (-> self bob-counter)))
)
((< 270.0 (-> self bob-counter))
(set! (-> self bob-counter) (- 540.0 (-> self bob-counter)))
)
)
)
(seek! (-> self bob-counter) 270.0 (* 3.0 (-> self clock time-adjust-ratio)))
)
(else
(when (-> self grabbed)
(remove-setting! 'pov-handle)
(remove-setting! 'mode-name)
(remove-setting! 'pov-offset)
(set! (-> self grabbed) #f)
)
(+! (-> self bob-counter) (* 3.0 (-> self clock time-adjust-ratio)))
(if (< 360.0 (-> self bob-counter))
(set! (-> self bob-counter) (+ -360.0 (-> self bob-counter)))
)
(if (not (!= (-> self smush amp) 0.0))
(set! (-> self bouncing) #f)
)
)
)
(get-point-at-percent-along-path! (-> self path) (-> self root trans) f30-0 'interp)
(+! (-> self root trans y) (+ (* 2048.0 (sin (* 182.04445 (the float (the int (-> self bob-counter))))))
(* (-> self bounce-scale) (update! (-> self smush)))
)
)
(when (= (-> self options) 1)
(let ((a2-12 (quaternion-vector-angle! (new 'stack-no-clear 'quaternion) *y-vector* (* 182.04445 (* 70.0 f30-0)))))
(quaternion*! (-> self root quat) (-> self init-quat) a2-12)
)
)
)
(suspend)
)
#f
(none)
)
:post (the-as (function none :behavior dig-balloon-lurker) transform-post)
)
;; definition of type dig-wheel-step
(deftype dig-wheel-step (process-drawable)
((anim-speed float :offset-assert 200)
(wheel-sound-id uint32 :offset-assert 204)
)
:heap-base #x50
:method-count-assert 21
:size-assert #xd0
:flag-assert #x15005000d0
(:methods
(idle () _type_ :state 20)
)
)
;; definition for method 3 of type dig-wheel-step
(defmethod inspect dig-wheel-step ((obj dig-wheel-step))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~2Tanim-speed: ~f~%" (-> obj anim-speed))
(format #t "~2Twheel-sound-id: ~D~%" (-> obj wheel-sound-id))
(label cfg-4)
obj
)
;; failed to figure out what this is:
(defskelgroup skel-dig-wheel-step dig-wheel-step dig-wheel-step-lod0-jg dig-wheel-step-idle-ja
((dig-wheel-step-lod0-mg (meters 999999)))
:bounds (static-spherem 2 0 0 14)
)
;; failed to figure out what this is:
(defstate idle (dig-wheel-step)
:virtual #t
:trans (behavior ()
(sound-play "wheel-plat-loop" :id (the-as sound-id (-> self wheel-sound-id)))
(rider-trans)
(none)
)
:code (behavior ()
(until #f
(ja-no-eval :group! (ja-group)
:num! (seek! (the float (+ (-> (ja-group) frames num-frames) -1)) (-> self anim-speed))
:frame-num 0.0
)
(until (ja-done? 0)
(suspend)
(ja :num! (seek! max (-> self anim-speed)))
)
)
#f
(none)
)
:post (the-as (function none :behavior dig-wheel-step) rider-post)
)
;; definition for method 10 of type dig-wheel-step
(defmethod deactivate dig-wheel-step ((obj dig-wheel-step))
(sound-stop (the-as sound-id (-> obj wheel-sound-id)))
((method-of-type process-drawable deactivate) obj)
(none)
)
;; definition for method 11 of type dig-wheel-step
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! dig-wheel-step ((obj dig-wheel-step) (arg0 entity-actor))
"Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
(let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player))))
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0)))
(set! (-> s4-0 total-prims) (the-as uint 4))
(set! (-> s3-0 prim-core collide-as) (collide-spec obstacle camera-blocker pusher))
(set! (-> s3-0 prim-core collide-with) (collide-spec jak bot player-list))
(set! (-> s3-0 prim-core action) (collide-action solid rideable))
(set! (-> s3-0 transform-index) 3)
(set-vector! (-> s3-0 local-sphere) 8192.0 0.0 0.0 57344.0)
(set! (-> s4-0 root-prim) s3-0)
)
(pusher-init s4-0)
(let ((v1-11 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
(set! (-> v1-11 prim-core collide-as) (collide-spec obstacle pusher))
(set! (-> v1-11 prim-core collide-with) (collide-spec jak bot player-list))
(set! (-> v1-11 prim-core action) (collide-action solid rideable))
(set! (-> v1-11 transform-index) 4)
(set-vector! (-> v1-11 local-sphere) 24576.0 0.0 0.0 24576.0)
)
(let ((v1-13 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 0))))
(set! (-> v1-13 prim-core collide-as) (collide-spec obstacle pusher))
(set! (-> v1-13 prim-core collide-with) (collide-spec jak bot player-list))
(set! (-> v1-13 prim-core action) (collide-action solid rideable))
(set! (-> v1-13 transform-index) 5)
(set-vector! (-> v1-13 local-sphere) 24576.0 0.0 0.0 24576.0)
)
(let ((v1-15 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0))))
(set! (-> v1-15 prim-core collide-as) (collide-spec obstacle camera-blocker pusher))
(set! (-> v1-15 prim-core collide-with) (collide-spec jak bot player-list))
(set! (-> v1-15 prim-core action) (collide-action solid rideable))
(set! (-> v1-15 transform-index) 3)
(set-vector! (-> v1-15 local-sphere) 0.0 0.0 0.0 43008.0)
)
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
(let ((v1-18 (-> s4-0 root-prim)))
(set! (-> s4-0 backup-collide-as) (-> v1-18 prim-core collide-as))
(set! (-> s4-0 backup-collide-with) (-> v1-18 prim-core collide-with))
)
(set! (-> obj root) s4-0)
)
(process-drawable-from-entity! obj arg0)
(initialize-skeleton
obj
(the-as skeleton-group (art-group-get-by-name *level* "skel-dig-wheel-step" (the-as (pointer uint32) #f)))
(the-as pair 0)
)
(set! (-> obj wheel-sound-id) (the-as uint (new-sound-id)))
(set! (-> obj draw light-index) (the-as uint 5))
(logclear! (-> obj mask) (process-mask actor-pause))
(let* ((a0-30 (-> obj entity))
(f0-18 ((method-of-object a0-30 get-property-value-float)
a0-30
'rotspeed
'interp
-1000000000.0
8192.0
(the-as (pointer res-tag) #f)
*res-static-buf*
)
)
)
(set! (-> obj anim-speed) (* 0.000015258789 f0-18))
)
(go (method-of-object obj idle))
(none)
)
;; definition of type dig-tipping-rock
(deftype dig-tipping-rock (rigid-body-platform)
((anchor-point vector :inline :offset-assert 384)
(last-ridden-time time-frame :offset-assert 400)
(surface-height float :offset-assert 408)
(bubbling-sound-id uint32 :offset-assert 412)
)
:heap-base #x120
:method-count-assert 57
:size-assert #x1a0
:flag-assert #x39012001a0
)
;; definition for method 3 of type dig-tipping-rock
(defmethod inspect dig-tipping-rock ((obj dig-tipping-rock))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type rigid-body-platform inspect)))
(t9-0 obj)
)
(format #t "~2Tanchor-point: #<vector @ #x~X>~%" (-> obj anchor-point))
(format #t "~2Tlast-ridden-time: ~D~%" (-> obj last-ridden-time))
(format #t "~2Tsurface-height: ~f~%" (-> obj surface-height))
(format #t "~2Tbubbling-sound-id: ~D~%" (-> obj bubbling-sound-id))
(label cfg-4)
obj
)
;; definition for symbol *dig-tipping-rock-constants*, type rigid-body-platform-constants
(define *dig-tipping-rock-constants* (new 'static 'rigid-body-platform-constants
:info (new 'static 'rigid-body-info
:mass 4.0
:inv-mass 0.25
:linear-damping 0.9
:angular-damping 0.48
:friction-factor 0.1
:cm-offset-joint (new 'static 'vector :z -24576.0 :w 1.0)
:inertial-tensor-box (new 'static 'array meters 3 (meters 4) (meters 3) (meters 21))
)
:extra (new 'static 'rigid-body-object-extra-info
:max-time-step 0.02
:gravity (meters 80)
:idle-distance (meters 50)
:attack-force-scale 1.0
)
:name '*dig-tipping-rock-constants*
:drag-factor 2.0
:buoyancy-factor 1.2
:max-buoyancy-depth (meters 2)
:player-weight (meters 80)
:player-bonk-factor 0.5
:player-dive-factor 1.0
:player-force-distance (meters 30)
:player-force-clamp (meters 1000000)
:player-force-timeout #x1e
:explosion-force (meters 1000)
:control-point-count 4
:platform #t
:sound-name "mud-plat"
)
)
;; failed to figure out what this is:
(defskelgroup skel-dig-tipping-rock dig-tipping-rock dig-tipping-rock-lod0-jg dig-tipping-rock-idle-ja
((dig-tipping-rock-lod0-mg (meters 999999)))
:bounds (static-spherem 0 0 0 14.5)
:origin-joint-index 3
)
;; definition for method 37 of type dig-tipping-rock
;; WARN: Return type mismatch int vs none.
(defmethod rigid-body-object-method-37 dig-tipping-rock ((obj dig-tipping-rock))
(with-pp
(let ((t9-0 (method-of-type rigid-body-platform rigid-body-object-method-37)))
(t9-0 obj)
)
(cond
((>= (- (-> pp clock frame-counter) (-> obj last-ridden-time)) (seconds 0.5))
(when (nonzero? (-> obj bubbling-sound-id))
(let ((v1-5 (the-as sound-rpc-set-param (get-sound-buffer-entry))))
(set! (-> v1-5 command) (sound-command set-param))
(set! (-> v1-5 id) (the-as sound-id (-> obj bubbling-sound-id)))
(set! (-> v1-5 params volume) -4)
(set! (-> v1-5 auto-time) 120)
(set! (-> v1-5 auto-from) 2)
(set! (-> v1-5 params mask) (the-as uint 17))
(-> v1-5 id)
)
(set! (-> obj bubbling-sound-id) (the-as uint 0))
0
)
)
(else
(if (zero? (-> obj bubbling-sound-id))
(set! (-> obj bubbling-sound-id) (the-as uint (sound-play "lava-plat-tip")))
)
)
)
(none)
)
)
;; failed to figure out what this is:
(defstate idle (dig-tipping-rock)
:virtual #t
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
(case event-type
(('ridden)
(set! (-> self last-ridden-time) (-> self clock frame-counter))
)
)
(the-as object (rigid-body-object-event-handler proc arg1 event-type event))
)
:trans (the-as (function none :behavior dig-tipping-rock) rider-trans)
:code (the-as (function none :behavior dig-tipping-rock) sleep-code)
:post (behavior ()
(rigid-body-object-method-37 self)
(none)
)
)
;; failed to figure out what this is:
(defstate active (dig-tipping-rock)
:virtual #t
:event (-> (method-of-type dig-tipping-rock idle) event)
)
;; definition for method 29 of type dig-tipping-rock
;; WARN: Return type mismatch int vs none.
(defmethod rigid-body-object-method-29 dig-tipping-rock ((obj dig-tipping-rock) (arg0 float))
((the-as (function rigid-body-platform float none) (find-parent-method dig-tipping-rock 29)) obj arg0)
(rigid-body-platform-method-56 obj (-> obj anchor-point))
0
(none)
)
;; definition for method 32 of type dig-tipping-rock
;; WARN: Return type mismatch int vs none.
(defmethod allocate-and-init-cshape dig-tipping-rock ((obj dig-tipping-rock))
(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) cshape-reaction-default)
(set! (-> s5-0 no-reaction)
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
)
(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-spec pusher))
(set! (-> s4-0 prim-core collide-with) (collide-spec jak player-list))
(set! (-> s4-0 prim-core action) (collide-action solid rideable))
(set! (-> s4-0 transform-index) 3)
(set-vector! (-> s4-0 local-sphere) 0.0 0.0 4096.0 59392.0)
(set! (-> s5-0 total-prims) (the-as uint 1))
(set! (-> s5-0 root-prim) s4-0)
)
(pusher-init s5-0)
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
(let ((v1-16 (-> s5-0 root-prim)))
(set! (-> s5-0 backup-collide-as) (-> v1-16 prim-core collide-as))
(set! (-> s5-0 backup-collide-with) (-> v1-16 prim-core collide-with))
)
(set! (-> obj root-override-2) s5-0)
)
0
(none)
)
;; definition for method 53 of type dig-tipping-rock
(defmethod rigid-body-platform-method-53 dig-tipping-rock ((obj dig-tipping-rock) (arg0 vector))
(-> obj surface-height)
)
;; definition for method 33 of type dig-tipping-rock
;; INFO: Used lq/sq
;; WARN: Return type mismatch int vs none.
(defmethod init-skel-and-rigid-body dig-tipping-rock ((obj dig-tipping-rock))
(initialize-skeleton
obj
(the-as skeleton-group (art-group-get-by-name *level* "skel-dig-tipping-rock" (the-as (pointer uint32) #f)))
(the-as pair 0)
)
(quaternion-rotate-local-x! (-> obj root-override-2 quat) (-> obj root-override-2 quat) -2555.2202)
(alloc-and-init-rigid-body-control obj *dig-tipping-rock-constants*)
(set! (-> obj anchor-point quad) (-> obj rbody state position quad))
(let ((v1-8 (-> obj control-point-array)))
(let ((a0-8 (-> v1-8 data)))
(set! (-> a0-8 0 local-pos x) 0.0)
(set! (-> a0-8 0 local-pos y) 0.0)
(set! (-> a0-8 0 local-pos z) -8192.0)
(set! (-> a0-8 0 local-pos w) 1.0)
)
(let ((a0-9 (-> v1-8 data 1)))
(set! (-> a0-9 local-pos x) 0.0)
(set! (-> a0-9 local-pos y) 8192.0)
(set! (-> a0-9 local-pos z) -40960.0)
(set! (-> a0-9 local-pos w) 1.0)
)
(let ((a0-10 (-> v1-8 data 2)))
(set! (-> a0-10 local-pos x) 40960.0)
(set! (-> a0-10 local-pos y) 4096.0)
(set! (-> a0-10 local-pos z) -24576.0)
(set! (-> a0-10 local-pos w) 1.0)
)
(let ((v1-9 (-> v1-8 data 3)))
(set! (-> v1-9 local-pos x) -40960.0)
(set! (-> v1-9 local-pos y) 4096.0)
(set! (-> v1-9 local-pos z) -24576.0)
(set! (-> v1-9 local-pos w) 1.0)
)
)
(set! (-> obj surface-height) (+ 6144.0 (-> obj root-override-2 trans y)))
(set! (-> obj bubbling-sound-id) (the-as uint 0))
0
(none)
)
;; failed to figure out what this is:
(defskelgroup skel-dig-wall-bouncer dig-wall-bouncer 0 2
((1 (meters 999999)))
:bounds (static-spherem 0 1 4 5.5)
)
;; definition of type dig-wall-bouncer
(deftype dig-wall-bouncer (bouncer)
()
:heap-base #x60
:method-count-assert 25
:size-assert #xd4
:flag-assert #x19006000d4
)
;; definition for method 3 of type dig-wall-bouncer
(defmethod inspect dig-wall-bouncer ((obj dig-wall-bouncer))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type bouncer inspect)))
(t9-0 obj)
)
(label cfg-4)
obj
)
;; definition for method 23 of type dig-wall-bouncer
;; WARN: Return type mismatch int vs none.
(defmethod init-skeleton! dig-wall-bouncer ((obj dig-wall-bouncer))
(initialize-skeleton
obj
(the-as skeleton-group (art-group-get-by-name *level* "skel-dig-wall-bouncer" (the-as (pointer uint32) #f)))
(the-as pair 0)
)
0
(none)
)
;; definition for method 24 of type dig-wall-bouncer
;; WARN: Return type mismatch int vs none.
(defmethod bouncer-method-24 dig-wall-bouncer ((obj dig-wall-bouncer))
"TODO - collision stuff"
(let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player))))
(let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 5) 0)))
(set! (-> s5-0 total-prims) (the-as uint 6))
(set! (-> s4-0 prim-core collide-as) (collide-spec crate))
(set! (-> s4-0 prim-core collide-with) (collide-spec jak player-list))
(set! (-> s4-0 prim-core action) (collide-action solid))
(set! (-> s4-0 transform-index) 0)
(set-vector! (-> s4-0 local-sphere) 0.0 4096.0 16384.0 22528.0)
(set! (-> s5-0 root-prim) s4-0)
)
(let ((v1-8 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 1) (the-as uint 1))))
(set! (-> v1-8 prim-core collide-as) (collide-spec crate))
(set! (-> v1-8 prim-core collide-with) (collide-spec jak player-list))
(set! (-> v1-8 prim-core action) (collide-action solid))
(set! (-> v1-8 transform-index) 0)
(set-vector! (-> v1-8 local-sphere) 0.0 6144.0 16384.0 16384.0)
)
(let ((v1-10 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 3) (the-as uint 2))))
(set! (-> v1-10 prim-core collide-as) (collide-spec crate))
(set! (-> v1-10 prim-core collide-with) (collide-spec jak player-list))
(set! (-> v1-10 prim-core action) (collide-action solid))
(set! (-> v1-10 transform-index) 0)
(set-vector! (-> v1-10 local-sphere) 0.0 4096.0 28672.0 12288.0)
)
(let ((v1-12 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 2))))
(set! (-> v1-12 prim-core collide-as) (collide-spec crate))
(set! (-> v1-12 prim-core collide-with) (collide-spec jak player-list))
(set! (-> v1-12 prim-core action) (collide-action solid))
(set! (-> v1-12 transform-index) 0)
(set-vector! (-> v1-12 local-sphere) 12288.0 4096.0 16384.0 20480.0)
)
(let ((v1-14 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 2) (the-as uint 2))))
(set! (-> v1-14 prim-core collide-as) (collide-spec crate))
(set! (-> v1-14 prim-core collide-with) (collide-spec jak player-list))
(set! (-> v1-14 prim-core action) (collide-action solid))
(set! (-> v1-14 transform-index) 0)
(set-vector! (-> v1-14 local-sphere) -12288.0 4096.0 16384.0 20480.0)
)
(let ((v1-16 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 4))))
(set! (-> v1-16 prim-core collide-as) (collide-spec crate))
(set! (-> v1-16 prim-core collide-with) (collide-spec jak player-list))
(set! (-> v1-16 prim-core action) (collide-action))
(set! (-> v1-16 transform-index) 3)
(set-vector! (-> v1-16 local-sphere) 0.0 18432.0 16384.0 16384.0)
)
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
(let ((v1-19 (-> s5-0 root-prim)))
(set! (-> s5-0 backup-collide-as) (-> v1-19 prim-core collide-as))
(set! (-> s5-0 backup-collide-with) (-> v1-19 prim-core collide-with))
)
(set! (-> obj root) s5-0)
)
0
(none)
)
;; definition of type dig-stomp-block
(deftype dig-stomp-block (rigid-body-object)
((desty float :offset-assert 272)
(flag basic :offset-assert 276)
)
:heap-base #xa0
:method-count-assert 55
:size-assert #x118
:flag-assert #x3700a00118
(:methods
(waiting () _type_ :state 53)
(hit () _type_ :state 54)
)
)
;; definition for method 3 of type dig-stomp-block
(defmethod inspect dig-stomp-block ((obj dig-stomp-block))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type rigid-body-object inspect)))
(t9-0 obj)
)
(format #t "~2Tdesty: ~f~%" (-> obj desty))
(format #t "~2Tflag: ~A~%" (-> obj flag))
(label cfg-4)
obj
)
;; failed to figure out what this is:
(defskelgroup skel-dig-stomp-block dig-stomp-block dig-stomp-block-lod0-jg dig-stomp-block-idle-ja
((dig-stomp-block-lod0-mg (meters 999999)))
:bounds (static-spherem 0 -3 0 5.5)
)
;; definition for symbol *dig-stomp-block-constants*, type rigid-body-object-constants
(define *dig-stomp-block-constants* (new 'static 'rigid-body-object-constants
:info (new 'static 'rigid-body-info
:mass 1.0
:inv-mass 1.0
:linear-damping 0.99
:angular-damping 0.9
:bounce-factor 0.5
:friction-factor 0.1
:cm-offset-joint (new 'static 'vector :w 1.0)
:inertial-tensor-box (new 'static 'array meters 3 (meters 1) (meters 3) (meters 1))
)
:extra (new 'static 'rigid-body-object-extra-info
:max-time-step 0.02
:gravity (meters 80)
:idle-distance (meters 200)
:attack-force-scale 1.0
)
:name '*dig-stomp-block-constants*
)
)
;; failed to figure out what this is:
(defstate waiting (dig-stomp-block)
:virtual #t
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
(case event-type
(('set-flag)
(let ((v0-0 (the-as object #t)))
(set! (-> self flag) (the-as basic v0-0))
v0-0
)
)
(('clear-flag)
(set! (-> self flag) #f)
#f
)
(('attack)
(case (-> (the-as attack-info (-> event param 1)) mode)
(('flop)
(when (not (-> self flag))
(set! (-> self desty) (+ -12288.0 (-> self root-override-2 trans y)))
(send-event (ppointer->process (-> self parent)) 'set-flag)
(go-virtual hit)
'solid
)
)
)
)
(('broken)
(go-virtual active)
)
)
)
:code (the-as (function none :behavior dig-stomp-block) sleep-code)
:post (the-as (function none :behavior dig-stomp-block) ja-post)
)
;; failed to figure out what this is:
(defstate hit (dig-stomp-block)
:virtual #t
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
(case event-type
(('broken)
(go-virtual active)
)
)
)
:code (behavior ()
(sound-play "stomp-block")
(while (< (-> self desty) (-> self root-override-2 trans y))
(set! (-> self root-override-2 trans y) (seek-with-smooth
(-> self root-override-2 trans y)
(-> self desty)
(* 24576.0 (-> self clock seconds-per-frame))
0.25
1.0
)
)
(suspend)
)
(set! (-> self flag) #f)
(send-event (ppointer->process (-> self parent)) 'clear-flag)
(go-virtual waiting)
(none)
)
:post (the-as (function none :behavior dig-stomp-block) transform-post)
)
;; failed to figure out what this is:
(defstate active (dig-stomp-block)
:virtual #t
:enter (behavior ()
(rigid-body-object-method-38 self)
(let ((s5-0 (new 'stack-no-clear 'vector))
(gp-0 (new 'stack-no-clear 'vector))
)
(set! (-> s5-0 x) (rand-vu-float-range -40960.0 40960.0))
(set! (-> s5-0 y) (rand-vu-float-range -40960.0 0.0))
(set! (-> s5-0 z) (rand-vu-float-range -40960.0 40960.0))
(vector-float*! (-> self rbody state lin-momentum) s5-0 (-> self info info mass))
(set! (-> gp-0 x) (rand-vu-float-range -10000.0 10000.0))
(set! (-> gp-0 y) (rand-vu-float-range -10000.0 10000.0))
(set! (-> gp-0 z) (rand-vu-float-range -10000.0 10000.0))
(vector-float*! (-> self rbody state ang-momentum) gp-0 (-> self info info mass))
)
(none)
)
)
;; definition for method 37 of type dig-stomp-block
;; INFO: Used lq/sq
;; WARN: Return type mismatch int vs none.
(defmethod rigid-body-object-method-37 dig-stomp-block ((obj dig-stomp-block))
(with-pp
(let ((a1-0 (new 'stack-no-clear 'collide-query)))
(set! (-> a1-0 start-pos quad) (-> obj rbody state position quad))
(vector-float*! (-> a1-0 move-dist) (-> obj rbody state lin-velocity) (-> pp clock seconds-per-frame))
(let ((v1-3 a1-0))
(set! (-> v1-3 radius) (+ 4096.0 (-> obj root-override-2 root-prim local-sphere w)))
(set! (-> v1-3 collide-with) (-> obj root-override-2 root-prim prim-core collide-with))
(set! (-> v1-3 ignore-process0) obj)
(set! (-> v1-3 ignore-process1) #f)
(set! (-> v1-3 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
(set! (-> v1-3 action-mask) (collide-action solid))
)
(fill-using-line-sphere *collide-cache* a1-0)
)
(let* ((a0-15 *collide-cache*)
(v1-6 (the-as object (-> a0-15 tris)))
)
(countdown (a0-16 (-> a0-15 num-tris))
(when (= (-> (the-as collide-cache-tri v1-6) pat event) (pat-event endlessfall))
(set! (-> (the-as collide-cache-tri v1-6) vertex 0 y)
(+ 409600.0 (-> (the-as collide-cache-tri v1-6) vertex 0 y))
)
(set! (-> (the-as collide-cache-tri v1-6) vertex 1 y)
(+ 409600.0 (-> (the-as collide-cache-tri v1-6) vertex 1 y))
)
(set! (-> (the-as collide-cache-tri v1-6) vertex 2 y)
(+ 409600.0 (-> (the-as collide-cache-tri v1-6) vertex 2 y))
)
)
(set! v1-6 (-> (the-as (inline-array collide-cache-tri) v1-6) 1))
)
)
(if *display-collide-cache*
(debug-draw *collide-cache*)
)
(rigid-body-object-method-30 obj)
(set! (-> obj root-override-2 transv quad) (-> obj rbody state lin-velocity quad))
(quaternion-copy! (-> obj root-override-2 quat) (-> obj rbody state rotation))
(rigid-body-method-24 (-> obj rbody state))
(let ((v1-22 (-> obj rbody))
(a1-8 (-> obj root-override-2 trans))
)
(rigid-body-method-23 (-> v1-22 state) a1-8)
)
(set! (-> obj node-list data 0 bone transform trans quad) (-> obj root-override-2 trans quad))
(transform-post)
0
(none)
)
)
;; definition for method 32 of type dig-stomp-block
;; WARN: Return type mismatch int vs none.
(defmethod allocate-and-init-cshape dig-stomp-block ((obj dig-stomp-block))
(let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player))))
(set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
(set! (-> s5-0 reaction) cshape-reaction-default)
(set! (-> s5-0 no-reaction)
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
)
(set! (-> s5-0 penetrated-by) (penetrate))
(let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 9) 0)))
(set! (-> s5-0 total-prims) (the-as uint 10))
(set! (-> s4-0 prim-core collide-as) (collide-spec obstacle pusher))
(set! (-> s4-0 prim-core collide-with)
(collide-spec backgnd jak obstacle hit-by-others-list player-list pusher)
)
(set! (-> s4-0 prim-core action) (collide-action solid))
(set-vector! (-> s4-0 local-sphere) 0.0 -12288.0 0.0 22528.0)
(set! (-> s5-0 root-prim) s4-0)
)
(pusher-init s5-0)
(let ((v1-14 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> v1-14 prim-core collide-as) (collide-spec obstacle))
(set! (-> v1-14 prim-core collide-with) (collide-spec backgnd obstacle hit-by-others-list))
(set! (-> v1-14 prim-core action) (collide-action solid))
(set! (-> v1-14 transform-index) 0)
(set-vector! (-> v1-14 local-sphere) -6144.0 -6144.0 -6144.0 6144.0)
)
(let ((v1-16 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> v1-16 prim-core collide-as) (collide-spec obstacle))
(set! (-> v1-16 prim-core collide-with) (collide-spec backgnd obstacle hit-by-others-list))
(set! (-> v1-16 prim-core action) (collide-action solid))
(set! (-> v1-16 transform-index) 0)
(set-vector! (-> v1-16 local-sphere) -6144.0 -6144.0 6144.0 6144.0)
)
(let ((v1-18 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> v1-18 prim-core collide-as) (collide-spec obstacle))
(set! (-> v1-18 prim-core collide-with) (collide-spec backgnd obstacle hit-by-others-list))
(set! (-> v1-18 prim-core action) (collide-action solid))
(set! (-> v1-18 transform-index) 0)
(set-vector! (-> v1-18 local-sphere) 6144.0 -6144.0 -6144.0 6144.0)
)
(let ((v1-20 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> v1-20 prim-core collide-as) (collide-spec obstacle))
(set! (-> v1-20 prim-core collide-with) (collide-spec backgnd obstacle hit-by-others-list))
(set! (-> v1-20 prim-core action) (collide-action solid))
(set! (-> v1-20 transform-index) 0)
(set-vector! (-> v1-20 local-sphere) 6144.0 -6144.0 6144.0 6144.0)
)
(let ((v1-22 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> v1-22 prim-core collide-as) (collide-spec obstacle))
(set! (-> v1-22 prim-core collide-with) (collide-spec backgnd obstacle hit-by-others-list))
(set! (-> v1-22 prim-core action) (collide-action solid))
(set! (-> v1-22 transform-index) 0)
(set-vector! (-> v1-22 local-sphere) -6144.0 -18432.0 -6144.0 6144.0)
)
(let ((v1-24 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> v1-24 prim-core collide-as) (collide-spec obstacle))
(set! (-> v1-24 prim-core collide-with) (collide-spec backgnd obstacle hit-by-others-list))
(set! (-> v1-24 prim-core action) (collide-action solid))
(set! (-> v1-24 transform-index) 0)
(set-vector! (-> v1-24 local-sphere) -6144.0 -18432.0 6144.0 6144.0)
)
(let ((v1-26 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> v1-26 prim-core collide-as) (collide-spec obstacle))
(set! (-> v1-26 prim-core collide-with) (collide-spec backgnd obstacle hit-by-others-list))
(set! (-> v1-26 prim-core action) (collide-action solid))
(set! (-> v1-26 transform-index) 0)
(set-vector! (-> v1-26 local-sphere) 6144.0 -18432.0 -6144.0 6144.0)
)
(let ((v1-28 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> v1-28 prim-core collide-as) (collide-spec obstacle))
(set! (-> v1-28 prim-core collide-with) (collide-spec backgnd obstacle hit-by-others-list))
(set! (-> v1-28 prim-core action) (collide-action solid))
(set! (-> v1-28 transform-index) 0)
(set-vector! (-> v1-28 local-sphere) 6144.0 -18432.0 6144.0 6144.0)
)
(let ((v1-30 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0))))
(set! (-> v1-30 prim-core collide-as) (collide-spec pusher))
(set! (-> v1-30 prim-core collide-with) (collide-spec jak player-list))
(set! (-> v1-30 prim-core action) (collide-action solid))
(set! (-> v1-30 transform-index) 3)
(set-vector! (-> v1-30 local-sphere) 0.0 -12288.0 0.0 22528.0)
)
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
(let ((v1-33 (-> s5-0 root-prim)))
(set! (-> s5-0 backup-collide-as) (-> v1-33 prim-core collide-as))
(set! (-> s5-0 backup-collide-with) (-> v1-33 prim-core collide-with))
)
(set! (-> s5-0 max-iteration-count) (the-as uint 2))
(set! (-> s5-0 event-self) 'touched)
(set! (-> obj root-override-2) s5-0)
)
0
(none)
)
;; definition for method 33 of type dig-stomp-block
;; WARN: Return type mismatch int vs none.
(defmethod init-skel-and-rigid-body dig-stomp-block ((obj dig-stomp-block))
(initialize-skeleton
obj
(the-as skeleton-group (art-group-get-by-name *level* "skel-dig-stomp-block" (the-as (pointer uint32) #f)))
(the-as pair 0)
)
(alloc-and-init-rigid-body-control obj *dig-stomp-block-constants*)
(logclear! (-> obj mask) (process-mask actor-pause))
(logior! (-> obj rbody state flags) (rigid-body-flag enable-collision))
(set! (-> obj draw light-index) (the-as uint 10))
(set! (-> obj flag) #f)
0
(none)
)
;; definition for function dig-stomp-block-init-by-other
;; INFO: Used lq/sq
;; WARN: Return type mismatch object vs none.
(defbehavior dig-stomp-block-init-by-other dig-stomp-block ((arg0 vector))
(set! (-> self mask) (logior (process-mask platform) (-> self mask)))
(allocate-and-init-cshape self)
(set! (-> self root-override-2 trans quad) (-> arg0 quad))
(set-vector! (-> self root-override-2 quat) 0.0 1.0 0.0 0.0)
(init-skel-and-rigid-body self)
(transform-post)
(go-virtual waiting)
(none)
)
;; definition of type dig-stomp-block-controller
(deftype dig-stomp-block-controller (process-drawable)
((stomp-blocks (pointer dig-stomp-block) 4 :offset-assert 200)
(played-fall? symbol :offset-assert 216)
)
:heap-base #x60
:method-count-assert 21
:size-assert #xdc
:flag-assert #x15006000dc
(:methods
(idle () _type_ :state 20)
)
)
;; definition for method 3 of type dig-stomp-block-controller
(defmethod inspect dig-stomp-block-controller ((obj dig-stomp-block-controller))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(format #t "~2Tstomp-blocks[4] @ #x~X~%" (-> obj stomp-blocks))
(format #t "~2Tplayed-fall?: ~A~%" (-> obj played-fall?))
(label cfg-4)
obj
)
;; definition for symbol *dig-stomp-block-table*, type vector
(define *dig-stomp-block-table* (new 'static 'vector :x 36864.0 :y 12288.0 :z -12288.0 :w -36864.0))
;; failed to figure out what this is:
(defstate idle (dig-stomp-block-controller)
:virtual #t
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
(the-as object (case event-type
(('set-flag)
(dotimes (gp-0 4)
(if (-> self stomp-blocks gp-0)
(send-event (ppointer->process (-> self stomp-blocks gp-0)) 'set-flag)
)
)
#f
)
(('clear-flag)
(dotimes (gp-1 4)
(if (-> self stomp-blocks gp-1)
(send-event (ppointer->process (-> self stomp-blocks gp-1)) 'clear-flag)
)
)
#f
)
)
)
)
:enter (behavior ()
(change-parent self *pusher-pool*)
(let ((gp-0 (new 'stack-no-clear 'vector)))
(dotimes (s5-0 4)
(set! (-> gp-0 quad) (-> self root trans quad))
(+! (-> gp-0 x) (-> *dig-stomp-block-table* data s5-0))
(set! (-> self stomp-blocks s5-0) (process-spawn dig-stomp-block gp-0 :to self))
)
)
(none)
)
:code (the-as (function none :behavior dig-stomp-block-controller) sleep-code)
:post (behavior ()
(dotimes (v1-0 4)
(when (-> self stomp-blocks v1-0)
)
)
(let ((v1-3 #f))
(dotimes (a0-5 3)
(let ((a1-2 (-> self stomp-blocks a0-5))
(a2-3 (-> self stomp-blocks (+ a0-5 1)))
)
(when (and a1-2 a2-3)
(if (< 20480.0 (fabs (- (-> a1-2 0 root-override-2 trans y) (-> a2-3 0 root-override-2 trans y))))
(set! v1-3 #t)
)
)
)
)
(when v1-3
(when (not (-> self played-fall?))
(set! (-> self played-fall?) #t)
(sound-play "blocks-fall")
)
(dotimes (gp-1 4)
(if (-> self stomp-blocks gp-1)
(send-event (ppointer->process (-> self stomp-blocks gp-1)) 'broken)
)
)
)
)
(none)
)
)
;; definition for method 11 of type dig-stomp-block-controller
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! dig-stomp-block-controller ((obj dig-stomp-block-controller) (arg0 entity-actor))
"Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
(set! (-> obj played-fall?) #f)
(set! (-> obj root) (new 'process 'trsqv))
(process-drawable-from-entity! obj arg0)
(go (method-of-object obj idle))
(none)
)
;; definition of type dig-totem
(deftype dig-totem (process-drawable)
()
:heap-base #x50
:method-count-assert 21
:size-assert #xc8
:flag-assert #x15005000c8
(:methods
(idle () _type_ :state 20)
)
)
;; definition for method 3 of type dig-totem
(defmethod inspect dig-totem ((obj dig-totem))
(when (not obj)
(set! obj obj)
(goto cfg-4)
)
(let ((t9-0 (method-of-type process-drawable inspect)))
(t9-0 obj)
)
(label cfg-4)
obj
)
;; failed to figure out what this is:
(defskelgroup skel-dig-totem-entity dig-totem dig-totem-lod0-jg dig-totem-idle-ja
((dig-totem-lod0-mg (meters 999999)))
:bounds (static-spherem 0 13 0 14.5)
)
;; definition for method 12 of type dig-totem
(defmethod run-logic? dig-totem ((obj dig-totem))
#t
)
;; failed to figure out what this is:
(defstate idle (dig-totem)
:virtual #t
:code (the-as (function none :behavior dig-totem) sleep-code)
)
;; definition for method 11 of type dig-totem
;; WARN: Return type mismatch object vs none.
(defmethod init-from-entity! dig-totem ((obj dig-totem) (arg0 entity-actor))
"Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that.
This commonly includes things such as:
- stack size
- collision information
- loading the skeleton group / bones
- sounds"
(let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player))))
(let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0))))
(set! (-> v1-2 prim-core collide-as) (collide-spec obstacle))
(set! (-> v1-2 prim-core action) (collide-action solid))
(set! (-> v1-2 transform-index) 3)
(set-vector! (-> v1-2 local-sphere) 0.0 53248.0 0.0 59392.0)
(set! (-> s4-0 total-prims) (the-as uint 1))
(set! (-> s4-0 root-prim) v1-2)
)
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
(let ((v1-5 (-> s4-0 root-prim)))
(set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as))
(set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with))
)
(set! (-> obj root) s4-0)
)
(process-drawable-from-entity! obj arg0)
(initialize-skeleton
obj
(the-as skeleton-group (art-group-get-by-name *level* "skel-dig-totem-entity" (the-as (pointer uint32) #f)))
(the-as pair 0)
)
(transform-post)
(go (method-of-object obj idle))
(none)
)
Reference in New Issue View Git Blame Copy Permalink