mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
b5d21be9c5
* temp * temp * before cleaning up * cleanup merge * fix warnings * merge fix * clang format
18 lines
356 B
Common Lisp
18 lines
356 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: logic-target.gc
|
|
;; name in dgo: logic-target
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(defun stop ((arg0 symbol))
|
|
"Kill the target process, set the game mode to the specified mode."
|
|
(when *target*
|
|
(kill-by-name "target" *active-pool*)
|
|
(set! *target* #f)
|
|
)
|
|
(set! (-> *game-info* mode) arg0)
|
|
0
|
|
) |