mirror of
https://github.com/open-goal/jak-project
synced 2026-07-09 23:01:56 -04:00
Tyler Wilding
f6bdc07990
This PR does a few main things: - finish decompiling the progress related code - implemented changes necessary to load the text files end-to-end - japanese/korean character encodings were not added - finish more camera code, which is required to spawn the progress menu / init the default language settings needed for text - initialized the camera as well Still havn't opened the menu as there are a lot of checks around `*target*` which I havn't yet gone through and attempted to comment out.
43 lines
923 B
Common Lisp
43 lines
923 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: cam-start.gc
|
|
;; name in dgo: cam-start
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(defun cam-stop ()
|
|
(kill-by-name "camera-master" *active-pool*)
|
|
(kill-by-name "camera-slave" *active-pool*)
|
|
(kill-by-name "camera-combiner" *active-pool*)
|
|
(set! *camera* #f)
|
|
(set! *camera-combiner* #f)
|
|
#f
|
|
)
|
|
|
|
(defun cam-start ((arg0 symbol))
|
|
(cam-stop)
|
|
(set! *camera-combiner*
|
|
(the-as camera-combiner
|
|
(ppointer->process
|
|
(process-spawn camera-combiner :init cam-combiner-init :from *camera-dead-pool* :to *camera-pool*)
|
|
)
|
|
)
|
|
)
|
|
(set! *camera*
|
|
(the-as camera-master
|
|
(ppointer->process
|
|
(process-spawn camera-master :init cam-master-init :from *camera-master-dead-pool* :to *camera-pool*)
|
|
)
|
|
)
|
|
)
|
|
(if arg0
|
|
(reset-cameras)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(cam-start #f)
|