mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
bc66d416b4
Some checks failed
Build / 🖥️ Windows (push) Has been cancelled
Build / 🐧 Linux (push) Has been cancelled
Build / 🍎 MacOS (push) Has been cancelled
Inform Pages Repo / Generate Documentation (push) Has been cancelled
Lint / 📝 Formatting (push) Has been cancelled
Lint / 📝 Required Checks (push) Has been cancelled
Lint / 📝 Optional Checks (push) Has been cancelled
Also fix `hud-draw-pris2` bucket in Jak 3 to make subtitles work and foreground HUD envmap.
35 lines
923 B
Common Lisp
35 lines
923 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: castle-tasks.gc
|
|
;; name in dgo: castle-tasks
|
|
;; dgos: CAP
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(set-subtask-hook!
|
|
*game-info*
|
|
(game-task-node castle-break-in-castle-1)
|
|
TASK_MANAGER_CODE_HOOK
|
|
(lambda :behavior task-manager
|
|
()
|
|
(let ((gp-0 (new 'stack-no-clear 'task-arrow-params)))
|
|
(set! (-> gp-0 pos quad) (-> self info end-sphere quad))
|
|
(quaternion-identity! (-> gp-0 quat))
|
|
(set! (-> gp-0 flags) (task-arrow-flags))
|
|
(set! (-> gp-0 map-icon) (the-as uint 15))
|
|
(set! (-> self arrow) (process->handle (task-arrow-spawn gp-0 self)))
|
|
)
|
|
(until #f
|
|
(when (< (vector-vector-distance (target-pos 0) (-> self info end-sphere)) (-> self info end-sphere r))
|
|
(send-event (handle->process (-> self arrow)) 'leave)
|
|
(suspend-for (seconds 0.007))
|
|
(go-virtual complete)
|
|
)
|
|
(suspend)
|
|
)
|
|
#f
|
|
(none)
|
|
)
|
|
)
|