mirror of
https://github.com/open-goal/jak-project
synced 2026-08-08 02:31:30 -04:00
Hat Kid
122de4ecf5
After spending the last month staring at and comparing Jak 3 and Jak 1 versions of a bunch of `target` code for my jetboard mod, I figured this would be a good opportunity to revive this ancient PR #1714 along with some other small misc fixes/improvements. Instead of directly replacing the old fields, I decided to opt for using overlay fields to maintain backwards compatibility with existing manual patches, files without ref tests and mods that might use these fields.
1320 lines
44 KiB
Common Lisp
Vendored
Generated
1320 lines
44 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type maincavecam
|
|
(deftype maincavecam (pov-camera)
|
|
((seq uint64)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type maincavecam
|
|
(defmethod inspect ((this maincavecam))
|
|
(let ((t9-0 (method-of-type pov-camera inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tseq: ~D~%" (-> this seq))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *maincavecam-sg* maincavecam maincavecam-lod0-jg -1
|
|
((maincavecam-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 10)
|
|
)
|
|
|
|
;; definition for method 29 of type maincavecam
|
|
(defmethod set-stack-size! ((this maincavecam))
|
|
(stack-size-set! (-> this main-thread) 512)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate pov-camera-playing (maincavecam)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(cond
|
|
((zero? (-> self seq))
|
|
(let ((gp-1
|
|
(ppointer->handle
|
|
(process-spawn
|
|
fuel-cell
|
|
:init fuel-cell-init-as-clone
|
|
(process->handle self)
|
|
(-> self entity extra perm task)
|
|
:to (ppointer->process (-> self parent))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(ja-play-spooled-anim
|
|
(new 'static 'spool-anim :name "maincavecam-gnawer-fuel-cell" :index 3 :parts 1 :command-list '())
|
|
(the-as art-joint-anim #f)
|
|
(the-as art-joint-anim #f)
|
|
(the-as (function process-drawable symbol) false-func)
|
|
)
|
|
(let ((a0-7 (handle->process gp-1)))
|
|
(if a0-7
|
|
(send-event a0-7 'stop-cloning)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(suspend)
|
|
0
|
|
)
|
|
)
|
|
(go-virtual pov-camera-done-playing)
|
|
)
|
|
)
|
|
|
|
;; definition of type cave-water
|
|
(deftype cave-water (water-anim)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type cave-water
|
|
(defmethod inspect ((this cave-water))
|
|
(let ((t9-0 (method-of-type water-anim inspect)))
|
|
(t9-0 this)
|
|
)
|
|
this
|
|
)
|
|
|
|
;; definition for symbol ripple-for-cave-water, type ripple-wave-set
|
|
(define ripple-for-cave-water (new 'static 'ripple-wave-set
|
|
:count 3
|
|
:converted #f
|
|
:normal-scale 1.0
|
|
:wave (new 'static 'inline-array ripple-wave 4
|
|
(new 'static 'ripple-wave :scale 40.0 :xdiv 1 :speed 1.5)
|
|
(new 'static 'ripple-wave :scale 40.0 :xdiv -1 :zdiv 1 :speed 1.5)
|
|
(new 'static 'ripple-wave :scale 20.0 :xdiv 5 :zdiv 3 :speed 0.75)
|
|
(new 'static 'ripple-wave)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 22 of type cave-water
|
|
;; INFO: Return type mismatch rgbaf vs none.
|
|
(defmethod water-vol-method-22 ((this cave-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! (-> 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-cave-water)
|
|
)
|
|
(case (-> this look)
|
|
((37 14)
|
|
(set-vector! (-> this draw color-mult) 0.2 0.1 0.3 0.75)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition of type cavecrusher
|
|
(deftype cavecrusher (process-drawable)
|
|
((root collide-shape :override)
|
|
)
|
|
(:states
|
|
cavecrusher-idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type cavecrusher
|
|
(defmethod inspect ((this cavecrusher))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *cavecrusher-sg* cavecrusher cavecrusher-lod0-jg -1
|
|
((cavecrusher-lod0-mg (meters 20)) (cavecrusher-lod1-mg (meters 40)) (cavecrusher-lod2-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 3)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate cavecrusher-idle (cavecrusher)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('touch 'attack)
|
|
(when (= (-> proc type) target)
|
|
(if ((method-of-type touching-shapes-entry prims-touching-action?)
|
|
(the-as touching-shapes-entry (-> block param 0))
|
|
(-> *target* control)
|
|
(collide-action solid)
|
|
(collide-action)
|
|
)
|
|
(target-attack-up *target* 'attack-or-shove 'deadlyup)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(loop
|
|
(ja-no-eval :group! cavecrusher-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(update! (-> self sound))
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
)
|
|
:post ja-post
|
|
)
|
|
|
|
;; definition for method 11 of type cavecrusher
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this cavecrusher) (arg0 entity-actor))
|
|
(let ((s4-0 (new 'process 'collide-shape this (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-kind enemy))
|
|
(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 11468.8)
|
|
(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 *cavecrusher-sg* '())
|
|
(set! (-> this sound)
|
|
(new 'process 'ambient-sound (static-sound-spec "crush-click" :fo-max 30) (-> this root trans))
|
|
)
|
|
(ja-channel-push! 1 0)
|
|
(let ((s5-1 (-> this skel root-channel 0)))
|
|
(joint-control-channel-group-eval!
|
|
s5-1
|
|
(the-as art-joint-anim (-> this draw art-group data 4))
|
|
num-func-identity
|
|
)
|
|
(set! (-> s5-1 frame-num) 0.0)
|
|
)
|
|
(ja-post)
|
|
(update-transforms! (-> this root))
|
|
(go cavecrusher-idle)
|
|
(none)
|
|
)
|
|
|
|
;; definition of type cavetrapdoor
|
|
(deftype cavetrapdoor (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(delay-before-wiggle int32)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
trigger
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type cavetrapdoor
|
|
(defmethod inspect ((this cavetrapdoor))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tdelay-before-wiggle: ~D~%" (-> this delay-before-wiggle))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *cavetrapdoor-sg* cavetrapdoor cavetrapdoor-lod0-jg -1
|
|
((cavetrapdoor-lod0-mg (meters 20)) (cavetrapdoor-lod1-mg (meters 40)) (cavetrapdoor-lod2-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 4)
|
|
:longest-edge (meters 5.7)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (cavetrapdoor)
|
|
:virtual #t
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('touch)
|
|
(when (= (-> proc type) target)
|
|
(when (>= (- (-> (target-pos 0) y) (-> self root trans y)) 409.6)
|
|
(send-event proc 'no-look-around (seconds 1.5))
|
|
(go-virtual trigger)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(ja-no-eval :group! cavetrapdoor-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(transform-post)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(anim-loop)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate trigger (cavetrapdoor)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(when (nonzero? (-> self delay-before-wiggle))
|
|
(set-time! (-> self state-time))
|
|
(until (time-elapsed? (-> self state-time) (-> self delay-before-wiggle))
|
|
(suspend)
|
|
)
|
|
)
|
|
(ja-no-eval :group! cavetrapdoor-bob-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(clear-collide-with-as (-> self root))
|
|
(ja-no-eval :group! cavetrapdoor-swing-ja :num! (seek! (ja-aframe 290.0 0)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe 290.0 0)))
|
|
)
|
|
(restore-collide-with-as (-> self root))
|
|
(ja-no-eval :num! (seek!))
|
|
(while (not (ja-done? 0))
|
|
(suspend)
|
|
(ja-eval)
|
|
)
|
|
(until (or (or (not *target*) (< 28672.0 (vector-vector-distance (-> self root trans) (-> *target* control trans))))
|
|
(and (not (and (logtest? (-> *target* control mod-surface flags) (surface-flags jump))
|
|
(not (logtest? (-> *target* control status) (cshape-moving-flags onsurf)))
|
|
)
|
|
)
|
|
(not (logtest? (-> *target* control root-prim prim-core action) (collide-action edgegrab-cam)))
|
|
)
|
|
)
|
|
(ja-no-eval :group! cavetrapdoor-idle-down-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(label cfg-14)
|
|
)
|
|
(ja-no-eval :group! cavetrapdoor-reset-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(when (and (and *target* (>= 28672.0 (vector-vector-distance (-> self root trans) (-> *target* control trans))))
|
|
(or (and (logtest? (-> *target* control mod-surface flags) (surface-flags jump))
|
|
(not (logtest? (-> *target* control status) (cshape-moving-flags onsurf)))
|
|
)
|
|
(logtest? (-> *target* control root-prim prim-core action) (collide-action edgegrab-cam))
|
|
)
|
|
)
|
|
(while (not (ja-min? 0))
|
|
(suspend)
|
|
(ja :num! (seek! 0.0))
|
|
)
|
|
(goto cfg-14)
|
|
)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(go-virtual idle)
|
|
)
|
|
:post pusher-post
|
|
)
|
|
|
|
;; definition for method 11 of type cavetrapdoor
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this cavetrapdoor) (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-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) 9830.4 10240.0 0.0 17203.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 *cavetrapdoor-sg* '())
|
|
(ja-channel-push! 1 0)
|
|
(let ((s4-1 (-> this skel root-channel 0)))
|
|
(joint-control-channel-group-eval!
|
|
s4-1
|
|
(the-as art-joint-anim (-> this draw art-group data 4))
|
|
num-func-identity
|
|
)
|
|
(set! (-> s4-1 frame-num) 0.0)
|
|
)
|
|
(ja-post)
|
|
(update-transforms! (-> this root))
|
|
(let ((f0-7 (quaternion-y-angle (-> this root quat)))
|
|
(s4-2 (-> this draw bounds))
|
|
)
|
|
(set-vector! s4-2 0.0 -8192.0 4096.0 1.0)
|
|
(vector-rotate-around-y! s4-2 s4-2 f0-7)
|
|
(set! (-> s4-2 w) 25600.0)
|
|
)
|
|
(set! (-> this delay-before-wiggle) (the int (* 300.0 (res-lump-float arg0 'delay))))
|
|
(create-connection!
|
|
*cavecrystal-light-control*
|
|
this
|
|
(-> this entity)
|
|
(the-as (function object object object object object) cavecrystal-light-control-default-callback)
|
|
-1
|
|
8192.0
|
|
)
|
|
(go (method-of-object this idle))
|
|
(none)
|
|
)
|
|
|
|
;; definition of type caveflamepots
|
|
(deftype caveflamepots (process-drawable)
|
|
((root collide-shape :override)
|
|
(shove-up float)
|
|
(cycle-speed int32)
|
|
(cycle-pause int32)
|
|
(cycle-offset uint32)
|
|
(was-deadly? symbol)
|
|
(should-play-sound? symbol)
|
|
(launch-pos vector 2 :inline)
|
|
)
|
|
(:states
|
|
caveflamepots-active
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type caveflamepots
|
|
(defmethod inspect ((this caveflamepots))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tshove-up: ~f~%" (-> this shove-up))
|
|
(format #t "~T~Tcycle-speed: ~D~%" (-> this cycle-speed))
|
|
(format #t "~T~Tcycle-pause: ~D~%" (-> this cycle-pause))
|
|
(format #t "~T~Tcycle-offset: ~D~%" (-> this cycle-offset))
|
|
(format #t "~T~Twas-deadly?: ~A~%" (-> this was-deadly?))
|
|
(format #t "~T~Tshould-play-sound?: ~A~%" (-> this should-play-sound?))
|
|
(format #t "~T~Tlaunch-pos[2] @ #x~X~%" (-> this launch-pos))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 704
|
|
:init-specs ((:texture (bigpuff effects))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2))
|
|
(:rot-z (degrees -180) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 0.0)
|
|
(:a 128.0)
|
|
(:vel-y (meters 0.04) (meters 0.01))
|
|
(:scalevel-x (meters -0.0039999997))
|
|
(:rotvel-z (degrees -1.8) (degrees 1.8))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-g -1.28)
|
|
(:fade-a -0.85333335)
|
|
(:accel-y (meters -0.0006))
|
|
(:timer (seconds 16.68))
|
|
(:flags (bit2 bit3))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 705
|
|
:init-specs ((:texture (bigpuff effects))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2))
|
|
(:rot-z (degrees -180) (degrees 360))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0)
|
|
(:g 128.0)
|
|
(:b 0.0)
|
|
(:a 128.0)
|
|
(:vel-y (meters 0.04) (meters 0.01))
|
|
(:scalevel-x (meters -0.0039999997))
|
|
(:rotvel-z (degrees -1.8) (degrees 1.8))
|
|
(:scalevel-y :copy scalevel-x)
|
|
(:fade-g -1.28)
|
|
(:fade-a -0.85333335)
|
|
(:accel-y (meters -0.0006))
|
|
(:timer (seconds 16.68))
|
|
(:flags (bit2 bit3))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate caveflamepots-active (caveflamepots)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('touch 'attack)
|
|
(when (= (-> proc type) target)
|
|
(when ((method-of-type touching-shapes-entry prims-touching-action?)
|
|
(the-as touching-shapes-entry (-> block param 0))
|
|
(-> *target* control)
|
|
(collide-action solid)
|
|
(collide-action)
|
|
)
|
|
(let ((s4-0 (new 'stack 'attack-info)))
|
|
(calc-shove-up (-> self root) s4-0 (-> self shove-up))
|
|
(if (or (= (-> *target* control mod-surface mode) 'air)
|
|
(>= (+ (current-time) (seconds -0.2)) (-> *target* control last-time-on-surface))
|
|
(< 0.75 (-> *target* control poly-normal y))
|
|
)
|
|
(send-event
|
|
proc
|
|
'attack-or-shove
|
|
(-> block param 0)
|
|
(static-attack-info ((mode 'burn) (vector (-> s4-0 vector)) (shove-up (-> s4-0 shove-up))))
|
|
)
|
|
(send-event
|
|
proc
|
|
'attack-or-shove
|
|
(-> block param 0)
|
|
(static-attack-info ((mode 'burn)
|
|
(shove-up (meters 0))
|
|
(shove-back (meters 2))
|
|
(vector (-> *target* control poly-normal))
|
|
(angle 'shove)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(let* ((v1-0 (-> self cycle-speed))
|
|
(a0-1 (- v1-0 (-> self cycle-pause)))
|
|
(gp-0 (mod (+ (current-time) (the-as time-frame (-> self cycle-offset))) v1-0))
|
|
)
|
|
(cond
|
|
((< gp-0 a0-1)
|
|
(when (sphere-in-view-frustum? (the-as sphere (-> self root root-prim prim-core)))
|
|
(launch-particles (-> *part-id-table* 704) (-> self launch-pos 0))
|
|
(launch-particles (-> *part-id-table* 705) (the-as vector (&-> self stack 112)))
|
|
)
|
|
(when (-> self should-play-sound?)
|
|
(set! (-> self should-play-sound?) #f)
|
|
(sound-play "hot-flame")
|
|
)
|
|
(cond
|
|
((< gp-0 30)
|
|
(when (-> self was-deadly?)
|
|
(set! (-> self was-deadly?) #f)
|
|
(clear-collide-with-as (-> self root))
|
|
)
|
|
)
|
|
(else
|
|
(when (not (-> self was-deadly?))
|
|
(set! (-> self was-deadly?) #t)
|
|
(restore-collide-with-as (-> self root))
|
|
)
|
|
)
|
|
)
|
|
(when (and (not (-> self was-deadly?)) (< 60 gp-0))
|
|
(set! (-> self was-deadly?) #t)
|
|
(restore-collide-with-as (-> self root))
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self should-play-sound?) #t)
|
|
(when (-> self was-deadly?)
|
|
(set! (-> self was-deadly?) #f)
|
|
(clear-collide-with-as (-> self root))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(loop
|
|
(logior! (-> self mask) (process-mask sleep-code))
|
|
(suspend)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 11 of type caveflamepots
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this caveflamepots) (arg0 entity-actor))
|
|
(set! (-> this was-deadly?) #f)
|
|
(set! (-> this should-play-sound?) #f)
|
|
(set! (-> this shove-up) (res-lump-float arg0 'shove :default 8192.0))
|
|
(logclear! (-> this mask) (process-mask enemy))
|
|
(logclear! (-> this mask) (process-mask attackable))
|
|
(logior! (-> this mask) (process-mask actor-pause))
|
|
(let ((s4-0 (new 'process 'collide-shape this (collide-list-enum hit-by-player))))
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 4) 0)))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s3-0 collide-with) (collide-kind target))
|
|
(set! (-> s3-0 prim-core offense) (collide-offense no-offense))
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 12288.0 0.0 10240.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 1))))
|
|
(set! (-> s2-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-0 collide-with) (collide-kind target))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense no-offense))
|
|
(set-vector! (-> s2-0 local-sphere) 4915.2 8192.0 0.0 3686.4)
|
|
(append-prim s3-0 s2-0)
|
|
)
|
|
(let ((s2-1 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 1))))
|
|
(set! (-> s2-1 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-1 collide-with) (collide-kind target))
|
|
(set! (-> s2-1 prim-core offense) (collide-offense no-offense))
|
|
(set-vector! (-> s2-1 local-sphere) 4915.2 14336.0 0.0 3276.8)
|
|
(append-prim s3-0 s2-1)
|
|
)
|
|
(let ((s2-2 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 1))))
|
|
(set! (-> s2-2 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-2 collide-with) (collide-kind target))
|
|
(set! (-> s2-2 prim-core offense) (collide-offense no-offense))
|
|
(set-vector! (-> s2-2 local-sphere) -4915.2 8192.0 0.0 3686.4)
|
|
(append-prim s3-0 s2-2)
|
|
)
|
|
(let ((s2-3 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 1))))
|
|
(set! (-> s2-3 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-3 collide-with) (collide-kind target))
|
|
(set! (-> s2-3 prim-core offense) (collide-offense no-offense))
|
|
(set-vector! (-> s2-3 local-sphere) -4915.2 14336.0 0.0 3276.8)
|
|
(append-prim s3-0 s2-3)
|
|
)
|
|
)
|
|
(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)
|
|
(let ((v1-42 (new 'process 'path-control this 'path 0.0)))
|
|
(set! (-> this path) v1-42)
|
|
(logior! (-> v1-42 flags) (path-control-flag display draw-line draw-point draw-text))
|
|
(if (<= (-> v1-42 curve num-cverts) 0)
|
|
(go process-drawable-art-error "no path")
|
|
)
|
|
)
|
|
(let ((f0-23 (res-lump-float arg0 'rotoffset)))
|
|
(if (!= f0-23 0.0)
|
|
(quaternion-rotate-y! (-> this root quat) (-> this root quat) f0-23)
|
|
)
|
|
)
|
|
(let ((f30-0 (quaternion-y-angle (-> this root quat))))
|
|
(let ((s4-1 (-> this launch-pos)))
|
|
(let ((v1-53 s4-1))
|
|
(set! (-> v1-53 0 x) 6144.0)
|
|
(set! (-> v1-53 0 y) 0.0)
|
|
(set! (-> v1-53 0 z) 0.0)
|
|
(set! (-> v1-53 0 w) 1.0)
|
|
)
|
|
(vector-rotate-around-y! (-> s4-1 0) (-> s4-1 0) f30-0)
|
|
(vector+! (-> s4-1 0) (-> s4-1 0) (-> this root trans))
|
|
)
|
|
(let ((s4-2 (the-as object (&-> this stack 112))))
|
|
(set-vector! (the-as vector s4-2) -6144.0 0.0 0.0 1.0)
|
|
(vector-rotate-around-y! (the-as vector s4-2) (the-as vector s4-2) f30-0)
|
|
(vector+! (the-as vector s4-2) (the-as vector s4-2) (-> this root trans))
|
|
)
|
|
(let ((s4-3 (-> this root root-prim)))
|
|
(dotimes (s3-1 (-> (the-as collide-shape-prim-group s4-3) num-prims))
|
|
(let ((a1-19 (-> (the-as collide-shape-prim-group s4-3) prims s3-1 local-sphere)))
|
|
(vector-rotate-around-y! a1-19 a1-19 f30-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(update-transforms! (-> this root))
|
|
(let* ((f30-1 300.0)
|
|
(sv-16 (new 'static 'res-tag))
|
|
(v1-70 (res-lump-data arg0 'cycle-speed (pointer float) :tag-ptr (& sv-16)))
|
|
)
|
|
(set! (-> this cycle-speed) (the int (* f30-1 (if (and v1-70 (> (the-as int (-> sv-16 elt-count)) 0))
|
|
(-> v1-70 0)
|
|
4.0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let* ((f30-2 (the float (-> this cycle-speed)))
|
|
(sv-32 (new 'static 'res-tag))
|
|
(v1-74 (res-lump-data arg0 'cycle-speed (pointer float) :tag-ptr (& sv-32)))
|
|
)
|
|
(set! (-> this cycle-offset)
|
|
(the-as uint (the int (* f30-2 (if (and v1-74 (< 1 (the-as int (-> sv-32 elt-count))))
|
|
(-> v1-74 1)
|
|
0.0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let* ((f30-3 300.0)
|
|
(sv-48 (new 'static 'res-tag))
|
|
(v1-77 (res-lump-data arg0 'cycle-speed (pointer float) :tag-ptr (& sv-48)))
|
|
)
|
|
(set! (-> this cycle-pause) (the int (* f30-3 (if (and v1-77 (< 2 (the-as int (-> sv-48 elt-count))))
|
|
(-> v1-77 2)
|
|
2.0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(go caveflamepots-active)
|
|
(none)
|
|
)
|
|
|
|
;; definition of type cavespatula
|
|
(deftype cavespatula (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(sync sync-info :inline)
|
|
)
|
|
(:states
|
|
cavespatula-idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type cavespatula
|
|
(defmethod inspect ((this cavespatula))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tsync: #<sync-info @ #x~X>~%" (-> this sync))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *cavespatula-sg* cavespatula 0 -1
|
|
((1 (meters 20)) (2 (meters 999999)))
|
|
:bounds (static-spherem 0 -1 0 18)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *cavespatula-darkcave-sg* cavespatula-darkcave cavespatula-darkcave-lod0-jg -1
|
|
((cavespatula-darkcave-lod0-mg (meters 20)) (cavespatula-darkcave-lod1-mg (meters 999999)))
|
|
:bounds (static-spherem 0 -1 0 18)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate cavespatula-idle (cavespatula)
|
|
:trans (behavior ()
|
|
(rider-trans)
|
|
(update! (-> self sound))
|
|
(let ((f0-0 (get-current-phase (-> self sync))))
|
|
(quaternion-axis-angle! (-> self root quat) 0.0 1.0 0.0 (* -65536.0 f0-0))
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(loop
|
|
(logior! (-> self mask) (process-mask sleep-code))
|
|
(suspend)
|
|
)
|
|
)
|
|
:post rider-post
|
|
)
|
|
|
|
;; definition for method 11 of type cavespatula
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this cavespatula) (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-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) 0)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 -8192.0 0.0 67584.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)
|
|
(set! (-> this sound)
|
|
(new 'process 'ambient-sound (static-sound-spec "spatula" :fo-min 25 :fo-max 50) (-> this root trans))
|
|
)
|
|
(case (-> (if (-> this entity)
|
|
(-> this entity extra level)
|
|
(-> *level* level-default)
|
|
)
|
|
name
|
|
)
|
|
(('darkcave)
|
|
(initialize-skeleton this *cavespatula-darkcave-sg* '())
|
|
(ja-channel-push! 1 0)
|
|
(let ((s5-1 (-> this skel root-channel 0)))
|
|
(joint-control-channel-group-eval!
|
|
s5-1
|
|
(the-as art-joint-anim (-> this draw art-group data 3))
|
|
num-func-identity
|
|
)
|
|
(set! (-> s5-1 frame-num) 0.0)
|
|
)
|
|
)
|
|
(else
|
|
(initialize-skeleton this *cavespatula-sg* '())
|
|
(ja-channel-push! 1 0)
|
|
(let ((s5-2 (-> this skel root-channel 0)))
|
|
(joint-control-channel-group-eval!
|
|
s5-2
|
|
(the-as art-joint-anim (-> this draw art-group data 3))
|
|
num-func-identity
|
|
)
|
|
(set! (-> s5-2 frame-num) 0.0)
|
|
)
|
|
)
|
|
)
|
|
(logior! (-> this skel status) (janim-status inited))
|
|
(load-params! (-> this sync) this (the-as uint 3000) 0.0 0.15 0.15)
|
|
(ja-post)
|
|
(update-transforms! (-> this root))
|
|
(create-connection!
|
|
*cavecrystal-light-control*
|
|
this
|
|
(-> this entity)
|
|
(the-as (function object object object object object) cavecrystal-light-control-default-callback)
|
|
-1
|
|
32768.0
|
|
)
|
|
(go cavespatula-idle)
|
|
(none)
|
|
)
|
|
|
|
;; definition of type cavespatulatwo
|
|
(deftype cavespatulatwo (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(sync sync-info :inline)
|
|
)
|
|
(:states
|
|
cavespatulatwo-idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type cavespatulatwo
|
|
(defmethod inspect ((this cavespatulatwo))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Tsync: #<sync-info @ #x~X>~%" (-> this sync))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *cavespatulatwo-sg* cavespatulatwo cavespatulatwo-lod0-jg -1
|
|
((cavespatulatwo-lod0-mg (meters 20)) (cavespatulatwo-lod1-mg (meters 999999)))
|
|
:bounds (static-spherem 0 2.5 0 21)
|
|
:longest-edge (meters 8.7)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate cavespatulatwo-idle (cavespatulatwo)
|
|
:trans (behavior ()
|
|
(rider-trans)
|
|
(update! (-> self sound))
|
|
(let ((f0-0 (get-current-phase (-> self sync))))
|
|
(quaternion-axis-angle! (-> self root quat) 0.0 1.0 0.0 (* -65536.0 f0-0))
|
|
)
|
|
)
|
|
:code (behavior ()
|
|
(loop
|
|
(logior! (-> self mask) (process-mask sleep-code))
|
|
(suspend)
|
|
)
|
|
)
|
|
:post rider-post
|
|
)
|
|
|
|
;; definition for method 11 of type cavespatulatwo
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this cavespatulatwo) (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-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) 0)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 75776.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 *cavespatulatwo-sg* '())
|
|
(logclear! (-> this mask) (process-mask actor-pause))
|
|
(logior! (-> this skel status) (janim-status inited))
|
|
(load-params! (-> this sync) this (the-as uint 3000) 0.0 0.15 0.15)
|
|
(ja-channel-push! 1 0)
|
|
(let ((s5-1 (-> this skel root-channel 0)))
|
|
(joint-control-channel-group-eval!
|
|
s5-1
|
|
(the-as art-joint-anim (-> this draw art-group data 3))
|
|
num-func-identity
|
|
)
|
|
(set! (-> s5-1 frame-num) 0.0)
|
|
)
|
|
(transform-post)
|
|
(set! (-> this sound)
|
|
(new 'process 'ambient-sound (static-sound-spec "spatula" :fo-min 25 :fo-max 50) (-> this root trans))
|
|
)
|
|
(go cavespatulatwo-idle)
|
|
(none)
|
|
)
|
|
|
|
;; definition of type caveelevator
|
|
(deftype caveelevator (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(elev-mode uint64)
|
|
(elev-type int32)
|
|
(prev-frame-num float)
|
|
(last-update-bounce-time time-frame)
|
|
(orig-trans vector :inline)
|
|
(sync sync-info :inline)
|
|
(smush smush-control :inline)
|
|
(anim int32 2)
|
|
(wheel-ry-mat matrix :inline :offset 272)
|
|
)
|
|
(:methods
|
|
(caveelevator-method-20 (_type_) none)
|
|
(caveelevator-method-21 (_type_) float)
|
|
)
|
|
(:states
|
|
caveelevator-cycle-active
|
|
caveelevator-one-way-idle-end
|
|
caveelevator-one-way-idle-start
|
|
caveelevator-one-way-travel-to-end
|
|
caveelevator-one-way-travel-to-start
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type caveelevator
|
|
(defmethod inspect ((this caveelevator))
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~T~Telev-mode: ~D~%" (-> this elev-mode))
|
|
(format #t "~T~Telev-type: ~D~%" (-> this elev-type))
|
|
(format #t "~T~Tprev-frame-num: ~f~%" (-> this prev-frame-num))
|
|
(format #t "~T~Tlast-update-bounce-time: ~D~%" (-> this last-update-bounce-time))
|
|
(format #t "~T~Torig-trans: #<vector @ #x~X>~%" (-> this orig-trans))
|
|
(format #t "~T~Tsync: #<sync-info @ #x~X>~%" (-> this sync))
|
|
(format #t "~T~Tsmush: #<smush-control @ #x~X>~%" (-> this smush))
|
|
(format #t "~T~Tanim[2] @ #x~X~%" (-> this anim))
|
|
(format #t "~T~Twheel-ry-mat: #<matrix @ #x~X>~%" (-> this wheel-ry-mat))
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup *caveelevator-sg* caveelevator caveelevator-lod0-jg -1
|
|
((caveelevator-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 4.25)
|
|
)
|
|
|
|
;; definition for function cavecrystal-light-control-caveelevator-callback
|
|
;; INFO: Used lq/sq
|
|
(defun cavecrystal-light-control-caveelevator-callback ((arg0 (pointer cavecrystal)) (arg1 int) (arg2 float))
|
|
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
|
(let ((v1-1 (-> arg0 0 node-list)))
|
|
(if (and (>= arg1 0) (nonzero? v1-1))
|
|
(vector<-cspace! s5-0 (-> v1-1 data arg1))
|
|
(set! (-> s5-0 quad) (-> arg0 0 root trans quad))
|
|
)
|
|
)
|
|
(set! (-> s5-0 w) arg2)
|
|
(let ((f0-1 (cavecrystal-light-control-method-10 *cavecrystal-light-control* s5-0))
|
|
(a2-2 (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0))
|
|
(a1-5 (new 'static 'vector :x 0.3 :y 0.3 :z 0.3 :w 1.0))
|
|
)
|
|
(vector-lerp! (-> arg0 0 draw color-mult) a1-5 a2-2 f0-1)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 20 of type caveelevator
|
|
;; INFO: Used lq/sq
|
|
(defmethod caveelevator-method-20 ((this caveelevator))
|
|
(let ((v1-1 (current-time)))
|
|
(when (!= v1-1 (-> this last-update-bounce-time))
|
|
(set! (-> this last-update-bounce-time) v1-1)
|
|
(when (!= (-> this smush amp) 0.0)
|
|
(let ((s5-0 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s5-0 quad) (-> this orig-trans quad))
|
|
(+! (-> s5-0 y) (* 819.2 (update! (-> this smush))))
|
|
(move-to-point! (-> this root) s5-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 21 of type caveelevator
|
|
(defmethod caveelevator-method-21 ((this caveelevator))
|
|
(let ((s5-0 (new 'stack-no-clear 'vector))
|
|
(gp-0 (-> this draw bounds))
|
|
)
|
|
(vector<-cspace! s5-0 (-> this node-list data 3))
|
|
(vector-! gp-0 s5-0 (-> this root trans))
|
|
(set! (-> gp-0 w) 17408.0)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate caveelevator-cycle-active (caveelevator)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('bonk)
|
|
(activate! (-> self smush) -1.0 60 150 1.0 1.0)
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ()
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
)
|
|
:exit (behavior ()
|
|
(logior! (-> self mask) (process-mask actor-pause))
|
|
)
|
|
:trans (behavior ()
|
|
(rider-trans)
|
|
(caveelevator-method-20 self)
|
|
)
|
|
:code (behavior ()
|
|
(loop
|
|
(let ((f30-1 (* (get-current-phase (-> self sync)) (the float (ja-num-frames 0)))))
|
|
(if (< (-> self prev-frame-num) f30-1)
|
|
(ja :num! (seek! f30-1 10000.0))
|
|
(ja :num-func num-func-identity :frame-num f30-1)
|
|
)
|
|
(set! (-> self prev-frame-num) f30-1)
|
|
)
|
|
(suspend)
|
|
)
|
|
)
|
|
:post (behavior ()
|
|
(rider-post)
|
|
(caveelevator-method-21 self)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate caveelevator-one-way-idle-start (caveelevator)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('bonk)
|
|
(activate! (-> self smush) -1.0 60 150 1.0 1.0)
|
|
(go caveelevator-one-way-travel-to-end)
|
|
)
|
|
(('attack 'touch)
|
|
(if (and (= (-> proc type) target) (>= 8192.0 (vector-vector-xz-distance (target-pos 0) (-> self root trans))))
|
|
(go caveelevator-one-way-travel-to-end)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(rider-trans)
|
|
(caveelevator-method-20 self)
|
|
)
|
|
:code (behavior ()
|
|
(ja :group! (-> (the-as art-joint-anim (+ (* (-> self anim 0) 4) (the-as int (-> self draw art-group))))
|
|
master-art-group-name
|
|
)
|
|
:num! min
|
|
)
|
|
(loop
|
|
(suspend)
|
|
)
|
|
)
|
|
:post (behavior ()
|
|
(rider-post)
|
|
(caveelevator-method-21 self)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate caveelevator-one-way-travel-to-end (caveelevator)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('bonk)
|
|
(activate! (-> self smush) -1.0 60 150 1.0 1.0)
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ()
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
)
|
|
:exit (behavior ()
|
|
(logior! (-> self mask) (process-mask actor-pause))
|
|
)
|
|
:trans (behavior ()
|
|
(rider-trans)
|
|
(caveelevator-method-20 self)
|
|
)
|
|
:code (behavior ()
|
|
(ja :group! (-> self draw art-group data (-> self anim 0)) :num! min)
|
|
(ja-no-eval :num! (seek!))
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(go caveelevator-one-way-idle-end)
|
|
)
|
|
:post (behavior ()
|
|
(rider-post)
|
|
(caveelevator-method-21 self)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate caveelevator-one-way-idle-end (caveelevator)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('bonk)
|
|
(activate! (-> self smush) -1.0 60 150 1.0 1.0)
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ()
|
|
(set-time! (-> self state-time))
|
|
)
|
|
:trans (behavior ()
|
|
(cond
|
|
((zero? (-> self root riders num-riders))
|
|
(if (time-elapsed? (-> self state-time) (seconds 3))
|
|
(go caveelevator-one-way-travel-to-start)
|
|
)
|
|
)
|
|
(else
|
|
(set-time! (-> self state-time))
|
|
)
|
|
)
|
|
(rider-trans)
|
|
(caveelevator-method-20 self)
|
|
)
|
|
:code (behavior ()
|
|
(ja :group! (-> self draw art-group data (-> self anim 0)) :num! max)
|
|
(loop
|
|
(suspend)
|
|
)
|
|
)
|
|
:post (behavior ()
|
|
(rider-post)
|
|
(caveelevator-method-21 self)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate caveelevator-one-way-travel-to-start (caveelevator)
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('bonk)
|
|
(activate! (-> self smush) -1.0 60 150 1.0 1.0)
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ()
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
)
|
|
:exit (behavior ()
|
|
(logior! (-> self mask) (process-mask actor-pause))
|
|
)
|
|
:trans (behavior ()
|
|
(rider-trans)
|
|
(caveelevator-method-20 self)
|
|
)
|
|
:code (behavior ()
|
|
(ja :group! (-> self draw art-group data (-> self anim 1)) :num! min)
|
|
(ja-no-eval :num! (seek!))
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(go caveelevator-one-way-idle-start)
|
|
)
|
|
:post (behavior ()
|
|
(rider-post)
|
|
(caveelevator-method-21 self)
|
|
)
|
|
)
|
|
|
|
;; definition for function caveelevator-joint-callback
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun caveelevator-joint-callback ((arg0 caveelevator))
|
|
(let* ((gp-0 arg0)
|
|
(f1-1 (- (-> arg0 node-list data 3 bone transform vector 3 y) (-> gp-0 orig-trans y)))
|
|
(f30-0 (* 5.0929585 (- f1-1 (* (the float (the int (/ f1-1 12867.963))) 12867.963))))
|
|
(s3-0 (-> arg0 node-list data 5 bone transform))
|
|
(s4-0 (-> arg0 node-list data 4 bone transform))
|
|
(s5-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(set! (-> s5-0 quad) (-> s3-0 vector 3 quad))
|
|
(matrix-rotate-x! s3-0 f30-0)
|
|
(matrix*! s3-0 s3-0 (-> gp-0 wheel-ry-mat))
|
|
(set! (-> s3-0 vector 3 quad) (-> s5-0 quad))
|
|
(set! (-> s5-0 quad) (-> s4-0 vector 3 quad))
|
|
(matrix-rotate-x! s4-0 (- f30-0))
|
|
(matrix*! s4-0 s4-0 (-> gp-0 wheel-ry-mat))
|
|
(set! (-> s4-0 vector 3 quad) (-> s5-0 quad))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 11 of type caveelevator
|
|
;; INFO: Used lq/sq
|
|
;; INFO: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this caveelevator) (arg0 entity-actor))
|
|
(local-vars (v1-43 int))
|
|
(set! (-> this prev-frame-num) 10000.0)
|
|
(set! (-> this last-update-bounce-time) 0)
|
|
(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 rider-plat))
|
|
(set! (-> s3-0 prim-core offense) (collide-offense indestructible))
|
|
(set! (-> s3-0 transform-index) 3)
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 17408.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 *caveelevator-sg* '())
|
|
(logior! (-> this skel status) (janim-status inited))
|
|
(set! (-> this skel postbind-function) caveelevator-joint-callback)
|
|
(let* ((sv-16 (new 'static 'res-tag))
|
|
(v1-28 (res-lump-data arg0 'trans-offset (pointer float) :tag-ptr (& sv-16)))
|
|
)
|
|
(when v1-28
|
|
(+! (-> this root trans x) (-> v1-28 0))
|
|
(+! (-> this root trans y) (-> v1-28 1))
|
|
(+! (-> this root trans z) (-> v1-28 2))
|
|
)
|
|
)
|
|
(set! (-> this orig-trans quad) (-> this root trans quad))
|
|
(let ((f0-13 (res-lump-float (-> this entity) 'rotoffset)))
|
|
(if (!= f0-13 0.0)
|
|
(quaternion-rotate-y! (-> this root quat) (-> this root quat) f0-13)
|
|
)
|
|
)
|
|
(let ((f0-14 (quaternion-y-angle (-> this root quat))))
|
|
(matrix-rotate-y! (-> this wheel-ry-mat) f0-14)
|
|
)
|
|
(set-zero! (-> this smush))
|
|
(let ((s5-1 (res-lump-value arg0 'mode uint128)))
|
|
0
|
|
(set! (-> this elev-type) (the-as int s5-1))
|
|
(let ((v1-42 s5-1))
|
|
(cond
|
|
((zero? v1-42)
|
|
(set! v1-43 0)
|
|
(set! (-> this anim 0) 2)
|
|
)
|
|
((= (the-as uint v1-42) 1)
|
|
(set! v1-43 1)
|
|
(set! (-> this anim 0) 3)
|
|
(set! (-> this anim 1) 4)
|
|
)
|
|
((= (the-as uint v1-42) 2)
|
|
(set! v1-43 0)
|
|
(set! (-> this anim 0) 5)
|
|
)
|
|
(else
|
|
(set! v1-43 0)
|
|
(set! (-> this anim 0) 2)
|
|
(set! (-> this elev-type) (the-as int s5-1))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> this elev-mode) (the-as uint v1-43))
|
|
(ja-channel-set! 1)
|
|
(let ((s4-1 (-> this skel root-channel 0)))
|
|
(joint-control-channel-group-eval!
|
|
s4-1
|
|
(the-as art-joint-anim (-> this draw art-group data (-> this anim 0)))
|
|
num-func-identity
|
|
)
|
|
(set! (-> s4-1 frame-num) 0.0)
|
|
)
|
|
(if (= (the-as uint s5-1) 1)
|
|
(create-connection!
|
|
*cavecrystal-light-control*
|
|
this
|
|
(-> this entity)
|
|
(the-as (function object object object object object) cavecrystal-light-control-caveelevator-callback)
|
|
3
|
|
8192.0
|
|
)
|
|
(create-connection!
|
|
*cavecrystal-light-control*
|
|
this
|
|
(-> this entity)
|
|
(the-as (function object object object object object) cavecrystal-light-control-default-callback)
|
|
3
|
|
8192.0
|
|
)
|
|
)
|
|
)
|
|
(transform-post)
|
|
(let ((v1-55 (-> this elev-mode)))
|
|
(cond
|
|
((zero? v1-55)
|
|
(load-params! (-> this sync) this (the-as uint 3000) 0.0 0.15 0.15)
|
|
(go caveelevator-cycle-active)
|
|
)
|
|
((= v1-55 1)
|
|
(go caveelevator-one-way-idle-start)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|