mirror/jak-project
1
0
Fork 0
mirror of https://github.com/open-goal/jak-project synced 2026-08-26 16:16:36 -04:00
Code Issues Packages Projects Releases Wiki Activity
Files
e0be847b8a41af44e94aed37fdace3344e4fa8a8
jak-project/goal_src/engine/game/projectiles.gc
T
Ziemas 766b328c97 Overlord sound player (#1239) 
* Accept player RPC commands in overlord

* Remove the .projectile file

I use emacs for everything so I don't want it to only look at the goal code.

* Fill out most of the unique player structs

* Decompile most of ssound.c

* Silence some spam

* Comment out WaitSema instance

* Add a file with definitions for snd_ functions

Makes it compile without commenting them out.

Maybe it'd be nice to maintain the original API usage in overlord for
similarity and shim them to whatever API the player uses.

* Make SoundBank statically sized again.

Didn't realise this was used in an array. MSVC should be happy again.

Not sure what the actual size of these should be.

* Fix logic issue

* Finish RPC Loader

* More RPC_Player

* Play RPC command

* All the RPC commands added

* Call Music/Bank loaders

* audio: add almost all `.MUS` and `.SBK` files to build process

* Include TWEAKVAL in build output

* Load banks and music tweaks

* Comment out spam

* Sound struct unk -> is music

* Also test if empty1.sbk was found

For the sake of tests.

* Get rid of PC_DEBUG_SOUND_ENABLE

Co-authored-by: Tyler Wilding <xtvaser@gmail.com>
2022-03-22 18:53:36 -04:00

1309 lines
47 KiB
Common Lisp
Raw Blame History

;;-*-Lisp-*-
(in-package goal)
;; name: projectiles.gc
;; name in dgo: projectiles
;; dgos: GAME, ENGINE
;; DECOMP BEGINS
(deftype search-info (structure)
((point vector :inline :offset-assert 0)
(best-point vector :inline :offset-assert 16)
(match-handle handle :offset-assert 32)
(match projectile :offset-assert 40)
(best float :offset-assert 44)
(radius float :offset-assert 48)
(rating uint32 :offset-assert 52)
(require uint32 :offset-assert 56)
(mask uint32 :offset-assert 60)
(rot-base vector :inline :offset-assert 64)
(rot-range float :offset-assert 80)
)
:method-count-assert 9
:size-assert #x54
:flag-assert #x900000054
)
(define *search-info* (new 'global 'search-info))
(defun find-nearest-attackable ((arg0 vector) (arg1 float) (arg2 uint) (arg3 uint) (arg4 vector) (arg5 float))
(let ((gp-0 *search-info*))
(set! (-> gp-0 match) #f)
(set! (-> gp-0 point quad) (-> arg0 quad))
(set! (-> gp-0 radius) arg1)
(set! (-> gp-0 best) arg1)
(set! (-> gp-0 rating) (the-as uint 0))
(set! (-> gp-0 require) arg3)
(set! (-> gp-0 mask) arg2)
(set! (-> gp-0 rot-base quad) (-> arg4 quad))
(set! (-> gp-0 rot-range) (if (= arg5 65536.0)
-2.0
(cos arg5)
)
)
(iterate-process-tree
*entity-pool*
(lambda ((arg0 projectile))
(when (logtest? (process-mask crate enemy attackable) (-> arg0 mask))
(let* ((gp-0 *search-info*)
(s4-0 arg0)
(s5-0 (if (and (nonzero? s4-0) (type-type? (-> s4-0 type) process-drawable))
s4-0
)
)
)
(when s5-0
(let* ((s3-0 (-> s5-0 root-override))
(s4-1 (if (and (nonzero? s3-0) (type-type? (-> s3-0 type) collide-shape))
s3-0
)
)
)
(when (the-as collide-shape-moving s4-1)
(let* ((s3-1 (-> s4-1 root-prim prim-core))
(f30-0 (- (vector-vector-distance (-> gp-0 point) (the-as vector s3-1)) (-> s3-1 world-sphere w)))
)
(when (nonzero? (-> s4-1 root-prim prim-core collide-as))
(let ((s4-2 0)
(v1-8 (vector-normalize! (vector-! (new 'stack-no-clear 'vector) (the-as vector s3-1) (-> gp-0 point)) 1.0))
)
(if (logtest? (process-mask enemy) (-> s5-0 mask))
(set! s4-2 (logior s4-2 1))
)
(if (and (nonzero? (-> s5-0 draw)) (logtest? (-> s5-0 draw status) (draw-status was-drawn)))
(set! s4-2 (logior s4-2 2))
)
(let ((a0-16 (logand s4-2 (-> gp-0 mask))))
(when (and (>= a0-16 (the-as int (-> gp-0 rating)))
(or (zero? (-> gp-0 require)) (logtest? a0-16 (-> gp-0 require)))
(< f30-0 (-> gp-0 best))
(>= (vector-dot v1-8 (-> gp-0 rot-base)) (-> gp-0 rot-range))
)
(set! (-> gp-0 match) s5-0)
(set! (-> gp-0 best) f30-0)
(set! (-> gp-0 rating) (the-as uint a0-16))
a0-16
)
)
)
)
)
)
)
)
)
)
)
*null-kernel-context*
)
(-> gp-0 match)
)
)
(defun projectile-collision-reaction ((arg0 collide-shape-moving) (arg1 collide-shape-intersect) (arg2 vector) (arg3 vector))
(local-vars (sv-64 vector) (sv-68 vector) (sv-72 matrix) (sv-80 int) (sv-224 symbol))
(set! sv-64 (new-stack-vector0))
(set! sv-68 (new-stack-vector0))
(set! sv-72 (new 'stack-no-clear 'matrix))
(set! sv-80 0)
(set! (-> sv-72 vector 0 quad) (-> arg3 quad))
(let ((a1-1 (new 'stack-no-clear 'vector)))
(vector-float*! a1-1 (-> arg1 move-vec) (-> arg1 best-u))
(move-by-vector! arg0 a1-1)
)
(set-and-handle-pat! arg0 (-> arg1 best-tri pat))
(case (-> arg1 best-tri pat material)
(((pat-material stopproj))
(send-event (-> arg0 process) 'die)
)
)
(vector-! sv-64 (the-as vector (-> arg1 best-from-prim prim-core)) (-> arg1 best-tri intersect))
(set! (-> sv-64 w) 1.0)
(vector-normalize! sv-64 1.0)
(set! (-> arg0 coverage) (vector-dot sv-64 (-> arg1 best-tri normal)))
(let ((v1-22 (-> sv-64 quad)))
(set! (-> sv-68 quad) v1-22)
)
(when (= (-> arg1 best-u) 0.0)
(let ((a1-7 (vector-float*! (new 'stack-no-clear 'vector) sv-68 32.0)))
(move-by-vector! arg0 a1-7)
)
)
(set! (-> arg0 surface-normal quad) (-> sv-68 quad))
(set! (-> arg0 poly-normal quad) (-> arg1 best-tri normal quad))
(set! (-> arg0 surface-angle) (vector-dot sv-68 (-> arg0 dynam gravity-normal)))
(set! (-> arg0 poly-angle) (vector-dot (-> arg0 poly-normal) (-> arg0 dynam gravity-normal)))
(set! (-> arg0 touch-angle)
(vector-dot sv-68 (vector-normalize! (vector-negate! (new-stack-vector0) (the-as vector sv-72)) 1.0))
)
(if (< (-> arg0 poly-angle) -0.2)
(set! sv-80 (logior sv-80 16))
)
(set! sv-224 (< (fabs (-> arg0 surface-angle)) (-> *pat-mode-info* (-> arg0 cur-pat mode) wall-angle)))
(if (zero? (logand (-> arg0 prev-status) 1))
(set! (-> arg0 ground-impact-vel) (- (vector-dot (-> arg0 transv) (-> arg0 dynam gravity-normal))))
)
(set! sv-80 (logior sv-80 4))
(if (-> arg1 best-to-prim)
(set! sv-80 (logior sv-80 32))
)
(cond
(sv-224
(set! sv-80 (logior sv-80 8))
(set! (-> arg0 cur-pat mode) 1)
(set! (-> arg0 local-normal quad) (-> sv-68 quad))
)
(else
(set! sv-80 (logior sv-80 1))
(set! (-> arg0 local-normal quad) (-> sv-68 quad))
)
)
(vector-reflect-flat-above! arg2 (the-as vector sv-72) sv-68)
(when (and (not sv-224) (>= (-> arg0 coverage) 0.9))
(set! sv-80 (logior sv-80 2))
(set! (-> arg0 ground-poly-normal quad) (-> arg0 poly-normal quad))
(when (!= (-> arg0 poly-pat mode) (pat-mode wall))
(set! (-> arg0 ground-pat) (-> arg0 poly-pat))
(set! (-> arg0 ground-touch-point quad) (-> arg1 best-tri intersect quad))
)
)
(logior! (-> arg0 status) sv-80)
(the-as uint sv-80)
)
(defpartgroup group-yellow-eco-fireball
:id 102
:duration 300
:bounds (static-bspherem 0 0 0 3)
:parts
((sp-item 349 :flags (launch-asap) :binding 350)
(sp-item 350 :flags (start-dead launch-asap) :binding 351)
(sp-item 351 :flags (start-dead launch-asap) :binding 352)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 352 :flags (start-dead) :binding 353)
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
(sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
)
)
(defpart 349
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-scale-x (meters 0.01))
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-a 0.0)
(sp-int spt-timer 1200)
(sp-cpuinfo-flags bit3)
(sp-func spt-func 'sparticle-track-root-prim)
)
)
(defpart 350
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.0)
(sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
(sp-rnd-flt spt-y (meters 4) (meters 16) 1.0)
(sp-flt spt-z (meters 0))
(sp-flt spt-scale-x (meters 5))
(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 128.0 1.0)
(sp-rnd-flt spt-g 64.0 64.0 1.0)
(sp-flt spt-a 32.0)
(sp-rnd-int-flt spt-vel-x (meters -0.10666667) 1 873.81335)
(sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
(sp-int spt-timer 1200)
(sp-cpuinfo-flags bit2 bit3 bit7)
)
)
(defpart 351
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 2.0)
(sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
(sp-flt spt-z (meters 0))
(sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 64.0 64.0 1.0)
(sp-flt spt-a 64.0)
(sp-rnd-flt spt-omega 0.0 65536.0 1.0)
(sp-flt spt-vel-x (meters 0.11259259))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
(sp-int spt-timer 1200)
(sp-cpuinfo-flags bit2 bit3 bit7)
)
)
(defpart 352
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 1.0)
(sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 128.0 128.0 1.0)
(sp-rnd-flt spt-g 64.0 64.0 1.0)
(sp-flt spt-a 64.0)
(sp-flt spt-scalevel-x (meters -0.02))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -1.0)
(sp-int spt-timer 54)
(sp-cpuinfo-flags bit2 bit3)
)
)
(defpart 353
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-rnd-flt spt-num 0.5 0.5 1.0)
(sp-flt spt-y (meters -0.05))
(sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 100.0 28.0 1.0)
(sp-rnd-flt spt-g 64.0 64.0 1.0)
(sp-flt spt-b 0.0)
(sp-flt spt-a 96.0)
(sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.011666667) 1.0)
(sp-flt spt-scalevel-x (meters -0.000909091))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -0.4)
(sp-flt spt-fade-a -0.024242423)
(sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
(sp-flt spt-friction 0.93)
(sp-int-plain-rnd spt-timer 30 299 1)
(sp-cpuinfo-flags bit2 bit3)
(sp-int spt-next-time 90)
(sp-launcher-by-id spt-next-launcher 354)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-flt spt-conerot-radius (meters 0.3))
)
)
(defpart 354
:init-specs
((sp-flt spt-fade-r 0.0))
)
(defpartgroup group-part-yellow-eco-fireball-launcher
:id 103
:duration 600
:bounds (static-bspherem 0 0 0 6)
:parts
((sp-item 355 :flags (launch-asap))
(sp-item 356 :flags (bit1) :period 630 :length 15)
(sp-item 357 :flags (launch-asap))
(sp-item 358 :flags (launch-asap) :binding 359)
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
(sp-item 359 :flags (start-dead launch-asap))
)
)
(defpart 355
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-scale-x (meters 8))
(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 255.0)
(sp-flt spt-g 128.0)
(sp-flt spt-a 64.0)
(sp-flt spt-scalevel-x (meters -0.06666667))
(sp-rnd-int-flt spt-rotvel-z (degrees -204.8) 1 74565.41)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a 0.0)
(sp-int spt-timer 60)
(sp-cpuinfo-flags bit2 bit3)
)
)
(defpart 357
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 5.0)
(sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
(sp-rnd-flt spt-y (meters -0.6) (meters 1.2) 1.0)
(sp-rnd-flt spt-z (meters -0.6) (meters 1.2) 1.0)
(sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.75) 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 100.0 28.0 1.0)
(sp-rnd-flt spt-g 64.0 64.0 1.0)
(sp-flt spt-b 32.0)
(sp-rnd-flt spt-a 32.0 32.0 1.0)
(sp-flt spt-scalevel-x (meters 0.0044444446))
(sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -0.14222223)
(sp-flt spt-fade-a -0.14222223)
(sp-flt spt-accel-y -0.06826667)
(sp-int spt-timer 450)
(sp-cpuinfo-flags bit2 bit3)
)
)
(defpart 356
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 12.0)
(sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 100.0 28.0 1.0)
(sp-rnd-flt spt-g 64.0 64.0 1.0)
(sp-flt spt-b 0.0)
(sp-flt spt-a 128.0)
(sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
(sp-flt spt-scalevel-x (meters -0.0025000002))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -1.0666667)
(sp-flt spt-fade-a -0.17777778)
(sp-flt spt-accel-y -4.096)
(sp-flt spt-friction 0.99)
(sp-int-plain-rnd spt-timer 60 59 1)
(sp-cpuinfo-flags bit2 bit3)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 180.0) 1.0)
)
)
(defpart 360
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 24.0)
(sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 100.0 28.0 1.0)
(sp-rnd-flt spt-g 64.0 64.0 1.0)
(sp-flt spt-b 0.0)
(sp-flt spt-a 128.0)
(sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
(sp-flt spt-scalevel-x (meters -0.0025000002))
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -1.0666667)
(sp-flt spt-fade-a -0.17777778)
(sp-flt spt-accel-y -4.096)
(sp-flt spt-friction 0.99)
(sp-int-plain-rnd spt-timer 60 59 1)
(sp-cpuinfo-flags bit2 bit3)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
)
)
(defpart 358
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 16.0)
(sp-flt spt-scale-x (meters 0.1))
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-a 1.0)
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
(sp-flt spt-accel-y -2.048)
(sp-flt spt-friction 0.99)
(sp-int spt-timer 330)
(sp-cpuinfo-flags bit2 bit3)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 100.00001) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 180.0) 1.0)
)
)
(defpart 361
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 32.0)
(sp-flt spt-scale-x (meters 0.1))
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-a 1.0)
(sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
(sp-flt spt-accel-y -2.048)
(sp-flt spt-friction 0.99)
(sp-int spt-timer 330)
(sp-cpuinfo-flags bit2 bit3)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
)
)
(defpart 359
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 1.0)
(sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
(sp-rnd-flt spt-z (meters 0.1) (meters 0.2) 1.0)
(sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 100.0 28.0 1.0)
(sp-rnd-flt spt-g 64.0 64.0 1.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-rnd-flt spt-omega 0.0 65536.0 1.0)
(sp-flt spt-vel-x (meters 0.10666667))
(sp-flt spt-scalevel-x (meters -0.000909091))
(sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-g -0.26666668)
(sp-flt spt-fade-a -0.19393939)
(sp-int-plain-rnd spt-timer 90 239 1)
(sp-cpuinfo-flags bit2 bit3 bit7)
)
)
(defpartgroup group-part-yellow-eco-fireball-hit
:id 104
:duration 600
:flags (use-local-clock)
:bounds (static-bspherem 0 0 0 6)
:parts
((sp-item 2059 :period 600 :length 5)
(sp-item 2060 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
(sp-item 2061 :period 600 :length 20)
(sp-item 2062 :fade-after (meters 120) :falloff-to (meters 120) :period 600 :length 20)
)
)
(defpart 2060
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 6.0)
(sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
(sp-copy-from-other spt-scale-y -4)
(sp-rnd-flt spt-r 192.0 64.0 1.0)
(sp-rnd-flt spt-g 192.0 64.0 1.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 32.0 96.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
(sp-flt spt-scalevel-x (meters -0.0016666667))
(sp-copy-from-other spt-scalevel-y -4)
(sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
(sp-flt spt-friction 0.9)
(sp-int spt-timer 300)
(sp-cpuinfo-flags bit2 bit14)
(sp-int-plain-rnd spt-next-time 30 29 1)
(sp-launcher-by-id spt-next-launcher 2063)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
(sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
)
)
(defpart 2063
:init-specs
((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
)
(defpart 2062
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
(sp-flt spt-num 3.0)
(sp-flt spt-scale-x (meters 0.2))
(sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
(sp-flt spt-scale-y (meters 8))
(sp-flt spt-r 255.0)
(sp-flt spt-g 196.0)
(sp-flt spt-b 0.0)
(sp-rnd-flt spt-a 32.0 64.0 1.0)
(sp-flt spt-scalevel-y (meters 0.42666668))
(sp-flt spt-fade-a -1.6)
(sp-int spt-timer 60)
(sp-cpuinfo-flags bit2 bit3 bit14)
)
)
(defpart 2059
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
(sp-flt spt-num 1.0)
(sp-flt spt-scale-x (meters 16))
(sp-copy-from-other spt-scale-y -4)
(sp-flt spt-r 255.0)
(sp-rnd-flt spt-g 192.0 32.0 1.0)
(sp-flt spt-b 0.0)
(sp-flt spt-a 96.0)
(sp-flt spt-fade-a -1.7454545)
(sp-int spt-timer 54)
(sp-cpuinfo-flags bit2 bit3 bit14)
)
)
(defpart 2061
:init-specs
((sp-tex spt-texture (new 'static 'texture-id :page #x2))
(sp-flt spt-num 4.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-flt spt-r 255.0)
(sp-rnd-flt spt-g 192.0 64.0 1.0)
(sp-flt spt-b 128.0)
(sp-rnd-flt spt-a 64.0 64.0 1.0)
(sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
(sp-flt spt-scalevel-x (meters 0.013333334))
(sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
(sp-copy-from-other spt-scalevel-y -4)
(sp-flt spt-fade-a -1.6)
(sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
(sp-flt spt-friction 0.8)
(sp-int spt-timer 510)
(sp-cpuinfo-flags bit2 bit14)
(sp-int spt-next-time 42)
(sp-launcher-by-id spt-next-launcher 2064)
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
)
)
(defpart 2064
:init-specs
((sp-flt spt-fade-r -0.53333336)
(sp-flt spt-fade-g -0.53333336)
(sp-flt spt-fade-b -1.0666667)
(sp-flt spt-fade-a -0.53333336)
)
)
(defmethod dummy-24 projectile ((obj projectile))
(spawn (-> obj part) (the-as vector (-> obj root-override root-prim prim-core)))
0
(none)
)
(defmethod dummy-28 projectile ((obj projectile))
0
(none)
)
(defstate projectile-moving (projectile)
:virtual #t
:event
(behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
(case arg2
(('touched)
(when (-> self attack-mode)
(when (cond
((= (-> arg0 type) target)
(let ((a1-1 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-1 from) self)
(set! (-> a1-1 num-params) 2)
(set! (-> a1-1 message) 'attack)
(set! (-> a1-1 param 0) (-> arg3 param 0))
(let ((a0-4 (new 'static 'attack-info :mask #x20)))
(set! (-> a0-4 mode) (-> self attack-mode))
(set! (-> a1-1 param 1) (the-as uint a0-4))
)
(send-event-function arg0 a1-1)
)
)
(else
(let ((a1-2 (new 'stack-no-clear 'event-message-block)))
(set! (-> a1-2 from) self)
(set! (-> a1-2 num-params) 4)
(set! (-> a1-2 message) 'attack)
(set! (-> a1-2 param 0) (-> arg3 param 0))
(set! (-> a1-2 param 1) (the-as uint (-> self attack-mode)))
(let ((v1-13 (+ *global-attack-id* 1)))
(set! *global-attack-id* v1-13)
(set! (-> a1-2 param 2) (the-as uint v1-13))
)
(set! (-> a1-2 param 3) (the-as uint 0))
(send-event-function arg0 a1-2)
)
)
)
(let ((v1-14 (-> self notify-handle)))
(if (handle->process v1-14)
(send-event (-> v1-14 process 0) 'notify 'attack arg0)
)
)
(+! (-> self hits) 1)
(if (>= (-> self hits) (-> self max-hits))
(go-virtual projectile-impact)
)
)
)
)
(('die)
(go-virtual projectile-impact)
)
)
)
:enter
(behavior ()
(set! (-> self state-time) (-> *display* base-frame-counter))
(none)
)
:code
(behavior ()
(let ((gp-0 #f))
(while (< (- (-> *display* base-frame-counter) (-> self state-time)) (-> self timeout))
(let ((s5-0 (the int (-> *display* time-ratio))))
(set-time-ratios *display* 1.0)
(countdown (s4-0 s5-0)
(if gp-0
(go-virtual projectile-impact)
)
(dummy-28 self)
((-> self update-velocity) self)
(when (logtest? (-> self options) 2)
(set! (-> self tween) (seek (-> self tween) 1.0 (* 0.5 (-> *display* seconds-per-frame))))
(let ((f0-6 (vector-vector-distance (-> self root-override trans) (-> self target))))
(cond
((< f0-6 20480.0)
(set! (-> self tween) (seek (-> self tween) 1.0 (* 3.0 (-> *display* seconds-per-frame))))
)
((< f0-6 40960.0)
(set! (-> self tween) (seek (-> self tween) 1.0 (-> *display* seconds-per-frame)))
)
)
)
)
(let ((s3-0 (new 'stack-no-clear 'vector)))
(set! (-> s3-0 quad) (-> self root-override trans quad))
(fill-cache-integrate-and-collide!
(-> self root-override)
(-> self root-override transv)
(-> self root-override root-prim collide-with)
)
(set! (-> self old-dist (-> self old-dist-count))
(* 0.0625 (vector-vector-distance s3-0 (-> self root-override trans)))
)
)
(set! (-> self old-dist-count) (logand (+ (-> self old-dist-count) 1) 15))
(let ((f0-16 0.0))
(countdown (v1-35 16)
(+! f0-16 (-> self old-dist v1-35))
)
(if (or (and (logtest? (-> self root-override status) 8) (< f0-16 2048.0)) (< f0-16 204.8))
(set! gp-0 #t)
)
)
)
(set-time-ratios *display* (the float s5-0))
)
(dummy-24 self)
(suspend)
)
)
(go-virtual projectile-dissipate)
(none)
)
)
(defun projectile-update-velocity-space-wars ((arg0 projectile))
(let ((s5-1 (vector-! (new 'stack-no-clear 'vector) (-> arg0 target) (-> arg0 root-override trans))))
(let ((s4-0 (new 'stack-no-clear 'vector))
(s3-0 (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> arg0 root-override transv) 1.0))
(f30-0 (vector-length (-> arg0 root-override transv)))
)
(if (logtest? (-> arg0 root-override status) 4)
(vector-flatten! s5-1 s5-1 (-> arg0 root-override local-normal))
)
(vector-normalize-copy! s4-0 s5-1 1.0)
(if (and (or (not (handle->process (-> arg0 last-target)))
(zero? (-> (the-as target (handle->process (-> arg0 last-target))) control root-prim prim-core collide-as))
)
(< (vector-dot s4-0 s3-0) 0.0)
)
(go (method-of-object arg0 projectile-dissipate))
)
(vector-deg-slerp (-> arg0 root-override transv) s3-0 s4-0 (-> arg0 tween))
(vector-normalize! (-> arg0 root-override transv) f30-0)
)
(vector+! (-> arg0 root-override transv) (-> arg0 root-override transv) s5-1)
)
(vector-v++!
(-> arg0 root-override transv)
(compute-acc-due-to-gravity (-> arg0 root-override) (new-stack-vector0) 0.0)
)
(if (< (-> arg0 max-speed) (vector-length (-> arg0 root-override transv)))
(vector-normalize! (-> arg0 root-override transv) (-> arg0 max-speed))
)
(if (logtest? (-> arg0 options) 1)
(set! (-> arg0 root-override transv y) -40960.0)
)
0
(none)
)
(defstate projectile-impact (projectile)
:virtual #t
:code
(behavior ()
(let ((gp-0 (get-process *default-dead-pool* part-tracker #x4000)))
(when gp-0
(let ((t9-1 (method-of-type part-tracker activate)))
(t9-1 (the-as part-tracker gp-0) *entity-pool* 'part-tracker (the-as pointer #x70004000))
)
(run-now-in-process
gp-0
part-tracker-init
(-> *part-group-id-table* 104)
-1
#f
#f
#f
(-> self root-override root-prim prim-core)
)
(-> gp-0 ppointer)
)
)
(if (nonzero? (-> self sound-id))
(sound-stop (-> self sound-id))
)
(sound-play-by-name (static-sound-name "yellow-explode") (new-sound-id) 1024 0 0 1 #t)
(suspend)
(go-virtual projectile-die)
(none)
)
)
(defstate projectile-dissipate (projectile)
:virtual #t
:code
(behavior ()
(let ((gp-0 (get-process *default-dead-pool* part-tracker #x4000)))
(when gp-0
(let ((t9-1 (method-of-type part-tracker activate)))
(t9-1 (the-as part-tracker gp-0) *entity-pool* 'part-tracker (the-as pointer #x70004000))
)
(run-now-in-process
gp-0
part-tracker-init
(-> *part-group-id-table* 104)
-1
#f
#f
#f
(-> self root-override root-prim prim-core)
)
(-> gp-0 ppointer)
)
)
(if (nonzero? (-> self sound-id))
(sound-stop (-> self sound-id))
)
(sound-play-by-name (static-sound-name "yellow-fizzle") (new-sound-id) 1024 0 0 1 #t)
(suspend)
(go-virtual projectile-die)
(none)
)
)
(defmethod dummy-27 projectile ((obj projectile))
0
(none)
)
(defmethod dummy-26 projectile ((obj projectile))
(let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player))))
(set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
(set! (-> s5-0 reaction) projectile-collision-reaction)
(set! (-> s5-0 no-reaction)
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
)
(let ((s4-0 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> s4-0 prim-core collide-as) (collide-kind projectile))
(set! (-> s4-0 collide-with) (collide-kind background cak-2 cak-3 crate enemy wall-object ground-object))
(set! (-> s4-0 prim-core action) (collide-action solid))
(set! (-> s4-0 prim-core offense) (collide-offense strong-attack))
(set-vector! (-> s4-0 local-sphere) 0.0 5324.8 0.0 5324.8)
(set-root-prim! s5-0 s4-0)
)
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
(backup-collide-with-as s5-0)
(set! (-> s5-0 max-iteration-count) (the-as uint 2))
(set! (-> s5-0 event-self) 'touched)
(set! (-> obj root-override) s5-0)
)
0
(none)
)
(defmethod dummy-25 projectile ((obj projectile))
(go (method-of-object obj projectile-moving))
0
(none)
)
(defstate projectile-die (projectile)
:virtual #t
:code
(behavior ()
(let ((v1-0 (-> self notify-handle)))
(if (handle->process v1-0)
(send-event (-> v1-0 process 0) 'notify 'die)
)
)
(cleanup-for-death self)
(none)
)
)
(defmethod deactivate projectile ((obj projectile))
(if (nonzero? (-> obj sound-id))
(sound-stop (-> obj sound-id))
)
((method-of-type process-drawable deactivate) obj)
(none)
)
(defbehavior projectile-init-by-other projectile ((arg0 entity) (arg1 vector) (arg2 vector) (arg3 uint) (arg4 handle))
(stack-size-set! (-> self main-thread) 512)
(set! (-> self entity) arg0)
(set! (-> self attack-mode) #f)
(set! (-> self update-velocity) projectile-update-velocity-space-wars)
(set! (-> self max-speed) 40960.0)
(set! (-> self max-turn) 18204.445)
(set! (-> self tween) 1.0)
(set! (-> self last-target) arg4)
(set! (-> self timeout) (seconds 4))
(set! (-> self options) arg3)
(set! (-> self notify-handle) (the-as handle #f))
(countdown (v1-4 16)
(set! (-> self old-dist v1-4) 4095996000.0)
)
(dummy-26 self)
(set! (-> self root-override dynam gravity y) 1228800.0)
(set! (-> self root-override dynam gravity-length) 1228800.0)
(set! (-> self root-override dynam gravity-max) 1228800.0)
(set! (-> self root-override trans quad) (-> arg1 quad))
(set! (-> self base-trans quad) (-> arg1 quad))
(set! (-> self parent-base quad) (-> arg1 quad))
(quaternion-copy! (-> self root-override quat) (-> (the-as process-drawable (-> self parent 0)) root quat))
(quaternion-copy!
(the-as quaternion (-> self parent-quat))
(-> (the-as process-drawable (-> self parent 0)) root quat)
)
(vector-identity! (-> self root-override scale))
(set! (-> self root-override transv quad) (-> arg2 quad))
(vector-normalize-copy! (-> self base-vector) arg2 1.0)
(vector+float*! (-> self target) (-> self root-override trans) (-> self root-override transv) 2.0)
(set! (-> self target-base quad) (-> self target quad))
(dummy-27 self)
(dummy-24 self)
(when (not (type-type? (-> self type) projectile-blue))
(let ((a1-8 (new 'stack-no-clear 'collide-edge-hold-list)))
(set! (-> a1-8 num-allocs) (the-as uint 1))
(set! (-> a1-8 num-attempts) (the-as uint *touching-list*))
(find-overlapping-shapes (-> self root-override) (the-as overlaps-others-params a1-8))
)
)
(set! (-> self event-hook) (-> (method-of-object self projectile-moving) event))
(dummy-25 self)
(none)
)
(defmethod dummy-27 projectile-yellow ((obj projectile-yellow))
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 204 (seconds 0.1))
(set! (-> obj attack-mode) 'eco-yellow)
(set! (-> obj mode) 1)
(set! (-> obj max-speed) (vector-length (-> obj root-override transv)))
(set! (-> obj update-velocity) projectile-update-velocity-space-wars)
(set! (-> obj angle) (vector-y-angle (-> obj root-override transv)))
(set! (-> obj tween) 0.05)
(logior! (-> obj options) 2)
(let ((s5-0 (new 'stack-no-clear 'vector)))
(set! (-> s5-0 quad) (-> obj root-override trans quad))
(set! (-> obj root-override trans y) (+ -5324.8 (-> obj root-override trans y)))
(vector+float*! (-> obj target) (-> obj root-override trans) (-> obj root-override transv) 2.0)
(set! (-> obj target-base quad) (-> obj target quad))
(let ((f30-0 (the float (sar (shl (the int (y-angle (-> obj root-override))) 48) 48))))
(set! (-> obj mask) (the-as process-mask (logior (process-mask projectile) (-> obj mask))))
(if (logtest? (-> obj options) 16)
(set! (-> obj max-hits) 1)
)
(set! (-> *part-id-table* 356 init-specs 18 initial-valuef)
(the float (sar (shl (the int (+ -16384.0 f30-0)) 48) 48))
)
(set! (-> *part-id-table* 358 init-specs 11 initial-valuef)
(the float (sar (shl (the int (+ -16384.0 f30-0)) 48) 48))
)
(sound-play-by-name (static-sound-name "yellow-fire") (new-sound-id) 1024 0 0 1 #t)
(set! (-> obj sound-id) (sound-play-by-name (static-sound-name "yellow-buzz") (new-sound-id) 1024 0 0 1 #t))
(when (zero? (logand (-> obj options) 416))
(let ((s4-2 (get-process *default-dead-pool* part-tracker #x4000)))
(when s4-2
(let ((t9-10 (method-of-type part-tracker activate)))
(t9-10 (the-as part-tracker s4-2) obj 'part-tracker (the-as pointer #x70004000))
)
(run-now-in-process s4-2 part-tracker-init (-> *part-group-id-table* 103) -1 #f #f #f s5-0)
(-> s4-2 ppointer)
)
)
)
(set! (-> *part-id-table* 350 init-specs 2 initial-valuef) f30-0)
)
)
(set! (-> obj part) (create-launch-control (-> *part-group-id-table* 102) obj))
(when *target*
(case (-> *target* current-level name)
(('swamp)
(set! (-> obj water) (new 'process 'water-control obj 0 0.0 8192.0 2048.0))
(set! (-> obj water flags) (the-as uint 146))
(set! (-> obj water height) (if (logtest? (-> obj options) 64)
8192.0
10240.0
)
)
(logior! (-> obj root-override root-prim collide-with) (collide-kind water))
)
(('ogre)
(when (zero? (logand (-> obj options) 128))
(set! (-> obj water) (new 'process 'water-control obj 0 0.0 8192.0 2048.0))
(set! (-> obj water flags) (the-as uint 146))
(set! (-> obj water height) 129024.0)
(logior! (-> obj root-override root-prim collide-with) (collide-kind water))
)
)
(('finalboss)
(set! (-> obj root-override trans y) (+ 4096.0 (-> obj root-override trans y)))
(set! (-> obj water) (new 'process 'water-control obj 0 0.0 8192.0 2048.0))
(set! (-> obj water flags) (the-as uint 146))
(set! (-> obj water height) 1977958.4)
(logior! (-> obj root-override root-prim collide-with) (collide-kind water))
)
)
)
0
(none)
)
(defmethod dummy-26 projectile-yellow ((obj projectile-yellow))
(let ((t9-0 (method-of-type projectile dummy-26)))
(t9-0 obj)
)
(logior! (-> obj root-override root-prim collide-with) (collide-kind mother-spider))
(none)
)
(defmethod dummy-24 projectile-yellow ((obj projectile-yellow))
(with-pp
(find-ground-and-draw-shadow
(-> obj root-override trans)
(-> obj root-override shadow-pos)
8192.0
(collide-kind background)
(the-as process #f)
12288.0
81920.0
)
(if (< (-> obj root-override trans y) (-> obj root-override shadow-pos y))
(set! (-> obj root-override trans y) (+ 1228.8 (-> obj root-override shadow-pos y)))
)
(update-transforms! (-> obj root-override))
(set! (-> *part-id-table* 353 init-specs 16 initial-valuef) (the-as float 30))
(set! (-> *part-id-table* 353 init-specs 16 random-rangef) (the-as float 300))
(cond
((logtest? (-> obj options) 32)
(when (>= (- (-> *display* base-frame-counter) (-> obj state-time)) (seconds 0.05))
(when (< (- (-> *display* base-frame-counter) (-> obj state-time)) (seconds 0.5))
(set! (-> *part-id-table* 353 init-specs 16 initial-valuef) (the-as float 0))
(set! (-> *part-id-table* 353 init-specs 16 random-rangef) (the-as float 0))
0
)
(spawn (-> obj part) (the-as vector (-> obj root-override root-prim prim-core)))
)
)
(else
(spawn (-> obj part) (the-as vector (-> obj root-override root-prim prim-core)))
)
)
(let ((s5-0 (the-as sound-rpc-set-param (get-sound-buffer-entry))))
(set! (-> s5-0 command) (sound-command set-param))
(set! (-> s5-0 id) (-> obj sound-id))
(let ((a1-3 (-> obj root-override trans)))
(let ((gp-1 pp))
(when (= a1-3 #t)
(if (and gp-1 (type-type? (-> gp-1 type) process-drawable) (nonzero? (-> (the-as process-drawable gp-1) root)))
(set! a1-3 (-> (the-as process-drawable gp-1) root trans))
(set! a1-3 (the-as vector #f))
)
)
)
(sound-trans-convert (-> s5-0 parms trans) a1-3)
)
(set! (-> s5-0 parms mask) (the-as uint 32))
(-> s5-0 id)
)
0
(none)
)
)
(defmethod dummy-28 projectile-yellow ((obj projectile-yellow))
(cond
((or (not (handle->process (-> obj last-target)))
(zero? (-> (the-as target (handle->process (-> obj last-target))) control root-prim prim-core collide-as))
)
(cond
((zero? (-> obj target-count))
(let ((s5-0 (find-nearest-attackable
(-> obj parent-base)
409600.0
(the-as uint 0)
(the-as uint 0)
(-> obj base-vector)
(if (logtest? (-> obj options) 160)
546.13336
8192.0
)
)
)
)
(let ((s4-0 (find-nearest-attackable
(-> obj parent-base)
163840.0
(the-as uint 1)
(the-as uint 0)
(-> obj base-vector)
(if (logtest? (-> obj options) 160)
910.2222
8192.0
)
)
)
(v1-10 (find-nearest-attackable
(-> obj parent-base)
28672.0
(the-as uint 1)
(the-as uint 0)
(-> obj base-vector)
16384.0
)
)
)
(if s4-0
(set! s5-0 s4-0)
)
(if v1-10
(set! s5-0 v1-10)
)
)
(set! (-> obj last-target) (process->handle s5-0))
(when s5-0
(set! (-> obj target quad) (-> s5-0 root-override root-prim prim-core world-sphere quad))
(if (= (-> s5-0 type symbol) 'mother-spider)
(set! (-> obj options) (logand -2 (-> obj options)))
)
)
)
)
(else
(set! (-> obj target quad) (-> obj target-base quad))
)
)
)
(else
(let ((a1-8 (handle->process (-> obj last-target))))
(set! (-> obj target quad) (-> (the-as target a1-8) control root-prim prim-core world-sphere quad))
)
(if (and (< (vector-vector-xz-distance (-> obj root-override trans) (-> obj target)) 20480.0)
(< 24576.0 (fabs (- (-> obj target y) (-> obj root-override trans y))))
)
(set! (-> obj last-target) (the-as handle #f))
)
)
)
(+! (-> obj target-count) 1)
0
(none)
)
(defmethod dummy-27 projectile-blue ((obj projectile-blue))
(cpad-set-buzz! (-> *cpad-list* cpads 0) 1 204 (seconds 0.1))
(sound-play-by-name (static-sound-name "blue-eco-on") (new-sound-id) 1024 0 0 1 #t)
(set! (-> obj mode) 2)
(set! (-> obj max-speed) (-> *TARGET-bank* yellow-projectile-speed))
(set! (-> obj update-velocity) projectile-update-velocity-space-wars)
(set! (-> obj root-override trans y) (+ -5324.8 (-> obj root-override trans y)))
(vector+float*! (-> obj target) (-> obj root-override trans) (-> obj root-override transv) 2.0)
(set! (-> obj target-base quad) (-> obj target quad))
(set! (-> obj mask) (the-as process-mask (logior (process-mask ambient) (-> obj mask))))
(set! (-> obj part) (create-launch-control (-> *part-group-id-table* 42) obj))
(set! (-> obj root-override root-prim collide-with) (collide-kind background))
(let* ((s5-1 (handle->process (-> obj last-target)))
(v1-20 (if (and (nonzero? s5-1) (type-type? (-> s5-1 type) process-drawable))
s5-1
)
)
)
(if v1-20
(set! (-> obj joint-num) (rand-vu-int-range 3 (+ (-> (the-as process-drawable v1-20) node-list length) -1)))
)
)
0
(none)
)
(defmethod dummy-26 projectile-blue ((obj projectile-blue))
(let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player))))
(set! (-> s5-0 dynam) (copy *standard-dynamics* 'process))
(set! (-> s5-0 reaction) projectile-collision-reaction)
(set! (-> s5-0 no-reaction)
(the-as (function collide-shape-moving collide-shape-intersect vector vector none) nothing)
)
(let ((s4-0 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
(set! (-> s4-0 prim-core collide-as) (collide-kind projectile))
(set! (-> s4-0 collide-with) (collide-kind background))
(set! (-> s4-0 prim-core action) (collide-action solid))
(set! (-> s4-0 prim-core offense) (collide-offense strong-attack))
(set-vector! (-> s4-0 local-sphere) 0.0 5324.8 0.0 5324.8)
(set-root-prim! s5-0 s4-0)
)
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
(backup-collide-with-as s5-0)
(set! (-> s5-0 max-iteration-count) (the-as uint 2))
(set! (-> s5-0 event-self) 'touched)
(set! (-> obj root-override) s5-0)
)
0
(none)
)
(defun spawn-projectile-blue ((arg0 target))
(local-vars (sv-48 entity))
(with-pp
(when arg0
(let ((s3-0 (rand-vu-int-range 3 (+ (-> arg0 node-list length) -1)))
(gp-0 (new-stack-vector0))
)
(set-vector!
gp-0
(rand-vu-float-range -81920.0 81920.0)
(rand-vu-float-range -81920.0 81920.0)
(rand-vu-float-range -81920.0 81920.0)
1.0
)
(let ((s4-1 (get-process *default-dead-pool* projectile-blue #x4000)))
(when s4-1
(let ((t9-5 (method-of-type projectile-blue activate)))
(t9-5 (the-as projectile-blue s4-1) pp 'projectile-blue (the-as pointer #x70004000))
)
(let ((s2-0 run-function-in-process)
(s1-0 s4-1)
(s0-0 projectile-init-by-other)
)
(set! sv-48 (-> pp entity))
(let ((a3-1 (vector<-cspace! (new 'stack-no-clear 'vector) (-> arg0 node-list data s3-0)))
(t1-0 8)
(t2-0 (process->handle pp))
)
((the-as (function process function object object object object object object) s2-0)
s1-0
s0-0
sv-48
a3-1
gp-0
t1-0
t2-0
)
)
)
(-> s4-1 ppointer)
)
)
)
)
0
(none)
)
)
(defmethod dummy-28 projectile-blue ((obj projectile-blue))
(let* ((s5-0 (handle->process (-> obj last-target)))
(v1-4 (if (and (nonzero? s5-0) (type-type? (-> s5-0 type) process-drawable))
s5-0
)
)
)
(if v1-4
(vector<-cspace! (-> obj target) (-> (the-as process-drawable v1-4) node-list data (-> obj joint-num)))
)
)
(if (< (vector-vector-distance (-> obj target) (-> obj root-override trans)) 4096.0)
(go (method-of-object obj projectile-impact))
)
0
(none)
)
(defmethod dummy-24 projectile-blue ((obj projectile-blue))
(if (rand-vu-percent? 0.75)
(eco-blue-glow (the-as vector (-> obj root-override root-prim prim-core)))
)
0
(none)
)
(defstate projectile-impact (projectile-blue)
:virtual #t
:code
(behavior ()
(cleanup-for-death self)
(none)
)
)
(defstate projectile-dissipate (projectile-blue)
:virtual #t
:code
(behavior ()
(go-virtual projectile-die)
(none)
)
)
Reference in New Issue View Git Blame Copy Permalink