mirror of
https://github.com/open-goal/jak-project
synced 2026-06-01 01:40:07 -04:00
ManDude
7ce58f709f
* some jp support to fix some errors in the original game * music fade toggle * recognize `process-new` macros!! * strip casts in this macro * rename macro * fix cast typecheck * update source 1 * detect kernel stack case * less boilerplate * `manipy-spawn` special case * pretty printer improvements * revert dumb thing from earlier * use shell detection on `send-event` * fix some events * remove unused argument * detect `static-attack-info` and add `CondNoElse` to shell detect * better `attack-info` detect * support `process-spawn` in multi-lets * detect `rand-float-gen` pt 1 * detect as return value * detect in `countdown` and `dotimes` * oops this wasnt working * fancier `send-event`s * clang * update source!! * fix tests * fine jeez * uh okay * fix some accidental regressions * fix more regressions * regression fixes * fix big bug... * extra safety!
37 lines
958 B
Common Lisp
Vendored
Generated
37 lines
958 B
Common Lisp
Vendored
Generated
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; definition for function cam-stop
|
|
;; INFO: Return type mismatch (state camera-slave) vs none.
|
|
(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)
|
|
(set! *camera-base-mode* cam-string)
|
|
(none)
|
|
)
|
|
|
|
;; definition for function cam-start
|
|
;; INFO: Return type mismatch int vs none.
|
|
(defun cam-start ((arg0 symbol))
|
|
(cam-stop)
|
|
(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-function camera-master cam-master-init :from *camera-master-dead-pool* :to *camera-pool*)
|
|
)
|
|
)
|
|
)
|
|
(if arg0
|
|
(reset-cameras)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
;; failed to figure out what this is:
|
|
(cam-start #f)
|