mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
844 lines
30 KiB
Common Lisp
844 lines
30 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: bully.gc
|
|
;; name in dgo: bully
|
|
;; dgos: L1, SUN, SUNKEN
|
|
|
|
(declare-type bully process-drawable)
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(import "goal_src/jak1/import/bully-ag.gc")
|
|
|
|
(deftype bully-broken-cage (process-drawable)
|
|
((parent-override (pointer bully) :offset 12)
|
|
)
|
|
:heap-base #x40
|
|
:method-count-assert 20
|
|
:size-assert #xb0
|
|
:flag-assert #x14004000b0
|
|
(:states
|
|
bully-broken-cage-explode
|
|
)
|
|
)
|
|
|
|
|
|
(deftype bully (process-drawable)
|
|
((root-override collide-shape-moving :offset 112)
|
|
(fact-override fact-info-enemy :offset 144)
|
|
(hit-player? symbol :offset-assert 176)
|
|
(bounced? symbol :offset-assert 180)
|
|
(bounce-volume int32 :offset-assert 184)
|
|
(facing-ry float :offset-assert 188)
|
|
(travel-ry float :offset-assert 192)
|
|
(speed-u float :offset-assert 196)
|
|
(spin-vel float :offset-assert 200)
|
|
(travel-speed float :offset-assert 204)
|
|
(reaction-delay time-frame :offset-assert 208)
|
|
(start-spin-time time-frame :offset-assert 216)
|
|
(slow-down time-frame :offset-assert 224)
|
|
(hit-player-time time-frame :offset-assert 232)
|
|
(neck joint-mod :offset-assert 240)
|
|
)
|
|
:heap-base #x90
|
|
:method-count-assert 21
|
|
:size-assert #xf4
|
|
:flag-assert #x15009000f4
|
|
(:methods
|
|
(dummy-20 (_type_) float 20)
|
|
)
|
|
(:states
|
|
bully-die
|
|
(bully-idle symbol)
|
|
bully-notice
|
|
bully-start-spinning
|
|
bully-stop-spinning
|
|
)
|
|
)
|
|
|
|
|
|
(defskelgroup *bully-sg* bully bully-lod0-jg bully-idle-ja
|
|
((bully-lod0-mg (meters 20)) (bully-lod1-mg (meters 40)) (bully-lod2-mg (meters 999999)))
|
|
:bounds (static-spherem 0 1.5 0 3)
|
|
:shadow bully-shadow-mg
|
|
)
|
|
|
|
(defskelgroup *bully-broken-cage-sg* bully bully-broken-cage-lod0-jg -1
|
|
((bully-broken-cage-lod0-mg (meters 999999)))
|
|
:bounds (static-spherem 0 2 0 6)
|
|
)
|
|
|
|
(define *bully-shadow-control*
|
|
(new 'static 'shadow-control :settings (new 'static 'shadow-settings
|
|
:flags (shadow-flags shdf00 shdf03)
|
|
:shadow-dir (new 'static 'vector :y -1.0 :w 614400.0)
|
|
:bot-plane (new 'static 'plane :y 1.0 :w 10240.0)
|
|
:top-plane (new 'static 'plane :y 1.0 :w -2048.0)
|
|
:fade-dist 245760.0
|
|
)
|
|
)
|
|
)
|
|
|
|
(defpartgroup group-bully-explode
|
|
:id 454
|
|
:flags (use-local-clock)
|
|
:bounds (static-bspherem 0 0 0 8)
|
|
:parts ((sp-item 2871) (sp-item 2872) (sp-item 2873) (sp-item 2874) (sp-item 2875))
|
|
)
|
|
|
|
(defpart 2871
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
|
|
(sp-flt spt-num 16.0)
|
|
(sp-rnd-flt spt-y (meters 0.5) (meters 2) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-rnd-flt spt-r 128.0 32.0 1.0)
|
|
(sp-rnd-flt spt-g 128.0 32.0 1.0)
|
|
(sp-rnd-flt spt-b 128.0 32.0 1.0)
|
|
(sp-rnd-flt spt-a 32.0 16.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
|
|
(sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
|
|
(sp-flt spt-accel-y 2.7306666)
|
|
(sp-int spt-timer 120)
|
|
(sp-cpuinfo-flags bit2 bit12)
|
|
(sp-int-plain-rnd spt-next-time 30 59 1)
|
|
(sp-launcher-by-id spt-next-launcher 2876)
|
|
(sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
)
|
|
)
|
|
|
|
(defpart 2876
|
|
:init-specs ((sp-flt spt-fade-a -1.0666667))
|
|
)
|
|
|
|
(defpart 2872
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
|
|
(sp-flt spt-num 4.0)
|
|
(sp-flt spt-y (meters 1.5))
|
|
(sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
|
|
(sp-int spt-rot-x 4)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-rnd-flt spt-scale-y (meters 0.3) (meters 1) 1.0)
|
|
(sp-flt spt-r 192.0)
|
|
(sp-flt spt-g 192.0)
|
|
(sp-rnd-flt spt-b 64.0 128.0 1.0)
|
|
(sp-flt spt-a 0.0)
|
|
(sp-flt spt-scalevel-x (meters 0.009765625))
|
|
(sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
|
|
(sp-flt spt-scalevel-y (meters 0.009765625))
|
|
(sp-flt spt-fade-a 2.1333334)
|
|
(sp-int spt-timer 30)
|
|
(sp-cpuinfo-flags bit2 bit3)
|
|
(sp-int spt-next-time 15)
|
|
(sp-launcher-by-id spt-next-launcher 2877)
|
|
(sp-flt spt-rotate-y (degrees 0.0))
|
|
)
|
|
)
|
|
|
|
(defpart 2877
|
|
:init-specs ((sp-flt spt-fade-a -2.1333334))
|
|
)
|
|
|
|
(defpart 2873
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-y (meters 1.5))
|
|
(sp-flt spt-scale-x (meters 12))
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 196.0)
|
|
(sp-flt spt-g 196.0)
|
|
(sp-flt spt-b 196.0)
|
|
(sp-flt spt-a 48.0)
|
|
(sp-int spt-timer 10)
|
|
(sp-cpuinfo-flags bit2 bit3)
|
|
)
|
|
)
|
|
|
|
(defpart 2874
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
|
|
(sp-flt spt-num 16.0)
|
|
(sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
|
|
(sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
|
|
(sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-flt spt-scale-y (meters 0.3))
|
|
(sp-flt spt-r 160.0)
|
|
(sp-flt spt-g 160.0)
|
|
(sp-flt spt-b 160.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
|
|
(sp-flt spt-rotvel-x (degrees 1.2))
|
|
(sp-flt spt-rotvel-y (degrees 2.4))
|
|
(sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
|
|
(sp-flt spt-accel-y -13.653334)
|
|
(sp-flt spt-friction 0.97)
|
|
(sp-int spt-timer 150)
|
|
(sp-cpuinfo-flags bit2 bit12)
|
|
(sp-int spt-next-time 75)
|
|
(sp-launcher-by-id spt-next-launcher 2878)
|
|
(sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
)
|
|
)
|
|
|
|
(defpart 2878
|
|
:init-specs ((sp-flt spt-scalevel-x (meters -0.0033333334))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-a -3.4)
|
|
)
|
|
)
|
|
|
|
(defpart 2875
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
|
|
(sp-flt spt-num 16.5)
|
|
(sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
|
|
(sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
|
|
(sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
|
|
(sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
|
|
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-flt spt-scale-y (meters 0.3))
|
|
(sp-flt spt-r 100.0)
|
|
(sp-flt spt-g 100.0)
|
|
(sp-flt spt-b 100.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
|
|
(sp-flt spt-rotvel-x (degrees 1.2))
|
|
(sp-flt spt-rotvel-y (degrees 2.4))
|
|
(sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
|
|
(sp-flt spt-accel-y -13.653334)
|
|
(sp-flt spt-friction 0.97)
|
|
(sp-int spt-timer 150)
|
|
(sp-cpuinfo-flags bit2 bit12)
|
|
(sp-int spt-next-time 75)
|
|
(sp-launcher-by-id spt-next-launcher 2878)
|
|
(sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
)
|
|
)
|
|
|
|
(defstate bully-broken-cage-explode (bully-broken-cage)
|
|
:code (behavior ()
|
|
(ja-channel-push! 1 0)
|
|
(ja-no-eval :group! bully-broken-cage-explode-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior bully-broken-cage) ja-post)
|
|
)
|
|
|
|
(defbehavior bully-broken-cage-init-by-other bully-broken-cage ((arg0 entity-actor))
|
|
(set! (-> self entity) arg0)
|
|
(set! (-> self root) (new 'process 'trsqv))
|
|
(set! (-> self root trans quad) (-> self parent-override 0 root-override trans quad))
|
|
(quaternion-copy! (-> self root quat) (-> self parent-override 0 root-override quat))
|
|
(set! (-> self root scale quad) (-> self parent-override 0 root-override scale quad))
|
|
(initialize-skeleton self *bully-broken-cage-sg* '())
|
|
(go bully-broken-cage-explode)
|
|
(none)
|
|
)
|
|
|
|
;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 48]
|
|
;; WARN: disable def twice: 148. This may happen when a cond (no else) is nested inside of another conditional, but it should be rare.
|
|
;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 229]
|
|
;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 248]
|
|
(defbehavior bully-default-event-handler bully ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
|
|
(local-vars (v0-0 none))
|
|
(let ((v1-0 arg2))
|
|
(the-as
|
|
object
|
|
(when (or (= v1-0 'touch) (= v1-0 'touched) (= v1-0 'attack))
|
|
(cond
|
|
((= (-> arg0 type) bully)
|
|
(let ((v1-3 (new 'stack-no-clear 'vector)))
|
|
(vector-! v1-3 (-> self root-override trans) (-> (the-as process-drawable arg0) root trans))
|
|
(set! (-> self travel-ry) (atan (-> v1-3 x) (-> v1-3 z)))
|
|
)
|
|
(set! (-> self bounced?) #t)
|
|
(set! v0-0 (the-as none 100))
|
|
(set! (-> self bounce-volume) (the-as int v0-0))
|
|
v0-0
|
|
)
|
|
((= (-> arg0 type) target)
|
|
(cond
|
|
((= (-> arg3 param 1) 'flop)
|
|
(go bully-die)
|
|
(return (the-as object #t))
|
|
v0-0
|
|
)
|
|
((or (= arg2 'touch) (= arg2 'attack))
|
|
(cond
|
|
((>= (- (-> (target-pos 0) y) (-> self root-override trans y)) 6144.0)
|
|
(let* ((f0-6 (fmax 0.6 (* 0.000023935356 (-> self travel-speed))))
|
|
(f28-0 (* 8192.0 f0-6))
|
|
(f30-0 (* 8192.0 f0-6))
|
|
(s4-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(vector-! s4-0 (target-pos 0) (-> self root-override trans))
|
|
(let ((f26-0 (atan (-> s4-0 x) (-> s4-0 z))))
|
|
(when (< 0.0 (-> self travel-speed))
|
|
(let ((f0-11 (deg- f26-0 (-> self travel-ry))))
|
|
(if (< (fabs f0-11) 8192.0)
|
|
(set! f26-0 (if (>= f0-11 0.0)
|
|
(+ 8192.0 f26-0)
|
|
(+ -8192.0 f26-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set-vector! s4-0 (* (sin f26-0) f28-0) 0.0 (* (cos f26-0) f28-0) 1.0)
|
|
)
|
|
(when (send-event arg0 'shove (-> arg3 param 0) (static-attack-info ((shove-up f30-0) (vector s4-0))))
|
|
(level-hint-spawn
|
|
(game-text-id sunken-bully-dive-hint)
|
|
"sksp0131"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(set! (-> self bounced?) #t)
|
|
(set! v0-0 (the-as none 100))
|
|
(set! (-> self bounce-volume) (the-as int v0-0))
|
|
v0-0
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(let ((f0-21 (fmax 0.6 (* 0.000023935356 (-> self travel-speed)))))
|
|
(when (send-event
|
|
arg0
|
|
'attack
|
|
(-> arg3 param 0)
|
|
(static-attack-info ((shove-up (* 12288.0 f0-21)) (shove-back (* 16384.0 f0-21))))
|
|
)
|
|
(level-hint-spawn
|
|
(game-text-id sunken-bully-dive-hint)
|
|
"sksp0131"
|
|
(the-as entity #f)
|
|
*entity-pool*
|
|
(game-task none)
|
|
)
|
|
(set! (-> self hit-player?) #t)
|
|
(set! (-> self bounced?) #t)
|
|
(set! (-> self bounce-volume) 100)
|
|
(set! (-> self hit-player-time) (-> *display* base-frame-counter))
|
|
(set-collide-offense (-> self root-override) 2 (collide-offense no-offense))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(when (= arg2 'touched)
|
|
(cond
|
|
((= (-> arg0 type) target)
|
|
(send-event arg0 'attack (-> arg3 param 0) (static-attack-info ((mode 'explode))))
|
|
)
|
|
(else
|
|
(let ((a1-14 (new 'stack-no-clear 'event-message-block)))
|
|
(set! (-> a1-14 from) self)
|
|
(set! (-> a1-14 num-params) 4)
|
|
(set! (-> a1-14 message) 'attack)
|
|
(set! (-> a1-14 param 0) (-> arg3 param 0))
|
|
(set! (-> a1-14 param 1) (the-as uint 'explode))
|
|
(let ((v1-48 (+ *global-attack-id* 1)))
|
|
(set! *global-attack-id* v1-48)
|
|
(set! (-> a1-14 param 2) (the-as uint v1-48))
|
|
)
|
|
(set! (-> a1-14 param 3) (the-as uint 0))
|
|
(send-event-function arg0 a1-14)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defbehavior bully-post bully ()
|
|
(when (and (-> self hit-player?)
|
|
(or (not *target*)
|
|
(and (zero? (logand (-> *target* state-flags)
|
|
(state-flags being-attacked invulnerable timed-invulnerable invuln-powerup do-not-notice dying)
|
|
)
|
|
)
|
|
(>= (- (-> *display* base-frame-counter) (-> self hit-player-time)) (seconds 0.05))
|
|
)
|
|
)
|
|
)
|
|
(set-collide-offense (-> self root-override) 2 (collide-offense normal-attack))
|
|
(set! (-> self hit-player?) #f)
|
|
)
|
|
(transform-post)
|
|
(none)
|
|
)
|
|
|
|
(defmethod dummy-20 bully ((obj bully))
|
|
(local-vars (at-0 int))
|
|
(rlet ((vf0 :class vf)
|
|
(vf1 :class vf)
|
|
(vf2 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(set-vector!
|
|
(-> obj root-override transv)
|
|
(* (sin (-> obj travel-ry)) (-> obj travel-speed))
|
|
0.0
|
|
(* (cos (-> obj travel-ry)) (-> obj travel-speed))
|
|
1.0
|
|
)
|
|
(let ((s5-1 #f))
|
|
(TODO-RENAME-28 (-> obj nav) (collide-kind wall-object ground-object))
|
|
(let ((v1-4 (-> obj nav travel)))
|
|
(.lvf vf1 (&-> (-> obj root-override transv) quad))
|
|
(let ((f0-8 (-> *display* seconds-per-frame)))
|
|
(.mov at-0 f0-8)
|
|
)
|
|
(.mov vf2 at-0)
|
|
(.mov.vf vf1 vf0 :mask #b1000)
|
|
(.mul.x.vf vf1 vf1 vf2 :mask #b111)
|
|
(.svf (&-> v1-4 quad) vf1)
|
|
)
|
|
(let ((s4-0 (new 'stack-no-clear 'check-vector-collision-with-nav-spheres-info)))
|
|
(when (>= (dummy-23 (-> obj nav) (-> obj nav travel) s4-0) 0.0)
|
|
(let ((s5-2 (new 'stack-no-clear 'vector)))
|
|
(set! (-> s5-2 quad) (-> s4-0 normal quad))
|
|
(set! (-> s5-2 y) 0.0)
|
|
(vector-normalize! s5-2 1.0)
|
|
(vector-reflect! (-> obj root-override transv) (-> obj root-override transv) s5-2)
|
|
)
|
|
(set! (-> obj travel-ry) (atan (-> obj root-override transv x) (-> obj root-override transv z)))
|
|
(+! (-> obj travel-ry) (rand-vu-float-range -910.2222 910.2222))
|
|
(vector-reset! (-> obj root-override transv))
|
|
(set! s5-1 #t)
|
|
(set! (-> obj bounced?) #t)
|
|
(set! (-> obj bounce-volume) 100)
|
|
)
|
|
)
|
|
(when (not s5-1)
|
|
(vector-normalize-copy! (-> obj nav travel) (-> obj root-override transv) 2048.0)
|
|
(let ((s5-3 (new 'stack 'clip-travel-vector-to-mesh-return-info)))
|
|
(dummy-24 (-> obj nav) 2048.0 s5-3)
|
|
(when (and (-> s5-3 found-boundary)
|
|
(>= (* (-> obj travel-speed) (-> *display* seconds-per-frame))
|
|
(vector-vector-xz-distance (-> s5-3 intersection) (-> obj root-override trans))
|
|
)
|
|
)
|
|
(let ((s4-1 (new 'stack-no-clear 'vector)))
|
|
(vector-negate! s4-1 (-> s5-3 boundary-normal))
|
|
(set! (-> s4-1 y) 0.0)
|
|
(vector-normalize! s4-1 1.0)
|
|
(vector-reflect! (-> obj root-override transv) (-> obj root-override transv) s4-1)
|
|
)
|
|
(set! (-> obj travel-ry) (atan (-> obj root-override transv x) (-> obj root-override transv z)))
|
|
(+! (-> obj travel-ry) (rand-vu-float-range -910.2222 910.2222))
|
|
(vector-reset! (-> obj root-override transv))
|
|
#t
|
|
(set! (-> obj bounced?) #t)
|
|
(set! (-> obj bounce-volume) 60)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(let ((f0-25 (+ -36864.0 (-> obj root-override transv y))))
|
|
(set! (-> obj root-override transv y) f0-25)
|
|
f0-25
|
|
)
|
|
)
|
|
)
|
|
|
|
(defstate bully-idle (bully)
|
|
:event bully-default-event-handler
|
|
:enter (behavior ((arg0 symbol))
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(set! (-> self reaction-delay) (rand-vu-int-range 0 (seconds 0.35)))
|
|
(set! (-> self travel-speed) 0.0)
|
|
(shut-down! (-> self neck))
|
|
(let ((v1-5 (-> self draw shadow-ctrl)))
|
|
(logior! (-> v1-5 settings flags) (shadow-flags disable-draw))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
:exit (behavior ()
|
|
(let ((v1-1 (-> self draw shadow-ctrl)))
|
|
(logclear! (-> v1-1 settings flags) (shadow-flags disable-draw))
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
:trans (behavior ()
|
|
(when (and (and *target* (>= (-> self fact-override idle-distance)
|
|
(vector-vector-distance (-> self root-override trans) (-> *target* control trans))
|
|
)
|
|
)
|
|
(>= (- (-> *display* base-frame-counter) (-> self state-time)) (-> self reaction-delay))
|
|
)
|
|
(start-hint-timer (game-text-id sunken-bully-dive-hint))
|
|
(go bully-notice)
|
|
)
|
|
(none)
|
|
)
|
|
:code (behavior ((arg0 symbol))
|
|
(ja-channel-push! 1 (seconds 0.075))
|
|
(if arg0
|
|
(ja :group! bully-idle-ja
|
|
:num! (identity (rand-vu-float-range 0.0 (the float (+ (-> (ja-group) data 0 length) -1))))
|
|
)
|
|
(ja :group! bully-idle-ja :num! min)
|
|
)
|
|
(loop
|
|
(suspend)
|
|
(ja :num! (loop!))
|
|
)
|
|
(none)
|
|
)
|
|
:post bully-post
|
|
)
|
|
|
|
(defstate bully-notice (bully)
|
|
:event bully-default-event-handler
|
|
:trans (behavior ()
|
|
(when *target*
|
|
(if *target*
|
|
(look-at-enemy!
|
|
(-> *target* neck)
|
|
(the-as vector (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 0 prim-core))
|
|
'attacking
|
|
self
|
|
)
|
|
)
|
|
(set-target! (-> self neck) (target-pos 5))
|
|
)
|
|
(none)
|
|
)
|
|
:code (behavior ()
|
|
(set! (-> self travel-speed) 0.0)
|
|
(ja-channel-push! 1 (seconds 0.075))
|
|
(set-vector! (-> self root-override transv) 0.0 (rand-vu-float-range 61440.0 90112.0) 0.0 1.0)
|
|
(ja-no-eval :group! bully-notice-jump-up-ja :num! (seek! (ja-aframe 13.0 0)) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek! (ja-aframe 13.0 0)))
|
|
)
|
|
(until (logtest? (-> self root-override status) (cshape-moving-flags onsurf))
|
|
(ja :num! (seek!))
|
|
(+! (-> self root-override transv y) (* -545996.8 (-> *display* seconds-per-frame)))
|
|
(integrate-for-enemy-with-move-to-ground!
|
|
(-> self root-override)
|
|
(-> self root-override transv)
|
|
(collide-kind background)
|
|
12288.0
|
|
#f
|
|
#f
|
|
#f
|
|
)
|
|
(when *target*
|
|
(let ((gp-3 (new 'stack-no-clear 'vector)))
|
|
(vector-! gp-3 (target-pos 0) (-> self root-override trans))
|
|
(seek-toward-heading-vec! (-> self root-override) gp-3 524288.0 (seconds 0.1))
|
|
)
|
|
(set! (-> self facing-ry) (quaternion-y-angle (-> self root-override quat)))
|
|
)
|
|
(suspend)
|
|
)
|
|
(ja-no-eval :group! bully-notice-land-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(go bully-start-spinning)
|
|
(none)
|
|
)
|
|
:post bully-post
|
|
)
|
|
|
|
(defstate bully-start-spinning (bully)
|
|
:event bully-default-event-handler
|
|
:enter (behavior ()
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(set! (-> self start-spin-time) (-> *display* base-frame-counter))
|
|
(set! (-> self slow-down) (rand-vu-int-range (seconds 4) (seconds 8)))
|
|
(set! (-> self speed-u) 0.2)
|
|
(set! (-> self bounced?) #f)
|
|
(let ((gp-0 (new 'stack-no-clear 'vector)))
|
|
(if *target*
|
|
(vector-! gp-0 (target-pos 0) (-> self root-override trans))
|
|
(vector-z-quaternion! gp-0 (-> self root-override quat))
|
|
)
|
|
(set! (-> self travel-ry) (atan (-> gp-0 x) (-> gp-0 z)))
|
|
)
|
|
(+! (-> self travel-ry) (rand-vu-float-range -910.2222 910.2222))
|
|
(none)
|
|
)
|
|
:trans (behavior ()
|
|
(when *target*
|
|
(if *target*
|
|
(look-at-enemy!
|
|
(-> *target* neck)
|
|
(the-as vector (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 0 prim-core))
|
|
'attacking
|
|
self
|
|
)
|
|
)
|
|
(set-target! (-> self neck) (target-pos 5))
|
|
)
|
|
(cond
|
|
((>= (- (-> *display* base-frame-counter) (-> self start-spin-time)) (-> self slow-down))
|
|
(seek! (-> self speed-u) 0.0 (* 0.5555556 (-> *display* seconds-per-frame)))
|
|
(if (= (-> self speed-u) 0.0)
|
|
(go bully-stop-spinning)
|
|
)
|
|
)
|
|
(else
|
|
(seek! (-> self speed-u) 1.0 (* 0.5555556 (-> *display* seconds-per-frame)))
|
|
)
|
|
)
|
|
(set! (-> self spin-vel) (* 196608.0 (-> self speed-u)))
|
|
(set! (-> self travel-speed) (* 41779.2 (-> self speed-u)))
|
|
(+! (-> self facing-ry) (* (-> self spin-vel) (-> *display* seconds-per-frame)))
|
|
(quaternion-axis-angle! (-> self root-override quat) 0.0 1.0 0.0 (-> self facing-ry))
|
|
(dummy-20 self)
|
|
(integrate-for-enemy-with-move-to-ground!
|
|
(-> self root-override)
|
|
(-> self root-override transv)
|
|
(collide-kind background)
|
|
8192.0
|
|
#f
|
|
#f
|
|
#f
|
|
)
|
|
(TODO-RENAME-27 (-> self nav))
|
|
(none)
|
|
)
|
|
:code (behavior ()
|
|
(local-vars (v1-34 symbol) (v1-52 symbol))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja-no-eval :group! bully-start-spin-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(set! (-> self bounced?) #f)
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja :group! bully-spin-ja :num! min)
|
|
(loop
|
|
(until v1-34
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
(set! v1-34 (or (ja-done? 0) (-> self bounced?)))
|
|
)
|
|
(when (-> self bounced?)
|
|
(sound-play "bully-bounce" :vol (the float (-> self bounce-volume)))
|
|
(until (not (-> self bounced?))
|
|
(set! (-> self bounced?) #f)
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja :group! bully-idle-bounced-ja :num! min)
|
|
(until v1-52
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
(set! v1-52 (or (ja-done? 0) (-> self bounced?)))
|
|
)
|
|
)
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
)
|
|
(ja :group! bully-spin-ja :num! min)
|
|
)
|
|
(none)
|
|
)
|
|
:post bully-post
|
|
)
|
|
|
|
(defstate bully-stop-spinning (bully)
|
|
:event bully-default-event-handler
|
|
:enter (behavior ()
|
|
(set! (-> self state-time) (-> *display* base-frame-counter))
|
|
(set! (-> self reaction-delay) (rand-vu-int-range (seconds 2) (seconds 3)))
|
|
(set! (-> self travel-speed) 0.0)
|
|
(set! (-> self bounced?) #f)
|
|
(none)
|
|
)
|
|
:trans (behavior ()
|
|
(when *target*
|
|
(if *target*
|
|
(look-at-enemy!
|
|
(-> *target* neck)
|
|
(the-as vector (-> (the-as collide-shape-prim-group (-> self root-override root-prim)) prims 0 prim-core))
|
|
'attacking
|
|
self
|
|
)
|
|
)
|
|
(set-target! (-> self neck) (target-pos 5))
|
|
)
|
|
(none)
|
|
)
|
|
:code (behavior ()
|
|
(local-vars (v1-17 symbol) (v1-35 symbol))
|
|
(let ((gp-0 2))
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(until (>= (- (-> *display* base-frame-counter) (-> self state-time)) (-> self reaction-delay))
|
|
(cond
|
|
((>= gp-0 0)
|
|
(+! gp-0 -1)
|
|
(ja :group! bully-dizzy-ja :num! min)
|
|
)
|
|
(else
|
|
(ja :group! bully-idle-ja :num! min)
|
|
)
|
|
)
|
|
(until v1-17
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
(set! v1-17 (or (ja-done? 0) (-> self bounced?)))
|
|
)
|
|
(when (-> self bounced?)
|
|
(sound-play "bully-bounce" :vol (the float (-> self bounce-volume)))
|
|
(set! gp-0 0)
|
|
(until (not (-> self bounced?))
|
|
(set! (-> self bounced?) #f)
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
(ja :group! bully-idle-bounced-ja :num! min)
|
|
(until v1-35
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
(set! v1-35 (or (ja-done? 0) (-> self bounced?)))
|
|
)
|
|
)
|
|
(ja-channel-push! 1 (seconds 0.2))
|
|
)
|
|
)
|
|
)
|
|
(if (or (not *target*) (< (-> self fact-override idle-distance)
|
|
(vector-vector-distance (-> self root-override trans) (-> *target* control trans))
|
|
)
|
|
)
|
|
(go bully-idle #f)
|
|
)
|
|
(go bully-start-spinning)
|
|
(none)
|
|
)
|
|
:post bully-post
|
|
)
|
|
|
|
(defstate bully-die (bully)
|
|
:code (behavior ()
|
|
(cleanup-for-death self)
|
|
(shut-down! (-> self neck))
|
|
(logclear! (-> self mask) (process-mask actor-pause))
|
|
(process-spawn bully-broken-cage (-> self entity) :to self)
|
|
(spawn (-> self part) (-> self root-override trans))
|
|
(clear-collide-with-as (-> self root-override))
|
|
(drop-pickup (-> self fact-override) #t *entity-pool* (-> self fact-override) 0)
|
|
(ja-channel-push! 1 (seconds 0.075))
|
|
(ja-no-eval :group! bully-die-ja :num! (seek!) :frame-num 0.0)
|
|
(until (ja-done? 0)
|
|
(suspend)
|
|
(ja :num! (seek!))
|
|
)
|
|
(increment-success-for-hint (game-text-id sunken-bully-dive-hint))
|
|
(logior! (-> self draw status) (draw-status hidden))
|
|
(while (-> self child)
|
|
(suspend)
|
|
)
|
|
(none)
|
|
)
|
|
:post (the-as (function none :behavior bully) transform-post)
|
|
)
|
|
|
|
(defmethod relocate bully ((obj bully) (arg0 int))
|
|
(if (nonzero? (-> obj neck))
|
|
(&+! (-> obj neck) arg0)
|
|
)
|
|
(the-as
|
|
bully
|
|
((the-as (function process-drawable int process-drawable) (find-parent-method bully 7)) obj arg0)
|
|
)
|
|
)
|
|
|
|
(defmethod init-from-entity! bully ((obj bully) (arg0 entity-actor))
|
|
(set! (-> obj hit-player?) #f)
|
|
(set! (-> obj bounced?) #f)
|
|
(set! (-> obj bounce-volume) 100)
|
|
(set! (-> obj spin-vel) 0.0)
|
|
(set! (-> obj travel-speed) 0.0)
|
|
(set! (-> obj mask) (logior (process-mask enemy) (-> obj mask)))
|
|
(let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player))))
|
|
(set! (-> s4-0 dynam) (copy *standard-dynamics* 'process))
|
|
(set! (-> s4-0 reaction) default-collision-reaction)
|
|
(set! (-> s4-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
|
|
)
|
|
(let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0)))
|
|
(set! (-> s3-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s3-0 collide-with) (collide-kind cak-2 target crate enemy))
|
|
(set! (-> s3-0 prim-core action) (collide-action solid ca-10 ca-11))
|
|
(set! (-> s3-0 prim-core offense) (collide-offense normal-attack))
|
|
(set-vector! (-> s3-0 local-sphere) 0.0 6144.0 0.0 10240.0)
|
|
(set-root-prim! s4-0 s3-0)
|
|
(let ((s2-0 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 3))))
|
|
(set! (-> s2-0 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-0 collide-with) (collide-kind cak-2 target crate enemy))
|
|
(set! (-> s2-0 prim-core action) (collide-action solid ca-10 ca-11))
|
|
(set! (-> s2-0 prim-core offense) (collide-offense normal-attack))
|
|
(set-vector! (-> s2-0 local-sphere) 0.0 4096.0 0.0 6963.2)
|
|
(append-prim s3-0 s2-0)
|
|
)
|
|
(let ((s2-1 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 3))))
|
|
(set! (-> s2-1 prim-core collide-as) (collide-kind enemy))
|
|
(set! (-> s2-1 collide-with) (collide-kind cak-2 target crate enemy))
|
|
(set! (-> s2-1 prim-core action) (collide-action solid ca-10 ca-11))
|
|
(set! (-> s2-1 prim-core offense) (collide-offense normal-attack))
|
|
(set-vector! (-> s2-1 local-sphere) 0.0 9420.8 0.0 4096.0)
|
|
(append-prim s3-0 s2-1)
|
|
)
|
|
)
|
|
(set! (-> s4-0 nav-radius) 7680.0)
|
|
(backup-collide-with-as s4-0)
|
|
(set! (-> obj root-override) s4-0)
|
|
)
|
|
(set! (-> obj root-override event-self) 'touched)
|
|
(set! (-> obj root-override event-other) 'touch)
|
|
(process-drawable-from-entity! obj arg0)
|
|
(initialize-skeleton obj *bully-sg* '())
|
|
(set! (-> obj draw shadow-ctrl) *bully-shadow-control*)
|
|
(set! (-> obj nav) (new 'process 'nav-control (-> obj root-override) 16 40960.0))
|
|
(logior! (-> obj nav flags) (nav-control-flags display-marks navcf3 navcf5 navcf6 navcf7))
|
|
(set! (-> obj part) (create-launch-control (-> *part-group-id-table* 454) obj))
|
|
(set! (-> obj fact-override)
|
|
(new 'process 'fact-info-enemy obj (pickup-type eco-pill-random) (-> *FACT-bank* default-pill-inc))
|
|
)
|
|
(let ((v1-49 (new 'process 'joint-mod (joint-mod-handler-mode reset) obj 5)))
|
|
(set! (-> obj neck) v1-49)
|
|
(set-vector! (-> obj neck twist-max) 8192.0 8192.0 0.0 1.0)
|
|
(set! (-> v1-49 up) (the-as uint 1))
|
|
(set! (-> v1-49 nose) (the-as uint 2))
|
|
(set! (-> v1-49 ear) (the-as uint 0))
|
|
(set! (-> v1-49 max-dist) 102400.0)
|
|
(set! (-> v1-49 ignore-angle) 16384.0)
|
|
)
|
|
(transform-post)
|
|
(if (not (move-to-ground (-> obj root-override) 12288.0 40960.0 #t (collide-kind background)))
|
|
(go process-drawable-art-error "no ground")
|
|
)
|
|
(set! (-> obj facing-ry) (quaternion-y-angle (-> obj root-override quat)))
|
|
(go bully-idle #t)
|
|
(none)
|
|
)
|
|
|
|
|
|
|
|
|