;;-*-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
  )