mirror of
https://github.com/open-goal/jak-project
synced 2026-07-09 14:55:51 -04:00
water111
637990314b
Closes #736 --------- Co-authored-by: Hat Kid <6624576+Hat-Kid@users.noreply.github.com>
449 lines
21 KiB
Common Lisp
Vendored
Generated
449 lines
21 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type search-info
|
|
(deftype search-info (structure)
|
|
((point vector :inline)
|
|
(best-point vector :inline)
|
|
(match-handle handle)
|
|
(match process-focusable)
|
|
(best float)
|
|
(radius float)
|
|
(rating search-info-flag)
|
|
(require search-info-flag)
|
|
(mask search-info-flag)
|
|
(rot-base vector :inline)
|
|
(back-point vector :inline)
|
|
(rot-range float)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type search-info
|
|
(defmethod inspect ((this search-info))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-118)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'search-info)
|
|
(format #t "~1Tpoint: ~`vector`P~%" (-> this point))
|
|
(format #t "~1Tbest-point: ~`vector`P~%" (-> this best-point))
|
|
(format #t "~1Tmatch-handle: ~D~%" (-> this match-handle))
|
|
(format #t "~1Tmatch: ~A~%" (-> this match))
|
|
(format #t "~1Tbest: ~f~%" (-> this best))
|
|
(format #t "~1Tradius: ~f~%" (-> this radius))
|
|
(format #t "~1Trating: #x~X : (search-info-flag " (-> this rating))
|
|
(let ((s5-0 (-> this rating)))
|
|
(if (= (logand s5-0 (search-info-flag attackable)) (search-info-flag attackable))
|
|
(format #t "attackable ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag high-priority)) (search-info-flag high-priority))
|
|
(format #t "high-priority ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag prefer-xz)) (search-info-flag prefer-xz))
|
|
(format #t "prefer-xz ")
|
|
)
|
|
(if (= (logand (search-info-flag prefer-center) s5-0) (search-info-flag prefer-center))
|
|
(format #t "prefer-center ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag cull-xz)) (search-info-flag cull-xz))
|
|
(format #t "cull-xz ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag enemy)) (search-info-flag enemy))
|
|
(format #t "enemy ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag combo)) (search-info-flag combo))
|
|
(format #t "combo ")
|
|
)
|
|
(if (= (logand (search-info-flag probe-camera) s5-0) (search-info-flag probe-camera))
|
|
(format #t "probe-camera ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag guard)) (search-info-flag guard))
|
|
(format #t "guard ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag prefer-dist)) (search-info-flag prefer-dist))
|
|
(format #t "prefer-dist ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag cull-angle-simple)) (search-info-flag cull-angle-simple))
|
|
(format #t "cull-angle-simple ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag prefer-angle)) (search-info-flag prefer-angle))
|
|
(format #t "prefer-angle ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag attackable-priority)) (search-info-flag attackable-priority))
|
|
(format #t "attackable-priority ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag on-screen)) (search-info-flag on-screen))
|
|
(format #t "on-screen ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag abort)) (search-info-flag abort))
|
|
(format #t "abort ")
|
|
)
|
|
(if (= (logand (search-info-flag probe) s5-0) (search-info-flag probe))
|
|
(format #t "probe ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag cull-angle)) (search-info-flag cull-angle))
|
|
(format #t "cull-angle ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag crate)) (search-info-flag crate))
|
|
(format #t "crate ")
|
|
)
|
|
(if (= (logand s5-0 (search-info-flag back-point)) (search-info-flag back-point))
|
|
(format #t "back-point ")
|
|
)
|
|
)
|
|
(format #t ")~%")
|
|
(format #t "~1Trequire: #x~X : (search-info-flag " (-> this require))
|
|
(let ((s5-1 (-> this require)))
|
|
(if (= (logand s5-1 (search-info-flag attackable)) (search-info-flag attackable))
|
|
(format #t "attackable ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag high-priority)) (search-info-flag high-priority))
|
|
(format #t "high-priority ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag prefer-xz)) (search-info-flag prefer-xz))
|
|
(format #t "prefer-xz ")
|
|
)
|
|
(if (= (logand (search-info-flag prefer-center) s5-1) (search-info-flag prefer-center))
|
|
(format #t "prefer-center ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag cull-xz)) (search-info-flag cull-xz))
|
|
(format #t "cull-xz ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag enemy)) (search-info-flag enemy))
|
|
(format #t "enemy ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag combo)) (search-info-flag combo))
|
|
(format #t "combo ")
|
|
)
|
|
(if (= (logand (search-info-flag probe-camera) s5-1) (search-info-flag probe-camera))
|
|
(format #t "probe-camera ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag guard)) (search-info-flag guard))
|
|
(format #t "guard ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag prefer-dist)) (search-info-flag prefer-dist))
|
|
(format #t "prefer-dist ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag cull-angle-simple)) (search-info-flag cull-angle-simple))
|
|
(format #t "cull-angle-simple ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag prefer-angle)) (search-info-flag prefer-angle))
|
|
(format #t "prefer-angle ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag attackable-priority)) (search-info-flag attackable-priority))
|
|
(format #t "attackable-priority ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag on-screen)) (search-info-flag on-screen))
|
|
(format #t "on-screen ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag abort)) (search-info-flag abort))
|
|
(format #t "abort ")
|
|
)
|
|
(if (= (logand (search-info-flag probe) s5-1) (search-info-flag probe))
|
|
(format #t "probe ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag cull-angle)) (search-info-flag cull-angle))
|
|
(format #t "cull-angle ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag crate)) (search-info-flag crate))
|
|
(format #t "crate ")
|
|
)
|
|
(if (= (logand s5-1 (search-info-flag back-point)) (search-info-flag back-point))
|
|
(format #t "back-point ")
|
|
)
|
|
)
|
|
(format #t ")~%")
|
|
(format #t "~1Tmask: #x~X : (search-info-flag " (-> this mask))
|
|
(let ((s5-2 (-> this mask)))
|
|
(if (= (logand s5-2 (search-info-flag attackable)) (search-info-flag attackable))
|
|
(format #t "attackable ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag high-priority)) (search-info-flag high-priority))
|
|
(format #t "high-priority ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag prefer-xz)) (search-info-flag prefer-xz))
|
|
(format #t "prefer-xz ")
|
|
)
|
|
(if (= (logand (search-info-flag prefer-center) s5-2) (search-info-flag prefer-center))
|
|
(format #t "prefer-center ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag cull-xz)) (search-info-flag cull-xz))
|
|
(format #t "cull-xz ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag enemy)) (search-info-flag enemy))
|
|
(format #t "enemy ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag combo)) (search-info-flag combo))
|
|
(format #t "combo ")
|
|
)
|
|
(if (= (logand (search-info-flag probe-camera) s5-2) (search-info-flag probe-camera))
|
|
(format #t "probe-camera ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag guard)) (search-info-flag guard))
|
|
(format #t "guard ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag prefer-dist)) (search-info-flag prefer-dist))
|
|
(format #t "prefer-dist ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag cull-angle-simple)) (search-info-flag cull-angle-simple))
|
|
(format #t "cull-angle-simple ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag prefer-angle)) (search-info-flag prefer-angle))
|
|
(format #t "prefer-angle ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag attackable-priority)) (search-info-flag attackable-priority))
|
|
(format #t "attackable-priority ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag on-screen)) (search-info-flag on-screen))
|
|
(format #t "on-screen ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag abort)) (search-info-flag abort))
|
|
(format #t "abort ")
|
|
)
|
|
(if (= (logand (search-info-flag probe) s5-2) (search-info-flag probe))
|
|
(format #t "probe ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag cull-angle)) (search-info-flag cull-angle))
|
|
(format #t "cull-angle ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag crate)) (search-info-flag crate))
|
|
(format #t "crate ")
|
|
)
|
|
(if (= (logand s5-2 (search-info-flag back-point)) (search-info-flag back-point))
|
|
(format #t "back-point ")
|
|
)
|
|
)
|
|
(format #t ")~%")
|
|
(format #t "~1Trot-base: ~`vector`P~%" (-> this rot-base))
|
|
(format #t "~1Tback-point: ~`vector`P~%" (-> this back-point))
|
|
(format #t "~1Trot-range: ~f~%" (-> this rot-range))
|
|
(label cfg-118)
|
|
this
|
|
)
|
|
|
|
;; definition for symbol *search-info*, type search-info
|
|
(define *search-info* (new 'global 'search-info))
|
|
|
|
;; definition for function find-nearest-focusable
|
|
;; INFO: Used lq/sq
|
|
;; ERROR: Stack slot load at 720 mismatch: defined as size 4, got size 16
|
|
;; ERROR: Stack slot load at 784 mismatch: defined as size 4, got size 16
|
|
;; ERROR: Stack slot load at 720 mismatch: defined as size 4, got size 16
|
|
;; ERROR: Stack slot load at 784 mismatch: defined as size 4, got size 16
|
|
;; ERROR: Stack slot load at 720 mismatch: defined as size 4, got size 16
|
|
;; ERROR: Stack slot load at 784 mismatch: defined as size 4, got size 16
|
|
;; ERROR: Stack slot load at 720 mismatch: defined as size 4, got size 16
|
|
;; ERROR: Stack slot load at 784 mismatch: defined as size 4, got size 16
|
|
;; ERROR: Unsupported inline assembly instruction kind - [mula.s f0, f3]
|
|
;; ERROR: Unsupported inline assembly instruction kind - [madda.s f1, f4]
|
|
;; ERROR: Unsupported inline assembly instruction kind - [madd.s f0, f2, f5]
|
|
(defun find-nearest-focusable ((arg0 (array collide-shape))
|
|
(arg1 vector)
|
|
(arg2 float)
|
|
(arg3 search-info-flag)
|
|
(arg4 search-info-flag)
|
|
(arg5 vector)
|
|
(arg6 vector)
|
|
(arg7 float)
|
|
)
|
|
(local-vars (f0-12 float))
|
|
(with-pp
|
|
(rlet ((acc :class vf)
|
|
(vf0 :class vf)
|
|
(vf1 :class vf)
|
|
(vf2 :class vf)
|
|
(vf3 :class vf)
|
|
(vf4 :class vf)
|
|
)
|
|
(init-vf0-vector)
|
|
(let ((gp-0 *search-info*))
|
|
(set! (-> gp-0 match) #f)
|
|
(vector-copy! (-> gp-0 point) arg1)
|
|
(set! (-> gp-0 radius) arg2)
|
|
(set! (-> gp-0 best) 1000000000000000000000.0)
|
|
(set! (-> gp-0 rating) (search-info-flag))
|
|
(set! (-> gp-0 require) arg4)
|
|
(set! (-> gp-0 mask) arg3)
|
|
(vector-copy! (-> gp-0 rot-base) arg5)
|
|
(if arg6
|
|
(vector-copy! (-> gp-0 back-point) arg6)
|
|
(vector-copy! (-> gp-0 back-point) (-> gp-0 rot-base))
|
|
)
|
|
(set! arg7 (cond
|
|
((= arg7 65536.0)
|
|
-2.0
|
|
)
|
|
(else
|
|
(empty)
|
|
arg7
|
|
)
|
|
)
|
|
)
|
|
(set! (-> gp-0 rot-range) arg7)
|
|
(let ((s4-0 (-> arg0 length)))
|
|
(while (begin (label cfg-104) (nonzero? s4-0))
|
|
(+! s4-0 -1)
|
|
(let* ((s0-0 (-> arg0 s4-0))
|
|
(s3-0 (as-type (-> s0-0 process) process-focusable))
|
|
)
|
|
(when s3-0
|
|
(let ((s1-0 (get-search-info-flag (the-as process-focusable s3-0))))
|
|
(when (and (and s3-0 (not (logtest? (-> (the-as process-focusable s3-0) focus-status) (focus-status disable dead))))
|
|
(logtest? s1-0 (search-info-flag crate guard attackable enemy attackable-priority high-priority))
|
|
)
|
|
(let* ((s2-1 (get-trans (the-as process-focusable s3-0) 3))
|
|
(f30-0 (- (vector-vector-distance (-> gp-0 point) s2-1) (-> s2-1 w)))
|
|
)
|
|
(when (nonzero? (-> s0-0 root-prim prim-core collide-as))
|
|
(let ((s0-1 (search-info-flag)))
|
|
0.0
|
|
(let* ((sv-736 (vector-normalize! (vector-! (new 'stack-no-clear 'vector) s2-1 (-> gp-0 point)) 1.0))
|
|
(f28-0 (cond
|
|
((logtest? (-> gp-0 mask) (search-info-flag prefer-xz))
|
|
(fabs (deg-diff (vector-y-angle (-> gp-0 rot-base)) (vector-y-angle sv-736)))
|
|
)
|
|
((logtest? (-> gp-0 mask) (search-info-flag prefer-angle))
|
|
(- -9999.0 (vector-dot sv-736 (-> gp-0 rot-base)))
|
|
)
|
|
((logtest? (search-info-flag prefer-center) (-> gp-0 mask))
|
|
(* f30-0 (fmax 0.01 (- 1.0 (vector-dot sv-736 (-> gp-0 rot-base)))))
|
|
)
|
|
(else
|
|
f30-0
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(cond
|
|
((logtest? (-> gp-0 mask) (search-info-flag cull-angle-simple))
|
|
(let* ((v1-41 (-> gp-0 rot-base)))
|
|
(set! f0-12 (vector-dot sv-736 v1-41))
|
|
)
|
|
(if (< f0-12 (cos (-> gp-0 rot-range)))
|
|
(return (the-as process-focusable #f))
|
|
)
|
|
)
|
|
((logtest? (-> gp-0 mask) (search-info-flag cull-angle))
|
|
(cond
|
|
((< (-> gp-0 rot-range) 14563.556)
|
|
(let ((f26-1 (vector-dot (vector-! (new 'stack-no-clear 'vector) s2-1 (-> gp-0 point)) (-> gp-0 rot-base)))
|
|
(sv-752 (new 'stack-no-clear 'vector))
|
|
)
|
|
(let ((v1-53 (-> gp-0 point))
|
|
(a0-27 (-> gp-0 rot-base))
|
|
(f0-17 f26-1)
|
|
)
|
|
(.lvf vf2 (&-> a0-27 quad))
|
|
(.lvf vf1 (&-> v1-53 quad))
|
|
(let ((v1-54 f0-17))
|
|
(.mov vf3 v1-54)
|
|
)
|
|
)
|
|
(.add.x.vf.w vf4 vf0 vf0)
|
|
(.mul.x.vf acc vf2 vf3)
|
|
(.add.mul.w.vf.xyz vf4 vf1 vf0 acc)
|
|
(.svf (&-> sv-752 quad) vf4)
|
|
(if (< (* f26-1 (tan (-> gp-0 rot-range))) (- (vector-vector-distance sv-752 s2-1) (-> s2-1 w)))
|
|
(goto cfg-104)
|
|
)
|
|
)
|
|
)
|
|
(else
|
|
(if (< (vector-dot sv-736 (-> gp-0 rot-base)) (cos (-> gp-0 rot-range)))
|
|
(return (the-as process-focusable #f))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
((logtest? (-> gp-0 mask) (search-info-flag cull-xz))
|
|
(if (< (-> gp-0 rot-range) (fabs (deg-diff (vector-y-angle (-> gp-0 rot-base)) (vector-y-angle sv-736))))
|
|
(goto cfg-104)
|
|
)
|
|
)
|
|
)
|
|
(when (logtest? (-> gp-0 mask) (search-info-flag back-point))
|
|
(if (< (vector-dot
|
|
(vector-normalize! (vector-! (new 'stack-no-clear 'vector) s2-1 (-> gp-0 back-point)) 1.0)
|
|
(-> gp-0 rot-base)
|
|
)
|
|
0.0
|
|
)
|
|
(goto cfg-104)
|
|
)
|
|
)
|
|
(when (logtest? (-> gp-0 mask) (search-info-flag combo))
|
|
(if (not (send-event s3-0 'combo))
|
|
(goto cfg-104)
|
|
)
|
|
)
|
|
(if (logtest? s1-0 (search-info-flag high-priority))
|
|
(set! s0-1 (the-as search-info-flag (logior (the-as int s0-1) (search-info-flag high-priority))))
|
|
)
|
|
(if (logtest? s1-0 (search-info-flag guard enemy attackable-priority high-priority))
|
|
(set! s0-1 (the-as search-info-flag (logior (the-as int s0-1) (search-info-flag enemy))))
|
|
)
|
|
(if (logtest? s1-0 (search-info-flag attackable))
|
|
(set! s0-1 (the-as search-info-flag (logior (the-as int s0-1) (search-info-flag attackable))))
|
|
)
|
|
(if (logtest? s1-0 (search-info-flag crate))
|
|
(set! s0-1 (the-as search-info-flag (logior (the-as int s0-1) (search-info-flag crate))))
|
|
)
|
|
(if (and (nonzero? (-> s3-0 draw)) (logtest? (-> s3-0 draw status) (draw-control-status on-screen)))
|
|
(set! s0-1 (the-as search-info-flag (logior (the-as int s0-1) (search-info-flag on-screen))))
|
|
)
|
|
(let ((s1-1 (the-as search-info-flag (logand (the-as int s0-1) (-> gp-0 mask)))))
|
|
(when (and (>= (the-as int s1-1) (the-as int (-> gp-0 rating)))
|
|
(or (zero? (-> gp-0 require)) (logtest? (the-as int s1-1) (-> gp-0 require)))
|
|
(or (and (logtest? (the-as int s1-1) (search-info-flag high-priority))
|
|
(not (logtest? (-> gp-0 rating) (search-info-flag high-priority)))
|
|
)
|
|
(and (logtest? (the-as int s1-1) (search-info-flag high-priority))
|
|
(logtest? (-> gp-0 rating) (search-info-flag high-priority))
|
|
(< f28-0 (-> gp-0 best))
|
|
)
|
|
(< f28-0 (-> gp-0 best))
|
|
)
|
|
(< f30-0 (-> gp-0 radius))
|
|
)
|
|
(when (logtest? (search-info-flag probe) (-> gp-0 mask))
|
|
(let ((a1-13 (new 'stack-no-clear 'collide-query)))
|
|
(vector-copy! (-> a1-13 start-pos) (-> gp-0 back-point))
|
|
(vector-! (-> a1-13 move-dist) s2-1 (-> gp-0 back-point))
|
|
(let ((v1-124 a1-13))
|
|
(set! (-> v1-124 radius) 1228.8)
|
|
(set! (-> v1-124 collide-with) (collide-spec backgnd))
|
|
(set! (-> v1-124 ignore-process0) pp)
|
|
(set! (-> v1-124 ignore-process1) #f)
|
|
(set! (-> v1-124 ignore-pat)
|
|
(new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1 :board #x1)
|
|
)
|
|
(set! (-> v1-124 action-mask) (collide-action solid))
|
|
)
|
|
(let ((f0-34 (fill-and-probe-using-line-sphere *collide-cache* a1-13)))
|
|
(if (and (>= f0-34 0.0) (< f0-34 1.0))
|
|
(goto cfg-104)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(set! (-> gp-0 match) (the-as process-focusable s3-0))
|
|
(set! (-> gp-0 best) f28-0)
|
|
(set! (-> gp-0 rating) (the-as search-info-flag s1-1))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(-> gp-0 match)
|
|
)
|
|
)
|
|
)
|
|
)
|