mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
81b6d5fe08
Also made a first-pass of their SQL schema in preparation for getting that working.
36 lines
815 B
Common Lisp
36 lines
815 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: find-nearest-h.gc
|
|
;; name in dgo: find-nearest-h
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; +++find-nearest:search-info-flag
|
|
(defenum search-info-flag
|
|
:type uint32
|
|
:bitfield #t
|
|
(crate 0)
|
|
(enemy 1)
|
|
(on-screen 2)
|
|
(prefer-dist 3)
|
|
(prefer-angle 4)
|
|
(prefer-xz 5)
|
|
(cull-angle 6)
|
|
(cull-xz 7)
|
|
(back-point 8)
|
|
(combo 9)
|
|
(probe 10)
|
|
(probe-camera 11)
|
|
(check-track 12)
|
|
(prefer-center 13)
|
|
)
|
|
;; ---find-nearest:search-info-flag
|
|
|
|
(declare-type search-info structure)
|
|
(define-extern *search-info* search-info)
|
|
(define-extern find-nearest-attackable (function vector float uint uint vector vector float basic))
|
|
(define-extern find-nearest-focusable (function (array collide-shape) vector float search-info-flag search-info-flag vector vector float basic))
|
|
|
|
;; DECOMP BEGINS
|
|
|