mirror of
https://github.com/open-goal/jak-project
synced 2026-07-09 23:01:56 -04:00
Hat Kid
dacb704ef6
- `aligner` - `effect-control` - `pov-camera` - `powerups` - `los-control-h` - `airlock` - `water-anim` - `blocking-plane` - `proc-focusable-spawner` - `idle-control` - `enemy-h` - `nav-enemy-h` - `enemy` - `enemy-states` - `particle-curves` - `base-plat` - `plat` - `bouncer` - `elevator` - `rigid-body` - `rigid-body-queue` - `process-taskable` - `scene-actor` - `warp-gate` - `guard-projectile` - `metalhead-projectile` - `los-control` - `joint-exploder` - `ragdoll-test` - `debris` - `shield-sphere` - `text` - `target-launch`
47 lines
1.7 KiB
Common Lisp
Vendored
Generated
47 lines
1.7 KiB
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition of type los-control
|
|
(deftype los-control (structure)
|
|
((src-proc handle)
|
|
(dst-proc handle)
|
|
(last-lost-los time-frame)
|
|
(last-gained-los time-frame)
|
|
(check-interval time-frame)
|
|
(max-check-distance float)
|
|
(last-check-time time-frame)
|
|
(last-collide-result collide-tri-result :inline)
|
|
(collide-with collide-spec :offset 160)
|
|
)
|
|
(:methods
|
|
(los-control-method-9 (_type_ process-focusable vector float float) none :behavior process-focusable)
|
|
(should-check-los? (_type_ time-frame) symbol)
|
|
(los-control-method-11 (_type_ time-frame) symbol)
|
|
(init-los! (_type_ process-focusable time-frame float collide-spec) none)
|
|
(los-control-method-13 (_type_ collide-query vector int float) float)
|
|
)
|
|
)
|
|
|
|
;; definition for method 3 of type los-control
|
|
(defmethod inspect ((this los-control))
|
|
(when (not this)
|
|
(set! this this)
|
|
(goto cfg-4)
|
|
)
|
|
(format #t "[~8x] ~A~%" this 'los-control)
|
|
(format #t "~1Tsrc-proc: ~D~%" (-> this src-proc))
|
|
(format #t "~1Tdst-proc: ~D~%" (-> this dst-proc))
|
|
(format #t "~1Tlast-lost-los: ~D~%" (-> this last-lost-los))
|
|
(format #t "~1Tlast-gained-los: ~D~%" (-> this last-gained-los))
|
|
(format #t "~1Tcheck-interval: ~D~%" (-> this check-interval))
|
|
(format #t "~1Tmax-check-distance: ~f~%" (-> this max-check-distance))
|
|
(format #t "~1Tlast-check-time: ~D~%" (-> this last-check-time))
|
|
(format #t "~1Tlast-collide-result: #<collide-tri-result @ #x~X>~%" (-> this last-collide-result))
|
|
(format #t "~1Tcollide-with: ~D~%" (-> this collide-with))
|
|
(label cfg-4)
|
|
this
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
0
|