jak-project/goal_src/jak3/levels/factory/factorya-init.gc

;;-*-Lisp-*-
(in-package goal)

;; name: factorya-init.gc
;; name in dgo: factorya-init
;; dgos: LFACTORY

;; DECOMP BEGINS

(defun factorya-login ((arg0 level))
  0
  (none)
  )

(defun factorya-activate ((arg0 level))
  (let ((gp-0 *traffic-info*)
        (v1-1 (level-get *level* 'factorya))
        )
    (set! (-> gp-0 vehicle-level) v1-1)
    (set! (-> gp-0 vehicle-levels 8) (-> v1-1 name))
    )
  (vehicle-manager-start (the-as process *entity-pool*))
  0
  (none)
  )

(defun factorya-deactivate ((arg0 level))
  (set! (-> *traffic-info* vehicle-level) #f)
  (vehicle-manager-kill)
  0
  (none)
  )