mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
28 lines
682 B
Common Lisp
28 lines
682 B
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: load-boundary.gc
|
|
;; name in dgo: load-boundary
|
|
;; dgos: GAME, ENGINE
|
|
|
|
|
|
(defmethod reset! load-state ((obj load-state))
|
|
(local-vars (v1-1 int))
|
|
(set! (-> obj want 0 name) #f)
|
|
(set! (-> obj want 0 display?) #f)
|
|
(set! (-> obj want 0 force-vis?) #f)
|
|
(set! (-> obj want 0 force-inside?) #f)
|
|
(set! (-> obj want 1 name) #f)
|
|
(set! (-> obj want 1 display?) #f)
|
|
(set! (-> obj want 1 force-vis?) #f)
|
|
(set! (-> obj want 1 force-inside?) #f)
|
|
(set! (-> obj command-list) '())
|
|
(set! v1-1 0)
|
|
(while (< v1-1 256)
|
|
(set! (-> obj object-name v1-1) #f)
|
|
(set! (-> obj object-status v1-1) (the basic 0))
|
|
(+! v1-1 1)
|
|
)
|
|
obj
|
|
)
|