mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
abf61a94fb
Adding support for better child-type method docstrings. This is a
problem unique to methods.
Usually, a child-type will have the same signature and a common name
will apply, but the implementation is different. This means, you
probably want a different docstring to describe what is happening.
Currently this is possible to do via `:replace`. The problem with
replace is two fold:
- a replaced method ends up in the generated `deftype`...because you
usually change the signature!
- we don't put docstrings in the `deftype` in normal GOAL, this is just
something we do for the `all-types` file (they go in the `defmethod`
instead)
- more importantly, this means anytime you now want to change the
parent's name/args/return type -- you have to apply that change
everywhere.
So this is a better design you can now just declare the method like so:
```clj
(:override-doc "my new docstring" <method_id>)
```
And internally a pseudo-replaced method will be added, but it will
inherit everything from the parent (except the docstring of course)
Unrelated - I also made all the keyword args for declaring methods not
depend on ordering
This also adds support for documenting virtual and non-virtual state
handlers. For example:
```clj
(:states
(part-tester-idle (:event "test") symbol))
```
or
```clj
(idle () _type_ :state (:event "test") 20)
```
I will probably add the ability to give some sort of over-view docstring
at a later date.
Co-authored-by: water <awaterford111445@gmail.com>
517 lines
19 KiB
Common Lisp
517 lines
19 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: ash-shot.gc
|
|
;; name in dgo: ash-shot
|
|
;; dgos: ATE, CTYASHA
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(defpart 672
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x45 :page #xc))
|
|
(sp-func spt-birth-func 'birth-func-set-quat)
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 0.75))
|
|
(sp-flt spt-scale-y (meters 10))
|
|
(sp-flt spt-r 128.0)
|
|
(sp-flt spt-g 0.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-rnd-flt spt-a 32.0 64.0 1.0)
|
|
(sp-int spt-timer 5)
|
|
(sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-14 left-multiply-quat)
|
|
)
|
|
)
|
|
|
|
(defpart 673
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #xc))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 1) (meters 3) 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 128.0)
|
|
(sp-flt spt-g 0.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-rnd-flt spt-a 64.0 32.0 1.0)
|
|
(sp-int spt-timer 5)
|
|
(sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14)
|
|
)
|
|
)
|
|
|
|
(defpart 674
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x34 :page #xc))
|
|
(sp-flt spt-num 1.5)
|
|
(sp-rnd-flt spt-scale-x (meters 0.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-flt spt-r 255.0)
|
|
(sp-flt spt-g 128.0)
|
|
(sp-flt spt-b 128.0)
|
|
(sp-rnd-flt spt-a 16.0 32.0 1.0)
|
|
(sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-g -1.28)
|
|
(sp-flt spt-fade-b -1.28)
|
|
(sp-flt spt-fade-a -0.48)
|
|
(sp-int spt-timer 100)
|
|
(sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14)
|
|
)
|
|
)
|
|
|
|
(defpart 675
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x46 :page #xc))
|
|
(sp-func spt-birth-func 'birth-func-set-quat)
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 2))
|
|
(sp-flt spt-scale-y (meters 4.5))
|
|
(sp-flt spt-r 128.0)
|
|
(sp-flt spt-g 0.0)
|
|
(sp-flt spt-b 0.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-flt spt-fade-a -3.6571429)
|
|
(sp-int spt-timer 35)
|
|
(sp-cpuinfo-flags sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14 left-multiply-quat)
|
|
)
|
|
)
|
|
|
|
(defpartgroup group-ashelin-shot-hit
|
|
:id 149
|
|
:duration (seconds 1)
|
|
:flags (use-local-clock)
|
|
:bounds (static-bspherem 0 0 0 8)
|
|
:parts ((sp-item 676 :period 600 :length 5)
|
|
(sp-item 677 :fade-after (meters 100) :period 600 :length 5)
|
|
(sp-item 678 :period 600 :length 5)
|
|
(sp-item 679 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 200)
|
|
(sp-item 680 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 200)
|
|
(sp-item 680 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 150)
|
|
(sp-item 680 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 125)
|
|
(sp-item 680 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 100)
|
|
(sp-item 680 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 75)
|
|
(sp-item 680 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 65)
|
|
(sp-item 680 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 50)
|
|
(sp-item 680 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 40)
|
|
(sp-item 680 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 25)
|
|
)
|
|
)
|
|
|
|
(defpart 679
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xc9 :page #xc))
|
|
(sp-rnd-flt spt-num 0.0 0.2 1.0)
|
|
(sp-flt spt-y (meters 0.25))
|
|
(sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
|
|
(sp-int spt-rot-x 4)
|
|
(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 32.0 8.0 1.0)
|
|
(sp-rnd-flt spt-b 32.0 8.0 1.0)
|
|
(sp-rnd-flt spt-a 32.0 64.0 1.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.013333334) 1.0)
|
|
(sp-rnd-flt spt-scalevel-x (meters -0.001) (meters -0.00033333333) 1.0)
|
|
(sp-rnd-int-flt spt-rotvel-z (degrees -2.4) 1 873.81335)
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-g -0.10666667)
|
|
(sp-flt spt-fade-b -0.10666667)
|
|
(sp-rnd-flt spt-accel-y -1.3653333 -5.4613333 1.0)
|
|
(sp-flt spt-friction 0.9)
|
|
(sp-int spt-timer 300)
|
|
(sp-cpuinfo-flags sp-cpuinfo-flag-0 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14)
|
|
(sp-int spt-next-time 200)
|
|
(sp-launcher-by-id spt-next-launcher 681)
|
|
(sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
|
|
(sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
|
|
)
|
|
)
|
|
|
|
(defpart 680
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xc9 :page #xc))
|
|
(sp-flt spt-num 0.5)
|
|
(sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 255.0)
|
|
(sp-rnd-flt spt-g 32.0 8.0 1.0)
|
|
(sp-rnd-flt spt-b 32.0 8.0 1.0)
|
|
(sp-flt spt-a 96.0)
|
|
(sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
|
|
(sp-rnd-flt spt-scalevel-x (meters -0.0005) (meters -0.0005) 1.0)
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-g -0.10666667)
|
|
(sp-flt spt-fade-b -0.10666667)
|
|
(sp-rnd-flt spt-accel-y -1.3653333 -5.4613333 1.0)
|
|
(sp-flt spt-friction 0.8)
|
|
(sp-int spt-timer 300)
|
|
(sp-cpuinfo-flags sp-cpuinfo-flag-0 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14)
|
|
(sp-int spt-next-time 200)
|
|
(sp-launcher-by-id spt-next-launcher 681)
|
|
(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 681
|
|
:init-specs ((sp-flt spt-fade-a -0.96))
|
|
)
|
|
|
|
(defpart 677
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x47 :page #xc))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-rnd-flt spt-scale-x (meters 5) (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-flt spt-r 255.0)
|
|
(sp-rnd-flt spt-g 32.0 8.0 1.0)
|
|
(sp-rnd-flt spt-b 32.0 8.0 1.0)
|
|
(sp-flt spt-a 128.0)
|
|
(sp-flt spt-rotvel-z (degrees -0.1))
|
|
(sp-flt spt-fade-a -0.32)
|
|
(sp-int spt-timer 400)
|
|
(sp-cpuinfo-flags sp-cpuinfo-flag-0 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3 sp-cpuinfo-flag-14)
|
|
(sp-int spt-next-time 10)
|
|
(sp-launcher-by-id spt-next-launcher 682)
|
|
)
|
|
)
|
|
|
|
(defpart 682
|
|
:init-specs ((sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-r 255.0)
|
|
(sp-rnd-flt spt-g 32.0 8.0 1.0)
|
|
(sp-rnd-flt spt-b 32.0 8.0 1.0)
|
|
(sp-int spt-next-time 5)
|
|
(sp-launcher-by-id spt-next-launcher 682)
|
|
)
|
|
)
|
|
|
|
(defpart 678
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x47 :page #xc))
|
|
(sp-flt spt-num 2.0)
|
|
(sp-flt spt-scale-x (meters 1))
|
|
(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 32.0 8.0 1.0)
|
|
(sp-rnd-flt spt-b 32.0 8.0 1.0)
|
|
(sp-flt spt-a 48.0)
|
|
(sp-flt spt-scalevel-x (meters 0.12857144))
|
|
(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.9142857)
|
|
(sp-flt spt-fade-b -0.9142857)
|
|
(sp-int spt-timer 400)
|
|
(sp-cpuinfo-flags sp-cpuinfo-flag-0 sp-cpuinfo-flag-2)
|
|
(sp-int spt-next-time 35)
|
|
(sp-launcher-by-id spt-next-launcher 683)
|
|
)
|
|
)
|
|
|
|
(defpart 683
|
|
:init-specs ((sp-flt spt-scale-x (meters 4.5))
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-scalevel-x (meters -0.010958904))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-g -0.38356164)
|
|
(sp-flt spt-fade-b 0.0)
|
|
(sp-flt spt-fade-a -0.13150685)
|
|
)
|
|
)
|
|
|
|
(defpart 676
|
|
:init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x47 :page #xc))
|
|
(sp-flt spt-num 1.0)
|
|
(sp-flt spt-scale-x (meters 1))
|
|
(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 255.0)
|
|
(sp-flt spt-b 255.0)
|
|
(sp-flt spt-a 96.0)
|
|
(sp-flt spt-scalevel-x (meters 0.16666667))
|
|
(sp-flt spt-rotvel-z (degrees 0.3))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-int spt-timer 55)
|
|
(sp-cpuinfo-flags sp-cpuinfo-flag-0 sp-cpuinfo-flag-2 sp-cpuinfo-flag-3)
|
|
(sp-int spt-next-time 15)
|
|
(sp-launcher-by-id spt-next-launcher 684)
|
|
)
|
|
)
|
|
|
|
(defpart 684
|
|
:init-specs ((sp-flt spt-scale-x (meters 3.5))
|
|
(sp-copy-from-other spt-scale-y -4)
|
|
(sp-flt spt-scalevel-x (meters -0.0875))
|
|
(sp-copy-from-other spt-scalevel-y -4)
|
|
(sp-flt spt-fade-b -6.4)
|
|
)
|
|
)
|
|
|
|
(deftype ashelin-shot (projectile)
|
|
((tail-pos vector :inline :offset-assert 480)
|
|
(hit-pos vector :inline :offset-assert 496)
|
|
)
|
|
:heap-base #x180
|
|
:method-count-assert 40
|
|
:size-assert #x200
|
|
:flag-assert #x2801800200
|
|
)
|
|
|
|
|
|
(defmethod draw-laser-sight ashelin-shot ((obj ashelin-shot))
|
|
"TODO - confirm If applicable, draw the laser sight particles"
|
|
(draw-beam (-> *part-id-table* 675) (-> obj tail-pos) (-> obj starting-dir) #f #t)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod spawn-impact-particles ashelin-shot ((obj ashelin-shot))
|
|
"Spawns associated particles with the projectile if applicable"
|
|
(rlet ((acc :class vf)
|
|
(vf0 :class vf)
|
|
(vf4 :class vf)
|
|
(vf5 :class vf)
|
|
(vf6 :class vf)
|
|
(vf7 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(let* ((v1-1 (-> obj root-override trans))
|
|
(a1-0 (-> obj tail-pos))
|
|
(s5-1 (vector-! (new 'stack-no-clear 'vector) v1-1 a1-0))
|
|
(gp-0 (new 'stack-no-clear 'vector))
|
|
)
|
|
(let ((v1-2 a1-0))
|
|
(let ((a0-2 s5-1))
|
|
(let ((a2-1 0.8))
|
|
(.mov vf7 a2-1)
|
|
)
|
|
(.lvf vf5 (&-> a0-2 quad))
|
|
)
|
|
(.lvf vf4 (&-> v1-2 quad))
|
|
)
|
|
(.add.x.vf vf6 vf0 vf0 :mask #b1000)
|
|
(.mul.x.vf acc vf5 vf7 :mask #b111)
|
|
(.add.mul.w.vf vf6 vf4 vf0 acc :mask #b111)
|
|
(.svf (&-> gp-0 quad) vf6)
|
|
(let ((f30-0 (-> *part-id-table* 672 init-specs 4 initial-valuef)))
|
|
(set! (-> *part-id-table* 672 init-specs 4 initial-valuef) (fmin f30-0 (vector-length s5-1)))
|
|
(draw-beam (-> *part-id-table* 672) a1-0 s5-1 #f #t)
|
|
(set! (-> *part-id-table* 672 init-specs 4 initial-valuef) f30-0)
|
|
)
|
|
(vector-normalize! s5-1 1.0)
|
|
(let ((t9-2 sp-launch-particles-var)
|
|
(a0-5 *sp-particle-system-2d*)
|
|
(a1-2 (-> *part-id-table* 673))
|
|
(a2-3 *launch-matrix*)
|
|
)
|
|
(set! (-> a2-3 trans quad) (-> gp-0 quad))
|
|
(t9-2 a0-5 a1-2 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0)
|
|
)
|
|
(let ((f0-4 (vector-dot s5-1 (-> (camera-matrix) vector 2))))
|
|
(when (< 0.0 f0-4)
|
|
(let ((f0-5 (* f0-4 f0-4))
|
|
(f30-1 (-> *part-id-table* 674 init-specs 8 initial-valuef))
|
|
(f28-0 (-> *part-id-table* 674 init-specs 8 random-rangef))
|
|
)
|
|
(set! (-> *part-id-table* 674 init-specs 8 initial-valuef) (* f30-1 f0-5))
|
|
(set! (-> *part-id-table* 674 init-specs 8 random-rangef) (* f28-0 f0-5))
|
|
(let ((t9-4 sp-launch-particles-var)
|
|
(a0-6 *sp-particle-system-2d*)
|
|
(a1-3 (-> *part-id-table* 674))
|
|
(a2-4 *launch-matrix*)
|
|
)
|
|
(set! (-> a2-4 trans quad) (-> gp-0 quad))
|
|
(t9-4 a0-6 a1-3 a2-4 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0)
|
|
)
|
|
(set! (-> *part-id-table* 674 init-specs 8 initial-valuef) f30-1)
|
|
(set! (-> *part-id-table* 674 init-specs 8 random-rangef) f28-0)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
)
|
|
|
|
(defmethod spawn-shell-particles ashelin-shot ((obj ashelin-shot))
|
|
"TODO - confirm"
|
|
(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*
|
|
(symbol->string (-> part-tracker symbol))
|
|
(the-as pointer #x70004000)
|
|
)
|
|
)
|
|
(let ((t9-2 run-function-in-process)
|
|
(a0-3 gp-0)
|
|
(a1-2 part-tracker-init)
|
|
(a2-4 (-> *part-group-id-table* 149))
|
|
(a3-1 0)
|
|
(t0-0 #f)
|
|
(t1-0 #f)
|
|
(t2-0 #f)
|
|
(t3-0 *launch-matrix*)
|
|
)
|
|
(set! (-> t3-0 trans quad) (-> obj root-override trans quad))
|
|
((the-as (function object object object object object object object object none) t9-2)
|
|
a0-3
|
|
a1-2
|
|
a2-4
|
|
a3-1
|
|
t0-0
|
|
t1-0
|
|
t2-0
|
|
t3-0
|
|
)
|
|
)
|
|
(-> gp-0 ppointer)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defmethod play-impact-sound ashelin-shot ((obj ashelin-shot) (arg0 projectile-options))
|
|
(let ((v1-0 arg0))
|
|
(cond
|
|
((zero? v1-0)
|
|
(sound-play "ashelin-fire")
|
|
)
|
|
((= v1-0 (projectile-options lose-altitude))
|
|
(sound-play "ashelin-shot-hi")
|
|
)
|
|
((= v1-0 (projectile-options lose-altitude proj-options-2))
|
|
((the-as (function projectile projectile-options none) (find-parent-method ashelin-shot 28)) obj arg0)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(defmethod made-impact? ashelin-shot ((obj ashelin-shot))
|
|
"TODO - queries the collision cache, return true/false"
|
|
(let ((v1-0 (-> obj root-override))
|
|
(t1-0 (new 'stack-no-clear 'collide-query))
|
|
)
|
|
(let ((a1-0 t1-0))
|
|
(set! (-> a1-0 radius) (-> v1-0 root-prim prim-core world-sphere w))
|
|
(set! (-> a1-0 collide-with) (-> v1-0 root-prim prim-core collide-with))
|
|
(set! (-> a1-0 ignore-process0) obj)
|
|
(set! (-> a1-0 ignore-process1) (ppointer->process (-> obj parent)))
|
|
(set! (-> a1-0 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1))
|
|
(set! (-> a1-0 action-mask) (collide-action solid))
|
|
)
|
|
(fill-and-try-snap-to-surface v1-0 (-> v1-0 transv) -10240.0 12697.6 -4096.0 t1-0)
|
|
)
|
|
)
|
|
|
|
(defun ashelin-shot-move ((arg0 ashelin-shot))
|
|
(projectile-move-fill-line-sphere arg0)
|
|
(let ((s5-0 (-> arg0 root-override)))
|
|
(let ((s4-0 (new 'stack-no-clear 'vector)))
|
|
(vector-! s4-0 (-> arg0 tail-pos) (-> s5-0 trans))
|
|
(let ((f0-0 (vector-length s4-0)))
|
|
(when (< 40960.0 f0-0)
|
|
(vector-normalize! s4-0 40960.0)
|
|
(vector+! (-> arg0 tail-pos) (-> s5-0 trans) s4-0)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (-> s5-0 status) (collide-status touch-surface))
|
|
(let ((v1-9 (vector-normalize! (vector-! (new 'stack-no-clear 'vector) (-> arg0 tail-pos) (-> s5-0 trans)) 2048.0))
|
|
(a1-5 (-> arg0 hit-pos))
|
|
)
|
|
(set! (-> a1-5 quad) (-> s5-0 trans quad))
|
|
(vector+! a1-5 a1-5 v1-9)
|
|
(move-to-point! (-> arg0 root-override) a1-5)
|
|
)
|
|
(go (the-as (state ashelin) (method-of-object arg0 impact)))
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; WARN: Return type mismatch symbol vs none.
|
|
(defmethod init-proj-collision! ashelin-shot ((obj ashelin-shot))
|
|
"Init the [[projectile]]'s [[collide-shape]]"
|
|
(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)
|
|
(the-as (function control-info collide-query vector vector collide-status) cshape-reaction-just-move)
|
|
)
|
|
(set! (-> s5-0 no-reaction)
|
|
(the-as (function collide-shape-moving collide-query vector vector object) nothing)
|
|
)
|
|
(set! (-> s5-0 penetrate-using) (penetrate enemy-yellow-shot))
|
|
(let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0)))
|
|
(set! (-> s5-0 total-prims) (the-as uint 3))
|
|
(set! (-> s4-0 prim-core collide-as) (collide-spec projectile))
|
|
(set! (-> s4-0 prim-core collide-with)
|
|
(collide-spec backgnd jak crate civilian enemy obstacle vehicle-sphere hit-by-others-list player-list pusher)
|
|
)
|
|
(set! (-> s4-0 prim-core action) (collide-action solid))
|
|
(set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 4096.0)
|
|
(set! (-> s5-0 root-prim) s4-0)
|
|
)
|
|
(let ((v1-13 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
|
|
(set! (-> v1-13 prim-core collide-as) (collide-spec projectile))
|
|
(set! (-> v1-13 prim-core collide-with)
|
|
(collide-spec backgnd jak crate civilian enemy obstacle vehicle-sphere hit-by-others-list player-list pusher)
|
|
)
|
|
(set! (-> v1-13 prim-core action) (collide-action solid))
|
|
(set-vector! (-> v1-13 local-sphere) 0.0 0.0 0.0 819.2)
|
|
)
|
|
(let ((v1-15 (new 'process 'collide-shape-prim-sphere s5-0 (the-as uint 0))))
|
|
(set! (-> v1-15 prim-core collide-as) (collide-spec projectile))
|
|
(set! (-> v1-15 prim-core collide-with)
|
|
(collide-spec jak crate civilian enemy obstacle vehicle-sphere hit-by-others-list player-list pusher)
|
|
)
|
|
(set-vector! (-> v1-15 local-sphere) 0.0 0.0 0.0 4096.0)
|
|
)
|
|
(set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w)))
|
|
(let ((v1-18 (-> s5-0 root-prim)))
|
|
(set! (-> s5-0 backup-collide-as) (-> v1-18 prim-core collide-as))
|
|
(set! (-> s5-0 backup-collide-with) (-> v1-18 prim-core collide-with))
|
|
)
|
|
(set! (-> s5-0 max-iteration-count) (the-as uint 1))
|
|
(set! (-> s5-0 event-self) 'touched)
|
|
(set! (-> obj root-override) s5-0)
|
|
)
|
|
(set! (-> obj root-override pat-ignore-mask)
|
|
(new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noproj #x1 :noendlessfall #x1)
|
|
)
|
|
(let ((v1-23 (-> obj parent)))
|
|
(when (not (logtest? (-> (the-as ashelin (if v1-23
|
|
(the-as ashelin (-> v1-23 0 self))
|
|
)
|
|
)
|
|
bot-flags
|
|
)
|
|
(bot-flags attacked)
|
|
)
|
|
)
|
|
(let* ((a0-17 (-> obj root-override))
|
|
(v1-27 (-> a0-17 root-prim))
|
|
)
|
|
(countdown (a0-18 (-> a0-17 total-prims))
|
|
(logclear! (-> v1-27 prim-core collide-with) (collide-spec jak))
|
|
(&+! v1-27 80)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(none)
|
|
)
|
|
|
|
(defmethod init-proj-settings! ashelin-shot ((obj ashelin-shot))
|
|
"Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc"
|
|
(set! (-> obj tail-pos quad) (-> obj root-override trans quad))
|
|
(set! (-> obj attack-mode) 'eco-yellow)
|
|
(set! (-> obj max-speed) 307200.0)
|
|
(set! (-> obj move) ashelin-shot-move)
|
|
(set! (-> obj timeout) (seconds 1.335))
|
|
(none)
|
|
)
|