mirror of
https://github.com/open-goal/jak-project
synced 2026-06-16 23:00:49 -04:00
Tyler Wilding
1832 lines
66 KiB
Common Lisp
Vendored
Generated
1832 lines
66 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for method 15 of type hud-gruntegg
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod draw ((this hud-gruntegg))
|
|
(set-hud-piece-position!
|
|
(the-as hud-sprite (-> this sprites))
|
|
(the int (+ 462.0 (* 130.0 (-> this offset))))
|
|
200
|
|
)
|
|
(format (clear (-> this strings 0 text)) "~D" (-> this values 0 current))
|
|
(set-as-offset-from! (the-as hud-sprite (-> this strings 0 pos)) (the-as vector4w (-> this sprites)) -25 33)
|
|
((method-of-type hud draw) this)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 16 of type hud-gruntegg
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod update-values ((this hud-gruntegg))
|
|
(set! (-> this values 0 target) (the int (-> *game-info* counter)))
|
|
((method-of-type hud update-values) this)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 17 of type hud-gruntegg
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod init-callback ((this hud-gruntegg))
|
|
(set! (-> this level) (level-get *level* 'drillmid))
|
|
(set! (-> this gui-id)
|
|
(add-process *gui-control* this (gui-channel hud-lower-right) (gui-action hidden) (-> this name) 81920.0 0)
|
|
)
|
|
(logior! (-> this flags) (hud-flags show))
|
|
(set! (-> this sprites 0 tex) (lookup-texture-by-id (new 'static 'texture-id :index #xd :page #xb1e)))
|
|
(set! (-> this sprites 0 flags) (the-as uint 4))
|
|
(set! (-> this sprites 0 scale-x) 0.7)
|
|
(set! (-> this sprites 0 scale-y) 0.7)
|
|
(alloc-string-if-needed this 0)
|
|
(set! (-> this strings 0 scale) 0.6)
|
|
(set! (-> this strings 0 flags) (font-flags kerning middle large))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 15 of type hud-crimsonhover
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod draw ((this hud-crimsonhover))
|
|
(set-hud-piece-position!
|
|
(the-as hud-sprite (-> this sprites))
|
|
(the int (+ 462.0 (* 130.0 (-> this offset))))
|
|
200
|
|
)
|
|
(format (clear (-> this strings 0 text)) "~D" (-> this values 0 current))
|
|
(set-as-offset-from! (the-as hud-sprite (-> this strings 0 pos)) (the-as vector4w (-> this sprites)) -25 33)
|
|
((method-of-type hud draw) this)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 16 of type hud-crimsonhover
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod update-values ((this hud-crimsonhover))
|
|
(set! (-> this values 0 target) (the int (-> *game-info* counter)))
|
|
((method-of-type hud update-values) this)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 17 of type hud-crimsonhover
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod init-callback ((this hud-crimsonhover))
|
|
(set! (-> this level) (level-get *level* 'drillmid))
|
|
(set! (-> this gui-id)
|
|
(add-process *gui-control* this (gui-channel hud-lower-right) (gui-action hidden) (-> this name) 81920.0 0)
|
|
)
|
|
(logior! (-> this flags) (hud-flags show))
|
|
(set! (-> this sprites 0 tex) (lookup-texture-by-id (new 'static 'texture-id :index #x11 :page #xb1e)))
|
|
(set! (-> this sprites 0 flags) (the-as uint 4))
|
|
(set! (-> this sprites 0 scale-x) 0.7)
|
|
(set! (-> this sprites 0 scale-y) 0.7)
|
|
(alloc-string-if-needed this 0)
|
|
(set! (-> this strings 0 scale) 0.6)
|
|
(set! (-> this strings 0 flags) (font-flags kerning middle large))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition of type drill-plat-falling
|
|
(deftype drill-plat-falling (base-plat)
|
|
((init-quat quaternion :inline)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
falling
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type drill-plat-falling
|
|
(defmethod inspect ((this drill-plat-falling))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type base-plat inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tinit-quat: #<quaternion @ #x~X>~%" (-> this init-quat))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-drill-plat-falling drill-plat-falling drill-plat-falling-lod0-jg -1
|
|
((drill-plat-falling-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 4.2 7.4)
|
|
:longest-edge (meters 5.0046)
|
|
)
|
|
|
|
;; definition for method 29 of type drill-plat-falling
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod start-bouncing! ((this drill-plat-falling))
|
|
"Sets `bouncing` to [[#t]] and sets up the clock to periodically bounce
|
|
and translate the platform via the `smush`
|
|
@see [[smush-control]]"
|
|
(activate! (-> this smush) -1.0 24 120 1.0 1.0 (-> self clock))
|
|
(set-time! (-> this bounce-time))
|
|
(set! (-> this bouncing) #t)
|
|
(logclear! (-> this mask) (process-mask sleep))
|
|
(logclear! (-> this mask) (process-mask sleep-code))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function drill-plat-falling-trans
|
|
(defbehavior drill-plat-falling-trans drill-plat-falling ()
|
|
(rider-trans)
|
|
(cond
|
|
((-> self bouncing)
|
|
(new 'stack-no-clear 'quaternion)
|
|
(quaternion-rotate-local-x! (-> self root quat) (-> self init-quat) (* 182.04445 (update! (-> self smush))))
|
|
(if (not (!= (-> self smush amp) 0.0))
|
|
(set! (-> self bouncing) #f)
|
|
)
|
|
)
|
|
(else
|
|
(move-to-point! (-> self root) (-> self basetrans))
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (drill-plat-falling)
|
|
:virtual #t
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('ridden 'edge-grabbed)
|
|
(start-bouncing! self)
|
|
(go-virtual falling)
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ()
|
|
(ja :group! drill-plat-falling-idle-ja :num! min)
|
|
(logior! (-> self root root-prim prim-core action) (collide-action rideable))
|
|
)
|
|
:trans drill-plat-falling-trans
|
|
:code sleep-code
|
|
:post plat-post
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate falling (drill-plat-falling)
|
|
:virtual #t
|
|
:trans (behavior ()
|
|
(if (time-elapsed? (-> self state-time) (seconds 0.4))
|
|
(logclear! (-> self root root-prim prim-core action) (collide-action rideable))
|
|
)
|
|
(drill-plat-falling-trans)
|
|
)
|
|
:code (behavior ()
|
|
(ja-no-eval :group! (ja-group) :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(go-virtual idle)
|
|
)
|
|
:post plat-post
|
|
)
|
|
|
|
;; definition for method 11 of type drill-plat-falling
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this drill-plat-falling) (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 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-spec pusher))
|
|
(set! (-> s3-0 prim-core collide-with) (collide-spec jak 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 17203.2 28672.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! (-> this root) (the-as collide-shape-moving s4-0))
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(initialize-skeleton
|
|
this
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-drill-plat-falling" (the-as (pointer uint32) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
(stop-bouncing! this)
|
|
(quaternion-copy! (-> this init-quat) (-> this root quat))
|
|
(update-transforms (-> this root))
|
|
(ja-channel-push! 1 0)
|
|
(go (method-of-object this idle))
|
|
(none)
|
|
)
|
|
|
|
;; definition of type drill-elevator-shaft
|
|
(deftype drill-elevator-shaft (process-drawable)
|
|
((extent vector 2 :inline)
|
|
(length float)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
)
|
|
(:methods
|
|
(set-extent! (_type_ vector) none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type drill-elevator-shaft
|
|
(defmethod inspect ((this drill-elevator-shaft))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Textent[2] @ #x~X~%" (-> this extent))
|
|
(format #t "~2Tlength: ~f~%" (-> this length))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition of type drill-elevator
|
|
(deftype drill-elevator (elevator)
|
|
((shaft (pointer drill-elevator-shaft))
|
|
(sound-id sound-id)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type drill-elevator
|
|
(defmethod inspect ((this drill-elevator))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type elevator inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tshaft: #x~X~%" (-> this shaft))
|
|
(format #t "~2Tsound-id: ~D~%" (-> this sound-id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-drill-elevator drill-elevator drill-elevator-lod0-jg drill-elevator-idle-ja
|
|
((drill-elevator-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 7)
|
|
)
|
|
|
|
;; definition for method 30 of type drill-elevator
|
|
(defmethod get-art-group ((this drill-elevator))
|
|
"@returns The associated [[art-group]]"
|
|
(art-group-get-by-name *level* "skel-drill-elevator" (the-as (pointer uint32) #f))
|
|
)
|
|
|
|
;; definition for method 31 of type drill-elevator
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod init-plat-collision! ((this drill-elevator))
|
|
"TODO - collision stuff for setting up the platform"
|
|
(let ((s5-0 (new 'process 'collide-shape this (collide-list-enum usually-hit-by-player))))
|
|
(let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0)))
|
|
(set! (-> s5-0 total-prims) (the-as uint 3))
|
|
(set! (-> s4-0 prim-core collide-as) (collide-spec obstacle pusher))
|
|
(set! (-> s4-0 prim-core collide-with) (collide-spec jak bot hit-by-others-list player-list obstacle-for-jak))
|
|
(set! (-> s4-0 prim-core action) (collide-action solid rideable))
|
|
(set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 28672.0)
|
|
(set! (-> s5-0 root-prim) s4-0)
|
|
)
|
|
(pusher-init s5-0)
|
|
(let ((v1-10 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 1) (the-as uint 0))))
|
|
(set! (-> v1-10 prim-core collide-as) (collide-spec pusher))
|
|
(set! (-> v1-10 prim-core collide-with)
|
|
(collide-spec jak bot hit-by-others-list player-list obstacle-for-jak)
|
|
)
|
|
(set! (-> v1-10 prim-core action) (collide-action solid rideable))
|
|
(set! (-> v1-10 transform-index) 3)
|
|
(set-vector! (-> v1-10 local-sphere) 0.0 0.0 0.0 28672.0)
|
|
)
|
|
(let ((v1-12 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> v1-12 prim-core collide-as) (collide-spec obstacle))
|
|
(set! (-> v1-12 prim-core collide-with) (collide-spec jak bot player-list))
|
|
(set! (-> v1-12 prim-core action) (collide-action solid))
|
|
(set! (-> v1-12 transform-index) 4)
|
|
(set-vector! (-> v1-12 local-sphere) 0.0 0.0 0.0 28672.0)
|
|
)
|
|
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
|
|
(let ((v1-15 (-> s5-0 root-prim)))
|
|
(set! (-> s5-0 backup-collide-as) (-> v1-15 prim-core collide-as))
|
|
(set! (-> s5-0 backup-collide-with) (-> v1-15 prim-core collide-with))
|
|
)
|
|
(set! (-> this root) (the-as collide-shape-moving s5-0))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate waiting (drill-elevator)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(ja-channel-push! 1 0)
|
|
(until #f
|
|
(ja-no-eval :group! drill-elevator-idle-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate running (drill-elevator)
|
|
:virtual #t
|
|
:code (behavior ()
|
|
(ja-channel-push! 1 0)
|
|
(ja-no-eval :group! drill-elevator-raise-rail-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(sound-play "drill-elevator" :id (-> self sound-id) :position (-> self root trans))
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(logior! (-> self elevator-status) (elevator-status waiting-to-ascend))
|
|
(until (= (-> self path-pos) 1.0)
|
|
(sound-play "drill-elevator" :id (-> self sound-id) :position (-> self root trans))
|
|
(suspend)
|
|
)
|
|
(sound-stop (-> self sound-id))
|
|
(sound-play "d-elev-fence-dn" :position (-> self root trans))
|
|
(ja-no-eval :group! drill-elevator-drop-rail-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(logclear! (-> self elevator-status) (elevator-status waiting-to-ascend))
|
|
(sleep-code)
|
|
)
|
|
:post (behavior ()
|
|
(let ((t9-0 (-> (method-of-type elevator running) post)))
|
|
(if t9-0
|
|
((the-as (function none) t9-0))
|
|
)
|
|
)
|
|
(set-extent! (-> self shaft 0) (-> self root trans))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-drill-elevator-shaft drill-elevator-base drill-elevator-base-lod0-jg -1
|
|
((drill-elevator-base-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 13)
|
|
:origin-joint-index 8
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (drill-elevator-shaft)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(ja-channel-push! 1 0)
|
|
(ja-no-eval :group! drill-elevator-base-idle-ja :num! zero)
|
|
(-> self skel root-channel 0)
|
|
(ja-post)
|
|
)
|
|
:code (behavior ()
|
|
(until #f
|
|
(let ((f30-0 (- (-> self extent 1 y) (-> self extent 0 y))))
|
|
(when (!= f30-0 (-> self length))
|
|
(let ((f0-3 (* 0.000010172526 f30-0)))
|
|
(ja :num! (identity f0-3))
|
|
)
|
|
(transform-post)
|
|
(set! (-> self length) f30-0)
|
|
)
|
|
)
|
|
(suspend)
|
|
)
|
|
#f
|
|
)
|
|
)
|
|
|
|
;; definition for method 21 of type drill-elevator-shaft
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch vector vs none.
|
|
(defmethod set-extent! ((this drill-elevator-shaft) (arg0 vector))
|
|
(set! (-> this extent 1 quad) (-> arg0 quad))
|
|
(none)
|
|
)
|
|
|
|
;; definition for function drill-elevator-shaft-init-by-other
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defbehavior drill-elevator-shaft-init-by-other drill-elevator-shaft ((arg0 vector) (arg1 vector))
|
|
(local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape))
|
|
(let ((s4-0 (new 'process 'collide-shape self (collide-list-enum usually-hit-by-player))))
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 7) 0)))
|
|
(set! (-> s4-0 total-prims) (the-as uint 8))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-spec obstacle))
|
|
(set! (-> s3-0 prim-core action) (collide-action solid))
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 28672.0)
|
|
(set! (-> s4-0 root-prim) s3-0)
|
|
(let* ((s2-0 (the-as object '((6 3 16384) (5 4 16384) (4 5 16384) (3 6 16384) (2 7 16384) (1 8 16384) (0 9 16384))))
|
|
(s1-0 (-> (the-as pair s2-0) car))
|
|
)
|
|
(while (not (null? s2-0))
|
|
(let ((s0-0 (method-of-type collide-shape-prim-mesh new)))
|
|
(set! sv-32 'process)
|
|
(set! sv-48 collide-shape-prim-mesh)
|
|
(set! sv-64 s4-0)
|
|
(let ((a3-2 (command-get-int (-> (the-as pair s1-0) car) 0))
|
|
(t0-1 0)
|
|
)
|
|
(set! sv-16 (s0-0 sv-32 sv-48 sv-64 (the-as uint a3-2) (the-as uint t0-1)))
|
|
)
|
|
)
|
|
(let ((s0-1 sv-16))
|
|
(set! (-> s0-1 prim-core collide-as) (-> s3-0 prim-core collide-as))
|
|
(set! (-> s0-1 prim-core collide-with) (-> s3-0 prim-core collide-with))
|
|
(set! (-> s0-1 prim-core action) (-> s3-0 prim-core action))
|
|
(set! (-> s0-1 transform-index) (command-get-int (-> (the-as pair (-> (the-as pair s1-0) cdr)) car) 0))
|
|
)
|
|
(set-vector!
|
|
(-> sv-16 local-sphere)
|
|
0.0
|
|
0.0
|
|
0.0
|
|
(command-get-float (-> (the-as pair (-> (the-as pair (-> (the-as pair s1-0) cdr)) cdr)) car) 0.0)
|
|
)
|
|
(set! s2-0 (-> (the-as pair s2-0) cdr))
|
|
(set! s1-0 (-> (the-as pair s2-0) car))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w)))
|
|
(let ((v1-21 (-> s4-0 root-prim)))
|
|
(set! (-> s4-0 backup-collide-as) (-> v1-21 prim-core collide-as))
|
|
(set! (-> s4-0 backup-collide-with) (-> v1-21 prim-core collide-with))
|
|
)
|
|
(set! (-> self root) s4-0)
|
|
)
|
|
(set! (-> self root trans quad) (-> arg0 quad))
|
|
(initialize-skeleton
|
|
self
|
|
(the-as
|
|
skeleton-group
|
|
(art-group-get-by-name *level* "skel-drill-elevator-shaft" (the-as (pointer uint32) #f))
|
|
)
|
|
(the-as pair 0)
|
|
)
|
|
(set! (-> self extent 0 quad) (-> arg0 quad))
|
|
(set! (-> self extent 1 quad) (-> arg1 quad))
|
|
(set! (-> self length) -1.0)
|
|
(go-virtual idle)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 43 of type drill-elevator
|
|
(defmethod move-between-points ((this drill-elevator) (arg0 vector) (arg1 float) (arg2 float))
|
|
"Move between two points on the elevator's path
|
|
@param vec TODO not sure
|
|
@param point-a The first point fetched from the elevator's path
|
|
@param point-b The second point fetched from the path
|
|
@see [[path-control]] and [[elevator]]"
|
|
(let ((s4-0 (get-point-in-path! (-> this path) (new 'stack-no-clear 'vector) arg1 'interp))
|
|
(a0-3 (get-point-in-path! (-> this path) (new 'stack-no-clear 'vector) arg2 'interp))
|
|
(v1-3 (-> this root trans))
|
|
)
|
|
(when (and (< (-> a0-3 y) (-> s4-0 y)) (< (-> arg0 y) (+ -8192.0 (-> v1-3 y))))
|
|
(let ((s4-2 (vector-! (new 'stack-no-clear 'vector) arg0 v1-3)))
|
|
(vector-inv-orient-by-quat! s4-2 s4-2 (-> this root quat))
|
|
(and (< (fabs (-> s4-2 x)) 20480.0) (< (fabs (-> s4-2 z)) 20480.0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 10 of type drill-elevator
|
|
(defmethod deactivate ((this drill-elevator))
|
|
"Make a process dead, clean it up, remove it from the active pool, and return to dead pool."
|
|
(sound-stop (-> this sound-id))
|
|
(call-parent-method this)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 42 of type drill-elevator
|
|
;; WARN: Return type mismatch sound-id vs none.
|
|
(defmethod set-ambient-sound! ((this drill-elevator))
|
|
"Sets the elevator's [[ambient-sound]] up"
|
|
(set! (-> this sound-id) (new-sound-id))
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 40 of type drill-elevator
|
|
(defmethod activate-elevator ((this drill-elevator))
|
|
"Puts the elevator initially into the correct state. This is typically based upon game completion"
|
|
(if (or (not (task-node-closed? (game-task-node drill-ship-introduction)))
|
|
(task-node-closed? (game-task-node nest-boss-resolution))
|
|
)
|
|
((method-of-type elevator activate-elevator) this)
|
|
(go (method-of-object this dormant))
|
|
)
|
|
)
|
|
|
|
;; definition for method 33 of type drill-elevator
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod init-plat! ((this drill-elevator))
|
|
"Does any necessary initial platform setup.
|
|
For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound."
|
|
(set! (-> this shaft)
|
|
(process-spawn drill-elevator-shaft (-> this entity extra trans) (-> this basetrans) :to this)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition of type drill-mech-elevator
|
|
(deftype drill-mech-elevator (drill-elevator)
|
|
((running-sound-id sound-id)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type drill-mech-elevator
|
|
(defmethod inspect ((this drill-mech-elevator))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type drill-elevator inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Trunning-sound-id: ~D~%" (-> this running-sound-id))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-drill-mech-elevator drill-elevator drill-elevator-lod0-jg drill-elevator-idle-ja
|
|
((drill-elevator-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 4)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate running (drill-mech-elevator)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(let ((t9-0 (-> (method-of-type drill-elevator running) enter)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(set! (-> self running-sound-id) (sound-play "mech-lift"))
|
|
)
|
|
:exit (behavior ()
|
|
(remove-setting! 'pilot)
|
|
(remove-setting! 'pilot-exit)
|
|
(let ((t9-2 (-> (method-of-type drill-elevator running) exit)))
|
|
(if t9-2
|
|
(t9-2)
|
|
)
|
|
)
|
|
(sound-stop (-> self running-sound-id))
|
|
)
|
|
:code (behavior ()
|
|
(logior! (-> self elevator-status) (elevator-status waiting-to-ascend))
|
|
(logclear! (-> self params flags) (elevator-flags elevator-flags-3))
|
|
(logior! (-> self params flags) (elevator-flags elevator-flags-0))
|
|
(when (logtest? (-> self elevator-status) (elevator-status waiting-to-descend))
|
|
(let ((v1-9 *target*))
|
|
(when v1-9
|
|
(if (not (focus-test? v1-9 mech))
|
|
(set-setting! 'pilot #f 0.0 0)
|
|
)
|
|
(set-setting! 'pilot-exit #f 0.0 0)
|
|
)
|
|
)
|
|
)
|
|
(until (= (-> self path-pos) 1.0)
|
|
(sound-play "mech-lift" :id (-> self sound-id) :position (-> self root trans))
|
|
(suspend)
|
|
)
|
|
(sound-stop (-> self sound-id))
|
|
(logclear! (-> self elevator-status) (elevator-status waiting-to-ascend))
|
|
(sleep-code)
|
|
)
|
|
)
|
|
|
|
;; definition for method 45 of type drill-mech-elevator
|
|
(defmethod commited-to-ride? ((this drill-mech-elevator))
|
|
"@returns if the target is considered within the elevator area enough to begin descending/ascending"
|
|
(when (= (-> this move-pos 1) (-> this bottom-top 0))
|
|
(let* ((s5-0 *target*)
|
|
(a0-2 (if (type? s5-0 process-focusable)
|
|
s5-0
|
|
)
|
|
)
|
|
)
|
|
(when (and a0-2 (focus-test? a0-2 mech) (not (logtest? (-> a0-2 focus-status) (focus-status dead ignore))))
|
|
(let* ((v1-5 (get-trans a0-2 0))
|
|
(s5-2 (vector-! (new 'stack-no-clear 'vector) v1-5 (-> this root trans)))
|
|
)
|
|
(vector-inv-orient-by-quat! s5-2 s5-2 (-> this root quat))
|
|
(and (< (fabs (-> s5-2 x)) 16384.0) (< (fabs (-> s5-2 z)) 16384.0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 46 of type drill-mech-elevator
|
|
;; WARN: Stack slot offset 16 signed mismatch
|
|
;; WARN: Stack slot offset 16 signed mismatch
|
|
;; WARN: Stack slot offset 16 signed mismatch
|
|
;; WARN: Stack slot offset 16 signed mismatch
|
|
;; WARN: Stack slot offset 16 signed mismatch
|
|
;; WARN: Stack slot offset 16 signed mismatch
|
|
;; WARN: Stack slot offset 16 signed mismatch
|
|
;; WARN: Stack slot offset 16 signed mismatch
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod move-to-next-point! ((this drill-mech-elevator))
|
|
"If the [[*target*]] is in a valid state and there is a point to transition to in the elevator's path
|
|
do so.
|
|
@see [[elevator::47]]"
|
|
(local-vars (sv-16 float))
|
|
(let ((a0-1 *target*))
|
|
(when (and a0-1
|
|
(not (logtest? (focus-status dead inactive in-air grabbed edge-grab pole pilot-riding pilot teleporting)
|
|
(-> a0-1 focus-status)
|
|
)
|
|
)
|
|
)
|
|
(set! sv-16 (the-as float 0.0))
|
|
(when (and (find-closest-point-in-path! this (get-trans a0-1 0) (& sv-16) #t #t)
|
|
(!= (-> this move-pos 1) sv-16)
|
|
(= sv-16 (-> this bottom-top 0))
|
|
)
|
|
(set! (-> this move-pos 0) (-> this move-pos 1))
|
|
(set! (-> this move-pos 1) sv-16)
|
|
(logior! (-> this elevator-status) (elevator-status moving))
|
|
(go (method-of-object this running))
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 10 of type drill-mech-elevator
|
|
(defmethod deactivate ((this drill-mech-elevator))
|
|
"Make a process dead, clean it up, remove it from the active pool, and return to dead pool."
|
|
(if (nonzero? (-> this running-sound-id))
|
|
(sound-stop (-> this running-sound-id))
|
|
)
|
|
((method-of-type drill-elevator deactivate) this)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 33 of type drill-mech-elevator
|
|
(defmethod init-plat! ((this drill-mech-elevator))
|
|
"Does any necessary initial platform setup.
|
|
For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound."
|
|
(set! (-> this running-sound-id) (new 'static 'sound-id))
|
|
((method-of-type drill-elevator init-plat!) this)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 40 of type drill-mech-elevator
|
|
(defmethod activate-elevator ((this drill-mech-elevator))
|
|
"Puts the elevator initially into the correct state. This is typically based upon game completion"
|
|
(go (method-of-object this waiting))
|
|
)
|
|
|
|
;; definition of type fire-floor
|
|
(deftype fire-floor (process-drawable)
|
|
((root collide-shape-moving :override)
|
|
(part-off sparticle-launch-control)
|
|
(size float 2)
|
|
(attack-id uint32)
|
|
(sound-id sound-id)
|
|
(sound-playing symbol)
|
|
(deadly-width float)
|
|
(deadly-length float)
|
|
(flames-end-tt float)
|
|
(generous float)
|
|
(no-collision-timer time-frame)
|
|
(local-to-world matrix :inline)
|
|
(world-to-local matrix :inline)
|
|
(sync sync-linear :inline)
|
|
)
|
|
(:state-methods
|
|
idle
|
|
)
|
|
(:methods
|
|
(set-part (_type_) none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type fire-floor
|
|
(defmethod inspect ((this fire-floor))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tpart-off: ~A~%" (-> this part-off))
|
|
(format #t "~2Tsize[2] @ #x~X~%" (-> this size))
|
|
(format #t "~2Tattack-id: ~D~%" (-> this attack-id))
|
|
(format #t "~2Tsound-id: ~D~%" (-> this sound-id))
|
|
(format #t "~2Tsound-playing: ~A~%" (-> this sound-playing))
|
|
(format #t "~2Tdeadly-width: ~f~%" (-> this deadly-width))
|
|
(format #t "~2Tdeadly-length: ~f~%" (-> this deadly-length))
|
|
(format #t "~2Tflames-end-tt: ~f~%" (-> this flames-end-tt))
|
|
(format #t "~2Tgenerous: ~f~%" (-> this generous))
|
|
(format #t "~2Tno-collision-timer: ~D~%" (-> this no-collision-timer))
|
|
(format #t "~2Tlocal-to-world: #<matrix @ #x~X>~%" (-> this local-to-world))
|
|
(format #t "~2Tworld-to-local: #<matrix @ #x~X>~%" (-> this world-to-local))
|
|
(format #t "~2Tsync: #<sync-linear @ #x~X>~%" (-> this sync))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate idle (fire-floor)
|
|
:virtual #t
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('touch 'attack)
|
|
(let* ((s4-0 proc)
|
|
(gp-0 (if (type? s4-0 process-focusable)
|
|
s4-0
|
|
)
|
|
)
|
|
)
|
|
(when gp-0
|
|
(when (or (focus-test? (the-as process-focusable gp-0) mech)
|
|
(time-elapsed? (-> self no-collision-timer) (the-as time-frame (-> *TARGET-bank* hit-invulnerable-timeout)))
|
|
)
|
|
(let ((f0-0 (get-norm! (-> self sync) 0)))
|
|
(when (and (< (-> self generous) f0-0) (< f0-0 (- (-> self flames-end-tt) (-> self generous))))
|
|
(let ((s4-1 (new 'stack-no-clear 'vector)))
|
|
(vector-matrix*! s4-1 (get-trans (the-as process-focusable gp-0) 0) (-> self world-to-local))
|
|
(when (and (>= (-> s4-1 x) 0.0)
|
|
(>= (-> self deadly-width) (-> s4-1 x))
|
|
(>= (-> s4-1 z) 0.0)
|
|
(>= (-> self deadly-length) (-> s4-1 z))
|
|
(>= (-> s4-1 y) -2048.0)
|
|
(>= 2048.0 (-> s4-1 y))
|
|
)
|
|
(let ((s4-2 (vector-x-quaternion! (new 'stack-no-clear 'vector) (-> self root quat))))
|
|
(let* ((v1-23 (vector-z-quaternion! (new 'stack-no-clear 'vector) (-> (the-as process-focusable gp-0) root quat)))
|
|
(f0-8 (vector-dot s4-2 v1-23))
|
|
)
|
|
(if (< 0.0 f0-8)
|
|
(vector-float*! s4-2 s4-2 -1.0)
|
|
)
|
|
)
|
|
(when (send-event
|
|
gp-0
|
|
'attack
|
|
(-> block param 0)
|
|
(static-attack-info ((id (-> self attack-id))
|
|
(mode 'burnup)
|
|
(vector s4-2)
|
|
(shove-back (meters 0.1))
|
|
(shove-up (meters 3))
|
|
(control (if (focus-test? (the-as process-focusable gp-0) board)
|
|
1.0
|
|
0.0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((v0-0 (current-time)))
|
|
(set! (-> self no-collision-timer) v0-0)
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(let ((a1-0 (new 'stack-no-clear 'overlaps-others-params)))
|
|
(set! (-> a1-0 options) (overlaps-others-options oo0))
|
|
(set! (-> a1-0 collide-with-filter) (the-as collide-spec -1))
|
|
(set! (-> a1-0 tlist) *touching-list*)
|
|
(find-overlapping-shapes (-> self root) a1-0)
|
|
)
|
|
)
|
|
:code sleep-code
|
|
:post (behavior ()
|
|
(let ((f28-0 (+ -8192.0 (-> self size 0)))
|
|
(f30-0 (+ -8192.0 (-> self size 1)))
|
|
)
|
|
(cond
|
|
((< (get-norm! (-> self sync) 0) (-> self flames-end-tt))
|
|
(set-drill-fire-floor! #t)
|
|
(sound-play "fire-floor" :id (-> self sound-id))
|
|
(set! (-> self sound-playing) #t)
|
|
(let ((s3-0 (get-field-spec-by-id (-> *part-id-table* 1674) (sp-field-id spt-x)))
|
|
(s2-0 (get-field-spec-by-id (-> *part-id-table* 1674) (sp-field-id spt-z)))
|
|
(s1-0 (get-field-spec-by-id (-> *part-id-table* 1676) (sp-field-id spt-x)))
|
|
(s0-0 (get-field-spec-by-id (-> *part-id-table* 1676) (sp-field-id spt-z)))
|
|
(s5-0 (get-field-spec-by-id (-> *part-id-table* 1670) (sp-field-id spt-x)))
|
|
(gp-0 (get-field-spec-by-id (-> *part-id-table* 1670) (sp-field-id spt-z)))
|
|
(s4-0 (get-field-spec-by-id (-> *part-id-table* 1675) (sp-field-id spt-x)))
|
|
(v1-22 (get-field-spec-by-id (-> *part-id-table* 1675) (sp-field-id spt-z)))
|
|
)
|
|
(if s3-0
|
|
(set! (-> s3-0 random-rangef) f28-0)
|
|
)
|
|
(if s2-0
|
|
(set! (-> s2-0 random-rangef) f30-0)
|
|
)
|
|
(if s1-0
|
|
(set! (-> s1-0 random-rangef) f28-0)
|
|
)
|
|
(if s0-0
|
|
(set! (-> s0-0 random-rangef) f30-0)
|
|
)
|
|
(if s5-0
|
|
(set! (-> s5-0 random-rangef) (* 0.5 f28-0))
|
|
)
|
|
(if gp-0
|
|
(set! (-> gp-0 random-rangef) (* 0.5 f30-0))
|
|
)
|
|
(if s4-0
|
|
(set! (-> s5-0 random-rangef) (* 0.5 f28-0))
|
|
)
|
|
(if v1-22
|
|
(set! (-> gp-0 random-rangef) (* 0.5 f30-0))
|
|
)
|
|
)
|
|
(spawn-with-matrix (-> self part) (-> self local-to-world))
|
|
)
|
|
(else
|
|
(set-drill-fire-floor! #f)
|
|
(when (-> self sound-playing)
|
|
(sound-stop (-> self sound-id))
|
|
(set! (-> self sound-playing) #f)
|
|
)
|
|
(let ((s5-1 (get-field-spec-by-id (-> *part-id-table* 1671) (sp-field-id spt-x)))
|
|
(s4-1 (get-field-spec-by-id (-> *part-id-table* 1671) (sp-field-id spt-z)))
|
|
(gp-1 (get-field-spec-by-id (-> *part-id-table* 1670) (sp-field-id spt-x)))
|
|
(v1-39 (get-field-spec-by-id (-> *part-id-table* 1670) (sp-field-id spt-z)))
|
|
)
|
|
(if s5-1
|
|
(set! (-> s5-1 random-rangef) f28-0)
|
|
)
|
|
(if s4-1
|
|
(set! (-> s4-1 random-rangef) f30-0)
|
|
)
|
|
(if gp-1
|
|
(set! (-> gp-1 random-rangef) (* 0.5 f28-0))
|
|
)
|
|
(if v1-39
|
|
(set! (-> v1-39 random-rangef) (* 0.5 f30-0))
|
|
)
|
|
)
|
|
(spawn-with-matrix (-> self part-off) (-> self local-to-world))
|
|
)
|
|
)
|
|
)
|
|
(debug-draw (-> self path))
|
|
(transform-post)
|
|
)
|
|
)
|
|
|
|
;; definition for method 21 of type fire-floor
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod set-part ((this fire-floor))
|
|
"Set the particle launch controls for the on/off states."
|
|
(set! (-> this part) (create-launch-control (-> *part-group-id-table* 399) this))
|
|
(set! (-> this part-off) (create-launch-control (-> *part-group-id-table* 398) this))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 7 of type fire-floor
|
|
(defmethod relocate ((this fire-floor) (offset int))
|
|
(if (nonzero? (-> this part-off))
|
|
(&+! (-> this part-off) offset)
|
|
)
|
|
(call-parent-method this offset)
|
|
)
|
|
|
|
;; definition for method 10 of type fire-floor
|
|
(defmethod deactivate ((this fire-floor))
|
|
"Make a process dead, clean it up, remove it from the active pool, and return to dead pool."
|
|
(sound-stop (-> this sound-id))
|
|
(if (nonzero? (-> this part-off))
|
|
(kill-and-free-particles (-> this part-off))
|
|
)
|
|
(call-parent-method this)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 11 of type fire-floor
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this fire-floor) (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 this (collide-list-enum hit-by-player))))
|
|
(let ((v1-2 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0))))
|
|
(set! (-> v1-2 prim-core collide-as) (collide-spec obstacle))
|
|
(set! (-> v1-2 prim-core collide-with) (collide-spec jak bot player-list))
|
|
(set! (-> v1-2 prim-core action) (collide-action deadly))
|
|
(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! (-> this root) (the-as collide-shape-moving s4-0))
|
|
)
|
|
(process-drawable-from-entity! this arg0)
|
|
(set-part this)
|
|
(let ((a1-4 (new 'stack-no-clear 'sync-info-params)))
|
|
(let ((v1-9 0))
|
|
(if #t
|
|
(set! v1-9 (logior v1-9 1))
|
|
)
|
|
(set! (-> a1-4 sync-type) 'sync-linear)
|
|
(set! (-> a1-4 sync-flags) (the-as sync-flags v1-9))
|
|
)
|
|
(set! (-> a1-4 entity) arg0)
|
|
(set! (-> a1-4 period) (the-as uint 2100))
|
|
(set! (-> a1-4 percent) 0.0)
|
|
(initialize! (-> this sync) a1-4)
|
|
)
|
|
(set! (-> this flames-end-tt) (/ (the float (the int (* 300.0 (res-lump-float arg0 'timeout :default 3.0))))
|
|
(the float (-> this sync period))
|
|
)
|
|
)
|
|
(set! (-> this generous) (/ 90.0 (the float (-> this sync period))))
|
|
(set! (-> this path) (new 'process 'path-control this 'path 0.0 arg0 #t))
|
|
(if (-> this path)
|
|
(logior! (-> this path flags) (path-control-flag display draw-line draw-point draw-text))
|
|
)
|
|
(let ((s4-1 (new 'stack-no-clear 'matrix3))
|
|
(s3-0 (-> this local-to-world))
|
|
(s5-1 (-> this size))
|
|
)
|
|
(get-point-in-path! (-> this path) (the-as vector (-> s4-1 vector)) 0.0 'interp)
|
|
(get-point-in-path! (-> this path) (-> s4-1 vector 1) 1.0 'interp)
|
|
(get-point-in-path! (-> this path) (-> s4-1 vector 2) 3.0 'interp)
|
|
(matrix-identity! s3-0)
|
|
(vector-normalize-copy!
|
|
(the-as vector (-> s3-0 vector))
|
|
(vector-! (new 'stack-no-clear 'vector) (-> s4-1 vector 1) (the-as vector (-> s4-1 vector)))
|
|
1.0
|
|
)
|
|
(vector-normalize-copy!
|
|
(-> s3-0 vector 2)
|
|
(vector-! (new 'stack-no-clear 'vector) (-> s4-1 vector 2) (the-as vector (-> s4-1 vector)))
|
|
1.0
|
|
)
|
|
(vector-normalize! (vector-cross! (-> s3-0 vector 1) (-> s3-0 vector 2) (the-as vector (-> s3-0 vector))) 1.0)
|
|
(vector-cross! (-> s3-0 vector 2) (the-as vector (-> s3-0 vector)) (-> s3-0 vector 1))
|
|
(vector-normalize! (-> s3-0 vector 2) 1.0)
|
|
(set! (-> s3-0 trans quad) (-> s4-1 vector 0 quad))
|
|
(matrix-inverse-of-rot-trans! (-> this world-to-local) (-> this local-to-world))
|
|
(set! (-> this deadly-width) (vector-vector-distance (-> s4-1 vector 1) (the-as vector (-> s4-1 vector))))
|
|
(set! (-> this deadly-length) (vector-vector-distance (-> s4-1 vector 2) (the-as vector (-> s4-1 vector))))
|
|
(let ((v1-39 (-> this root root-prim)))
|
|
(vector-reset! (-> v1-39 local-sphere))
|
|
(let* ((f0-14 (* 0.5 (-> this deadly-width)))
|
|
(f0-16 (* f0-14 f0-14))
|
|
(f1-7 (* 0.5 (-> this deadly-length)))
|
|
)
|
|
(set! (-> v1-39 local-sphere w) (sqrtf (+ f0-16 (* f1-7 f1-7))))
|
|
)
|
|
)
|
|
(set! (-> s5-1 0)
|
|
(vector-length (vector-! (new 'stack-no-clear 'vector) (-> s4-1 vector 1) (the-as vector (-> s4-1 vector))))
|
|
)
|
|
(set! (-> s5-1 1)
|
|
(vector-length (vector-! (new 'stack-no-clear 'vector) (-> s4-1 vector 2) (the-as vector (-> s4-1 vector))))
|
|
)
|
|
)
|
|
(let* ((v1-46 *game-info*)
|
|
(a0-42 (+ (-> v1-46 attack-id) 1))
|
|
)
|
|
(set! (-> v1-46 attack-id) a0-42)
|
|
(set! (-> this attack-id) a0-42)
|
|
)
|
|
(set! (-> this sound-id) (new-sound-id))
|
|
(set! (-> this sound-playing) #f)
|
|
(update-transforms (-> this root))
|
|
(go (method-of-object this idle))
|
|
(none)
|
|
)
|
|
|
|
;; definition of type fire-floor-a
|
|
(deftype fire-floor-a (fire-floor)
|
|
()
|
|
)
|
|
|
|
;; definition for method 3 of type fire-floor-a
|
|
(defmethod inspect ((this fire-floor-a))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type fire-floor inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for method 21 of type fire-floor-a
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod set-part ((this fire-floor-a))
|
|
"Set the particle launch controls for the on/off states."
|
|
(set! (-> this part) (create-launch-control (-> *part-group-id-table* 401) this))
|
|
(set! (-> this part-off) (create-launch-control (-> *part-group-id-table* 400) this))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-drill-switch-red
|
|
:id 451
|
|
:bounds (static-bspherem 0 0 0 4)
|
|
:parts ((sp-item 1991 :flags (bit6)))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 1991
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2.5))
|
|
(:rot-x (degrees 4.5))
|
|
(:rot-z (degrees 0))
|
|
(:scale-y (meters 1.5))
|
|
(:r 255.0)
|
|
(:g 16.0)
|
|
(:b 16.0)
|
|
(:a 17.0 4.0)
|
|
(:omega (degrees 2715.75))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 glow))
|
|
(:userdata 2048.0)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpartgroup group-drill-switch-green
|
|
:id 452
|
|
:bounds (static-bspherem 0 0 0 4)
|
|
:parts ((sp-item 1992 :flags (bit6)))
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 1992
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbb :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2.5))
|
|
(:rot-x (degrees 4.5))
|
|
(:rot-z (degrees 0))
|
|
(:scale-y (meters 1.5))
|
|
(:r 64.0)
|
|
(:g 255.0)
|
|
(:b 64.0)
|
|
(:a 8.0 2.0)
|
|
(:omega (degrees 2715.75))
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 glow))
|
|
(:userdata 2048.0)
|
|
(:rotate-y (degrees 0))
|
|
)
|
|
)
|
|
|
|
;; definition of type drill-switch
|
|
(deftype drill-switch (basebutton)
|
|
((green-part sparticle-launch-control)
|
|
(down-frame float)
|
|
)
|
|
(:methods
|
|
(drill-switch-method-39 (_type_) none)
|
|
(set-switch-color (_type_ symbol) none)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type drill-switch
|
|
(defmethod inspect ((this drill-switch))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type basebutton inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tgreen-part: ~A~%" (-> this green-part))
|
|
(format #t "~2Tdown-frame: ~f~%" (-> this down-frame))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defskelgroup skel-drill-switch drill-switch drill-switch-lod0-jg drill-switch-idle-ja
|
|
((drill-switch-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 1 0 1.6)
|
|
)
|
|
|
|
;; definition for method 7 of type drill-switch
|
|
;; WARN: Return type mismatch basebutton vs drill-switch.
|
|
(defmethod relocate ((this drill-switch) (offset int))
|
|
(if (nonzero? (-> this green-part))
|
|
(&+! (-> this green-part) offset)
|
|
)
|
|
(the-as drill-switch ((method-of-type basebutton relocate) this offset))
|
|
)
|
|
|
|
;; definition for method 10 of type drill-switch
|
|
(defmethod deactivate ((this drill-switch))
|
|
"Make a process dead, clean it up, remove it from the active pool, and return to dead pool."
|
|
(if (nonzero? (-> this green-part))
|
|
(kill-and-free-particles (-> this green-part))
|
|
)
|
|
((method-of-type basebutton deactivate) this)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 40 of type drill-switch
|
|
(defmethod set-switch-color ((this drill-switch) (arg0 symbol))
|
|
"Set the switch color based on its state."
|
|
(when (or arg0 (not (logtest? (current-time) 64)))
|
|
(let ((s4-0 (new 'stack-no-clear 'vector)))
|
|
(vector<-cspace+vector! s4-0 (-> this node-list data 4) (new 'static 'vector :y 6963.2 :w 1.0))
|
|
(spawn
|
|
(if arg0
|
|
(-> this green-part)
|
|
(-> this part)
|
|
)
|
|
s4-0
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 34 of type drill-switch
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod basebutton-method-34 ((this drill-switch))
|
|
"TODO - collision stuff"
|
|
(let ((s5-0 (new 'process 'collide-shape this (collide-list-enum usually-hit-by-player))))
|
|
(let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0)))
|
|
(set! (-> s5-0 total-prims) (the-as uint 3))
|
|
(set! (-> s4-0 prim-core collide-as) (collide-spec obstacle))
|
|
(set! (-> s4-0 prim-core action) (collide-action solid))
|
|
(set! (-> s4-0 transform-index) 3)
|
|
(set-vector! (-> s4-0 local-sphere) 0.0 4096.0 0.0 8192.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 0))))
|
|
(set! (-> v1-8 prim-core collide-as) (collide-spec obstacle))
|
|
(set! (-> v1-8 prim-core collide-with) (collide-spec jak bot 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 0.0 0.0 3072.0)
|
|
)
|
|
(let ((v1-10 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0))))
|
|
(set! (-> v1-10 prim-core collide-as) (collide-spec obstacle))
|
|
(set! (-> v1-10 prim-core collide-with) (collide-spec jak bot player-list))
|
|
(set! (-> v1-10 prim-core action) (collide-action solid))
|
|
(set! (-> v1-10 transform-index) 4)
|
|
(set-vector! (-> v1-10 local-sphere) 0.0 3686.4 1843.2 5324.8)
|
|
)
|
|
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
|
|
(let ((v1-13 (-> s5-0 root-prim)))
|
|
(set! (-> s5-0 backup-collide-as) (-> v1-13 prim-core collide-as))
|
|
(set! (-> s5-0 backup-collide-with) (-> v1-13 prim-core collide-with))
|
|
)
|
|
(set! (-> this root) s5-0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate up-idle (drill-switch)
|
|
:virtual #t
|
|
:event (behavior ((proc process) (argc int) (message symbol) (block event-message-block))
|
|
(case message
|
|
(('track)
|
|
#t
|
|
)
|
|
(else
|
|
((-> (method-of-type basebutton up-idle) event) proc argc message block)
|
|
)
|
|
)
|
|
)
|
|
:enter (behavior ()
|
|
(let ((t9-0 (-> (method-of-type basebutton up-idle) enter)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(setup-masks (-> self draw) 4 2)
|
|
)
|
|
:trans (behavior ()
|
|
(let ((t9-0 (-> (method-of-type basebutton up-idle) trans)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(set-switch-color self #f)
|
|
)
|
|
:code (behavior ()
|
|
(ja :group! drill-switch-idle-ja :num! (identity 1.0))
|
|
(transform-post)
|
|
(sleep-code)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate going-down (drill-switch)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(let ((t9-0 (-> (method-of-type basebutton going-down) enter)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(sound-play "drill-switch")
|
|
(setup-masks (-> self draw) 2 4)
|
|
(set! (-> self down-frame) 0.0)
|
|
(let ((gp-1 (new 'stack-no-clear 'vector))
|
|
(s5-1 (new 'stack-no-clear 'vector))
|
|
)
|
|
(vector-z-quaternion! gp-1 (-> self root quat))
|
|
(vector-! s5-1 (target-pos 0) (-> self root trans))
|
|
(if (< (vector-dot s5-1 gp-1) 0.0)
|
|
(set! (-> self down-frame) 2.0)
|
|
)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(let ((t9-0 (-> (method-of-type basebutton going-down) trans)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(set-switch-color self #f)
|
|
)
|
|
:code (behavior ()
|
|
(ja-no-eval :num! (seek! (-> self down-frame) (-> self anim-speed)))
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! (-> self down-frame) (-> self anim-speed)))
|
|
)
|
|
(send-event! self (-> self event-down))
|
|
(let ((gp-0 (res-lump-struct (-> self entity) 'on-activate structure)))
|
|
(if gp-0
|
|
(script-eval (the-as pair gp-0))
|
|
)
|
|
)
|
|
(go-virtual down-idle)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate down-idle (drill-switch)
|
|
:virtual #t
|
|
:event (-> (method-of-type basebutton down-idle) event)
|
|
:enter (behavior ()
|
|
(let ((t9-0 (-> (method-of-type basebutton down-idle) enter)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(setup-masks (-> self draw) 2 4)
|
|
)
|
|
:trans (behavior ()
|
|
(let ((t9-0 (-> (method-of-type basebutton down-idle) trans)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(set-switch-color self #t)
|
|
)
|
|
:code (behavior ()
|
|
(ja :group! drill-switch-idle-ja :num! (identity (-> self down-frame)))
|
|
(transform-post)
|
|
(cond
|
|
((= (-> self timeout) 0.0)
|
|
(sleep-code)
|
|
)
|
|
(else
|
|
(until (time-elapsed? (-> self state-time) (the int (* 300.0 (-> self timeout))))
|
|
(suspend)
|
|
)
|
|
(send-event! self (-> self event-going-up))
|
|
(go-virtual going-up)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate going-up (drill-switch)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(let ((t9-0 (-> (method-of-type basebutton going-up) enter)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(setup-masks (-> self draw) 4 2)
|
|
)
|
|
:trans (behavior ()
|
|
(let ((t9-0 (-> (method-of-type basebutton going-up) trans)))
|
|
(if t9-0
|
|
(t9-0)
|
|
)
|
|
)
|
|
(set-switch-color self #f)
|
|
)
|
|
:code (behavior ()
|
|
(local-vars
|
|
(a0-0 process)
|
|
(a1-0 event-message-block)
|
|
(t9-0 (function process-tree event-message-block object))
|
|
)
|
|
(until (t9-0 a0-0 a1-0)
|
|
(suspend)
|
|
(set! a1-0 (new 'stack-no-clear 'event-message-block))
|
|
(set! (-> a1-0 from) (process->ppointer self))
|
|
(set! (-> a1-0 num-params) 1)
|
|
(set! (-> a1-0 message) 'query)
|
|
(set! (-> a1-0 param 0) (the-as uint 'arrived?))
|
|
(set! t9-0 send-event-function)
|
|
(let ((v1-4 (-> self notify-actor)))
|
|
(set! a0-0 (if v1-4
|
|
(-> v1-4 extra process)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(ja-no-eval :num! (seek! 1.0 (-> self anim-speed)))
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! 1.0 (-> self anim-speed)))
|
|
)
|
|
(send-event! self (-> self event-up))
|
|
(sound-play "drill-switch")
|
|
(go-virtual up-idle)
|
|
)
|
|
)
|
|
|
|
;; definition for method 38 of type drill-switch
|
|
(defmethod press! ((this drill-switch) (arg0 symbol))
|
|
(if arg0
|
|
(logior! (-> this button-status) (button-status pressed))
|
|
(logclear! (-> this button-status) (button-status pressed))
|
|
)
|
|
(when (not (logtest? (-> this button-status) (button-status button-status-1)))
|
|
(if arg0
|
|
(process-entity-status! this (entity-perm-status bit-12) #t)
|
|
(process-entity-status! this (entity-perm-status bit-12) #f)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; definition for method 33 of type drill-switch
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod basebutton-method-33 ((this drill-switch))
|
|
"TODO - joint stuff"
|
|
(initialize-skeleton
|
|
this
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-drill-switch" (the-as (pointer uint32) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
(ja-channel-set! 1)
|
|
(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 2))
|
|
num-func-identity
|
|
)
|
|
(set! (-> s5-1 frame-num) 0.0)
|
|
)
|
|
(transform-post)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for method 35 of type drill-switch
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defmethod prepare-trigger-event! ((this drill-switch))
|
|
"Sets `event-going-down` to `'trigger`"
|
|
(set! (-> this down-frame) 2.0)
|
|
(logior! (-> this button-status) (button-status button-status-3))
|
|
(set! (-> this event-going-down) 'trigger)
|
|
(set! (-> this event-going-up) 'untrigger)
|
|
(if (and (= (-> this entity extra perm task) (game-task drill-mech))
|
|
(task-node-closed? (game-task-node drill-mech-smash-consoles))
|
|
(= (-> this timeout) 0.0)
|
|
)
|
|
(process-entity-status! this (entity-perm-status bit-12) #t)
|
|
)
|
|
(if (and (-> this entity) (logtest? (-> this entity extra perm status) (entity-perm-status bit-12)))
|
|
(logior! (-> this button-status) (button-status pressed))
|
|
(logclear! (-> this button-status) (button-status pressed))
|
|
)
|
|
(logior! (-> this mask) (process-mask collectable))
|
|
(logclear! (-> this mask) (process-mask no-track))
|
|
(set! (-> this part) (create-launch-control (-> *part-group-id-table* 451) this))
|
|
(set! (-> this green-part) (create-launch-control (-> *part-group-id-table* 452) this))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 1993
|
|
:init-specs ((:texture (new 'static 'texture-id :index #x83 :page #xc))
|
|
(:birth-func 'birth-func-set-quat)
|
|
(:num 1.0)
|
|
(:scale-x (meters 1))
|
|
(:scale-y (meters 40))
|
|
(:r 128.0 64.0)
|
|
(:g 128.0 64.0)
|
|
(:b 128.0 64.0)
|
|
(:a 128.0)
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 left-multiply-quat))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 1994
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbc :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0 64.0)
|
|
(:g 128.0 64.0)
|
|
(:b 128.0 64.0)
|
|
(:a 128.0)
|
|
(:rotvel-z (degrees 0.3))
|
|
(:fade-g -1.0666667)
|
|
(:fade-b -1.0666667)
|
|
(:fade-a -8.533334)
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defpart 1995
|
|
:init-specs ((:texture (new 'static 'texture-id :index #xbc :page #xc))
|
|
(:num 1.0)
|
|
(:scale-x (meters 2))
|
|
(:scale-y :copy scale-x)
|
|
(:r 128.0 64.0)
|
|
(:g 128.0 64.0)
|
|
(:b 128.0 64.0)
|
|
(:a 128.0)
|
|
(:rotvel-z (degrees 0.3))
|
|
(:fade-g -1.0666667)
|
|
(:fade-b -1.0666667)
|
|
(:fade-a -8.533334)
|
|
(:timer (seconds 0.017))
|
|
(:flags (sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14))
|
|
)
|
|
)
|
|
|
|
;; definition of type drill-laser
|
|
(deftype drill-laser (process-drawable)
|
|
((speed float)
|
|
(offset float)
|
|
(pause float)
|
|
(firing? symbol)
|
|
(hit-sound-id sound-id)
|
|
)
|
|
(:state-methods
|
|
drill-laser-idle
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type drill-laser
|
|
(defmethod inspect ((this drill-laser))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(let ((t9-0 (method-of-type process-drawable inspect)))
|
|
(t9-0 this)
|
|
)
|
|
(format #t "~2Tspeed: ~f~%" (-> this speed))
|
|
(format #t "~2Toffset: ~f~%" (-> this offset))
|
|
(format #t "~2Tpause: ~f~%" (-> this pause))
|
|
(format #t "~2Tfiring?: ~A~%" (-> this firing?))
|
|
(format #t "~2Thit-sound-id: ~D~%" (-> this hit-sound-id))
|
|
(format #t "~2Tstate-time: ~D~%" (-> this state-time))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; definition for method 10 of type drill-laser
|
|
(defmethod deactivate ((this drill-laser))
|
|
"Make a process dead, clean it up, remove it from the active pool, and return to dead pool."
|
|
(sound-stop (-> this hit-sound-id))
|
|
((method-of-type process-drawable deactivate) this)
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(defstate drill-laser-idle (drill-laser)
|
|
:virtual #t
|
|
:enter (behavior ()
|
|
(set-time! (-> self state-time))
|
|
)
|
|
:trans (behavior ()
|
|
(let* ((f0-2 (+ (* 0.0033333334 (the float (- (current-time) (-> self state-time))))
|
|
(* (-> self offset) (+ (-> self speed) (-> self pause)))
|
|
)
|
|
)
|
|
(f1-5 (+ (-> self speed) (-> self pause)))
|
|
(f0-3 (- f0-2 (* (the float (the int (/ f0-2 f1-5))) f1-5)))
|
|
(gp-0 #f)
|
|
)
|
|
(cond
|
|
((< f0-3 (-> self speed))
|
|
(when (not (-> self firing?))
|
|
(set! (-> self firing?) #t)
|
|
(sound-play "drill-laser")
|
|
)
|
|
(let ((s3-0 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s3-0 quad) (-> self entity trans quad))
|
|
(let ((s4-1 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s4-1 quad) (-> (vector-z-quaternion! (new 'stack-no-clear 'vector) (-> self entity quat)) quad))
|
|
(let ((s5-1 (new 'stack-no-clear 'collide-query)))
|
|
(let ((v1-15 s5-1))
|
|
(set! (-> v1-15 radius) 409.6)
|
|
(set! (-> v1-15 collide-with) (collide-spec backgnd jak enemy obstacle player-list))
|
|
(set! (-> v1-15 ignore-process0) #f)
|
|
(set! (-> v1-15 ignore-process1) #f)
|
|
(set! (-> v1-15 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
|
|
(set! (-> v1-15 action-mask) (collide-action solid))
|
|
)
|
|
(set! (-> s5-1 start-pos quad) (-> s3-0 quad))
|
|
(vector-float*! (-> s5-1 move-dist) s4-1 245760.0)
|
|
(fill-using-line-sphere *collide-cache* s5-1)
|
|
(set! (-> s5-1 radius) 409.6)
|
|
(let ((f0-7 (probe-using-line-sphere *collide-cache* s5-1)))
|
|
(when (>= f0-7 0.0)
|
|
(vector-float*! (-> s5-1 move-dist) (-> s5-1 move-dist) f0-7)
|
|
(let ((s4-2 (-> s5-1 best-other-tri collide-ptr)))
|
|
(when (if (type? s4-2 collide-shape-prim-sphere)
|
|
s4-2
|
|
)
|
|
(set! gp-0 #t)
|
|
(if (zero? (-> self hit-sound-id))
|
|
(set! (-> self hit-sound-id) (sound-play "drill-laser-cut"))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> *part-id-table* 1993 init-specs 4 initial-valuef) (vector-length (-> s5-1 move-dist)))
|
|
(draw-beam (-> *part-id-table* 1993) (-> s5-1 start-pos) (-> s5-1 move-dist) #f #t)
|
|
(launch-particles (-> *part-id-table* 1994) (-> s5-1 start-pos))
|
|
(launch-particles
|
|
(-> *part-id-table* 1995)
|
|
(vector+! (new 'stack-no-clear 'vector) (-> s5-1 start-pos) (-> s5-1 move-dist))
|
|
)
|
|
(let ((s4-4 (new 'stack-no-clear 'projectile-init-by-other-params)))
|
|
(set! (-> s4-4 ent) (-> self entity))
|
|
(set! (-> s4-4 charge) 1.0)
|
|
(set! (-> s4-4 options) (projectile-options))
|
|
(set! (-> s4-4 notify-handle) (the-as handle #f))
|
|
(set! (-> s4-4 owner-handle) (the-as handle #f))
|
|
(set! (-> s4-4 ignore-handle) (process->handle self))
|
|
(let* ((v1-48 *game-info*)
|
|
(a0-24 (+ (-> v1-48 attack-id) 1))
|
|
)
|
|
(set! (-> v1-48 attack-id) a0-24)
|
|
(set! (-> s4-4 attack-id) a0-24)
|
|
)
|
|
(set! (-> s4-4 timeout) (seconds 4))
|
|
(set! (-> s4-4 pos quad) (-> s5-1 start-pos quad))
|
|
(vector-normalize-copy! (-> s4-4 vel) (-> s5-1 move-dist) 4096000.0)
|
|
(spawn-projectile guard-lazer-shot s4-4 self *default-dead-pool*)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> self firing?) #f)
|
|
)
|
|
)
|
|
(when (not gp-0)
|
|
(let ((a0-29 (-> self hit-sound-id)))
|
|
(when (nonzero? a0-29)
|
|
(sound-stop a0-29)
|
|
(set! (-> self hit-sound-id) (new 'static 'sound-id))
|
|
0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:code sleep-code
|
|
)
|
|
|
|
;; definition for method 11 of type drill-laser
|
|
;; INFO: Used lq/sq
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! ((this drill-laser) (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 res-tag))
|
|
(set! (-> this firing?) #f)
|
|
(set! (-> this hit-sound-id) (new 'static 'sound-id))
|
|
(set! (-> this root) (new 'process 'trsqv))
|
|
(set! (-> this root trans quad) (-> arg0 extra trans quad))
|
|
(quaternion-copy! (-> this root quat) (-> arg0 quat))
|
|
(vector-identity! (-> this root scale))
|
|
(set! (-> this entity) arg0)
|
|
(let ((f30-0 1.0)
|
|
(f28-0 0.0)
|
|
(f26-0 3.0)
|
|
)
|
|
(set! sv-16 (new 'static 'res-tag))
|
|
(let ((v1-8 (res-lump-data arg0 'cycle-speed (pointer float) :tag-ptr (& sv-16))))
|
|
(when v1-8
|
|
(set! f30-0 (-> v1-8 0))
|
|
(set! f28-0 (-> v1-8 1))
|
|
(set! f26-0 (-> v1-8 2))
|
|
)
|
|
)
|
|
(set! (-> this speed) f30-0)
|
|
(set! (-> this offset) f28-0)
|
|
(set! (-> this pause) f26-0)
|
|
)
|
|
(go (method-of-object this drill-laser-idle))
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set-subtask-hook!
|
|
*game-info*
|
|
(game-task-node drill-ship-resolution)
|
|
TASK_MANAGER_INIT_HOOK
|
|
(lambda ()
|
|
(speech-table-set! *speech-control* (speech-type speech-type-6) (new 'static 'speech-type-info
|
|
:min-delay (seconds 4)
|
|
:max-delay (seconds 8)
|
|
:list (new 'static 'boxed-array :type string
|
|
"kg001"
|
|
"kg006"
|
|
"kg001a"
|
|
"kg013"
|
|
"kg018"
|
|
"kg023"
|
|
"kg078a"
|
|
"kg079a"
|
|
"kg080a"
|
|
"kg081a"
|
|
"kg082a"
|
|
"kg083a"
|
|
"kg084a"
|
|
"kg085a"
|
|
"kg086a"
|
|
"kg088a"
|
|
"kg091a"
|
|
"kg023a"
|
|
"kg006a"
|
|
"kg092a"
|
|
"kg093a"
|
|
"kg094a"
|
|
"kg095a"
|
|
"kg103a"
|
|
"kg104a"
|
|
"kg112a"
|
|
"kg134"
|
|
"kg136"
|
|
"kg138"
|
|
"kg139"
|
|
"kg140"
|
|
"kg141"
|
|
"kg130"
|
|
"kg135"
|
|
"kg156"
|
|
"kg157"
|
|
)
|
|
)
|
|
)
|
|
(speech-table-set! *speech-control* (speech-type speech-type-9) (new 'static 'speech-type-info
|
|
:priority 1
|
|
:min-delay (seconds 1)
|
|
:max-delay (seconds 2)
|
|
:list (new 'static 'boxed-array :type string
|
|
"kg133"
|
|
"kg142"
|
|
"kg144"
|
|
"kg145"
|
|
"kg146"
|
|
"kg147"
|
|
"kg148"
|
|
"kg149"
|
|
"kg150"
|
|
"kg138"
|
|
"kg151"
|
|
"kg152"
|
|
"kg153"
|
|
"kg154"
|
|
"kg155"
|
|
"kg159"
|
|
"kg163"
|
|
"kg164"
|
|
)
|
|
)
|
|
)
|
|
(speech-table-set! *speech-control* (speech-type speech-type-10) (new 'static 'speech-type-info
|
|
:priority 10
|
|
:max-delay (seconds 1)
|
|
:list (new 'static 'boxed-array :type string
|
|
"kg166"
|
|
"kg167"
|
|
"kg168"
|
|
"kg169"
|
|
"kg171"
|
|
"kg172"
|
|
"kg173"
|
|
"kg174"
|
|
"kg175"
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(set-subtask-hook!
|
|
*game-info*
|
|
(game-task-node drill-ship-resolution)
|
|
TASK_MANAGER_CLEANUP_HOOK
|
|
(lambda () (speech-control-method-9 *speech-control*))
|
|
)
|
|
|
|
;; definition for function drill-login
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun drill-login ()
|
|
(set! *nav-network* (new 'loading-level 'nav-network))
|
|
(nav-network-method-9 *nav-network*)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function drill-deactivate
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun drill-deactivate ((arg0 level))
|
|
(set! *nav-network* (the-as nav-network 0))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; definition for function drill-activate
|
|
;; WARN: Return type mismatch int vs none.
|
|
(defun drill-activate ((arg0 level))
|
|
(nav-network-method-10 *nav-network* arg0 *drill-adjacency*)
|
|
0
|
|
(none)
|
|
)
|