mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
ebd8643d28
Changes the DGO build order so that the city gets compiled first, and a random guess at an "order" of which levels people might edit more often. Most of the data-only borrow files are moved to the end as well. Also moves around files in the `goal_src` tree to a structure that makes a bit more sense, some files were either in the completely wrong place, their folders had strange names, were too deep for no reason or were just too far away from other relevant files. This structure should make it easier to guess a file's location.
1130 lines
44 KiB
Common Lisp
1130 lines
44 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: widow-baron.gc
|
|
;; name in dgo: widow-baron
|
|
;; dgos: TOA
|
|
|
|
(declare-type baron-pod process-drawable)
|
|
(declare-type tomb-boss-pillar process-drawable)
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(deftype widow-float-seeker (structure)
|
|
((target float :offset-assert 0)
|
|
(value float :offset-assert 4)
|
|
(vel float :offset-assert 8)
|
|
(accel float :offset-assert 12)
|
|
(max-vel float :offset-assert 16)
|
|
(max-partial float :offset-assert 20)
|
|
(bounce-high float :offset-assert 24)
|
|
)
|
|
:allow-misaligned
|
|
:method-count-assert 13
|
|
:size-assert #x1c
|
|
:flag-assert #xd0000001c
|
|
(:methods
|
|
(widow-float-seeker-method-9 (_type_ float float float float float) none 9)
|
|
(widow-float-seeker-method-10 (_type_ (pointer float)) none 10)
|
|
(widow-float-seeker-method-11 (_type_ float) none 11)
|
|
(widow-float-seeker-method-12 (_type_ float) none 12)
|
|
)
|
|
)
|
|
|
|
|
|
(defmethod widow-float-seeker-method-9 widow-float-seeker ((obj widow-float-seeker) (arg0 float) (arg1 float) (arg2 float) (arg3 float) (arg4 float))
|
|
(set! (-> obj target) arg0)
|
|
(set! (-> obj value) arg0)
|
|
(set! (-> obj vel) 0.0)
|
|
(set! (-> obj accel) arg1)
|
|
(set! (-> obj max-vel) arg2)
|
|
(set! (-> obj max-partial) arg3)
|
|
(set! (-> obj bounce-high) arg4)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod widow-float-seeker-method-10 widow-float-seeker ((obj widow-float-seeker) (arg0 (pointer float)))
|
|
(set! (-> obj target) (-> arg0 0))
|
|
(set! (-> obj value) (-> arg0 1))
|
|
(set! (-> obj vel) (-> arg0 2))
|
|
(set! (-> obj accel) (-> arg0 3))
|
|
(set! (-> obj max-vel) (-> arg0 4))
|
|
(set! (-> obj max-partial) (-> arg0 5))
|
|
(set! (-> obj bounce-high) (-> arg0 6))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod widow-float-seeker-method-11 widow-float-seeker ((obj widow-float-seeker) (arg0 float))
|
|
(with-pp
|
|
0.0
|
|
0.0
|
|
(let* ((f1-2 (- (+ (-> obj target) arg0) (-> obj value)))
|
|
(f0-6 (if (= (-> obj target) 0.0)
|
|
(* (-> obj max-partial) (fabs f1-2))
|
|
(-> obj max-vel)
|
|
)
|
|
)
|
|
)
|
|
(let ((f1-3 (* f1-2 (* (-> obj accel) (-> pp clock time-adjust-ratio)))))
|
|
(+! (-> obj vel) f1-3)
|
|
)
|
|
(let ((f1-6 (fabs (-> obj vel)))
|
|
(f0-7 (fmin f0-6 (-> obj max-vel)))
|
|
)
|
|
(if (< f0-7 f1-6)
|
|
(set! (-> obj vel) (* (-> obj vel) (/ f0-7 f1-6)))
|
|
)
|
|
)
|
|
)
|
|
(let ((f0-11 (* (-> obj vel) (-> pp clock time-adjust-ratio))))
|
|
(+! (-> obj value) f0-11)
|
|
)
|
|
(when (and (!= (-> obj target) 0.0) (>= (-> obj value) (-> obj target)) (< 0.0 (-> obj vel)))
|
|
(set! (-> obj value) (-> obj target))
|
|
(set! (-> obj vel) (* (-> obj vel) (- (-> obj bounce-high))))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defmethod widow-float-seeker-method-12 widow-float-seeker ((obj widow-float-seeker) (arg0 float))
|
|
(set! (-> obj value) (+ (-> obj target) arg0))
|
|
(set! (-> obj vel) 0.0)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(deftype widow-rand-vector (structure)
|
|
((min-time int32 :offset-assert 0)
|
|
(max-time int32 :offset-assert 4)
|
|
(xz-max float :offset-assert 8)
|
|
(y-max float :offset-assert 12)
|
|
(timer int32 :offset-assert 16)
|
|
(value vector :inline :offset-assert 32)
|
|
)
|
|
:method-count-assert 11
|
|
:size-assert #x30
|
|
:flag-assert #xb00000030
|
|
(:methods
|
|
(init (_type_ int int float float) none 9)
|
|
(widow-rand-vector-method-10 (_type_) none 10)
|
|
)
|
|
)
|
|
|
|
|
|
(defmethod init widow-rand-vector ((obj widow-rand-vector) (arg0 int) (arg1 int) (arg2 float) (arg3 float))
|
|
(set! (-> obj min-time) arg0)
|
|
(set! (-> obj max-time) arg1)
|
|
(set! (-> obj xz-max) (* 0.5 arg2))
|
|
(set! (-> obj y-max) (* 0.5 arg3))
|
|
(set! (-> obj timer) 0)
|
|
(vector-reset! (-> obj value))
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod widow-rand-vector-method-10 widow-rand-vector ((obj widow-rand-vector))
|
|
(with-pp
|
|
(set! (-> obj timer)
|
|
(- (the-as time-frame (-> obj timer)) (- (current-time) (-> pp clock old-frame-counter)))
|
|
)
|
|
(when (<= (-> obj timer) 0)
|
|
(set! (-> obj timer) (rand-vu-int-range (-> obj min-time) (-> obj max-time)))
|
|
(set! (-> obj value x) (rand-vu-float-range (- (-> obj xz-max)) (-> obj xz-max)))
|
|
(set! (-> obj value y) (rand-vu-float-range (- (-> obj y-max)) (-> obj y-max)))
|
|
(set! (-> obj value z) (rand-vu-float-range (- (-> obj xz-max)) (-> obj xz-max)))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(deftype widow-oscillator (structure)
|
|
((target vector :inline :offset-assert 0)
|
|
(value vector :inline :offset-assert 16)
|
|
(vel vector :inline :offset-assert 32)
|
|
(accel float :offset-assert 48)
|
|
(max-vel float :offset-assert 52)
|
|
(damping float :offset-assert 56)
|
|
)
|
|
:method-count-assert 11
|
|
:size-assert #x3c
|
|
:flag-assert #xb0000003c
|
|
(:methods
|
|
(widow-oscillator-method-9 (_type_ vector float float float) none 9)
|
|
(widow-oscillator-method-10 (_type_ vector) none 10)
|
|
)
|
|
)
|
|
|
|
|
|
(defmethod widow-oscillator-method-9 widow-oscillator ((obj widow-oscillator) (arg0 vector) (arg1 float) (arg2 float) (arg3 float))
|
|
(cond
|
|
(arg0
|
|
(set! (-> obj target quad) (-> arg0 quad))
|
|
(set! (-> obj value quad) (-> arg0 quad))
|
|
)
|
|
(else
|
|
(vector-reset! (-> obj target))
|
|
(vector-reset! (-> obj value))
|
|
)
|
|
)
|
|
(vector-reset! (-> obj vel))
|
|
(set! (-> obj accel) arg1)
|
|
(set! (-> obj max-vel) arg2)
|
|
(set! (-> obj damping) arg3)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod widow-oscillator-method-10 widow-oscillator ((obj widow-oscillator) (arg0 vector))
|
|
(with-pp
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(let ((f30-0 (fmax (-> obj max-vel) (vector-length (-> obj vel)))))
|
|
(cond
|
|
(arg0
|
|
(vector+! gp-0 (-> obj target) arg0)
|
|
(vector-! gp-0 gp-0 (-> obj value))
|
|
)
|
|
(else
|
|
(vector-! gp-0 (-> obj target) (-> obj value))
|
|
)
|
|
)
|
|
(vector-normalize! gp-0 (* (-> obj accel) (-> pp clock time-adjust-ratio)))
|
|
(vector+! (-> obj vel) (-> obj vel) gp-0)
|
|
(let ((f0-3 (vector-length (-> obj vel))))
|
|
(if (< f30-0 f0-3)
|
|
(vector-float*! (-> obj vel) (-> obj vel) (/ f30-0 f0-3))
|
|
)
|
|
)
|
|
)
|
|
(vector-float*! (-> obj vel) (-> obj vel) (-> obj damping))
|
|
(vector-float*! gp-0 (-> obj vel) (-> pp clock time-adjust-ratio))
|
|
(vector+! (-> obj value) (-> obj value) gp-0)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defskelgroup skel-widow widow widow-lod0-jg 8
|
|
((widow-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 12)
|
|
:shadow widow-shadow-mg
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
(deftype widow-shot (guard-shot)
|
|
()
|
|
:heap-base #x170
|
|
:method-count-assert 40
|
|
:size-assert #x1f0
|
|
:flag-assert #x28017001f0
|
|
)
|
|
|
|
|
|
(deftype widow (process-drawable)
|
|
((bomb handle 8 :offset-assert 200)
|
|
(next-launch int32 :offset-assert 264)
|
|
(launch-dest vector :inline :offset-assert 272)
|
|
(next-jumper int32 :offset-assert 288)
|
|
(ammos handle 2 :offset-assert 296)
|
|
(ammo-timers time-frame 2 :offset-assert 312)
|
|
(bomb-hits int32 :offset-assert 328)
|
|
(circle-center vector :inline :offset-assert 336)
|
|
(theta cam-float-seeker :inline :offset-assert 352)
|
|
(traj trajectory :inline :offset-assert 384)
|
|
(osc widow-oscillator :inline :offset-assert 432)
|
|
(noise-osc widow-oscillator :inline :offset-assert 496)
|
|
(rand-vec widow-rand-vector :inline :offset-assert 560)
|
|
(attack-from-high-deg symbol :offset-assert 608)
|
|
(which-gun int32 :offset-assert 612)
|
|
(which-pod int32 :offset-assert 616)
|
|
(left-cover-angle widow-float-seeker :inline :offset 620)
|
|
(right-cover-angle widow-float-seeker :inline :offset 648)
|
|
(left-cover-jm joint-mod :offset-assert 676)
|
|
(right-cover-jm joint-mod :offset-assert 680)
|
|
(drill-speed cam-float-seeker :inline :offset-assert 684)
|
|
(drill-angle float :offset-assert 708)
|
|
(left-drill-jm joint-mod :offset-assert 712)
|
|
(right-drill-jm joint-mod :offset-assert 716)
|
|
(flying symbol :offset-assert 720)
|
|
(previous-anim int32 :offset-assert 724)
|
|
(launched-a-bomb symbol :offset-assert 728)
|
|
(old-bomb-hits int32 :offset-assert 732)
|
|
(catwalk handle 8 :offset-assert 736)
|
|
(heart handle :offset-assert 800)
|
|
(pod handle :offset-assert 808)
|
|
(baron (pointer manipy) :offset-assert 816)
|
|
(drill-spark-part sparticle-launch-control :offset-assert 820)
|
|
(drill-spark-part-alt sparticle-launch-control :offset-assert 824)
|
|
(extract-stone-time time-frame :offset-assert 832)
|
|
(extract-stone-part sparticle-launch-control :offset-assert 840)
|
|
(insert-stone-time time-frame :offset-assert 848)
|
|
(insert-stone-part sparticle-launch-control :offset-assert 856)
|
|
(land-part sparticle-launch-control :offset-assert 860)
|
|
(green-charge-part sparticle-launch-control :offset-assert 864)
|
|
(green-fire-part sparticle-launch-control :offset-assert 868)
|
|
(lightning lightning-control 5 :offset-assert 872)
|
|
(stop-catwalk-sound symbol :offset-assert 892)
|
|
(catwalk-sound sound-id :offset-assert 896)
|
|
(drill-sound sound-id :offset-assert 900)
|
|
(drill-sound-playing symbol :offset-assert 904)
|
|
(drill-sweeten-sound sound-id :offset-assert 908)
|
|
(drill-sweeten-sound-playing symbol :offset-assert 912)
|
|
(movie-handle handle :offset-assert 920)
|
|
(tilt cam-float-seeker :inline :offset-assert 928)
|
|
(targetted-catwalk int32 :offset-assert 952)
|
|
(hover-sound sound-id :offset-assert 956)
|
|
(hover-sound-playing symbol :offset-assert 960)
|
|
(shake-sound sound-id :offset-assert 964)
|
|
(shake-sound-playing symbol :offset-assert 968)
|
|
(hud handle :offset-assert 976)
|
|
(last-want-stone-talker int8 :offset-assert 984)
|
|
(last-general-flying-talker int8 :offset-assert 985)
|
|
(last-launch-droids-talker int8 :offset-assert 986)
|
|
(last-launch-bombs-talker int8 :offset-assert 987)
|
|
(last-shoot-gun-talker int8 :offset-assert 988)
|
|
(last-stone-charge-up-talker int8 :offset-assert 989)
|
|
(last-after-stone-shot-talker int8 :offset-assert 990)
|
|
(last-leave-perch-talker int8 :offset-assert 991)
|
|
(last-damaged-talker int8 :offset-assert 992)
|
|
(kicked-bombs int8 :offset-assert 993)
|
|
(launch-stages-completed int8 :offset-assert 994)
|
|
(current-shoot-stage int16 :offset-assert 996)
|
|
(last-gun-hit-stage int16 :offset-assert 998)
|
|
(gun-hits int16 :offset-assert 1000)
|
|
(last-attack-id uint32 :offset-assert 1004)
|
|
)
|
|
:heap-base #x370
|
|
:method-count-assert 47
|
|
:size-assert #x3f0
|
|
:flag-assert #x2f037003f0
|
|
(:methods
|
|
(beaten () _type_ :state 20)
|
|
(kaboom () _type_ :state 21)
|
|
(hover-low-stage-3 () _type_ :state 22)
|
|
(hover-shooting-stage-3 () _type_ :state 23)
|
|
(hover-launch-bombs-stage-3 () _type_ :state 24)
|
|
(hover-big-blast-stage-3 () _type_ :state 25)
|
|
(hover-rise-stage-3 () _type_ :state 26)
|
|
(hover-jump-down-stage-3 () _type_ :state 27)
|
|
(big-reaction-stage-2 () _type_ :state 28)
|
|
(watch-bombs-stage-2 () _type_ :state 29)
|
|
(launch-bombs-stage-2 () _type_ :state 30)
|
|
(back-to-perch-stage-2 () _type_ :state 31)
|
|
(hover-low-stage-2 () _type_ :state 32)
|
|
(hover-shooting-stage-2 () _type_ :state 33)
|
|
(hover-rise-stage-2 () _type_ :state 34)
|
|
(hover-seek-under-stage-2 () _type_ :state 35)
|
|
(hover-jump-down-stage-2 () _type_ :state 36)
|
|
(launch-droids-stage-2 () _type_ :state 37)
|
|
(big-reaction-stage-1 () _type_ :state 38)
|
|
(watch-bombs-stage-1 () _type_ :state 39)
|
|
(launch-bombs-stage-1 () _type_ :state 40)
|
|
(watch-droids-stage-1 () _type_ :state 41)
|
|
(launch-droids-stage-1 () _type_ :state 42)
|
|
(hidden () _type_ :state 43)
|
|
(widow-method-44 (_type_ vector vector) symbol 44)
|
|
(widow-method-45 (_type_ vector vector vector) none 45)
|
|
(widow-method-46 (_type_ vector int) none 46)
|
|
)
|
|
)
|
|
|
|
|
|
(deftype baron-pod (process-drawable)
|
|
((red-tip-change-time time-frame :offset-assert 200)
|
|
(alt-red-tip-on symbol :offset-assert 208)
|
|
(blink-time time-frame :offset-assert 216)
|
|
(blink-mask int32 :offset-assert 224)
|
|
(has-stone symbol :offset-assert 228)
|
|
)
|
|
:heap-base #x70
|
|
:method-count-assert 22
|
|
:size-assert #xe8
|
|
:flag-assert #x16007000e8
|
|
(:methods
|
|
(idle () _type_ :state 20)
|
|
(baron-pod-method-21 (_type_ symbol) none 21)
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup skel-baron-pod baron-pod baron-pod-lod0-jg baron-pod-idle-ja
|
|
((baron-pod-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 0 0 3)
|
|
:shadow baron-pod-shadow-mg
|
|
:origin-joint-index 3
|
|
)
|
|
|
|
(defmethod baron-pod-method-21 baron-pod ((obj baron-pod) (arg0 symbol))
|
|
(when (>= (- (current-time) (-> obj red-tip-change-time)) 0)
|
|
(set! (-> obj alt-red-tip-on) (not (-> obj alt-red-tip-on)))
|
|
(set! (-> obj red-tip-change-time) (+ (current-time) (seconds 0.5)))
|
|
(set! arg0 #t)
|
|
)
|
|
(when (>= (- (current-time) (-> obj blink-time)) 0)
|
|
(set! (-> obj blink-mask) 0)
|
|
(dotimes (s5-0 10)
|
|
(let* ((f30-0 0.5)
|
|
(v1-17 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-18 (the-as number (logior #x3f800000 v1-17)))
|
|
)
|
|
(if (< f30-0 (+ -1.0 (the-as float v1-18)))
|
|
(logior! (-> obj blink-mask) (ash 1 s5-0))
|
|
)
|
|
)
|
|
)
|
|
(set! (-> obj blink-time) (+ (current-time) (the int (* 300.0 (rand-vu-float-range 0.25 0.75)))))
|
|
(set! arg0 #t)
|
|
)
|
|
(when arg0
|
|
(remove-from-process *part-engine* obj)
|
|
(add-connection *part-engine* obj 13 obj 3264 (new 'static 'vector :w 819200.0))
|
|
(add-connection *part-engine* obj 14 obj 3264 (new 'static 'vector :w 819200.0))
|
|
(if (-> obj alt-red-tip-on)
|
|
(add-connection *part-engine* obj 5 obj 3251 (new 'static 'vector :w 819200.0))
|
|
(add-connection *part-engine* obj 6 obj 3251 (new 'static 'vector :w 819200.0))
|
|
)
|
|
(let ((s5-2 (-> obj blink-mask)))
|
|
(if (logtest? s5-2 1)
|
|
(add-connection *part-engine* obj 8 obj 3252 (new 'static 'vector :w 819200.0))
|
|
)
|
|
(if (logtest? s5-2 2)
|
|
(add-connection *part-engine* obj 9 obj 3252 (new 'static 'vector :w 819200.0))
|
|
)
|
|
(if (logtest? s5-2 4)
|
|
(add-connection *part-engine* obj 10 obj 3252 (new 'static 'vector :w 819200.0))
|
|
)
|
|
(if (logtest? s5-2 8)
|
|
(add-connection *part-engine* obj 11 obj 3252 (new 'static 'vector :w 819200.0))
|
|
)
|
|
(if (logtest? s5-2 16)
|
|
(add-connection *part-engine* obj 12 obj 3252 (new 'static 'vector :w 819200.0))
|
|
)
|
|
(if (logtest? s5-2 32)
|
|
(add-connection *part-engine* obj 15 obj 3252 (new 'static 'vector :w 819200.0))
|
|
)
|
|
(if (logtest? s5-2 64)
|
|
(add-connection *part-engine* obj 16 obj 3252 (new 'static 'vector :w 819200.0))
|
|
)
|
|
(if (logtest? s5-2 128)
|
|
(add-connection *part-engine* obj 17 obj 3252 (new 'static 'vector :w 819200.0))
|
|
)
|
|
(if (logtest? s5-2 256)
|
|
(add-connection *part-engine* obj 18 obj 3252 (new 'static 'vector :w 819200.0))
|
|
)
|
|
(if (logtest? s5-2 512)
|
|
(add-connection *part-engine* obj 19 obj 3252 (new 'static 'vector :w 819200.0))
|
|
)
|
|
)
|
|
(cond
|
|
((-> obj has-stone)
|
|
(add-connection *part-engine* obj 4 obj 3258 (new 'static 'vector :y 4096.0 :w 819200.0))
|
|
(add-connection *part-engine* obj 4 obj 3259 (new 'static 'vector :y 4096.0 :w 819200.0))
|
|
)
|
|
(else
|
|
(add-connection *part-engine* obj 4 obj 3256 (new 'static 'vector :y 4096.0 :w 819200.0))
|
|
(add-connection *part-engine* obj 4 obj 3257 (new 'static 'vector :y 4096.0 :w 819200.0))
|
|
)
|
|
)
|
|
)
|
|
(if (-> obj has-stone)
|
|
(spawn (-> obj part) (-> obj root trans))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defstate idle (baron-pod)
|
|
:virtual #t
|
|
:event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block))
|
|
(the-as object (case event-type
|
|
(('frame)
|
|
(let ((v1-3 (ja-group)))
|
|
(when (not (and v1-3 (= v1-3 (-> self draw art-group data 4))))
|
|
(ja :group! (-> self draw art-group data 4) :num! min)
|
|
(set! (-> self draw bounds w) 81920.0)
|
|
)
|
|
)
|
|
(when (and (< (ja-aframe-num 0) 834.0) (>= (the-as float (-> event param 0)) 834.0))
|
|
(setup-masks (-> self draw) 4 2)
|
|
(set! (-> self has-stone) #t)
|
|
(the-as symbol (baron-pod-method-21 self #t))
|
|
)
|
|
)
|
|
(('finale)
|
|
(the-as symbol (setup-masks (-> self draw) 8 0))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
:trans (behavior ()
|
|
(baron-pod-method-21 self #f)
|
|
(none)
|
|
)
|
|
:code (the-as (function none :behavior baron-pod) sleep-code)
|
|
:post (the-as (function none :behavior baron-pod) transform-post)
|
|
)
|
|
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defbehavior baron-pod-init-by-other baron-pod ((arg0 vector))
|
|
(let ((s5-0 (new 'process 'collide-shape-moving self (collide-list-enum hit-by-player))))
|
|
(set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s5-0 reaction) cshape-reaction-default)
|
|
(set! (-> s5-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(set! (-> s5-0 penetrated-by) (the-as penetrate -1))
|
|
(let ((v1-7 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
|
|
(set! (-> v1-7 transform-index) 3)
|
|
(set-vector! (-> v1-7 local-sphere) 0.0 0.0 9216.0 4096.0)
|
|
(set! (-> s5-0 total-prims) (the-as uint 1))
|
|
(set! (-> s5-0 root-prim) v1-7)
|
|
)
|
|
(set! (-> s5-0 nav-radius) 8192.0)
|
|
(let ((v1-9 (-> s5-0 root-prim)))
|
|
(set! (-> s5-0 backup-collide-as) (-> v1-9 prim-core collide-as))
|
|
(set! (-> s5-0 backup-collide-with) (-> v1-9 prim-core collide-with))
|
|
)
|
|
(set! (-> self root) s5-0)
|
|
)
|
|
(set! (-> self root trans quad) (-> arg0 quad))
|
|
(initialize-skeleton
|
|
self
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-baron-pod" (the-as (pointer uint32) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
(setup-masks (-> self draw) 0 12)
|
|
(set! (-> self root pause-adjust-distance) 245760.0)
|
|
(let ((v1-21 (-> self node-list data)))
|
|
(set! (-> v1-21 0 param0) (the-as (function cspace transformq none) cspace<-parent-joint!))
|
|
(set! (-> v1-21 0 param1) (the-as basic (-> self parent)))
|
|
(set! (-> v1-21 0 param2) (the-as basic 3))
|
|
)
|
|
(set! (-> self blink-time) 0)
|
|
(set! (-> self red-tip-change-time) 0)
|
|
(set! (-> self has-stone) #f)
|
|
(set! (-> self part) (create-launch-control (-> *part-group-id-table* 728) self))
|
|
(baron-pod-method-21 self #t)
|
|
(go-virtual idle)
|
|
(none)
|
|
)
|
|
|
|
(deftype tomb-boss-bridge (process-drawable)
|
|
()
|
|
:heap-base #x50
|
|
:method-count-assert 21
|
|
:size-assert #xc8
|
|
:flag-assert #x15005000c8
|
|
(:methods
|
|
(idle () _type_ :state 20)
|
|
)
|
|
)
|
|
|
|
|
|
(defstate idle (tomb-boss-bridge)
|
|
:virtual #t
|
|
:trans (behavior ()
|
|
(when (task-node-closed? (game-task-node tomb-boss-introduction))
|
|
(cleanup-for-death self)
|
|
(deactivate self)
|
|
)
|
|
(none)
|
|
)
|
|
:code (the-as (function none :behavior tomb-boss-bridge) sleep-code)
|
|
)
|
|
|
|
;; WARN: Return type mismatch object vs none.
|
|
(defmethod init-from-entity! tomb-boss-bridge ((obj tomb-boss-bridge) (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"
|
|
(case ((method-of-type res-lump get-property-struct)
|
|
(-> obj entity)
|
|
'tomb-boss-bridge-type
|
|
'interp
|
|
-1000000000.0
|
|
(the-as structure 'a)
|
|
(the-as (pointer res-tag) #f)
|
|
*res-static-buf*
|
|
)
|
|
(('b)
|
|
(set! (-> obj root) (new 'process 'trsqv))
|
|
(process-drawable-from-entity! obj arg0)
|
|
(initialize-skeleton
|
|
obj
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-tomb-boss-bridge-b" (the-as (pointer uint32) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
)
|
|
(else
|
|
(set! (-> obj root) (new 'process 'trsqv))
|
|
(process-drawable-from-entity! obj arg0)
|
|
(initialize-skeleton
|
|
obj
|
|
(the-as skeleton-group (art-group-get-by-name *level* "skel-tomb-boss-bridge-a" (the-as (pointer uint32) #f)))
|
|
(the-as pair 0)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> obj draw light-index) (the-as uint 2))
|
|
(ja-post)
|
|
(go (method-of-object obj idle))
|
|
(none)
|
|
)
|
|
|
|
(defbehavior widow-want-stone-talker widow ()
|
|
(if (or (>= (-> self bomb-hits) 4) (let* ((f30-0 0.001)
|
|
(v1-4 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-5 (the-as number (logior #x3f800000 v1-4)))
|
|
)
|
|
(< f30-0 (+ -1.0 (the-as float v1-5)))
|
|
)
|
|
)
|
|
(return (the-as sound-id #f))
|
|
)
|
|
(let ((v1-9 (rand-vu-int-count 5)))
|
|
(if (>= v1-9 (-> self last-want-stone-talker))
|
|
(+! v1-9 1)
|
|
)
|
|
(set! (-> self last-want-stone-talker) v1-9)
|
|
(cond
|
|
((zero? v1-9)
|
|
(talker-spawn-func (-> *talker-speech* 241) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 1)
|
|
(talker-spawn-func (-> *talker-speech* 242) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 2)
|
|
(talker-spawn-func (-> *talker-speech* 243) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 3)
|
|
(talker-spawn-func (-> *talker-speech* 244) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 4)
|
|
(talker-spawn-func (-> *talker-speech* 245) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 5)
|
|
(talker-spawn-func (-> *talker-speech* 246) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior widow-general-flying-talker widow ()
|
|
(if (or (>= (-> self bomb-hits) 4) (let* ((f30-0 0.002)
|
|
(v1-4 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-5 (the-as number (logior #x3f800000 v1-4)))
|
|
)
|
|
(< f30-0 (+ -1.0 (the-as float v1-5)))
|
|
)
|
|
)
|
|
(return (the-as sound-id #f))
|
|
)
|
|
(let ((v1-9 (rand-vu-int-count 4)))
|
|
(if (>= v1-9 (-> self last-general-flying-talker))
|
|
(+! v1-9 1)
|
|
)
|
|
(set! (-> self last-general-flying-talker) v1-9)
|
|
(cond
|
|
((zero? v1-9)
|
|
(talker-spawn-func (-> *talker-speech* 273) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 1)
|
|
(talker-spawn-func (-> *talker-speech* 288) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 2)
|
|
(talker-spawn-func (-> *talker-speech* 289) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 3)
|
|
(talker-spawn-func (-> *talker-speech* 290) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 4)
|
|
(talker-spawn-func (-> *talker-speech* 291) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior widow-launch-droids-talker widow ()
|
|
(if (or (>= (-> self bomb-hits) 4) (let* ((f30-0 0.9)
|
|
(v1-4 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-5 (the-as number (logior #x3f800000 v1-4)))
|
|
)
|
|
(< f30-0 (+ -1.0 (the-as float v1-5)))
|
|
)
|
|
)
|
|
(return (the-as sound-id #f))
|
|
)
|
|
(let ((v1-9 (rand-vu-int-count 4)))
|
|
(if (>= v1-9 (-> self last-launch-droids-talker))
|
|
(+! v1-9 1)
|
|
)
|
|
(set! (-> self last-launch-droids-talker) v1-9)
|
|
(cond
|
|
((zero? v1-9)
|
|
(talker-spawn-func (-> *talker-speech* 247) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 1)
|
|
(talker-spawn-func (-> *talker-speech* 248) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 2)
|
|
(talker-spawn-func (-> *talker-speech* 249) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 3)
|
|
(talker-spawn-func (-> *talker-speech* 250) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 4)
|
|
(talker-spawn-func (-> *talker-speech* 299) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior widow-launch-bombs-talker widow ()
|
|
(if (or (>= (-> self bomb-hits) 4) (let* ((f30-0 0.9)
|
|
(v1-4 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-5 (the-as number (logior #x3f800000 v1-4)))
|
|
)
|
|
(< f30-0 (+ -1.0 (the-as float v1-5)))
|
|
)
|
|
)
|
|
(return (the-as sound-id #f))
|
|
)
|
|
(let ((v1-9 (rand-vu-int-count 5)))
|
|
(if (>= v1-9 (-> self last-launch-bombs-talker))
|
|
(+! v1-9 1)
|
|
)
|
|
(set! (-> self last-launch-bombs-talker) v1-9)
|
|
(cond
|
|
((zero? v1-9)
|
|
(talker-spawn-func (-> *talker-speech* 251) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 1)
|
|
(talker-spawn-func (-> *talker-speech* 252) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 2)
|
|
(talker-spawn-func (-> *talker-speech* 255) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 3)
|
|
(talker-spawn-func (-> *talker-speech* 256) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 4)
|
|
(talker-spawn-func (-> *talker-speech* 267) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 5)
|
|
(talker-spawn-func (-> *talker-speech* 272) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior widow-shoot-gun-talker widow ()
|
|
(if (or (>= (-> self bomb-hits) 4) (let* ((f30-0 0.7)
|
|
(v1-4 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-5 (the-as number (logior #x3f800000 v1-4)))
|
|
)
|
|
(< f30-0 (+ -1.0 (the-as float v1-5)))
|
|
)
|
|
)
|
|
(return (the-as sound-id #f))
|
|
)
|
|
(let ((v1-9 (rand-vu-int-count 10)))
|
|
(if (>= v1-9 (-> self last-shoot-gun-talker))
|
|
(+! v1-9 1)
|
|
)
|
|
(set! (-> self last-shoot-gun-talker) v1-9)
|
|
(cond
|
|
((zero? v1-9)
|
|
(talker-spawn-func (-> *talker-speech* 253) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 1)
|
|
(talker-spawn-func (-> *talker-speech* 254) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 2)
|
|
(talker-spawn-func (-> *talker-speech* 257) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 3)
|
|
(talker-spawn-func (-> *talker-speech* 258) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 4)
|
|
(talker-spawn-func (-> *talker-speech* 286) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 5)
|
|
(talker-spawn-func (-> *talker-speech* 268) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 6)
|
|
(talker-spawn-func (-> *talker-speech* 269) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 7)
|
|
(talker-spawn-func (-> *talker-speech* 292) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 8)
|
|
(talker-spawn-func (-> *talker-speech* 293) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 9)
|
|
(talker-spawn-func (-> *talker-speech* 300) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 10)
|
|
(talker-spawn-func (-> *talker-speech* 274) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior widow-stone-charge-up-talker widow ()
|
|
(if (or (>= (-> self bomb-hits) 4) (let* ((f30-0 0.6)
|
|
(v1-4 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-5 (the-as number (logior #x3f800000 v1-4)))
|
|
)
|
|
(< f30-0 (+ -1.0 (the-as float v1-5)))
|
|
)
|
|
)
|
|
(return (the-as sound-id #f))
|
|
)
|
|
(let ((v1-9 (rand-vu-int-count 5)))
|
|
(if (>= v1-9 (-> self last-stone-charge-up-talker))
|
|
(+! v1-9 1)
|
|
)
|
|
(set! (-> self last-stone-charge-up-talker) v1-9)
|
|
(cond
|
|
((zero? v1-9)
|
|
(talker-spawn-func (-> *talker-speech* 259) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 1)
|
|
(talker-spawn-func (-> *talker-speech* 260) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 2)
|
|
(talker-spawn-func (-> *talker-speech* 264) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 3)
|
|
(talker-spawn-func (-> *talker-speech* 296) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 4)
|
|
(talker-spawn-func (-> *talker-speech* 298) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 5)
|
|
(talker-spawn-func (-> *talker-speech* 266) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior widow-after-stone-shot-talker widow ()
|
|
(if (or (>= (-> self bomb-hits) 4) (let* ((f30-0 0.6)
|
|
(v1-4 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-5 (the-as number (logior #x3f800000 v1-4)))
|
|
)
|
|
(< f30-0 (+ -1.0 (the-as float v1-5)))
|
|
)
|
|
)
|
|
(return (the-as sound-id #f))
|
|
)
|
|
(let ((v1-9 (rand-vu-int-count 5)))
|
|
(if (>= v1-9 (-> self last-after-stone-shot-talker))
|
|
(+! v1-9 1)
|
|
)
|
|
(set! (-> self last-after-stone-shot-talker) v1-9)
|
|
(cond
|
|
((zero? v1-9)
|
|
(talker-spawn-func (-> *talker-speech* 261) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 1)
|
|
(talker-spawn-func (-> *talker-speech* 262) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 2)
|
|
(talker-spawn-func (-> *talker-speech* 263) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 3)
|
|
(talker-spawn-func (-> *talker-speech* 297) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 4)
|
|
(talker-spawn-func (-> *talker-speech* 271) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 5)
|
|
(talker-spawn-func (-> *talker-speech* 265) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior widow-leave-perch-talker widow ()
|
|
(if (or (>= (-> self bomb-hits) 4) (let* ((f30-0 0.4)
|
|
(v1-4 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-5 (the-as number (logior #x3f800000 v1-4)))
|
|
)
|
|
(< f30-0 (+ -1.0 (the-as float v1-5)))
|
|
)
|
|
)
|
|
(return (the-as sound-id #f))
|
|
)
|
|
(let ((v1-9 (rand-vu-int-count 4)))
|
|
(if (>= v1-9 (-> self last-leave-perch-talker))
|
|
(+! v1-9 1)
|
|
)
|
|
(set! (-> self last-leave-perch-talker) v1-9)
|
|
(cond
|
|
((zero? v1-9)
|
|
(talker-spawn-func (-> *talker-speech* 270) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 1)
|
|
(talker-spawn-func (-> *talker-speech* 277) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 2)
|
|
(talker-spawn-func (-> *talker-speech* 275) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 3)
|
|
(talker-spawn-func (-> *talker-speech* 276) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-9 4)
|
|
(talker-spawn-func (-> *talker-speech* 285) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior widow-damaged-talker widow ()
|
|
(let* ((f30-0 0.99)
|
|
(v1-2 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
|
|
(v1-3 (the-as number (logior #x3f800000 v1-2)))
|
|
)
|
|
(if (< f30-0 (+ -1.0 (the-as float v1-3)))
|
|
(return (the-as sound-id #f))
|
|
)
|
|
)
|
|
(let ((v1-7 (rand-vu-int-count 11)))
|
|
(if (>= v1-7 (-> self last-damaged-talker))
|
|
(+! v1-7 1)
|
|
)
|
|
(set! (-> self last-damaged-talker) v1-7)
|
|
(cond
|
|
((zero? v1-7)
|
|
(talker-spawn-func (-> *talker-speech* 278) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 1)
|
|
(talker-spawn-func (-> *talker-speech* 279) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 2)
|
|
(talker-spawn-func (-> *talker-speech* 280) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 3)
|
|
(talker-spawn-func (-> *talker-speech* 281) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 4)
|
|
(talker-spawn-func (-> *talker-speech* 282) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 5)
|
|
(talker-spawn-func (-> *talker-speech* 283) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 6)
|
|
(talker-spawn-func (-> *talker-speech* 284) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 7)
|
|
(talker-spawn-func (-> *talker-speech* 294) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 8)
|
|
(talker-spawn-func (-> *talker-speech* 295) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 9)
|
|
(talker-spawn-func (-> *talker-speech* 287) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 10)
|
|
(talker-spawn-func (-> *talker-speech* 307) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
((= v1-7 11)
|
|
(talker-spawn-func (-> *talker-speech* 304) *entity-pool* (target-pos 0) (the-as region #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
;; WARN: Return type mismatch none vs object.
|
|
(defbehavior widow-handler widow ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(local-vars (v0-0 object) (sv-224 symbol) (sv-240 symbol) (sv-256 vector) (sv-272 matrix))
|
|
(the-as
|
|
object
|
|
(case arg2
|
|
(('attack)
|
|
(let ((v1-1 (the-as object (-> arg3 param 1))))
|
|
(when (and (logtest? (attack-info-mask penetrate-using) (-> (the-as attack-info v1-1) mask))
|
|
(logtest? (penetrate dark-bomb) (-> (the-as attack-info v1-1) penetrate-using))
|
|
(!= (-> self last-attack-id) (-> (the-as attack-info v1-1) id))
|
|
)
|
|
(set! (-> self last-attack-id) (-> (the-as attack-info v1-1) id))
|
|
(send-event self 'bomb-hit (target-pos 0) 4)
|
|
(let ((gp-2 (get-process *default-dead-pool* part-tracker #x4000)))
|
|
(when gp-2
|
|
(let ((t9-3 (method-of-type part-tracker activate)))
|
|
(t9-3
|
|
(the-as part-tracker gp-2)
|
|
*entity-pool*
|
|
(symbol->string (-> part-tracker symbol))
|
|
(the-as pointer #x70004000)
|
|
)
|
|
)
|
|
(let ((s5-0 run-function-in-process)
|
|
(s4-0 gp-2)
|
|
(s3-0 part-tracker-init)
|
|
(s2-0 (-> *part-group-id-table* 710))
|
|
(s1-0 600)
|
|
(s0-0 #f)
|
|
)
|
|
(set! sv-224 (the-as symbol #f))
|
|
(set! sv-240 (the-as symbol #f))
|
|
(set! sv-272 *launch-matrix*)
|
|
(set! sv-256 (-> sv-272 trans))
|
|
(let ((v1-16 (-> (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data 11)) quad)))
|
|
(set! (-> sv-256 quad) v1-16)
|
|
)
|
|
((the-as (function object object object object object object object object none) s5-0)
|
|
s4-0
|
|
s3-0
|
|
s2-0
|
|
s1-0
|
|
s0-0
|
|
sv-224
|
|
sv-240
|
|
sv-272
|
|
)
|
|
)
|
|
(-> gp-2 ppointer)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('shot-hit-target)
|
|
(when (< (-> self last-gun-hit-stage) (-> self current-shoot-stage))
|
|
(+! (-> self gun-hits) 1)
|
|
(set! v0-0 (-> self current-shoot-stage))
|
|
(set! (-> self last-gun-hit-stage) (the-as int v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
(('bomb-kicked)
|
|
(set! v0-0 (+ (-> self kicked-bombs) 1))
|
|
(set! (-> self kicked-bombs) (the-as int v0-0))
|
|
v0-0
|
|
)
|
|
(('widow-get-center)
|
|
(-> self circle-center)
|
|
)
|
|
(('debris-hit)
|
|
(when (< -819.2 (-> self osc vel y))
|
|
(sound-play "wid-debris-hit")
|
|
(case (-> arg3 param 0)
|
|
((1)
|
|
(set! (-> self osc vel y) (+ -3072.0 (-> self osc vel y)))
|
|
)
|
|
((2)
|
|
(set! (-> self osc vel y) (+ -2048.0 (-> self osc vel y)))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('catwalk-hit)
|
|
(let ((v1-26 (-> arg3 param 0)))
|
|
(when (and (> (the-as int v1-26) 0) (< (the-as int v1-26) 8))
|
|
(let ((v1-28 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> v1-28 from) (process->ppointer arg0))
|
|
(set! (-> v1-28 num-params) arg1)
|
|
(set! (-> v1-28 message) arg2)
|
|
(set! (-> v1-28 param 0) (-> arg3 param 0))
|
|
(set! (-> v1-28 param 1) (-> arg3 param 1))
|
|
(set! (-> v1-28 param 2) (-> arg3 param 2))
|
|
(set! (-> v1-28 param 3) (-> arg3 param 3))
|
|
(set! (-> v1-28 param 4) (-> arg3 param 4))
|
|
(set! (-> v1-28 param 5) (-> arg3 param 5))
|
|
(send-event-function (handle->process (-> self catwalk 0)) v1-28)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(('child-jumped)
|
|
(set! v0-0 (logclear (-> (the-as spydroid arg0) enemy-flags) (enemy-flag alert)))
|
|
(set! (-> (the-as spydroid arg0) enemy-flags) (the-as enemy-flag v0-0))
|
|
v0-0
|
|
)
|
|
(('bomb-hit)
|
|
(set! (-> self bomb-hits) (min 4 (+ (-> self bomb-hits) (-> arg3 param 1))))
|
|
(let ((v1-33 (handle->process (-> self hud))))
|
|
(if v1-33
|
|
(set! (-> (the-as hud-widow v1-33) values 1 target) (/ (* 100 (- 4 (-> self bomb-hits))) 4))
|
|
)
|
|
)
|
|
(when (and (not (-> self flying)) (< (-> self bomb-hits) 4))
|
|
(let* ((s4-2 (-> arg3 param 0))
|
|
(v0-9 (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data 3)))
|
|
(s5-2 (-> self node-list data 3 bone transform))
|
|
(s4-3 (vector-normalize! (vector-! (new 'stack-no-clear 'vector) (the-as vector s4-2) v0-9) 1.0))
|
|
(f30-0 (vector-dot s4-3 (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> s5-2 vector 2) 1.0)))
|
|
(f28-0
|
|
(vector-dot s4-3 (vector-normalize-copy! (new 'stack-no-clear 'vector) (the-as vector (-> s5-2 vector)) 1.0))
|
|
)
|
|
)
|
|
(ja-channel-push! 1 (seconds 0.03))
|
|
(set! (-> self drill-speed target) 0.0)
|
|
(cond
|
|
((< (cos 5461.3335) f30-0)
|
|
(ja :group! (-> self draw art-group data 25) :num! min)
|
|
(setup-masks (-> self draw) 2 128)
|
|
)
|
|
((and (< (cos 8192.0) f30-0) (< 0.0 f28-0))
|
|
(ja :group! (-> self draw art-group data 26) :num! min)
|
|
(setup-masks (-> self draw) 4 256)
|
|
)
|
|
((< (cos 8192.0) f30-0)
|
|
(ja :group! (-> self draw art-group data 27) :num! min)
|
|
(setup-masks (-> self draw) 8 512)
|
|
)
|
|
((< 0.0 f28-0)
|
|
(ja :group! (-> self draw art-group data 23) :num! min)
|
|
(setup-masks (-> self draw) 16 1024)
|
|
)
|
|
(else
|
|
(ja :group! (-> self draw art-group data 24) :num! min)
|
|
(setup-masks (-> self draw) 32 2048)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(when (-> self flying)
|
|
(set! (-> self drill-speed target) 0.0)
|
|
(cond
|
|
((>= (-> self bomb-hits) 4)
|
|
#f
|
|
)
|
|
((begin
|
|
(ja-channel-push! 1 (seconds 0.03))
|
|
(let* ((gp-3 (-> arg3 param 0))
|
|
(v0-28 (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data 3)))
|
|
(s5-8 (-> self node-list data 3 bone transform))
|
|
(f0-20 (vector-dot
|
|
(vector-normalize! (vector-! (new 'stack-no-clear 'vector) (the-as vector gp-3) v0-28) 1.0)
|
|
(vector-normalize-copy! (new 'stack-no-clear 'vector) (the-as vector (-> s5-8 vector)) 1.0)
|
|
)
|
|
)
|
|
)
|
|
(< 0.0 f0-20)
|
|
)
|
|
)
|
|
(ja :group! (-> self draw art-group data 37) :num! min)
|
|
(the-as object (setup-masks (-> self draw) 16 1024))
|
|
)
|
|
(else
|
|
(ja :group! (-> self draw art-group data 36) :num! min)
|
|
(the-as object (setup-masks (-> self draw) 32 2048))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|