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

;; name: lfaccar-init.gc
;; name in dgo: lfaccar-init
;; dgos: LFACCAR

;; DECOMP BEGINS

(defun lfaccar-activate ((arg0 level))
  (format 0 "factorya-activate~%")
  (let ((v1-0 *traffic-info*))
    (set! (-> v1-0 vehicle-level) arg0)
    (set! (-> v1-0 vehicle-levels 21) (-> arg0 name))
    )
  (vehicle-manager-start (the-as process *entity-pool*))
  0
  (none)
  )

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