mirror of
https://github.com/open-goal/jak-project
synced 2026-06-26 02:24:34 -04:00
water111
30 lines
729 B
Common Lisp
30 lines
729 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: loader.gc
|
|
;; name in dgo: loader
|
|
;; dgos: ENGINE, GAME
|
|
|
|
;; temporary hack to avoid crash at startup
|
|
|
|
(defmethod set-loaded-art load-dir-art-group ((obj load-dir-art-group) (arg0 art-group))
|
|
(let ((s4-0 (-> obj string-array)))
|
|
(dotimes (s3-0 (-> s4-0 length))
|
|
(when (string= (-> arg0 name) (-> s4-0 s3-0))
|
|
(set! (-> obj art-group-array s3-0) arg0)
|
|
(set! arg0 (-> obj art-group-array s3-0))
|
|
(goto cfg-7)
|
|
)
|
|
)
|
|
(set! (-> s4-0 (-> s4-0 length)) (-> arg0 name))
|
|
(set! (-> obj art-group-array (-> s4-0 length)) arg0)
|
|
(+! (-> s4-0 length) 1)
|
|
)
|
|
(+! (-> obj art-group-array length) 1)
|
|
(label cfg-7)
|
|
arg0
|
|
)
|
|
|
|
;; DECOMP BEGINS
|
|
|